Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Programa de gestión desde 0 (https://www.clubdelphi.com/foros/showthread.php?t=83457)

José Luis Garcí 09-08-2013 17:40:55

Cita:

Empezado por fjcg02 (Mensaje 465250)
Eres un crack !!
;-)

Saludos


Si hombre lo que me faltaba ahora andar con esas porquerías :D:D:D:D

José Luis Garcí 09-08-2013 17:44:30

He de decir que el sistema de agendas con el tabcontrol, siempre me ha gustado y creo que es super útil, seguramente hay varios apartados que se pueden mejorar, en este y otros apartados, pero aun así me siento bien con ellos.

José Luis Garcí 09-08-2013 17:48:53

También e de decir que esperaba muchas más criticas de los expertos y compañeros, serán que no han visto el tema :eek:, que pasa olimpicamente :rolleyes: o que me dan por imposible :D

Casimiro Notevi 09-08-2013 18:24:26

Seguro que lo han visto, es un trabajo muy grande el que has hecho, es una excelente base tanto para los novatos como para los que tienen experiencia, se puede consultar formas de hacer las cosas, tener presente detalles que se nos olvidan, etc. es realmente muy útil.
Y ahí queda, como "libro de consulta", y cuando alguien pregunte entonces se le envía a este hilo y se le dice: "lee, que ahí tienes la solución, so vago, no lo quieras todo hecho :p"
Saludos :)

José Luis Garcí 09-08-2013 18:26:53

Cita:

Empezado por Casimiro Notevi (Mensaje 465258)
Seguro que lo han visto, es un trabajo muy grande el que has hecho, es una excelente base tanto para los novatos como para los que tienen experiencia, se puede consultar formas de hacer las cosas, tener presente detalles que se nos olvidan, etc. es realmente muy útil.
Y ahí queda, como "libro de consulta", y cuando alguien pregunte entonces se le envía a este hilo y se le dice: "lee, que ahí tienes la solución, so vago, no lo quieras todo hecho :p"
Saludos :)


Que entonces no pongo los fuentes como termine, 'pá' que no vagueen estos maleantes :D:D:D

Casimiro Notevi 09-08-2013 18:37:44

Eso, eso, o los pones en un zip con clave y pides 100 euros a quien quiera la clave :D

José Luis Garcí 09-08-2013 18:40:13

Cita:

Empezado por Casimiro Notevi (Mensaje 465262)
Eso, eso, o los pones en un zip con clave y pides 100 euros a quien quiera la clave :D

Oye chiquito negocio :rolleyes, habrá que hacer un plan de viabilidad, solicitar permisos al ayuntamiento, acordar costes y demás con hacienda el ayuntamiento, etc, al final voy a tener que poner dinero de mi bolsillo :p:D:D:D

Es que como ya se meten en todo.

De lo último que me he enterado, es que ahora hay que sacar una certificación para poder alquilar una casa o local, nada como una carrera o unos estudios para que el estado te ayude, a........ hundirte

Casimiro Notevi 09-08-2013 19:02:49

Cita:

Empezado por José Luis Garcí (Mensaje 465263)
De lo último que me he enterado, es que ahora hay que sacar una certificación para poder alquilar una casa o local, nada como una carrera o unos estudios para que el estado te ayude, a........ hundirte

Pues échale un vistazo al asunto de la energía solar. Lo último de esta semana aprobado por el gobierno que tanto nos quiere: un día decides poner tus propias placas solares porque estás harto de que te robe la empresa eléctrica y decides abastecerte únicamente de esas placas para electricidad. Pues bien, tienes que pagar a la compañía eléctrica la cantidad de electricidad que produzcan esas placas. Como lo oyes :mad:

José Luis Garcí 09-08-2013 22:33:49

Cita:

Empezado por Casimiro Notevi (Mensaje 465267)
Pues échale un vistazo al asunto de la energía solar. Lo último de esta semana aprobado por el gobierno que tanto nos quiere: un día decides poner tus propias placas solares porque estás harto de que te robe la empresa eléctrica y decides abastecerte únicamente de esas placas para electricidad. Pues bien, tienes que pagar a la compañía eléctrica la cantidad de electricidad que produzcan esas placas. Como lo oyes :mad:

Ciento decírtelo Casimiro, pero eso no es nuevo, si me permites, te Aconsejo leer el libro "Vivir del Viento" de mi autor preferido, un canario de la isala vecina Tenerife, que lleva afincado en otra de nuestras maravillosas Islas Lanzarote, Alberto Vazquez Figueroa, es un libro que hace refleccionar mucho, como varios de el, pro suerte yo tengo más del 75% de su obra, me faltan alguno de los antiguos y puedo decir que he leído la mayor parte. Lo aconsejo sinceramente tanto la mayor parte de su obra como su biografía, que es apasionante, tanto o más que su obra en si.

Volviendo al tema de la electricidad, terminaremos como mucha gente en la india y otras zonas de extrema pobreza, http://www.youtube.com/watch?v=bhHKXxEN9Q0, o como se veia mucho hace ya varias decadas, pequeños arerogeneradores con dinamos de bicicleta y la llanta de la misma, pero no demos más pistas que seguro que viene el e estado y le mete mano.

Casimiro Notevi 09-08-2013 22:43:31

Sí, claro, conozco a Vázquez Figueroa y he leido varias obras suyas. Estoy al tanto de su empresa para producir electricidad económica y ecológica, y de su desaladora, y del sistema de frenado automático para trenes de alta velocidad, etc.

Pero lo que te comentaba antes es que desde la semana pasada, si tú instalas en tu casa unas placas solares que producen, por ejemplo, 1000 W. entonces tendrás que pagar como si gastaras esos 1000 W a la compañía eléctrica, para que ellos no "pierdan", o sea, el gobierno les ha dado a las eléctricas (iberdrola, endesa, etc.) permiso para cobrarnos el Sol. Así de duro.

José Luis Garcí 09-08-2013 22:45:28

Viva el desface eléctrico y todos los españoles a pagar, no importa la de millones de beneficios que tienen al año, a pringar todo el mundo.

José Luis Garcí 10-08-2013 09:19:20

Seguimos con la siguiente tabla, creo que a esta altura ya no hace falta comentarla

Cita:

CREATE TABLE RUTAS (
ID INTEGER NOT NULL,
CODIGOEMPLEADO T20 NOT NULL /* T20 = VARCHAR(20) */,
MATRICULA T10 NOT NULL /* T10 = VARCHAR(20) */,
NUMERORUTA T20 NOT NULL /* T20 = VARCHAR(20) */,
TIPODOCUMENTO T20 /* T20 = VARCHAR(20) */,
NUMERODOCUMENTO T20 /* T20 = VARCHAR(20) */,
SERIE T3 NOT NULL /* T3 = VARCHAR(3) */,
CODIGOCLIENTE T20 /* T20 = VARCHAR(20) */,
NOMBRECLIENTE T40 /* T40 = VARCHAR(40) */,
FECHA DATE NOT NULL,
NOTA T80 /* T80 = VARCHAR(80) */
);

José Luis Garcí 10-08-2013 10:12:26

Me falto añadir el campo

Cita:

PESO NUMERIC(15,2)

José Luis Garcí 10-08-2013 14:36:19

Vamos con crear las rutas



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

José Luis Garcí 10-08-2013 17:48:35

La gestión de rutas



su código en https://gist.github.com/anonymous/6200819

José Luis Garcí 10-08-2013 17:49:42

Un cambio en el modulo de crear rutas en el botón buscar

Cita:

ActQuery(IbqbusDoc,'SELECT * FROM DOCUMENTOS WHERE (((NUMERORUTA < '+QuotedStr('1')+') AND (NUMERORUTA <> '+QuotedStr('-1')+')) OR (NUMERORUTA IS NULL)) AND (DOCUMENTOS.FECHA BETWEEN '+
QuotedStr(Cambiafecha(DateTimePicker1.Date))+' AND '+QuotedStr(Cambiafecha(DateTimePicker2.Date))+
') ORDER BY DOCUMENTOS.NUMERODOCUMENTO',True,True,False);

José Luis Garcí 10-08-2013 17:51:49

Si no estoy equivocado, me quedan dos módulos, sobre las comisiones, el menú, que será muy básico y comentaros que otras opciones puse en mi programa y listo, tutorial terminado, no diremos que he tardado mucho ?

José Luis Garcí 11-08-2013 09:49:11

Aquí sigo dando el coñazo, vamos con el módulo de pago de comisiones



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

José Luis Garcí 11-08-2013 10:32:04

Vamos con el módulo de gestión de comisiones



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

José Luis Garcí 11-08-2013 11:13:31

Y de los apartados el último, el menú



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

como podéis ver no hay un Splash, de entrada ni una petición de usuario inicial, pero si he puesto



ya que en cuanto suba los archivos, no tendréis información para acceder, lo explico en el código de dicho botón

Código Delphi [-]
procedure TFMenu.SpeedButtonBC2Click(Sender: TObject);
//------------------------------------------------------------------------------
//*******************************************************[ ENTRADA DIRECTA ]****
// Este botón será desactivado al terminar el programa
//------------------------------------------------------------------------------
begin //Realmente lo uso cuando estoy haciendo un programa, para no tener que
      //pasar por la ventana de usuarios, luego siempre lo elimino
   Usuario:='José Luis';
   Nivel:=9;
   VarSClaveUSuario:='231068';
   ALStatusBar1.Panels[1].Text:='Usuario [ '+Usuario+' ]-['+IntToStr(nivel)+']';
end;


La franja horaria es GMT +2. Ahora son las 21:45:39.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi