sandrojca
Membros-
Total de ítens
31 -
Registro em
-
Última visita
sandrojca's Achievements
-
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
-
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]
-
ACBRAAC - Erro de arredondamento
sandrojca replied to sandrojca's tópico in Dúvidas Gerais sobre o ACBr
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.
-
ACBRAAC - Erro de arredondamento
sandrojca replied to sandrojca's tópico in Dúvidas Gerais sobre o ACBr
Daniel, estou usando: ecf.DoVerificaValorGT; Viu no inicio que na internet relataram um erro no roundTo do delphi? -
ACBRAAC - Erro de arredondamento
sandrojca replied to sandrojca's tópico in Dúvidas Gerais sobre o ACBr
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