Punto de entrada: ANCTB103GR - Ejecuta la grabación de los registros
Alcances |
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
...
: | Microsiga Protheus 10 , Microsiga Protheus 11 |
...
Versiones: | Microsiga Protheus 10 , Microsiga Protheus 11 |
...
Compatible países: | Todos |
Sistemas |
...
operativos: | Todos |
...
Compatible con las bases de datos: |
...
Todas |
Idiomas: |
...
Portugués (Brasil) , |
...
Portugués (Portugal) , |
...
Español , |
...
Inglés |
...
Descripción:
...
Este P.E
...
. ejecuta la grabación de los registros
Eventos
É executado dentro da função de gravação de lançamentos contabeis
Se ejecuta dentro de la función de grabación de asientos contables
Programa fuente
...
CTBA103.PRW
...
...
Sintaxis
ANCTB103GR -
...
Ejecuta la grabación de los registros ( [ nOpc ], [ dDataLanc ], [ cLote ], [ cSubLote ], [ cDoc ] )
...
Parámetros:
...
Nombre | Tipo |
...
Descripción |
...
Estándar |
...
Obligatorio |
...
Referencia | |||||||
nOpc | Numérico | Numero |
...
de la opción seleccionada | ||||||||||
dDataLanc |
...
fecha | Fecha del registro | ||||||||||||||
cLote |
...
carácter | Código |
...
del lote | ||||||||||
cSubLote |
...
carácter | Código |
...
del sublote | ||||||||||
cDoc |
...
carácter | Código |
...
del documento |
Retorno
Nil (Nulo)
Exemplos
...
If lOk .And. (!l103Visual)
...
If l103Exclui .And. ExistBlock("CTB103EXC")
...
lOk := ExecBlock("CTB103EXC",.F.,.F.)
...
EndIf If lOk If ExistBlock("ANCTB103GR")
...
ExecBlock("ANCTB103GR",.F.,.F.,{ nOpc,dDataLanc,cLote,cSubLote,cDoc }
...
) Endif CTBGrava(nOpc,dDataLanc,cLote,cSubLote,cDoc,.F.,"",__lCusto,__lItem,__lCLVL,nTotInf,'CTBA103',,,cEmpAnt,cFilAnt,,,,,,,cSeqCorr)
...
If ExistBlock("DPCTB103GR")
...
ExecBlock("DPCTB103GR",.F.,.F.,{ nOpc,dDatalanc,cLote,cSubLote,cDoc } )
...
Endif EndIf EndifEndIf