Ir para conteúdo
  • Cadastre-se

Paulo Tenório

Membros
  • Total de ítens

    274
  • Registro em

  • Última visita

Tudo que Paulo Tenório postou

  1. Visualizando o log de erros ajuda bastante nesse momento. Realmente ocorreu alguma mudança e foi commitada parcial ou com erros: Compiling package P:\Componentes\ACBr\Pacotes\Delphi\ACBrDFe\ACBrMDFe\DAMDFE\Fortes\ACBr_MDFeDamdfeRL.dpk "C:\Program Files (x86)\Embarcadero\Studio\19.0\bin\dcc32.exe" "P:\Componentes\ACBr\Pacotes\Delphi\ACBrDFe\ACBrMDFe\DAMDFE\Fortes\ACBr_MDFeDamdfeRL.dpk" Embarcadero Delphi for Win32 compiler version 32.0 Copyright (c) 1983,2017 Embarcadero Technologies, Inc. P:\Componentes\ACBr\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fortes\ACBrMDFeDAMDFeRLClass.pas(239) Error: E2034 Too many actual parameters P:\Componentes\ACBr\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fortes\ACBrMDFeDAMDFeRLClass.pas(260) Error: E2034 Too many actual parameters P:\Componentes\ACBr\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fortes\ACBrMDFeDAMDFeRLClass.pas(281) Error: E2034 Too many actual parameters P:\Componentes\ACBr\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fortes\ACBrMDFeDAMDFeRLReg.pas(2146) Fatal: F2063 Could not compile used unit 'ACBrMDFeDAMDFeRLClass.pas' Compilation failure
  2. Nas opções do projeto, adicione os caminhos das units que ele está reclamando ao compilar. Comigo deu certo assim. .
  3. A compilação ele é para ser feita através do Lazarus. No Delphi não conseguirá.
  4. Estou encontrando erro ao compilar o último update: Resposta.Text := StripHTML(UTF8ToString(RespHTTP.Text)); O Lazarus não consegue encontrar a função UTF8ToString e eu também não encontrei em nenhum arquivo da suíte. Alterei a linha: de: Resposta.Text := StripHTML(UTF8ToString(RespHTTP.Text)); para: Resposta.Text := StripHTML(UTF8ToNativeString(RespHTTP.Text)); E resolveu, compilou corretamente.
  5. A idéia é não mudar a rotina de enviar comandos e processar as respostas, que já está criada na aplicação cliente dos usuários atuais. Apenas usufruir das vantagens que podem vir. O ACBrMonitor Plus já tem implementadas várias rotinas complementares que precisariam ser reprogramadas por um usuário interessado em criar outro servidor DW com os componentes ACBr. Temos isso como plano B mas acredito que seja mais ético propor aos pais da criança. Caso não haja interesse na adaptação e nos seja permitido, podemos sim criar um Server DW com os componentes ACBr embarcados, nos moldes do ACBrMonitor Plus atual.
  6. Boa tarde amigos, Estou passando aqui para convidar à todos para conhecer e acompanhar o projeto REST Dataware. O Rest Dataware é uma suíte de componentes que abstrai a complexidade para acesso à dados remotos em uma aplicação construída utilizando a arquitetura multicamadas. Totalmente free e de código fonte aberto para Lazarus e Delphi, assim como o ACBr. O REST Dataware é mais uma iniciativa que visa fortalecer nossa comunidade, reduzindo o tempo de desenvolvimento e permitindo que o desenvolvedor foque naquilo que é importante: as regras de negócio da aplicação. Além disso, diversos usuários satisfeitos com o resultado obtido, inclusive eu, temos enorme interesse de ver o Monitor utilizando essa tecnologia que é extremamente rápida de usar e aplicar, além de ser 100% compatível com Lazarus, Delphis desde a versão 6 até a mais recente, a Tokyo . Com ele, rompemos as barreiras de licenciamento pois, tem driver para ZEOS, FireDAC, UniDAC, AnyDAC e tudo o que existe em relação à plataformas e acesso à dados. Link para o Skype: https://join.skype.com/tpAo84MDZXP5
  7. Boa tarde amigos, Estou passando aqui para convidar à todos para conhecer e acompanhar o projeto REST Dataware. O Rest Dataware é uma suíte de componentes que abstrai a complexidade para acesso à dados remotos em uma aplicação construída utilizando a arquitetura multicamadas. Totalmente free e de código fonte aberto, assim como o ACBr. O REST Dataware é mais uma iniciativa que visa fortalecer a comunidade Delphi, reduzindo o tempo de desenvolvimento e permitindo que o desenvolvedor foque naquilo que é importante: as regras de negócio da aplicação. Link para o Skype: https://join.skype.com/tpAo84MDZXP5
  8. Verifique seu loop de itens. o with pag.Add pode estar dentro dele ou de algum outro. Certifique-se de que apenas um seja executado, à não ser que haja um loop prevendo diferentes meios de pagamento.
  9. Juliomar, talvez o Regys faça a verificação de disponibilidade de internet/SEFAZ antes de iniciar o processo de geração ou tenha criado outro caminho para evitar o referido problema. O vídeo de demonstração dele é excelente e instigante mas existem muitos detalhes e situações adicionais que não foram mostrados e que precisam de intervenções para funcionar corretamente. No início ele me deu muita atenção e orientação sobre essas implementações adicionais e o local correto de fazer as capturas e complementos. Com esse apoio fui avançando bem mas hoje em dia ele nem me responde mais de tantas dúvidas e problemas que relatei no Telegram kkkk. Foi uma pena a Live dele sobre o assunto não ter sido realizada e nem remarcada. Segundo ele, um exemplo mais completo seria apresentado e no final haveria um espaço para questionamentos e dúvidas.
  10. Resolvido com a dica do BigWings. Removi meus remendos. Merece ser implementado automaticamente no componente, evitando situações como a minha. Obrigado!!!
  11. Acho que você matou a charada BigWings !!! Vou tentar esse recurso de gravar no evento indicado.
  12. No teste que estou fazendo, desligo a rede antes do comando ACBRECF1.FechaCupom, Com isso, caio no evento TransmitError da NFCe e faço o tratamento lá. Talvez isso esteja causando o problema.
  13. Antes do GerarNFe, o arquivo XML em disco tem apenas as tags Ide, Emit, Total (zerado) e Transp. As tags Det e Pag só aparecem após o GerarNFe e Total permanece todo zerado.
  14. Não encontrei nenhum ponto onde poderia estar zerando. Como não tive tempo para estudar os fontes, decidi rodar uma consulta no banco e alimentar novamente a tag de totais após o GerarNFe. Minha dúvida era somente se eu estava fazendo algo errado.
  15. Boa tarde amigos, Implementei a NFCe com o recuros do componente ACBrECFVirtualNFCe. Sinto falta de um demo, exemplo ou documentação mais abrangente mas tenho conseguido contornar minhas dificuldades com gambiarras e experiências do tipo "tentativa e erro". Está tudo em pleno funcionamento atualmente, exceto, a contingência off-line. Depois de sai tentanto interceptar o melhor momento para alterar o tipo de emissão, descobri que o melhor momento é no evento OnTransmitError, só que esbarrei no problema de ter que gerar novamente o XML para conseguir fazer as mudanças necessárias: Tratado := True; ACBrNFCe.Configuracoes.Geral.FormaEmissao := teOffLine; ACBrNFCe.NotasFiscais[0].NFe.Ide.tpEmis := teOffLine; ACBrNFCe.NotasFiscais[0].NFe.Ide.xJust := 'Problemas técnicos no envio do documento eletrônico'; ACBrNFCe.NotasFiscais[0].NFe.Ide.dhCont := now; ACBrNFCe.NotasFiscais.GerarNFe; // <--- gero o novo xml alterado Perfeito, problema 90% resolvido!!! Só que a tag de totais ficou toda zerada, não herdou nada do XML anterior. Perguntas: 1- É isso mesmo que precisa acontecer, zerar os totais e precisar atribuir novamente? 2 - Tentei alterar os valores já armazenados em ACBrNFCe.NotasFiscais mas não surtiu efeito algum. Existe alguma forma de fazer essas alterações sem chamar o GerarNFe e perder o totalizador? Obrigado.
  16. Bom dia amigos. Tenho enfrentado muitos problemas de transmissão do XML de NFCe. Preciso implementar a emissão em contingência nesses casos para transmissão posterior. Alguém aqui utiliza o ACBrECFVirtualNFCe para me indicar em qual evento devo tratar isso e como preparar o envio posterior? Obrigado
  17. Os valores principais do objeto estou conseguindo capturar e gravar no banco mas percebi que os valores dos totalizadores não estão sendo carregados do .ini para o objeto. utilizo o trecho abaixo mas retorna zero para os totalizadores de aliquotas de ICMS e todos os demais também. Estou fazendo algo errado? WITH ACBRECF1.DadosReducaoZClass.ICMS DO BEGIN TOTALIZADOR_RZ := Indice + Tipo + StrZero(FloatToStr(Aliquota * 100), 4); ECF_REDUCAO_DETALHE.Insert; ECF_REDUCAO_DETALHE.FieldByName('TOTALIZADOR').AsString := TOTALIZADOR_RZ; ECF_REDUCAO_DETALHE.FieldByName('VALOR').AsCurrency := FormPrincipal.ACBRECF1.DadosReducaoZClass.ICMS.Total; ECF_REDUCAO_DETALHE.Post; END;
  18. Já fiz isso Daniel. Mas o problema nem era esse, o problema é que eu estava usando uma propriedade que era do ECF mas que não existe no ECFVirtual. Agora já acertei tudo. Obrigado
  19. Boa tarde, Estou tentando obter os dados da redução Z emitida com ACBrECFVirtual em ambiente NFCe. Criei uma variável do tipo TACBrECFDadosRZ e tento preenchê-la com: ReducaoZ := ACBRECF1.DadosReducaoZClass; Quando acesso os dados dessa variável, eles não apresentam as informações. A impressão da redução é feita normalmente e apresenta os valores corretamente. Existe uma forma mais aconselhável ou correta de obter esses dados que são impressos para guardar na tabela de reduções? Obrigado.
  20. Eu recebo esse erro quando mudo de porta sem reconfigurar o componente.
  21. -- 13/07 13:26:02:649 - Imprimir, Copias:1, DecodificarTags:SIM, TraduzirTags:SIM -- 13/07 13:26:02:649 - Cancelamento </linha_simples> N.Serie VIRTUALNFCE Maq 004 v0.1.0a e -- 13/07 13:26:02:718 - Imprimir, Copias:1, DecodificarTags:SIM, TraduzirTags:SIM -- 13/07 13:26:02:718 - Cancelamento </linha_simples> N.Serie VIRTUALNFCE Maq 004 v0.1.0a
  22. Boa tarde amigos, mais uma vez trago aqui uma ocorrência observada nos testes de minha conversão PAF-ECF em NFCe. Desta vez observei que o cancelamento da operação durante o pagamento está duplicando o envio da string de fechamento do cupom não-fiscal virtual, conforme o log anexo e o trecho abaixo: -- 13/07 13:26:02:649 - Imprimir, Copias:1, DecodificarTags:SIM, TraduzirTags:SIM -- 13/07 13:26:02:649 - Cancelamento </linha_simples> N.Serie VIRTUALNFCE Maq 004 v0.1.0a Oper. PAULO 13/07/17 13:26:02 </linha_dupla> </corte_total> -- 13/07 13:26:02:649 - TraduzirTag(</linha_simples>) -> ------------------------------------------------ -- 13/07 13:26:02:649 - TraduzirTag(</linha_dupla>) -> ================================================ -- 13/07 13:26:02:664 - TraduzirTag(</corte_total>) -> [LF][ESC]w -- 13/07 13:26:02:664 - EnviarStringDevice( Cancelamento[CR][LF]------------------------------------------------[CR][LF]N.Serie VIRTUALNFCE Maq 004 v0.1.0a[CR][LF]Oper. PAULO 13/07/17 13:26:02[CR][LF]================================================[CR][LF] [LF][ESC]w[CR][LF]) -- 13/07 13:26:02:718 - Imprimir, Copias:1, DecodificarTags:SIM, TraduzirTags:SIM -- 13/07 13:26:02:718 - Cancelamento </linha_simples> N.Serie VIRTUALNFCE Maq 004 v0.1.0a Oper. PAULO 13/07/17 13:26:02 </linha_dupla> </corte_total> POS_PRINTER.LOG.txt
  23. Atualmente eu estou correndo contra o tempo. Semana que vem abre uma filial nova já com NFC-e, por isso optei pela adaptação. O importante para agora é deixaqr funcionando, depois, com calma eu vou depurando para saber em que momento a acentuação causa o erro.
×
×
  • 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.