sandrojca

Bom dia Italo, Não entendi pois tinha anexado o arquivo, aqui vai ele novamente, o bom foi que fiz mais alguns ajustes. Abs ACBrCTeDACTEFR.pas

Boa noite pessoal, Fiz alguns acertos no ACBrCTeDACTEFR pois não estava permitindo trocar a impressora e nem suprimir o ShowDialog, ao menos a versão que tenho não permitia fazer isso. Se acharem interessante disponibilizem no subversion, segue no anexo. Sandro

Boa tarde Italo, Pelo que li no manual, a unica consideração de layout que eles falam é que o tem que se manter nas dimensões relatadas no manual, o restante não tem uma padrão engessado. Eu estou produzindo esse no fastreport, mas não tenho um bom XML para fazer os testes. Esse conhecimento é indicado para cargas fracionadas. Melhor dizendo estou alterando o DACTE feito em fastreport. Grato

Segue o arquivo

Essa versão do layout do DACTE no tamanho A5 evoluiu? Estou com um exemplo em mãos aqui, o mais interessante é que é impresso duas vias em um formulário A4, isso facilita o motorista na entrega da mercadoria pois o cliente fica com uma cópia e ele com outra.

Parabéns pela iniciativa regys.silveira. Vou testar o componente.

Venha ser parceiro do NFeHD, um serviço que armazena, organiza e disponibiliza os arquivos XML. Estamos procurando parceiros para comercialização, você pode oferecer ao seu cliente que utilize o serviço NFeHD para armazenar e disponibilizar os arquivos XML. Entre no nosso site www.nfehd.com.br e se cadastre como parceiro. A comissão de parceiro é de 50% do valor de implantação. http://www.nfehd.com.br Grato

Pessoal, abortamos o desenvolvimento do nosso sistema, temos para vender uma impressora fiscal MP4000 para desenvolvimento e um pinpad. Aceito propostas. Grato [email protected]

Software de Gestão com PAF-ECF, Controle de estoque. Compras. Financeiro. Módulo de CRM. Vendas Atacado e Varejo NFe 2.0 Base de dados Oracle.

Pessoal, estamos vendendo o direito autoral do nosso sistema. interessados podem enviar e-mail para: [email protected]

Entendo... então nesse caso o problema é realmente interno.... Por favor faça um teste trocando todas as declarações de RoundTo para SimpleRoundTo Desculpe a demora, o uso do SimpleRound resolveu o problema, ao menos por enquanto, vou fazer mais testes. Obrigado

Testei apenas com desconto.

Boa noite Daniel, Eu tirei esse comando da função imprime item, na verdade a função vende item quando tem desconto, ela faz exatamente isso, vende o item e depois da um desconto em um item anterior.

Daniel, estou usando: ecf.DoVerificaValorGT; Viu no inicio que na internet relataram um erro no roundTo do delphi?

Boa tarde pessoal, modifiquei o componente acbraac, basicamente troquei: if AECF.ValorGT <> RoundTo( ValorGT, -2 ) then POR if AECF.ValorGT <> ValorGT then FUNÇÃO COMPLETA function TACBrAAC.VerificarGTECF(const NumeroSerie : String ; var ValorGT : Double) : Integer ; // Retornos: // 0 = Tudo OK // -1 = NumSerie não encontrado // -2 = GT não confere var AECF : TACBrAACECF ; ValorGTNovo : Double ; begin Result := 0; VerificaReCarregarArquivo; AECF := AchaECF( NumeroSerie ); if not Assigned( AECF ) then Result := -1 else // if AECF.ValorGT <> RoundTo( ValorGT, -2 ) then if AECF.ValorGT <> ValorGT then begin ValorGT := AECF.ValorGT; Result := -2; if Assigned( fsOnVerificarRecomporValorGT ) then begin ValorGTNovo := AECF.ValorGT; fsOnVerificarRecomporValorGT( NumeroSerie, ValorGTNovo ); if ValorGTNovo <> AECF.ValorGT then begin AtualizarValorGT( NumeroSerie, ValorGTNovo ); Result := 0; end ; end ; end ; end ; agora esta funcionando, não o que isso poderá causar em outros sistemas.... Favor avaliarem

Bom dia pessoal, testando aqui o componente AcbrAcc ao comparar o valor do GT da ECF e o GT do arquivo, usando a função: ecf.DoVerificaValorGT; mesmo os valores sendo iguais, a função retorna que há divergência no valor do grande total. Valor do ECF....: 47,98 Valor do Arquivo: 47,98 Dei uma pesquisada na função RoundTo do delphi e achei isso: A função Math.RoundTo do Delphi não faz o arredondamento correto de acordo com o modelo Bankers’s Rounding (diferente do que está no Help). Isso se deve por causa do uso interno de varáveis de tipo flutuante. Segue abaixo uma versão dessa função que trabalha somente com variáveis do tipo Currency e por isso funciona corretamente. function RoundTo(const AValue: Currency; const ADigit: TRoundToRange): Currency; var LFactor: Extended; rmOrig: TFPURoundingMode; begin LFactor := IntPower(10, ADigit); Result := Round(AValue / LFactor) * LFactor; rmOrig := GetRoundMode(); if rmOrig <> rmNearest then begin SetRoundMode(rmNearest); Result := Round(Result / LFactor) * LFactor; SetRoundMode(rmOrig); end; end;

Boa noite Strago parabéns pela inciativa. vou iniciar os testes Sandro

Resolvido, removi a ACBR e reinstalei. Valeu pessoal.

Pessoal, como linkar o acbraac ao acbrecf, lembrando que o acbraac esta dentro do pacote AcbrComum, o componente não aparecer na paleta de componentes. Tentei usar o demo do ACBRAAC e ele reclama que o componente não esta disponível. ACBrAAC1: TACBrAAC; da erro Alguma dica para fazer isso funcionar? Grato

Fernando, implementamos para bematech também. Procedure TACBrECFBematech.DescontoAcrescimoItemAnterior(ValorDescontoAcrescimo : Double; DescontoAcrescimo : String); begin if fpMFD and (Pos(Trim(GetSubModeloECF), 'MP-7000 TH FI') > 0) then EnviaComando('02' + '0000' + IntToStrZero( Round(ValorDescontoAcrescimo * 100) ,12) ) else EnviaComando('02' + padL(FormatFloat('00.00',ValorDescontoAcrescimo),10) + IntToStrZero( Round(ValorDescontoAcrescimo * 100) ,12) ) ; end; Já funcionando em clientes.

Ainda assim, se tivesse postado aqui no fórum deveria ser fácil localizar... eu não achei... Agora se postou lá no ForumWeb eu não pesquisei por lá... Lampada, tem como vc testar e anexar a unit atualizada com essa correção? eu posso subir se estiver tudo certo... Taí, por onde anda o Emerson?? Elton, foi na época do forumweb Obrigado

Elton, já faz tem, acho que tem mais ou menos uns 6 meses. Teria como adicionarem a rotina que enviei?

Oi Fernando, eu tinha postado no forum, alguém ficou de adicionar mas não me lembro que foi. Tem como adicionar? Grato

Eu tinha implementado o DescontoAcrescimoItemAnterior para SwedaSTX, mas acho que se perdeu nos fonte, refiz a procedure será que alguém poderia implementar acrescentar no arquivo ACBrECFSwedaSTX.pas? Procedure TACBrECFSwedaSTX.DescontoAcrescimoItemAnterior(ValorDescontoAcrescimo : Double; DescontoAcrescimo : String); begin if (DescontoAcrescimo = 'A') then EnviaComando('03|' + AjustaValor(ValorDescontoAcrescimo)) else EnviaComando('04|' +AjustaValor(ValorDescontoAcrescimo)) ; end;

Alguma solução encontrada para esse problema? Grato