Erro com senha de vendedor no farmácia popular

10/04/2013

2

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

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
Finalizando tópico!!

Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira