DNA DA TRANSA?ÃO GERADO PELO GBAS É INV?LIDO

PLUGSOFTSM 28/07/2015 16:16:24
#449318

Pessoal: Estou desenvolvendo uma solução para a Farmácia Popular. Aparentemente tá tudo legal.
Só que quando vou obter o DNA das estação, retorna que o mesmo é inválido....

Meu código:
Na declaração:
<DllImport([Ô]gbasmsb_library.dll[Ô])> Public Function IdentificaEstacao() As String
End Function


[ô]No código uso isso
Dim WsUsr As New WsHomol.UsuarioFarmaciaDTO
WsUsr.senhaFarmacia = PSenha.ToString
WsUsr.usuarioFarmacia = PUsuario.ToString
WsUsr.usuarioVendedor = CPFVendedor.SoNumber.ToString.Trim
WsUsr.senhaVendedor = SenhaVendedor.ToString
Dim WsSol As New WsHomol.SolicitacaoDTO
[ô]Atribuo os dados do medicamento
Dim Item As Integer = 0
For Each M As Medicamento In ListaMed
Dim WsMed As New WsHomol.MedicamentoDTO
WsMed.coCodigoBarra = M.CodBar
WsMed.qtPrescrita = M.QtdePresc
WsMed.qtSolicitada = M.QtdVend
WsMed.vlPrecoVenda = M.Preco
ReDim Preserve WsSol.arrMedicamentoDTO(Item)
WsSol.arrMedicamentoDTO(Item) = WsMed
Next
WsSol.dtEmissaoReceita = DataEmis
WsSol.nuCnpj = CNPJ.SoNumber
WsSol.sgUfCrm = UFCRM
WsSol.nuCrm = CRM
WsSol.nuCpf = CPF.SoNumber
WsSol.coSolicitacaoFarmacia = Numero
WsSol.dnaEstacao = BblFarmaPop.IdentificaEstacao

Dim WsRet As New WsHomol.AutorizacaoDTO

Dim WsSer As WsHomol.ServicoSolicitacaoWSService = New WsHomol.ServicoSolicitacaoWSService [ô]ServicoSolicitacaoWSService
If BblFarmaPop.Modo = ModoEmissao.Homologacao Then
WsSer.Url = [Ô]https://200.214.130.41:9443/farmaciahomologa/services/ServicoSolicitacaoWS?wsdl[Ô]
Else
WsSer.Url = [Ô]https://200.214.130.55:9443/farmaciapopular/services/ServicoSolicitacaoWS?wsdl[Ô]
End If
[ô] WsSer.UseDefaultCredentials = True
System.Net.ServicePointManager.CertificatePolicy = New BblFarmaPop.ConectarWebServ()

WsRet = WsSer.executarSolicitacao(WsSol, WsUsr) [ô]--> aqui retorna o erro