:D:D:D:D:D

Para el botón de muestras este es el código

Código Delphi [-]
procedure TFXPAF.SBInsertarMuestraClick(Sender: TObject);
// ------------------------------------------------------------------------------
// **************************************************[ Insertar Muestra ]*******
// ------------------------------------------------------------------------------
begin
   if CambiarEstado=0 then FEntrMuestra.Show;
end;

Esta la imagen sin extender y extendido




y aquí como siempre el código https://gist.github.com/anonymous/6061538

Una pequeña modificación del código

En FXPAF -Nuevo -

Código Delphi [-]
procedure TFXPAF.desgloceBlanco;
//------------------------------------------------------------------------------
//********************************************************[ DesgloceBalnco ]****
// Deja el registro con valores a vacio, negatiovo o 0 para evitar errores
// Tabla detalles
//------------------------------------------------------------------------------
begin
      DsDetalle.DataSet.FieldByName('CANTIDAD').value:=0;
      DsDetalle.DataSet.FieldByName('PRECIOUNIDAD').value:=0;
      DsDetalle.DataSet.FieldByName('IMPUESTO').value:=0;
      DsDetalle.DataSet.FieldByName('DESCUENTO').value:=0;
      DsDetalle.DataSet.FieldByName('COMISION').value:=0;
      DsDetalle.DataSet.FieldByName('PESOUNIDAD').value:=0;
      DsDetalle.DataSet.FieldByName('MODIFICADO').value:=0;
      DsDetalle.DataSet.FieldByName('SERVICIO').value:='N';
end;

y modificar

Código Delphi [-]

procedure TFXPAF.SBInsertarComentarioClick(Sender: TObject);
// ------------------------------------------------------------------------------
// ************************************************[ Insertar Comentario ]*******
// ------------------------------------------------------------------------------
var VarScadena: string;
begin
  VarScadena := InputBox('Comentario a insertar', 'Su comentario', '');
  if VarScadena <> '' then
  begin
    if CambiarEstado=0 then
    begin
      DsDetalle.DataSet.Insert;
      DsDetalle.DataSet.FieldByName('CODIGOARTICULO').value:='COM.';
      DsDetalle.DataSet.FieldByName('DESCRIPCIONARTICULO').value:=VarScadena;
      desgloceBlanco;
    end;
  end;
end;

y en UMuestraEntrega modificar

Código Delphi [-]
procedure TFEntrMuestra.SB_SalirClick(Sender: TObject);
//------------------------------------------------------------------------------
//****************************************************[ Salir y actualizar ]****
//------------------------------------------------------------------------------
var VarSTipoForm:string;
begin
    case RadioGroup1.ItemIndex of
       0:VarSTipoForm:='Ml.';
       1:VarSTipoForm:='L.';
       2:VarSTipoForm:='Gr.';
       3:VarSTipoForm:='Kg.';
       4:VarSTipoForm:='Ud.';
    end;
    if Edit1.Text<>'' then
    begin
       FXPAF.DsDetalle.dataset.insert;
       FXPAF.desgloceBlanco;
       FXPAF.DsDetalle.dataset.FieldByName('IDENTIFICADOR').Value:=FXPAF.DSPrincipal.DataSet.FieldByName('I  D').Value;
       FXPAF.DsDetalle.dataset.FieldByName('TIPODOCUMENTO').Value:=FXPAF.DSPrincipal.DataSet.FieldByName('T  IPODOCUMENTO').Value;
       FXPAF.DsDetalle.dataset.FieldByName('NUMERODOCUMENTO').Value:=FXPAF.DSPrincipal.DataSet.FieldByName(  'NUMERODOCUMENTO').Value;
       FXPAF.DsDetalle.dataset.FieldByName('SERIE').Value:=FXPAF.DSPrincipal.DataSet.FieldByName('SERIE').V  alue;
       FXPAF.DsDetalle.dataset.FieldByName('CODIGOARTICULO').Value:='MU';
       FXPAF.DsDetalle.dataset.FieldByName('DESCRIPCIONARTICULO').Value:='Muestra de '+Edit1.text+' ['+Edit2.Text+' '+VarSTipoForm+']';
       FXPAF.DsDetalle.dataset.FieldByName('CANTIDAD').Value:=SpinEdit1.Value;
       FXPAF.DSLoteDocumento.DataSet.Insert;  // Grabamos los datos del lote
       FXPAF.DSLoteDocumento.DataSet.FieldByName('TIPODOCUMENTO').Value:=FXPAF.DSPrincipal.DataSet.FieldByN  ame('TIPODOCUMENTO').Value;
       FXPAF.DSLoteDocumento.DataSet.FieldByName('NUMERODOCUMETO').Value:=FXPAF.DSPrincipal.DataSet.FieldBy  Name('NUMERODOCUMENTO').Value;
       FXPAF.DSLoteDocumento.DataSet.FieldByName('SERIE').Value:=FXPAF.DSPrincipal.DataSet.FieldByName('SER  IE').Value;
       FXPAF.DSLoteDocumento.DataSet.FieldByName('LOTE').Value:=Label5.Caption;
       FXPAF.DSLoteDocumento.DataSet.FieldByName('CANTIDAD').Value:=SpinEdit1.Value;
       FXPAF.DSLoteDocumento.DataSet.FieldByName('CODIGOARTICULO').Value:='MU';
       FXPAF.SetFocus;
       FEntrMuestra.Close;
    end else ShowMessage('Debe rellenar los datos primeramente, si lo que desea es salir, pulse en cancelar');
end;

y hoy por último el botón comentario con fecha

Código Delphi [-]
procedure TFXPAF.SBInstertarComentarioFechaClick(Sender: TObject);
// ------------------------------------------------------------------------------
// **************************************[ Insertar Comentario con fecha ]*******
// ------------------------------------------------------------------------------
var VarScadena: string;
begin
  VarScadena := Inputdate('Comentario con fecha', 'Su comentario');
  if VarScadena <> '' then
  begin
    if CambiarEstado=0 then
    begin
      DsDetalle.DataSet.Insert;
      DsDetalle.DataSet.FieldByName('CODIGOARTICULO').value:='COM./FE.';
      DsDetalle.DataSet.FieldByName('DESCRIPCIONARTICULO').value:=VarScadena;
      desgloceBlanco;
    end;
  end;
end;

y la función a la que hace llamada

Código Delphi [-]
//------------------------------------------------------------------------------
//*************************************************************[ Imputdate ]****
//  Parte de la idea original de   Felipe Monteiro  del 25/05/2006
// bajada de http://www.planetadelphi.com.br/dica...tbox-com-combo)
//------------------------------------------------------------------------------
// J.L.G.T. 05/08/2012 Basando me en el código de Felipe Monteiro , lo adapte a
// mis necesidades, creando un imput de doble entrada en mi caso para insertar
// Comentarios Con fecha
//------------------------------------------------------------------------------
//  [Acaption]       String     Texto en la barra del caption
//  [Aprompt]        String     Texto aclaratorio para elmensaje o petición
//  [Separadores]   Boolean    Muestra la fecha entre separadores []
//------------------------------------------------------------------------------
//---EJEMPLO--------------------------------------------------------------------
//  procedure TForm1.Button1Click(Sender: TObject);
//  begin
//     Label1.Caption:=Inputdate('Comentario con fecha','Comentario');
//  end;
//------------------------------------------------------------------------------
function Inputdate(const ACaption, APrompt: string; Separadores:Boolean =true): string;
  function GetCharSize(Canvas: TCanvas): TPoint;
  var
    I: Integer;
    Buffer: array[0..51] of Char;
  begin
    for I := 0 to 25 do Buffer[i] := Chr(I + Ord('A'));
    for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a'));
    GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result));
    Result.X := Result.X div 52;
  end;

var
  Form: TForm;
  Prompt: TLabel;
  Combo: TDateTimePicker;
  Ed:  TEdit;
  Labelfec2: TLabel;
  DialogUnits: TPoint;
  ButtonTop, ButtonWidth, ButtonHeight: Integer;
  R: TRect;
begin
  Result := '';
  Form   := TForm.Create(Application);
  with Form do
    try
      Canvas.Font     := Font;
      DialogUnits     := GetCharSize(Canvas);
      BorderStyle     := bsDialog;
      FormStyle        :=fsStayOnTop;
      Caption         := ACaption;
      ClientWidth     := MulDiv(195, DialogUnits.X, 4);
      Position        := poScreenCenter;
      Prompt          := TLabel.Create(Form);
      with Prompt do
      begin
        Parent   := Form;
        Caption  := APrompt;
        Left     := MulDiv(8, DialogUnits.X, 4);
        Top      := MulDiv(8, DialogUnits.Y, 8);
        Constraints.MaxWidth := MulDiv(180, DialogUnits.X, 4);
        WordWrap := True;
      end;
      Ed:=TEdit.Create(Form);
      with Ed do
      begin
        Parent     := Form;
        Left      := Prompt.Left;
        Top       := Prompt.top+Prompt.Height+5;
        Width     := MulDiv(180, DialogUnits.X, 4);
        Text      :='';
      end;
      Labelfec2   := TLabel.Create(Form);
      with Labelfec2 do
      begin
        Parent   := Form;
        Caption  := 'Fecha';
        Left     := Prompt.Left;
        Top      := ED.top+ED.Height+5;
        WordWrap := True;
      end;
      Combo := TDateTimePicker.Create(Form);
      with Combo do
      begin
        Parent     := Form;
        Left      := Prompt.Left;
        Top       := Labelfec2.top+Labelfec2.Height+5;
        Width     := MulDiv(178, DialogUnits.X, 4);
      end;
      ButtonTop    := combo.top+Combo.Height+10;;
      ButtonWidth  := MulDiv(50, DialogUnits.X, 4);
      ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
      with TButton.Create(Form) do
      begin
        Parent      := Form;
        Caption     := 'OK';
        ModalResult := mrOk;
        default     := True;
        SetBounds(MulDiv(Prompt.Left-2, DialogUnits.X, 4), ButtonTop, ButtonWidth,
          ButtonHeight);
      end;
      with TButton.Create(Form) do
      begin
        Parent      := Form;
        Caption     := 'Cancelar';
        ModalResult := mrCancel;
        Cancel      := True;
        SetBounds(MulDiv(137, DialogUnits.X, 4), ButtonTop,ButtonWidth, ButtonHeight);
        Form.ClientHeight := 140;
      end;
      if ShowModal = mrOk then
      begin
        if Separadores then Result:=Ed.Text+' [ '+DateToStr(Combo.Date)+' ]'
                       else Result:=Ed.Text+' '+DateToStr(Combo.Date);
      end;
    finally
      Form.Free;
    end;
end;

Como podéis ver estoy dejando para el final los botones cancelar y confirmar, tanto del detalle como del principal.
Ya va quedando menos, pero sigo diciendo que esta es la parte más complicada.

Lo próximo es meternos con la entrada de artículos, que la haremos por partes, primero meteremos el artículo en si, despues veremos el tema de los lotes y el ADR y por último, los cálculos y los botones de grabación y cancelar en cuanto al detalle.

En cuanto al principal, queda toda la gestión de cálculos, Comisiones, financiado, retenciones, impuestos, etc y sus botones claro.

Buenos compañeros, aquí esta una parte fundamental del programa, la introducción de los artículos en nuestros documentos, en este móiulo, tenemos desde la gestión de trazabilidad (parte inicial Selección y creación), con sus vencimientos ADR, comisiones, etc.

Esta es la pantalla



Como podéis ver debemos usar un formulario aparte, ya que a diferencia de una factura, de las que se han venido usando hasta la fecha, tenemos muchos datos más que manejar, pero muchos de ellos, solo los tendremos que usar inicialmente, ya después su uso es automático.

Como siempre el código aquí https://gist.github.com/anonymous/6078466

Realmente este módulo podríamos decir que hace el 50% del trabajo en documentos, por eso vamos a detenernos y comentar sus partes, para ellos vamos a apoyarnos en la siguiente imagen numerada



No vamos a comentar el código, que ya esta colocado en el post anterior, pero vamos a por los diferentes puntos.

0) Es el panel que contiene los datos, realmente de ellos directamente manejamos 2 o 3, siendo el principal el código del artículo, ya que el resto, se rellena más por clicks del ratón y otros apartados que directamente.

Al lado del código vemos un botón que abre el formulario de artículos.

1,2,3) son campos de lectura, el 1 y 2, además son informativos, ya que no es de esta manera como se guardara la información, pero es como la presentaremos en nuestro documento +-.

4) Los precios, como podemos ver ene este apartado, tenemos tanto los precios como el rapel y descuentos, en esta pantalla no se ve (ya que aún no lo hemos tratado), pero sobre este cliente, en este artículo si tiene un precio especial, aparecería en la parte baja como Precio Esp. Cliente (Linea 274 del código) y aparecería esta como seleccionada, también tenemos un check a la izquierda que indica el precio seleccionado, pero podemos cambiarlo en cualquier momento.

5) Este es un panel, que nos da información tanto del documento, cliente y comercial.

6) Esta es la madre del cordero, aquí nos muestra la información de todos los lotes de productos que hemos introducido, para este código de artículo, podemos ver que nos indica el lote, la fecha (de entrada), la cantidad de entrada, las unidades que hay disponibles (no aparecen las que estén a 0 o por debajo), y la fecha de caducidad (podemos ver que algunas no tienen datos en este apartado, es debido a las diferentes pruebas iniciales, pero realmente siempre aparecería este dato) y por último la cantidad de artículos que vamos a usar de cada lote.

Realmente el único elemento que vamos a usar es el último, si la cantidad que ponemos es mayor que la disponible para dicho lote, nos avisa y ajusta este al disponible del mismo.

7) Botón de salir y no pasar ninguno de estos datos.

8) Botón de salir y pasar todos estos datos.

9) Buscar, el de la derecha abre el dialogo "buscar por" según elijamos en Descripción o Código (la búsqueda es mediante un LOCATE) y el de la izquierda abre el dialogo de búsquedas ya usado anteriormente en varios módulos que hacemos mediante SQL. (este módulo, lo publicare nuevamente al terminar ya que sigue teniendo varios cambios según avanzamos, aunque la mayoría ya los hemos visto en partes anteriores)

10,12) Este botón abre una pequeña ventana, para introducir un lote manualmente y registrarlo, lo mismo que el apartado 12, pero es mucho más claro el 10 que el 12, este apartado lo veremos a continuación.

11) Botón que abre el módulo de entrada de productos/artículos, que ya hemos visto anteriormente

12) ya lo hemos tratado en el apartado 10


Como siempre si existe alguna duda, me tenéis a vuestra dispocición

El módulo comentado en el post anterior



y su código https://gist.github.com/anonymous/6078637

Como podéis ver su código es bastante reducido

Como podéis ver hasta el momento no hemos usado en ningún momento un CommitRetaing, ni un Commit, para que los datos sean grabados fisícamentes, al finalizar el documento, pero claro esta si entramos en entradas o en artículos y creamos uno nuevo, se realizará un CommitRetaing (Lo estoy escribiendo todo de cabeza, así que perdonar si no esta bien), con lo cual los datos a los que pasemos con el post serán grabados, para evitar dentro de lo posible esto, me gusta poner un dialogo previo que avise de tal circunstancia, pero eso debéis seleccionarlo o solucionarlo vosotros a vuestra manera.

Me han preguntado por email, si el programa estará completo, os pongo mi respuesta al tema, depende para que lo uséis, como programa de gestión estándar si, para una empresa de lo mio (química cosmética y productos de limpieza), le faltan apartados, pero lo principal si lo estoy dando. Claro esta como ya he dicho en varias ocasiones, no voy a poner los módulos de impresión.

Otro tema que me ha puesto la misma persona, es el tema de por que doy tanta información, al parecer le molesta por el tema de que se dedica a vender programas y con la información que doy, le parece útil, ya que hay partes que el desconocía, pero que puedo crear una mayor competencia al preparar más personas para la venta de programas de gestión. Mi respuesta ha sido, que si realmente logro preparar, una sola persona, que gracias a este tutorial, sea capaz de crear y vender un programa de gestión, me hará sentir muy orgulloso y feliz de haber realizado este tutorial. En cuanto a la competencia, ya existe y creo que cada persona, deberá adaptar dicho tutorial, a su manera de trabajar, con lo que cada programa sera visualmente diferente y probablemente su código, también variará sustancialmente.

Pretendo dar unos conceptos y aplicación de los mismos al código y espero conseguirlo, no llevamos mucho más de dos meses con este tema y creo que se lleva un buen ritmo y hemos avanzado mucho, por lo menos eso espero, ya que tengo que compartir mi tiempo, entre hacer el programa y llevarlo al tutorial y explicarlo y por supuesto mi familia y trabajo.

Siento si hay gente que se molesta, pero es una aportación lo que hago, creo que debe tomarse como tal y considero, que es un poco egoísta la aptitud de este señor. de todas maneras, ya lo he comentado otras veces en el club, me han acusado, de plagiar y de otras muchas cosas, la verdad es que la mayoria de los compañeros, creo que saben que nunca ha sido mi intención ni plagiar, ni fastidiar a nadie.

De hecho llevo un montón de años (desde el 2003) y no suelo participar en temas que yo no he abierto, ya que temo meter la pata y por que estoy seguro de que muchos compañeros tienen mejores respuestas que las que yo doy, sin embargo, creo que he abierto algunos temas interesante y otros no, pero siempre he facilitado mi código y los componentes creados por mi, como no queráis la sangre también :cool:

La verdad es que es algo que me molesta, la aptitud de estos elementos, aún así, nunca he dado los nombres de dichos elementos ni sus emails y no voy hacerlo ahora, pero me gustaría que ciertas personas, se limitarán a exponer sus ideas y comentarios sobre dichos temas en los hilos abiertos sobre los que tratan y no sobre mi email.

Por cierto, procuro ser claro y no cortar parte de mis explicaciones, por lo que mis post pueden ser pesados y molestos, en eso si estoy de acuerdo, con dicha persona y le pido disculpas si molesta a más compañeros, pero procuro ser educado, no como alguno.

No tengo ni la más mínima idea de quién puede decirte esas cosas, pero tú no le hagas ningún caso. Es absurdo ese pensamiento.
No vale la pena ni que gaste tiempo en explicarlo, pero basta decir que "cualquiera" puede usar uno de los muchos programas de gestión libres que hay a disposición de quien lo quiera.

Gracias por todo el trabajo y tiempo que te estás tomando ^\||/

José Luis,
Con tu tiempo, tu dinero y tu cuerpo puedes hacer lo que te dé la real gana.

Si a alguien no le gusta, que se lo haga mirar.

Un saludo y mucho ánimo, que estás enseñando lo que ningún libro dice

No caso no es que le haga pero :confused:

Gracias, compañero, y lo de que ningún libro dice, tal vez si juntas unos cuantos :D:D

Se que sueno al pupas, pero la verdad es que llevo unos años, pero bueno, cuando se acabe lo malo, vendrá lo mejor digo yo.

Es que, si algo me saca de mis casillas es que me acusen de cosas que considero, no soy culpable y necesito desahogarme y no es por nada pero el club me sale más barato que el psicólogo :D:D:D

Pero, nada, borras el mensaje sin leerlo, no vale la pena perder el tiempo.


Si yo te contara las de cosas que nos han pasado, tanto a mí como a otros foreros, por publicar SU código aquí...
Bueno, y lo de acusar por plagio, ya ni te digo.

Como sabes, en los foros tienes un menú en el perfil de cada usuario, una de las opciones es: "Agregar a xxxxxxx a tu Lista de Ignorados", le das y punto, ya no volverás a recibir nada de él.

Tomo nota y gracias.

Pongo una nueva función que me parece interesante y empezare a usar, en el tutorial, que por cierto me llevara unos días seguir publicando, ya que quiero terminar el módulo de documentos.

Código Delphi [-]
//------------------------------------------------------------------------------
//*************************************************[ CamposObligatorios ]****
//  Parte de la idea original de   Ricardo S.     [27/07/2013]
// bajada de http://www.planetadelphi.com.br/dica...eenchidos,-boa
//------------------------------------------------------------------------------
// Pequeñas modificaciones y adaptado por mi permitiendo comprobar si hat Campos
// obligatorios pendientes de rellenar
//------------------------------------------------------------------------------
//  [DS]  TDataSource             Originalmente era de un TQuerry
//  [NoField] string              Podemos elegir un campo para que lo omita por
//                                ejemplo 'ID', por defecto =''
//------------------------------------------------------------------------------
//---EJEMPLO--------------------------------------------------------------------
//  if CamposObligatorios(DsDetalle,'ID')=true then DsDetalle.dataset.post;
//------------------------------------------------------------------------------
function CamposObligatorios(DS:TDataSource; NoField:string=''):Boolean;
var j:Byte;
    Msg:String;
begin
   Msg:='';
   Result:=False;
   with DS.DataSet do
   begin
         for j:=0 to FieldCount -1 do
        if  ((Fields[j].Required) and  (Fields[j].AsString = '')) and (Fields[j].FieldName<>NoField) then
        begin
           if Msg <> '' then Msg:=Msg+' - ';
           Msg:=Msg+Fields[j].FieldName;
        end;
   end;
   if Msg <> '' then ShowMessage('Atención, el/los campo/s :'+ #13+Msg+' No contiene datos')
                else Result:=True;
end;

Bonito avatar ;)

Renovarse o morir :D:D:D

Hola compañeros, estoy trabajando en el módulo de Documentos, que va bastante avanzado, pero como ya había dicho necesitaremos algunas tablas nuevas.

Aquí la primera

Código Delphi [-]
CREATE TABLE RETENCIONES (
    ID                   INTEGER NOT NULL,
    NUMERODOCUMENTO      T20 NOT NULL /* T20 = VARCHAR(20) */,  //Número del documento (siempre Factura)
    SERIE                T3 NOT NULL /* T3 = VARCHAR(3) */,  //Serie de la factura                
    FECHA                DATE NOT NULL,  //Fecha de la factura
    CODIGOCLIENTE        T20 NOT NULL /* T20 = VARCHAR(20) */,  //Código del cliente
    SUBTOTAL             POR NOT NULL /* POR = NUMERIC(15,4) */,  //Subtotal de la factura
    IMPUESTOS            POR NOT NULL /* POR = NUMERIC(15,4) */,  //Total de impuestos
    NUMERORETENCION      INTEGER NOT NULL,  //Número asignado a esta retención (este campo es único)
    PORCENTAJERETENCION  POR NOT NULL /* POR = NUMERIC(15,4) */,  //Porcentaje a retener el cliente de nuestra factura
    TOTALRETENIDO        POR NOT NULL /* POR = NUMERIC(15,4) */,  //Importe de la retención echa por el cliente
    CAMPOLIBRE           T80 /* T80 = VARCHAR(80) */  //Campo libre para lo que nos haga falta
);

Toca modificar la tabla de configuración y como más adelante tendríamos que modificarla para otros me anticipo y lo hago ahora, sólo añadimos nuevos numeradores

El turno de la tabla financiado

Código Delphi [-]
CREATE TABLE FINANCIADO (
    ID                 INTEGER NOT NULL,
    FECHA              DATE,   //Fecha de emisión de la financiación, sólo desde la factura
    NUMERODOCUMENTO    T20 NOT NULL /* T20 = VARCHAR(20) */,   //Solo Facturas
    IMPORTEFINANCIADO  POR NOT NULL /* POR = NUMERIC(15,4) */,   //Cantidad a financiar
    CODIGOCLIENTE      T20 NOT NULL /* T20 = VARCHAR(20) */,   //Código del cliente
    MININOTA           VARCHAR(150),   //Texto aclaratorio
    INTERESESDEMORA    POR /* POR = NUMERIC(15,4) */,  //Porcentaje de intereses a cargar por demora en el pago mensual
    TIPODOCUMENTO      T20 NOT NULL /* T20 = VARCHAR(20) */,  //Factura
    SERIE              T20 NOT NULL /* T20 = VARCHAR(20) */,  //Serie del número de documento
    NUMEROFINANCIADO   T20 /* T20 = VARCHAR(20) */  //Número de de financiado
);