Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 11-02-2016
davidmedina29 davidmedina29 is offline
Miembro
NULL
 
Registrado: feb 2016
Posts: 34
Poder: 0
davidmedina29 Va por buen camino
Smile Hola

Buen dia una disculpa si no me explique bien, uso delphi 7 y sql server, mi idea es que al momento de dar click en guardar me lanze un mensaje de error si es que el rango de las dos fechas que pongo ya existe en la BD, aqui les dejo el codigo del boton guardar.

Código Delphi [-]
with msqry1 do  // en esta parte esta la idea de lo que quiero hacer pero no estabien.
  begin
      close;
      SQL.Clear;
      sql.Add(('Select*From CA_PERIODOSINGRESOS Between :Inicio and :Fin'));
      msqry1.ParamByName('Inicio').AsDate:=cxDateEdit1.Date;
      msqry1.ParamByName('Fin').AsDate:=cxDateEdit2.Date;
      Open;
  end;
  if not msqry1.IsEmpty then
      MessageDlg('La fecha ya existe', mtError, [mbOK], 0) 
      else
  if cxDateEdit2.Text='' then
    begin
        MessageDlg('Falta Fecha Final', mtError, [mbOK], 0);
      end
  else
    if cxDateEdit1.Text='' then
      begin
        MessageDlg('Falta Fecha Inivial', mtError, [mbOK], 0);
        end
      else
      if cxComboBox1.Text='' then
        begin
          MessageDlg('Falta Ejercicio', mtError, [mbOK], 0);
          end
        else
        if cxTextEdit1.Text='' then
          begin
            MessageDlg('Falta Periodo', mtError, [mbOK], 0)
            end
          else
          if (cxDateEdit1.Date) > (cxDateEdit2.Date) then
            begin
              MessageDlg('La fecha inicial no puede ser mayor a la final', mtError, [mbOK], 0)
              end
             else
    begin
      DM.msqry1.Append;
      DM.msqry1.FieldByName('Ejercicio').AsString := cxComboBox1.Text;
      DM.msqry1.FieldByName('Periodo').AsString := cxTextEdit1.Text;
      DM.msqry1.FieldByName('Inicio').AsDateTime := cxDateEdit1.Date;
      DM.msqry1.FieldByName('Fin').AsDateTime := cxDateEdit2.Date;
      DM.msqry1.Post;
      DM.msqry1.SQL.Add('order by Periodo');
      MessageDlg('Dato Guardado', mtInformation, [mbOK], 0);
      fCatPeriodosInNvo.Close;
        cxTextEdit1.Clear;
        cxDateEdit1.Clear;
        cxDateEdit2.Clear;
      end;
end;

Alguna sugerencia? se los agradeceria mucho.
Saludos!!
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
¿saber si una fecha o mas estan dentro de un rango de fechas? JXJ Firebird e Interbase 17 26-08-2010 00:55:43
Error al filtrar una fecha entre un rango de fechas dec Trucos 0 01-07-2006 02:01:41
funcion para saber los dias que hay entre dos fechas estebanx Varios 5 20-04-2006 00:01:51
como calcular los dias entre fechas. carlos gonzalez Varios 2 27-08-2005 02:30:59
Cómo consulto entre dos fechas ? K4RL0S SQL 3 24-12-2003 11:58:07


La franja horaria es GMT +2. Ahora son las 17:25:08.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi