lazarus


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)


Documentación realizada sobre el software para realizar facturas de varios tipos de alquileres.   Aquí os presento un documento de un programa que permite de una forma muy muy … sencilla de generar las facturas a los distintos inquilinos. Es una aplicación imprescindible para «Administradores de Fincas» o propietarios con varias propiedades arrendadas. Dispone de los siguientes módulos: Gestión de arrendadores – propietarios. Gestión de arrendatarios – inquilinos. Gestión de facturas a inquilinos. Gestión de proveedores. Gestión de tipos de gastos. Gestión de gastos. Gestión de usuarios. Gestión de poblaciones. Gestión de provincias. Actualizaciones de IPC sobre precios de alquileres […]

Documentación avjArrienda.



        ¿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;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 […]

Enviar email desde Lazarus smtp indy


¿Cómo insertar un combo dentro de un dbgrid? unit provincia;   {$mode objfpc}{$H+}   interface   uses Classes, SysUtils, db, FileUtil, Forms, Controls, Graphics, Dialogs, DbCtrls, DBGrids, Grids;   type   { TForm4 }   TForm4 = class(TForm) DBGrid1: TDBGrid; DBLookupComboBox1: TDBLookupComboBox; DBNavigator1: TDBNavigator; dsProvincia: TDataSource; dsPais: TDataSource; procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); private { private declarations } public { public declarations } end;   var Form4: TForm4;   implementation   {$R *.lfm}   { TForm4 }   procedure TForm4.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (gdFocused […]

Insertar un Combo de otra tabla en un DBGrid