Peluqueria
 

Hola chicos, a ver si me ayudan, tengo que hacer una peluqueria y estoy en la etapa de hacer la agenda para la asignación de turnos.
¿que elementos me recomiendan para hacerla?

Utilizo access para guardar los datos de los clientes o productos que vende la peluqueria.

Tengo pensado usar un grid o stringgrid donde en la cabecera de las columnas me aparesca el nombre de los estilistas y en la cabecera de las filas el horario (Horario de las 10 a 19.30, lapsos de 30 minutos de uno a otro)

Aclaración: "cabecera de las filas", seria la primer columna, es decir las celdas de la primer columna es ahi donde tengo que poner el horario.

A ver si me dan algun consejo de como hacer un agenda para la asignación de turnos copada. ;)

Espero su respuesta.

Hola... no sabria muy bien como hacer la agenda.... pero creo que deberias asociar los minutos de cada cita según lo que se quiera hacer cada cliente.... es decir, defines los item... algo así

corte pelo varon 15 min
corte pelo dama 30 min
lavado pelo varon 5 min
lavado pelo dama 20 min

bueno... y así sucesivamente... eso te estaria realizando un aproximado en tu agenda... asi si una persona realiza una cita, y le designas 30 minutos, pero en el proceso se demora más tiempo.... estaria topando con la sgte cita...

hace unos dias vi unos componentes de agenda muy buenos... pero eran de pago...

Salu2:p:D

Hola, no le des tanta importancia a si una cita se interpone con otra. a cada cliente se le asigna una media hora y fue..mi consulta es que me conviene usar dbgrid o stringgrid?? Acuerdensen que tengo pensado poner en el titulo de las columnas los nombres de lo estilistas y en cada celda de la primer columna el horario de atencion del dia, que abarca de las 10 a las 19.30.

saludos

Yo creo que depende... ¿de que manera quieres manejar los datos?, ¿como algo visual o que puedan ser modificado desde allí?

Hola, si puede ser de las 2 formas. ademas te comento que tengo una base de datos echa en access llamada turnos en la cual me gustaria que me guardara el horario y el nombre del cliente.
Tengo pensado tambien poner un monthcalendar para cambiar de dias, pero creo que si cambio de dia me borra lo que tengo en el dia anterior, es asi??

saludos

Alguna vez tuve que hacer algo parecido a la asignacion de turnos y los solucione con algo mas o menos asi (Perdonaras lo rustico :p)



Esta es una grid de los componentes TMS, lo que hacia era fijar en las columnas los dias y en las filas los horarios, luego solo pintaba las celdas correspondientes cuando estuvieran programadas... al hacer doble click sobre alguna, te mostraba la información en detalle sobre la cita ;)... Espero te sirva la idea

Perdon que te siga jodiendo, por ahora me estas ayudando bastante pero me surge un nuevo interrogante. Si yo escribo cosas en el stringrid y dsp cliqueo en otra fecha, necesitaria que me guarde todo en la base de datos y me blanquee el stringgrid. si vuelvo a la fecha anterior necesitaria que me cargue todo lo que habia guardado anteriormene.

como mas o menos tendria que hacer la consulta. lo guardaria por fecha.

saludos

Hola
Hace algún tiempo, en una galaxia lejana, el Maestro Lepe hizo un Calendario dinámico.
Este Humilde Novato le hizo algun retoque (corte de pelo y lavado con Shampu).
Tiene una tabla enlazada (access), guarda los datos, etc.
Tal vez te pueda servir para tomar idea.
Aqui esta.
Saludos

Gracias caral. Muchas veces me ayudaste en muchas cosas, pero en este caso No. Este calendario hecho por Lepe no me sirve. no es lo que busco hacer.
YO necesito que al escribir cosas en el stringrid y dsp cliqueo en otra fecha, necesitaria que me guarde todo en la base de datos y me blanquee el stringgrid. si vuelvo a la fecha anterior necesitaria que me cargue todo lo que habia guardado anteriormene.

Hola
Bueno, el intento se hace.:D
Lo que pides es relativamente sencillo, lo que no se es por que un stringGrid y no un dbgrid?.
Saludos

Caral, te explico lo que por ahora tengo. tengo una base de datos llamada estilistas con el nombre de los mismos. Puse un stringgrid pq hago una consulta en la cual pido los nombre de los estilistas para ponerlos en la cabecera del stringrid. El horario de los turnos (que va de las 10 a 19.30) van en las celdas de la primer columna. es por eso que uso stringgrid, uso la cabecera de las columnas para los nombres de los estilistas y las celdas de la primer columna para poner el horario.

saludos

:):D...

:eek::rolleyes::p... te falto la manicura Caral

Que hice yo... simple, asocié cada registro de las citas con una fecha y una posicon F - C (Fila, Columna), cuando cambiaba la fecha... solo consultaba esos dos campos para ubicar en donde que debia pintar, al hacer click en la grilla solo era otra consulta para traer el resto de datos de la cita en otro formulario... mas o menos es la idea que te doy, es cuestión de que la acomodes a tu necesidad :)

Me podrias pasar algun codigo aproximado para orientarme un poco mas?? Perdon que sea tan jodon.

Gracias!

En el momento no tengo un código como quieres... solo recuerdo como lo hice, aunque no se si fuese la mejor manera :cool:.

Como te digo, podrias hacer un query al cambiar de fecha que te consulte todas las citas en la misma y retornar los campos F y C, luego en una rutina ubicar esta celda y cambiarle el color por ejemplo, si el usuario da click en ella; pues será otra consulta, esta vez buscando las coincidencias en la fecha y los campos F C, evita resultados ambiguos... (me imagino que buscaras la forma de mostrar siempre el resultado adecuado), depues de esto en el otro formulario deberias tener desde la consulta el detalle completo de la cita... recuerda que es la idea la que te aporto.

Hola
Bueno ten en cuenta que este codigo es de un novato, asi que no critiques mucho, solo te lo pongo de ejemplo.
Esta es una parte que uso en un sistema de facturacion con stringrid.

Código Delphi [-]
procedure TFFactura.RJustifyEdit(var ThisEdit : TEdit);
var
   Left, Width : Integer;
   GString : String;
   Rgn : TRect;
   TheCanvas : TControlCanvas;
begin
   TheCanvas := TControlCanvas.Create;
   try
      TheCanvas.Control := ThisEdit;
      GString := ThisEdit.Text;
      Rgn := ThisEdit.ClientRect;
      TheCanvas.FillRect(Rgn);
      Width := TheCanvas.TextWidth(GString);
      Left := Rgn.Right - Width - 1;
      TheCanvas.TextRect(Rgn, Left, 0, GString);
   finally
      TheCanvas.Free;
   end;
end;

Procedure GridRemoveRow(StrGrid: TStringGrid; DelRow: Integer);
Var Row: Integer;
begin
  If DelRow <= StrGrid.RowCount then
  Begin
    If (DelRow = StrGrid.RowCount-1) AND (DelRow = 1) then
    begin
       StrGrid.Rows[DelRow].Clear;
       StrGrid.Cells[3,1] := '0';
       StrGrid.Cells[4,1] := '0.00';
       StrGrid.Cells[5,1] := '0.00';
    end
    else if DelRow = StrGrid.RowCount - 1 then StrGrid.RowCount := StrGrid.RowCount-1
         else
         begin
            For Row := DelRow To StrGrid.RowCount-2 do
               StrGrid.Rows[Row].Assign(StrGrid.Rows[Row+1]);
            StrGrid.RowCount := StrGrid.RowCount-1;
         end;
  End;
end;

procedure TFFactura.CalculaTotales;
var i:integer;
begin
 //Calcula los totales de la factura
   SubTotal := 0;
   Impuesto := 0;
   Desc     := 0;
   Total    := 0;
   // Calcula el SubTotal
   For i:=1 to SGFact.RowCount-1 do
      SubTotal := SubTotal + StrToFloat(SGFact.Cells[5,i]);
   // Calcula el monto para cobrar el impuesto de ventas

   For i:=1 to SGFact.RowCount-1 do
      If SGFact.Cells[6,i] = 'Si' then Impuesto :=  Impuesto + StrToFloat(SGFact.Cells[5,i]);

   SubTotal := Round(SubTotal);
   Desc := (SubTotal * FLEPorcDesc.Value / 100);
   Desc := Round(Desc);
   Impuesto := (Impuesto * 0.13);
   Impuesto := Round(Impuesto);
   Total := (SubTotal - Desc + Impuesto);
   // escribe los valores en las celdas
   SGTotal.Cells[1,1] := Format('%8.2n',[desc]);
   SGTotal.Cells[1,2] := Format('%8.2n',[Impuesto]);
   SGTotal.Cells[1,0] := Format('%8.2n',[SubTotal]);
   SGTotal.Cells[1,3] := Format('%8.2n',[Total]);
 end;

Esta es otra:

Código Delphi [-]
procedure TFFactura.BitBtn2Click(Sender: TObject);
var i : integer;
begin
// ************ Boton de Agregar **************
   FSelProdFact:=TFSelProdFact.Create(self);
   FSelProdFact.Precio := Label15.Caption;
 // Filtra las series que ya estan en la factura
   If (SGFact.RowCount = 2) AND (SGFact.Cells[2,1] = '') then FSelProdFact.Filtro := ''
   else
   begin
      FSelProdFact.Filtro := 'NumSerie <> '+ SGFact.Cells[2,1];
      i:=2;
      While i < SGFact.RowCount do
      begin
         FSelProdFact.Filtro := FSelProdFact.Filtro + ' AND NumSerie <> '+SGFact.Cells[2,i];
         i:=i+1;
      end;
   end;
   try
      FSelProdFact.ShowModal;
   finally
      If FSelProdFact.Cancela = False then
      Begin
         If Cuenta > 1 then SGFact.RowCount := SGFact.RowCount + 1;
         QTemp.Close;
         QTemp.SQL.Text := 'SELECT Descripcion+" "+Categoria+" "+SubCategoria AS Descr, Precio1 FROM Articulos '+
                           'WHERE CodParte = '+QuotedStr(FSelProdFact.Edit1.Text);
         QTemp.Open;
         SGFact.Cells[0,cuenta] := FSelProdFact.Edit1.Text;
         SGFact.Cells[1,cuenta] := QTemp.Fields[0].AsString;
         SGFact.Cells[2,cuenta] := FSelProdFact.Edit2.Text;
         SGFact.Cells[3,cuenta] := FSelProdFact.Edit3.Text;
         SGFact.Cells[4,cuenta] := Format('%8.2f',[FSelProdFact.FloatEdit1.Value]);
         SGFact.Cells[5,cuenta] := Format('%8.2f',[FSelProdFact.FloatEdit1.Value * StrToFloat(SGFact.Cells[3,cuenta])]);
         If FSelProdFact.CBIV.Checked then SGFact.Cells[6,cuenta] := 'Si' else SGFact.Cells[6,cuenta] := 'No';
         Cuenta := Cuenta +1;
         QTemp.Close;
         SortGrid(SGFact,0,0);
         CalculaTotales;
      end;
      FSelProdFact.Free;
   end;
end;

procedure TFFactura.SGFactDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
Var
   X:Integer;
begin
   x:=0;
   With Sender As TStringGrid do begin
   Case Acol of
   0: Begin
      SetTextAlign(Canvas.Handle,TA_LEFT);
      X:= rect.left+5;
      end;
   1: Begin
      SetTextAlign(Canvas.Handle,TA_LEFT);
      X:= rect.left+5;
      end;
   2: Begin
      SetTextAlign(Canvas.Handle,TA_LEFT);
      X:= rect.left+5;
      end;
   3: Begin
      SetTextAlign(Canvas.Handle,TA_CENTER);
      X:=(rect.right+rect.left) div 2;
      end;
   4: Begin
      SetTextAlign(Canvas.Handle,TA_RIGHT);
      X:= rect.right-5;
      end;
   5: Begin
      SetTextAlign(Canvas.Handle,TA_RIGHT);
      X:= rect.right-5;
      end;
   6: Begin
      SetTextAlign(Canvas.Handle,TA_CENTER);
      X:=(rect.right+rect.left) div 2;
      end;
   END;{CASE}
   if Arow=0 then
   begin
      SetTextAlign(Canvas.Handle,TA_CENTER);
      X:=(rect.right+rect.left) div 2;
   end;
   Canvas.textrect(rect,X,rect.top+2,Cells[Acol,Arow]);
   end;{with}
end;

No te pongo todo por que es un poco extenso, pero mas o menos obtendrás una idea de esto.
Saludos

Gracias Felipe por la idea, voy a ver como me la rebusco con el codigo. Algo voy a hacer, voy a hacer lo posible...

Gracias Caral por el codigo que me pasaste, mañana tranquilo lo voy a ver con mas atencion.

Cualquier duda, la consultare y espero sus respuestas.

Gracias por todo.

Considero que el codigo de Caral va muy bien con la idea y con parte de lo que necesitas...

...........

Hola
En realidad creo que la parte en donde actuliza es la que te podria servir mas o donde podrias sacar mas provecho.
Este es el pequeño codigo:

Código Delphi [-]
procedure TFFactura.BitBtn4Click(Sender: TObject);
var numfact, i, OrdTrans : integer;
    Fecha, FechaVence, iv: String;
    FPagoOK : Boolean;
    MntContado, MntCheque, MntTarjeta, MntOtros, Saldo, Pagado :String;
    BalanceAnterior, BalanceTotal : Double;
    Tipo :char;
begin
   If cbTipo.ItemIndex = 0 then
   begin
      FFormaPago:=TFFormaPago.Create(self);
      FFormaPago.Valores(SubTotal, Impuesto, Total);
      try
         FFormaPago.ShowModal;
      finally
         FPagoOK := FFormaPago.OK;
         MntContado := FFormaPago.FEContado.Text;
         MntCheque  := FFormaPago.FECheque.Text;
         MntTarjeta := FFormaPago.FETarjeta.Text;
         MntOtros   := FFormaPago.FEOtro.Text;
         Saldo      := FloatToStr(FFormaPago.Saldo);
         Pagado     := FloatToStr(FFormaPago.Pagado);
         FFormaPago.Free;
      end;
      Tipo:= 'F';
   end else
   begin
      FPagoOK := True;
      MntContado := '0';
      MntCheque  := '0';
      MntTarjeta := '0';
      MntOtros   := '0';
      Saldo      := '0';
      Pagado     := '0';
      Tipo := 'C';
   end;
   If FPagoOk then
   begin
     ShortDateFormat := 'yyyy-mm-dd';
     Fecha := DateToStr(now);
     FechaVence := DateToStr(IncDay(now,(StrToInt(Label21.Caption))));
     ShortDateFormat := 'dd/mm/yyyy';
  // Obtener el numero de factura
     QTemp.SQL.Text := 'Select Max(CodFactura) From Factura where Tipo = '+QuotedStr(Tipo);
     QTemp.Open;
     If QTemp.RecordCount = 0 then NumFact:=1
     else NumFact := QTemp.Fields[0].AsInteger+1;
     QTemp.Close;
  //Iniciar la Transaccion
     DataModule1.AC1.BeginTrans;
     try
     If Edit2.Text <> '' then
  // Insertar en la tabla de Factura Si tiene ORDEN
        QTemp.SQL.Text := 'Insert Into Factura Values '+
           '( '+IntToStr(NumFact)+', 0, '+QuotedStr(Tipo)+', '+QuotedStr(Fecha)+', '+Edit1.Text+', '+QuotedStr(Label19.Caption)+', '+QuotedStr(Edit4.Text)+', '+QuotedStr(Edit5.Text)+', '+QuotedStr(Edit3.Text)+
           ', False, ''0.13'', False, ''0.00'', '+QuotedStr(SGTotal.Cells[1,0])+', '+QuotedStr(SGTotal.Cells[1,1])+', '+
           QuotedStr(SGTotal.Cells[1,2])+', '+QuotedStr(SGTotal.Cells[1,3])+', '+Edit2.Text+', '+QuotedStr(MntContado)+', '+QuotedStr(MntCheque)+', '+
           QuotedStr(MntTarjeta)+', '+QuotedStr(MntOtros)+', '+QuotedStr(Saldo)+', '+QuotedStr(Pagado)+', '+QuotedStr(FloatToStr(TipoCambio))+')'
        else
  // Insertar en la tabla de Factura si NO tiene ORDEN
        QTemp.SQL.Text := 'Insert Into Factura ( CodFactura, Secuencia, Tipo, Fecha, CodCliente, Terminos, OrdenCompra, CodVendedor, Excento, TasaImpuesto, Anulada, MntEnvio, MntSubTotal, MntDescuento, MntImpuesto, MntTotal, '+
        'MntContado, MntCheque, MntTarjeta, MntOtros, Saldo, Pagado, TC) Values '+
           '( '+IntToStr(NumFact)+', 0, '+QuotedStr(Tipo)+', '+QuotedStr(Fecha)+', '+Edit1.Text+', '+QuotedStr(Label19.Caption)+', '+QuotedStr(Edit4.Text)+', '+QuotedStr(Edit5.Text)+', '+QuotedStr(Edit3.Text)+
           ', False, ''0.13'', False, ''0.00'', '+QuotedStr(SGTotal.Cells[1,0])+', '+QuotedStr(SGTotal.Cells[1,1])+', '+
           QuotedStr(SGTotal.Cells[1,2])+', '+QuotedStr(SGTotal.Cells[1,3])+', '+QuotedStr(MntContado)+', '+QuotedStr(MntCheque)+', '+
           QuotedStr(MntTarjeta)+', '+QuotedStr(MntOtros)+', '+QuotedStr(Saldo)+', '+QuotedStr(Pagado)+', '+QuotedStr(FloatToStr(TipoCambio))+')';
        QTemp.ExecSQL;

   //Insertar en la tabla de FacturaItem
        For i := 1 to SgFact.RowCount-1 do
         begin
           if SGFact.Cells[6,i] = 'Si' then iv:='True)' else iv:='False)';
           QTemp.SQL.Text := 'Insert Into FacturaItem Values '+
           '( '+IntToStr(numfact)+', 0, '+QuotedStr(Tipo)+', '+IntToStr(i)+', '+QuotedStr(SGFact.Cells[0,i])+', '+QuotedStr(SGFact.Cells[2,i])+','+QuotedStr(SGFact.Cells[3,i])+', '+
           QuotedStr(SGFact.Cells[4,i])+', '+iv;
           QTemp.ExecSQL;
         end;
   //Calcula el siguiente numero de OrdTrans
         QTemp.SQL.Text := 'SELECT Max([OrdTrans]) AS Expr1 '+
                           'FROM CxCobrar;';
         QTemp.Active := True;
         If QTemp.RecordCount = 0 then OrdTrans:=1
         else OrdTrans := QTemp.Fields[0].AsInteger+1;
         QTemp.Close;

        If Tipo = 'F' then
        begin
   //  Insertar en la tabla de CxCobrar
           QTemp.SQL.Text := 'Select BalanceTotal From CxCobrar where CodCliente = '+Edit1.Text+
                             ' Order By OrdTrans;';
           QTemp.Open;
           IF QTemp.RecordCount = 0 then BalanceAnterior := 0
           else
           begin
              QTemp.Last;
              BalanceAnterior := QTemp.Fields[0].AsFloat;
           end;
           QTemp.Close;
           BalanceTotal := StrToFloat(Saldo) + BalanceAnterior;

           QTemp.SQL.Text := 'Insert Into CxCobrar ( CodTransac, Secuencia, TipoTransac, OrdTrans, FechaTransac, FechaVencimiento, CodCliente, SubTotal, Descuento, Impuesto, Total, Efectivo, Cheque, Tarjeta, Otro, Balance, BalanceTotal, BalanceAnterior, PagosRec, EstadoCuenta )'+
                             ' Values ('+IntToStr(NumFact)+', 0, ''FA'', '+IntToStr(OrdTrans)+', '+QuotedStr(Fecha)+', '+QuotedStr(FechaVence)+', '+Edit1.Text+', '+QuotedStr(SGTotal.Cells[1,0])+', '+QuotedStr(SGTotal.Cells[1,1])+', '+
                             QuotedStr(SGTotal.Cells[1,2])+', '+QuotedStr(SGTotal.Cells[1,3])+', '+QuotedStr(MntContado)+', '+QuotedStr(MntCheque)+', '+
                             QuotedStr(MntTarjeta)+', '+QuotedStr(MntOtros)+', '+QuotedStr(Saldo)+', '+QuotedStr(FloatToStr(BalanceTotal))+', '+QuotedStr(FloatToStr(BalanceAnterior))+', 0, 0)';
           QTemp.ExecSQL;
        end;

  // Actualizar la tabla de series
        For i := 1 to SgFact.RowCount-1 do
         begin
           if Tipo = 'F' then
              QTemp.SQL.Text := 'Update Series Set NumFactura = '+IntToStr(numfact)+', Estado = ''Facturado'' Where '+
                                'NumSerie = '+SGFact.Cells[2,i]
           else
              QTemp.SQL.Text := 'Update Series Set NumFactura = '+IntToStr(numfact)+', Estado = ''Consignac'' Where '+
                                'NumSerie = '+SGFact.Cells[2,i];
           QTemp.ExecSQL;
         end;

  // Actualizar la tabla de OrdenProdItem
        For i := 1 to SgFact.RowCount-1 do
         begin
           if Tipo = 'F' then
              QTemp.SQL.Text := 'Update OrdenProdItem Set Estacion = ''Est05'' Where '+
                                'NumSerie = '+SGFact.Cells[2,i]
           else
              QTemp.SQL.Text := 'Update OrdenProdItem Set Estacion = ''Est06'' Where '+
                                'NumSerie = '+SGFact.Cells[2,i];
           QTemp.ExecSQL;
         end;

  // Actualizar la tabla de Articulos
        For i := 1 to SgFact.RowCount-1 do
         begin
           QTemp.SQL.Text := 'Update Articulos Set Disponible = Disponible - '+SGFact.Cells[3,i]+' Where '+
                             'CodParte = '+QuotedStr(SGFact.Cells[0,i]);
           QTemp.ExecSQL;
         end;

   // Completa la Transaccion
        DataModule1.AC1.CommitTrans;

   // Imprime la factura si el usuario quiere
      FImprimirFactura:=TFImprimirFactura.Create(self);
      FImprimirFactura.numfact := numfact;
      FImprimirFactura.Tipo := Tipo;      
      try
         FImprimirFactura.ShowModal;
      finally
         FImprimirFactura.Free;
      end;

   except
        on E:Exception do
        begin
           DataModule1.AC1.RollbackTrans;
           MessageDlg('No fue posible completar la transacción, por favor contacte al administrador',mtError,[mbOK],0);
        end;
     end;//try
   end;
   Close;
end;

Espero te sirva de ejemplo.
Saludos

Hola
01010001 01110101 01100101 00100000 01110110 01100001 00100000 01100001 01101101 01101001 01100111 01101111 00101100 00100000 01111001 01100001 00100000 01100001 01110000 01110010 01100101 01101110 01100100 01100101 01110010 01100001 00101100 00100000 01100101 01110011 00100000 01100011 01110101 01100101 01110011 01110100 01101001 01101111 01101110 00100000 01100100 01100101 00100000 01110100 01101001 01100101 01101101 01110000 01101111
Saludos