Jump to content
Notícias do ACBr

click.png

click.png

click.png

clube mobile


Cursos grátis para toda base ACBr
+ Promoção Clube Mobile para o ACBr Pro

Saiba mais

adriano santos

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

viniciusraduy

Membros
  • Content Count

    24
  • Joined

  • Last visited

Community Reputation

3 Neutral

1 Follower

About viniciusraduy

  • Rank
    Novato

Profile Information

  • Sexo
    Masculino
  • Location
    matinhos

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Alguem tem componente, ou rotinas para importação de inventário da ANVISA? desde já agradeço toda e qualquer ajudar.
  2. Sim, foi ligado la, e estao mais perdidos que cego em tiroteio, apos ligar 3a vez .. que um dos atendentes comentou que ta tudo fora.
  3. Esta fora só para variar.. se fosse privatizado, a historia seria outra, pois cabeças rolariam.
  4. Bom dia.. faça o seguinte.. crie um while por exemplo de 5 tentativas com um delay de uns 2 segundos.... isso vai resolver.. adaptacao tecnica
  5. Eduardo.. problemas no WebService infelizmente. o DNS antigo ainda esta no ar.. pelo jeito é usa-lo até estabilizar o novo.
  6. Problemas por aqui tambem... basicamente erros de "nivel superior" e "nao pode ser estabelecida"
  7. Felipe. estou postando um teste.pas unit Teste; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Soap.InvokeRegistry, Soap.Rio, Soap.SOAPHTTPClient, Soap.xsbuiltins; type TForm6 = class(TForm) Button1: TButton; HTTPRIO: THTTPRIO; procedure Button1Click(Sender: TObject); private { Private declarations } public Function GetDosOutput(const CommandLine:string): string; function GeraLiberacao(cpf,cnpj,crm,ufcrm:string;data:TDate):string;
  8. entao assim, fiz teste usando a dll function IdentificaEstacao: PAnsiChar; cdecl; external 'gbasmsb_library.dll'; dna := IdentificaEstacao; so que esta retornando DNA antigo.. entao nao esta confiavel a dll (por enquanto)
  9. Esta muito estranho, as vezes da erro, dai manda denovo passa.. coisas do além.
  10. opa. legal.. wallyson conseguiu resolver seu problema? felipe, um pouco acima coloquei uma funcao.. veja se lhe serve..
  11. Resumindo: fiz uma funcao para buscar o resultado pelo gbasmdb.exe, pois se buscar pela dll esta retornando o dna antigo.. Solicitacao.dnaEstacao := GeraLiberacao(solicitacao.nuCpf,solicitacao.nuCnpj,solicitacao.nuCrm,solicitacao.sgUfCrm,Now); Autorizacao := AutorizacaoDTO.Create; Autorizacao := wsFarmaciaPopular.executarSolicitacao(Solicitacao, Usuario); function TForm6.GeraLiberacao(cpf,cnpj,crm,ufcrm:string;data:TDate):string; var bat : TextFile; cmd : string; lStartUpInfo: TStartUpInfo; lProcesso: TProcessInformation; arquivobat : string; diretorio_exe :
  12. Agora tenho mensagem de data invalida... estou usando assim function PegaSolicitacao(cCNPJ, cCPJ, cCRM, cUFCRM, cDataEmissao: PAnsichar): PAnsiChar; cdecl; external 'gbasmsb_library.dll'; Solicitacao.dnaEstacao := trim(PegaSolicitacao(PAnsiChar(AnsiString(Solicitacao.nuCnpj)), //cnpj// PAnsiChar(AnsiString(Solicitacao.nuCpf)), //cpf// PAnsiChar(AnsiString(Solicitacao.nuCrm)), //crm//
×
×
  • Create New...