geanjesus

ja deu certo italo e juliomar, muito obrigado, se quiserem pode fechar o topico... vou deixar a dica para o erro da base dupla de calculo do difal que eu demorei para endenter....e um dos motivos que atualizei o ACBR... para quem tiver problema com isso... na base de calculo dupla tem duas ...1a...bcicmsproduto nao entra frete nem ipi.....mas na 2a..bcicmsprod ..entra frete e ipi se houver.... demorei para entender isso, nas pesquisas que fiz nao estava claro isso, só descobri através dos erros e refazendo os calculos... meu calculo ...só dava certo quando nao tinha nem frete nem ipi...com a base dupla... mas enfim resolvido o calculo...

Jesus, mais erros if InutNFe.GerarXML then type de expression must be Boolean (aqui nao é mais boolean?) RegistrarArquivosInut(InutNFe.ID, InutNFe.Gerador.ArquivoFormatoXML, OK);undeclared identifier 'gerador' (aqui nao existe mais o gerador?) procedure TGereNFe.RegistrarPreInut(const Inutilizacao: TNFeInutilizacao); var InutNFe: TinutNFe; OK: Boolean; I: Integer; begin OK := False; InutNFe := TinutNFe.Create; try InutNFe.tpAmb := dtmDFe.NFe.Configuracoes.WebServices.Ambiente; InutNFe.cUF := dtmDFe.NFe.Configuracoes.WebServices.UFCodigo; InutNFe.Ano := Inutilizacao.Ano; InutNFe.CNPJ := Inutilizacao.CNPJ; InutNFe.Modelo := Inutilizacao.Modelo; InutNFe.Serie := Inutilizacao.Serie; InutNFe.nNFIni := Inutilizacao.NumeroInicial; InutNFe.nNFFin := Inutilizacao.NumeroFinal; InutNFe.xJust := Inutilizacao.Justificativa; InutNFe.Versao := '3.10'; if InutNFe.GerarXML then begin for I := InutNFe.nNFIni to InutNFe.nNFFin do begin if not dtmDFe.TbGereNFe.locate('Filial;NumLcto', VarArrayOf([Ffilial, I]), [loCaseInsensitive]) then begin if LocalizaFilial(Ffilial) then begin dtmDFe.TbGereNFe.Insert; dtmDFe.TbGereNFeFilial.AsString := Ffilial; dtmDFe.TbGereNFeTipoLcto.AsString := 'VE'; dtmDFe.TbGereNFeDtLcto.asDateTime := Now; dtmDFe.TbGereNFeEspecie.AsString := dtmTables.TbParams.FieldByName ('SaiEspecieNF').AsString; dtmDFe.TbGereNFeSerie.AsString := dtmTables.TbParams.FieldByName ('SaiSerieNF').AsString; dtmDFe.TbGereNFeNumLcto.AsInteger := I; end; end else begin case dtmDFe.TbGereNFeMsg.AsInteger of 100, 101, 102, 110, 128, 135, 151, 155, 2000, 3000, 6000, 7000: begin ShowWarning('Não foi possível Inutilizar a numeração!', 'Motivo: Registro já esta sendo usado por uma NF-e válida.'); Exit; end; else dtmDFe.TbGereNFe.Edit; end; end; dtmDFe.TbGereNFeENTRSAI.AsString := '-'; dtmDFe.TbGereNFeRazao.AsString := 'Inutilização Pendente'; dtmDFe.TbGereNFeStatus.AsString := 'I'; dtmDFe.TbGereNFeMsg.AsInteger := 1; dtmDFe.TbGereNFeDtEnvio.asDateTime := Now; dtmDFe.TbGereNFeDescStatus.AsString := 'Inutilização Pendente'; dtmDFe.TbGereNFe.Post; RegistrarArquivosInut(InutNFe.ID, InutNFe.Gerador.ArquivoFormatoXML, OK); if OK then Inutilizar(dtmDFe.TbGereNFeXML.AsString); end; end; finally InutNFe.free; end; end;

Ola ser estou com nota de cliente parada poeque sumiu strtoCRT e nao compila, meu programa apos ultima atualizacao preciso saber qual comando substituir..por favor esses aqui eu achei pcnAdmCSCNFCe deve ser substituída por ACBrNFe.AdmCSC pcnConsSitNFe deve ser substituída por ACBrNFe.ConsSit pcnEnvEventoNFe deve ser substituída por ACBrNFe.EnvEvento pcnEventoNFe deve ser substituída por ACBrNFe.EventoClass pcnInutNFe deve ser substitúida por ACBrNFe.Inut pcnRetAdmCSCNFCe deve ser substituída por ACBrNFe.RetAdmCSC pcnRetConsSitNFe deve ser substituída por ACBrNFe.RetConsSit pcnRetEnvEventoNFe deve ser substituída por ACBrNFe.RetEnvEvento pcnRetInutNFe deve ser substituída por ACBrNFe.RetInut mas o strtoCRT nao achei... e preciso fazer uma alteracao urgente de difal para caminhao seguir viagem para outro estado, e o difal está errado, ja achei o erro do calculo, mas a nota nao compila pois nao encontra strtoCRT

Obrigado Alexandre, era isso mesmo , depois que eu acrescentei a property, eu reinstalei e deu certo...eu achava que com o build all , resolvia, mas nao resolve nao... esse build all , não é muuuito... build all não... o mais estranho, é que nao aparecia no componente, mas quando eu dava ctrl + click ..ele abria e mostrava lá no acbrsatextratoclass, vai entender o DELPhi!!!....

acbrsatextratoclass o nome correto... acrescentei uma property e nao aparece no componente , depois de build all ou será que tenho que reinstalar o componente após alterar?

Olá srs do ACBR quero passar o pagamento pix do meu pdv ..para um programa monitor que faça a transacao e me retorne... o status e ...se deu ok ou erro esse programa ficaria na bandeja, assim nao estaria engessado no meu pdv... seria um acbrmonitorpagamentos ou acbrmonitorpix voces tem já algum programa nesse sentido? talvez possa ser até mesmo de alguma fintech..que tenha varios psps para configurar no proprio programa... nao é esse o texto... eu preciso saber o que fiz de errado quando acrescentei uma propriedade no acbrextratoclass e nao aparece no componente, mesmo dando build all no projeto

obrigado juliomar, mas no meu caso quero desacoplado até da versao do delphi, pois o pdv ainda é sistema em delphi 7 e a do sat por exemplo esta em delphi seatle, e nao consigo trazer para o seatle o pdv, muitos componentes incompativeis,, e falta de tempo, mas enfim é o que ainda esta funcionando, ...até a nova versao do zero, ficar pronta... fazer um pdv bem flexivel, e sem bugs, não é muito simples não, ainda tendo que manter sistema de nfe, sistema de cte,mdfe, integrador de filiais, concentradot de terminais, suporte a clientes e ao suporte de clientes , e o proprio pdv... então busco sempre uma alternativa bem independente e flexivel, para nao engessar o pdv... acho que se eu trabalhar em cima do exemplo do acbr do acbrpixcd, como voce sugeriu, eu vou conseguir fazer um programa, monitor no estilo que fiz para o sat... pelo que vi no exemplo ja tem a maioria do que preciso, e o bom que ja está bem debugado, como normalmente cada cliente só vai usar um PSP, daí posso passar parametros , somente dos dados para pagamento ou cancelamento do pix e gravando os dados de retorno necessarios para controle... através de um timer, e na bandeja do windows...mesmo assim ainda é um bom trabalho a ser feito... se quiser pode fechar o topico...

e quando nós vamos ter o pagamento pix no acbrmonitor plus? e inclusive com versao em delphi? aí seria perfeito....pois o pdv ficaria independente das altercoes e incrementos de psps e outras modificações ja faço isso com o sat, criei um programa a parte e pelo pdv eu passo em um txt os parametros do lançamento e o programa fica monitorando em um timer, pega o txt emite o sat grava as informacoes e retorna assim nao precisei mudar o pdv, e ainda quando tem alterações, mudo dó no programa monitor....e agora que sao paulo, liberou as NFCE,,eu só precisei colocar um parametro no pdv para ele emitir nfce tambem tudo independente.... isso ja funciona faz mais de 8 anos...

Olá srs do ACBR quero passar o pagamento pix do meu pdv ..para um programa monitor que faça a transacao e me retorne... o status e ...se deu ok ou erro esse programa ficaria na bandeja, assim nao estaria engessado no meu pdv... seria um acbrmonitorpagamentos ou acbrmonitorpix voces tem já algum programa nesse sentido? talvez possa ser até mesmo de alguma fintech..que tenha varios psps para configurar no proprio programa... isso seria para esse programa ser independente e pode ser em qq versao do delphi ou outra linguagem..

obrigado Daniel , agora esclareceu, nao tem mesmo como diminuir o tamanho da fonte, para 10,9,8,...e tipo...é que o cliente perguntou e eu não soube responder...pode fechar o tópico o cliente queria economizar papel

entao não dá para simplesmente reduzir o tipo e tamanho da fonte no acbr escpos? não quero reduzir os dados

mas isso eu uso para imprimir o cupom sat e ele está correto, preciso mudar o tamanho só do cupom tef

mas isso eu uso para imprimir o cupom sat e ele está correto, preciso mudar o tamanho só do cupom tef

Ola Srs do Acbr preciso diminuir o tamanho do cupom impresso do Tef, sem tirar informacoes talvez diminuir a fonte... como faço para diminuir a fonte no escpos e como saber se vai funcionar para as diversas impressoras hoje eu monto o cupom ...cabeçalho + dados que retornou do tef e acbrposprintr1.buffer.text := comprovante.text; acbrposprinte1.imprimir;

Ola Srs do Acbr preciso diminuir o tamanho do cupom impresso do Tef, sem tirar informacoes talvez diminuir a fonte... como faço para diminuir a fonte no escpos e como saber se vai funcionar para as diversas impressoras hjoe eu monto o cupom ...cabeçalho + dados que retornou do tef e

agora podem encerrar o topico

meu novo calculo base dupla = //valorBCOper := FvBCUFDest; //valor base de calculo total da operacao = 7.162,87 valorBCOper := FvBCUFDest - gCalcIPI; //valor base de calculo total da operacao - ipi = 7.162,87 - 225,47 = 6937,40 valorAliqEst := ((valorBCOper) * ((FpICMSInter)/100)); //valor da base x aliquota interestadual (12%) SP->MG (859,55)..agora (832,49) valor:= (valorBCOper + gCalcIPI) * ((100 - FpICMSInter)/100); //valor - aliquota interestadual (6303,33)// aqui com IPI valorBC := (valor) / ((100 - FpICMSUFDest)/100); //calcular nova base de calculo (7686,99) FvBCUFDest := valorBC; //Nova base de calculo para o componente ValorAliqDest := (valorBC ) * ((FpICMSUFDest)/100); // calculo com a nova base e aliq interna da UF de destino (1383,66) //ValorDifal := ValorAliqDEst - ValorAliqEst; 1383,66 - 859,55 = (524,11) ValorDifal := ValorAliqDEst - ValorAliqEst; 1383,66 - 832,49 = (551,17) // Bingooo... ao enviar => Rejeição 815: Valor do ICMS Interestadual para UF de Destino difere do calculado [nItem:1] (Valor Informado: 524,11, Valor Calculado:551,17)

Olá Srs do Acbr alguem saberia qual a formula de calculo do difal de SP para MG...ja tentei de tudo ...base simples, base dupla, e nada de dar certo pois da sempre rejeicao 815 calculo diferente meu calculo base dupla = valorBCOper := FvBCUFDest; //valor base de calculo total da operacao = 7.162,87 valorAliqEst := ((valorBCOper) * ((FpICMSInter)/100)); //valor da base x aliquota interestadual (12%) SP->MG (859,54) valor:= (valorBCOper) * ((100 - FpICMSInter)/100); //valor - aliquota interestadual (6303,33) valorBC := (valor) / ((100 - FpICMSUFDest)/100); //calcular nova base de calculo (7686,99) FvBCUFDest := valorBC; //Nova base de calculo para o componente ValorAliqDest := (valorBC ) * ((FpICMSUFDest)/100); // calculo com a nova base e aliq interna da UF de destino (1383,65) ValorDifal := ValorAliqDEst - ValorAliqEst; 1383,65 - 859,54 = (524,11) ao enviar => Rejeição 815: Valor do ICMS Interestadual para UF de Destino difere do calculado [nItem:1] (Valor Informado: 524,11, Valor Calculado:551,17) olá srs do acbfr eu estava editando para mostrar a soluçao para outros usuarios e de repente foi encerrado

depois de muita tentativa e erro, consegui chegar no calculo da sefaz...

alguem saberia qual calculo para chegar nesse valor "calculado" pela sefaz?

Olá Srs do Acbr alguem saberia qual a formula de calculo do difal de SP para MG...ja tentei de tudo ...base simples, base dupla, e nada de dar certo pois da sempre rejeicao 815 calculo diferente meu calculo base dupla = valorBCOper := FvBCUFDest; //valor base de calculo total da operacao = 7.162,87 valorAliqEst := ((valorBCOper) * ((FpICMSInter)/100)); //valor da base x aliquota interestadual (12%) SP->MG (859,54) valor:= (valorBCOper) * ((100 - FpICMSInter)/100); //valor - aliquota interestadual (6303,33) valorBC := (valor) / ((100 - FpICMSUFDest)/100); //calcular nova base de calculo (7686,99) FvBCUFDest := valorBC; //Nova base de calculo para o componente ValorAliqDest := (valorBC ) * ((FpICMSUFDest)/100); // calculo com a nova base e aliq interna da UF de destino (1383,65) ValorDifal := ValorAliqDEst - ValorAliqEst; 1383,65 - 859,54 = (524,11) ao enviar => Rejeição 815: Valor do ICMS Interestadual para UF de Destino difere do calculado [nItem:1] (Valor Informado: 524,11, Valor Calculado:551,17)

Olá srs fiz assim e deu certo //case Consulta.procEventoNFe.Items[I].RetEventoNFe.cStat of //antes retornava cStat = 0 ..Erro case Consulta.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[i].RetInfEvento.cStat of // aqui cStat = 135 ... Correto..

Consulta.procEventoNFe.Items[I].RetEventoNFe.cStat = 0.....deveria ser 135..veja no final do XML de retorno a pergunta é : qual o comando para pegar o evento cstat = 135 que está no XML retornado por Consulta.procEventoNFe.Items[I].RetEventoNFe.XML Consulta.procEventoNFe.Items[I].RetEventoNFe.InfEvento.tpEvento = tecancelamento ...esse está correto... Consulta.procEventoNFe.Items[I].RetEventoNFe.XML ... esse retorna os dados do xml do soap como está no arquivo que mandei acima...e lá no final tem cStat = 135... e todos os dados do cancelamento... preciso pegar eles para regravar o registro no meu banco de dados

mas como pode ver no arquivo que mandei eu ja faço isso...e é exatamente na consulta que esta me retornando cstat = 0, quando deveria retornar 135... ou cstat = 101...

olá cancelar nfe já cancelada retornando cstat = 128 ..depois 573 e na consulta evento cstat = 0 ..., mas no xml cstat = 135... o que estou fazendo de errado?... alguem saberia por favor ..segue trechos do codigo cancelar... erro-consultar.nfe.txt