Italo,
Não deu certo!
Será que ninguém que usa ACBRNFEMONITOR usa EPEC?
Esta reclamando cOrgao ... estou passando 91
Eu fiz desta forma ...
//EPEC
cr := chr(13)+chr(10)
cXML := '[ENVEVENTO]'+cr
cXML += 'idLote=1'+cr
cXML += '[EVENTO'+StrZero(1,3)+']'+cr
cXML += 'cOrgao=91'+cr
cXML += 'CNPJ='+TiraString(empresa->cnpj_emp,'.-/ ')+cr
cXML += 'IE='+TiraString(empresa->ie_emp,'./- ')+cr
cXML += 'tpEvento=110140'+cr
cXML += 'nSeqEvento=1'+cr
cXML += 'tpAutor=1'+cr
cXML += 'tpNF=1'+cr
cXML += 'chNFe='+saida->nfe_sai+cr
cXML += 'cOrgaoAutor='+left(saida->nfe_sai,2)+cr
cXML += 'dhEmi='+dto2(vdata_sai)+' '+time()+cr
cXML += 'dhEvento='+dto2(date())+' '+time()+cr
cXML += '[DEST]'+cr
cXML += 'UF='+alltrim(cliente->uf_cli)+cr
cXML += 'CNPJ='+TiraString(cliente->cpf_cli,'.-/ ')+cr
cXML += 'IE='+TiraString(cliente->rg_cli,'.-/ ')+cr
cXML += 'vNF='+alltrim(transform(vtotal_sai,'999999999.99'))+CR
ACBR_NFE_EnviarEvento(cXML)
cArqXML := vchave'-nfe.xml' //arquivo XML
ACBR_NFE_ImprimirEvento(cArqXML)