geanjesus

muito obrigado a todo pessoal do acbr...

Ola srs do acbr, tentei de varias maneiras implementar a geracao dos pdf das nfce emitidas offline usando a tread do curso e nao consegui preciso gerar os pdf das emitidas offline, das canceladas e das inutilizadas, e gravar os xml salvos nas pastas configuradas no meu banco para voces do acbr deve ser facil, mas eu apanhei da tread e nao consegui...e preciso da solução para ontem... acho que se voces fizerem isso no exemplo, vai ajudar muita gente por aqui... o exemplo já é muito show, mas pode ficar melhor ainda e mais completo...ja me ajudou muito, mas ainda falta estas lacunas...

Olá Daniel voce acertou , achei mesmo um acbr perdido em outra pasta com alguns dcu.. que fiz backup e ele estava pegando de lá pois tinha um caminho daquele diretorio na library path antes mas dai eu retirei o caminho do diretorio e passou a compilacao depois começou a dar erro que o acbrsatextratofr foi compilado com uma versao diferente de frxclass e nao passava mas dai eu encontrei a solução aqui mesmo no forum ..tinha que desmarcar uma diretiva la na instalacao deixar somente a pasta libxx na library path do delphi e resolveu...Ufah... ah.. pifou meu hd antigo do delphi 7 ... e eu estava atualizando uma versao antiga do delphi 7 e acbr de 2015..que estava abandonada, mas reativei para nao ter que refazer tudo do zero o ambiente do delphi 7 ... muitos componentes legado.. vai ser por pouco tempo...o delphi 7 vai ser enterrado logo logo..se Deus quiser... ja vou criar uma vm urgente..e fazer backups... Obrigado a todos pode fechar o topico

Olá Daniel eu não fiz nenhuma alteracao no dclacbr_satextratoRL.dpk eu baixei hoje a ultima versao do svn não tem nada em vermelho na pasta do svn tambem baixei hoje o fortes report CE ..a pasta zip e instalei compilei frce,dpk e instalei dclfrce.dpk dai se eu marco a opcao ACBr_SATExtratoRL.dpk na instalacao do acbr ..da o erro se eu desmarcar ..não da erro... mas tambem nao consigo usar o fortes no acbr..

log_Delphi_7_Win32.txt se eu desmarcar a opção ACBr_SATExtratoRL.dpk..nao da erro...

Compiling package C:\acbr-16-12-2024\Pacotes\Delphi\ACBrSAT\Extrato\Fortes \DCLACBr_SATExtratoRL.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "C:\acbr-16-12-2024\Pacotes\Delphi \ACBrSAT\Extrato\Fortes\DCLACBr_SATExtratoRL.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation DCLACBr_SATExtratoRL.dpk(34) Fatal: Required package 'FortesReportCE_Win32_D7_vcl' not found Compilation failure Erro ao compilar o pacote "DCLACBr_SATExtratoRL.dpk". Abortando... Ocorreram erros na compilação dos pacotes. O problema é quando eu marco na instalação do acbr ..a opção ACBr_SATExtratoRL.dpk, pois é a unica que eu uso... e quando eu desmarco essa opção.. daí instala normalmente... acredito que o problema é com o fortes CE... eu baixei o zip da pagina https://github.com/fortesinformatica/fortesreport-ce eu compilei ele pelo frce.dpk eu instalei ele pelo dclfrce.dpk no delphi 7... pelo instalador frceInstall.exe ...nao deu certo...

Olá Srs do acbr estou tentando instalar o acbr e esta dando essa mensagem , nao sei o que é isso ,pois o fortes CE esta instalado Compiling package C:\acbr-16-12-2024\Pacotes\Delphi\ACBrSAT\Extrato\Fortes \DCLACBr_SATExtratoRL.dpk "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "C:\acbr-16-12-2024\Pacotes\Delphi \ACBrSAT\Extrato\Fortes\DCLACBr_SATExtratoRL.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation DCLACBr_SATExtratoRL.dpk(34) Fatal: Required package 'FortesReportCE_Win32_D7_vcl' not found Compilation failure Erro ao compilar o pacote "DCLACBr_SATExtratoRL.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

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