Programa de gestión desde 0

[Casimiro Noteví]

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 Noteví]

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

[[José Luis Garcí]]

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

NUMERORETENCION T20 /* T20 = VARCHAR(20) */,
NUMEROFINANCIADO T20 /* T20 = VARCHAR(20) */,
NUMERORUTA T20 /* T20 = VARCHAR(20) */