Ir para conteúdo
  • Cadastre-se

daniel_mirassol

Membros Pro
  • Total de ítens

    136
  • Registro em

  • Última visita

Tudo que daniel_mirassol postou

  1. 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,
  2. 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;
  3. 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.
  4. 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.
  5. 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
  6. 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 ?
  7. Realmente estou usando o Antigo , vou fazer isso então par ver se resolvemos os problema
  8. 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.
  9. 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
  10. 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.
  11. Diego, boa noite . Deu certo o procedimento ... Valeu pela dica era o que faltava !!!
  12. 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
  13. 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
  14. 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
  15. Estou usando o Fast Report , não testei pelo programa de exemplo . Teria alguma ideia
  16. 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.
  17. 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
  18. 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 ...
  19. 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(); });
  20. 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 ?
  21. 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.
  22. 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.
×
×
  • 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.