Ola;
Veja esse exemplo, aqui estou usando arquivo.INI mais pode ser XML ou JSON depende de como recebe o retorno.
Retorno_Cce:=hHandleDllNfe:EnviarEvento(nota)
if Left(Retorno_Cce,5)=='ERRO:'
MsgAlertaGuinfe('Erro ao enviar carta correção',;
Retorno_Cce+hb_eol()+hb_eol()+;
'Qualquer dúvida consulte suporte técnico.','Retornar')
return
endif
cArqCce:=hb_DirBase()+Arq_RetornoNfe()
lRetsalva :=hb_MemoWrit(cArqCce,Retorno_Cce)
vStatEnvio :=hwg_GetIni('EVENTO001', 'CStat', '',cArqCce)
vMotivoenvio:=hwg_GetIni('EVENTO001', 'XMotivo', '',cArqCce)
vProtocolo :=hwg_GetIni('EVENTO001', 'nProt', '',cArqCce)
Arquivo_cce :=hwg_GetIni('EVENTO001', 'arquivo', '',cArqCce)
if "REJEICAO" $ upper(vMotivoEnvio)
MsgAlertaGuinfe('Erro ao enviar carta correção',;
'CStat :'+AllTrim(vStatEnvio)+hb_eol()+;
vMotivoEnvio+hb_eol()+hb_eol()+;
'Qualquer dúvida consulte suporte técnico.','Retornar')
return
endif
hHandleDllNfe:LimparLista()
hHandleDllNfe:LimparListaEventos()
nImprimirCCe:=hHandleDllNfe:ImprimirEvento(xmlnfe,arquivo_cce)