FISENVNFE - Envio de NF-e

#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	+= aIdNfe[Nx]
            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")

    EndIf

Return Nil