Árvore de páginas

Versões comparadas

Chave

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

...

  • Caso o ponto de entrada retorne falso, ou não tenha retorno, nenhuma taxa, a baixa do título não será realizadaefetivada.

03. PARÂMETROS

aValores => array de 16 posições

...

Bloco de código
languagedelphi
themeMidnight
titleF430TXBXFA430SE2
#INCLUDE "PROTHEUS.CH"

User Function FA430SE2()
    Local lRet := .F.
    Local aSE2 := SE2->(GetArea())
    Local cIdCnab := ParamIxb[1,1]
	
    SE2->(dbSetOrder(13))
    
    If !(lRet := SE2->(DbSeek(Substr(cIdCnab, 1, 10))))
        RestArea(aSE2)
        lRet := Nil
    EndIf
Return lRet  

...