Heckler Milas

Boa tarde, @Italo Giurizzato Junior. Meus fontes foram atualizados por último em dezembro de 2024, salvo engano. Farei o download do ACBrCTeDACTeRLRetrato.dfm mais recente e refarei as implementações. Volto a responder este post quando finalizar

Boa noite. Reparei que um dos campos seguia desconfigurado e necessitei fazer mais um ajuste. Segue conjunto de arquivos compactados. FontesModificados.7z

Boa tarde, pessoal. Por conta de alguns problemas já antigos no uso do DANFE resolvi fazer algumas alterações para sanar esses problemas. São eles(os problemas): ACBr + Fortes(4.0.1.3) impressão do DANFE com zoom de 125% ou maior desconfigurada. Códigos de produto muito longos não quebram a linha, por não possuírem espaços ou outro delimitador de quebra, ultrapassando o espaço destinado à ele e sobrepondo o campo ao lado. Quanto ao zoom tentei usar a propriedade AlterarEscalaPadrao, mas não obtive o resultado desejado. (o arquivo NFeTesteAlterarEscalaComZoom mostra o resultado obtido, juntamente do problema do código do produto) Para tanto, criei algumas funções no ACBrUtil.Math e ACBrUtil.Strings. Procurando manter a compatibilidade com todas as versões de IDE que o ACBr se propõe a ter compatibilidade. Junto disso, aproveitando o embalo alterei mais alguns detalhes: removi a propriedade MarcadAgua do DANFE e movi ela ao ACBrDFeReport para que a propriedade ficasse disponível à todos os DA's(documentos auxiliares). Em seguida implementei a marca d'água para o DACTE retrato, retrato A5 e EventoRLRetrato. Todas as implementações nas DA's se referem ao Fortes Report e foram implementadas nos Forms Delphi. Os .lfm não foram modificados. Abaixo segue alguns exemplos dos problemas que tive e os arquivos modificados para mesclar ao fonte principal. Qualquer problema fico no aguardo, à disposição, para ajudar na resolução no que puder. NFeTeste125Zoom.pdf NFeTesteAlterarEscalaComZoom.pdf NFeTesteSemZoom.pdf FontesModificados.7z

Acabo de finalizar os testes e apenas o ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML traz o XML. O ACBrCTe1.WebServices.EnvEvento.EventoRetorno.XML realmente não retorna nada. Devo ter me confundido achando que ambos não estavam salvando.

Fazendo uns testes verifiquei que o ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML está retornando o xml, mas por algum motivo não está salvando no meu banco. Vou verificar novamente esse aqui ACBrCTe1.WebServices.EnvEvento.EventoRetorno.XML e volto a falar assim que descobrir também o que ocorreu para não salvar em banco

Eu faço o envio com ACBrCTe1.EnviarEvento(NumLote); E a rotina só envia um evento por vez. Então acredito que sim

Essa tag não retorna nada. Apenas um conteúdo vazio Tentei também com a ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML, mas a mesma coisa

Boa tarde. Gostaria de armazenar em banco o XML do procEventoCTe, logo após o envio do evento, conforme imagem abaixo: Queria saber se tem alguma propriedade ou algo do tipo que armazene esse XML. Consegui obter a parte do retEventoCTe com o AcbrCTe1.WebServices.EnvEvento.RetornoWS, salvo engano. Porém gostaria de obter o procEventoCTe inteiro para armazená-lo em banco. Se puderem me indicar o caminho, agradeço. Ou ao menos o caminho do eventoCTe, para que eu possa somar os dois e montar o arquivo 'completo' já ajudaria. Fico no aguardo.

Boa tarde. Consegui solucionar a questão com a sua sugestão. Através do CST da para saber sim o grupo. Obrigado pela ajuda. A quem interessar, descobri um outro método que pode solucionar e possivelmente ser um pouco mais amplo. Usando ACBrCTE1.Conhecimentos.Items[0].CTe.XML.Contains('<NomeDaTagXML>') é possível verificar se existe, ou não, uma tag no XML carregado. O único problema é quando houverem tags com o mesmo nome, que daí pode ocasionar algum erro. Mas para as tags únicas ajuda identificar se existe ou não. Implementei esse método na mesma rotina de importação para verificar se existia toma3 ou toma4 e funcionou de acordo com o esperado

Bom dia. Atualmente eu uso o componente do ACBR para importação de XMLs através do ACBrCTE1.Conhecimentos.LoadFromFile(). Funciona bem. Minha dificuldade é a seguinte: nem todo CTE tem o mesmo grupo de icms. Alguns são ICMS00, outro é ICMS45 e etc. Se eu tentar carregar ou checar algum desses da seguinte forma: if Assigned(ACBrCTE1.Conhecimentos.Items[0].CTe.imp.ICMS.ICMS00) then ... ou if ACBrCTE1.Conhecimentos.Items[0].CTe.imp.ICMS.ICMS00 = CST00 then ... Nos dois casos ele retorna verdadeiro mesmo que o CTE não use o ICMS00 Sabem me indicar se há uma forma correta/confiável de fazer essa checagem?

Bom dia. Seguindo o exemplo do modo Síncrono deu certo. Obrigado, pela ajuda

Aqui sempre fizemos o envio de um CTE por vez, mas usávamos esse retorno. Vou estudar o botão que orientou e volto caso necessite de mais auxílio ou se conseguir solucionar

Bom dia. Estou com problemas na hora de receber o retorno do CTE 4.00. No início achei que era apenas o recibo que retornava branco, e li todo o tópico aqui do ACBR a respeito disso, mas depois, usando o exemplo do ACBR como referência, notei que não vinha o protocolo e nem nenhum outro dado inclusive o ACBrCTe.WebServices.Retorno.RetWs e ACBrCTe.WebServices.Retorno.RetornoWs também retornam em branco. Estou anexando um arquivo txt demonstrando como funciona o código para análise, caso eu esteja fazendo algo errado para a nova versão ou se precisa fazer alguma configuração específica no componente. Faço uso do Certificado acessando via banco de dados, as configurações usadas se encontram no arquivo exemplo em anexo. Em anexo coloquei também como está configurado o componente Só gostaria de frisar que o exato mesmo código, sem nenhuma mudança, funciona se deixar a versão do CTE no componente como 3.00. Quaisquer informações adicionais necessárias só pedir ConfigComponente.txt ExemploCodigo.txt