Programa de gestión desde 0

[[José Luis Garcí]]

Empezado por Casimiro Notevi

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

No caso no es que le haga pero

Empezado por fjcg02

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

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

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

[Casimiro Notevi]

Empezado por José Luis Garcí

No caso no es que le haga pero

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.

[[José Luis Garcí]]

Empezado por Casimiro Notevi

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.

[[José Luis Garcí]]

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;

[Casimiro Notevi]

Bonito avatar

[[José Luis Garcí]]

Renovarse o morir

[[José Luis Garcí]]

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