Histórico da Página

#include "PROTHEUS.ch"
User Function FA401CMP()

Local cTitNF as Character
Local cTitTX as Character

If ParamIxb <> Nil // Uso obrigatório para verificar que o ParamIxb terá conteúdo.


    cTitNF := ParamIxb[1] // Título Principal
    cTitTX := ParamIxb[2] // Título de Imposto

    If  !Empty(SRL->RL_PAIS)
        Reclock("SR4", .F.)
        
        SR4->R4_DTPGT := (cTitNF)->E2_BAIXA
        
        SR4->(MsUnlock())
    EndIf

Endif

Return