Erro com senha de vendedor no farmácia popular
10/04/2013
0
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
Posts
27/01/2014
Denilson Hauch
como resolveu?
tem como me ajudar
28/01/2014
Alex Maia
28/01/2014
Douglas
OK Alex, precisando estaremos aqui.
Clique aqui para fazer login e interagir na Comunidade :)