volmir

bom dia estive problemas ao ler retorno cnab240 do banco sicoob, ai pedi o manual pro pessoal do banco e fiu analizar e percebi que tem muita coisa que nao bate com o manual estao em possicoes diferentes, por isso fiquei com uma duvida sera que me passaram um manual errado? sera que houve alguma alteracao e nao foi ajusta no componente? estou anexando o manual do sicoob (segundo pessoal do banco este é o ultimo atualizado) quem puder dar uma olhada pra me ajudar fico grato. sopra exemplificar a procedure TACBrBancoob.LerRetorno240(ARetorno: TStringList); (Unit AcbrBancoBancoob) neste trecho ACBrBanco.ACBrBoleto.DataArquivo := StringToDateTimeDef(Copy(ARetorno[1],144,2)+'/'+ Copy(ARetorno[1],146,2)+'/'+ Copy(ARetorno[1],148,4),0, 'DD/MM/YY' ); esta assim quando deveria ser assim segundo o manual ACBrBanco.ACBrBoleto.DataArquivo := StringToDateTimeDef(Copy(ARetorno[0],144,2)+'/'+ Copy(ARetorno[0],146,2)+'/'+ Copy(ARetorno[0],148,4),0, 'DD/MM/YY' ); a data do arquivo esta na primeira linha do registro header do arquivo Layouts para troca de informaçõesdede (1).xls

ACBrSintegra.pas Arquivo anexado

percebi um erro na unit {ACBRSintegra} procedure TACBrSintegra.GerarRegistros60I(Registros60I: TRegistros60I); var wregistro: string; i: Integer; begin for I := 0 to Registros60I.Count - 1 do begin wregistro:='60I'; wregistro:=wregistro+FormatDateTime('yyyymmdd',Registros60I.Emissao); wregistro:=wregistro+PadRight(Trim(Registros60I.NumSerie),20); wregistro:=wregistro+PadRight(Trim(Registros60I.ModeloDoc),2); wregistro:=wregistro+TBStrzero(Registros60I.Cupom,6); wregistro:=wregistro+TBStrzero(IntToStr(Registros60I.Item),3); wregistro:=wregistro+PadRight(Registros60I.Codigo,14); wregistro:=wregistro+TBStrZero(TiraPontos( FormatFloat('#,###0.000',Registros60I.Quantidade)),13); {Valor líquido (valor bruto diminuído do desconto) da mercadoria/produto (com 2 decimais)} wregistro:=wregistro+TBStrZero(TiraPontos( FormatFloat('#,##0.00',Registros60I.Valor)),13);//2 decimais alterado por volmir em 15-09-2015 wregistro:=wregistro+TBStrZero(TiraPontos( FormatFloat('#,##0.00',Registros60I.BaseDeCalculo)),12); wregistro:=wregistro+PadRight(TiraPontos(Registros60I.StAliquota),4); wregistro:=wregistro+TBStrZero(TiraPontos( FormatFloat('#,##0.00',Registros60I.ValorIcms)),12); wregistro:=wregistro+Space(16); WriteRecord(wregistro); end; end; estava gerando com 3 decimais mas deve ser gerado com 2 decimais apartir de Nova redação dada ao campo 10 do subitem 16.5, pelo Conv. ICMS 76/03, efeitos a partir de 16.10.03

Atualizei meus fontes a apartir de entao comecou a aparecfe um erro ao consutar uma nfe carrregando o xml Erro: "Enable to parse"

Boa tarde estou com um problema ao gerar arquivo de remessa cnab 400 para o sicoob pois segundo manual deve ser informado o percentual de mora/juros e o acbr esta pedido pra informar o valor da mora/juros ai nao esta aceitando no banco. na verdade até aceita porem esta com as informacoes errada.

boa tarde estou usando o quickreport na impresao de boletos porem encontrei um probleminha na unit (ACBrBoletoFCQuickFr) procedure TACBrBoletoFCQuickFr.RLMemo6_1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); txtLocalPagamento6_2.Caption := lblLocalPagto6_0.Caption;//volmir 07-08-2015 estava assim txtLocalPagamento6_2.Caption := lblLocalPagto.Caption; porem lblLocalPagto.Caption esta com o caption erado pois nao passou por uma chamada visto que pertence a outro relatorio outra coisa que tenho que arruma a cada vez que baixo os fontes do zero é -o zoom o prewewInatilezeState e o prewewDefoultSaveType e devo adicionar um componente de exportacao para pdf -descomentar esta parte do codigo para que seja possivel enviar o email com pdf: case Filtro of fiPDF : begin FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo); try TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true; RLLayout.ExportToFilter(FiltroExportacao); finally FiltroExportacao.Free; end; na funcao Imprimir. é claro que sei das imcompatibilidades no caso que usa quickreport com Delphi 7 nao posiu opcao pra exportar pra PDF

bom dia italo noa se vc ja percebeu mas acabei de atualizar todos os fontes pelo trunk2 e tem um erro nas units do AcbrMDFe eu tive que corrigir para conseguir instalar o erro esta nesta unit (pmdfeProcMDFe) function TProcMDFe.GerarXML: boolean; // Gerar arquivo if (Gerador.ListaDeAlertas.Count = 0) and (FXML_MDFe <> '') and (FXML_Proc <> '') then //volmir 07/08/2015 ---tinha dois then begin Gerador.ArquivoFormatoXML := ''; Gerador.wGrupo(ENCODING_UTF8, '', False); Gerador.wGrupo('mdfeProc versao="' + Versao + '" ' + NAME_SPACE_MDFE, ''); Gerador.wTexto('<MDFe xmlns' + RetornarConteudoEntre(FXML_MDFe, '<MDFe xmlns', '</MDFe>') + '</MDFe>'); Gerador.wTexto(FXML_Proc); Gerador.wGrupo('/mdfeProc'); end; e nesta unit (ACBrMDFeManifestos) property XML: String read FXML write FXML; //volmir 07/08/2015 --esta soment leitura tive que muadar para escrita tambem pois ele esta recebendo valores aqui na unit (ACBrMDFeWebServices) funcao function TMDFeRetRecepcao.TratarRespostaFinal: Boolean; FManifestos.Items[J].XML := AProcMDFe.Gerador.ArquivoFormatoXML;

Boa tarde pessoal, estou precisando de uma ajuda. Meu cliente comprou uma impressora Epson TM-T900F que é uma impressora blindada (novo modelo do Convênio ICMS 09/09.) consegui fazer comunicar apos instalacao de um emulador de USB/COM da propria fabricante visto que este ecf nao tem porta serial apenas USB. porem apos fazer alguns testes aqui com o ECFTeste.exe aconteceu alguns erros nos logs porem isto nao mostra ao fazer o cupom. segue em anexo o log gerado. preciso de um posicionamento sobre estes erros (isso nao vai acarretar em problemas futuros)? Obs: Abri o sistema comuniquei, ai apaguei os logs gerados. Depois disso Abri cupom-inseri um item-subtotalizei-efetuei pagamento-finalizei o cupom. Depois disso cancelei o cupom e estes sao os logs gerados. O erro gerado é referente ao operador pois nao informei operador mas o estranho é que nao mostrou o abrecupom nem o cancela cupom pois é neste momento que gera o erro. outra coisa se informar o operador cada vez que for abrir cupom e cancelar cupom ele imprime na impressora um relatorio gerencial (Parametros programados - e o nome do operador) ai para economizar papel deixei sem operador (sera que tem uma forma de nao imprimir isto, ai dava pra deixar o operador e nao iria acontecer este erro); Testando com meu software me deparei com outro erro ao cancelar o cupom (Erro referente a Meio de pagamento não encontrado), Obs: segui mesmos passos do ECFTeste.exe. acbrlog.txt ECFMeuSoftware.log

Ok Resolvido

hum entao pode que foi pelo seguinte situacao pois fiz assim Ex; venda de 20,00 fiz pagameno de 5,00 no cartao e 50,00 em dinheiro mas com isso sobrou 35,00 de troco talves ai minha rotina esta errada. vou rever isso

Estou enviando em anexo logs completos desda da abertura do sistema ate o momento do erro inclusive agora deu dois erros Elgin K Vendi no cartao e em dinheiro indice do cartao = 1 dinheiro = -2 LogECFElginK.rar

Boa tarde preciso de uma ajuda Estou simulando pagamentos com tef usando o tef da daruma e acontece esse erro TX -> {70;LeInteiro;NomeInteiro="Indicadores";39} 16:40:09:059 RX <- {70;0;ValorInteiro=14400;24} -- 16:40:14:236 Estado TX -> {71;LeInteiro;NomeInteiro="EstadoFiscal";40} 16:40:14:259 RX <- {71;0;ValorInteiro=1;20} -- 16:40:14:259 TX -> {72;LeInteiro;NomeInteiro="Indicadores";39} 16:40:14:278 RX <- {72;0;ValorInteiro=14400;24} -- 16:40:14:284 AbreCupomVinculado( 000375 , 1 , 0,9 ) TX -> {73;AbreCreditoDebito;CodMeioPagamento=1 COO=375 Valor=0,9;58} 16:40:14:385 RX <- {73;8068;NomeErro="ErroCMDIndiceInvalido" Circunstancia="Meio de pagamento nao encontrado no cupom";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 8068 - ErroCMDIndiceInvalido Meio de pagamento nao encontrado no cupom ---------------------------------------- -- 16:40:56:061 Estado TX -> {74;LeInteiro;NomeInteiro="EstadoFiscal";40} 16:40:56:080 RX <- {74;0;ValorInteiro=1;20} -- 16:40:56:080 TX -> {75;LeInteiro;NomeInteiro="Indicadores";39} Testei no tefDemo.exe e tambem aconteceu isso sendo que existe este indice de pagamento 1 - cartao e que permite vinculado o que sera que pode ser isso?

Como faço agor apra pesquizar aqui no forum sobre um conteudo especifico, nao estou conseguindo mais me traz muitos resultados queria fltrar por exemplo uma duvida sobre ACBREcf

Ok Atualizei meus fntes agora e resolveu Obrigado

Boa tarde pessoal, atualizei meus fontes ACBR e agora fui instalar usando o instalador e deu erro ao copilar os fontes do AcbrBoletos. vejam em anexo o erro: Nesta parte do codigo Acontece o erro ao compilar manualmente: na procedure procedure TACBrBancoSicredi.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo; aRemessa: TStringList); .. IntToStrZero( round(IfThen(ValorDescontoAntDia > 0, ValorDescontoAntDia, ValorDesconto) * 100), 10) + // 083 a 092 - Valor de desconto por dia de antecipação Erro:[dcc32 Error] ACBrBancoSicredi.pas(331): E2250 There is no overloaded version of 'IfThen' that can be called with these arguments ErroBoletos.txt Ninguem tentou reinstalar acredito que seja erro nos fontes ou eu estou fazendo algo errado

Se alguem tiver um tempinho pra me dar uma mao. Preciso muito descobrir oq esta acontecendo pra conseguir resolver o problema. Pessoal estou envianndo mais um anexo de outro cliente que da esse erro de GT o que percebi é que antes de dar o erro de GT ele da erro de "Impressora nao responde" ja fiz todas as modificacoes e sugestoes que encontrei aqui no forum mas nao tive sucesso o errro continua ja alterei o timeout coloquei 20 desmarquei o tentar Novamente baixei o buffer da porta com e nenhum desses resolveu meu problema Olhem o anexo ele esta bem enxuto apaguei os logs antigos abrir o sistema e pedi pro cliente fazer o cupom ai ja no primeiro item que ele foi inserir aconteceu o erro ai peguei os logs gerados e estou anexando pra analize por favor quem tiver disponibilidade me ajude ErrosECFElginK.rar

boa noite, Regys na minha maquina isto nao acontece somente ma maquina de meus clientes e apenas em alguns por isso entao estou enviando em anexo os logs de um outro clientes para analise ve se neste aparece algo de erado LogsECFElginK.rar

na verdade o que me parece que acontece é que as vezes quando insiro um item na um erro de "Impressora (MArca) não esta respondendo" mas insere o item igual. ai depois de finalizar este cupom quando for abrir um novo da esse erro de GT. tenho aquela opcao de recompor valor do gt desmarcada. o erro acontece quando dou um ACBRECF.AbreCupom; tenho o ACBRAAC liagdo ao ACBRECF. engraçado que antes com o delphi XE5 isso nao acontecia,Me parece que quando da este erro de impressora nao respondendo ele corrompe o arquivo auxiliar criptografado, pois ja aconteceu de casos em que o valor do GT estava = 0, no arquivo auxiliar.

Estou enviando em anexo os logs do ecf que acontece erro de GT (Lembrando que tenho desabilitado o recompoeValorGT) ACBR_ECF.rar

hum blz

consegui um cliente que esta trablhando agora e aconteceu o erro mas nao estou conseguindo enviar o anexo tamanha 500Kb mas dis que ja exedi o espaco para anexos O q devo fazer pra conseguir anexar mais arquivos ????????????

amanha de manha pego os logs da maquina do cliente ai posto aqui preciso muito descobrir o que é isso

boa noite juliomar infelizmente nao obtive sucesso formatei minha maquina removi o acbr baixei tudo de novo e instalei do zero porem meu problema persistiu estou desesperado atras de uma solucao pois meus clientes estao reclamando muito e com razao alguma outra sugestao??????

Pois é ja pesquisei aqui no forum e encontrei varias situacoes. mas no meu caso ou fazer o seguinte estou lancando uma atualizacao pra meus clientes hoje onde desabilito o retentar ai vou ficar analizando se for este o problema tambem vou tentar aumentar o timeout nos clientes que der este erro pra ver se resolve e caso nao resolver vou ter q pegar um log de algum cliente que acontecer o erro e postar aqui pra analize de vcs. obrigado pela atencao e se acontecer novamente volto a postar os logs

boa tarde juliomar não sei se entendii direito o que vc quiz dizer -Eu tenho que deixar o retentar como false? e fazer os tratamento via codigo nos eventos especificos. na verdade preciso saber por que serve a propriedade retentar pesquizando mais um pouco aqui no forum vi sugestoes de deixar o retentar como true e quando for chamar o acbrTEF setar para false e depois voltar para true vou fazer assim e testar aqui mas se alguem tiver uma sugestao melhor, estou aceitando sugestoes