Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Punto de entrada: ANCTB103GR - Ejecuta la grabación de los registros 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:

Este P.E. ejecuta la grabación de los registrosasientos

Eventos

Se ejecuta dentro de la función de grabación de asientos contables

...

ANCTB103GR - Ejecuta la grabación de los registros asientos ( [ 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

asiento












cLote



carácter



Código del lote












cSubLote



carácter



Código del sublote












cDoc



carácter



Código del documento











DevoluciónRetorno
Nil (Nulo)

ExemplosEjemplos

        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

...