Home

Linha Microsiga Protheus

Páginas filhas
  • PCOINILAN - Lançamentos de Integração -- 12505

Função: PCOINILAN - Lançamentos de Integração
Versões: Microsiga Protheus 8.11 , Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todas TotvsDbAccess
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Espanhol , Inglês
Descrição:

A função PcoIniLan é utilizada na abertura de uma transação que pode gerar lançamentos de integração com o módulo SIGAPCO, sendo que nela são inicializadas algumas variáveis de controle interno.

Programa Fonte:
PCOXFUN.PRW
Sintaxe:

PCOINILAN - Lançamentos de Integração ( cProcesso [ lDelBlq ] )

Retorno:
    ()
Observações

Todos os processos que devem ser escriturados nos movimentos/lançamentos no SIGAPCO necessitam da chamada à função  PcoInilan(...) com parâmetro informando o "código do processo",  e em processos que estejam utilizando bloqueio passar o parâmetro lógico .T. ("lDelBlq") que verificará se existem lançamentos de bloqueios inválidos pendentes, que se não estiverem em uso serão excluidos.

Os processos padrões contemplados e seus respectivos códigos podem ser consultados e visualizados no cadastro de processos no módulo SIGAPCO em Atualizações > Lançamentos > Por Processo.

Os processos definidos por usuário devem iniciar o código com "9", isto é, o código deve ser igual ou superior a 900000.

A chamada da PcoIniLan(...) deve estar imediatamente anterior à declaração de uma janela de diálogo e obrigatoriamente deve ser finalizada a transação com a chamada da funcão PcoFinLan(...) após a gravação dos dados do lançamento de origem. Estas 2 funções devem ser chamadas externas às instruções Begin Transaction ...........End Transaction, uma vez que a chamada à PcoIniLan(...) faz chamadas às instruções de abertura de arquivos.
 

Exemplos
//--------------------------------------------------------------//Inicializa a gravacao dos lancamentos do SIGAPCO         PcoIniLan("000002")         //PROCESSO "000002 = CONTAS A PAGAR"//--------------------------------------------------------------//JANELA DE DIALOGO OU CHAMADA A ROTINA AUTOMATICAIf ( lF050Auto )	RegToMemory("SE2",.T.,.F.)	If EnchAuto(cAlias,aAutoCab,cTudoOk,nOpc)			nOpca := AxIncluiAuto(cAlias,cTudoOk,"FA050AXINC('"+cAlias+"')" )	EndIfElseIf lPodeInc	nOpca := AxInclui(cAlias,nReg,nOpc,, "FA050INIS", ,cTudoOk,,                                                            "FA050AXINC('"+cAlias+"')",aBut050,aParam)Endif//--------------------------------------------------------------//Finaliza a gravacao dos lancamentos do SIGAPCO            PcoFinLan("000002")
Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cProcesso Caracter Codigo do Processo de Lançamento no PCO X
lDelBlq Lógico Verifica Lançamento Originários de Bloqueio do PCO