Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Rafael Fernando Villanueva Alegre

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rafael Fernando Villanueva Alegre

Gravado em

Chave

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

...


Nombre



Tipo



Descripción



Estándar



Obligatorio



Referencia



nOpc



Numérico



Numero de la opción seleccionada












dDataLanc



fecha



Fecha del 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

...