Erro com senha de vendedor no farmácia popular

Delphi

10/04/2013

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

Curtidas 0

Respostas

Denilson Hauch

Denilson Hauch

10/04/2013

estou com o mesmo problema conseguiu resolver?
como resolveu?
tem como me ajudar
GOSTEI 0
Douglas

Douglas

10/04/2013

Olá Alex, poste o erro para analisarmos.
GOSTEI 0
Douglas

Douglas

10/04/2013

Olá Alex, poste o erro para analisarmos.
GOSTEI 0
Alex Maia

Alex Maia

10/04/2013

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

Douglas

10/04/2013

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

OK Alex, precisando estaremos aqui.
GOSTEI 0
Deivison Melo

Deivison Melo

10/04/2013

Finalizando tópico!!

GOSTEI 0
POSTAR