edvilson.chaves

Estranho....mas realmente se vc observar o código da configuração que defino ele para o path da aplicação mas vale a dica vou verificar.... obrigado.

Olá a Todos, estou enfrentando o seguinte problema, já revisei meu código e não vejo outra forma de Corrigir o seguinte problema. Já utilizo o ACBrNFe faz muito tempo, atualmente estou na versão 2.0 Estou reescrevendo meu programa e tenho o ACBrNFe criado da seguinte forma: private { Private declarations } FACBrNFeDANFEQuick: TACBrNFeDANFEQR; FACBrNFe: TACBrNFe; public { Public declarations } function ACBrNFe(const pCriar: Boolean): TACBrNFe; end; function TFrm_Principal.ACBrNFe(const pCriar: Boolean): TACBrNFe; begin if pCriar and not Assigned(FACBrNFe) then begin FACBrNFe := TACBrNFe.Create(Self); if not Assigned(FACBrNFeDANFEQuick) then FACBrNFeDANFEQuick := TACBrNFeDANFEQR.Create(Self); FACBrNFeDANFEQuick.ExpandirLogoMarca := False; FACBrNFeDANFEQuick.MostrarStatus := True; FACBrNFeDANFEQuick.Sistema := Caption; FACBrNFeDANFEQuick.Usuario := Usuario; FACBrNFeDANFEQuick.CasasDecimais._qCom := 2; FACBrNFeDANFEQuick.CasasDecimais._vUnCom := 2; FACBrNFeDANFEQuick.ImprimirDescPorc := False; FACBrNFe.DANFE := FACBrNFeDANFEQuick; TDtm_ConfiguracoesComp.ConfiguraNotaFiscalEletronica; end; Result := FACBrNFe; end; class function TDtm_ConfiguracoesComp.ConfiguraNotaFiscalEletronica: Boolean; var lArqINI: String; lDtm_ConfiguracoesComp: TDtm_ConfiguracoesComp; lMsg: String; lIdx: Integer; lPortas: TStrings; lACBrNFe: TACBrNFe; begin lDtm_ConfiguracoesComp := nil; TDtm_ConfiguracoesComp.CriaEntidadeConfiguracoesComp(nil, lDtm_ConfiguracoesComp); try lDtm_ConfiguracoesComp.AcionaFiltro(EmptyStr, True, TSistema.NomeComputador); Result := lDtm_ConfiguracoesComp.TemRegistros and (TSistema.NomeComputador = lDtm_ConfiguracoesComp.ClientDataSetNOME_COMPUTADOR.AsString); if Result then begin try lACBrNFe := Frm_Principal.ACBrNFe(True); lACBrNFe.Configuracoes.Certificados.NumeroSerie := lDtm_ConfiguracoesComp.ClientDataSetNRO_CERTIFICADO_NFE.AsString; if TSistema.StringEmBranco(lACBrNFe.Configuracoes.Certificados.NumeroSerie) then lACBrNFe.Configuracoes.Certificados.NumeroSerie := lACBrNFe.Configuracoes.Certificados.SelecionarCertificado; except on E: Exception do begin Frm_Principal.DestroiACBrNFe; Abort; end; end; lACBrNFe.Configuracoes.Certificados.Senha := lDtm_ConfiguracoesComp.ClientDataSetSENHA_NFE.AsString; if (lDtm_ConfiguracoesComp.ClientDataSetBASE_EMISSAO_NFE.AsString = 'HM') then lACBrNFe.Configuracoes.WebServices.Ambiente := taHomologacao else if (lDtm_ConfiguracoesComp.ClientDataSetBASE_EMISSAO_NFE.AsString = 'PR') then lACBrNFe.Configuracoes.WebServices.Ambiente := taProducao else if TSistema.StringEmBranco(lDtm_ConfiguracoesComp.ClientDataSetWEBSERVICE_NFE) then lACBrNFe.Configuracoes.WebServices.UF := lDtm_ConfiguracoesComp.ClientDataSetWEBSERVICE_NFE.AsString else begin Frm_Principal.DestroiACBrNFe; Abort; end; if TSistema.DiretorioExiste(lDtm_ConfiguracoesComp.ClientDataSetDIRETORIO_NFE.AsString) then lACBrNFe.Configuracoes.Geral.PathSalvar := lDtm_ConfiguracoesComp.ClientDataSetDIRETORIO_NFE.AsString else lACBrNFe.Configuracoes.Geral.PathSalvar := TSistema.CaminhoPrograma; if (lDtm_ConfiguracoesComp.ClientDataSetBASE_EMISSAO_NFE.AsString = 'PR') then begin if not TSistema.DiretorioExiste(lACBrNFe.Configuracoes.Geral.PathSalvar+'NFE\') then if not TSistema.CriaDiretorio(lACBrNFe.Configuracoes.Geral.PathSalvar+'NFE\') then raise Exception.Create('A emissão da nota fiscal eletrônica exige um diretório de reposição de arquivos.'+#13#10+'Não foi possível criar o diretório, Verifique ou entre em contato com o administrador do sitema.'); lACBrNFe.Configuracoes.Geral.PathSalvar := lACBrNFe.Configuracoes.Geral.PathSalvar+'NFE\'; end else if (lDtm_ConfiguracoesComp.ClientDataSetBASE_EMISSAO_NFE.AsString = 'HM') then begin if not TSistema.DiretorioExiste(lACBrNFe.Configuracoes.Geral.PathSalvar+'NFE_TESTE\') then if not TSistema.CriaDiretorio(lACBrNFe.Configuracoes.Geral.PathSalvar+'NFE_TESTE\') then raise Exception.Create('A emissão da nota fiscal eletrônica exige um diretório de reposição de arquivos.'+#13#10+'Não foi possível criar o diretório, Verifique ou entre em contato com o administrador do sitema.'); lACBrNFe.Configuracoes.Geral.PathSalvar := lACBrNFe.Configuracoes.Geral.PathSalvar+'NFE_TESTE\'; end; lACBrNFe.Configuracoes.Geral.PathSchemas := TSistema.CaminhoPrograma + 'Schemas\'; if not TSistema.DiretorioExiste(lACBrNFe.Configuracoes.Geral.PathSchemas) then raise Exception.Create('A emissão da nota fiscal eletrônica exige um diretório de schemas para geração de arquivos XML.'+#13#10+'Não foi possível criar o diretório, Verifique ou entre em contato com o administrador do sitema.'); lACBrNFe.Configuracoes.Arquivos.PathNFe := lACBrNFe.Configuracoes.Geral.PathSalvar + 'NFE\'; lACBrNFe.Configuracoes.Arquivos.PathCan := lACBrNFe.Configuracoes.Geral.PathSalvar + 'CAN\'; lACBrNFe.Configuracoes.Arquivos.PathInu := lACBrNFe.Configuracoes.Geral.PathSalvar + 'INU\'; if not TSistema.DiretorioExiste(lACBrNFe.Configuracoes.Arquivos.PathNFe) then TSistema.CriaDiretorio(lACBrNFe.Configuracoes.Arquivos.PathNFe); if not TSistema.DiretorioExiste(lACBrNFe.Configuracoes.Arquivos.PathCan) then TSistema.CriaDiretorio(lACBrNFe.Configuracoes.Arquivos.PathCan); if not TSistema.DiretorioExiste(lACBrNFe.Configuracoes.Arquivos.PathInu) then TSistema.CriaDiretorio(lACBrNFe.Configuracoes.Arquivos.PathInu); if (lDtm_ConfiguracoesComp.ClientDataSetFORMA_EMISSAO_NFE.AsString = 'NR') then lACBrNFe.Configuracoes.Geral.FormaEmissao := teNormal else if (lDtm_ConfiguracoesComp.ClientDataSetFORMA_EMISSAO_NFE.AsString = 'CT') then lACBrNFe.Configuracoes.Geral.FormaEmissao := teContingencia else begin Frm_Principal.DestroiACBrNFe; Abort; end; lACBrNFe.Configuracoes.WebServices.Visualizar := True; lACBrNFe.Configuracoes.Geral.Salvar := True; if not lDtm_ConfiguracoesComp.ClientDataSetLOGO_NFE.IsNull then begin lDtm_ConfiguracoesComp.ClientDataSetLOGO_NFE.SaveToFile(TSistema.CaminhoPrograma + 'LOGO.JPG'); if TSistema.ArquivoExiste(TSistema.CaminhoPrograma + 'LOGO.JPG') then lACBrNFe.DANFE.Logo := TSistema.CaminhoPrograma + 'LOGO.JPG'; end; if not TSistema.StringEmBranco(lDtm_ConfiguracoesComp.ClientDataSetWEBSERVICE_NFE) then lACBrNFe.Configuracoes.WebServices.UF := lDtm_ConfiguracoesComp.ClientDataSetWEBSERVICE_NFE.AsString else begin Frm_Principal.DestroiACBrNFe; Abort; end; lACBrNFe.Configuracoes.Geral.Salvar := True; end else Frm_Principal.DestroiACBrNFe; lDtm_ConfiguracoesComp.FecharEntidade; finally FreeAndNil(lDtm_ConfiguracoesComp); Result := not (Frm_Principal.ACBrNFe(False) = nil); end; end; PROBLEMA: AO RODAR O PROGRAMA, TENTEI VERIFICAR O STATUS DO WEBSERVICE DA NOTA FISCAL 2.0. PORÉM ELE ESTÁ SEMPRE TENTADO BUSCAR PELA VERSÃO 1.0. ALGUÉM SABE COMO FAÇO PARA APONTAR NAS CONFIGURAÇOES DO COMPONENTE QUAL VERSÃO QUERO UTILIZAR ??? ERRO RETORNADO PELO COMPONENTE: COD: 239 - REJEICAO CABECALHO - VERSÃO DO ARQUIVO XML NÃO SUPORTADA.

Olá pessoal! Estou aqui postando minha primeira mensagem para o pessoal do ACBr. Fui no site da fazenda e baixei todas as seções disponíveis, com os códigos de NCM/SH, descrições e aliquotas de IPI. Para quem interessar possa está nesse link: http://www.flexsystems.info/forums/IMPORTANCM.zip É só adaptar para o seu sistema. Foi desenvolvido em Delphi 2007 com dbxexpress (acessando FIREBIRD) e ADO (acessando tabela do EXCEL 97). PS: Gostaria de uma ajuda do pessoal do ACBr. Achei alguns problemas do projeto e gostaria de contribuir. Como faço? Baixei o projeto via sourceforge mas alterações são permitidas somente via login e senha que não tenho. Obrigado pessoal.