Histórico da Página
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
Function F050PcoLan()
Local lRet := .T.//se nao bloquear grava os lançamentos com a chamada a funcao PcoDetLan
If !PcoVldLan("000002",IIF(M->E2_TIPO$MVPAGANT,"02","01"),"FINA050")
lRet := .F.
//===========================================================
//Grava os lancamentos nas contas orcamentarias SIGAPCO
//===========================================================
If SE2->E2_TIPO $ MVPAGANT
PcoDetLan("000002","02","FINA050")
Else
PcoDetLan("000002","01","FINA050")
EndIf
Endif
Return lRet |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas