: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
);

Y ahora el detalle de financiado

Código Delphi [-]
CREATE TABLE FINANCIADODETALLE (
    ID             INTEGER NOT NULL,
    IDENTIFICADOR  INTEGER NOT NULL,  //Es  la clave foranea i conecta con el ID de financiado
    FECCHAPAGO     DATE,  //Fecha prevista del pago a partir de la cual empieza a cobrar los intereses de demora
    FORMAPAGO      T80 /* T80 = VARCHAR(80) */,  //Forma de pago establecida
    IMPORTE        POR /* POR = NUMERIC(15,4) */  //Importe de este pago
);

Por cierto en la tabla FINANCIADO el campo NUMEROFINANCIADO es único

Primero una modificación más a la tabla confi, añadimos

Código Delphi [-]
NUMEROCOMISION                   T20 /* T20 = VARCHAR(20) */  //para documentos de pago de comisiones

y ahora la tabla de comisiones

Código Delphi [-]
CREATE TABLE COMISIONES (
    ID               INTEGER NOT NULL,
    CODIGOEMPLEADO   T20 /* T20 = VARCHAR(20) */,  //Código del empleado que tiene que ser un agente
    NUMERODOCUMENTO  T20 /* T20 = VARCHAR(20) */,  //Número del documento FACTURA
    TIPODOCUMENTO    T20 /* T20 = VARCHAR(20) */,  //Tipo de documento FACTURA
    SERIE            T3 /* T3 = VARCHAR(3) */,  //Serie de la FACTURA
    COMISION         POR /* POR = NUMERIC(15,4) */,  //Porcentaje de la comisión
    IMPORTECOMISION  POR /* POR = NUMERIC(15,4) */,  //Importe bruto de la comisión
    MININOTA         VARCHAR(150),  //Para pequeñas notas en la comisión
    PAGADAS          LOG /* LOG = CHAR(1) */,  //Si esta ya ha sido pagada
    FECHAPAGO        DATE,  //Fecha en la que se realizo el pago
    NUMEROPAGO       T20 /* T20 = VARCHAR(20) */,  //Número del documento de pago
    FECHA            DATE,  //Fecha es la misma que de la factura
    RETENCIONES      POR /* POR = NUMERIC(15,4) */  //Porcentaje a retener (para HACIENDA) de las comisiones
);

Para que quede un poco más claro pongo el estado actual de la tabla CONFI

Código Delphi [-]
CREATE TABLE CONFI (
    ID                               INTEGER NOT NULL,
    EMPRESA                          T80 /* T80 = VARCHAR(80) */,
    CALLE                            T80 /* T80 = VARCHAR(80) */,
    CODIGOPOSTAL                     T10 /* T10 = VARCHAR(20) */,
    POBLACION                        T80 /* T80 = VARCHAR(80) */,
    PROVINCIA                        T80 /* T80 = VARCHAR(80) */,
    TELEFONO                         T20 /* T20 = VARCHAR(20) */,
    TELEFONO2                        T20 /* T20 = VARCHAR(20) */,
    LOGO                             IMG /* IMG = BLOB SUB_TYPE 0 SEGMENT SIZE 80 */,
    WEB                              T80 /* T80 = VARCHAR(80) */,
    EMAIL                            T80 /* T80 = VARCHAR(80) */,
    MOVIL                            T20 /* T20 = VARCHAR(20) */,
    FAX                              T20 /* T20 = VARCHAR(20) */,
    CIF                              T20 /* T20 = VARCHAR(20) */,
    REGISTROMERCANTIL                T80 /* T80 = VARCHAR(80) */,
    NOTA                             MEMO /* MEMO = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */,
    COLORA                           T20 /* T20 = VARCHAR(20) */,
    COLORB                           T20 /* T20 = VARCHAR(20) */,
    COLORACTIVO                      T20 /* T20 = VARCHAR(20) */,
    COLORNOACTIVO                    T20 /* T20 = VARCHAR(20) */,
    NUMEROPRESUPUESTO                T20 /* T20 = VARCHAR(20) */,
    NUMEROPEDIDO                     T20 /* T20 = VARCHAR(20) */,
    NUMEROALBARAN                    T20 /* T20 = VARCHAR(20) */,
    NUMEROFACTURA                    T20 /* T20 = VARCHAR(20) */,
    NUMEROLOTE                       T20 /* T20 = VARCHAR(20) */,
    NUMEROCLIENTE                    T20 /* T20 = VARCHAR(20) */,
    NUMEROPROVEEDOR                  T20 /* T20 = VARCHAR(20) */,
    NUMEROAGENTE                     T20 /* T20 = VARCHAR(20) */,
    NUMEROALMACEN                    T20 /* T20 = VARCHAR(20) */,
    NUMEROALMACENPORDEFECTO          T20 /* T20 = VARCHAR(20) */,
    LARGOLOTE                        INTEGER,
    LAGONUMEROS                      INTEGER,
    SERIE                            T3 /* T3 = VARCHAR(3) */,
    SERIE2                           T3 /* T3 = VARCHAR(3) */,
    SERIE3                           T3 /* T3 = VARCHAR(3) */,
    USARSERIEYEAR                    LOG /* LOG = CHAR(1) */,
    LDPD1                            MEMO /* MEMO = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */,
    LDPD2                            MEMO /* MEMO = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */,
    LDPD3                            MEMO /* MEMO = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */,
    NOMBREMONEDA                     T10 /* T10 = VARCHAR(20) */,
    NOMBREIMPUESTO                   T10 /* T10 = VARCHAR(20) */,
    DESCRIPCIONIMPUESTO1             T20 /* T20 = VARCHAR(20) */,
    IMPUESTO1                        POR /* POR = NUMERIC(15,4) */,
    DESCRIPCIONIMPUESTO2             T20 /* T20 = VARCHAR(20) */,
    IMPUESTO2                        POR /* POR = NUMERIC(15,4) */,
    DESCRIPCIONIMPUESTO3             T20 /* T20 = VARCHAR(20) */,
    IMPUESTO3                        POR /* POR = NUMERIC(15,4) */,
    DESCRIPCIONIMPUESTO4             T20 /* T20 = VARCHAR(20) */,
    IMPUESTO4                        POR /* POR = NUMERIC(15,4) */,
    DESCRIPCIONRECARGOEQUIVALENCIA1  T20 /* T20 = VARCHAR(20) */,
    RECARGOEQUIVALENCIA1             POR /* POR = NUMERIC(15,4) */,
    DESCRIPCIONRECARGOEQUIVALENCIA2  T20 /* T20 = VARCHAR(20) */,
    RECARGOEQUIVALENCIA2             POR /* POR = NUMERIC(15,4) */,
    DESCRIPCIONRECARGOEQUIVALENCIA3  T20 /* T20 = VARCHAR(20) */,
    RECARGOEQUIVALENCIA3             POR /* POR = NUMERIC(15,4) */,
    DESCRIPCIONRECARGOEQUIVALENCIA4  T20 /* T20 = VARCHAR(20) */,
    RECARGOEQUIVALENCIA4             POR /* POR = NUMERIC(15,4) */,
    MODOCOPIADESEGURIDAD             T20 /* T20 = VARCHAR(20) */,
    NUMERORETENCION                  T20 /* T20 = VARCHAR(20) */,
    NUMEROFINANCIADO                 T20 /* T20 = VARCHAR(20) */,
    NUMERORUTA                       T20 /* T20 = VARCHAR(20) */,
    NUMEROCOMISION                   T20 /* T20 = VARCHAR(20) */
);

Hola compañeros, un añadido a la tabla comisiones

se podría omitir este campo y hacer la búsqueda por SQL, en el momento necesario, pero es más practico, tenerla metida en la misma tabla, el consumo de recursos es mínimo, evitando el consumo de memoria por el motor de la BD para hacer la consulta

Bueno aquí tenemos ya terminado el apartado de documentos

Su visor



y el apartado de datos



y como siempre el código en https://gist.github.com/anonymous/6171193

El form de productos y trazabilidad, etc. auxiliar de documentos



y su código

https://gist.github.com/anonymous/6171280

El módulo de financiado




y el código https://gist.github.com/anonymous/6171304

y por último el dialogo de impresión de documentos



y el código https://gist.github.com/anonymous/6171325

Con esto debéis tener un 80-90 por ciento de la aplicación según mis cálculos, faltan módulos totalmente auxiliares, aparte de gestión de comisiones (incluye el pago) y rutas, como digo el resto es lo que queráis poner al programa, creo que daré 2 o 3 módulos más y daré por terminado el presente tutorial.

^\||/^\||/^\||/

El módulo de agenda de contactos



Aquí con una letra seleccionada



El código en https://gist.github.com/anonymous/6187111

y la función ActQAgenda

Código Delphi [-]
//-----------------------------------------------------------------------------
//*********************************************************[ ActQAgenda ]******
//  14/06/2012  JLGT  Para modificar la sentencia de un querry para agendas
//-----------------------------------------------------------------------------
//  Estudiando como poder hacer mi código mas corto se me ocurrio esta función
//  para usar un los IBQerry, para mi base de datos Firebird. para el uso de agendas
//  El tema es que cada vez que utilizo un querry y lo modifico tengo que
//  escribir unas 20 lineas y mediante este sistema, logro reducirlo a una sola
//  ya que es un, código repetitivo y soló varia el nombre del query y la
//  sentencia Sql, cree esta función
//-----------------------------------------------------------------------------
// [QRY]              Tibquery a actualizar
// [TAB]              El tabcontrol que lo llama
// [Campo]            Nombre del Campo por el que funcionara el TabControl
// [TxtSql]           Cadena de texto con sentencia SQL
// [MostrarMEnsaje]   Si muestra el mensaje de la Exception
// [RetornarMEnsaje]  Si retorna la cadena Sql que da el Error
// [RetornarQuerry]   Si retorna El querry a la cadena sql de antes del error
//-----------------------------------------------------------------------------
//  Base de datos a usar CLIENTES usar en el tabChage
//   if ActQAgenda(IBQuerry1,Tabcontrol1,'Nombre','Select * form Clientes')=true then
//                   showmessage('Cambio OK') else showmessage('El cambio a fallado');
//- ---[DETALLE]---------------------------------------------------------------
// El grid al que este unido debe tener los campos fijados para evitar un error
//-----------------------------------------------------------------------------
Function ActQAgenda(QRY:TIBQuery; TAB:TTabControl;Campo:String;TxtSql:string; MostrarMensaje:boolean=VMiLogico;Retornarmensaje:boolean=VMiLogico; RetornarQuerry:boolean=VMiLogico): Boolean;
var AntSql:string;
    Letraagenda: string;
begin // Cuando cambiamos en la agenda
  try
    try
      Letraagenda := TAB.Tabs[TAB.TabIndex];
      if TAB.TabIndex = 0 then
      BEGIN
         QRY.Active:=false;
         QRY.SQL.Clear;
         QRY.SQL.Text:=TxtSql;
         QRY.Active:=true;
         Result:=true;
      END else
      BEGIN
          AntSql:=QRY.SQL.Text;
          QRY.Active:=false;
          QRY.SQL.Clear;
          QRY.SQL.Text:=TxtSql+' where UPPER('+Campo+') Between :LDESDE and :LHASTA';
          QRY.ParamByName('LDESDE').AsString := Letraagenda;
          QRY.ParamByName('LHASTA').AsString := Letraagenda + '||Z';
          QRY.Active:=true;
          Result:=true;
      END;
    except
        on E: Exception do
        begin
           if MostrarMensaje=true then
           begin
             ShowMessage('Se ha producido un error: ' + Chr(13) + Chr(13)
                       + 'Clase de error: ' + E.ClassName + Chr(13) + Chr(13)
                       + 'Mensaje del error: ' + E.Message+ Chr(13) + Chr(13)
                       +'  '+ Chr(13) + Chr(13)
                       +'Se volvera al estado anterior');
           end;
        QRY.Active:=False;
        Result:=false;
        end;
    end;
  finally
      if Result=false then
      begin
         if Retornarmensaje=true then  ShowMessage('Sentencia Sql que ha dado Error' + Chr(13) + Chr(13)+ QRY.SQL.Text);
         if RetornarQuerry=true then
         begin
            QRY.Active:=false;
            QRY.SQL.Clear;
            QRY.SQL.Text:=TxtSql;
            QRY.Active:=true;
         end;
      end;
  end;
end;

El módulo ver ficha



Y el código https://gist.github.com/anonymous/6187160

Nos encaminamos ya al final del programa, quedando unos pocos módulos que dar y unas pocas tablas, de todas maneras, al final del mismo pondré tanto el código completo y la BD, por un lado y el ejecutable y la BD por otro. vamos con una de las últimas tablas a dar, la de vehículos, que nos hará falta para cartas de porte y rutas

Bueno voy a usar varias pantallas de mi anterior programa para ahorrar tiempo adaptándolas al actual programa, así que la estética puede variar un poco.

Comenzamos con vehículos



El código en https://gist.github.com/anonymous/6191865

La Carta de portes



Como podemos ver pongo la imagen con las dos pestañas abiertas, los botones de la derecha son independientes en cada pestaña y de los datos de la izquierda, tenemos (peso bultos y cantidad)

Peso, es el total del peso de esta mercancía que no podrá exceder el limite de la misma si tiene limite

Bultos, es el número de bultos, no confundir con la cantidad, ya que si llevamos garrafas de 5L por ejemplo y van en cajas (pongamos que 4 por caja) 5 cajas son 20 garrafas

Cantidad, se refiere al número de unidades, siguiendo con el ejemplo anterior 20 serían las unidades

Puede pasar que el número de bultos y unidades sean las mismas, tanto por que van sueltas como por el formato de la unidad, pero en ningún caso un palet es una unidad

El código en https://gist.github.com/anonymous/6191905

y por último la carta de portes en el word llamada desde el programa, por supuesto podéis usar otro sistema, tanto de report como de llamada

Que quede claro que esta es una carta de porte externa, ya que como hemos dicho adecuando correctamente nuestra factura o albarán nos puede servir de carta de portes, junto con la hoja de ruta, por eso la importancia de esta última, junto con el control del peso transportado.

Ya hemos hablado de estos apartados anteriormente, pero repito, que en muy breve será obligatoria la hoja de ruta, donde deberemos especificar, el conductor/conductores, el vehículo, los número de documentos, clientes, destinos y pesos, de cada documento a transportar (Factura, albarán, etc) y el total del peso de todo el transporte, en la misma se permitirá, añadir anotaciones y recogidas de mercancías.

Para que os hagáis una idea de todos los módulos que puede tener este tipo de programa, os voy a ir poniendo los apartados del menú de mi anterior programa, explicándolos brevemente y poniendo los que ya hemos hecho y los que terminare, lo haré a ratos, pues ahora estoy algo ocupado y quiero dejar terminado este tutorial, también.

Menú Archivos
Almacén - La gestión de almacenes de nuestra empresa, es muy útil cuando tenemos más de 1 almacén, en el programa no lo he dado, pero básicamente esta incluido en las bases de datos, lo único que deberíamos controlar es cuando entra y sale la mercancía en que almacén se hace el stock.

Agentes Comerciales - Nosotros la hemos incluido en empleados.

Personal - ya esta en el módulo empleados.

Proveedores - Lo tenemos.

Grupos Materias Primas - Al ir mi programa sobre fabricación tenia identificado las materias primas según grupos

Materias/ Materias Primas - al no solo tener materias primas sino otros artículos, tenia que tener este otro apartado, para luego controlar en la gestión de productos, ya que muchos eran para uso interno y a la vez de venta directa.

Fórmula - Las Fórmulas de mis productos , tenia nivel de acceso 9 y repetir clave de acceso

Productos - En nuestro programa lo tenemos en Artículo ABM (ya lo viereis en el menú)

Auxiliares - Aquí van las tablas auxiliares, en nuestro programa tiene el hueco pero no las vamos a dar, de todas manera en mi anterior programa tenia las siguientes, Familias, Sectores y Bancos

Clientes - Ya lo tenemos

Gestión de usuarios - Ya lo tenemos

Cambio de usuario - Ya lo tenemos en el menú

Configuración - Ya lo tenemos

Salir - Ya lo tenemos en el menú

Ya te has ganado el sueldo ;)


G R A C I A S :)

Eres un crack !!
;-)

Saludos

Gracias Casimiro, pero no se por que, ni a que, ya dije que yo le debo más al Club, que lo que estoy aportando y que todo lo que pongo no es todo lo que hay :rolleyes: