Erro com senha de vendedor no farmácia popular

10/04/2013

0

Bom dia.

Sempre recebo um erro do webservice informando que existe um caractere inválido na senha em minha rotina para venda no farmácia popular. Alguém poderia me dizer se há algum erro? Abaixo segue o código.
Desde já agradeço.

        oSolicitacaoDTO := SolicitacaoDTO.Create;

        produtos.First;
        while not produtos.Eof do
        begin
          SetLength(oMedicamentoDTO, Length(oMedicamentoDTO) + 1);
          iItem := Length(oMedicamentoDTO) - 1;

          oMedicamentoDTO[iItem] := MedicamentoDTO.Create;
          oMedicamentoDTO[iItem].coCodigoBarra := produtosCodigoBarra.AsString;
          oMedicamentoDTO[iItem].qtSolicitada := produtosQuantidade.AsFloat;
          oMedicamentoDTO[iItem].vlPrecoVenda := produtosValorVenda.AsFloat;
          oMedicamentoDTO[iItem].qtPrescrita := 1;
          //--

          produtos.Next;
        end;
        //--

        oDataReceita := TXSDateTime.Create;
        oDataReceita.AsDateTime := Date;

        oSolicitacaoDTO.coSolicitacaoFarmacia := FormatDateTime('hhnnss', Time);
        oSolicitacaoDTO.nuCnpj := 'xxxx';
        oSolicitacaoDTO.nuCpf := 'xxxx';
        oSolicitacaoDTO.nuCrm := 'xxxx';
        oSolicitacaoDTO.sgUfCrm := 'SP';
        oSolicitacaoDTO.dtEmissaoReceita := oDataReceita;
        oSolicitacaoDTO.arrMedicamentoDTO := oMedicamentoDTO;
        oSolicitacaoDTO.dnaEstacao := GetDnaEstacao(oSolicitacaoDTO.nuCpf, oSolicitacaoDTO.nuCnpj,
           oSolicitacaoDTO.nuCrm, oSolicitacaoDTO.sgUfCrm, oDataReceita.AsDateTime);

        // Usuário --
        oUsuarioFarmaciaDTO := UsuarioFarmaciaDTO.Create;
        usuario1 := '12345678';
        senha1 := 'xxxx';
        usuario2 := '11111111111';
        senha2 := '99999999';

        oUsuarioFarmaciaDTO.usuarioFarmacia := usuario1;
        oUsuarioFarmaciaDTO.senhaFarmacia := senha1;
        oUsuarioFarmaciaDTO.usuarioVendedor := usuario2;
        oUsuarioFarmaciaDTO.senhaVendedor := senha2;

        // Autorização --
        oAutorizacaoDTO := AutorizacaoDTO.Create;
        oAutorizacaoDTO := GetServicoSolicitacaoWS.executarSolicitacao(oSolicitacaoDTO, oUsuarioFarmaciaDTO);

Alex Maia

Alex Maia

Responder

Posts

27/01/2014

Denilson Hauch

estou com o mesmo problema conseguiu resolver?
como resolveu?
tem como me ajudar
Responder

28/01/2014

Douglas

Olá Alex, poste o erro para analisarmos.
Responder

28/01/2014

Douglas

Olá Alex, poste o erro para analisarmos.
Responder

28/01/2014

Alex Maia

Olá, já resolvi. Descobri que as senhas devem conter somente números.
Responder

28/01/2014

Douglas

Olá, já resolvi. Descobri que as senhas devem conter somente números.

OK Alex, precisando estaremos aqui.
Responder

28/01/2014

Deivison Melo

Finalizando tópico!!

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar