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

22/02/2013

2

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
Responder

Posts

22/02/2013

Wilton Júnior

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
Responder

22/02/2013

Gr2 Sistemas

wilton blz, vou tentar aqui...obrigado
Responder

22/02/2013

Douglas

Concordo com o amigo, WILTON !
Responder

24/02/2013

Alisson Santos

Boa noite amigo, conseguiu sanar o problema
Responder

30/06/2013

José

Já que a duvida inicial foi sanada, estou marcando este tópico com concluído.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira