RicardoVoigt

Essa dica acabou de me salvar agora há pouco... Att Ricardo

Bom dia, em primeiro lugar, aproveito para parabenizar o grupo pelo trabalho e iniciativa do projeto ACBr. Eu já conheço o ACBrMonitorPLUS, mas gostaria de fazer um questionamento, indo direto ao ponto, sobre ressuscitar o primeiro ACBrNFeMonitor do "trunk" anterior. Levanto essa hipótese pensando nos casos onde o objetivo se restringe "apenas" a emitir NF-e e NFC-e. Enfim, eu decidi por minha conta e risco, ajustar e compilar o projeto do primeiro ACBrNFeMonitor (trunk) usando os componentes do trunk2. Consegui compilar, mas ainda não testei em um ambiente onde tenha um certificado digital. Acredito que esta semana eu consiga fazer algum teste. Concluindo, realmente sei que, na prática, seria um "baita pepino" seguir com essa ideia por conta, assim sozinho, por isso pensei em abrir este tópico e tentar algum retorno de mais alguém interessado na ideia, ou ver se decido migrar de vez para o PLUS. Pensei também em ir registrando, em itens, quais foram os ajustes necessários até deixar redondo. Att Ricardo

Bom dia, gostaria de dar um "chute" pra ver se ajuda, nem sei se tem isso no Windows 10, mas lá vai... Nas "Opções da Internet", desmarcar aquela configuração "Verificar revogação de certificados do servidor". Att Ricardo

Bom dia, tudo atualizado aqui com trunk2, a princípio eu apenas troquei no meu sistema ACBrNFe1.NotasFiscais[0].SaveToFile(... por ACBrNFe1.NotasFiscais[0].GravarXML(); E agora dá esse erro: ID Inválido. Impossível Salvar XML Será que faltou configurar alguma propriedade nova no componente? Att Ricardo Blz, achei a solução, antes de GravarXML() chemei o GerarXML() Att Ricardo

oi, pois eh, esta assim no trunk, pelo que entendi a implementação dessa propriedade surgiu nesse tópico Anexei um xml + 2 pdfs de como fica sem definir altura (2 paginas) e com a definição da altura da pagina em 297mm (A4) onde coube tudo numa página... Obs: neste xml de exemplo seria uma venda a prazo, tenho uma opção no sistema onde o cliente pode incluir nas informações complementares uma espécie de "confissão de dívida", o que ajudou a "espichar" a impressão.... Att Ricardo TESTE-XML-PDF.zip

Ola, segue o ACBrDANFCeFortesFr.pas zipado para análise, para o trunk2... eu tinha criado a propriedade como PapelAltura, mas se acharem melhor mudar pra AlturaPagina ou PaginaAltura, está por vcs... Já aproveitei e colei junto a propriedade MargensAjustaveis tal qual foi publicada no trunk, de acordo com outro tópico aqui do fórum... Att Ricardo ACBrDANFCeFortesFr.zip

Ola, da uma lida nesse meu tópico, pode ser que resolva seu caso também... http://www.projetoacbr.com.br/forum/topic/21289-dúvida-acbrnfedanfcefortes-tamanho-da-página/ Nesse outro tópico eu postei um "bacalhau" compilado com a propriedade pra testar como ficaria a impressão... Espero que ajude... o problema é que a propriedade pra definir altura da página/papel ainda não foi postada no SVN, nem no trunk nem no trunk2 (justamente onde se encontra o monitorPLUS) estou no aguardo... Att Ricardo

Boa tarde, alguma previsão dessa propriedade MargensAjustaveis no trunk2 ? Att Ricardo

dae gurizada, acho que descobri como resolver essa parada.... Vamos por partes, para compilar o pacote FortesReportCE_Win32_D7_vcl.dpk, eu fiz o que descrevi acima: - removi as diretivas na unit RLUtils para "habilitar" a function CharInSet - em algumas units troquei "ifend" por "endif" Pacote compilado e instalado no Delphi 7, agora vem o detalhe para conseguir compilar seus projetos: No Library path, vc não pode incluir a pasta Source do Fortes, deve ser incluída a pasta Binary\Win32_d7_vcl onde se encontram os arquivos DCU e DCP compilados. OBS: o compilador ainda vai acusar falta do arquivo RLReport.res, é só copiá-lo da pasta Source para a pasta correta. Espero que dê certo aí pra vcs... Att Ricardo

será que a solução não está no arquivo "RLReport.inc" ?? onde é definido o parametro VCL... pelo que entendi, o problema está ai, o compilador do D7 não está entrando nos "IFDEF VCL"... Att Ricardo

bah...

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