Histórico da Página

Quando o Ponto de Entrada M521LpSD9 retornar .F. o processo de limpeza não é iniciado, mas a nota seguira seguirá para exclusão, logo na SD9 o registro estará com o mesmo preenchimento de quando houve o faturamento e o campo D9_DOCEXCL permanecerá em branco.

#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"

User Function M521LpSD9()

    Local aArea     := GetArea() //Armazena o ambiente ativo para restaurar ao fim do processo
 
    Local aParam    := PARAMIXB
    Local cDoc      := aParam[1]
    Local cSerie    := aParam[2]
    Local lRet      := .F.

    DbSelectArea("SF2")
    SF2->(DbSetOrder(1))
    If SF2->(DbSeek(xFilial("SF2") + cDoc + cSerie))
        If Empty(SF2->F2_FIMP) //Verifica se para esta nota houve alguma comunicação com Sefaz
            lRet := .T.
        EndIf
	EndIf

    RestArea(aArea) //Restaura o ambiente ativo no início da chamada
    
Return lRet