Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

d2mpavan

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    109

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por d2mpavan

    ACBRSAT - Erro na geração da Tag do ICMS

    em ACBrSAT

    Postado

    Certo. Mas eu ajustei para Simples Nacional e mesmo assim não funcionou.

    image.thumb.png.24facef41d7ef309f5565a003491ce56.png

        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.

    ACBRSAT - Erro na geração da Tag do ICMS

    em ACBrSAT

    Postado

    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

    Erro ao Compilar após Atualização do ACBR - ZLibExGZ

    em Dúvidas Gerais sobre o ACBr

    Postado

    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

    • Curtir 1

    Erro ao Compilar após Atualização do ACBR - ZLibExGZ

    em Dúvidas Gerais sobre o ACBr

    Postado

    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

    Erro ao Compilar após Atualização do ACBR - ZLibExGZ

    em Dúvidas Gerais sobre o ACBr

    Postado

    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

     

    Erro ao Compilar após Atualização do ACBR - ZLibExGZ

    em Dúvidas Gerais sobre o ACBr

    Postado

    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 

    Banco do Brasil - Gerar Nosso Número Zerado

    em ACBrBoleto

    Postado

    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

    Download

    em ACBrMonitor PLUS

    Postado

    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

    Envio de arquivo JSon

    em Dúvidas não relacionadas ao ACBr

    Postado

    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

     

    Integrar com API - ActiveCorp

    em Dúvidas não relacionadas ao ACBr

    Postado

    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

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.