leandroaoa

ola @Juliomar Marchetti obrigado por responder vou verificar aqui pois eu so tenho uma instalacao mesmo de cada componente nem backup deles eu salvo no computador deixo backup em Hd externo e esse comportamento comecou a acontecer hoje depois que atualizei pra versao 20097 do acbr mas vou rodar uma apaga aqui e procurar por fontes do fortes tambem e volto a reportar aqui qualquer novidade

bom dia esta acontecendo o seguinte problema quando coloco em um form o component acbr e depois vou colocar o fortes report esta dando erro conforme imagem em anexo. se eu tiro o componente do form e coloco so o fortes ele funciona como realizei teste pra chegar ao problema configuracao : delphi Xe7 professional - ORIGINAL fortes report CE ACBr versao 20097 instalador ACBr versao 2.0.0.1 Criei um novo projeto VCL coloquei o componente acbr no form fechei o projeto. Abri o projeto novamente e fui incluir o TRLReport no form apresentou o erro. removi o componente acbr fechei o projeto abri novamente e acrescentei o TRLReport deu certo colocou no form. Fiz outro teste fechei o projeto abri novamente acrescentei o componente acbr como ja estava o TRLReport no form deu certo fechei o projeto abri novamente e nao apresentou o erro. Entao esse erro so acontece quando esta com o componente acbr no form e eu tento acrescenter um TRLreport se eu crio DM com com os componetes do acbr nao me da problema pois eles nao estao no mesmo form que o fortes isso acontece com qualquer componente acbr conforme na imagem esta o acbrboleto

isso ta uma POG daquelas, cara você tem que achar o que esta errado coloca sua aplicacao em debug e vai olhando o que esta ainda em cada passo pois ali não e nem questao de arredondamento pois tem uma diferenca de 0,10 e isso e muito procure e procure pois se ter algum BO em um cliente que o cara reclamar que foi cobrado a mais ou cliente te ligar falando que o sistema esta cobrando a menos do cliente isso vai te dar uma dor de cabeca lascada fora que você ira perder o seu cliente e a credibilidade do seu sistema calculos matematicos em sistema tem que ser testado incansavelmente fica a dica

bom dia sugiro a você estudar o manual de orientacao da nfe depois consultar um bom contador pois emissao de DFe não é uma coisa tão simples assim quanto a regras fiscais mas o seu erro esta facil olha o seu xml nessa parte aqui <total> <ICMSTot> <vBC>6.90</vBC> <vICMS>0.83</vICMS> <vICMSDeson>0.00</vICMSDeson> <vFCP>0.00</vFCP> <vBCST>6.90</vBCST> <vST>1.24</vST> os campos vBC, vICMS, vBSST e vST tem que estar zerado pois no item não tem esse valor conforme abaixo <imposto> <ICMS> <ICMS60> <orig>0</orig> <CST>60</CST> </ICMS60> </ICMS> </imposto>

consegui solucionar aqui da seguinte forma : Estrutura do relatorio cabecalho, corpo e rodaped; rlband1 - Cabecalho bandtype = btTitle o resto dos parametros normal rlband2 - Corpo aqui vai o texto do rlmemo bandtype = btSumary AutoExpand = False; AutoSize = True; pageBreaking = pbNone; RLMEMO1 configurei da seguinte forma autosize = True; integralHeigth = false; aqui pode deixar True nao notei diferenca wordwrap = True; rlband3 - Rodape bandtype = btSumary AutoExpand = False; AutoSize = False; pageBreaking = pbNone; com essa configuracao ai passou a imprimir o contrato certinho podem fechar o topico

Desculpe ressuscitar um topico muito antigo mas estou tendo que criar o mesmo e esta dando e mesmo erro ele não imprimi e duas paginas o rlmemo você conseguiu resolver esse problema se sim poderia me ajudar ?

Bom dia bastar seguir os exemplos que estao dentro da pasta Exemplos\ACBrDFe\ACBrNFe\Delphi.

Boa tarde nesse caso o que importa e o endereco da pessoa se for outro estado o CFOP deve obrigatoriamente comecar com 6. Agora se o endereco for dentro do estado CFOP comeca com 5 isso para NF-e modelo 55. isso e regra e nao tem como mudar. agora se estiver emitindo uma NFCe modelo 65 ai basta informar o CPF do cliente pois não e obrigatorio os campos de endereco. e cfop vai ser o de venda dentro da estado. consulte o contador da empresa pois existe varias regras.

pra funcionar o TLS3 tem que atualizar os schemas

sim o que esta no video esta corretissimo o problema e que alguns certificado A3 não consegui descobrir ainda o porque não estão aceitando o LT_TLSv1_2 so tenho dois clientes com A3 então nao consegui apurar afundo mas no que e A3 renovado esse ano deu problema no outro que vai vencer esse ano nao deu ambos a certificadora e a AC Soluti

bom dia segue esse passos que não tera probelma 1º - atualize o ACBr 2º - atualiza a pasta schemas do seu sistema 3º - Atualiza cadeia de certificado fornecido pela receita estadual 4º - configure o ACBr conforme abaixo: dmACBr.ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt; dmACBr.ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; dmACBr.ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpWinHttp; dmACBr.ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; dmACBr.ACBrNFe1.Configuracoes.Certificados.NumeroSerie := trim(FormConfig.edit25.text); dmACBr.ACBrNFe1.Configuracoes.Certificados.Senha := trim(FormConfig.edit26.text); dmACBr.ACBrNFe1.SSL.SSLType := LT_TLSv1_3; e seja feliz

Bom dia tive esse problema no Parana com certificado A3. mudei a configuracao do componente. dmACBr.ACBrNFe1.SSL.SSLType := LT_TLSv1_3; e esta funcinando lembrando certificado A3 com o A1 funciona com as outras configuracoes

para NFCe quando da uma rejeicao você deve alterar o tpemissao para teOffLine e utilizar a chave gerada pois vai mudar; assim corrigido o erro você tem que re-enviar essa nota com tpemissao teOffLine; que a chave de acesso sera a mesma.

Bom dia como você ja tem um equipe você não deve se enquadrar nas regras do Delphi CE mas tente negociar uma licenca professional que com certeza vai te atender super bem. o Lazarus esta muito bom mas ainda tem algumas coisas que nao tem que no delphi tem e o debug do Lazarus nao existe. na questao debug o Delphi 100x melhor. se for pra iniciar um Projeto do zero pode ir de lazarus agora migrar eu compraria a versao professional ja que voce usa zeos pra conexao.

Bematech mp4200, epson tm-t20, elgin.

tarde e que usei ali modelo pplb a unica diferenca e como abaixo ImprimirTexto(orNormal, 2, 1, 1, 18, 1, clientdataset2.fieldbyname('desc1').asstring); ImprimirTexto(orNormal, 2, 1, 1, 15, 1, clientdataset2.fieldbyname('tam').asstring); ImprimirTexto(orNormal, 2, 1, 2, 12, 1, 'REF '+xValor); ImprimirBarras(orNormal, barCODE128, 2, 2, 9, 1, trim(clientdataset2.fieldbyname('barra').asstring), 5, BecNAO); ImprimirTexto(orNormal, 2, 1, 2, 2, 1, trim(clientdataset2.fieldbyname('barra').asstring)); ImprimirTexto(or90, 1, 1, 1, 18, 26, trim(FormConfig.Edit2.Text)); ImprimirTexto(or90, 2, 1, 1, 18, 29, trim(FormConfig.Edit8.Text)); basta voce altera os valores do vertical que inverte um comeca de cima pra baixo e o outro de baixo pra cima ajusta os valores ai que vai de boa estou sem impressora com ppla aqui

tarde ta ai : with ACBrETQ do begin Desativar; Modelo := TACBrETQModelo(strtoint(covalor(FormConfig.edit79.text))) ; Porta := trim(FormConfig.edit38.text); Unidade := etqMilimetros; Ativar ; ImprimirTexto(orNormal, 2, 1, 1, 2, 1, clientdataset2.fieldbyname('desc1').asstring); ImprimirTexto(orNormal, 2, 1, 1, 5, 1, clientdataset2.fieldbyname('tam').asstring); ImprimirTexto(orNormal, 2, 1, 2, 8, 1, 'REF '+xValor); ImprimirBarras(orNormal, barCODE128, 2, 2, 12, 1, trim(clientdataset2.fieldbyname('barra').asstring), 5, BecNAO); ImprimirTexto(orNormal, 2, 1, 2, 18, 1, trim(clientdataset2.fieldbyname('barra').asstring)); ImprimirTexto(or90, 1, 1, 1, 2, 26, trim(FormConfig.Edit2.Text)); ImprimirTexto(or90, 2, 1, 1, 1, 29, trim(FormConfig.Edit8.Text)); ImprimirTexto(orNormal, 2, 1, 1, 2, 37, clientdataset2.fieldbyname('desc1').asstring); ImprimirTexto(orNormal, 2, 1, 1, 5, 37, clientdataset2.fieldbyname('tam').asstring); ImprimirTexto(orNormal, 2, 1, 2, 8, 37, 'REF '+xValor); ImprimirBarras(orNormal, barCODE128, 2, 2, 12, 37, trim(clientdataset2.fieldbyname('barra').asstring), 5, BecNAO); ImprimirTexto(orNormal, 2, 1, 2, 18, 37, trim(clientdataset2.fieldbyname('barra').asstring)); ImprimirTexto(or90, 1, 1, 1, 2, 62, trim(FormConfig.Edit2.Text)); ImprimirTexto(or90, 2, 1, 1, 1, 65, trim(FormConfig.Edit8.Text)); ImprimirTexto(orNormal, 2, 1, 1, 2, 73, clientdataset2.fieldbyname('desc1').asstring); ImprimirTexto(orNormal, 2, 1, 1, 5, 73, clientdataset2.fieldbyname('tam').asstring); ImprimirTexto(orNormal, 2, 1, 2, 8, 73, 'REF '+xValor); ImprimirBarras(orNormal, barCODE128, 2, 2, 12, 73, trim(clientdataset2.fieldbyname('barra').asstring), 5, BecNAO); ImprimirTexto(orNormal, 2, 1, 2, 18, 73, trim(clientdataset2.fieldbyname('barra').asstring)); ImprimirTexto(or90, 1, 1, 1, 2, 98, trim(FormConfig.Edit2.Text)); ImprimirTexto(or90, 2, 1, 1, 1, 101, trim(FormConfig.Edit8.Text)); Imprimir(1, StrToInt(covalor(FormConfig.edit80.text))); end;

Tarde nas configuracao da etiquetas veja se esta Unidade := etqMilimetros;

Nao sou tao velhinho kkkkk basic, clipper, foxpro,

boa tarde da uma olhada nesse link ai talvez possa ajudar

Pessoal encrontrei aqui como estava copiando as DLLs direto das pasta DLL do ACBr algumas tem que trocar o nome exemplo libxml2.dll na que esta salva na pasta MinGW\64 esta assim libxml2-2.dll outra e a e a libxmlsec.dll que esta como nome libxmlsec1.dll fui comparando com os nomes das de 32bits como não deu erro informando a DLL que estava faltando por isso nao estava achando erro nao seria interessante deixar os nomes padrao para evitar esse tipo de erro so separando por pasta. desde ja agradeco a atencao de todos

Nao consegui editar mas vai la mais informacoes todas as DLLs copie da pasta ACBr de 64 bits salvei tanto no syswow64 e deixei direto na pasta do projeto e mesmo assim ainda da o erro acima

Fiz aqui um teste conforme abaixo nao arrastei o componente na tela so informei na uses a classe sem a classe ACBrDFe compila em 64bits assim que eu informo a classe ACBrDFe passa a dar erro agora da o erro nem chega a compilar conforme imagem em anexo. revisao 17753 win7 64bits delphi XE7 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ACBrBoleto, ACBrBase, ACBrDFe; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} end.

Sim esta adicionado conforme imagem em anexo o problema esta somente nos DFe com disse acima seu adicionar somente um ACBrBoleto compila em 64 agora seu colocar ACBrNFe, CTe MDFe que usam a classe ACBrDFe da erro

Bom dia tambem estou com problema para compilar para 64Bits. Fiz um teste aqui usando o Delphi XE7 criei uma nova aplicacao de teste coloquei os componentes Boleto, balanca e executou sem erro agora se eu simplesmente colocar na uses do formulario a classe ACBrDFe ja da erro nem preciso carregar o componentes de DFe. Compilando em 32Bits esta correto. Estou com a revisao 17753. Win7 64Bits.