Programación


Una sentencia SQL en FIREBIRD. (Apunte personal) Seleccionamos CODIGO CLIENTE, SUMA(IMPORTE), SUMA(COSTE) y añadimos NOMBRE CLIENTE con un JOIN. SELECTe.CLIENTE_ID CODCLI,mc.NOMBRE NOMCLI,e.IMP IMPVEN,e.IMP_COS IMPCOSFROM (SELECT CLIENTE_ID,SUM(IMPORTE) IMP, SUM(IMPORTE_COSTE) IMP_COS FROM MOV_EXPEDICIONWHERE (FECHA BETWEEN :pFecDes AND :pFecHas) GROUP BY CLIENTE_ID) eJOIN MTR_CLIENTE mc ON mc.CODIGO = e.CLIENTE_ID

Firebird Select Sum Where Group By Join


Este es un script de cuatro líneas escrito en Python que lee todos los ficheros de la carpeta en la que se encuentra el pequeño programa, comprueba si la primera posición es un cero, si es así renombra el fichero eliminando la primera posición del nombre del fichero. import os for nomfic in os.listdir('.'): if nomfic.startswith('0'): os.rename(nomfic, nomfic[1:])import os for nomfic in os.listdir('.'): if nomfic.startswith('0'): os.rename(nomfic, nomfic[1:])

Script para renombrar archivos



Alinear importes a la derecha en un campo DBSpinEdit Este post es relámpago, ya que he buscado información por la web y no la he encontrado. Veamos como podemos solucionar la alineación de los campos DBSpinEdit a la derecha, como debe ser en los campos numéricos. Aquí el código… procedure Tmiformulario.AjustarDerechaImportes(); var inxs:integer; begin for inxs:=0 to ComponentCount -1 do begin if Components[inxs] is TRxDBSpinEdit then TRxDBSpinEdit(Components[inxs]).Alignment:=taRightJustify; end; end;procedure Tmiformulario.AjustarDerechaImportes(); var inxs:integer; begin for inxs:=0 to ComponentCount -1 do begin if Components[inxs] is TRxDBSpinEdit then TRxDBSpinEdit(Components[inxs]).Alignment:=taRightJustify; end; end;

Ajustar DBSpinEdit a la derecha (Importes)




        ¿Cómo activar el total de páginas en un listado creado con lazreport?. Vamos con una entrada cortita y sencilla. Tienes el problema de que en Lazreport el total de páginas siempre lo muestra como 0. Esta es la solución. 1.- File / Report Options …               2.- Activar «Two pass report».                     Espero que os sirva de ayuda. 🙂

Activar total páginas en lazreport


Ocultar campo según una condición dada. Veamos el problema es el siguiente: Tengo un listado en el que muestra una cabecera y un detalle, en el detalle tengo un campo que, dependiendo de una condición, estará visible o no. Para ello lo primero que voy a hacer es evaluar el campo que condiciona la visibilidad del campo «Concepto» y en el evento del listado «OnGetValue» añadiré el siguiente código: Código Fuente del programa. Evalúo si el parámetro es «MOSTRAR_CONCEPTO» Si el campo es null Indico que «MOSTRAR_CONCEPTO» vale 1 Si no «MOSTRAR_CONCEPTO» vale 0 procedure Tfrmfacturas.frFacturaGetValue(const ParName: String; var ParValue: […]

Ocultar columnas o campo en LazReport (Lazarus)