código fuente


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)




Campo calculado en lazarus     Vamos a crear una columna «Total» para que realice un cálculo simple en un dbgrid «Importe»*»Apunte»       zquery1 botón derecho editar campos Crear un nuevo campo y añadirlo en la posición actual (Insert) Calculados             procedure TDataModule1.ZQuery1CalcFields(DataSet: TDataSet); begin DATASET.FieldByName('Total').Value := dataset.fieldbyname('IMPORTE').Value *dataset.fieldbyname('APUNTE').VALUE; end; Fuerza y honor.

Campo calculado en Lazarus


Dbgrid en Lazarus       Veamos ahora como asignar el valor de una variable a un dbgrid en lazarus, realmente lo que haré será actualizar el DataSource que hace de puente entre el dbgrid y el dataset, en este caso una conexión con Zeos ZConnection. var vfrmCuadre: TfrmCuadre; vEstadillo: String; vFecha: String; implementation {$R *.lfm} { TfrmCuadre } procedure TfrmCuadre.FormCreate(Sender: TObject); begin DataModule1.ZQuery1.Open; end; procedure TfrmCuadre.DBGrid1ColExit(Sender: TObject); begin try if DBGRid1.SelectedIndex = 0 then vEstadillo:=Dbgrid1.Columns[0].Field.Text; if DBGRid1.SelectedIndex = 2 then vFecha:=Dbgrid1.Columns[2].Field.Text; except showmessage('Error en columna'); end; end; procedure TfrmCuadre.DataSource1UpdateData(Sender: TObject); begin if DataSource1.DataSet.FieldByName('ESTADILLO').Text= '' then DataSource1.DataSet.Fieldbyname('ESTADILLO').AsString := vEstadillo; if […]

Asignar valor a columna dbgrid en Lazarus



Uso config.ini en Lazarus. Veamos la configuración del fichero config.ini para la carga de los datos iniciales  de la aplicación realizada en lazarus. fichero config.ini [Configuracion] Usuario=SYSDBA Clave=masterkey Servidor=localhost BasedeDatos=F:\Lazarus\Cuadre\CUADRE.FDB Libreria=F:\Lazarus\Cuadre\fbclient.dll RutaConta=F:\Lazarus\Cuadre\dbf\ var ini: TINIFile; begin try ini := TINIFile.Create('config.ini'); ZConnection1.User:=ini.ReadString ('Configuracion', 'Usuario', ''); ZConnection1.Password:=ini.ReadString ('Configuracion', 'Clave', ''); ZConnection1.HostName:=ini.ReadString ('Configuracion', 'Servidor', ''); ZConnection1.Database:=ini.ReadString ('Configuracion', 'BasedeDatos', ''); ZConnection1.LibraryLocation:=ini.ReadString ('Configuracion', 'Libreria', ''); Dbf1.FilePathFull:=ini.ReadString ('Configuracion', 'RutaConta', ''); ini.free; except showmessage('Error al conectar la base de datos'); end; Fuerza y honor.

Archivo config.ini en Lazarus


Aquí tenéis el código fuente del script realizado en python que convierte el fichero txt a xml de una remesa sepa del cuaderno 19. import sys,os, os.path, shutil, time from lxml import etree #------------------------------------------------------ # # Función que devuelve el importe sin separación decimal. # #------------------------------------------------------ def conviertenumero(numero,decimales): if str.isnumeric(str(decimales)) == 'False': decimales = 0 # convierte el importe en float sin decimales importe = "{:.0f}".format(float(numero)) # calcula la longitud del importe limporte = len(importe) # dos ultimas posiciones para los decimales, el resto parte entera y . decimal if decimales != 0: importe = importe[0:limporte-decimales] + "." + importe[limporte-decimales:limporte] […]

Convertir ficheros de txt a xml sepa