DT Implementação importação XML de NFSe Nacional - Importador XML

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"
#Include "Coverage.ch"

User Function EXEC103()

Local aCab			:= {}
Local aItem			:= {}
Local aItens		:= {}
Local nOpc			:= 3
Local cNum			:= ""
Local cSer			:= "   "
Local nI			:= 0
Local nX			:= 0
Local cInicio		:= Time()

Private lMsErroAuto := .F.
Private lMsHelpAuto := .F.
Private lTemF1GFE	:= .F. 

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" MODULO "COM" FUNNAME "MATA103"

lMsErroAuto := .F.  
	
If nOpc == 3
	cNum := GetSxeNum("SF1","F1_DOC")	
	SF1->(dbSetOrder(1))		
	While SF1->(dbSeek(xFilial("SF1")+cNum))			
		ConfirmSX8()			
		cNum := GetSxeNum("SF1","F1_DOC")		
	EndDo
Endif

aadd(aCab,{"F1_FORMUL"  	,"N"	 	,NIL})
aadd(aCab,{"F1_DOC"			,cNum		,NIL})
aadd(aCab,{"F1_SERIE"  		,cSer	  	,NIL})
aadd(aCab,{"F1_FORNECE"		,"COM002"	,NIL})
aadd(aCab,{"F1_LOJA"   		,"01"  		,NIL})
aadd(aCab,{"F1_EMISSAO"		,DDATABASE	,NIL})
aadd(aCab,{"F1_DTDIGIT"		,DDATABASE	,NIL})
aadd(aCab,{"F1_TIPO"   		,"N"	 	,NIL}) //I-Complemento ICMS / P - Complemento IPI
aadd(aCab,{"F1_ESPECIE" 	,"NFS"		,NIL})
aadd(aCab,{"F1_COND"   		,"000" 		,NIL}) 
aadd(aCab,{"F1_STATUS" 		, "A" , Nil})
aadd(aCab,{"NFSAUT" 		, "1" , Nil})
aadd(aCab,{"F1_NFELETR" 	, "2024112120241121" , Nil})
	
For nX := 1 To 1
	cProd1 := "01"
	
	aItem := {}
	aadd(aItem,{"D1_ITEM"		,StrZero(nX,TamSx3("D1_ITEM")[1]) ,NIL})
	aadd(aItem,{"D1_COD"   		,PadR(cProd1,TamSx3("D1_COD")[1]) ,NIL})
	aadd(aItem,{"D1_UM"  		,"UN"	,NIL}) 
	aadd(aItem,{"D1_LOCAL"  	,"01"  	,NIL})
	aadd(aItem,{"D1_QUANT" 		,10	  	,NIL}) 
	aadd(aItem,{"D1_VUNIT"  	,1000	,NIL}) 
	aadd(aItem,{"D1_TOTAL"  	,10000	,NIL})
	aadd(aItem,{"D1_TES"   		,"001" 	,NIL})
	aAdd(aItens,aItem)	
Next nX

MSExecAuto({|x,y,z,a| MATA103(x,y,z,a)},aCab,aItens,nOpc,.F.)

If !lMsErroAuto 
	ConOut("	Incluido NF: " + cNum)  
Else
	MostraErro() 

	ConOut("Erro na inclusao!") 
	Exit
EndIf

Conout("Inicio: " + cInicio)
ConOut("Fim: " + Time())
Conout("Tempo: " + ElapTime(cInicio,Time()))

RESET ENVIRONMENT

Return