Ir para conteúdo
  • Cadastre-se

daniel_mirassol

Membros Pro
  • Total de ítens

    136
  • Registro em

  • Última visita

1 Seguidor

Sobre daniel_mirassol

Contact Methods

  • Website URL
    http://www.admcitrino.com.br

Últimos Visitantes

1.487 visualizações

daniel_mirassol's Achievements

Collaborator

Collaborator (7/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

17

Reputação

9

Community Answers

  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
×
×
  • 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.

The popup will be closed in 10 segundos...