Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Pagetitle
DPCTB103GR - Valida

...

después de ejecutar la grabación de los asientos
DPCTB103GR - Valida

...

después de ejecutar la grabación de los asientos

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

Observações

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