Ir para conteúdo
  • Cadastre-se

noelio

Membros
  • Total de ítens

    14
  • Registro em

  • Última visita

Posts postados por noelio

  1. Boa Tarde,

    Trabalho em uma softhouse em que estamos desenvolvendo aplicativo, em Delphi 7 para nota fiscal de serviço eletrônica de serviço da prefeitura da cidade do recife.

    A dúvida vem de qual tipo de schema a ser utilizado, onde no manual do município informa utilizar o tipo: TiposNFe_v02.xsd / xmldsig-core-schema_v02.xsd

    Já no manual nacional o tipo é: tipos_nfse_v01.xsd / xmldsig-core-schema_v01.xsd

    Quanto a URL temos no manual municipal: "http://www.recife.pe.gov.br/nfe/" e

    no manual nacional: "http://www.abrasf.org.br/ABRASF/arquivos/"

    Informo que estou utilizando o componente em desenvolvimento ACBRNFSe, pelo nosso companheiro Ítalo, em que destaco a sua dedicação em por o mesmo para funcionar. O componente esta realizando todos os processos, porém a dificuldade esta justamente na configuração do schema e URL, devido a informações nos manuais não estarem batendo.

    Diante do exposto solicitaria uma informação mais precisa para poder configurar corretamente nosso aplicativo e faze-lo funcionar corretamente.

    Agradecendo a qualquer ajuda disponibilizada

  2. Bom dia,

    Trabalho em uma softhouse em que estamos desenvolvendo aplicativo, em Delphi 7 para nota fiscal de serviço eletrônica de serviço da prefeitura da cidade do recife.

    A dúvida vem de qual tipo de schema a ser utilizado, onde no manual do município informa utilizar o tipo: TiposNFe_v02.xsd / xmldsig-core-schema_v02.xsd

    Já no manual nacional o tipo é: tipos_nfse_v01.xsd / xmldsig-core-schema_v01.xsd

    Quanto a URL temos no manual municipal: "http://www.recife.pe.gov.br/nfe/" e

    no manual nacional: "http://www.abrasf.org.br/ABRASF/arquivos/"

    Informo que estou utilizando o componente em desenvolvimento ACBRNFSe, pelo nosso companheiro Ítalo, em que destaco a sua dedicação em por o mesmo para funcionar. O componente esta realizando todos os processos, porém a dificuldade esta justamente na configuração do schema e URL, devido a informações nos manuais não estarem batendo.

    Diante do exposto solicitaria uma informação mais precisa para poder configurar corretamente nosso aplicativo e faze-lo funcionar corretamente.

    Agradecendo a qualquer ajuda disponibilizada

  3. Pessoal,

    Conseguir descobrir a solução do problema. Estava na sequência das NFe, pois com estou realizando testes e enviando em ambiente de homologação teve algumas notas que não dei sequencia e com isto criou uma defasagem entre os números delas, ou seja, não estava realizando o cancelamento na SEFAZ/PE.

    Problema Resolvido

  4. Desculpa.

    Faltou informar que estou usando o Fortes Report.

    Mais agradecendo a atenção, consegui resolver.

    Não observei que a propriedade "preview" estava setada com "false". Com isto, não tinha como indicar para qual impressora deveria ser impresso o DANFE.

    Obrigado.

    Aos Moderadores assunto resolvido.

  5. Pessoal bom dia,

    Estou com um problema quanto a impressão do DANFE. Eu gero o xml, válido e transmito. Recebo a confirmação que a NFe esta autorizada para uso. Quando executo a rotina para impressão do DANFE ele realiza todo o procedimento porém não consigo obter o DANFE fisicamente, ou seja, impresso.

    Olhando no componente ACBrNFeDANFeRL observei que existe uma propriedade "Impressora". Não sei se devemos por o caminho onde esta a impressora. Esta esta é a dúvida.

    Estarei realizando testes aqui, porém se for algo diferente peço ajuda aos companheiros daqui do forum.

    Obrigado.

  6. Pessoal,

    Consegui resolver o problema de PrivateKey. O erro era ocasionado devido a instalação do certificado digital esta com problemas, foi revisto a mesma e passou desse ponto.

    Aos moderadores o problema foi resolvido.

  7. Sim. Segui as instruções para instalação do projeto ACBr.

    o erro se apresenta ao executar o seguinte método da ACBrNFeConfiguracoes:

    
    {$IFNDEF ACBrNFeOpenSSL}
    
    function TCertificadosConf.GetCertificado: ICertificate2;
    
    var
    
      Store        : IStore3;
    
      Certs        : ICertificates2;
    
      Cert         : ICertificate2;
    
      i            : Integer;
    
    
      xmldoc  : IXMLDOMDocument3;
    
      xmldsig : IXMLDigitalSignature;
    
      dsigKey   : IXMLDSigKey;
    
      SigKey    : IXMLDSigKeyEx;
    
      PrivateKey : IPrivateKey;
    
      hCryptProvider : HCRYPTPROV;
    
      XML : String;
    
    begin
    
      if NotaUtil.EstaVazio( FNumeroSerie ) then
    
        raise EACBrNFeException.Create('Número de Série do Certificado Digital não especificado !');
    
    
      Result := nil;
    
      Store := CoStore.Create;
    
      Store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);
    
    
      Certs := Store.Certificates as ICertificates2;
    
      for i:= 1 to Certs.Count do
    
      begin
    
        Cert := IInterface(Certs.Item[i]) as ICertificate2;
    
        if Cert.SerialNumber = FNumeroSerie then
    
        begin
    
          if NotaUtil.EstaVazio(NumCertCarregado) then
    
             NumCertCarregado := Cert.SerialNumber;
    
          if  CertStoreMem = nil then
    
          begin
    
            CertStoreMem := CoStore.Create;
    
            CertStoreMem.Open(CAPICOM_MEMORY_STORE, 'Memoria', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);
    
            CertStoreMem.Add(Cert);
    
          end;
    
    
          PrivateKey := Cert.PrivateKey; [color=#FF0000]{O erro apresenta neste trecho. "A propriedade ou objeto não foi encontrado"}[/color]
    
    
          if (FSenhaCert <> '') and PrivateKey.IsHardwareDevice then
    
           begin
    
             PrivateKey := Cert.PrivateKey;
    
    
             XML := XML + '';
    
             XML := XML + '';
    
             XML := XML + '';
    
             XML := XML + '';
    
    
             xmldoc := CoDOMDocument50.Create;
    
             xmldoc.async              := False;
    
             xmldoc.validateOnParse    := False;
    
             xmldoc.preserveWhiteSpace := True;
    
             xmldoc.loadXML(XML);
    
             xmldoc.setProperty('SelectionNamespaces', DSIGNS);
    
    
             xmldsig := CoMXDigitalSignature50.Create;
    
             xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature');
    
             xmldsig.store := CertStoreMem;
    
    
             dsigKey := xmldsig.createKeyFromCSP(PrivateKey.ProviderType, PrivateKey.ProviderName, PrivateKey.ContainerName, 0);
    
             if (dsigKey = nil) then
    
                raise EACBrNFeException.Create('Erro ao criar a chave do CSP.');
    
    
             SigKey := dsigKey as IXMLDSigKeyEx;
    
             SigKey.getCSPHandle( hCryptProvider );
    
    
             try
    
               CryptSetProvParam( hCryptProvider , PP_SIGNATURE_PIN, LPBYTE(FSenhaCert), 0 );
    
             finally
    
               CryptReleaseContext(hCryptProvider, 0);
    
             end;
    
    
             SigKey    := nil;
    
             dsigKey   := nil;
    
             xmldsig   := nil;
    
             xmldoc    := nil;
    
          end;
    
    
          Result := Cert;
    
          FDataVenc := Cert.ValidToDate;
    
          break;
    
        end;
    
      end;
    
    
      if not(Assigned(Result)) then
    
        raise EACBrNFeException.Create('Certificado Digital não encontrado!');
    
    
    end;
    
    

  8. Bom dia,

    Em uma rotina para validação de NFe estou me deparando com um incomodo erro em que apresenta a seguinte mensagem:

    "Cannot Find Object or Property". E com isto não consigo validar. Informo que o aplicativo esta em fase de teste.

    Ao analisar o código observei que é referente ao método "function GetCertificado: ICertificate2;" que encontra-se na unit ACBrNFeConfiguracoes.

    Pergunta-se:

    - Isto teria a ver com certificação digital ?

    ou

    - Instalação do certificado digital no PC em que esta rodado o aplicativo ?

    Agradeceria a qualquer ajuda que possa ser disponibilizada>

    Observação : Sistema desenvolvido em delphi 7 / BD - Firebird 2.0

  9. Pessoal,

    Consegui resolver o problema. Aqui em nossa empresa personalizamos a unit StrUtils e por isto nós acessamos ela de um pacote de componentes próprio.

    Olhando a unit ACBRUtils detectei que havia a função PosEx(), o que fiz copiei e coloquei na nossa StrUtils e resolveu o problema.

    Problema Resolvido

  10. Boa Tarde,

    Estou tentando compilar um projeto em que uso o ACBrNFe, porém na unit ACBrUtil.pas esta dando problema com a função PosEx, que esta ligada a StrUtils.

    Estou usando delphi 7;

    Alguém já consegui pular essa fogueira ?? Ajuda !!!!

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...