Pesquisar na Comunidade

Utilizando o ACBrECF1+ACBrECFVirtual+ACBrPosPrinter com ecfECFVirtual o arquivo ACBrECF001.ini (no meu caso ACBrECF901.ini) criado não gera as sessões de cabecalho/cabecalhoItem/rodape. Sendo assim, todos os cupons e relatórios saem com o cabecalho padrão do ACBr (Nome da Empresa = "Nome da Empresa", porem com CNPJ,inscrição,endereco,cidade,UF,Cep configurados por mim) e sem rodapé. Tentei usar o evento QuandoGravarArqINI para alterar o conteudo, mas fica da mesma forma. O que precisa ser feito? (obs: não tenho o Lazarus para poder analisar melhor o demo. Só abri o .pas mas não encontrei o que queria) Com o ecfNaoFiscal eu deixava gerar o arquivo com dados padrões e depois alterava o arquivo ini com write nas sessões. Mas com o ecfECFVirtual não consigo mais fazer isso e ele gera incompleto. Vi há uns dias atrás um post de alguém que passou por isso, mas não consigo localizá-lo pela pesquisa. Estou configurando dessa forma, antes de configurar o ACBrECF1: Frm_ECFPrincipal.ACBrECF1.Device.Tag := iNumeroCaixa; (estou atribuindo o numero 901 aqui) Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.NomeArqINI := 'ACBrECF' + FormatFloat('000',iNumeroCaixa) + '.ini'; Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.ExibeAvisoLegal := True; Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.Colunas := 48; Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.NumECF := iNumeroCaixa; Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.NumSerie := 'SIM00000000000000' + FormatFloat('000',iNumeroCaixa); Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.NumCRO := 1; Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.CNPJ := sCNPJFormatado; Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.IE := sIE; Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.IM := sIM; Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.Cabecalho.Clear; Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.Cabecalho.Add(sNomeDaEmpresa); Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.Cabecalho.Add(sEnderecoDaEmpresa); Frm_ECFPrincipal.ACBrECFVirtualNaoFiscal1.Cabecalho.Add(sCidadeDaEmpresa + ' - ' + sUFEmpresa + ' - ' + sCEPEmpresa); Quando estava utilizando o ecfNaoFiscal estas sessões geravam normalmente. O arquivo ini criado está assim [Variaveis] Estado=2 NumCupom=0 NumGNF=0 NumGRG=0 NumCDC=0 NumCER=0 GrandeTotal=0 VendaBruta=0 NumCCF=0 DiaMovimento=27/04/2017 HorarioVerao=0 ReducoesZ=0 LeiturasX=0 COOInicial=0 COOFinal=0 CuponsCancelados=0 CuponsCanceladosTotal=0 CuponsCanceladosTotalISSQN=0 CNFCancelados=0 CNFCanceladosTotal=0 CuponsCanceladosEmAberto=0 CuponsCanceladosEmAbertoTotal=0 CuponsCanceladosEmAbertoTotalISSQN=0 TotalDescontos=0 TotalAcrescimos=0 TotalDescontosISSQN=0 TotalAcrescimosISSQN=0 Operador=ADMIN PAF= ChaveCupom= [Cupom] DescontoAcrescimo=0 DescontoAcrescimoISSQN=0 Subtotal=0 SubTotalISSQN=0 TotalPago=0 [Formas_Pagamento] 00=00|TROCO|0|0|30/12/1899|| 01=01|DINHEIRO|0|0|30/12/1899|| [Relatorios_Gerenciais] 00=01|DIVERSOS|0 01=02|MEIOS DE PGTO|0 02=03|IDENT PAF-ECF|0 03=04|DAV EMITIDOS|0 04=05|DAV|0 [Comprovantes_nao_Fiscais] 00=01|SANGRIA|-1||0|0| 01=02|SUPRIMENTO|-1||0|0|

Olá a todos, Gostaria de compartilhar mais um pequeno caso que localizei na unit: ACBrECFVirtual, exatamente no método: EfetuaPagamento. O método estava programado da seguinte forma: function TACBrECFVirtualClassCupom.EfetuaPagamento(AValor: Currency; AObservacao: String; APosFPG: Integer): TACBrECFVirtualClassPagamentoCupom; begin Result := fpPagamentosCupom.New; with Result do begin PosFPG := APosFPG ; ValorPago := fpECFVirtualClasse.RoundECF(AValor); Observacao := AObservacao ; fpTotalPago := fpTotalPago + max(ValorPago, 0); end; end; Esse método fpECFVirtualClasse.RoundECF utiliza a property fpArredondaItemMFD, e a mesma está igual a False no meu caso. Ou seja, o sistema irá truncar o valor os valores. (Essa propriedade precisa ficar False, pois os produtos nesse caso precisam ser truncados na venda) Ex: Enviei um pagamento de 78,22, o método que efetua o TruncTo retornava 78,21; Pensando nisso esse Valor não deveria ser formatado, pois o mesmo já vem com seu valor respectivamente correto, pois no método: EfetuaPagamento da unit: ACBrECF (TACBrECF.EfetuaPagamento) já faz a devida formatação do campo, enviando assim corretamente para unit: ACBrECFVirtual; Meu método ficou da seguinte forma: function TACBrECFVirtualClassCupom.EfetuaPagamento(AValor: Currency; AObservacao: String; APosFPG: Integer): TACBrECFVirtualClassPagamentoCupom; begin Result := fpPagamentosCupom.New; with Result do begin PosFPG := APosFPG ; ValorPago := AValor; //fpECFVirtualClasse.RoundECF(AValor); Observacao := AObservacao ; fpTotalPago := fpTotalPago + max(ValorPago, 0); end; end; Não consegui pensar em outra solução ou encontrar algo que mudasse esse calculo. Peço por gentileza que desconsidere a sugestão caso exista outra. Agradeço a todos pela ajuda desde já. ACBrECFVirtual.pas

Olá a todos, Gostaria de passar um caso que pegamos: Utilizamos o Compontente: ACBrECFVirtualNaoFiscal, com ACBRECF, para simular a venda na tela para o cliente, após isso finalizamos a venda SAT normalmente. Mas em clientes que trabalham 24 horas estava ocorrendo um problema na venda na mudança de dia. Após algumas validações vimos que na unit: ACBrECFVirtual, no método: function TACBrECFVirtualClass.GetEstado: TACBrECFEstado; existia o seguinte tratamento: if not (fpEstado in [estNaoInicializada,estDesconhecido]) then begin if (CompareDate( now, fpDia) > 0) and ( not (fpEstado in [estBloqueada,estRequerX])) then fpEstado := estRequerZ ; if (fpEstado = estBloqueada) and (CompareDate( now, fpDia) > 0) then fpEstado := estRequerX ; end; Ou seja no meio de uma venda o estado era modificado para RequerZ, bloqueando assim a venda e a finalização. Pensando nisso fizemos a seguinte "Melhoria" no processo, para que só seja modificado o estado para estRequerZ apenas se o estado da impressora for igual a estLivre. Ficando da seguinte forma: if not (fpEstado in [estNaoInicializada,estDesconhecido]) then begin if (CompareDate( now, fpDia) > 0) and ( (fpEstado in [estLivre])) then fpEstado := estRequerZ ; if (fpEstado = estBloqueada) and (CompareDate( now, fpDia) > 0) then fpEstado := estRequerX ; end ; Não achei outra solução, por gentileza se existir alguma outra solução me avise. Agradeço desde já pela atenção de todos. ACBrECFVirtual.pas

Boa noite, Fiz a atualização dos fontes do ACBR e depois da instalação (utilizando o ACBrInstall_Trunk2) e não obtive erro. Ao abri o Delphi, estou tendo os seguintes erros: Delphi 7: delphi32.exe - Entry Point Not Found The procedure entry point @Acbrecfvirtualbuffer@TACBrECFVirtualBufferClass@LinhaCupomVinculado$qqr17System@AnsiString could not be located in the dynamic link library ACBr_Serial.bpl. -------------------------- Utilizo o Delphi 7. Alguém passou por isso? Sabe o que pode ser? Desde já agradeço a ajuda. Ricardo