Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: PCOFINLAN - Finalização de Movimentos/Lançamentos
Descrição:
Programa Fonte: PCOXFUN.PRW Sintaxe: PCOFINLAN - Finalização de Movimentos/Lançamentos ( cProcesso [ lForceVis ] [ lProc ] [ lDelBlq ] ) Retorno:
Observações Todos os processos a ser escriturado nos movimentos/lançamentos no SIGAPCO necessitam da chamada à função PcoFinlan(...) após a gravação origem do processo envolvido, para validação e atualização dos saldos efetuados na funcão PcoA050(...). 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 é, codigo deve ser igual ou superior a 900000. A chamada da PcoFinLan(...) deve estar imediatamente posterior à rotina de gravação origem do processo envolvido, normalmente após fechamento da janela de diálogo e é de caráter obrigatório.. Estas 2 funções (PcoIniLan/PcoFinLan) devem ser chamadas externas às instruções Begin Transaction ...........End Transaction, uma vez que a chamada a PcoIniLan(...) faz chamadas a 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:
|