emsoft

é isso mesmo aproximadamente meio dia. Pensei q era algum defeito da ECF mas é da epson mesmo. obrigado.

Juliomar, neste seu cliente que tem o mesmo modelo q eu mencionei, a extração do MFD leva mais de 5horas? Se não, quanto tempo? Tem alguma configuração a ser feita? Tipo: Diretório onde devem ficar as DLL´s, executar o programa em modo Administrador?? []s

Voltando ao assunto: Gostaria de saber se alguém já conseguiu ler o MFD da EPSON T81-FBII com o ACBr, pois eu não consigo mesmo com tudo atualizado.

atualizado e resolvido. Obrigado Isaque pela ajuda.

Pelo SVN ainda não veio a alteração.

sim eu sei, mas no meu caso uma nota com csosn 0500 tem que constar no EFD PisCofins apenas como 500 (3 dígitos) se colocar 0500 (4 digitos) o PVA já grita. Mas está vindo como 1900 o que é pior ainda. []s

Isaque, esta nova função CstICMSToStr abaixo quando passa o parâmetro por exemplo: sticmsSimplesNacionalCobradoAnteriormentePorST, em vez de retornar 500 está retornando 1900. Mas eu desconheço esses novos CTS´s com 4 dígitos não sei qual é a finalidade. CstIcms: array[0..167] of String = ( '000','010','020','030','040','041','050','051','060','070','090','0101','0102','0103','0201','0202','0203','0300','0400','0500','0900', '100','110','120','130','140','141','150','151','160','170','190','1101','1102','1103','1201','1202','1203','1300','1400','1500','1900', '200','210','220','230','240','241','250','251','260','270','290','2101','2102','2103','2201','2202','2203','2300','2400','2500','2900', '300','310','320','330','340','341','350','351','360','370','390','3101','3102','3103','3201','3202','3203','3300','3400','3500','3900', '400','410','420','430','440','441','450','451','460','470','490','4101','4102','4103','4201','4202','4203','4300','4400','4500','4900', '500','510','520','530','540','541','550','551','560','570','590','5101','5102','5103','5201','5202','5203','5300','5400','5500','5900', '600','610','620','630','640','641','650','651','660','670','690','6101','6102','6103','6201','6202','6203','6300','6400','6500','6900', '700','710','720','730','740','741','750','751','760','770','790','7101','7102','7103','7201','7202','7203','7300','7400','7500','7900'); function CstIcmsToStr(AValue: TACBrCstIcms): string; begin Result := CstIcms[ Integer( AValue ) ]; end;

O problema está na função nova criada a CstIcmsToStr(), aquii nos meus fontes eu voltei como era e voltou a funcionar corretamente. Mas peço que revisem esta função.

Amigos, fiz uma atualização pelo SVN e depois disso meus arquivos que antes eram todos validados agora vem com vários erros no CST_ICMS. No caso do itens abaixo o CST_ICMS é o 500 mas ele converteu para 1900 e segundo o guia este campo deve conter 3 caracteres apenas. |C170|1|15812AD||1,00000|UN|25,32|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|53|25,32|1,6500|||0,42|53|25,32|7,6000|||1,92|| |C170|2|15815||1,00000|UN|13,15|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|53|13,15|1,6500|||0,22|53|13,15|7,6000|||1,00|| |C170|3|15816AD||1,00000|UN|23,41|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|53|23,41|1,6500|||0,39|53|23,41|7,6000|||1,78|| |C170|4|15817||2,00000|UN|26,30|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|53|26,30|1,6500|||0,43|53|26,30|7,6000|||2,00|| |C170|5|PW883||1,00000|UN|65,49|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|70|65,49||||0,00|70|65,49||||0,00|| |C170|6|PW885||2,00000|UN|62,90|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|70|62,90||||0,00|70|62,90||||0,00|| []s

Obrigado

Olá amigos, gostaria de saber se é normal ao extrair o Arquivo MFD de uma EPSON T81-FBII demora mais de 5 horas para terminar. Tenho 2 clientes com esta ECF e ambos tem o mesmo problema. []s

ok. pcnNFeR.pas

Posso fazer e colocar o fonte aqui?

Uso o componente do ACBrNFe para ler XML´s de terceiros para agilizar o lançamentos das notas. Porém tenho percebido que em alguns XML´s, os itens não vem na mesma ordem que é impresso no DANFE. E o trecho de código abaixo do arquivo pcnNFeR.pas, na linha 345 o correto seria colocar o conteúdo da variável nItem que foi lido no XML, mas o q é feito é um incremento a cada leitura. 337 NumItem := copy(ItensTemp,Pos('nItem=',ItensTemp)+7,Pos('"',ItensTemp)); 338 NumItem := copy(NumItem,1,Pos('"',NumItem)-1); 339 nItem := StrToInt(NumItem); 340 Itens := StringReplace(Itens, ItensTemp, '',[]); 341 ItensTemp := copy(Itens,Pos('<det nItem=',Itens),(Pos('</det>',Itens)+6)-Pos('<det nItem=',Itens)); 342 343 Leitor.rExtrai(1, 'det nItem="' + IntToStr(nItem) + '"', 'det'); 344 NFe.Det.Add; 345 (* *)NFe.Det.prod.nItem := i + 1; 346 (*V01*)NFe.Det.infAdProd := Leitor.rCampo(tcStr, 'infAdProd'); Abraços a todos. Edson Marcelo EMSoft Sistemas

já tentei com o ECFTeste do ACBr e nada, já verifiquei a velocidade e nada. Só funciona se usar a DLL. []s

Galera, tenho um cliente que só trabalha com Daruma FS600, ele tem 4 no mesmo estabelecimento, e semana passada uma delas parou de funcionar. Levamos a uma autorizada e foi constatado que a ECF estava normal, só que ela só funciona pela DLL da daruma e pelo PAF-ECF que foi desenvolvido com ACBr não funciona. E o detalhe que as outras continuam funcionando com o mesmo programa. Tentamos trocá-la de PC achando que poderia ser problema de máquina e nada é alguma coisa da ECF que não quer funcionar mais no ACBr. Alguém pode me ajudar? obs: já tentei usar a função de equalizarVelocidade da daruma. A função funcionou para meu PAF nessa ECF ainda não funciona. []s

Daniel, pelo q eu pude perceber, se acaba o papel antes de fechar o relatorio gerencial é exibido uma msg "Sem Papel" e qdo se clica em OK ele sai da minha função não respeitando meu try...except ou try...finally. Mesmo que o ACBrECF.ReTentar for igual a true, fica aparecendo aquela tela para retentar, vc recoloca o papel e fica retentando até q vc desiste e opta por não. Esta situação ocorre em todos os modelos da Bematech. []s

Galera, estou com o seguinte problema. No meu PAF quando eu termino um cupom fiscal, dependendo da forma de pagamento eu emito um contra-vale ou uma nota-promissória na própria ECF. exemplo: try dm.ImpFiscal.AbreRelatorioGerencial(); dm.ImpFiscal.LinhaRelatorioGerencial(#14+' < NOTA PROMISSORIA >'); dm.ImpFiscal.LinhaRelatorioGerencial('bla bla'bla bla'bla bla'bla bla'bla bla'bla bla'bla bla'); finally dm.ImpFiscal.FechaRelatorio; end; só q se der um erro como por exemplo falta de papel eu perco totalmente o controle, pois no método LinhaRelatorioGerencial tem um try...except...end; tem como solucionar isso ?