...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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 |