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

Alcances

Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Ponto-de-Entrada: ANCTB103GR - Executa a gravação dos lançamentos

...

:

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