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