Leao

Régys, as mesmas já tinha copiado antes, apesar das mensagens, o componente consegue instalar, mas ao compilar o AcbrNfe_demo, não compilar mostra seguinte erro: [Error] ssl_openssl_lib.pas(225): Undeclared identifier: 'TLibHandle' [Error] ssl_openssl_lib.pas(225): Cannot initialize multiple variables [Warning] ssl_openssl_lib.pas(1762): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1766): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1766): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1899): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1906): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1940): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1947): Comparing signed and unsigned types - widened both operands [Fatal Error] Unit1.pas(10): Could not compile used unit 'ssl_openssl_lib.pas' Já pesquisei no forum tudo sobre isso, até agora, não obtive solução. Aguardo e obrigado, Leão

Não, estava tudo normal, até sexta-feira(19/11/2011), apenas foi atualisar via svn, para atualizar o spedpisconf, daí pronto, não compilo, nem o acbrnfe-demo. Já desistalei o delphi7, re-instalei, instalei a pasta Acbr, no c:\ fiz conforme o arquivo leia-me.txt. Obrigado e aguardo Leão

Obrigado Juliomar, Mas quando compilo o demo da acbrnfe_demo, não compila, ocorre erro: SSLLibHandle: TLibHandle = 0; linha 225 D:\Acbr\Fontes\synalist\ssl_spenssl_lib.pas Veja o erro: [Error] ssl_openssl_lib.pas(225): Undeclared identifier: 'TLibHandle' [Error] ssl_openssl_lib.pas(225): Cannot initialize multiple variables [Warning] ssl_openssl_lib.pas(1762): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1766): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1766): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1899): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1906): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1940): Comparing signed and unsigned types - widened both operands [Warning] ssl_openssl_lib.pas(1947): Comparing signed and unsigned types - widened both operands [Fatal Error] Unit1.pas(10): Could not compile used unit 'ssl_openssl_lib.pas' Aguardo...

Régis...

Agradeço muito Regys, ao compilar o abcrComum veja mensagem de erro: [Hint] ACBrUtil.pas(1984): Value assigned to 'LibHandle' never used [Hint] ACBrBase.pas(139): Private symbol 'SetAsAnsiString' declared but never used [Hint] ACBrEAD.pas(212): Variable 'SSLInfo' is declared but never used in 'TACBrEAD.GetOpenSSL_Version' [Hint] ACBrEAD.pas(233): Variable 'Ret' is declared but never used in 'TACBrEAD.BioToStr' [Warning] ACBrEAD.pas(267): Symbol 'faReadOnly' is specific to a platform [Warning] ACBrEAD.pas(267): Symbol 'faHidden' is specific to a platform [Warning] ACBrEAD.pas(267): Symbol 'faSysFile' is specific to a platform [Warning] ACBrEAD.pas(267): Symbol 'faArchive' is specific to a platform [Warning] ACBrEAD.pas(270): Symbol 'faReadOnly' is specific to a platform [Warning] ACBrEAD.pas(270): Symbol 'faHidden' is specific to a platform [Warning] ACBrEAD.pas(270): Symbol 'faSysFile' is specific to a platform [Warning] ACBrEAD.pas(270): Symbol 'faArchive' is specific to a platform [Hint] ACBrEAD.pas(759): Value assigned to 'Ret' never used [Hint] ACBrEAD.pas(740): Value assigned to 'TACBrEAD.VerificarEAD' never used [Hint] ACBrPAFClass.pas(74): Private symbol 'Insert' declared but never used [Hint] ACBrPAFClass.pas(249): Private symbol 'Insert' declared but never used Atualizei hoje a pasta toda da Acbr o que pode ser? Como corrigir? Regys, como faço para fala contigo? [email protected] Urgente. Obrigado, Leão Ao compilar o AcbrCapicom, veja o erro.: [Warning] JwaWinCrypt.pas(19661): Text after final 'END.' - ignored by compiler [Warning] JwaWinNT.pas(9329): Text after final 'END.' - ignored by compiler [Warning] JwaWinType.pas(1855): Text after final 'END.' - ignored by compiler ao compilar AcbrNF2, veja o erro: [Warning] ACBrNFeReg.pas(53): Unit 'FileCtrl' is specific to a platform [Warning] Unit 'pcnRetCCeNFe' implicitly imported into package 'ACBr_NFe2' [Warning] Unit 'pcnCCeNFe' implicitly imported into package 'ACBr_NFe2' Estou a três dias...

Estou com três dias, tentanto re-instalar, o componente NF-e, já desistalei o delphi7, atualizei a pasta acbr, via svn, "estão todos verdes", deletei os abcr*.,syna*., capi*. da pasta do delphi ...\delphi7\projets\Bpl retirei do library paths Fontes\ACBrComum Fontes\ACBrNFe2 Fontes\PCN2 Fontes\synalist Fontes\ACBrCapicom Recadastrei no library paths, conforme o arquivo LEIA-ME.TXT, que estar na pasta \acbr Feche o delphi, (file close all). Através do delphi File->Open D:\Acbr\Pacotes\Delphi\synapse.dpk Ao clicar em Compile, ocorre erro abaixo: [Warning] pingsend.pas(430): Comparing signed and unsigned types - widened both operands [Hint] pingsend.pas(487): Value assigned to 'TPINGSend.Checksum6' never used [Hint] smtpsend.pas(375): Value assigned to 'TSMTPSend.AuthPlain' never used [Hint] synacrypt.pas(1992): Variable 'n' is declared but never used in 'TSynaAes.InitKey' [Hint] snmpsend.pas(1003): Value assigned to 'TSNMPSend.SendRequest' never used Peço ajuda, pois estou a três dias, agradeço pelo auxilio. Obrigado, Leão

Olá pessoal, estava já usando normalmente o componente p/nf-e, e atualizei via svn, ocorreu alguns erros, resolvir desistalar conforme instruções arquivo leia-me, agora, ao compilar o exemplo demo, da nfe, ocorre um erro, no arquivo D:\Acbr\Fontes\synalist\ssl_openssl_lib.pas na linha 225 SSLLibHandle: TLibHandle = 0; Undeclared identifier: 'TLibHandle' Cannot initialize multiple variables como corrigir? Uso delphi7, no path estar configurado.Já desistalei várias vezes, inclusive apaguei os bpls, da pasta do delphi7 C:\Arquivos de programas\Borland\Delphi7\Projects\Bpl acbr*., pcn2*. e synapse*. na pasta Acbr, estão todos verdes Obrigado e aguardo Leão

Olá pessoal, estava já usando normalmente o componente p/nf-e, e atualizei via svn, ocorreu alguns erros, resolvir desistalar conforme instruções acima, seguindo o arquivo leia-me, agora, ao compilar o exemplo demo, no arquivo D:\Acbr\Fontes\synalist\ssl_openssl_lib.pas na linha 225 SSLLibHandle: TLibHandle = 0; Undeclared identifier: 'TLibHandle' Cannot initialize multiple variables como corrigir? Uso delphi7, no path estar configurado. Obrigado e aguardo Leão

Obrigado, por responder Barbosa, Spedfiscal. No registro D100New, o campo IND_OPER:= informou 0(zero) e informa erro variavel imcompativel. o que informar nesse campo? estar assim na unit ACBrEFDBloco_D_Class.pas: (linha 586) Add( LFill('D100') + LFill( Integer(IND_OPER), 0 ) + LFill( Integer(IND_EMIT), 0 ) + o próximo campo deverá ocorrer o mesmo erro. Já houve alguma correção, no Bloco D? with RegistroD100New do begin IND_OPER:= IND_EMIT:= não aceita nenhum tipo de variavel.

Alguém, se abilita, a corrigir. Obrigado, Leão

Cara, essa unit ACBrEFDConversao.pas, não existe no meu computador, uso nf-e, boleto e agora spedfiscal. E agora? Obrigado, Leão

Alex, agradeço, Declarei no USES ACBrEFDConversao, o delphi7, informa, que não encontrou te pergunto é preciso instalar algum componente referente ao mesmo? Aguardo e obrigado, Leão

Não dar certo.

Olá pessoal, No registro D100New, o campo IND_OPER:= informou 0(zero) e informa erro variavel impativel. o que informar nesse campo? estar assim na unit ACBrEFDBloco_D_Class.pas: (linha 586) Add( LFill('D100') + LFill( Integer(IND_OPER), 0 ) + LFill( Integer(IND_EMIT), 0 ) + o próximo campo deverá ocorrer o mesmo erro. Já houve alguma correção, no Bloco D? with RegistroD100New do begin IND_OPER:= IND_EMIT:= StrToinT(TabGlobal.DConh_transp.IND_EMIT.Conteudo); COD_PART:= TabGlobal.DConh_transp.COD_FORN.ValorString; COD_MOD:= TabGlobal.DConh_transp.MODELO.Conteudo; COD_SIT:= StrToInt(TabGlobal.DConh_transp.COD_SIT.Conteudo); SER:= TabGlobal.DConh_transp.SERIE.Conteudo; SUB:= TabGlobal.DConh_transp.SUBSERIE.Conteudo; NUM_DOC:= TabGlobal.DConh_transp.NF.Conteudo; CHV_CTE:=TabGlobal.DConh_transp.CHV_CTE.Conteudo; DT_DOC:= TabGlobal.DConh_transp.DATA_EMISSAO.Conteudo; DT_A_P:= TabGlobal.DConh_transp.DATA_ENTRADA.Conteudo; TP_CT_e:= TabGlobal.DConh_transp.TP_CT_E.Conteudo; CHV_CTE_REF:=TabGlobal.DConh_transp.CHV_CTE_REF.Conteudo; VL_DOC:= TabGlobal.DConh_transp.VALOR_TOTAL.Conteudo; VL_DESC:=0; if TabGlobal.DConh_transp.IND_FRT.Conteudo='0' then IND_FRT:=tfPorContaTerceiros else if TabGlobal.DConh_transp.IND_FRT.Conteudo='1' then IND_FRT:=tfPorContaEmitente else if TabGlobal.DConh_transp.IND_FRT.Conteudo='2' then IND_FRT:=tfPorContaDestinatario else if TabGlobal.DConh_transp.IND_FRT.Conteudo='9' then IND_FRT:=tfSemCobrancaFrete; VL_SERV:=TabGlobal.DConh_transp.VALOR_TOTAL.Conteudo; VL_BC_ICMS:=TabGlobal.DConh_transp.VALOR_BA_CAL_ICMS.Conteudo; VL_ICMS:=TabGlobal.DConh_transp.VALOR_ICMS.Conteudo; VL_NT:=TabGlobal.DConh_transp.VALOR_ISEN_NAO_TRIB.Conteudo; COD_INF:=TabGlobal.DConh_transp.COD_INF.Conteudo; COD_CTA:=TabGlobal.DConh_transp.COD_CTA.Conteudo; end; // registroD100new Obrigado, Leão

Obrigado, porém, não dar certo, porque a chave no emissor gratuito, a chave é gerada aleatóriamente, e no meu fonte delphi7, é a mesma chave da nf-e. Fiz assim, Importar TXT/XML, ele pega a chave e grava no meu db. DNF.Modifica; DNF.SITUACAO.Conteudo :='AUTORIZADA'; // DNF.RECIBO_NFE.Conteudo := DNF.NUMERO_NFE.Conteudo :=procNFe.chNFe; DNF.NUMERO_PROTOCO.Conteudo:=procNFe.nProt; DNF.HORA_AUTORI.Conteudo :=DateTimeToStr(procNFe.dhRecbto); DNF.CSTAT.Conteudo :='100'; DNF.Salva; Obrigado, Leão

por favor, alguém sabe tirar essa dúvida? Obrigado, Leão

Régis, ao clicar no botão Criar\Enviar, estar ocorrendo a mesma mensagem de erro Na mesma tela mostra o número do certificado e senha e mostra normalmente ShowMessage('Certificado...:'+ACBrNFe1.Configuracoes.Certificados.NumeroSerie+#13+ ' Senha...: '+ACBrNFe1.Configuracoes.Certificados.Senha); Consulta usando o status serviço e mostra em operação normalmente. O que pode ser Obrigado, Leão Peço desculpa, falta enviar... try ACBrNFe1.Enviar(StrToInt(vNumLote)); except on e: Exception do ShowMessage('Falha ao enviar...: '+ e.Message); end; obrigado,

Obrigado pela resposa, pequena dúvida. no cNF, passo a chave completa do certificado ou de 1 até 8 copy(chave,1,8) ? e o digito como passo esse parametro? · cNF - Código Numérico que compõe a Chave de Acesso //Diminuiu um dígito. De 9 passou para 8. · cDV - Dígito Verificador da Chave de Acesso estou usando o NotaUtil.ChaveAcesso para gerar a chave, existe outra forma? Obrigado, Leão

Preciso processar meu db, e criar as chaves de acessos para cada nf-e, estava usando o emissor gratuito do governo, e para criar o sped fiscal precisa da chave, estou usando a função abaixo, tenho uma dúvida: vNumero := NotaUtil.Poem_Zeros(ANumero, 9); é o número da nf vCodigo := NotaUtil.Poem_Zeros(ACodigo, 9); vCodigo a quem refere? Gerei a chave usando os parametros mas deu diferente. Comparo com a emitida pelo emissor do governo gratuito. class function NotaUtil.ChaveAcesso(AUF: Integer; ADataEmissao: TDateTime; ACNPJ: String; ASerie, ANumero, ACodigo: Integer; AModelo: Integer): String; var vUF, vDataEmissao, vSerie, vNumero, vCodigo, vModelo: String; begin vUF := NotaUtil.Poem_Zeros(AUF, 2); vDataEmissao := FormatDateTime('YYMM', ADataEmissao); vModelo := NotaUtil.Poem_Zeros(AModelo, 2); vSerie := NotaUtil.Poem_Zeros(ASerie, 3); vNumero := NotaUtil.Poem_Zeros(ANumero, 9); vCodigo := NotaUtil.Poem_Zeros(ACodigo, 9); Result := vUF+vDataEmissao+ACNPJ+vModelo+vSerie+vNumero+vCodigo; Result := Result+NotaUtil.Modulo11(Result); end; Ou se alguém tiver outra função para criar-la, de já agradeço. Obrigado, Leão Denunciar esta mensagem

Preciso processar meu db, e criar as chaves de acessos para cada nf-e, estava usando o emissor gratuito do governo, e para criar o sped fiscal precisa da chave, estou usando a função abaixo, tenho uma dúvida: vNumero := NotaUtil.Poem_Zeros(ANumero, 9); é o número da nf vCodigo := NotaUtil.Poem_Zeros(ACodigo, 9); vCodigo a quem refere? Gerei a chave usando os parametros mas deu diferente. Comparo com a emitida pelo emissor do governo gratuito. class function NotaUtil.ChaveAcesso(AUF: Integer; ADataEmissao: TDateTime; ACNPJ: String; ASerie, ANumero, ACodigo: Integer; AModelo: Integer): String; var vUF, vDataEmissao, vSerie, vNumero, vCodigo, vModelo: String; begin vUF := NotaUtil.Poem_Zeros(AUF, 2); vDataEmissao := FormatDateTime('YYMM', ADataEmissao); vModelo := NotaUtil.Poem_Zeros(AModelo, 2); vSerie := NotaUtil.Poem_Zeros(ASerie, 3); vNumero := NotaUtil.Poem_Zeros(ANumero, 9); vCodigo := NotaUtil.Poem_Zeros(ACodigo, 9); Result := vUF+vDataEmissao+ACNPJ+vModelo+vSerie+vNumero+vCodigo; Result := Result+NotaUtil.Modulo11(Result); end; Ou se alguém tiver outra função para criar-la, de já agradeço. Obrigado, Leão

Olá, Sobre nf-e, cancelada entra no sped fiscal, se sim, como diferenciar? Obrigado, Leão

Régys, Muito obrigado por mais esta. Leão

Régis, obrigado, Agora outra pergunta, o componente ACBrNFe.assinar, pode gerar a chave da nf-e, exatamente igual a das já emitidas? Pois preciso gerar essa chave nos movimento anteriores, meu db não tem essa chave, quais são os parametros para gerar a chave? Obrigado, Leão

Olá, Estou iniciando a gerar o sped fiscal, e estou com uma dúvida, é preciso informar a chave da nf-e, em algum instante da geração do sped fiscal? Uso o emissor gratuito do governo, e não tenho essa informação no meu bd. Obrigado, Leão

sim. Rapaz, na verdade era a sefaz, passei a manhã toda testando, depois descobrir ninguém estava conseguindo enviar-las. Agradeço a todos Obrigado. Leão