Alberto.Leal

Bom dia.. meio OFF topic.. e no Monitor Plus sera necessario alguma alteracao ?

Boa tarde seuge os codigos: Cancelamento de MDF-e Autorizado com CT-e 610615 MDF-e Autorizado com CT-e 610614 Registro de Passagem Automatico MDF-e com CT-e 610554 Registro de Autorização de CT-e para a NF-e 610600 Registro de Cancelamento de CT-e para a NF-e 610601 MDF-e Cancelado 310611 esses foram alguns que vi e pelo que vi ate o na hora que gera o "arquivo" e joga o codigo do evento nao mapeado arquivo=999995019042677081800026855001000174832100969345101-resEventoNFe.xml e parece ser o seguinte nao depende do evento ser de outro DFE quando ele vincula a um documento referenciado por algo do DFE ele aceita em todos por isso que no distriubuicao DFE para NF-e aparece codigos para DFE CT-e ou DFE MDF-e o webservice de distribuicao nao faz esse tipo de distincao de quem é o codigo de evento

Bom dia compilei hj o monitor plus e ao executar o metodo NFe.DistribuicaoDFe(50,meucnpj,000000000079613) no grupo ResEveXXX ele tras CNPJ= CNPJCPF=33683111000107 CNPJDest= CStat=0 EmiCNPJ= EmiIE= EmixNome= IE= Id= NSU=000000000079618 VerAplic= Versao= XML=<?xml version="1.0" encoding="UTF-8"?><resEvento xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versao="1.01" xmlns="http://www.portalfiscal.inf.br/nfe"><cOrgao>91</cOrgao><CNPJ>33683111000107</CNPJ><chNFe>50190726770818000268550010001805321000067167</chNFe><dhEvento>2019-07-24T11:58:13-03:00</dhEvento><tpEvento>610600</tpEvento><nSeqEvento>1</nSeqEvento><xEvento>Registro de Autorização de CT-e para a NF-e</xEvento><dhRecbto>2019-07-24T11:58:13-03:00</dhRecbto><nProt>891191913409900</nProt></resEvento> arquivo=999995019072677081800026855001000180532100006716701-resEventoNFe.xml cOrgao=91 cOrgaoAutor=0 cSitNFe= chNFe=50190726770818000268550010001805321000067167 cteChvCte= cteModal= cteNProt= descEvento= dhEvento=24/07/2019 11:58:13 dhRecbto=24/07/2019 11:58:13 digVal= emailDest= nProt=891191913409900 nSeqEvento=1 schema=resEvento tpAmb= tpEvento=-99999 tpNF= vNF=0 verEvento= xEvento=Registro de Autorização de CT-e para a NF-e xJust= xMotivo= xNome= para os eventos tambem o mesmo codigo -9999 xEvento=Registro de Passagem Automatico MDF-e com CT-e xEvento=MDF-e Autorizado com CT-e

o estranho eh que com tanto com 27 quando o 50 funcionou

boa tarde.. deu certo agora mas pq 27 ? nao deveria ser o codigo da UF em questao? que no caso seria a 50 para o MS ?

o mesmo ainda Rejeicao: falha no schema xml e todos os meus schemas estao em paths separados

Boa tarde fiz hj um novo teste e ainda ele nao permite baixar os cte distribuicao mesmo fazendo a configuracao do schema por pasta diferente, atualizei o repositorio hj e fiz uma nova compilacao para testar

Sim esse teste foi realizado seguindo o monitor na situação padrão atual vou gerar novamente o monitor porem agora com cada schema em uma pasta diferente SetDFeSSLType; SetComumConfig(ACBrNFe1.Configuracoes); SetComumConfig(ACBrCTe1.Configuracoes); SetComumConfig(ACBrMDFe1.Configuracoes); SetComumConfig(ACBrGNRE1.Configuracoes); SetComumConfig(ACBrBlocoX1.Configuracoes); SetComumConfig(ACBreSocial1.Configuracoes); SetComumConfig(ACBrReinf1.Configuracoes); SetComumConfig(ACBrBPe1.Configuracoes); ACBrNFe1.Configuracoes.Arquivos.PathSchemas := ApplicationPath+'Schemas\NFe'; ACBrCTe1.Configuracoes.Arquivos.PathSchemas := ApplicationPath+'Schemas\CTe'; ACBrMDFe1.Configuracoes.Arquivos.PathSchemas := ApplicationPath+'Schemas\MDFe'; ACBrGNRE1.Configuracoes.Arquivos.PathSchemas := ApplicationPath+'Schemas\GNRe'; ACBrBlocoX1.Configuracoes.Arquivos.PathSchemas := ApplicationPath+'Schemas\BlocoX'; ACBreSocial1.Configuracoes.Arquivos.PathSchemas := ApplicationPath+'Schemas\ESocial'; ACBrReinf1.Configuracoes.Arquivos.PathSchemas := ApplicationPath+'Schemas\Reinf'; ACBrBPe1.Configuracoes.Arquivos.PathSchemas := ApplicationPath+'Schemas\BPe'; AtualizaSSLLibsCombo; ele me retorna ERRO: Rejeicao: Falha no esquema xml ate fiz um teste deletando apenas o conteudo da pasta dos schemas do CTe para ver se ele tava lendo no local correto 20190618090157-dist-dfe.xml 20190618090157-dist-dfe-soap.xml 20190618090156-con-dist-dfe.xml 20190618090156-con-dist-dfe-soap.xml 20190618090143-dist-dfe.xml 20190618090143-dist-dfe-soap.xml 20190618090142-con-dist-dfe.xml 20190618090142-con-dist-dfe-soap.xml LOG.TXT pcn.txt

o txt tem apenas o comando CTe.DistribuicaoDFePorUltNSU(MS,26770818000268,0) LOG.TXT pcn.txt 20190618080603-dist-dfe.xml 20190618080603-dist-dfe-soap.xml 20190618080601-con-dist-dfe.xml 20190618080601-con-dist-dfe-soap.xml

Boa tarde mesmo erro

Atualizei agora.. voltei tudo para as configuracoes padroes ( sem as minhas alteracoes) ae ele retorna ERRO:Rejeicao: Cabecalho - a Versao do arquivo xml nao e Suportada

Segue arquivos eu ate tentei essa abordagem para questao do schema com o mesmo nome SetComumConfig(ACBrNFe1.Configuracoes); .............. SetComumConfig(ACBrBPe1.Configuracoes); ACBrNFe1.Configuracoes.Arquivos.PathSchemas:=ApplicationPath + 'Schemas\NFe'; ACBrCTe1.Configuracoes.Arquivos.PathSchemas:=ApplicationPath + 'Schemas\Cte'; ACBrGNRE1.Configuracoes.Arquivos.PathSchemas:=ApplicationPath + 'Schemas\GNRe'; ACBreSocial1.Configuracoes.Arquivos.PathSchemas:=ApplicationPath + 'Schemas\eSocial'; ACBrReinf1.Configuracoes.Arquivos.PathSchemas:=ApplicationPath + 'Schemas\Reinf'; ACBrBPe1.Configuracoes.Arquivos.PathSchemas:=ApplicationPath + 'Schemas\BPe'; 20190614163920-con-dist-dfe.xml 20190614163920-con-dist-dfe-soap.xml 20190614163922-dist-dfe.xml 20190614163922-dist-dfe-soap.xml LOG.TXT pcn.txt

Boa tarde estou tentando utilizar o metodo CTe.DistribuicaoDFePorUltNSU no monitor plus ( compilei e atualizei ele hj dia 14/06/19) porem toda vez que tento a consulta CTe.DistribuicaoDFePorUltNSU ele me retorna falha de schema oq posso fazer ?

Bom dia senhores.. gostaria de saber se o E-Social sera integrado ao monitor, ou se ele devera ser um projeto a parte.. tendo em vista que dia 07/01/18 comeca a sua obrigatoriedade ou se eu fizer a integracao ele podera ser adicionado ao projeto oficial Obrigado

Boa noite.. por acaso alguem teria o codigo zpl ou formato do acbrEtq para etiqueta de envio dos correios ? o modelo atual eh este em anexo desde já agradeco

eu fiz uma alteracao no monitor para setar o path dos schemas do cte manualmente porem agora a resposta que me da é cte.distribuicaodfeporultnsu(MS,MEuCNPJ,0) ERRO: Rejeicao: Falha no esquema xml Rejeicao: Falha no esquema xml eu já copiei os schemas para a pasta A alteracao foi essa no AcbrMonitor1 SetComumConfig(ACBrNFe1.Configuracoes); SetComumConfig(ACBrCTe1.Configuracoes); SetComumConfig(ACBrMDFe1.Configuracoes); SetComumConfig(ACBrGNRE1.Configuracoes); SetComumConfig(ACBrBlocoX1.Configuracoes); AtualizaSSLLibsCombo; ACBrCTE1.Configuracoes.Arquivos.PathSchemas := 'C:\Acbr\Schema\Cte'; <==essa eh a linha nova

Bom dia entao pelo monitor acbrplus nao seria possivel ter as 2 opções.. ou eu teria que alterar o projeto para separar as pastas por documento versao

Ola bom dia na unit DoACBRCteUnit eu inclui um metodo para consultar a distribuicaodfe, seguindo os mesmos passos utilizado pela nfe porem ele fica me retornando uma rejeicao ao executar o metodo: Erro:RejeicaoCabecalho - A versao do arquivo xml nao e suportada Rejeicao: Cabecalho - A Versao do arquivo xml nao e suportada porem quando eu executo os demais metodos todos dao o retorno OK esta configurado para usar a versao 3.00 do cte pastas de schemas atualizadas else if (Cmd.Metodo = 'distribuicaodfepornsu') or //NFe.DistribuicaoDFePorNSU(cUF, cCNPJ, nNSU) (Cmd.Metodo = 'distribuicaodfeporultnsu')then //NFe.DistribuicaoDFePorUltNSU(cUF, cCNPJ, nUltNSU) begin if not ValidarCNPJ(Cmd.Params(1)) then raise Exception.Create('CNPJ '+Cmd.Params(1)+' inválido.'); try if Cmd.Metodo = 'distribuicaodfepornsu' then ACBrCTe1.DistribuicaoDFePorNSU(StrToIntDef(Cmd.Params(0),0),Cmd.Params(1),Cmd.Params(2)) else ACBrCTe1.DistribuicaoDFePorUltNSU(StrToIntDef(Cmd.Params(0),0),Cmd.Params(1),Cmd.Params(2)); if ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then sTemMais := '1' else sTemMais := '0'; //pog para facilitar a indicacao de continuidade Cmd.Resposta:= Cmd.Resposta+sLineBreak+ '[DISTRIBUICAODFE]'+sLineBreak+ 'versao=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.versao+sLineBreak+ 'tpAmb=' +TpAmbToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.tpAmb)+sLineBreak+ 'verAplic='+ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.verAplic+sLineBreak+ 'cStat=' +IntToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat)+sLineBreak+ 'xMotivo=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo+sLineBreak+ 'dhResp=' +DateTimeToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.dhResp)+sLineBreak+ 'indCont=' +sTemMais+sLineBreak+ 'ultNSU=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU+sLineBreak+ 'maxNSU=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.maxNSU+sLineBreak+ 'XML=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.XML+sLineBreak; //'NomeArq=' +ACBrCTe1.WebServices.DistribuicaoDFe.NomeArq; J := 1; for i:= 0 to ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count-1 do begin if Trim(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.chCTe) <> '' then begin Cmd.Resposta := Cmd.Resposta+sLineBreak+ '[RESCTE'+Trim(IntToStrZero(J,3))+']'+sLineBreak+ 'NSU=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].NSU+sLineBreak+ 'chNFe=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.chCTe+sLineBreak+ 'CNPJ=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.CNPJCPF+sLineBreak+ 'xNome=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.xNome+sLineBreak+ 'IE=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.IE+sLineBreak+ 'dEmi=' +DateTimeToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.dhEmi)+sLineBreak+ // 'tpNF=' +tpCTToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.tpNF)+sLineBreak+ 'vNF=' +FloatToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.vNF)+sLineBreak+ 'digVal=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.digVal+sLineBreak+ 'dhRecbto='+DateTimeToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.dhRecbto)+sLineBreak+ 'cSitNFe=' +SituacaoDFeToStr(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.cSitCTe)+sLineBreak+ 'nProt=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].resCTe.nProt+sLineBreak+ 'XML=' +ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i].XML; J := J + 1; end; end; except on E: Exception do begin raise Exception.Create(ACBrCTe1.WebServices.DistribuicaoDFe.Msg+sLineBreak+E.Message); end; end; end

Na unit DoACBrNFeUnit do projeto Monitor plus metodo consultarNFe tem um erro no grupo RETEVENTO onde na linha 255 esta 'chNFe='+ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.retEvento.Items[J].RetInfEvento.NomeArquivo+sLineBreak+ de vez 'chNFe='+ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.retEvento.Items[J].RetInfEvento.chNFe+sLineBreak+ e na linha 256 esta 'tpEvento='+ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.retEvento.Items[J].RetInfEvento.chNFe+sLineBreak+ de vez 'tpEvento='+TpEventoToStr(ACBrNFe1.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.retEvento.Items[J].RetInfEvento.tpEvento)+sLineBreak+ em anexo a unit corrigida DoACBrNFeUnit.pas

Boa tarde sim renomei tudo o componente, para ficar no padrao dos demais documentos DFE.. dentro do zip tem a pasta de pacotes onde aponta para os nomes corretos já

Segue as minhas atualizações de hj Refatorei o pacote do da GuiaGNRe para ficar no mesmo padrao dos dos demais DFE ( apenas para fortes) fiz uma alteração na interface do monitor para incluir o campo de informar o INI do web-service gnre a impressão e o pdf ainda nao funcionam ( eu nao sei como trabalhar com relatorios) fiz oq pude copiando dos demais modelos de impressao no anexo apenas os arquivos alterados apenas mantive a arvore de pastas trunk2.rar

valeu

Bom dia.. com o openSSL parece que ele nao carrega o certificado ele retorna apenas erro interno 10091 e erro http 500 quando ao modelo do pdf tanto no demo quando no projeto da erro ACBRGNREGUIAFRFortes linha 386 onde tem a instrução close; ele da um erro Project AcbrMonitor reaise execptsio Class External: SIGSEGV ate addree 8e5ec6 porem eu to terminando de restrutaurar ele para o novo padrao para ficar igual aos demais modelos de impressao

Boa tarde comecei a realizar a integracao do monitor plus com o componente GNRE em anexo as units que ja alterei ate o presente momento tem: 1 consulta configuracao do UF e codigo receita 2 Ler Ini e gera a guia, salva xml, envia Sefaz Problemas conhecidos: 1 funciona apenas com capicon, no openssl da erro ( nao entendi pq) 2 na hora de gerar a impressão ou pdf da erro na unit AcbrGNReGuiaFRFortes na linha 386 Exemplo de Comandos: GNRE.consultaconfig(MS,100102) GNRE.gerarguia("c:\acbr\guiaTeste.ini") GNRE.imprimirgnrepdf("C:\acbr\xmls\Guia-guia.xml") Exemplo Iini [Emitente] tipo=1CNPJ - 2 CPF IE= id=CNPJ/CPF RazaoSocial= Endereco= Cidade=02704 => Codigo da Cidade no ibge sem o codigo do UF ( apenas o 5 ultimos digitos) UF=MS Cep=##### Telefone=######### [Complemento] IdenfiticadorGuia=35 => numero de controle interno tipoDocOrigem=10 => consultar tabela DocOrigem=5567 detalhamentoReceita= produto= [Referencia] convenio= receita=100099 ufFavorecida=PA dataVencimento=22/07/2016 dataPagamento=22/07/2016 referenciaAno=2016 referenciaMes=07 referenciaParcela= referenciaPeriodo= ValorTotal=2.00 ValorPrincipal= [Destinatario] tipo=1CNPJ - 2 CPF ie= id= razaosocial= cidade= [CampoExtra] codigo= tipo= valor= MonitorGNRE.rar

tambem com o mesmo erro