Árvore de páginas

Versões comparadas

Chave

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

...

Bloco de código
languagevb
themeMidnight
firstline1
titleF989CRQYF989DtCtb
linenumberstrue
#INCLUDE "PROTHEUS.CH"
  
User Function F989DtCtb()

    Local nRecnoE2 := ParamIxb[1] //R_E_C_N_O_ do registro na SE2
    Local dDtCtb   := ParamIxb[2] //Data da contabilização do padrão (E2_EMIS1)

    DbSelectArea("SE2")
    SE2->(DbGoTo(nRecnoE2))
    If !Empty(SE2->E2_BAIXA)
        dDtCtb := SE2->E2_XDTCTB //Campo customizado na SE2
    EndIF

Return dDtCtb

...