Programación


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

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;

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)


    Cómo enviar emails desde [Lazarus] con Indy 10.   Incluimos las unidades necesarias para el proyecto. En este caso las unidades imprescindibles para que funcione el envío de email usando TSL son: IdSMTP IdMessage IdAttachmentFile IdIOHandler IdIOHandlerStack IdSSL IdSSLOpenSSL IdExplicitTLSClientServerBase La unidad quedaría así: uses Classes, SysUtils,Windows,DBGrids,Graphics,ZAbstractRODataset,ZDataset,DB,WinSock, IdSMTP,IdMessage,IdAttachmentFile, IdIOHandler, IdIOHandlerStack, IdSSL,IdSSLOpenSSL, IdExplicitTLSClientServerBase;   Creando el procedimiento para enviar los correos electrónicos. procedure EnviarMensaje( sUsuario, sClave, sHost, sAdjunto, sAsunto, sDestino, sMensaje,sRemitente: String; sPuerto:integer ); var SMTP: TIdSMTP; Mensaje: TIdMessage; Adjunto: TIdAttachmentFile; IdSSLIOHandlerSocket: TIdSSLIOHandlerSocketOpenSSL; begin // Creamos el componente de conexión con el servidor IdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create( nil ); IdSSLIOHandlerSocket.SSLOptions.Method […]

Enviar email desde Lazarus smtp indy