RicardoVoigt

fiz um teste aqui... no caso da unit RLUtils, removi as diretivas, e passou... em outras 3 units apenas troquei "ifend" por "endif" e compilou... pacote instalado no D7! Att Ricardo

Ola, aqui pra mim deu isso ao compilar o pacote FortesReportCE_Win32_D7_vcl.dpk [Error] RLUtils.pas(181): $ENDIF expected but $IFEND found [Error] RLUtils.pas(201): $ENDIF expected but $IFEND found [Error] RLUtils.pas(903): Undeclared identifier: 'CharInSet' [Error] RLUtils.pas(903): Operator not applicable to this operand type [Error] RLUtils.pas(908): Operator not applicable to this operand type [Fatal Error] RLMetaFile.pas(35): Could not compile used unit '..\Source\RLUtils.pas' Att Ricardo

Ola, tente usar essa propriedade: acbrnfeDANFeESCPOS1.MostrarPreview := true; Att Ricardo

Olá, voltei ao fórum aqui para comentar... botei em produção a impressão da danfe da NFC-e, usando o ACBrNFeMonitor com a minha alteração no componente ACBRNFeDANFCeFortes, para definir a altura do papel, conforme descrevi na abertura do tópico... Inclusive eu adicionei estas propriedades "Margens ajustáveis" e "altura da página" aqui pra configurar no ACBrNFeMonitor (abas DANFe e NFC-e) Eu vi que teve outro colega do fórum também andou implementando a mesma propriedade, mas não achei mais onde eu li isso... Pensando em evitar futuros transtornos, eu gostaria de saber se essa propriedade será disponibilizada no componente? Att Ricardo

oi, bah, acabei de ver isso... valeu pela atenção. Vou tentar mais alguns testes, mas ainda acho que NÃO pode ser minha aplicação (onde o componente ACBrNFe gera o XML original) possa estar "trancando" o XML, pois o ACBrNFeMonitor recebe o comando EnviarNFe, faz tudo certo (assinar, enviar e incluir o protcolo de autorização) dentro do XML original. É depois disso que o XML fica "preso". Att Ricardo

Bom dia, retornando ao tópico para contar um "causo". O ACBrNFeMonitor me retornou a seguinte resposta (no TXT de saída), ao usar o comando de cancelamento logo após efetuar o envio/emissão de uma NFe. Como no meu aplicativo não estou fazendo um tratamento adequado (ainda) do arquivo de retorno, foi verificado que uma NFe do mês passado que devia ter sido cancelada, não foi. Encontrei esse erro acima no arquivo de resposta que ficou salvo no dia. Hoje fiz um teste em homologação, e precisei fechar e abrir novamente o ACBrNFeMonitor para efetuar o cancelamento. Como eu escrevi mais acima em outras respostas, acho que pode estar faltando executar em algum ponto do ACBrNFeMonitor, (provavalemente ao concluir a emissão da NFe e concluir o retorno) o seguinte comando : NotasFiscais.Clear Att Ricardo

oi... infelizmente não tenho muito acesso ao cliente, como é um estabelecimento no interior da minha cidade, eu acabei deixando ele me dar retorno para testar a impressão, e ainda não me ligou... Nesse outro tópico abaixo, tinha outro usuário que estava com problema na impressão da NFCe Fortes em A4, e eu postei uma resposta citando esta ideia de configurar a altura da página, e um anexo que é justamente o "bacalhau" compilado que eu gerei para testar com o meu cliente... Att Ricardo

Boa tarde, perdão pela intromissão no tópico, mas gostaria de tirar uma dúvida... Quando usado CSOSN 101 (com permissão de crédito de ICMS), dentro da tag ICMSSN101 do XML existem as tags pCredSN e vCredICMSSN. PERGUNTO: nesta situação mencionada pelo contador, essas duas tags pCredSN e vCredICMSSN devem ser alimentadas, respectivamente, com a alíquota informada de 0,67 % e seu respectivo valor calculado sobre o valor total do item ? Imagino que devo questionar o contador de meus clientes a respeito dessa alíquota. Att Ricardo

Boa tarde, após vários testes, tentativas e erros, por fim deu certo... eu estava com o fonte do ACBr atualizado, mas acho q precisava recompilar o pacote do ACBrBoleto... Att Ricardo

Bom dia, achei melhor abrir um tópico, pois eu estive analisando o ACBrBoleto para implantar em um cliente com boletos do banco do brasil, com cnab 400, e não consegui mudar a propriedade Banco.TamanhoConta, que é somente leitura, de 12 para 8, para tentar resolver o caso do exemplo abaixo: Eu defini a conta Cedente.Conta := '123456'; Dentro no método TACBrCedente.SetConta, nesta linha fConta := IntToStrZero(aConta, ACBrBoleto.Banco.TamanhoConta ); ele converte '123456' para '000000123456'. O resultado incorreto que eu detectei é dentro do método TACBrBancoBrasil.GerarRegistroHeader400 nesta linha aConta := PadR(Conta, 8, '0'); No meu exemplo, acaba resultando em '00000012', ao invés de '00123456' Att Ricardo

Bom dia, comigo deu o mesmo erro aqui, após atualização. Executei o ACBrNFeMonitor para testar a impressão de uma NFC-e, pela aba Testes, botão Imprimir, e deu: '' is not a valid floating point value Pra fins de debug, colei a imagem da opção Call Stack, menu Debug Windows, do Delphi, no momento que deu o erro. Att Ricardo

Ola, segue o "bacalhau" zipado em anexo... ao clicar no botão, selecione um XML de uma NFCe (modelo 65)... 297 mm eh a altura do A4 se não marchar o checkbox, ele joga o zero padrão na propriedade e imprime como o componente está atualmente no repositorio... basicamente o código do onClick do botão é esse: if OpenDialog1.Execute then begin if CheckBox1.Checked then begin ACBrNFeDANFCeFortes1.PapelAltura := StrToInt(Edit1.Text); end else begin ACBrNFeDANFCeFortes1.PapelAltura := 0; end; ACBrNFeDANFCeFortes1.MostrarPreview := TRUE; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); ACBrNFe1.NotasFiscais.Imprimir; end; Att Ricardo TESTE-NFCe.rar

Bom dia, não sei se pode te ajudar, mas da uma lida no meu tópico abaixo.. Att Ricardo

Bom dia, implementei aqui para mim a propeidade PapelAltura no TACBrNFeDANFCeFortes. property PapelAltura: Integer read FPapelAltura write FPapelAltura default 0; Mais tarde vou enviar ao cliente um "bacalhau" para aprovação da impressão. Como eu tinha o mesmo XML que testamos outro dia, testei e acho que vai dar certo. Outro ponto no que mexi unit ACBrDANFCeFortesFr, foi na procedure rlVendaBeforePrint, onde calcula o tamanho da página em pixels e depois converte para milimetros: if (ACBrNFeDANFCeFortes.PapelAltura > 0) then begin rlVenda.PageSetup.PaperHeight := ACBrNFeDANFCeFortes.PapelAltura; end else begin // Calculando o tamanho da Página em Pixels // TotalPaginaPixel := ... Espero que esta ideia seja aprovada como uma contribuição para o projeto ACBr, qualquer outra ideia ou sugestão será bem vinda... Att Ricardo ACBrDANFCeFortesFr.pas

oi, outra dúvida que pensei, acompanhando esse tópico, este não seria um caso, de emitir uma NFe referenciando (na tag RefNFe) o NFC-e (e sem o seu cancelamento) ? Att Ricardo

Bom dia, me surgiu uma dúvida com relação à impressão da NFC-e com o componente ACBRNFeDANFCeFortes... Estou verificando a possibilidade de implantar meu sistema (juntamente com o ACBrNFeMonitor) em um cliente, e ele já tem outro sistema que imprime a NFC-e usando uma impressora laser, com papel A4 cortado ao meio, ou seja 105 mm de largura e 297 mm de altura. Por incrível que pareça, funciona... Gostaria de saber se existe essa possibilidade? Definir o tamanho do papel (não achei essas propriedades) no componente, a fim de tentar encaixar a impressão com mais perfeição ao papel, pois fiz alguns testes e o ACBrNFeMonitor imprimiu o QRCode na página 2, sendo que ainda tinha espaço na página 1... Att Ricardo

Ola, que legal... Agora quero ver o número do CHASSI... Pelo que vi, o furo é bem mais embaixo... (pt.wikipedia.org/wiki/Número_de_Identificação_do_Veículo) Acho que ao invés de tentar validar o conteúdo (pelo menos o tamnho de 17 posições), to pensando em pelo menos fazer um parse e exibir para o usuário as informações que estão codificadas no CHASSI, num TMemo por exemplo, apenas para fins de conferência. Att Ricardo

Oi, achei um tópico de 2013, num fórum de java... codifiquei a rotina aqui em Delphi, e achou que deu certo... https://ivanmeirelles.wordpress.com/tag/validar/ function ValidaRenavam1(Num: String):Boolean; const SEQUENCIA = '3298765432'; var I,SOMA,DV : INTEGER; begin Result := False; if Length(Num) = 11 then begin SOMA := 0; FOR I := 1 TO 10 DO SOMA := SOMA + (StrToInt(Num[I]) * StrToInt(SEQUENCIA[I])); DV := (SOMA * 10) MOD 11; if DV = 10 then DV := 0; IF DV = StrToInt(Num[11]) THEN Result := True; end; end; Na prática acho que é quase igual, só o "multiplicador" que não tinha na outra rotina, dos 2 dígitos a mais... Um detalhe que não validei é se os 11 caracteres da var Num: String são numéricos... Espero ter contribuído com algo útil... Att Ricardo

É essa rotina que eu já testei aqui... Eu estou testando com 2 códigos de renavam, um de 2011 passa OK na validação, e outro de 2013 NÃO PASSA. Att Ricardo

Boa tarde, antes de mais nada, já procurei no fórum e google, e não encontrei nada atualizado. Eu gostaria de validar o código RENAVAM de veículos. Pelo que achei na internet então, houve uma mudança no início de 2013, o código RENAVAM passou de 9 para 11 dígitos. Até encontrei em postagens mais antigas em outros fóruns, uma rotina em Delphi que calcula o dígito e valida, mas eu acho que só funciona para códigos Renavam gerados até 2012, pois com um código de exemplo que tenho aqui, do ano de 2013, não está funcionando. Alguém sabe como funciona a nova validação? Onde posso encontrar a regra do cálculo do dígito? Ou já tem esta validação em alguma unit do ACBr? Eu não trabalho com CT-e, mas acho que esta validação deve interessar também pra quem trabalha... Se ainda não tiver na biblioteca ACBr, eu gostaria de sugerir a implementação desta validação no componente TACBrValidador. Att Ricardo

Boa tarde, valeu mesmo pela resposta, e principalmente, pela referência... Eu já tinha visitado o site do Regys, mas não tinha pesquisado conteúdos/publicações anteriores. Att Ricardo

Bom dia, antes de mais nada, juro que pesquisei aqui no fórum e não encontrei dúvida semelhante à minha. Referente a lei 12.741/2012 (De olho no Imposto), quando é emitida uma NFe de Entrada/Compra ou uma NFe de Devolução (Saída), como devem ser preenchidos os campos vTotTrib ?? Na prática mesmo, eu gostaria de ter certeza se, nestes casos, deixo tudo ZERO mesmo... Pelo que li na lei, no primeiro parágrafo apenas menciona o "preço de venda": "deverá constar, dos documentos fiscais ou equivalentes, a informação do valor aproximado correspondente à totalidade dos tributos federais, estaduais e municipais, cuja incidência influi na formação dos respectivos preços de venda." Agradecido pela atenção, Att Ricardo

Ola, publique as linhas de código onde vc alimenta estas propriedades no componente ACBrNFe... se não me engano, as propriedades são dEmi e dEntSai Lembrando q agora (versão 3.10) vc deve informar data + hora na mesma propriedade... Att Ricardo

Eu acho que entendi a pergunta, para ver uma previa da DANFE com um XML que ainda não tenha sido assinado nem enviado para a RF, eu acho que o ACBrNFeMonitor consegue fazer isto usando o comando ImprimirNFe passando o respectivo XML... se não me engano aparece algum destaque no meio da Danfe informando que a NFe não não tem validade pois não foi assinada e não vai ter o protocolo de autorização... Acho que é isso... Att Ricardo

Ola, acho que não, pelo que entendi o ValidarNFe apenas verifica a estrutura do arquivo XML. É só no EnviarNFe que é feita a comunicação com o WEBSERVICE, que é de onde vêm as rejeições... Espero ter acertado, me corrijam se falei bobagem... Att Ricardo