marcio pereira batista

vlw meu amigo, muito obrigado!, ja modifiquei aqui

boa tarde amigos, estou tento esse problema as vezes quando a internet do cliente esta ruim rejeição Duplicidade de NFe com diferençã na chave de acesso e para corrigir tenho que pegar o chnfe que vem no retorno do erro e manualmente alterar pelo que ficou salvo no sistema, o problema ocorre raramente e somente quando a internet esta ruim, teria como eu pegar esse retorno do numero do xml que vem do erro {chnfe:numero do xml correto} de forma que quando ocorrece o erro eo ja corrigice automaticamente na base de dados do cliente para não ser necessario fazer isso manualmente ou teria uma forma melhor de tratar esse erro ? desde ja agradeço a quem puder me ajudar

muito obrigado Daniel, com o acbrposprinter funcionou, somente uma duvida, tem como eu saber se a gaveta esta aberta ou não pelo posprinter ?

bom dia amigos, não estou conseguindo colocar a gaveta para abrir com a nova impressora bematech 4200 hs, na impressora mp 2500 e na 4200 th funciona normalmente com o comando da bematech, ja testei com os codigos abaixo e nenhum deles a gaveta abre #027,v,#140 | Bematech #027,#112,#048,#050 | Zantus #027,p,#000,#050,#200 | Schalter #027,p,0,#050,#200 | Mecaf 27+'v5' #27 + #112 + #000 + #010 + #100 #29 + #249 + #32 + #0 + #27 + #116 + #8 + #27 + #118 + #140 27+'v5' aparece o seguinte erro quando configuro "connection error 1:função incorreta" desde ja agradeço a quem possa me ajudar

adicionei 1 timer apos o ACBrGAV1.ativar; e alguns segundos apos utilizei o ACBrGAV1.Desativar;, aparentemente esta funcionando agora , no componente acbrgav tem um aberturaIntervalo=300, qual a finalidade dessa opção do componente ?, seria para fazer oque estou fazendo com o timer ?

problema ao utilizar componente acbrgav, apos abrir a gaveta a impressora para de funcionar o problema ocorre tanto na impressora bematech mp2500 th e bematech mp4200 th, estou utilizando o seguinte comando para abrir a gaveta if not ACBrGAV1.Ativo then ACBrGAV1.Ativar ; ACBrGAV1.AbreGaveta ; a gaveta abre normalmente porem a impressora para de funcionar e apos algumas aberturas da gaveta passa a exibir a seguinte mensagem : "comunnication error 5: acesso negado" , ja tentei colocar o comando ACBrGAV1.Desativar; apos o abre gaveta porem quando coloco esse comando a gaveta somente abre apos alguns cliques no button para abrir. antes eu abria a gaveta com o comando direto para abrir : var F: TextFile; begin AssignFile(F, '\\servidor\nomedaimpressoracompartilhada'); Rewrite(F); Writeln(F, '#29 + #249 + #32 + #0 + #27 + #116 + #8 + #27 + #118 + #140'); CloseFile(F); end; e funcionava normalente, não sei pq motivo agora quando executo esse comando ao inves de abrir a gaveta esta imprimindo a linha de comando na impressora e não abre a gaveta. caso alguem possa me ajudar a resolver qualquer 1 dos dois casos que citei e agradeço muito.

muito obrigado pela dica meu amigo, ja marquei com o cliente para verificarmos isso junto ao contador na segunda feira, assim que resolvido postarei aqui, fique com Deus.

muito obrigado meu amigo!, vou testar aqui, fica com Deus

bom dia meus amigos estou com o seguinte problema em uma nota de devolução o fornecedor pede que algumas mercadorias seja informado o FCPST e outras seja informado FCP e todos com csosn 900, estou fazendo da seguinte forma : quando amercadoria é FCPST informo o seguinte : ICMS.modBC := dbiMargemValorAgregado; ICMS.vBC := qrnota_item.FieldByName ('base_calculo').Value; ICMS.pRedBC := qrnota_item.FieldByName ('icms_reduzido').Value; ICMS.pICMS := qrnota_item.FieldByName('ICMS').asfloat; ICMS.vICMS := qrnota_item.FieldByName ('valor_icms').Value; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := qrnota_item.FieldByName ('margem_agregada').Value; ICMS.pRedBCST := 00.00; ICMS.vBCST := qrnota_item.FieldByName('base_sub').Value; ICMS.pICMSST := 00.00; ICMS.vICMSST := qrnota_item.FieldByName ('icms_sub').Value; ICMS.pCredSN := 0.0; // Colocar o percentual do Crédito ICMS.vCredICMSSN := 0.0; // Colocar o valor do Crédito ICMS.vBCFCPST := qrnota_item.FieldByName('base_sub') .Value; // 0.00; ICMS.pFCPST := qrnota_item.FieldByName ('fcpalicota').Value; ICMS.vFCPST := qrnota_item.FieldByName ('fcpvalor').Value; // ICMS.pFCP:=qrnota_item.fieldbyname('fcpalicota').value; // ICMS.vFCP:=qrnota_item.fieldbyname('fcpvalor').value; vtotalfcpst := vtotalfcpst + qrnota_item.FieldByName ('fcpvalor').Value; se for FCP somente informo o seguinte : ICMS.vBCFCP := qrnota_item.FieldByName('base_sub') .Value; // 0.00; ICMS.pCredSN := 0.0; // Colocar o percentual do Crédito ICMS.vCredICMSSN := 0.0; // Colocar o valor do Crédito ICMS.pFCP := qrnota_item.FieldByName ('fcpalicota').Value; ICMS.vFCP := qrnota_item.FieldByName('fcpvalor').Value; vtotalfcpst := vtotalfcpst + qrnota_item.FieldByName ('fcpvalor').Value; o CST de todas as mercadorias esta 041 porem ao gerar o xml somente o valor das mercadorias que é FCPST e gerado no xml e o valor FCP sai sempre 0, alguem poderia me orientar sobre oque estou fazendo errado ?, desde ja agradeço

continuo com o problema, sera que alguem pode me ajudar ?, desde ja agradeço

boa tarde amigos estou com problema com juros e taxa de juros no boleto banco do brasil, gostaria de ter uma taxa de juros mensal de 5% e taxa de multa de 10% e estou configurando o acbrboleto dessa forma : CodigoMora := '2'; CodigoMoraJuros :=cjTaxaMensal; ValorMoraJuros :=5; ValorDesconto :=0; ValorAbatimento := 0; DataMoraJuros := StrToDateDef(edtDataMora.Text, 0); DataDesconto := StrToDateDef(edtDataDesconto.Text, 0); DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0); DataProtesto := StrToDateDef(edtDataProtesto.Text, 0); PercentualMulta :=10; porem quando o boleto venci esta dando uma taxa de juros de 0% e uma multa diaria de r$ 5,00 alguem poderia me ajudar sobre a configuração correto da taxa de juros de 5% ao mes e multa de 10%, qual o campo do acbr boleto de configurar para que isso ocorra de forma correta pois o gerente informou que o percentual de juros esta 0 e valor por dia de atraso esta r$ 5,00 desde ja agradeço

muito obrigado Renato, resolvido!

bom dia amigos, quando imprimo o boleto como carne o campo parcela no boleto sai 000/000 para todos os boletos (o arquivo de remessa vai certo as parcelas), ate mesmo no exemplo do acbrboleto sai assim tb, tem como corrigir isso ?

boa noite, o campo --> Informe [019] consegui resolver informando ACBrBoleto.Cedente.Modalidade:='019'; porem o campo --> o qual devo informar 01 não consegui encontrar no componente onde informo o mesmo, meu arquivo de remessa esta enviando 02 nessa posição desde ja agradeço consegui resolver, tinha que informar ACBrBoleto.CriarTituloNaLista.OcorrenciaOriginal.Tipo := toRemessaregistrar; obrigado!

boa noite, o campo --> Informe [019] consegui resolver informando ACBrBoleto.Cedente.Modalidade:='019'; porem o campo --> o qual devo informar 01 não consegui encontrar no componente onde informo o mesmo, meu arquivo de remessa esta enviando 02 nessa posição desde ja agradeço