unit pagamenti;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, IBConnection, sqldb, pqconnection, odbcconn, db, SdfData,
FileUtil, LR_Class, LR_DBSet, LR_View, LR_DSet, LR_BarC,
LResources, Forms, Controls, Graphics, Dialogs, DbCtrls, DBGrids, StdCtrls,
ComCtrls, EditBtn, Menus, ExtCtrls;
type
{ TFPagamenti }
TFPagamenti = class(TForm)
CmdIndietro: TButton;
Datasource1: TDatasource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBGrid2: TDBGrid;
DBNavigator2: TDBNavigator;
DBRadioGroup1: TDBRadioGroup;
IBConnection1: TIBConnection;
Label1: TLabel;
Label2: TLabel;
SQLQuery1: TSQLQuery;
SQLTransaction1: TSQLTransaction;
procedure CmdIndietroClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
FPagamenti: TFPagamenti;
implementation
{ TFPagamenti }
function depura(inzvar:string):string;
var
i:integer;
app:string;
begin
app:= '';
app:=stringReplace(inzvar, '''', '´', [RfReplaceAll]);
app:=stringReplace(app, '&', 'e', [RfReplaceAll]);
result:=app;
end;
Function estrai_var(var campo: string):string;
// legge un campo dalla stringa e lo cancella
var appstring: string;
begin
appstring := '';
if pos('^', campo)>0 then
begin
appstring := copy(campo,1,pos('^', campo)-1);
Delete(campo,1,pos('^', campo));
end;
result:=appstring;
end;
function depuranum(inzvar:string):string;
var app:string;
begin
app:= '';
app:=stringReplace(inzvar, ',', '.', [RfReplaceAll]);
result:=app;
end;
function destra(s: string; num:integer):string;
var k:string;
begin
k:='';
if num <= length(s) then
begin
k := copy(s,length(s) - num +1, num);
end;
result:=k;
end;
procedure TFPagamenti.CmdIndietroClick(Sender: TObject);
begin
close;
end;
initialization
{$I pagamenti.lrs}
end.