d2mpavan

Fiz os ajustes nos dois arquivos que você mencionou (estão em anexo). Mas ainda não emite o CFe. Dá o mesmo erro. ParametrizacaoDeAtivacao.xml ParametrizacaoDeUso.xml AD20201030103935-185888-env.xml

Certo. Mas eu ajustei para Simples Nacional e mesmo assim não funcionou. Config.emit_cRegTrib := TpcnRegTrib( cbxRegTributario.ItemIndex ); Config.emit_cRegTribISSQN := TpcnRegTribISSQN( cbxRegTribISSQN.ItemIndex ); Config.emit_indRatISSQN := TpcnindRatISSQN( cbxIndRatISSQN.ItemIndex ); O que devo fazer então para gerar corretamente, como já estava ocorrendo? Porque como está, nem mesmo pelo SatTeste está validando os XMLs.

Bom Dia! Apenas reforçando. O erro está ocorrendo também no "SatTeste". Mesmo informando CSOSN 400 ele gera a Tag ICMSSN102

Boa Noite! Após atualização, o sistema passou a gerar a TAG do ICMS de forma incorreta, ou seja, sempre como <ICMSSN102>, provocando falha na validação do XML pelo SAT. Veja abaixo parte do código gerado pelo próprio "SATTeste" do Exemplo: -<ICMS> -<ICMSSN102> <Orig>0</Orig> <CSOSN>400</CSOSN> </ICMSSN102> </ICMS> Vou anexar o XML completo para análise. Não encontrei nada sobre isso, por isso abri um novo tópico. Se alguém puder me orientar o que devo fazer para corrigir, ficarei grato. Att Daniel AD20201029234707-610657-env.xml

Bingo BIG!!! Era isso mesmo! Nossa, não sei como agradecer. Muito obrigado mesmo! Era um arquivo que eu estava trabalhando nele e havia sido desenvolvido no XE. Mas, como eu atualizei o ACBR, havia me esquecido dele porque estava compilando normal antes da atualização. Valeu BigWings! Suas "Grandes Asas" te levarão onde quiser! Agradeço imensamente também ao Juliomar que teve paciência e também dedicou seu precisos tempo para me ajudar e me ensinar! Vocês são demais! Valeu pessoal do ACBR! Por isso, cada dia que passa eu uso ainda mais a ferramenta. Grande abraço! Daniel

Vou Verificar. Obrigado!

Uso o CurrentEdit, que é a versão da RX para o Delphi 7. Vou tentar inverter

O erro continua... Essa máquina sempre teve apenas o Delphi 7 instalado nela. Nunca em nenhum momento foi instalado outra versão. Exatamente para não ter esse tipo de problema. O curioso é que os Warnings estão exatamente na ZLibExGZ... Não sei mais o que fazer. Obrigado a todos que tentaram me ajudar. Caso tenham mais alguma sugestão... Valeu!

Desculpe minha ignorância! Não sabia que a versão do compilador era diferente da IDE...

Vou fazer e aviso. Muito obrigado pela ajuda. Assim que terminar eu reporto se deu certo. Valeu!

Mas eu não tenho dois Delphi no mesmo Windows. Somente o 7 nessa máquina. Se quiser anexo a lista de aplicativos instalados.

Do compilador do ACBR? Se for, como resolvo esse problema? Porque não adianta colocar o arquivo no local da ZLIB. Vai dar erro de versão, acredito. Essa RXCurrEdit.pas é pra outra versão do Delphi. Mais um detalhe. Estava funcionando normalmente. Após a atualização apareceu esse problema.

Vi que não tem erro de instalação. Mas porque o instalador reportou a Versão 15 na instalação e não a 7? Acredito que se tivesse reportado a 7, o componente de terceiro que está dando problema teria pego o arquivo corretamente, no caso o CurrEdit.pas e não o RXCurrEdit.pas, que está sendo solicitado e é de uma outra versão do Delphi. Veja que no log mostra versão 15... COMPILANDO OS PACOTES... Compiling package C:\Users\DANIEL\OneDrive\Sistemas\ACBR\Pacotes\Delphi\synapse\ACBr_synapse.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "C:\Users\DANIEL\OneDrive\Sistemas\ACBR\Pacotes\Delphi\synapse\ACBr_synapse.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation 37785 lines, 0.48 seconds, 270720 bytes code, 29325 bytes data. Compilation success Pacote "ACBr_synapse.dpk" compilado com sucesso. Compiling package C:\Users\DANIEL\OneDrive\Sistemas\ACBR\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "C:\Users\DANIEL\OneDrive\Sistemas\ACBR\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\Users\DANIEL\OneDrive\Sistemas\ACBR\Fontes\ACBrComum\ACBrImage.pas(220) Warning: Combining signed and unsigned types - widened both operands Warning: Unit 'ACBrZLibExGZ' implicitly imported into package 'ACBr_Comum' Warning: Unit 'ACBrZLibEx' implicitly imported into package 'ACBr_Comum' Warning: Unit 'ACBrZLibExApi' implicitly imported into package 'ACBr_Comum' 29156 lines, 0.19 seconds, 134780 bytes code, 14909 bytes data. Compilation success Pacote "ACBr_Comum.dpk" compilado com sucesso. Compiling package C:\Users\DANIEL\OneDrive\Sistemas\ACBR\Pacotes\Delphi\ACBrComum\DCLACBr_Comum.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "C:\Users\DANIEL\OneDrive\Sistemas\ACBR\Pacotes\Delphi\ACBrComum\DCLACBr_Comum.dpk" Borland Delphi Version 15.0

O arquivo não existe mesmo porque, no caso, a instalação do ACBR deveria, ao meu entendimento, procurar o arquivo "CurrEdit.pas" que é do Delphi 7 e não o "RXCurrEdit.pas" que é de uma versão mais nova do Delphi. Quanto ao erro reportado na compilação é Arquivo não encontrado (File not Found).

Não. só tenho um Delphi instalado na maquina. Quanto ao componente RXLIB, não é um componente modificado. Inclusive já o utilizo há bastante tempo, devidamente baixado e instalado. Tenho a versão 15 (XE) em outro PC. Mas ele já foi desativado. Como disse acima, já apaguei a pasta do ACBR e baixei novamente. Reinstalei o ACBR e o erro continua.

Bom Dia! Apenas para complementar, já apague a pasta e baixei novamente. Reinstalei e continua reportando a falta do arquivo. Notei que o instalador está reportando a Versão 15 e não a 7 do Delphi, que tenho instalado nesse equipamento. Não sei como fazer com que compile no 7. Se alguém puder me ajudar, agradeço imensamente. Obs: Sei que a versão 7 deve ser urgentemente substituída, mas esse é um projeto que ainda não tive tempo de migrar para outra versão. Desde ja agradeço, Daniel

Bom Dia! Obrigado por reportarem. Segue anexo o Log de Instalação. log_Delphi_7_Win32.txt

Boa Noite a todos! Após atualizar o ACBR, o qual estou instalando apenas os componentes referentes ao Boleto, ao compilar um dos projetos que já estavam funcionando, estou me deparando com um erro inesperado. Não está encontrando o Arquivo "RxCurrEdit.pas" da Pasta Fontes\Terceitos\ZLibExGZ. Alguém poderia me ajudar, por gentileza. Não sei mais o que fazer. Muito Obrigado! Daniel

Bom Dia Senhores! Estou validando um cliente no Banco do Brasil conforme abaixo: Cart/Variacao : 17/019 SIMPLES COM REGISTRO Tipo Convenio : 3 Bco: Numera - Cliente: Emite/expede Situacao : 1 Normal com retorno Configurei com Responsável da Emissão o Banco (tbBancoEmite), porém o Nosso número é gerado com o Número do convênio seguido de zeros à direita, o que seria o Nosso número (Ex: 25947540000000000). Por esse motivo o banco está rejeitando o arquivo remessa. Como devo proceder para gerar corretamente? Desde já agradeço! Att. Daniel

Muito Obrigado Juliomar!

Ok Daniel! Onde baixo os fontes? Obrigado, Daniel

Bom Dia! Poderiam informar o local para download do ACBMonitorPlus? Não sou assinante do SAC e em pesquisas realizadas não consegui encontrar. Gostaria da última versão livre, se é que ainda vocês estão disponibilizando. Desde já agradeço. Att. Daniel

Boa Tarde Pessoal! A impressora Térmica Diebold Modelo IM453HU Serve para impressão do cupom fiscal do SAT? Desde já agradeço! Daniel

Boa Noite Pessoal! Em minhas últimas postagens eu estava com dificuldades para integrar com uma api e enviar arquivos JSon. Graças à ajuda de nosso amigo "DATILAS" (Douglas Átilas), consegui implementar com sucesso a ferramenta de integração. Porém, praticamente de 98 a 99% das ordens enviadas (arquivos JSon) tem seu envio sem nenhum problema, sendo recebido integralmente pelo web service da api. O restante que minha ferramenta não consegue enviar é que eu não estou conseguindo resolver a questão, porque se eu copio uma dessas ordens que apresentou problema e tento enviar pelo "boomerang" ou pela "Restlet Client" do Google", a mesma é enviado normalmente. Alguém poderia me auxiliar nessa questão, por gentileza? Segue abaixo uma das ordens que apresentam problema em minha ferramenta: [{"Driver":{"PhoneCountry":"+55","PhoneNumber":"19 994559352"},"Customer":{"DocumentType":"CNPJ","DocumentNumber":"11229082000167"},"OrderType":1,"OrderID":"229551","OrderNumber":"229551","Sequence":"3","OrderDescription":"NF-e","OrderDescriptionDocuments":"NF-e","SourceAddress":{"Address":"RUA KINITI MORI, 110","Address2":"COMENDADOR MARIO DEDINI","ZipCode":"13413069","City":"PIRACICABA","State":"SP","Country":"BRASIL","Name":"PIRACICABA CARNES E DERIVADOS EIRELI","Responsibility":"REGINALDO","PhoneCountry":"+55","PhoneNumber":"(19)3917-0260"},"DestinationAddress":{"Address":"AV. RIO DAS PEDRAS, 192","Address2":"PIRACICAMIRIM","ZipCode":"13420520","City":"PIRACICABA","State":"SP","Country":"BRASIL","Name":"BAR PANTERA","Responsibility":"DIJALMA","PhoneCountry":"+55","PhoneNumber":"19 3426 2942"},"Documents":[{"DocumentID":"229551","DocumentNumber":"229551","Volumes":[{"VolumeID":"1","Count":1,"BarCode":"0","Read":1}]}],"Observation":"RAZAO SOCIAL: DJALMA PERES FARIAS ME ","DepartureDate":"2019-10-08T00:00:00"}] Para enviar essa ordem, ela é gerada em um TMemo e depois enviada pelo código abaixo: Link do Manual da API: https://api.tudoentregue.com.br/Documentacao/ Segue rotina para envio... function TFExportaEntrega.EnviarJSon(caminho: String; ArqJSon: TMemo): Boolean; Var code: Integer; sResponse, url: String; JsontoSend, AResponseContent: TStringStream; iStatusCode: Integer; http: TIdHTTP; Handler: TIdSSLIOHandlerSocketOpenSSL; Begin JsontoSend := TStringStream.Create(ArqJSon.Text); AResponseContent := TStringStream.Create(''); http := TIdHTTP.Create(Nil); Handler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); Try http.Request.CharSet := 'utf-8'; http.Request.ContentType := 'application/json'; http.Request.CustomHeaders.AddValue('AppKey', '58fb05c3-4e8b-4929-b7df-95bd261035c9'); http.Request.CustomHeaders.AddValue('RequesterKey', '629eda6f-9df5-40e7-a94e-4c54cec83a15'); http.IOHandler := Handler; http.Response.ContentType := 'application/json'; http.Response.CharSet := 'utf-8'; url := 'http://api.tudoentregue.com.br/v1' + caminho; Try http.Post(url, JsontoSend, AResponseContent); Except On E:Exception Do Begin Memo_Resp.Lines.Add('Response Content : '); AResponseContent.Position := 0; Memo_Resp.Lines.LoadFromStream(AResponseContent); Memo_Resp.Lines.Add('Error on Response Code: ' + InttoStr(http.ResponseCode)); Memo_Resp.Lines.Add('Error on Response Text: ' + http.ResponseText); Memo_Resp.Lines.Add('Error on Request: ' + sLineBreak + E.Message); EnviarJSon := false; exit; End; End; EnviarJSon := True; Finally JsontoSend.Free; AResponseContent.Free; http.Free; Handler.Free; End; end; Se alguém puder me ajudar ficarei muito grato pois não sei mais o que fazer. Att. Daniel

Boa Tarde Pessoal! Em minha ultima postagem o Datilas me ajudou demais (Muito Obrigado mesmo)! Consegui enviar os motoristas conforme a orientação dele e está funcionando perfeitamente. Porém, agora preciso enviar as ordens, e deveriam seguir as mesmas regras mudando apenas o caminho (orders). Mas não está enviando e me retorna erro 400 - Bad Request. Segue abaixo o código, caso alguém possa me ajudar. procedure TForm1.Button1Click(Sender: TObject); Var code: Integer; sResponse: String; Json: String; JsontoSend, AResponseContent: TStringStream; iStatusCode: Integer; http: TIdHTTP; Handler: TIdSSLIOHandlerSocketOpenSSL; Begin Json := '{"Driver": {"PhoneCountry": "+55","PhoneNumber": "19999690130"},"Customer": {"DocumentType": "CNPJ","DocumentNumber": "11229082000167"},"OrderType": 1,"OrderID": "123456","OrderNumber": "123456","OrderDescription": "NF-e",'; Json := Json + '"OrderDescriptionDocuments": "NF-e","SourceAddress": {"Address": "Rua Rahal, 71","Address2": "Jardim Santa Mena","ZipCode": "07097020","City": "Guarulhos","State": "Sao Paulo.","Country": "Brasil","Name": "Active Corp"'; Json := Json + ',"Responsibility": "Everton Implantacão","PhoneCountry": "+55", "PhoneNumber": "11988999199"},"DestinationAddress": {"Address": "Rua Sales, 812","Address2": "Cabucu","ZipCode": "07144260","City": "Guarulhos","State": "Sao Paulo","Country": "Brasil"'; Json := Json + ',"Name": "Everton Destinatario","Responsibility": "Everton","PhoneCountry": "+55","PhoneNumber": "1199994-9999"},"Documents": [{"DocumentID": "ID999999","DocumentNumber": "999999999","Volumes": [{"VolumeID": "ID999999","Count": 5,'; Json := Json + '"BarCode": "99999999999999999999","Read": 5}]}],"Observation": "Observação da Ordem para liberação."}'; JsonToSend := TStringStream.Create(Json); AResponseContent := TStringStream.Create(''); http := TIdHTTP.Create(Nil); Handler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); // Memo1.Lines.Clear; Try http.Request.CharSet := 'utf-8'; http.Request.ContentType := 'application/json'; http.Request.CustomHeaders.AddValue('AppKey', '58fb05c3-4e8b-4929-b7df-95bd261035c9'); http.Request.CustomHeaders.AddValue('RequesterKey', '629eda6f-9df5-40e7-a94e-4c54cec83a15'); http.IOHandler := Handler; http.Response.ContentType := 'applicattion/json'; http.Response.CharSet := 'utf-8'; Try http.Post('https://api.tudoentregue.com.br/v1/orders', JsontoSend, AResponseContent); Except On E: Exception Do Begin Memo1.Lines.Clear; Memo1.Lines.Add('Error on Response Code: ' + InttoStr(http.ResponseCode)); Memo1.Lines.Add('Error on Response Text: ' + http.ResponseText); Memo1.Lines.Add('Error on Request: ' + sLineBreak + e.Message); exit; End; End; Memo1.Lines.Clear; Memo1.Lines.Add('Response Content: ' + AResponseContent.DataString); Memo1.Lines.Add('Response Code: ' + InttoStr(http.ResponseCode)); Memo1.Lines.Add('Response Text: ' + http.ResponseText); Finally JsontoSend.Free; AResponseContent.Free; http.Free; Handler.Free; End; end; O arquivo JSon está correto porque foi enviado como exemplo pela empresa do software (ActiveCorp). Se alguém puder me ajudar, ficarei muito grato. Daniel