Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Notecenter Notebook

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    127

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Notecenter Notebook

    Logo Nfe

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado

    Boa Noite

    Estou com o seguinte problema.

    Carrego a logo no Confignfe, normal, minha imagem é em jpg.

    Na geração por pdf é normal(monstra a imagem), no email tb, mas quando gero o processo de criação não aparece.

     

    Ex:da Função

     

     

    Function TfrmNFe.CarregaConfigNFE(iCODIGO : SmallInt): Boolean;
    Begin
      Try
        Result := False;
        With sqlDadosNFe Do
        Begin
          SQLConnection := DBX_Express.SQLConnection;
          Close;
          CommandText := ' SELECT * FROM ConfigNFe WHERE CODPARAM_NFE = ' + IntToStr(iCODIGO);
          Prepared := True;
        End;
        With cdsDadosNFe Do
        Begin
          Close;
          Open;
          If Not(IsEmpty) Then
          Begin
            ACBrNFe1.Configuracoes.Certificados.NumeroSerie := FieldByName('NUMSERIE_NFE').AsString;
     
            ACBrNFe1.Configuracoes.Arquivos.Salvar := (FieldByName('SALVAR_NFE').AsInteger = 1);
            Case FieldByName('FORMAEMISSAO_NFE').AsInteger Of
              0: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal;
              1: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teContingencia;
              2: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teSCAN;
              3: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teDPEC;
              4: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teFSDA;
            Else
              ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal;
            End;
            ACBrNFe1.Configuracoes.Geral.PathSalvar := FieldByName('DIR_SALVAR_NFE').AsString;
     
            ACBrNFe1.Configuracoes.WebServices.UF := FieldByName('WS_UF_NFE').AsString;
            ACBrNFe1.Configuracoes.WebServices.Visualizar := (FieldByName('WS_VISUALIZA_NFE').AsInteger = 1);
            Case FieldByName('WS_AMBIENTE_NFE').AsInteger Of
              0: ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao;
              1: ACBrNFe1.Configuracoes.WebServices.Ambiente := taHomologacao;
            Else
              ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao;
            End;
            ACBrNFe1.Configuracoes.WebServices.ProxyHost := FieldByName('PROXY_HOST_NFE').AsString;
            ACBrNFe1.Configuracoes.WebServices.ProxyPort := FieldByName('PROXY_PORTA_NFE').AsString;
            ACBrNFe1.Configuracoes.WebServices.ProxyUser := FieldByName('PROXY_USER_NFE').AsString;
            ACBrNFe1.Configuracoes.WebServices.ProxyPass := FieldByName('PROXY_SENHA_NFE').AsString;
     
            Case FieldByName('DANFE_NFE').AsInteger Of
              0: ACBrNFeDANFERave1.TipoDANFE := tiRetrato;
              1: ACBrNFeDANFERave1.TipoDANFE := tiPaisagem;
            Else
              ACBrNFeDANFERave1.TipoDANFE := tiRetrato;
            End;
            ACBrNFeDANFERave1.NumCopias := FieldByName('NUMCOPIAS_NFE').AsInteger;
            ACBrNFeDANFERave1.Logo := FieldByName('DIR_LOGO_NFE').AsString;
          //  ShowMessage(FieldByName('DIR_LOGO_NFE').AsString);
     
            ACBrNFe1.Configuracoes.Arquivos.PathCan  := FieldByName('DIR_CANC_NFE').AsString;
            ACBrNFe1.Configuracoes.Arquivos.PathDPEC := FieldByName('DIR_DPEC_NFE').AsString;
            ACBrNFe1.Configuracoes.Arquivos.PathInu  := FieldByName('DIR_INU_NFE').AsString;
            ACBrNFe1.Configuracoes.Arquivos.PathNFe  := FieldByName('DIR_NFES_NFE').AsString;
            ACBrNFe1.Configuracoes.Geral.PathSchemas := FieldByName('DIR_SCHEMA_NFE').AsString;
            ACBrNFeDANFERave1.PathPDF := FieldByName('DIR_PDF_NFE').AsString;
            //ACBrNFeDANFERave1. := FieldByName('DIR_RAVE_NFE').AsString + '\NotaFiscalEletronica.rav';
     
            Result := True;
          End;
        End;
      Except
        MessageBox(0, 'Falha na abertura dos dados de NF-e. Favor entrar em contato com o Suporte.', 'Atenção', MB_ICONWARNING or MB_OK or MB_SETFOREGROUND or MB_TOPMOST);
        Result := False;
        grbTela.Enabled := False;
      End;
    End;
     

    Nfse

    em ACBrNFSe

    Postado

    Otimo, eu não sabia que conseguia imprimir onde aqui da empresa compramos a licença da flexdocs, hoje após tudo pronto. olho essa ferramenta que envia e imprimi. Eu ja utilizo a acbr nfe.

    Gostaria de abrir o Demo da NFSe so quando eu executo apresenta o seguinte erro acbrnfsedanfseqr1 não encontrado.

    ai vou instalar da outro erro erro in module "acbrnfsedanfseqrkg: requires clause is incorrect". Tem como alguem me ajuda a instalar para rodar

    Nfse

    em ACBrNFSe

    Postado · Editado por ROBSON RENAN ZUMERLE

    Boa Tarde, estava olhando a Pasta Acbr, e la tem um demo da NFSe, sou de ribeirão Preto. Utilizei a ferramenta da Flexdocs para subir a Nota de Serviço para a Prefeitura. Olhando o Demo vi que tem a opção de email, a opção a impressão da NFSe. Esse componente e padrão para todas a prefeitura.

    Melhor dizendo eu conseguiria subir a nota para a Prefeitura da Minha cidade.

     

     

    * O que me chamou atenção é que eu consigo enviar um email da NFS-e gerada para outro endereço a não ser o que esta cadastrado na Ginfes, e tambem consigo Imprimir a nota autorizada da Prefeitura pelo demo?

    Pessoal Eu Consigo Imprimir Cce

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado

    Pessoal eu tenho pouco tempo de experiencia com programação teria como me ajudar na seguinte situação  Quando eu envio uma cce ele salva alguma coisa??? eu vi A rotina de impressao que passaram .

     

    No final do codigo do cce existe 

    não reconhece LoadXML(MemoResp, WBResposta);

    * [Error] uNFe.pas(114): Identifier redeclared: 'loadxml'

     

    não reconhece  esse xxxx o que devo colocar ai

    ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].XXXX

     

    eu comentei essas duas linhas para liberar para alguns clientes mas preciso salvar o xml para imprimir depois

    Nao Consigo Instalar Componente Acbrnfedanfervcodebase

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado

    Instalando a nova versão

    Documento := Trim(NotaUtil.LimpaNumero(Documento));

    O delphi me aponta o seguinte erro

    [Error] uNFe.pas(360): Undeclared identifier: 'LimpaNumero'

     

    Como citei estou mudando a versao pois quando vou cancelar ou importa para o emissor gratuito da o seguinte erro.

    Status descrição : Cabeçalho - Versão do arquivo xml não suportada. Isso começou a ocorrer após o dia 19

×
×
  • 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.