tiago.rizzon

boa tarde amigos! Sou novato em nota eletrônica, ainda no primeiro sistema. tenho a seguinte rotina em teste, de pesquisas q juntei pela internet. um pouco num site, pouco no outro... acho q meus códigos ainda estam incompletos... a rotina de verificar status do serviço está ok, em operação, ou seja, deve estar tudo certo no certificado, senha, dlls... na rotina abaixo, a msg de erro é classe não registrada. o erro ocorre em Nota1.NotasFiscais.Assinar; se alguém puder ajudar, acredito ser fácil prá vcs! rsrs desde já agradeço. //nota1 é meu TACBrNFe Nota1.NotasFiscais.Clear; Nota1.NotasFiscais.Add.NFe.Ide.cNF := StrToInt('1500'); Nota1.NotasFiscais.Add.NFe.Ide.natOp := 'VENDA PRODUCAO DO ESTAB.'; Nota1.NotasFiscais.Add.NFe.Ide.indPag := ipVista; Nota1.NotasFiscais.Add.NFe.Ide.modelo := 55; Nota1.NotasFiscais.Add.NFe.Ide.serie := 1; Nota1.NotasFiscais.Add.NFe.Ide.nNF := StrToInt('0001'); Nota1.NotasFiscais.Add.NFe.Ide.dEmi := Date; Nota1.NotasFiscais.Add.NFe.Ide.dSaiEnt := Date; Nota1.NotasFiscais.Add.NFe.Ide.hSaiEnt := Now; Nota1.NotasFiscais.Add.NFe.Ide.tpNF := tnSaida; Nota1.NotasFiscais.Add.NFe.Ide.tpEmis := teNormal; Nota1.NotasFiscais.Add.NFe.Ide.tpAmb := taHomologacao; Nota1.NotasFiscais.Add.NFe.Ide.verProc := '1.0.0.0'; // Nota1.NotasFiscais.Add.NFe.Ide.cUF := ;;; Nota1.NotasFiscais.Add.NFe.Ide.cMunFG := 7777777; Nota1.NotasFiscais.Add.NFe.Ide.finNFe := fnNormal; //dados do emitente Nota1.NotasFiscais.Add.NFe.Emit.CNPJCPF := '00000000000000'; Nota1.NotasFiscais.Add.NFe.Emit.xNome := 'Minha empresa Ltda'; Nota1.NotasFiscais.Add.NFe.Emit.xFant := 'Nome fantasia'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.xLgr := 'Meu endereço'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.nro := '0123'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.xBairro := 'Meu bairro'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.cMun := 7777777; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.xMun := 'Minha cidade'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.UF := 'UF'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.CEP := 88888888; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.cPais := 1058; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.xPais := 'Brasil'; Nota1.NotasFiscais.Add.NFe.Emit.EnderEmit.fone := '00000000000'; Nota1.NotasFiscais.Add.NFe.Emit.CRT := crtSimplesNacional; //dados do destinatário Nota1.NotasFiscais.Add.NFe.Dest.CNPJCPF := '00000000000'; Nota1.NotasFiscais.Add.NFe.Dest.xNome := 'Nome destinatário'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.xLgr := 'Endereço destinatário'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.nro := '0123'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.xBairro := 'Bairro destinatário'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.cMun := 7777777; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.xMun := 'Cidade destinatário'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.UF := 'UF'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.CEP := 88888888; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.cPais := 1111; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.xPais := 'Brasil'; Nota1.NotasFiscais.Add.NFe.Dest.EnderDest.fone := '07000000000'; //produtos with Nota1.NotasFiscais.Add.Nfe.Det.Add do begin Prod.nItem := 1; //nº item Prod.cProd := '123456'; Prod.cEAN := '1234567890123'; Prod.xProd := 'Nome do produto vendido'; Prod.NCM := '94051010'; Prod.EXTIPI := ''; Prod.CFOP := '5101'; Prod.uCom := 'UN'; Prod.qCom := 1 ; Prod.vUnCom := 100; Prod.vProd := 100 ; Prod.cEANTrib := ''; Prod.uTrib := 'UN'; Prod.qTrib := 1; Prod.vUnTrib := 100; Prod.vFrete := 0; Prod.vSeg := 0; Prod.vDesc := 0; infAdProd := 'Informação adicional do produto'; with Imposto.ICMS do begin CST := cst00; orig := oeNacional; modBC := dbiValorOperacao; vBC := 100; pICMS := 18; vICMS := 18; modBCST := dbisMargemValorAgregado; pMVAST := 0; pRedBCST:= 0; vBCST := 0; pICMSST := 0; vICMSST := 0; pRedBC := 0; end; with Imposto.IPI do begin CST := ipi99; clEnq := '999'; CNPJProd := ''; cSelo := ''; qSelo := 0; cEnq := ''; vBC := 100; qUnid := 0; vUnid := 0; pIPI := 5; vIPI := 5; end; end; //totais da nota with Nota1.NotasFiscais.Add.NFe do begin Total.ICMSTot.vBC := 100; Total.ICMSTot.vICMS := 18; Total.ICMSTot.vBCST := 0; Total.ICMSTot.vST := 0; Total.ICMSTot.vProd := 100; Total.ICMSTot.vFrete := 0; Total.ICMSTot.vSeg := 0; Total.ICMSTot.vDesc := 0; Total.ICMSTot.vII := 0; Total.ICMSTot.vIPI := 0; Total.ICMSTot.vPIS := 0; Total.ICMSTot.vCOFINS := 0; Total.ICMSTot.vOutro := 0; Total.ICMSTot.vNF := 100; end; //transportadora with Nota1.NotasFiscais.Add.NFe do begin Transp.modFrete := mfContaEmitente; Transp.Transporta.CNPJCPF := ''; Transp.Transporta.xNome := ''; Transp.Transporta.IE := ''; Transp.Transporta.xEnder := ''; Transp.Transporta.xMun := ''; Transp.Transporta.UF := ''; Transp.veicTransp.placa := ''; Transp.veicTransp.UF := ''; Transp.veicTransp.RNTC := ''; end; //envia NFe Nota1.NotasFiscais.GerarNFe; Nota1.NotasFiscais.Assinar; Nota1.Enviar(0, False); Abraço!

Obrigado pela dica amigo, estive estudando a cadeia de certificados! rsrs na verdade eu nem sabia oq era 'cadeia de certificados'. esta semana vou no cliente testar, posto a resposta caso funcione... ou não! rsrs Abraço! obrigado!

Boa tarde a todos! estou tendo o seguinte problema, acredito que vcs podem me ajudar... quando vou testar o status do serviço da nfe, a mensagem inativo ou inoperante é exibida... e tbm o conjunto de chaves não existe. tenho as dlls capicom instaladas corretamente e tbm as dlls openssl. o certificado digital tbm está instalado, até reinstalei. no meu notebook, funciona normal, assina a nota. no computador do cliente é q este erro ocorre. e em ambos, está tudo instalado corretamente. alguém tem uma dica? desde já agradeço. obrigado!

Amigo Regys, muito obrigado! Resolveu o meu problema.

Boa tarde amigos! No seguinte código, orNormal não está identificado, deve ser preciso adicionar unit ao uses, no entanto, não sei qual! rsrs ACBrETQ1.ImprimirBarras(orNormal, 'D', '1', '2', 20, 50, '7890552052472', 90); É impressão de etiquetas com argox 214 plus. Desde já agradeço a todos! Obrigado. Até ++

Amigo anfm, muito obrigado pela pronta disposição, resolveu o meu problema. Abraço, boa semana!

Olá amigos, boa tarde! Instalei o Acbr nfe2 em delphi 7. Nunca utilizei nfe antes, nem a versão 1. Estou tendo o seguinte problema: ACBrNFe1.NotasFiscais.Add.NFe.Emit.CRT := crtSimplesNacional; A msg undeclared identifier 'crtsimplesnacional' é exibida. Acredito q a instalação do acbrnfe2 esteja correta. O status do serviço está ativo, em operação! As seguintes path library estam adicionadas ao delphi: acbrcomum, acbrnfe2, acbrpcn2, synalist e capicom. A quem souber como proceder, agradeço toda ajuda. Obrigado!