Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
Pagetitle | ||
---|---|---|
|
...
|
...
|
Punto de entrada: DPCTB103GR - Valida
...
después de ejecutar la grabación de los asientos
Alcances: | 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:
Valida
...
si el registro se grabó correctamente
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
DPCTB103GR - Valida
...
después de ejecutar la grabación de los asientos ( [ nOpc ], [ dDataLanc ], [ cLote ], [ cSubLote ], [ cDoc ] )
...
Parámetros:
...
Nombre | Tipo |
...
Descripción |
...
Estándar |
...
Obligatorio |
...
Referencia | ||||
nOpc | Numérico |
...
Número 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 |
...
Devolución
Nil (Nulo)
...
Observaciones
Esto ocurre después de la efectiva grabación de los asientos
Ejemplos
Ele ocorre após a efetiva gravação dos lançamentos
...
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