Histórico da Página

#include "rwmake.ch"

User Function FISENVNFE()

Local aIdNfe 	:= PARAMIXB[1]
Local cIdsNfe	:= ""
Local nX		:= 0

    If Len(aIdNfe) > 0

        For nX := 1 To Len(aIdNfe)
            cIdsNfe	+= Iif( Len(aIdNfe[Nx]) > 0, Alltrim(aIdNfe[Nx][1]), "" )
                If nX < Len(aIdNfe)
                    cIdsNfe += " - "
                EndIf
        Next nX	    
        msgalert("Id(s) da(s) NF-e no TSS: " + cIdsNfe )

    Else

        msgalert("Transmissão da NF-e Falhou")

    EndIFEndIf

Return Nil