rodnei

se vc tiver fechado o Tortoise ai fica dificil , pois eu so olho por ele , e nele tem umas opcoes de mostrar a diferença do codigo antigo com o atualizado ai da pra ver o que foi feito tambem

na lista do tortoise , qndo aparece aqueles monte de arquivos , update,add.. etc.. procure o arquivo changelog.txt que la mostra as alteracoes correcoes

muito obrigado EMBarbosa , ajudo muito

pior que foi com o contador mesmo , mas axo que esse contador , nunca mecheu com ECF vo analisar melhor com ele pra ver q coisa certa

olá amigos , estava implementando em um dos meus clientes a impressora Bematech fiscal , e ele precisou inserir uma Aliquota 0 mas no cupom ele não vendia o item pois ele ignorava as alicotas 0 CarregaAliquotas {Procura qual foi a última alíquota cadastrada diferente de alíquota zero} for Cont := qtdAliq Downto 1 do begin ValAliq := RoundTo( StrToIntDef(copy(StrRet,((Cont-1)*4)+1,4),0)/100,-2); if ValAliq > 0 then <--- aqui ele pula as aliquotas zeradas begin ByteUltimaAliquota := Cont; Break; end; end; resolvi o problemas comentando o If {Procura qual foi a última alíquota cadastrada diferente de alíquota zero} for Cont := qtdAliq Downto 1 do begin ValAliq := RoundTo( StrToIntDef(copy(StrRet,((Cont-1)*4)+1,4),0)/100,-2); // if ValAliq > 0 then begin ByteUltimaAliquota := Cont; Break; end; end; algum dos caros colegas já utilaza ou utilizarão esse tipo de aliquota ?. achei meio estranho o cliente pedir , mas ....

eu não sou muito de usa gexperts e outras coisas similares , limito muito a usar os componentes de terceiros , mas quando não tem jeito uso sem dó , unico q uso e não consigo ficar sem é o Source Code Formatt, ele faz a identação do codigo e ajuda a corrigir erros de begin's e end's não lembro do site , mas no google é so procurar DelForEx que aparece de monte pra download

ola amigos !!! estava olhando aqui e um de meus clientes usa muito redução de ICMS , até ai o meu sistema ja funciona normal . mas peguei uma nota com reduçao de icms e no dados adicionais da NF-e tava escrito valor do icms disopensado R$ xxxx.xx , e foi descontado no valor total da nota , alguem poderia me explicar isto melhor ?? grato

olá amigo , tenho muitos clientes que usa a não fiscal matricial e termica e nao tenho esse problema não, mas utilizo delphi e não java , mas ja q os fontes sao os mesmo , acredito que deve ser alguma config no java que pode estar dando esse erro

desculpa o deslize que dei , depois de estudar melhor vi que realmente é isso mesmo , A1 é compativel com CAPCOM e OpenSSL , A3 somente CAPCOM

olá amigos !!! sempre usei a NFE com capcom nunca tive problemas agora um de meus cliente obteve um certificado OpenSSL , tem como criar uma configuracao para utilizar os 2 metodos no mesmo programa ? grato

olha nao li o manual todo mas acho que cada cnpj é um certificado . O ACBR nao abre o certificado pode dar difergencia no retorno do SEFAZ qndo vc enviar a nota

Olá amigos um de meus clientes me fez uma pergunta meio esquisita , porguntou-me se é possivel re-imprimir um cupom fiscal que ja foi emitido já que vinculo o numero dele na venda gravada no meu banco de dados , logo de cara disse que para efeito fiscal é impossivel. mas teria alguma maneira de re-imprimir ele como relatorio gerencial ou algo parecido ?? grato

para ter certeza se é este mesmo o problema troque os botao que estes sao da rxlib e ponha os botoes convencionais , para fazer isso em lote : Pressione ctrl+alt+F12 , ai vc substitui TRxSpeedButton para TButton e depois preccione a sequencia de teclas novamente , ele ira mostrar algumas mensagens , mas ponha todas Yes

deve ser pois foi comprado pelo site de bematech junto com a impressora , vo pegar ela e a gaveta com calma e testa sertinho , o duro vai ser tira do pdv esses itens

até já olhei o ACBrECFBematech.pas mas o problema que essa impressora é não fiscal , ja testeis todos os codigo que tenho e q já achei por ai e não obtive resposta da gaveta =(

alguem podeia incluir esta linha em ACBrSerialReg.pas é para abrir a impressora Zantus é antigona mas sempre ajuda Proc('#027,#112,#048,#050 | Zantus') ;

não queria o comando direto pra enviar para a porta , pois o que tenho que que funciona na mp 20 FI não esta funcionando da mp 400 th

alguem tem o comando dessa impressora para abrir a gaveta ? grato

ja tento assim try FormNFEletronica.Tag:= 1; FormNFEletronica.ShowModal; finally FreeandNil(FormNFEletronica); end; verifique tb as suas tabelas no evento onclose do formulario pode ser outra coisa ou ate o componente destrua ele antes de fechar o formulario para testar

de uma olha nos post que tem um sobre esse topico que vc abriu

ola pessoal . esou criando uma funcao que me retorne um array Type TFiltroRateio = Record conta: String; Descricao: String; End; a funcao é essa : //------------------------------------------------------------------------------ Procedure GetFiltroRateio(Opfinan: integer; var conta:Array Of TFiltroRateio); Var MySql: String; Contar: integer; tabela: TIBQuery; tmp: Array Of TFiltroRateio; Begin setlength(conta, 0); SetLength(tmp, 0); tabela := TIBQuery.create(application); tabela.close; tabela.database := dm1.IBDatabase; tabela.sql.clear; tabela.sql.add('select * from OPRATEIO'); tabela.sql.add(format('where OPFINAN = %d', [Opfinan])); tabela.sql.add('order by conta'); tabela.open; tabela.First; contar := 0; While Not tabela.Eof Do Begin inc(contar); tabela.Next; End; If contar > 0 Then Begin SetLength(tmp, contar); contar := 1; tabela.First; While Not tabela.Eof Do Begin tmp[contar].conta := tabela.fieldbyname('conta').asstring; tmp[contar].Descricao := tabela.fieldbyname('descricao').asstring; inc(contar); tabela.Next; End; End; tabela.free; End; mas se eu der setlength(conta,0) da incomtibilidade , dis que a variavel conta nao e multidirecional , as éa mesma que a variavel tmp fiquei sem entender vo char a funcao asism : Procedure TFM_OPFinan.MostraRatreio(OpFinan: integer); Var Rateio: Array Of TFiltroRateio; f: Integer; Begin Setlength(Rateio,0); GetFiltroRateio(OpFinan, Rateio); If length(Rateio) > 0 Then Begin tbTemp.Close; TbTemp.Open; For f := 1 To length(Rateio) Do Begin TbTemp.Append; TbTempconta.Value := rateio[f].conta; TbTempdescricao.Value := rateio[f].Descricao; TbTemp.Post; End; End; End;

ainda existe empresas que emitem a carta frete para o motorista , com CTE sera que vai ter jeito de usal-las ainda ?

posta o modelo e tipo de conexão (serial/usb..) que o teclado usa assim fica mais facil obter ajuda

tb gostaria de saber se será possivel pois la ja tinha muitas informacões