Fórum Erro com senha de vendedor no farmácia popular #439331

        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);