delphijean
-
Total de ítens
16 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por delphijean
-
-
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:
ACBrTEFD1.Inicializar(TACBrTEFDTipo(ecfTEFTipo));ecfTEFUsouCartao := ACBrTEFD1.CRT( 40.00, '02' ACBrECF1.NumCOO);
ACBrTEFD1.DesInicializar(TACBrTEFDTipo(ecfTEFTipo));
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.
-
ACBrTEFD1.Inicializar(TACBrTEFDTipo(ecfTEFTipo));
ecfTEFUsouCartao := ACBrTEFD1.CRT( 40.00, '02' ACBrECF1.NumCOO);
ACBrTEFD1.DesInicializar(TACBrTEFDTipo(ecfTEFTipo));
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
NÃO FUNCIONA ACBrAAC1.IdentPAF.OutrosArquivos.Count
em ACBrSintegra/ACBrPAF
Postado
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