Solicitação não autorizada. Data de emissão inválida.

Delphi

22/02/2013

bom dia pessoal alguem pode me ajudar estou tentando a dias resolver e nao da certo. estou com problema na data de emissao.

Usuario := UsuarioFarmaciaDTO.Create;
Usuario.usuarioFarmacia :='xxxxx';
Usuario.senhaFarmacia :=trim('xxxx');
Usuario.usuarioVendedor :='xxxxx';
Usuario.senhaVendedor :=trim('xxx');
Item := 0;

SetLength(Medicamentos, 1);
Medicamentos[Item] := MedicamentoDTO.Create;
Medicamentos[Item].coCodigoBarra := '7896523206646';
Medicamentos[Item].qtPrescrita := 1 ;
Medicamentos[Item].qtSolicitada := 1 ;
Medicamentos[Item].vlPrecoVenda := 1 ;
Medicamentos[Item].dsUnidApresentacao := '30';


Solicitacao := SolicitacaoDTO.Create;
Solicitacao.nuCnpj := '011111111111';
Solicitacao.nuCpf := '00106379151';
Solicitacao.nuCrm := '85743';
Solicitacao.sgUfCrm := 'SP';
Solicitacao.dnaEstacao := Trim(GetDosOutput('R:\Projetos\Sistemas\Farmacia Popular\'+'gbasmsb.exe --solicitacao [9466663687] [01286997000151] [85743] [sp] [22/02/2013] '+'DNA.TXT','R:\Projetos\Sistemas\Farmacia Popular'));
Solicitacao.arrMedicamentoDTO := MedicamentoS;
Solicitacao.coSolicitacaoFarmacia := '000256';
Solicitacao.dtEmissaoReceita := TXSDateTime.Create;
Solicitacao.dtEmissaoReceita.AsDateTime :=now+time;

ja passei varios formatos de date e hora e nao resolve fica retornando data de emissao ivalida.
obrigado
Gr2 Sistemas

Gr2 Sistemas

Curtidas 0

Respostas

Wilton Júnior

Wilton Júnior

22/02/2013

Solicitacao.dtEmissaoReceita.AsDateTime :=now+time;

Amigo, o que vc tah tentando fazer? now é data e hora praticamente esta duplicando a hora.
Exemplo:
2013-02-22 11:50:50.000 11:50:50.000

As vezes é isso tenta deixa só now
GOSTEI 0
Gr2 Sistemas

Gr2 Sistemas

22/02/2013

wilton blz, vou tentar aqui...obrigado
GOSTEI 0
Douglas

Douglas

22/02/2013

Concordo com o amigo, WILTON !
GOSTEI 0
Alisson Santos

Alisson Santos

22/02/2013

Boa noite amigo, conseguiu sanar o problema
GOSTEI 0
José

José

22/02/2013

Já que a duvida inicial foi sanada, estou marcando este tópico com concluído.
GOSTEI 0
POSTAR