leandroaoa

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.

boa tarde Pelo que vi no seu xml você esta enviando o evento no ambiente de homologacao <tpAmb>2</tpAmb> verifica ai

verifica se você nao esta com os schemas de cte na mesma pasta do schemas de nfe olha um trecho de uma resposta do Italo Jurisato Junior A manifestação do destinatário é evento (4 tipos de eventos) e estes eventos são enviados para o Ambiente Nacional e não para a SEFAZ-Autorizadora. quer dizer que tem que ser 91

verifica se o seu acbr esta atualizado as pasta schemas

Evento.InfEvento.cOrgao := 91; //91 - Ambiente Nacional. No caso de evento de manifestação, sempre será 91

bom dia olha a resposta acima do nosso amigo Gabriel Franciscon ali esta como tem que ser Aprocveitando que ja falaram ai acima sobre o ADD vou deixar aqui a refatoracao sem o uso de With seguindo as boas praticas de programacao var Evento : TInfEventoCollectionItem; Retorno : TRetInfEvento; begin dmACBr.ACBrNFe1.EventoNFe.Evento.Clear; Evento := dmACBr.ACBrNFe1.EventoNFe.Evento.New; Evento.InfEvento.cOrgao := 91; //91 - Ambiente Nacional. No caso de evento de manifestação, sempre será 91 Evento.InfEvento.chNFe := ''; //Chave de acesso da NFe Evento.InfEvento.CNPJ := ''; //CNPJ da empresa que está emitindo o evento (o mesmo do certificado digital) Evento.InfEvento.dhEvento := now; //Data do evento Evento.InfEvento.tpEvento := ''; //teManifDestCiencia, teManifDestConfirmacao, teManifDestOperNaoRealizada, teManifDestDesconhecimento Evento.InfEvento.detEvento.xJust := ''; //Justificativa, caso seja desconhecimento ou op não realizada dmACBr.ACBrNFe1.EnviarEvento(1); Retorno := dmACBr.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items.RetInfEvento; ShowMEssage( 'Id: '+Retorno.Id+#13+ 'tpAmb: '+TpAmbToStr(Retorno.tpAmb)+#13+ 'verAplic: '+Retorno.verAplic+#13+ 'cOrgao: '+IntToStr(Retorno.cOrgao)+#13+ 'cStat: '+IntToStr(Retorno.cStat)+#13+ 'xMotivo: '+Retorno.xMotivo+#13+ 'chNFe: '+Retorno.chNFe+#13+ 'tpEvento: '+TpEventoToStr(Retorno.tpEvento)+#13+ 'xEvento: '+Retorno.xEvento+#13+ 'nSeqEvento: '+IntToStr(Retorno.nSeqEvento)+#13+ 'CNPJDest: '+Retorno.CNPJDest+#13+ 'emailDest: '+Retorno.emailDest+#13+ 'dhRegEvento: '+DateTimeToStr(Retorno.dhRegEvento)+#13+ 'nProt: '+Retorno.nProt); end;

bom dia olha a resposta acima do nosso amigo Gabriel Franciscon ali esta como tem que ser

vou te passar um teste que fiz e autorizou a nfe em homologacao claro pois eu uso random passe os 8 digitos do cnpj pois o campo cnf não e validado se ja existe em outra nota ai todas as notas vão ficar com o cnpj

Bom dia se você não quer usar o random e salvar o numero gerado na base de dados usa então o campo data/hora de emissao assim 16071126

use o pesquisar do forum que ira encontrar muita informacao. segue um link muito bom

da uma olhada ai nesse link tem bastante coisa https://www.projetoacbr.com.br/forum/search/?q=conjugada

bom dia e possivel sim segue um link ai com algumas informacoes

boa tarde infRespTec.CNPJ := // CNPJ da Empresa infRespTec.xContato := // Nome do Contato infRespTec.email := // email do Contato ou Empresa infRespTec.fone := // fone do Contato ou Empresa