Ir para conteúdo
Fórum Script Brasil
  • 0

Espaço de datas pelo delphi


sacofritoxd

Pergunta

Estou tentando passar espaço de datas para um relatório em CR XI.

Mas a sintaxe não esta correta. alguém tem experiencia nisso sabe fazer?

Oque eu fiz está assim

if optVencimento.checked = true then

fml := fml + '{movimento.vencimento}>=' + txtdt1.text + ' and ' + '{movimento.vencimento}<=' + txtdt2.text + ' and '

else if optPagamento.checked = true then

fml := fml + '{movimento.pagamento}>=' + txtdt1.text + ' and ' + '{movimento.pagamento}<=' + txtdt2.text + ' and '

else

fml := fml + '{movimento.datamovimento}>=' + txtdt1.text + ' and ' + '{movimento.datamovimento}<=' + txtdt2.text + ' and ';

Mas esta dando erro na formula.

Segue a rotina inteira da impressão. Preciso disso via delphi 7.

if optSaida.Checked = true then
    fml := '{movimento.tipo} =' + quotedstr('S') + ' and '
  else if optentrada.checked = true then
    begin
      fml := '{movimento.tipo} =' + quotedstr('E') + ' and ';
    end;
  if VerificaData(txtdt1.text) and verificadata(txtdt2.text) then
   begin
     if optVencimento.checked = true then

     else if optPagamento.checked = true then

     else

    end;

  if txtCodFornecedor.text <> '' then
    fml := fml + '{movimento.id_fornecedor} =' + txtcodfornecedor.text + ' and ';

  if cmbFormaPagto.text <> '' then
    fml := fml + '{movimento.tipopagto} =' + cmbFormaPagto.text + ' and ';

  if txtCodUsuario.text <> '' then
    fml := fml + '{movimento.id_usuario}=' + txtCodUsuario.text;

  if Rightstr(fml, 5) = ' and ' then
    fml := LeftStr(fml, length(fml) - 5);

  if optSaida.Checked = true then
    begin
      crpe1.ReportName := ExtractFilePath(ParamStr(0)) + '\Financeiro2.rpt';
      crpe1.ParamFields.ByName('tipo', '').CurrentValue := 'Contas a pagar';
    end
  else
      crpe1.ReportName := ExtractFilePath(ParamStr(0)) + '\Financeiro.rpt';
      if optentrada.checked = true then
        crpe1.ParamFields.ByName('tipo', '').CurrentValue := 'Contas a receber';

  crpe1.ParamFields.ByName('espacodatas', '').CurrentValue := txtdt1.text + ' até ' + txtdt2.text;
  Crpe1.Selection.Formula.text := fml;
  crpe1.Execute;

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...