Sngpc

Renan Garcia de Oliveira · 19 Abril, 2013

Pois é, agora to com outro póbrema!!!!

Segui as dicas acima, bascicamente, salvei um arquivo .xml, compirmi usando o TCompressionStream (tentei descompactar o .zip gerado mas não dá certo), converti para bit64 e enviei, mas o servidor me retorna um erro dizendo que há um caracter inválido.

Não sei isso pode ter sido algumn lixo que o TXMLDocument deixa ao salvar o arquivo...

Rodrigo Guelf · 20 Abril, 2013

gigainfo, no ambiente de Homologação eu tambem consegui enviar um arquivo esta semana porem no de produção continua dando o seguinte erro:

Arquivo XML não aderente ao Schema SNGPC. Consulte http://www.anvisa.gov.br/sngpc/esquemas.asp para auxiliar na resolução dos erros encontrados.

Os itens não validados, que seguem abaixo, foram encaminhados para o e-mail [email protected]. Favor encaminhar os itens não validados para análise do suporte do programa que gera os arquivos XML em seu estabelecimento.

Descrição do erro: The element 'entradaMedicamentos' in namespace 'urn:sngpc-schema' has invalid child element 'classeTerapeutica' in namespace 'urn:sngpc-schema'. List of possible elements expected: 'urn:sngpc-schema:medicamentoEntrada'.. The element 'entradaMedicamentos' in ...................

Sérgio Assunção · 21 Abril, 2013

gigainfo, no ambiente de Homologação eu tambem consegui enviar um arquivo esta semana porem no de produção continua dando o seguinte erro:

Arquivo XML não aderente ao Schema SNGPC. Consulte http://www.anvisa.gov.br/sngpc/esquemas.asp para auxiliar na resolução dos erros encontrados.

Os itens não validados, que seguem abaixo, foram encaminhados para o e-mail [email protected]. Favor encaminhar os itens não validados para análise do suporte do programa que gera os arquivos XML em seu estabelecimento.

Descrição do erro: The element 'entradaMedicamentos' in namespace 'urn:sngpc-schema' has invalid child element 'classeTerapeutica' in namespace 'urn:sngpc-schema'. List of possible elements expected: 'urn:sngpc-schema:medicamentoEntrada'.. The element 'entradaMedicamentos' in ...................

Veja se você está informando a tag classeTerapeutica dessa forma:

<entradaMedicamentos>
<medicamentoEntrada>
<classeTerapeutica>2</classeTerapeutica>
<registroMSMedicamento>1010000720146</registroMSMedicamento>
<numeroLoteMedicamento>678</numeroLoteMedicamento>
<quantidadeMedicamento>2</quantidadeMedicamento>
<unidadeMedidaMedicamento>1</unidadeMedidaMedicamento>
</medicamentoEntrada>
</entradaMedicamentos>
<entradaMedicamentos>

Ela deve estar juntamente com as outras informações do medicamento.

Sérgio

Editado 21 Abril, 2013 por gigainfo

Renan Garcia de Oliveira · 22 Abril, 2013

Eu ainda não consegui achar um modo de compactar o XML no delphi que seja compatível com o webservice, por hora os clientes estão tendo que fazer na unha mesmo a compactação... TCompressionStream não funciona, recebo a mensagem: "Existem caracteres inválidos na mensagem".

carlosfilho · 22 Abril, 2013

Boa tarde,

Renan você gerou o arquivo com o componente?, você enviou pelo site e funcionou?

Sérgio Assunção · 22 Abril, 2013

Eu ainda não consegui achar um modo de compactar o XML no delphi que seja compatível com o webservice, por hora os clientes estão tendo que fazer na unha mesmo a compactação... TCompressionStream não funciona, recebo a mensagem: "Existem caracteres inválidos na mensagem".

Ola Renan ...

Eu uso o componente tsqZip para compactar e a função FileByteToArray para a conversão para o formato aceito.

function FIleToByteArray( const FileName : string ) : TByteDynArray;
const BLOCK_SIZE=1024;
var BytesRead, BytesToWrite, Count : integer;
 F : File of Byte;
 pTemp : Pointer;
begin
 AssignFile( F, FileName );
 Reset(F);
try
 Count := FileSize( F );
 SetLength(Result, Count );
 pTemp := @Result[0];
 BytesRead := BLOCK_SIZE;
 while (BytesRead = BLOCK_SIZE ) do
 begin
  BytesToWrite := Min(Count, BLOCK_SIZE);
  BlockRead(F, pTemp^, BytesToWrite , BytesRead );
   pTemp := Pointer(LongInt(pTemp) + BLOCK_SIZE);
  Count := Count-BytesRead;
 end;
finally
  CloseFile( F );
 end;
end;

Sérgio

Renan Garcia de Oliveira · 23 Abril, 2013

Ainda não está funcionando, eu precisei salvar o arquivo .xml em disco e pedir para os usuários compactarem e enviarem pelo site, adivinha se já não estão reclamando... ehueheuheuhe

Estou usando o seguinte método para compactar:

function TSngpc2Gerenciador.GetXmlCompressedInZipFileFromString(pString: string): string;
var
  vXmlDocument: TStrings;
  vFileName: string;
  vInFile,
    vTmpFile: TFileStream;
  vCompr: TCompressionStream;
  vL: Integer;
begin
  //Salva o arquivo
  vFileName := FormatDateTime('yyyymmddhhnnsszzz', Now);
  vXmlDocument := TStringList.Create;
  vXmlDocument.Text := StringReplace(StringReplace(pString, #10, '', [rfReplaceAll]), #10, '', [rfReplaceAll]);
  vXmlDocument.SaveToFile(ExtractFilePath(ParamStr(0)) + '\' + vFileName + '.xml');


  //Compacta o arquivo
  vInFile := TFileStream.Create(ExtractFilePath(ParamStr(0)) + '\' + vFileName + '.xml', fmOpenRead);
  vTmpFile := TFileStream.Create(ExtractFilePath(ParamStr(0)) + '\' + vFileName + '.zip', fmCreate);
  vCompr := TCompressionStream.Create(clDefault, vTmpFile);
  vL := vInFile.Size;
  try
    vCompr.CopyFrom(vInFile, vL); // Efetua a compressão do arquivo
  finally
    vInFile.Free;
    vCompr.Free;
    vTmpFile.Free;
    vXmlDocument.Free;
  end;


  //Remove o XML antigo
  DeleteFile(ExtractFilePath(ParamStr(0)) + '\' + vFileName + '.xml');


  //Atribui o valor de retorno
  Result := ExtractFilePath(ParamStr(0)) + '\' + vFileName + '.zip';
end;

Este método retorna o nome do arquivo que irei converter para TByteDynArray com o método abaixo:

function TSngpc2Gerenciador.FileToByteArray(const pFileName: string): TByteDynArray;
const
  BLOCK_SIZE = 1024;
var
  vBytesRead, vBytesToWrite, vCount: integer;
  vF: file of Byte;
  vTemp: Pointer;
begin
  AssignFile(vF, pFileName);
  Reset(vF);
  try
    vCount := FileSize(vF);
    SetLength(Result, vCount);
    vTemp := @Result[0];
    vBytesRead := BLOCK_SIZE;
    while (vBytesRead = BLOCK_SIZE) do
    begin
      vBytesToWrite := Min(vCount, BLOCK_SIZE);
      BlockRead(vF, vTemp^, vBytesToWrite, vBytesRead);
      vTemp := Pointer(LongInt(vTemp) + BLOCK_SIZE);
      vCount := vCount - vBytesRead;
    end;
  finally
    CloseFile(vF);


    //Exclui o arquivo antigo
    DeleteFile(pFileName);
  end;
end;

E na hora da chamada ao web service:

Result := WsTeste.EnviaArquivoSNGPC(pEmail, pSenha, FileToByteArray(GetXmlCompressedInZipFileFromString(pArquivo)), pHash);

dá aquele erro de caracteres inválidos na mensagem.

Sérgio Assunção · 25 Abril, 2013

Aqui esta o problema:

Result := WsTeste.EnviaArquivoSNGPC(pEmail, pSenha, FileToByteArray(GetXmlCompressedInZipFileFromString(pArquivo)), pHash);

Tente assim:

var     FileData : TByteDynArray;
WebService : sngpcSoap;
...
   FileData := FileToByteArray('C:\SeuArquivo.zip');
...
Retorno := WebService.EnviaArquivoSNGPC(email,senha,FileData, HashId);

Sérgio

Renan Garcia de Oliveira · 25 Abril, 2013

Ainda continua o erro, ali basicamente você trocou 6 por meia dúzia, porque o método GetXmlCompressedInZipFileFromString recebe o conteúdo do XML e retorna o nome (endereço) do arquivo .zip, o método FileToByteArray recebe o nome do arquivo e devolve um TByteDynArray. Então eu chamar um dentro do outro ou um depois do outro dá no mesmo.

Sérgio Assunção · 26 Abril, 2013

Ainda continua o erro, ali basicamente você trocou 6 por meia dúzia, porque o método GetXmlCompressedInZipFileFromString recebe o conteúdo do XML e retorna o nome (endereço) do arquivo .zip, o método FileToByteArray recebe o nome do arquivo e devolve um TByteDynArray. Então eu chamar um dentro do outro ou um depois do outro dá no mesmo.

Bom aqui eu uso da forma que eu lhe expliquei e já esta sendo usado a uma semana sem problemas.

Sérgio

Alberto · 27 Abril, 2013

gigainfo, talvez o problema esteja no compactação, eu utilizo a seguinte rotina:

unit System.zip;

      ZipFile := TZipFile.Create;
      try
        ZipFile.Open('SNGPC.zip', zmWrite);
        ZipFile.add('SNGPC.xml');
        ZipFile.Close;
      finally
        ZipFile.Free;
      end;

Sérgio Assunção · 28 Abril, 2013

gigainfo, talvez o problema esteja no compactação, eu utilizo a seguinte rotina:

unit System.zip;

      ZipFile := TZipFile.Create;
      try
        ZipFile.Open('SNGPC.zip', zmWrite);
        ZipFile.add('SNGPC.xml');
        ZipFile.Close;
      finally
        ZipFile.Free;
      end;

Pode ser mesmo... eu uso aqui o tsqZip e não tenho problemas.

Sérgio

Renan Garcia de Oliveira · 2 Maio, 2013

"Caracteres inválidos encontrados no texto"

Não aguento mais essa frase heheheheh

mexi no código e agora ele está assim:

vFileName := GetXmlCompressedInZipFileFromString(pArquivo);
vHash := MD5File(vFileName);
vFile := FileToByteArray(vFileName);


WsTeste := GetSngpcSoapTeste();
Result := WsTeste.EnviaArquivoSNGPC(pEmail, pSenha, vFile, vHash);

Seguem abaixo as funções utilizadas:

function TSngpc2Gerenciador.GetXmlCompressedInZipFileFromString(pString: string): string;
var
  vFileName: string;
  vXmlDocument: TStrings;
  vZipFile: TZipFile;
begin
  //Salva o arquivo
  vFileName := FormatDateTime('yyyymmddhhnnsszzz', Now);


  if not DirectoryExists(ExtractFilePath(ParamStr(0)) + 'i_o\Sngpc') then
    ForceDirectories(ExtractFilePath(ParamStr(0)) + 'i_o\Sngpc');


  vXmlDocument := TStringList.Create;
  vXmlDocument.Text := StringReplace(StringReplace(pString, #10, '', [rfReplaceAll]), #13, '', [rfReplaceAll]);
  vXmlDocument.SaveToFile(ExtractFilePath(ParamStr(0)) + 'i_o\Sngpc\' + vFileName + '.xml');


  //Compacta o arquivo
  vZipFile := TZipFile.Create;
  try
    vZipFile.Open(ExtractFilePath(ParamStr(0)) + 'i_o\Sngpc\' + vFileName + '.zip', zmWrite);
    vZipFile.Add(ExtractFilePath(ParamStr(0)) + 'i_o\Sngpc\' + vFileName + '.xml');
    vZipFile.Close;
  finally
    vZipFile.Free;
  end;


  //Remove o XML antigo
  DeleteFile(ExtractFilePath(ParamStr(0)) + 'i_o\Sngpc\' + vFileName + '.xml');


  //Atribui o valor de retorno
  Result := ExtractFilePath(ParamStr(0)) + 'i_o\Sngpc\' + vFileName + '.zip';
end;

function TSngpc2Gerenciador.MD5File(const pFileName: string): string;
 var
   vMD5 : TIdHashMessageDigest5;
   vFs : TFileStream;
 begin
   vMD5 := TIdHashMessageDigest5.Create;
   vFs := TFileStream.Create(pFileName, fmOpenRead OR fmShareDenyWrite) ;
   try
     Result := vMD5.HashStreamAsHex(vFs);
   finally
     vMD5.Free;
     vFs.Free;
   end;
end;

function TSngpc2Gerenciador.FileToByteArray(const pFileName: string): TByteDynArray;
const
  BLOCK_SIZE = 1024;
var
  vBytesRead, vBytesToWrite, vCount: integer;
  vF: file of Byte;
  vTemp: Pointer;
begin
  AssignFile(vF, pFileName);
  Reset(vF);
  try
    vCount := FileSize(vF);
    SetLength(Result, vCount);
    vTemp := @Result[0];
    vBytesRead := BLOCK_SIZE;
    while (vBytesRead = BLOCK_SIZE) do
    begin
      vBytesToWrite := Min(vCount, BLOCK_SIZE);
      BlockRead(vF, vTemp^, vBytesToWrite, vBytesRead);
      vTemp := Pointer(LongInt(vTemp) + BLOCK_SIZE);
      vCount := vCount - vBytesRead;
    end;
  finally
    CloseFile(vF);
  end;
end;

Código novo, mesmo erro

Renan Garcia de Oliveira · 10 Maio, 2013

Eu já esgotei todas as minhas possibilidades, alguém chegou a se deparar com esse erro ao enviar o SNGPC via webservice e conseguiu contornar ele?

*Os códigos utilizados seguem na resposta anterior.

Alberto · 11 Maio, 2013

Anexa o arquivo zip que eu tento ver.

JAIR MOLINA · 11 Maio, 2013

código rodando legal

Gerar o arquivo

1º é criado o arquivo xml seguindo o leiaute 2.0

2º é gravado no banco de dados em uma tabela o nome do arquivo xml ex: c:\sistema\sngpc\mov_0105_a_0305.xml, o hash, e status de controle, e um campo de mensagem (blob)

Estrutura do arquivo de controle
id_arquivo auto
Data          date
Arquivo      varchar(60) // Ex 'C:\Sistema\sngpc\mov_0105_a_0605.xml'
Mensagem blob
Hash          varchar(32)
status        varchar(1)   valores 1,2      2=Arquivo transmitido

procedure TFArquivos.btTransmitirClick(Sender: TObject);
var strArquivo:String;
    bdaArquivo:TByteDynArray;
    xmlArquivo:TXMLDocument;
    strHash:String;
    strMens:String;
    wsEmail,wsSenha:WideString;
begin

  // dmFar.IBDSsngpc é uma tabela onde contém os dados nome do arquivo,hash,mensagem de retorno e status de trasmissão  para controle do usuário


   if dmFar.IBDSsngpc['status']='2' then showMessage('Arquivo já foi transmitido.');
   bdaArquivo:=Nil;
   if dmFar.IBDSsngpc['status']='1' then
   begin
      screen.Cursor:=crHourGlass;
      strArquivo:=dmFar.IBDSsngpc['NomeArquivo'];
      if not fileexists(strArquivo) then
      begin
         screen.Cursor:=crDefault;
         showMessage('Não encontrei o arquivo '+strArquivo);
         exit;
      end;
      wsEmail:=FPrincipal.stremail;
      wsSenha:=FPrincipal.strsenha;
      xmlArquivo:=TXMLDocument.Create(Self);
      xmlArquivo.LoadFromFile(strArquivo);
      strHash   :=dmFar.IBDSsngpc['hash'];  // gravado na tabela
      strArquivo:=ExtractFileName(strArquivo);
      bdaArquivo:=FileToByteArray(zipar(strArquivo));
      FMensagemSNGPC:=TFMensagemSNGPC.Create(Self);
      strmens:=GetsngpcSoap(blnHom,False,'',nil).ValidarUsuario(wsEmail,wsSenha);
      FMensagemSNGPC.memo1.Lines.Add('Arquivo: '+strArquivo);
      FMensagemSNGPC.memo1.Lines.Add('Mensagem de usuário e senha:     '+strMens);
      FMensagemSNGPC.memo1.Lines.Add(strArquivo);
      strmens:=GetsngpcSoap(blnHom,False,'',nil).EnviaArquivoSNGPC(wsEmail,wsSenha,bdaArquivo,strHash);
      FMensagemSNGPC.memo1.Lines.Add('');
      FMensagemSNGPC.memo1.Lines.Add('');
      FMensagemSNGPC.memo1.Lines.Add('=============================================================');
      FMensagemSNGPC.memo1.Lines.Add('Mensagem de envio: '+strMens);
      FMensagemSNGPC.memo1.Lines.Add('=============================================================');
      FMensagemSNGPC.ShowModal;
     
      dmFar.IBDSsngpc.Edit;
      dmFar.IBDSsngpc['status']:='2';
      dmFar.IBDSsngpc['mensagem']:=FMensagemSNGPC.memo1.Text;
      dmFar.IBDSsngpc.Post;
      FMensagemSNGPC.Free;
      xmlArquivo.Free;
      screen.Cursor:=crDefault;
   end;
end;


// funçoes auxiliares

function TFArquivos.Zipar(strArquivo:string):String; // função para compactar e retornar o nome do arquivo
var tsqZip1:TtsqZip;
begin
   tsqZip1:=TtsqZip.Create(Self);
   tsqZip1.FilesToZip.Add(strArquivo);
   tsqZip1.ZipFileName:=copy(strArquivo,1,length(strArquivo)-3)+'zip';
   tsqZip1.Execute;
   result:=tsqZip1.ZipFileName;
end;
function TFArquivos.FileToByteArray(const FileName: String): TByteDynArray;
const BLOCK_SIZE=1024;
var BytesRead, BytesToWrite, Count : Integer;
    F : File of Byte;
    pTemp : Pointer;
begin
   AssignFile( F, FileName );
   Reset(F);
   try
      Count := FileSize(F);
      SetLength(Result, Count);
      pTemp := @Result[0];
      BytesRead := BLOCK_SIZE;
      while (BytesRead = BLOCK_SIZE) do
      begin
         BytesToWrite := Min(Count, BLOCK_SIZE);
         BlockRead(F, pTemp^, BytesToWrite , BytesRead );
         pTemp := Pointer(LongInt(pTemp) + BLOCK_SIZE);
         Count := Count-BytesRead;
      end;
   finally
      CloseFile( F );
   end;
end;

deelll · 11 Maio, 2013

Ola fabricio parbens pela iniciativa ficou otimo me poupou muito tempo porem qunado tentei enviar o inventario inicial deu ero de eschema no caso faltou no final do corpo a tag insumos conforme abaixo no iventario. tive de por ela na mao existira alguma forma de colocar automaticamente pelo componente ?

</medicamentos>

</insumos>

</corpo>

</mensagemSNGPCInventario>

Sérgio Assunção · 12 Maio, 2013

JAIR, você ta declarando o Hash como String, mas ele deve ser WideString.

Sérgio

Sérgio Assunção · 12 Maio, 2013

Ola fabricio parbens pela iniciativa ficou otimo me poupou muito tempo porem qunado tentei enviar o inventario inicial deu ero de eschema no caso faltou no final do corpo a tag insumos conforme abaixo no iventario. tive de por ela na mao existira alguma forma de colocar automaticamente pelo componente ?

</medicamentos>

<insumos>

</insumos>

</corpo>

</mensagemSNGPCInventario>

Caso não informe nenhum insumo no inventário a tag deve ficar da seguinte forma: <insumos />

Sérgio

Renan Garcia de Oliveira · 13 Maio, 2013

Segue em anexo o arquivo .zip que gero pelo sistema, e na hora do envio dá a mensagem de caractere inválido. Eu já tentei enviar ele manualmente pela página de upload do sngpc e por lá funciona normalmente.

20130510172252309.zip

Sérgio Assunção · 13 Maio, 2013

Segue em anexo o arquivo .zip que gero pelo sistema, e na hora do envio dá a mensagem de caractere inválido. Eu já tentei enviar ele manualmente pela página de upload do sngpc e por lá funciona normalmente.

A sua variavel pHash ta declarada como String ou WideString ? Qual a versão do seu Delphi ? Tem como vc anexar a unit importada pelo WSDL Importer ?

Sérgio

Renan Garcia de Oliveira · 14 Maio, 2013

A variável pHash está declarada como String, no Delphi XE3 e segue em anexo as units do WSDL Importer e a que uso para enviar o SNGPC.

P.s.: se eu conseguir deixar ok o SNGPC pretendo compartilhar com o pessoal da ACBr, para ajudar que for possível.

Sngpc2Gerenciador.pas

sngpc.pas

Sérgio Assunção · 14 Maio, 2013

Olá Renan... o meu aplicativo foi desenvolvido no Delphi 7 e veja a diferença entre a minha unit importada com a sua:

    function  ValidarUsuario(const Email: WideString; const Senha: WideString): WideString; stdcall;
    function  EnviaArquivoSNGPC(const Email: WideString; const Senha: WideString; const Arq: TByteDynArray; const HashIdentificacao: WideString): WideString; stdcall;
    function  ConsultaDadosArquivoSNGPC(const Email: WideString; const Senha: WideString; const CNPJ: WideString; const Hash: WideString): WideString; stdcall;


    function  ValidarUsuario(const Email: string; const Senha: string): string; stdcall;
    function  EnviaArquivoSNGPC(const Email: string; const Senha: string; const Arq: TByteDynArray; const HashIdentificacao: string): string; stdcall;
    function  ConsultaDadosArquivoSNGPC(const Email: string; const Senha: string; const CNPJ: string; const Hash: string): string; stdcall;

Sérgio

Renan Garcia de Oliveira · 15 Maio, 2013

Olá Renan... o meu aplicativo foi desenvolvido no Delphi 7 e veja a diferença entre a minha unit importada com a sua:

    function  ValidarUsuario(const Email: WideString; const Senha: WideString): WideString; stdcall;
    function  EnviaArquivoSNGPC(const Email: WideString; const Senha: WideString; const Arq: TByteDynArray; const HashIdentificacao: WideString): WideString; stdcall;
    function  ConsultaDadosArquivoSNGPC(const Email: WideString; const Senha: WideString; const CNPJ: WideString; const Hash: WideString): WideString; stdcall;


    function  ValidarUsuario(const Email: string; const Senha: string): string; stdcall;
    function  EnviaArquivoSNGPC(const Email: string; const Senha: string; const Arq: TByteDynArray; const HashIdentificacao: string): string; stdcall;
    function  ConsultaDadosArquivoSNGPC(const Email: string; const Senha: string; const CNPJ: string; const Hash: string): string; stdcall;

Sérgio

Isso é porque o WideString do Delphi 7 é o tipo string do Delphi XE+

deelll · 15 Maio, 2013

Caso não informe nenhum insumo no inventário a tag deve ficar da seguinte forma: <insumos />

Sérgio

Entao amigos estou informando que o componente esta maravilhoso porem ele nao esta criando a tag ao final quando nao ha insumos sendo assim nescessario criar manualmente no meu caso e uso exclusivo de farmacia e nao uso insumos e no caso do envio da movimentacao diaria tornase inviavel pois nao da pra abrir todos os arquivos e inserir a tag manualmente. estou pedingo a gentileza do nosso amigo que desenvolveu pra dar uma dica pra gente ou se alguem souber como fazelo

	Sérgio Assunção Ajude o Projeto ACBr crescer - Assine o SAC

Entrar

Sobre nós...

Sngpc

Recommended Posts

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

Fabrício Hausman

EMBarbosa

Fabrício Hausman

Sobre nós...

Informação Importante