por Marcelo_Antonio » 04 Set 2018 14:50
Boa tarde.
Estou fazendo teste (hambiente de Homologação) para envio da NFe, no entanto não esta me retornando nada.
Segue abaixo como estou utilizando para enviar. Minha dúvida é a seguinte: Devo carregar o arquivo para memória antes de enviar?
FUNCTION Enviar_XML(Arq_XML)
***************************************
LOCAL ArqXML:= HB_MemoRead(Arq_XML) //-->>Carrega o Arquivo Para a Memória
LOCAL L_ret := .T. , oFile, xArqRet
LOCAL nHandle:= FCREATE('Retorno_XML.log', 0)
oFile := mg_fileNameOnlyName(Arq_XML)
oFile := Substr(oFile, 1, Len(oFile)-8)
oSefaz:NfeLoteEnvia(ArqXML) //-->> Envio do Arquivo Para A SEFAZ
FWRITE(nHandle, oSefaz:cXmlRetorno)
FWRITE(nHandle, oSefaz:cXmlAutorizado)
FCLOSE(nHandle)
IF AT('*ERRO*', oSefaz:cXmlRetorno) <> 0
mg_MsgInfo("Solicitação não autorizada", "Retorno", oSefaz:cXmlRetorno )
xArqRet := HB_MemoWrit(Alltrim(M->Erro_XMLNFe)+oFile+"-pro-rec.XML", oSefaz:cXmlRetorno )
L_ret := .F.
WAPI_ShellExecute( NIL, "open", xArqRet, NIL, NIL, 1 )
ELSE //$ "100,101,150,301,302"
ArqXML := HB_MemoWrit(Alltrim(M->Dir_NFeXML)+oFile+"-procNfe.XML", oSefaz:cXmlAutorizado )
if File(ArqXML)
Danfe(ArqXML) //-->> Função para gravação e Impressão do DANFE
else
mg_Msgwarning("Falha na gravação do arquivo Retorno!", "Atenção")
//WAPI_MessageBox( wapi_GetActiveWindow(), "Falha na gravação do Arquivo "+ArqXML, "Advertência", 0x00000030)
endif
//oDanfe:ToPdf( MemoRead( "arquivo.xml" ) )
ENDIF
RETURN L_ret
Agradeço a cooperação.