delphijean

Pessoal o ACBrAAC1.IdentPAF.OutrosArquivos.Count parace não funcionar, estou usando a função abaixo (Código 1) e não retorna resultado, mesmo que eu registre vários arquivos como mostra abaixo (Arquivo 1). Count retorna zero, então não adiciona os itens dentro do ListBox2. O que há de errado, alguém sabe? Código 1 with ACBrAAC1.IdentPAF.OutrosArquivos do begin for I := 0 to Count - 1 do ListBox2.Items.Add(Objects.Nome+' | '+Objects.MD5); end; Arquivo 1 |N1|00000000000000|0000000000 |0000000000 |ProNúcleo & VisualTec |N2|54212542 |Frente de Caixa ProNúcleo & VisualTec |1.00.00 |N3|LIBEAY32.DLL |1966C992DC4A5B50BE3E58FC26B8B0D7 |N3|MP2032.DLL |B4A2AAA47C48ADE67BFA342B1C59DFB9 |N3|OPENSSL.EXE |F604C26DDAA13680A3278620C485212C |N3|PROREGECF.EXE |921970344E89ED9B5598DB9DD77EADA4 |N3|SIUSBXP.DLL |75355D591FFED68A6FEABCC3592380A4 |N3|SSLEAY32.DLL |FE51AF337B27B5A2B404129DD22B25E7 |N9|00000000000000|0000000000 |6,00 EADB089422C5FE0DA6323661EDE9E813D12EC78FBE1A987B960BAA0970C961A80BC0A39CDC3A13EDC10A4E74B3F387E7BB40B3F564D63C559B1B8519A382710E1AD53345E93A74D0E17A63F895AF088B16E5E78FFE41988D1C34702D190EB29C6FB67B45171444F43EF91B4B4CA682B59D52134A4F63F3C86E99D11EA3C8F21066D

O meu ACBr não ta imprimindo o código MD-5 no cupom fiscal, tenho que informar manualmente, ou automaticamente o ACBr reconhece e imprime????

Pessoal como estão controlando a Emissão e Impressão do DAV?

já Já estou fazendo usando ACBr, RESOLVIDO.

Resolvido, entendir. eu acho! r.s..s

Pessoal como vocês estão gerando a lista das ECFs liberadas pra a empresa? estou fazendo isso sem ACBr, o ACBr já faz isso? quais componentes usar? manda uma dica ai de comom proceder pra fazer isso com ACbr se isso é possível?

Pessoal me da uma ajuda, porfavor. tou muito confuso com a montagem do paf, quais componentes devo usar para gerar os arquivos exigidos pelo ato/cotepe? ACBrPAF = uso pra gerar o que? ACBrEAD = uso pra gerar o que? ACBrAAC = uso pra gerar o que? é que tou vendo nos exemplos que preenche me parece as mesma informações no componentes distintos. alguem pode me ajudar a entende como gerar os arquiovos de inicialização do paf-ecf.exe, arquivos auxiliares, arquivo com a lista de arquivos. quero entender melhor isso. Lembrando que eu estava usando versão anterior do ACBr(acho que 0.47) que nao tinha o EAD e AAC.

Valeu amigo, deu certo. Obrigado.

Pessoal pra que serve essa classe: DadosReducaoZClass? estou tentando usar ela pra obter os dados da redução z logo após executá-la, mas todos os dados veêm vazios. existe a função: DadosUltimaReducaoZ, que retorna uma string Achei que essa classe ACBrECF1.DadosReducaoZClass também retornava os dados da última Reduçãoz. se retorna como usar? estou usando assim: //Executo a redução z: ACBrECF1.ReducaoZ( now ); //Tenta obter os dados da última ReduçãoZ: DT := ACBrECF1.DadosReducaoZClass.DataDaImpressora; Serie := ACBrECF1.DadosReducaoZClass.NumeroDeSerie; SerieMFD := ACBrECF1.DadosReducaoZClass.NumeroDeSerieMFD; NumeroECF := ACBrECF1.DadosReducaoZClass.NumeroDoECF;

OK! valeu meu amigo.

Olá pessoal, eu gostaria de saber como vocês fizeram para gerar os dados dos RegistrosR2..3..4..5..6..7 vocês armazenam esses dados em tabelas especificas no banco de dados? qual seria a lógica para eu ter esses dados na hora de gerar o arquivo? de onde eu vou pegar esses dados? abrigado.

OK, estou no aguardo, preciso disso pra ontem pois vou homologar ainda essa semana. Dai se precisar eu implemento. No Aguardo...

Olá amigos gostaria de saber se o ACBrECF está emitindo a Leitura da Memória Fiscal do mês anterior automáticamente, Quando da emissão da primeira ReduçãoZ do mês? para atender o Covênio ICMS 156/94.

Olá pessoal fiz algumas mudanças e acho que deu certo agora. Ao invés de usar: Agora eu inicializo o TEF na inicialização do sistema. Nas vendas agora faço assim: ACBrTEFD1.ATV(TACBrTEFDTipo(ecfTEFTipo)); ACBrTEFD1.CRT( ValorPago, '02', ACBrECF1.NumCOO); Isso antes de cada pagamento com cartão. Mas, agora a questão é, será que vai funcionar quando por exemplo eu mudar da VISANET para HIPERCARD por exemplo. Porque o cliente pode pagar com 2 cartões um Visa e o outro HiperCard. Bom amanhã vou num cliente testar. depois eu vou postar aqui.

Amigo eu uso o código acima, porque foi a única forma que achei para efetuar venda com operadoras diferentes, por exemplo: Se eu vender no Cartão usando VISANET e depois tentar fazer uma nova venda usando o HIPERCARD não estava funcionando ou seja, se eu vender como visa net tenho que sair do sistema e entrar novamente para poder vende para HIPERCARD. Pelo menos não achei outra forma. e isso mesmo usando multi-cartões, também não funciona.

Olá pessoal estou de volta aos foruns do ACBr depois de um tempão sumido! Galera e em especial Sr. Daniel, gostaria de saber se alguém tem a receita do bolo para uso do ACBrTEFD+MultiplosCartões? Estou usando a mais rescente versão do ACBrTEFD, configuro tudo para multilpos cartões mas, não esta funcionando. Veja os passos: 1- Efetuo a Venda (R$100,00) 2- Subtotalizo a Venda (Total: R$100,00) 3- Efetuo um pagamento em dinheiro no valor de R$20,00 ACBrECF1.EfetuaPagamento( '01', 20.00, '' , false ); 4- Efetuo um pagamento em cartão no valor de R$40,00 ACBrTEFD1.Inicializar(TACBrTEFDTipo(ecfTEFTipo)); ecfTEFUsouCartao := ACBrTEFD1.CRT( 40.00, '02', ACBrECF1.NumCOO); ACBrTEFD1.DesInicializar(TACBrTEFDTipo(ecfTEFTipo)); --->Até aqui todo bem e falta somente R$40,00 5- Efetuo um novo pagamento no valor de R$40,00 com outro cartão ACBrTEFD1.Inicializar(TACBrTEFDTipo(ecfTEFTipo)); ecfTEFUsouCartao := ACBrTEFD1.CRT( 40.00, '02', ACBrECF1.NumCOO); ACBrTEFD1.DesInicializar(TACBrTEFDTipo(ecfTEFTipo)); --->Aqui acontece um ERRO, ao invés de prosseguir o pagamento, O cupom é cancelado. quando vou Conectar novamente no ACBrTEFD ele avisa que tem Transações Pendentes. Então o que estou fazendo errado? Como devo proceder para usar multiplos cartões? Vejam o código abaixo: ACBrTEFD1.Inicializar(TACBrTEFDTipo(ecfTEFTipo)); ecfTEFUsouCartao := ACBrTEFD1.CRT( 40.00, '02' ACBrECF1.NumCOO); ACBrTEFD1.DesInicializar(TACBrTEFDTipo(ecfTEFTipo)); :::>Faço esses procedimento quantas vezes forem necessárias até que a soma dos valores Pagos sejam igual ao Total a Pagar. no meu exemplo acima efetuo esse procedimento nos passos 4 e 5. PS: ecfTEFTipo é uma variavel que recebe os valores: {0=NãoUsaTef;1=TefDial;2=TefDisc;3=HiperTef;4=CliSiTef;5=TefGpu;6=VeSPague} no meu caso uso mais o 1 e 3