Solicitação não autorizada. Data de emissão inválida.
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
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
Curtidas 0
Respostas
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
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
22/02/2013
wilton blz, vou tentar aqui...obrigado
GOSTEI 0
Douglas
22/02/2013
Concordo com o amigo, WILTON !
GOSTEI 0
Alisson Santos
22/02/2013
Boa noite amigo, conseguiu sanar o problema
GOSTEI 0
José
22/02/2013
Já que a duvida inicial foi sanada, estou marcando este tópico com concluído.
GOSTEI 0