Ir para conteúdo
  • Cadastre-se

Diron Donadel

Membros
  • Total de ítens

    23
  • Registro em

  • Última visita

Posts postados por Diron Donadel

  1. Bom dia, estou tendo alguns problemas quando vou testar a versão 4.00 do CT-e no sefaz de SP. Segue a mensagem de retorno: 
    image.png.a47c657215b7d835bbd216ba105442a7.png

    Alguém passou pelo mesmo problema? Aqui é um exemplo utilizando o link de status do serviço, porém pra emissão está retornando o mesmo erro. 

  2. Em 23/05/2017 at 12:39, Crasso disse:

    Tem sim.
    Você pode consultar a nota fiscal e extrair as informações necessárias para verificação, entretanto, o arquivo não terá validade jurídica.
    Existe um site que realiza esse procedimento.
    www.fsist.com.br

    Estarei desenvolvendo uma linha de código para tal procedimento.
    Quem tiver interesse, manda contato.

    Eu tenho interesse se puder enviar para [email protected], depois da mudança ali do site de captcha próprio pro recaptcha do google "não sou robo" começou a complicar a vida. Até acabei descobrindo que tem a consulta pra deficientes visuais ali que traz o captcha antigo porém só pode fazer 4 consulta depois ele bloqueia por um tempo. 

    • Obrigado 1
  3. Você não pode acessar um banco de dados Firebird via ftp como se fosse um arquivo. Precisa ter um aplicativo servidor do Firebird instalado na máquina servidora. É esse servidor (aplicativo) que permite conexões dos clientes por meio de conexão TCP/IP.

    Veja: http://www.firebirdfaq.org/faq53/

    ahh agora sim alguem me esclareceu realmente alguma coisa, td bem obrigado, então vamos fazer diferente.

    o banco esta em um servidor de uma empresa e quero conectar neste banco na outra empresa pela internet como faço ?

  4. Boa tarde pessoal, eu estou com uma duvida a mais de uma semana já e gostaria que se vcs soubesse me solucionassem. Eu tenho minha aplicação no delphi xe2, um componente chamado embeddedwb não nativo que usa as configurações do internet explorer, e tenho uma rotina que faz o download do xml do site da nf-e. Bem pois então como todos sabem fazer esse download necessita de alguns passos como a informação da chave nf-e e o captcha, até ai td bem minha aplicação baixa o captcha, e tem dois campos pra digitar a chave e o captcha logo apois digitados os dados são enviados pra este componente embeddedwb que esta carregado a pagina da consulta da nf-e, se os dados estiverem todos corretos nesse mesmo componente vai pra pagina de consulta com todos os dados da chave fornecida, onde também existe o botão pra fazer o download do xml, minha aplicação tbm clica nesse botão automaticamente, até ai td bem, eu só preciso então fornecer minha chave e o captcha que o resto é td automatizado por esse componente embeddedwb, td bem até ai, só que quando a aplicação faz o download ela mostra uma lista de certificados, e eu quero que não apareça a lista quero escolher um certificado na lista pelo serial e utilizalo pra não precisar aparecer a lista ou para aparecer rapidamente sem que o usuario perceba a seleção automatica do certificado.

     

    Obrigado desde já.

  5. eu acho que o erro deve ser de permisão no windows,

    eu uso o delphi 7 na minha aplicação esta rodando normal,

    sinto muito mais não tenho como testar no xe2

    blz era aquilo mesmo que vc falou na verdade era eu quem tava errando uma coisinha ali adaptativa vlw, mais agora eu queria saber sobre o certificado ele continua aparecendo pra escolher, na sua maquina só tem um certificado instalado ? 

  6. eu acho que o erro deve ser de permisão no windows,

    eu uso o delphi 7 na minha aplicação esta rodando normal,

    sinto muito mais não tenho como testar no xe2

    magina sem problemas vou fazer alguns testes aqui, pq o meu usuario é limitado pode ser por isso tbm apesar de eu ja ter alterado o caminho do arquivo que vai ser salvo, mais vamos ver se eu achar uma solução eu posto aqui pra galera curtir

  7. qual delphi vc ta usando?

    eu to usando o delphi xe2 

    e tipo no meu aparece aquela mensagem ali que precisa ter um certificado de cliente depois ainda aparece a tela de escolher o certificado e depois pra conceder permissão e só depois da o erro 

  8.  

    a unica coisa que uso é 

    não lembro qual esta funcionando. testa ai:
    function DownloadFile(Source, Dest: string): Boolean;
    begin
      try
      Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0;
      except
      Result:= False;
      end;
    end;
    
    function TfrmPrincipal.DownloadFile(SourceFile, DestFile: string): Boolean;
    const BufferSize = 1024;
    var
      hSession, hURL: HInternet;
      Buffer: array[1..BufferSize] of Byte;
      BufferLen: DWORD;
      f: File;
      sAppName: string;
    begin
     sAppName := ExtractFileName(Application.ExeName);
     hSession := InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
     try
       hURL := InternetOpenURL(hSession,PChar(SourceFile),nil,0,0,0);
       try
         AssignFile(f, DestFile);
         Rewrite(f,1);
         repeat
           InternetReadFile(hURL, @Buffer,SizeOf(Buffer), BufferLen);
           BlockWrite(f, Buffer, BufferLen)
         until BufferLen = 0;
         CloseFile(f);
         Result := True;
       finally
         InternetCloseHandle(hURL)
       end
     finally
       InternetCloseHandle(hSession)
     end;
    end;

    no evento OnFileDownload do TEmbeddedWB

     

    function TfrmPrincipal.WebBrowser1FileDownload(pmk: IMoniker;
      pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal; pBindInfo: PBindInfo;
      pszHeaders, pszRedir: PWideChar; uiCP: Cardinal): HRESULT;
    begin
    if DownloadFile (pszRedir,'C:\teste.xml') then
     Begin
     ShowMessage('Download Concluído.');
     End;
    end;
     
    pelo menos na minha aplicação não pergunta onde vai salvar.

     

    cara to usando o seu código e to recebendo esse ero 

     

    ---------------------------
    Debugger Exception Notification
    ---------------------------
    Project Project1.exe raised exception class EInOutError with message 'File access denied'.
    ---------------------------
    Break   Continue   Help   
    ---------------------------
  9.  

    a unica coisa que uso é 

    não lembro qual esta funcionando. testa ai:
    function DownloadFile(Source, Dest: string): Boolean;
    begin
      try
      Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0;
      except
      Result:= False;
      end;
    end;
    
    function TfrmPrincipal.DownloadFile(SourceFile, DestFile: string): Boolean;
    const BufferSize = 1024;
    var
      hSession, hURL: HInternet;
      Buffer: array[1..BufferSize] of Byte;
      BufferLen: DWORD;
      f: File;
      sAppName: string;
    begin
     sAppName := ExtractFileName(Application.ExeName);
     hSession := InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
     try
       hURL := InternetOpenURL(hSession,PChar(SourceFile),nil,0,0,0);
       try
         AssignFile(f, DestFile);
         Rewrite(f,1);
         repeat
           InternetReadFile(hURL, @Buffer,SizeOf(Buffer), BufferLen);
           BlockWrite(f, Buffer, BufferLen)
         until BufferLen = 0;
         CloseFile(f);
         Result := True;
       finally
         InternetCloseHandle(hURL)
       end
     finally
       InternetCloseHandle(hSession)
     end;
    end;

    no evento OnFileDownload do TEmbeddedWB

     

    function TfrmPrincipal.WebBrowser1FileDownload(pmk: IMoniker;
      pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal; pBindInfo: PBindInfo;
      pszHeaders, pszRedir: PWideChar; uiCP: Cardinal): HRESULT;
    begin
    if DownloadFile (pszRedir,'C:\teste.xml') then
     Begin
     ShowMessage('Download Concluído.');
     End;
    end;
     
    pelo menos na minha aplicação não pergunta onde vai salvar.

     

    não abre a caixa de mensagem se quer salvar ou abrir ou cancelar ? aquela antiga do internet explorer 

  10. tenta esse:

    sourceforge.net/projects/utilitarioserp/files/

    ta uma bagunça mais funciona até hoje

    dei uma olhada mais ainda não solucionou minha questão de como fazer não abrir a caixa de dialogo de salvamento no embeddedwb, o parceiro ali falou que tem que passar um parametro eu gostaria de saber onde e como faço isso

  11. Olá,

    Amigo.

    Existe uma DLL.

    A DLL/Unit e no link: http://www.transym.com/download-sample-source-code.htm- Mas eu já desisti dela.

    Vale a pena conferir.

    Boa parte das pessoas que usam este recurso usam esta UNIT.

    Agora se eu fosse você faria a recuperação do XML via Certificado Digital usando o mesmo RecuperaXML, uma vez que todos seus clientes já tem o certificado para emissão de NF-e.

    Antes de investir seu dinheiro em algo que SEFAZ vai ficar sabendo e não demora sobre esta conversão de imagens, basta ela cair a qualidade da imagem e bau...bau esses aplicativos de conversão de imagem.

    A recuperação via certificado digital você não vai ter problemas.

    No inicio eu estava com problema usando IE, porque ele perguntava onde eu queria salvar o XML.

    Agora eu o componente: Embedded Web Browser, emula o IE, e eu passo o parâmetro do diretório e não abre aquela caixinha de salvar como.

    Você só coloca a chave e seleciona o certificado. Se o usuário não sair do sistema ele não pedi o certificado nas próximas.

    Eu tenho maior prazer em fornecer mais informações sem cobrar nada.

    Eu cheguei a fazer a conversão de imagem e no final achei mais profissional recuperar via certificado. No meu caso todos tem certificado e obrigado a ter.

    Abraços,

    ótimo dia.

    vc poderia passar o código de como vc passou o parametro pro EmbeddedWB ? gostaria de saber como vc fez isso pra não abrir mais a caixa de salvar ou abrir

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