[Mundanças Ct-e 4.0 captura de dados Retorno WebService]

Entendi, teria me passar um exemplo de como proceder, estou com o exemplo aberto mas não consegui , fazer funcionar 

  usei este código que peguei no exemplo do ACBR mas o Count retornou  0

for i := 0 to ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Count -1 do

 

Grato,

 

[Mundanças Ct-e 4.0 captura de dados Retorno WebService]

Bom dia, 

Com a mudança para a versão 4.0 estou tendo problema na captura do retorno do WebService para pegar o Status, Protoolo, etc ...  Estou colocando parte do meu código que faz a captura que não está funcionando mais na 4.0 . Alguém poderia me ajudar ?

for i_richtext:= RichEditStatusRetorno.lines.count - 1 downto 0 do
    begin
      if i_richtext > 0 then
       RichEditStatusRetorno.lines.delete(i);
    end;

    // replicando CTE  ------ Aqui não pega mais na versão 4.0
    for i:= 0 to ACBrCTe1.WebServices.Retorno.CteRetorno.ProtDFe.Count -1 do
    begin
      CopyFile(Pchar(v_mesano + ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].chDFe+'-cte.xml'),            Pchar(QryPesqFilialCTE_PATH_AVERBACAO_SEGURO.AsString + '\' + ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].chDFe+'-cte.xml'), False);

      v_serie := copy((ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].chDFe),25,1);
      v_id_nf := strtoint(copy((ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].chDFe),26,9));

      QryPesqCtrc.Close;
      QryPesqCtrc.ParamByName('p_ctrc'       ).Value := v_id_nf;
      QryPesqCtrc.ParamByName('p_id_empresa' ).Value := dm1.EmpCod;
      QryPesqCtrc.ParamByName('p_id_filial'  ).Value := dm1.FilCod;
      QryPesqCtrc.ParamByName('p_ser_ctrc'   ).Value := v_serie;
      QryPesqCtrc.Open;

      QryAtualizaCte.Close;
      QryAtualizaCte.ParamByName('p_id').Value := QryPesqCtrc.FieldByName('id').value;
      QryAtualizaCte.Open;

      //ACBrCTe1.WebServices.Retorno.cStat
      status := ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].cStat;
      if status = 100  then
      begin
        QryAtualizaCte.Edit;
        QryAtualizaCte.FieldByName('CTE_ENVIADA'               ).value    := 'SIM';
        QryAtualizaCte.FieldByName('CTE_NUM_PROTOCOLO_USO'     ).AsString := ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].nProt;
        QryAtualizaCte.FieldByName('CTE_NUM_RECIBO'            ).AsString := ACBrCTe1.WebServices.Retorno.CTeRetorno.nRec;
        QryAtualizaCte.FieldByName('DATA_MOV'                  ).Value    := dm1.RetonaHoraFusoHorario;
        QryAtualizaCte.FieldByName('CTE_NUM_CHAVE_CANCELAMENTO').value := null;
        QryAtualizaCte.FieldByName('CTE_DATA_CANCELAMENTO'     ).value := null;

 

[Geração de XML sem enviar]

Obrigado deu certo .

[Geração de XML sem enviar]

Diego, boa tarde ! 

Obrigado pelo retorno, sim estou fazendo como o modelo acima , só que não estou conseguindo salvar o arquivo XML .

Rotina que ja funciona em Delphi :

begin

  QryNotaFiscal.Close;
  QryNotaFiscal.ParamByName('p_id').Value := p_id_nota_fiscal;
  QryNotaFiscal.Open;

  GerarNFe(vAux);
  ACBrNFe1.NotasFiscais.Imprimir;

   ----

    * preciso salvar o XML em um diretorio \conferencia\ xxxx.xml que foi demonstrado na impressão , ou seja, quando fechar a visualização salvar o arquivo XML

   ----
end;

Obrigado.

 

[Geração de XML sem enviar]

bom dia , 

Gostaria de uma ajuda, como faço para gerar xml de uma  NFe antes de Enviar , para validar os dados . Vi que hoje é gerado um XML na pasta \LOG  antes de enviar.

Preciso que seja gerado este XML , o usuário visualize para depois enviar .

Há possibilidade de fazer isso ? Caso afirmativo me de uma dica .

 

Obrigado.

[AcbrNFSeX - Erro Envio de NFs-e - HTTPS]

bom dia, 

estou com problema no envio da NFS-eX e não consigo encontrar o problema, já atualizei a pasta schemas, dlls, etc . Estou com os fontes ACBR atualizados em Maio/2023

Anexo o print do problema 

 

[ACBRNFSeX - Provedor Fiorilli Balsamo - Alteração de URL]

Bom tarde, 

A url da cidade de Balsamo-SP foi alterada , segue a nova URL:

http://177.39.199.170:8085/IssWeb-ejb/IssWebWS/IssWebWS?wsdl

No entanto, os fontes  estão com o endereço antigo ,  li no manual de implantação do NFSeX ,  mas não esta conseguindo alterar no arquivo ACBrNFSeServicos.ini.

Altero mas não salva como pode ser observado no print anexo.

Qual o procediemento correto à fazer ?

 

[Erro ao Enviar NFSE para Provedor Fiorilli - Sincrono does not match an operation]

Realmente estou usando o Antigo , vou fazer isso então par ver se resolvemos os problema 

[Erro ao Enviar NFSE para Provedor Fiorilli - Sincrono does not match an operation]

Italo, boa noite ! 

Como está os parametros dp seu Arquivo INI  do Fiorilli e os parametros da cidade de Balsamo ?

Temo como enivar um print de como estão ...

 

Obrigado.

[Impressão da GNRE não aparece a seleção de Impressora - Fast Report]

deu certo . obrigado.

[Erro ao Enviar NFSE para Provedor Fiorilli - Sincrono does not match an operation]

boa tarde, 

Estou tentandfo enviar  NFSe para o Provedor Fiorilli para Prefeitura da cidade de Balsamo-SP , e esta apresentando um erro na validação (Sincrono does not match an operation). Procurei para saber o que possa ser mas não encontrei nada. 

Meus fontes estão atualizados até 15/04. Anexo print do erro.

Obrigado.

Daniel JR

[Impressão da GNRE não aparece a seleção de Impressora - Fast Report]

Estou usando o componente ACBRGNREGuiaFR (Fast Report) com os parametros setados conforme imagem em anexo , mas na hora da impressão não parace a opção para o usuário  selecionar a impressora , a impressão vai direto para default no Windows . 

OS demais componente (ACBRDANFEFR, ACBRCTREFR, Etc. ) por exemplo aparece normal , permite alterar a impressora.

Atenciosamente.

 

Daniel JR.

 

[Erro ao Imprimir XML - Guia]

Diego, boa noite . Deu certo o procedimento ... Valeu pela dica era o que faltava !!!

[Erro ao Imprimir XML - Guia]

boa tarde , seguindo o tópico fiz as correções , acima conforme o amigo Diego disse , mas mesmo assim não consigo imprimir , passei a utilizar o componente do Fortes e guia sai em branco , o que devo estar fazendo de errado ?

Não sei se estou fazendo o processo correto, estou  clicando em <Criar e Enviar> , depois   <Imprimir Guia XML> ...

Cheguei todos componentes estão ligados corretos, estou utilizando o XML anexo para imprimir a Guia .

Anexo , XMLs e impressão .

 

001-gnre.xml

[Erro ao Imprimir XML - Guia]

boa noite, quando faço o teste pelo exemplo apresenta outro erro ...  Preenchi o exe de exemplo com os mesmo dados meus (teste), certificado, pastas etc

Não funcionou ...

001-gnre.xml 20230320200556-env-lot.xml 20230320200557-rec.xml

[Erro ao Imprimir XML - Guia]

boa tarde,  estou em homologação no ACBRGNRE, estou gerando a guia vai normal, mas quando vou imprimir apresenta um erro de conversão de data e não imprime a guia. 

Alguém sabe como resolver isso ?  Anexo print do erro e xml gerado .

Fontes ACBR atualizados em 14/03/2023.. 

 

 

Obrigado/

001-gnre.xml

[Boleto Banco do Brasil com Aceite igual a 1 ao inves de N]

Estou usando o Fast  Report , não testei pelo programa de exemplo . Teria alguma ideia 

[Boleto Banco do Brasil com Aceite igual a 1 ao inves de N]

Bom dia,

Estou com um problema na homologação do boleto do banco do brasil , Carteira 17 variação 035 . O sistema esta levando no numero 1 no aceito ao inves de levar a letra N, conforme layout. 

Ja olhei no fonte não encotrei em lugar nenhum que passa este valor (1) .

Anexo print da impressão do boleto atraves do acbr banco do brasil e a validação do banco mostrando que tem que ser "N".

 

oBRIGADO.

[Delphi Rest vs Postman]

Anexo o projeto, é muito simples , não sei mais o que fazer  .... Help ME 

Somenente enviar saldo de estoque para o servidor ...  Onde será que estou errando ?

 

funciona assim, conecto na API rest passando os dados d conecção , dai gero um token , tipo Bearer , dai pego os itens faço um PUT nos itens da API do cliente ... mas não funciona , ja tentei de "n" jeto sem sucesso.

 

Ja no Postman funciona normal a mesma configuração , anexo imagem da mesma rotina  debugada no postman enviado normalmente (retornando status = 1)

 

Qualquer duvida estou a disposição. 

 

 

 

ApiAtualEstqMad.rar

[Delphi Rest vs Postman]

Pessoal, bom dia !

Estou precisando de ajuda, fiz um consumo de uma API via postman e funciona tudo perfeito , mas quando tento aplicar no delphi apresenta o erro , alguem sabe me dizer como faço para debugar isso em Delphi , pois acompanhando passo a passo nos componentes REST default do delphi está correto, mas apresenta o erro anexo.

Sou novo em REST delphi, pois uso em PHP e estou migrando a pedido da empresa ...

 

[Envio XML ACBRNFe para um WebService REST Automaticamente]

Daniel Bom dia !

Consegue me enviar um exemplo ?

[Envio XML ACBRNFe para um WebService REST Automaticamente]

Boa noite,

Preciso fazer um complemento no ACBRNfe onde preciso enviar o arquivo XML para o webservice via rest (conforme código abaixo) para que o usuário não tenha que mandar o XML manualmente , mas não estou conseguindo e não achei em lugar nenhum isso.

Consegui fazer login no webservice , pegar a resposta do WebService , tudo funcionando, estou utilizando componente do Delphi mesmo (aba RESTClient): RESTClient, RESTRequest  e RESTResponse.

Consegui montar:

* [Método] URL
[POST] {{url}}/orders/{{id_oc}}/billing/invoice - ok 

* Parâmetros de Cabeçalho (Header)
Authorization [String]  Bearer {{token}} - ok 

Aqui que começa o problema no Body:

- Não estou conseguindo montar o parâmetro de corpo para enviar os XML  ...

* Parâmetros de Corpo (Body)
remittance [String]   - aqui vai o XML da Nota Fiscal e Ordem de Terceiros
symbolic    [String]   - aqui o XML da Nota Fiscal de Venda

Não achei nenhum exemplo no Google. Tenho esta rotina desenvolvida em Angular.js/PHP mas não estou conseguindo transformar em Delphi.

Alguém poderia me ajudar neste post , pois o ACBR já gera o XML, ja gostaria e enviar automaticamente.

 

Exemplo em PHP

$service->put('/notas_xml',function(){3

    // Instanciando a variavel do FrameWork de Requisição
    $request = \Slim\Slim::getInstance()->request();
    $dados   = json_decode($request->getBody());

    try {

        $client = new GuzzleHttp\Client(['headers' => ['Authorization' => 'Bearer '. $dados->token_auto, 'Content-Type'=> 'application/json']]);

        $webrequest = $client->post(
            'http://danel.danieljunior.com.br/api/v1/orders/'.$dados->id_ordem.'/billing/invoices', [
            'body' => json_encode([
                'remittance' => $dados->nota_remessa,
                'symbolic'   => $dados->nota_simbolica])
            ]);


        $promise = $client->sendAsync($webrequest)->then(function($response) {
            $result = $response->getBody();
            echo json_encode(array('status' => true,'texto' => json_decode($result, true)));
        });

        } catch (Exception $e) {
             echo json_encode(array('status' => true,'texto' => json_decode($e->getResponse()->getBody()->getContents(), true)));
        }

    // $promise->wait();

});

 

[ACBRMDFe - Erro de Consulta WebService]

boa tarde amigos,

Após a migração do delphi 10.2.3 para Xe11 esta tela parou de funcionar , apresentando a imagem anexo. 

Os Cte, NFe, NFSe não apresentaram problemas somente o MDF-e

Estou com os fontes ACBR atualizados e bem como todos as DLLS mesmo assim o problema persiste .

Aguem poderia me ajudar em alguma solução ?

 

[Enviar Boletos juntamente com o XML e PDF da NFe]

bom dia, amigos !

Nosso sistema atualmente envia a DANFE, XML das Nfe via e-mail, e depois e gerado outro e-mail enviado os boletos bancários. No entanto, alguns clientes fez uma solicitação para que possamos enviar tudo em e-mail só tanto o boleto , quanto o xml e o pdf da NFe. Já pesquisei algumas formas de fazer mas sem sucesso,  alguém do nosso forum já se deparapu com esta situação que  poderia me ajudar neste proposito ?

Obrigado.

 

[ACBrTEFD - Pegar dados retorno Sitef]

Boa tarde ,

Preciso de uma ajuda de vocês, já tentei de todas as formas pegar os dados retornado pela dll do SITEF, exemplo :  NSU Sitef, NSU Host, Cod Transação , Rede, etc ) para grava em banco de  dados mas não estou conseguindo.

Ja tentei colocar no  ACBrTEFD1DepoisConfirmarTransacoes,  ACBrTEFD1GravarLog, etc mas não consegui pegar .

Como faço para capturar estes dados  ?

 

Anexo exemplo do que preciso.

Obrigado.