Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

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

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

	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