PC Toledo

Código: Selecionar todos

IF .NOT.EMPTY(w_nrorig)
	if .not.empty(w_finalid)  
		FWRITE(Nfe_Handle,"Finalidade=" + w_finalid + chr(13)+chr(10))  //-> w_finalid=1
	endif
	FWRITE(Nfe_Handle,"[NFRef001]" + chr(13)+chr(10))
	FWRITE(Nfe_Handle,"UF="+w_uforig+ chr(13)+chr(10)) // PR
	FWRITE(Nfe_Handle,"AAMM="+w_peorig+ chr(13)+chr(10)) // 1006
	FWRITE(Nfe_Handle,"CNPJ="+sgcgc+ chr(13)+chr(10))  // CPF do cliente
	FWRITE(Nfe_Handle,"Modelo="+w_moorig+ chr(13)+chr(10)) // 01
	FWRITE(Nfe_Handle,"Serie="+w_seorig+ chr(13)+chr(10)) // 001
	FWRITE(Nfe_Handle,"refNFe"+w_chorig+ chr(13)+chr(10)) // a chave SEFAZ da NFe
	FWRITE(Nfe_Handle,"nNF="+alltrim(strzero(w_nrorig,6))+ chr(13)+chr(10)) // Numero NFe Origem
ENDIF