Se adaptan los montajes para que los montajes de baños tengan una ficha de beneficios especifica por defecto. Se arregla el calculo de comisiones para que se pueda filtrar por familia y se agranda el capo forma de pago para los pagos
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@15 9a1d36f3-7752-2d40-8ccb-50eb49674c68
This commit is contained in:
parent
993283eefd
commit
ab2f55bcfa
@ -21,7 +21,7 @@ CREATE DOMAIN "CORREOS" AS VARCHAR(60);
|
||||
CREATE DOMAIN "DESCRIPCIONES" AS VARCHAR(2000);
|
||||
CREATE DOMAIN "FAMILIAS" AS VARCHAR(50);
|
||||
CREATE DOMAIN "FECHAS" AS DATE;
|
||||
CREATE DOMAIN "FORMASPAGO" AS VARCHAR(50);
|
||||
CREATE DOMAIN "FORMASPAGO" AS VARCHAR(200);
|
||||
CREATE DOMAIN "IMPORTES2" AS NUMERIC(11,2) DEFAULT 0;
|
||||
CREATE DOMAIN "IMPORTES4" AS NUMERIC(13,4) DEFAULT 0;
|
||||
CREATE DOMAIN "IMPORTES6" AS NUMERIC(15,6) DEFAULT 0;
|
||||
|
||||
@ -114,7 +114,7 @@ IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=5
|
||||
Release=1
|
||||
Release=2
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
@ -126,13 +126,13 @@ CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=Rodax Software S.L.
|
||||
FileDescription=
|
||||
FileVersion=1.5.1.0
|
||||
FileVersion=1.5.2.0
|
||||
InternalName=FactuGES
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=FactuGES
|
||||
ProductVersion=1.5.1.0
|
||||
ProductVersion=1.5.2.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
|
||||
@ -183,8 +183,8 @@ Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[HistoryLists\hlSearchPath]
|
||||
Count=16
|
||||
Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
|
||||
Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
|
||||
Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
|
||||
Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
|
||||
Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
|
||||
@ -204,8 +204,8 @@ Count=1
|
||||
Item0=.\
|
||||
[HistoryLists\hlOutputDirectorry]
|
||||
Count=2
|
||||
Item0=..\Output\Servidor
|
||||
Item1=..\Output\Cliente
|
||||
Item0=..\Output\Cliente
|
||||
Item1=..\Output\Servidor
|
||||
[HistoryLists\hlBPLOutput]
|
||||
Count=3
|
||||
Item0=..\..\..\Output\Cliente
|
||||
|
||||
Binary file not shown.
@ -10,6 +10,8 @@ object dmComisiones: TdmComisiones
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Left = 1265
|
||||
Top = 212
|
||||
Height = 668
|
||||
Width = 358
|
||||
object RORemoteService: TRORemoteService
|
||||
@ -321,6 +323,18 @@ object dmComisiones: TdmComisiones
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 6
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CODIGOCATEGORIA'
|
||||
DataType = datInteger
|
||||
|
||||
@ -2,7 +2,7 @@ unit uDataModuleComisiones;
|
||||
|
||||
interface
|
||||
|
||||
uses {vcl:} SysUtils, Classes, DB, DBClient,
|
||||
uses {vcl:} SysUtils, Classes, DB, DBClient,
|
||||
{RemObjects:} uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||
uROWinInetHttpChannel, uDataModuleBase, uDAScriptingProvider,
|
||||
@ -29,7 +29,7 @@ type
|
||||
procedure SetComision(Codigo : Integer; Comision : Float);
|
||||
procedure CalcularComisiones;
|
||||
|
||||
function GetCobrosComision(FechaInicial, FechaFinal : TDateTime): IBizCobrosComision;
|
||||
function GetCobrosComision(FechaInicial, FechaFinal : TDateTime; const Tipo: String): IBizCobrosComision;
|
||||
end;
|
||||
|
||||
var
|
||||
@ -37,7 +37,7 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
uses FactuGES_Intf, DataAbstract_Intf, Controls, forms, uDataTableUtils,
|
||||
uses FactuGES_Intf, DataAbstract_Intf, uDAInterfaces, Controls, forms, uDataTableUtils,
|
||||
uGUIBase, uEditorComisiones, schComisionesClient_Intf;
|
||||
|
||||
{$R *.DFM}
|
||||
@ -65,7 +65,7 @@ begin
|
||||
RORemoteService.Message := dmBase.ROMessage;
|
||||
end;
|
||||
|
||||
function TdmComisiones.GetCobrosComision(FechaInicial, FechaFinal: TDateTime): IBizCobrosComision;
|
||||
function TdmComisiones.GetCobrosComision(FechaInicial, FechaFinal: TDateTime; const Tipo: String): IBizCobrosComision;
|
||||
var
|
||||
dtCobrosComision: TDACDSDataTable;
|
||||
AParams : TDADatasetParamArray;
|
||||
@ -94,6 +94,27 @@ begin
|
||||
DataRequestCall.ParamByName(par_Params).AsComplexType := AParams;
|
||||
end;
|
||||
|
||||
if Tipo = 'Cocina' then
|
||||
begin
|
||||
with dtCobrosComision.Where do
|
||||
begin
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText('V_TIPOS_PAGO.' + fld_COBROSCOMISIONTIPO + ' = ''Cocina''', False);
|
||||
CloseBraket;
|
||||
end;
|
||||
end
|
||||
else if Tipo = 'Baño' then
|
||||
begin
|
||||
with dtCobrosComision.Where do
|
||||
begin
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText('V_TIPOS_PAGO.' + fld_COBROSCOMISIONTIPO + ' = ''Baño''', False);
|
||||
CloseBraket;
|
||||
end;
|
||||
end;
|
||||
|
||||
(dtCobrosComision as IBizCobrosComision).VendedoresComision := GetVendedoresComision;
|
||||
|
||||
Result := (dtCobrosComision as IBizCobrosComision);
|
||||
|
||||
@ -54,8 +54,9 @@ inherited fEditorComisiones: TfEditorComisiones
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 843
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Left = 185
|
||||
Left = 184
|
||||
DockPos = 184
|
||||
Visible = False
|
||||
inherited TBXItem37: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -67,15 +68,15 @@ inherited fEditorComisiones: TfEditorComisiones
|
||||
end
|
||||
object dxLayoutControl1: TdxLayoutControl [3]
|
||||
Left = 0
|
||||
Top = 76
|
||||
Top = 102
|
||||
Width = 843
|
||||
Height = 533
|
||||
Height = 507
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
object edtFechaIni: TcxDateEdit
|
||||
Left = 61
|
||||
Left = 63
|
||||
Top = 30
|
||||
Properties.DateButtons = [btnToday]
|
||||
Properties.DateOnError = deToday
|
||||
@ -98,7 +99,7 @@ inherited fEditorComisiones: TfEditorComisiones
|
||||
Width = 297
|
||||
end
|
||||
object edtFechaFin: TcxDateEdit
|
||||
Left = 400
|
||||
Left = 401
|
||||
Top = 30
|
||||
Properties.DateButtons = [btnToday]
|
||||
Properties.DateOnError = deToday
|
||||
@ -131,10 +132,10 @@ inherited fEditorComisiones: TfEditorComisiones
|
||||
end
|
||||
object cxGrid: TcxGrid
|
||||
Left = 22
|
||||
Top = 357
|
||||
Top = 331
|
||||
Width = 799
|
||||
Height = 160
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
LookAndFeel.Kind = lfOffice11
|
||||
LookAndFeel.NativeStyle = True
|
||||
object cxGridView: TcxGridDBTableView
|
||||
@ -218,7 +219,7 @@ inherited fEditorComisiones: TfEditorComisiones
|
||||
end
|
||||
object edtImporteCobros: TcxCurrencyEdit
|
||||
Left = 685
|
||||
Top = 306
|
||||
Top = 280
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
Properties.ReadOnly = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -231,15 +232,15 @@ inherited fEditorComisiones: TfEditorComisiones
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
TabOrder = 4
|
||||
Width = 136
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 22
|
||||
Top = 85
|
||||
Top = 112
|
||||
Width = 799
|
||||
Height = 215
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
LookAndFeel.Kind = lfOffice11
|
||||
LookAndFeel.NativeStyle = True
|
||||
object cxGridDBTableView1: TcxGridDBTableView
|
||||
@ -367,31 +368,64 @@ inherited fEditorComisiones: TfEditorComisiones
|
||||
Height = 5
|
||||
AlignSplitter = salTop
|
||||
end
|
||||
object cxFamilia: TcxComboBox
|
||||
Left = 63
|
||||
Top = 61
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.DropDownRows = 4
|
||||
Properties.Items.Strings = (
|
||||
'Todas'
|
||||
'Cocina'
|
||||
'Ba'#241'o')
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
Text = 'Todas'
|
||||
Width = 121
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
Caption = 'Seleccione el rango de fechas'
|
||||
LayoutDirection = ldHorizontal
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Desde:'
|
||||
Control = edtFechaIni
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'hasta:'
|
||||
Control = edtFechaFin
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
Caption = 'New Item'
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Control = Button1
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Desde:'
|
||||
Control = edtFechaIni
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'hasta:'
|
||||
Control = edtFechaFin
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
Caption = 'New Item'
|
||||
ShowCaption = False
|
||||
Control = Button1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item7: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
Caption = 'Familia:'
|
||||
Control = cxFamilia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
@ -521,7 +555,7 @@ inherited fEditorComisiones: TfEditorComisiones
|
||||
PrinterPage.ScaleMode = smFit
|
||||
PrinterPage._dxMeasurementUnits_ = 0
|
||||
PrinterPage._dxLastMU_ = 2
|
||||
ReportDocument.CreationDate = 39393.710588645830000000
|
||||
ReportDocument.CreationDate = 39968.541274768520000000
|
||||
ReportDocument.IsCaptionAssigned = True
|
||||
ShrinkToPageWidth = True
|
||||
Items = <
|
||||
@ -557,7 +591,7 @@ inherited fEditorComisiones: TfEditorComisiones
|
||||
PrinterPage.ScaleMode = smFit
|
||||
PrinterPage._dxMeasurementUnits_ = 0
|
||||
PrinterPage._dxLastMU_ = 2
|
||||
ReportDocument.CreationDate = 39393.710588645830000000
|
||||
ReportDocument.CreationDate = 39968.541274768520000000
|
||||
ReportTitle.Font.Charset = DEFAULT_CHARSET
|
||||
ReportTitle.Font.Color = clBlack
|
||||
ReportTitle.Font.Height = -16
|
||||
@ -594,7 +628,7 @@ inherited fEditorComisiones: TfEditorComisiones
|
||||
PrinterPage.ScaleMode = smFit
|
||||
PrinterPage._dxMeasurementUnits_ = 0
|
||||
PrinterPage._dxLastMU_ = 2
|
||||
ReportDocument.CreationDate = 39393.710588645830000000
|
||||
ReportDocument.CreationDate = 39968.541274768520000000
|
||||
ReportTitle.Font.Charset = DEFAULT_CHARSET
|
||||
ReportTitle.Font.Color = clBlack
|
||||
ReportTitle.Font.Height = -16
|
||||
|
||||
@ -73,6 +73,9 @@ type
|
||||
dxComponentPrinterLink3: TdxGridReportLink;
|
||||
dxComponentPrinterLink2: TdxCompositionReportLink;
|
||||
cxStyle1: TcxStyle;
|
||||
cxFamilia: TcxComboBox;
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure edtFechaIniPropertiesValidate(Sender: TObject;
|
||||
@ -109,7 +112,7 @@ begin
|
||||
if Assigned(FCobrosComision) then
|
||||
FCobrosComision := Nil;
|
||||
|
||||
FCobrosComision := dmComisiones.GetCobrosComision(edtFechaIni.Date, edtFechaFin.Date);
|
||||
FCobrosComision := dmComisiones.GetCobrosComision(edtFechaIni.Date, edtFechaFin.Date, cxFamilia.text);
|
||||
DADataSource.DataTable := FCobrosComision.DataTable;
|
||||
DADataSource2.DataTable := FCobrosComision.VendedoresComision.DataTable;
|
||||
FCobrosComision.OnTotalChanged := OnTotalChanged;
|
||||
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_VENDEDORESCOMISION = '{1BC4C0DE-A875-4DF3-BD41-683A8C4F961F}';
|
||||
RID_COMISIONES = '{6B2BBEE4-C97B-44C0-9D4B-A66082B1A01F}';
|
||||
RID_COBROSCOMISION = '{766D9F94-5866-441D-A089-C4411C671E01}';
|
||||
RID_VENDEDORESCOMISION = '{1991386F-7432-48B0-A983-6E486684278E}';
|
||||
RID_COMISIONES = '{E02C1BEE-E392-4BA3-AF6E-F0767D43EEED}';
|
||||
RID_COBROSCOMISION = '{9A01A4E9-2DE3-4E5B-B0EE-97BD47A2F4CC}';
|
||||
|
||||
{ Data table names }
|
||||
nme_VENDEDORESCOMISION = 'VENDEDORESCOMISION';
|
||||
@ -44,6 +44,7 @@ const
|
||||
fld_COBROSCOMISIONIMPORTE = 'IMPORTE';
|
||||
fld_COBROSCOMISIONFORMAPAGO = 'FORMAPAGO';
|
||||
fld_COBROSCOMISIONDESCRIPCION = 'DESCRIPCION';
|
||||
fld_COBROSCOMISIONTIPO = 'TIPO';
|
||||
fld_COBROSCOMISIONCODIGOCATEGORIA = 'CODIGOCATEGORIA';
|
||||
fld_COBROSCOMISIONCATEGORIA = 'CATEGORIA';
|
||||
|
||||
@ -57,13 +58,14 @@ const
|
||||
idx_COBROSCOMISIONIMPORTE = 6;
|
||||
idx_COBROSCOMISIONFORMAPAGO = 7;
|
||||
idx_COBROSCOMISIONDESCRIPCION = 8;
|
||||
idx_COBROSCOMISIONCODIGOCATEGORIA = 9;
|
||||
idx_COBROSCOMISIONCATEGORIA = 10;
|
||||
idx_COBROSCOMISIONTIPO = 9;
|
||||
idx_COBROSCOMISIONCODIGOCATEGORIA = 10;
|
||||
idx_COBROSCOMISIONCATEGORIA = 11;
|
||||
|
||||
type
|
||||
{ IVENDEDORESCOMISION }
|
||||
IVENDEDORESCOMISION = interface(IDAStronglyTypedDataTable)
|
||||
['{4B0EE488-AE5C-4F1B-907A-08A753A211FC}']
|
||||
['{240371ED-0F0F-4D1F-B6D2-98F2C95F9090}']
|
||||
{ Property getters and setters }
|
||||
function GetVENDEDORValue: String;
|
||||
procedure SetVENDEDORValue(const aValue: String);
|
||||
@ -104,7 +106,7 @@ type
|
||||
|
||||
{ ICOMISIONES }
|
||||
ICOMISIONES = interface(IDAStronglyTypedDataTable)
|
||||
['{16E451A9-2317-4BCF-A569-278333EEAB2C}']
|
||||
['{E5981A96-57D7-4E08-874A-0EEA50CD28DE}']
|
||||
{ Property getters and setters }
|
||||
function GetCOMISIONValue: Float;
|
||||
procedure SetCOMISIONValue(const aValue: Float);
|
||||
@ -133,7 +135,7 @@ type
|
||||
|
||||
{ ICOBROSCOMISION }
|
||||
ICOBROSCOMISION = interface(IDAStronglyTypedDataTable)
|
||||
['{3B95C673-4F15-449B-9757-2074539B57AC}']
|
||||
['{227279E8-9B85-40AC-97BE-1A7D46C7EA4E}']
|
||||
{ Property getters and setters }
|
||||
function GetSELECCIONValue: Integer;
|
||||
procedure SetSELECCIONValue(const aValue: Integer);
|
||||
@ -153,6 +155,8 @@ type
|
||||
procedure SetFORMAPAGOValue(const aValue: String);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetTIPOValue: String;
|
||||
procedure SetTIPOValue(const aValue: String);
|
||||
function GetCODIGOCATEGORIAValue: Integer;
|
||||
procedure SetCODIGOCATEGORIAValue(const aValue: Integer);
|
||||
function GetCATEGORIAValue: String;
|
||||
@ -169,6 +173,7 @@ type
|
||||
property IMPORTE: Float read GetIMPORTEValue write SetIMPORTEValue;
|
||||
property FORMAPAGO: String read GetFORMAPAGOValue write SetFORMAPAGOValue;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property CODIGOCATEGORIA: Integer read GetCODIGOCATEGORIAValue write SetCODIGOCATEGORIAValue;
|
||||
property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue;
|
||||
end;
|
||||
@ -196,6 +201,8 @@ type
|
||||
procedure SetFORMAPAGOValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetCODIGOCATEGORIAValue: Integer; virtual;
|
||||
procedure SetCODIGOCATEGORIAValue(const aValue: Integer); virtual;
|
||||
function GetCATEGORIAValue: String; virtual;
|
||||
@ -211,6 +218,7 @@ type
|
||||
property IMPORTE: Float read GetIMPORTEValue write SetIMPORTEValue;
|
||||
property FORMAPAGO: String read GetFORMAPAGOValue write SetFORMAPAGOValue;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property CODIGOCATEGORIA: Integer read GetCODIGOCATEGORIAValue write SetCODIGOCATEGORIAValue;
|
||||
property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue;
|
||||
|
||||
@ -389,6 +397,16 @@ begin
|
||||
DataTable.Fields[idx_COBROSCOMISIONDESCRIPCION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCOBROSCOMISIONDataTableRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_COBROSCOMISIONTIPO].AsString;
|
||||
end;
|
||||
|
||||
procedure TCOBROSCOMISIONDataTableRules.SetTIPOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_COBROSCOMISIONTIPO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCOBROSCOMISIONDataTableRules.GetCODIGOCATEGORIAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_COBROSCOMISIONCODIGOCATEGORIA].AsInteger;
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_VENDEDORESCOMISIONDelta = '{47FDF38D-3FF4-4F15-A4B1-212E3669BFAA}';
|
||||
RID_COMISIONESDelta = '{DCCDF3B3-6238-4524-80E8-5533335061DD}';
|
||||
RID_COBROSCOMISIONDelta = '{15955B4C-796B-49D4-8F2B-07BA91EECB3D}';
|
||||
RID_VENDEDORESCOMISIONDelta = '{AF94D568-59E7-44E9-9FDD-59EDEA47900F}';
|
||||
RID_COMISIONESDelta = '{9705E926-9D16-4A15-A5F5-E33C2AB163C2}';
|
||||
RID_COBROSCOMISIONDelta = '{9C3DE44E-1C94-4E84-A840-8855CEACFEEB}';
|
||||
|
||||
type
|
||||
{ IVENDEDORESCOMISIONDelta }
|
||||
IVENDEDORESCOMISIONDelta = interface(IVENDEDORESCOMISION)
|
||||
['{47FDF38D-3FF4-4F15-A4B1-212E3669BFAA}']
|
||||
['{AF94D568-59E7-44E9-9FDD-59EDEA47900F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldVENDEDORValue : String;
|
||||
function GetOldPORCENTAJEValue : Float;
|
||||
@ -59,7 +59,7 @@ type
|
||||
|
||||
{ ICOMISIONESDelta }
|
||||
ICOMISIONESDelta = interface(ICOMISIONES)
|
||||
['{DCCDF3B3-6238-4524-80E8-5533335061DD}']
|
||||
['{9705E926-9D16-4A15-A5F5-E33C2AB163C2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldCOMISIONValue : Float;
|
||||
|
||||
@ -88,7 +88,7 @@ type
|
||||
|
||||
{ ICOBROSCOMISIONDelta }
|
||||
ICOBROSCOMISIONDelta = interface(ICOBROSCOMISION)
|
||||
['{15955B4C-796B-49D4-8F2B-07BA91EECB3D}']
|
||||
['{9C3DE44E-1C94-4E84-A840-8855CEACFEEB}']
|
||||
{ Property getters and setters }
|
||||
function GetOldSELECCIONValue : Integer;
|
||||
function GetOldCODIGOEMPRESAValue : Integer;
|
||||
@ -99,6 +99,7 @@ type
|
||||
function GetOldIMPORTEValue : Float;
|
||||
function GetOldFORMAPAGOValue : String;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldTIPOValue : String;
|
||||
function GetOldCODIGOCATEGORIAValue : Integer;
|
||||
function GetOldCATEGORIAValue : String;
|
||||
|
||||
@ -112,6 +113,7 @@ type
|
||||
property OldIMPORTE : Float read GetOldIMPORTEValue;
|
||||
property OldFORMAPAGO : String read GetOldFORMAPAGOValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property OldCODIGOCATEGORIA : Integer read GetOldCODIGOCATEGORIAValue;
|
||||
property OldCATEGORIA : String read GetOldCATEGORIAValue;
|
||||
end;
|
||||
@ -148,6 +150,9 @@ type
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
function GetOldDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
function GetOldTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetCODIGOCATEGORIAValue: Integer; virtual;
|
||||
function GetOldCODIGOCATEGORIAValue: Integer; virtual;
|
||||
procedure SetCODIGOCATEGORIAValue(const aValue: Integer); virtual;
|
||||
@ -174,6 +179,8 @@ type
|
||||
property OldFORMAPAGO : String read GetOldFORMAPAGOValue;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property TIPO : String read GetTIPOValue write SetTIPOValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property CODIGOCATEGORIA : Integer read GetCODIGOCATEGORIAValue write SetCODIGOCATEGORIAValue;
|
||||
property OldCODIGOCATEGORIA : Integer read GetOldCODIGOCATEGORIAValue;
|
||||
property CATEGORIA : String read GetCATEGORIAValue write SetCATEGORIAValue;
|
||||
@ -420,6 +427,21 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_COBROSCOMISIONDESCRIPCION] := aValue;
|
||||
end;
|
||||
|
||||
function TCOBROSCOMISIONBusinessProcessorRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_COBROSCOMISIONTIPO];
|
||||
end;
|
||||
|
||||
function TCOBROSCOMISIONBusinessProcessorRules.GetOldTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_COBROSCOMISIONTIPO];
|
||||
end;
|
||||
|
||||
procedure TCOBROSCOMISIONBusinessProcessorRules.SetTIPOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_COBROSCOMISIONTIPO] := aValue;
|
||||
end;
|
||||
|
||||
function TCOBROSCOMISIONBusinessProcessorRules.GetCODIGOCATEGORIAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_COBROSCOMISIONCODIGOCATEGORIA];
|
||||
|
||||
@ -142,12 +142,12 @@ Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[HistoryLists\hlSearchPath]
|
||||
Count=16
|
||||
Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
|
||||
Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
|
||||
Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
|
||||
Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
|
||||
Item4=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
|
||||
Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
|
||||
Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
|
||||
Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
|
||||
Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
|
||||
Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
|
||||
Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
|
||||
Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
|
||||
Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
|
||||
|
||||
@ -522,7 +522,13 @@ object dmMontajes: TdmMontajes
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
Params = <
|
||||
item
|
||||
Name = 'tipo'
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
|
||||
@ -33,7 +33,7 @@ type
|
||||
procedure PreviewEtiquetas(const Codigo : Integer; const NumEtiquetas : Integer);
|
||||
procedure PrintEtiquetas(const Codigo : Integer; const NumEtiquetas : Integer);
|
||||
function PuedoEliminarMontaje(Codigo : Integer) : Boolean;
|
||||
function darFichaBeneficiosAux: IFichaBeneficios_Aux;
|
||||
function darFichaBeneficiosAux(const Tipo: String): IFichaBeneficios_Aux;
|
||||
procedure NuevoMontaje(AMontaje: IBizMontaje; APresupuesto: IBizPresupuestos);
|
||||
function CambiarSituacion(CodigoPresupuesto: Integer; Situacion: TEnumSituacion): String;
|
||||
function DarNuevaReferencia (TipoMontaje : String) : String;
|
||||
@ -288,6 +288,10 @@ begin
|
||||
AMontaje.DataTable.Active := True;
|
||||
end;
|
||||
|
||||
//Siempre antes de la inserción que en el onnew de la clase de negocio se sepa que tipo de montaje será
|
||||
//y poder generar la ficha de beneficios correspondiente
|
||||
AMontaje.TipoFichaBeneficios := APresupuesto.TIPO;
|
||||
|
||||
AMontaje.Insert;
|
||||
AMontaje.Presupuesto := APresupuesto;
|
||||
AMontaje.Post;
|
||||
@ -297,7 +301,7 @@ begin
|
||||
// raise Exception.Create('Error al crear ficha de beneficios');
|
||||
end;
|
||||
|
||||
function TdmMontajes.darFichaBeneficiosAux: IFichaBeneficios_Aux;
|
||||
function TdmMontajes.darFichaBeneficiosAux(const Tipo: String): IFichaBeneficios_Aux;
|
||||
var
|
||||
dtFichaBeneficiosAux: TDACDSDataTable;
|
||||
ACursor: TCursor;
|
||||
@ -308,6 +312,7 @@ begin
|
||||
dtFichaBeneficiosAux := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(tbl_FichaBeneficios_Aux, dtFichaBeneficiosAux);
|
||||
dtFichaBeneficiosAux.BusinessRulesID := 'BizFichaBeneficiosAux';
|
||||
dtFichaBeneficiosAux.ParamByName('TIPO').AsString := Tipo;
|
||||
Result := (dtFichaBeneficiosAux as IFichaBeneficios_Aux);
|
||||
finally
|
||||
Screen.Cursor := ACursor;
|
||||
|
||||
@ -1,10 +1,7 @@
|
||||
inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
|
||||
Width = 582
|
||||
Height = 437
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 25
|
||||
Width = 582
|
||||
Height = 412
|
||||
Top = 127
|
||||
Height = 143
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.DataModeController.SmartRefresh = False
|
||||
DataController.DataModeController.SyncMode = True
|
||||
@ -89,7 +86,7 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
|
||||
object ToolBar1: TToolBar [1]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 582
|
||||
Width = 443
|
||||
Height = 25
|
||||
ButtonWidth = 63
|
||||
Caption = 'ToolBar1'
|
||||
@ -100,7 +97,7 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
|
||||
Images = PngImageList
|
||||
List = True
|
||||
ShowCaptions = True
|
||||
TabOrder = 1
|
||||
TabOrder = 2
|
||||
object ToolButton1: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -120,6 +117,24 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
|
||||
Style = tbsSeparator
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Top = 25
|
||||
inherited TBXDock1: TTBXDock
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
Images = PngImageList
|
||||
Left = 8
|
||||
|
||||
@ -12,7 +12,7 @@ uses
|
||||
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
|
||||
ComCtrls, ToolWin, cxCurrencyEdit, Grids, DBGrids;
|
||||
ComCtrls, ToolWin, cxCurrencyEdit, Grids, DBGrids, uViewFiltroBase;
|
||||
|
||||
type
|
||||
IViewFichaBeneficiosMontaje = interface(IViewGrid)
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosMontajes = '{8A77AA23-1850-4C51-9890-61883469A21D}';
|
||||
RID_darNuevaReferencia = '{98BF35DF-261B-4AF5-B3EC-024D293CB3BF}';
|
||||
RID_InformeCabeceraFicha = '{9FCA86CA-5B72-45D8-8B2E-623344608585}';
|
||||
RID_Montajes = '{EA56C374-7E7B-4FC5-8C42-1D65BA1BD7EF}';
|
||||
RID_Refresh_Montajes = '{A948AC0C-F4EF-465D-B2DD-FA4301D3B029}';
|
||||
RID_FichaBeneficios = '{8572BE0C-91B5-4D2C-B729-BB13BAEBC13D}';
|
||||
RID_InformeDetallesFicha = '{D3E3E171-62A4-465E-A954-3EDF6EB38F6F}';
|
||||
RID_FichaBeneficios_Aux = '{5D3EC453-7D49-4AB0-98C0-7F0807279919}';
|
||||
RID_ListaAnosMontajes = '{10881790-553A-425B-9F2E-0CC35DFE857E}';
|
||||
RID_darNuevaReferencia = '{60945159-4D44-4B8E-BC3E-1C95824A8AC2}';
|
||||
RID_InformeCabeceraFicha = '{E3EB8788-472C-486F-BCFC-E98118F19998}';
|
||||
RID_Montajes = '{A14C4188-93BF-4D1D-BE0A-9654CC28F4FD}';
|
||||
RID_Refresh_Montajes = '{82271F6F-81CF-4FF7-B441-119ECDA6237D}';
|
||||
RID_FichaBeneficios = '{B6BF0EDB-B4F1-4168-8DC7-1292216AA53C}';
|
||||
RID_InformeDetallesFicha = '{807EBD75-BB62-492F-A95D-D8FBE5A02B7E}';
|
||||
RID_FichaBeneficios_Aux = '{EB05CA72-57ED-46B0-AEAD-E782D88B0E28}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosMontajes = 'ListaAnosMontajes';
|
||||
@ -177,7 +177,7 @@ const
|
||||
type
|
||||
{ IListaAnosMontajes }
|
||||
IListaAnosMontajes = interface(IDAStronglyTypedDataTable)
|
||||
['{6FCA63AA-AE36-4EF9-BFCB-91693E467AE1}']
|
||||
['{C41C6AA9-6F44-4CBF-9DA5-0BD9378E0EB1}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -206,7 +206,7 @@ type
|
||||
|
||||
{ IdarNuevaReferencia }
|
||||
IdarNuevaReferencia = interface(IDAStronglyTypedDataTable)
|
||||
['{A6774E16-4A24-4A3D-A8D6-93ADD76C90AF}']
|
||||
['{0EBF89CD-1B5F-4D69-BC2A-FF9944E763CA}']
|
||||
{ Property getters and setters }
|
||||
function GetREFERENCIAValue: String;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
@ -235,7 +235,7 @@ type
|
||||
|
||||
{ IInformeCabeceraFicha }
|
||||
IInformeCabeceraFicha = interface(IDAStronglyTypedDataTable)
|
||||
['{232A3364-2478-4717-BD42-3DBAE60B11CC}']
|
||||
['{D4FB53A7-C48C-4E41-A377-566F6B62C634}']
|
||||
{ Property getters and setters }
|
||||
function GetREFERENCIAValue: String;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
@ -348,7 +348,7 @@ type
|
||||
|
||||
{ IMontajes }
|
||||
IMontajes = interface(IDAStronglyTypedDataTable)
|
||||
['{E50B9717-4671-4DC6-896B-F2C3EC14C399}']
|
||||
['{46E79BA3-95C8-4752-8D16-6C04CD5B50F3}']
|
||||
{ Property getters and setters }
|
||||
function GetCODIGOEMPRESAValue: Integer;
|
||||
procedure SetCODIGOEMPRESAValue(const aValue: Integer);
|
||||
@ -449,7 +449,7 @@ type
|
||||
|
||||
{ IRefresh_Montajes }
|
||||
IRefresh_Montajes = interface(IDAStronglyTypedDataTable)
|
||||
['{B31A8001-6DF2-4389-9347-423642175B74}']
|
||||
['{C2E98C33-4903-4F19-B7A3-1E9AD4B2C68D}']
|
||||
{ Property getters and setters }
|
||||
function GetCODIGOEMPRESAValue: Integer;
|
||||
procedure SetCODIGOEMPRESAValue(const aValue: Integer);
|
||||
@ -550,7 +550,7 @@ type
|
||||
|
||||
{ IFichaBeneficios }
|
||||
IFichaBeneficios = interface(IDAStronglyTypedDataTable)
|
||||
['{CBD6AD21-2417-45BD-B514-D9D3ACA64E4F}']
|
||||
['{F149E069-825A-4961-8C4E-68BE037A4715}']
|
||||
{ Property getters and setters }
|
||||
function GetCODIGOMONTAJEValue: Integer;
|
||||
procedure SetCODIGOMONTAJEValue(const aValue: Integer);
|
||||
@ -615,7 +615,7 @@ type
|
||||
|
||||
{ IInformeDetallesFicha }
|
||||
IInformeDetallesFicha = interface(IDAStronglyTypedDataTable)
|
||||
['{CDD0B24E-43DC-4BE9-9451-49126D130C35}']
|
||||
['{CF37FBE7-A946-4E20-8A4F-2753773DD9D4}']
|
||||
{ Property getters and setters }
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
@ -668,7 +668,7 @@ type
|
||||
|
||||
{ IFichaBeneficios_Aux }
|
||||
IFichaBeneficios_Aux = interface(IDAStronglyTypedDataTable)
|
||||
['{AE5C37AD-B172-4181-8726-C94153D32E9B}']
|
||||
['{15BA870E-19D0-43B0-9878-9031439519B1}']
|
||||
{ Property getters and setters }
|
||||
function GetNUMCONCEPTOValue: Integer;
|
||||
procedure SetNUMCONCEPTOValue(const aValue: Integer);
|
||||
|
||||
@ -9,19 +9,19 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosMontajesDelta = '{A1079675-6804-43A1-8113-4C69034E612B}';
|
||||
RID_darNuevaReferenciaDelta = '{B926E1E9-D5FE-4AD9-81B6-6DB568BAF1AC}';
|
||||
RID_InformeCabeceraFichaDelta = '{295D1406-43D2-4AB6-90C5-3C77F026EEF1}';
|
||||
RID_MontajesDelta = '{2E686B2F-A149-44D8-B8A0-978EF00888B3}';
|
||||
RID_Refresh_MontajesDelta = '{A0465C98-DB95-4236-B3CE-5D2580AED7A0}';
|
||||
RID_FichaBeneficiosDelta = '{E75F17B7-C959-49D7-84B3-55AA239759FC}';
|
||||
RID_InformeDetallesFichaDelta = '{E97CAB1B-CCB0-4710-95F3-9AD8D1C9305F}';
|
||||
RID_FichaBeneficios_AuxDelta = '{BB83B8A0-16FB-43C4-8776-0A2DDCE8A85B}';
|
||||
RID_ListaAnosMontajesDelta = '{54D6F856-69C9-46C4-9708-EB06E21F64C9}';
|
||||
RID_darNuevaReferenciaDelta = '{DB02E16C-17A8-44E1-8A09-5B7E5A5D5C70}';
|
||||
RID_InformeCabeceraFichaDelta = '{07C12000-AFBD-4F89-9F4B-1CF8AE219608}';
|
||||
RID_MontajesDelta = '{5DAAEE09-4F1D-481F-9E6A-6362687F33E2}';
|
||||
RID_Refresh_MontajesDelta = '{6AE4BF82-8A34-4805-A201-83D27D7FA6C5}';
|
||||
RID_FichaBeneficiosDelta = '{B0843E14-B2C0-4CB1-BF0D-8848AB746CF6}';
|
||||
RID_InformeDetallesFichaDelta = '{DBF71433-4943-46FE-A536-15E29D1E77D8}';
|
||||
RID_FichaBeneficios_AuxDelta = '{C55A8142-1206-48A0-9CB1-FE4EF597289F}';
|
||||
|
||||
type
|
||||
{ IListaAnosMontajesDelta }
|
||||
IListaAnosMontajesDelta = interface(IListaAnosMontajes)
|
||||
['{A1079675-6804-43A1-8113-4C69034E612B}']
|
||||
['{54D6F856-69C9-46C4-9708-EB06E21F64C9}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -50,7 +50,7 @@ type
|
||||
|
||||
{ IdarNuevaReferenciaDelta }
|
||||
IdarNuevaReferenciaDelta = interface(IdarNuevaReferencia)
|
||||
['{B926E1E9-D5FE-4AD9-81B6-6DB568BAF1AC}']
|
||||
['{DB02E16C-17A8-44E1-8A09-5B7E5A5D5C70}']
|
||||
{ Property getters and setters }
|
||||
function GetOldREFERENCIAValue : String;
|
||||
|
||||
@ -79,7 +79,7 @@ type
|
||||
|
||||
{ IInformeCabeceraFichaDelta }
|
||||
IInformeCabeceraFichaDelta = interface(IInformeCabeceraFicha)
|
||||
['{295D1406-43D2-4AB6-90C5-3C77F026EEF1}']
|
||||
['{07C12000-AFBD-4F89-9F4B-1CF8AE219608}']
|
||||
{ Property getters and setters }
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldFECHAINICIOValue : DateTime;
|
||||
@ -206,7 +206,7 @@ type
|
||||
|
||||
{ IMontajesDelta }
|
||||
IMontajesDelta = interface(IMontajes)
|
||||
['{2E686B2F-A149-44D8-B8A0-978EF00888B3}']
|
||||
['{5DAAEE09-4F1D-481F-9E6A-6362687F33E2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldCODIGOEMPRESAValue : Integer;
|
||||
function GetOldCODIGOValue : Integer;
|
||||
@ -319,7 +319,7 @@ type
|
||||
|
||||
{ IRefresh_MontajesDelta }
|
||||
IRefresh_MontajesDelta = interface(IRefresh_Montajes)
|
||||
['{A0465C98-DB95-4236-B3CE-5D2580AED7A0}']
|
||||
['{6AE4BF82-8A34-4805-A201-83D27D7FA6C5}']
|
||||
{ Property getters and setters }
|
||||
function GetOldCODIGOEMPRESAValue : Integer;
|
||||
function GetOldCODIGOValue : Integer;
|
||||
@ -432,7 +432,7 @@ type
|
||||
|
||||
{ IFichaBeneficiosDelta }
|
||||
IFichaBeneficiosDelta = interface(IFichaBeneficios)
|
||||
['{E75F17B7-C959-49D7-84B3-55AA239759FC}']
|
||||
['{B0843E14-B2C0-4CB1-BF0D-8848AB746CF6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldCODIGOMONTAJEValue : Integer;
|
||||
function GetOldNUMCONCEPTOValue : Integer;
|
||||
@ -503,7 +503,7 @@ type
|
||||
|
||||
{ IInformeDetallesFichaDelta }
|
||||
IInformeDetallesFichaDelta = interface(IInformeDetallesFicha)
|
||||
['{E97CAB1B-CCB0-4710-95F3-9AD8D1C9305F}']
|
||||
['{DBF71433-4943-46FE-A536-15E29D1E77D8}']
|
||||
{ Property getters and setters }
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldMODELOValue : String;
|
||||
@ -560,7 +560,7 @@ type
|
||||
|
||||
{ IFichaBeneficios_AuxDelta }
|
||||
IFichaBeneficios_AuxDelta = interface(IFichaBeneficios_Aux)
|
||||
['{BB83B8A0-16FB-43C4-8776-0A2DDCE8A85B}']
|
||||
['{C55A8142-1206-48A0-9CB1-FE4EF597289F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldNUMCONCEPTOValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
@ -23,7 +23,7 @@ Type
|
||||
|
||||
IBizFichaBeneficiosMontaje = interface(IFichaBeneficios)
|
||||
['{1A7191CB-6F5C-4E1C-9024-E71C5718EF8B}']
|
||||
procedure AnadirFichaBeneficiosDefecto(const pCodigoMontaje: integer);
|
||||
procedure AnadirFichaBeneficiosDefecto(const pCodigoMontaje: integer; const Tipo: String);
|
||||
end;
|
||||
|
||||
IBizMontaje = interface(IMONTAJES)
|
||||
@ -47,6 +47,10 @@ Type
|
||||
procedure SetFichaBeneficios(Value: IBizFichaBeneficiosMontaje);
|
||||
property FichaBeneficios: IBizFichaBeneficiosMontaje read GetFichaBeneficios write SetFichaBeneficios;
|
||||
|
||||
function GetTipoFichaBeneficios: String;
|
||||
procedure SetTipoFichaBeneficios(Value: String);
|
||||
property TipoFichaBeneficios: String read GetTipoFichaBeneficios write SetTipoFichaBeneficios;
|
||||
|
||||
procedure PreviewLabels;
|
||||
procedure PrintLabels;
|
||||
function GetLabelCount: Integer;
|
||||
@ -61,6 +65,7 @@ Type
|
||||
FPresupuesto : IBizPresupuestos;
|
||||
FFichaBeneficios : IBizFichaBeneficiosMontaje;
|
||||
FFichaBeneficiosLink: TDADataSource;
|
||||
FTipoFichaBeneficios : String;
|
||||
FSelectedRows : TSelectedRowList;
|
||||
FLabelCount : Integer;
|
||||
procedure ShowToSelect;
|
||||
@ -79,6 +84,8 @@ Type
|
||||
procedure SetPresupuesto(Value: IBizPresupuestos);
|
||||
function GetFichaBeneficios: IBizFichaBeneficiosMontaje;
|
||||
procedure SetFichaBeneficios(Value: IBizFichaBeneficiosMontaje);
|
||||
function GetTipoFichaBeneficios: String;
|
||||
procedure SetTipoFichaBeneficios(Value: String);
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
function GetSelectedRows : TSelectedRowList; virtual;
|
||||
procedure ShowApplyUpdateFailed (const Error: EDAApplyUpdateFailed); virtual;
|
||||
@ -95,6 +102,7 @@ Type
|
||||
property Cliente: IBizCliente read GetCliente write SetCliente;
|
||||
property Presupuesto: IBizPresupuestos read GetPresupuesto write SetPresupuesto;
|
||||
property FichaBeneficios: IBizFichaBeneficiosMontaje read GetFichaBeneficios write SetFichaBeneficios;
|
||||
property TipoFichaBeneficios: String read GetTipoFichaBeneficios write SetTipoFichaBeneficios;
|
||||
procedure PreviewLabels;
|
||||
procedure PrintLabels;
|
||||
property LabelCount: Integer read GetLabelCount write SetLabelCount;
|
||||
@ -109,7 +117,7 @@ Type
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
procedure ShowApplyUpdateFailed (const Error: EDAApplyUpdateFailed); virtual;
|
||||
public
|
||||
procedure AnadirFichaBeneficiosDefecto(const pCodigoMontaje: integer);
|
||||
procedure AnadirFichaBeneficiosDefecto(const pCodigoMontaje: integer; const Tipo: String);
|
||||
end;
|
||||
|
||||
procedure ValidarMontaje (const AMontaje : IBizMontaje);
|
||||
@ -145,7 +153,7 @@ begin
|
||||
SITUACION := SITUACION_PENDIENTERECEPCION;
|
||||
|
||||
//Añadimos la ficha de beneficios por defecto
|
||||
FichaBeneficios.AnadirFichaBeneficiosDefecto(CODIGO);
|
||||
FichaBeneficios.AnadirFichaBeneficiosDefecto(CODIGO, FTipoFichaBeneficios);
|
||||
end;
|
||||
|
||||
procedure TBizMontajeDataTableRules.Show;
|
||||
@ -187,6 +195,7 @@ begin
|
||||
FCliente := Nil;
|
||||
FPresupuesto := Nil;
|
||||
FFichaBeneficiosLink := TDADataSource.Create(NIL);
|
||||
FTipoFichaBeneficios := 'Cocina'; //Por defecto el tipo de ficha es de cocina
|
||||
FSelectedRows := TSelectedRowList.Create(aDataTable);
|
||||
aDataTable.OnBeforeApplyUpdates := BeforeApplyUpdates;
|
||||
aDataTable.OnAfterApplyUpdates := AfterApplyUpdates;
|
||||
@ -346,11 +355,11 @@ end;
|
||||
|
||||
{ TBizFichaBeneficiosMontajeDataTableRules }
|
||||
|
||||
procedure TBizFichaBeneficiosMontajeDataTableRules.AnadirFichaBeneficiosDefecto(const pCodigoMontaje: integer);
|
||||
procedure TBizFichaBeneficiosMontajeDataTableRules.AnadirFichaBeneficiosDefecto(const pCodigoMontaje: integer; const Tipo: String);
|
||||
var
|
||||
FichaBeneficiosAux: IFichaBeneficios_Aux;
|
||||
begin
|
||||
FichaBeneficiosAux := dmMontajes.darFichaBeneficiosAux;
|
||||
FichaBeneficiosAux := dmMontajes.darFichaBeneficiosAux(Tipo);
|
||||
try
|
||||
with FichaBeneficiosAux.DataTable do
|
||||
begin
|
||||
@ -424,6 +433,16 @@ begin
|
||||
FFichaBeneficios.DataTable.MasterSource := FFichaBeneficiosLink;
|
||||
end;
|
||||
|
||||
function TBizMontajeDataTableRules.GetTipoFichaBeneficios: String;
|
||||
begin
|
||||
Result := FTipoFichaBeneficios;
|
||||
end;
|
||||
|
||||
procedure TBizMontajeDataTableRules.SetTipoFichaBeneficios(Value: String);
|
||||
begin
|
||||
FTipoFichaBeneficios := Value;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules('BizMontaje', TBizMontajeDataTableRules);
|
||||
RegisterDataTableRules('BizFichaBeneficiosMontaje', TBizFichaBeneficiosMontajeDataTableRules);
|
||||
|
||||
@ -1020,14 +1020,20 @@ object srvMontajes: TsrvMontajes
|
||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Params = <
|
||||
item
|
||||
Name = 'tipo'
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'FICHABENEFICIOS'
|
||||
SQL =
|
||||
'SELECT '#10' NUMCONCEPTO, DESCRIPCION'#10'FROM FICHABENEFICIOS_AUX'#10'OR' +
|
||||
'DER BY NUMCONCEPTO'
|
||||
'SELECT '#10' NUMCONCEPTO, DESCRIPCION'#10'FROM FICHABENEFICIOS_AUX'#10'wh' +
|
||||
'ere tipo = :tipo'#10'ORDER BY NUMCONCEPTO'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
|
||||
@ -114,7 +114,7 @@ IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=5
|
||||
Release=1
|
||||
Release=2
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
@ -126,13 +126,13 @@ CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=Rodax Software S.L.
|
||||
FileDescription=
|
||||
FileVersion=1.5.1.0
|
||||
FileVersion=1.5.2.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=FactuGES Server
|
||||
ProductVersion=1.5.1.0
|
||||
ProductVersion=1.5.2.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
|
||||
@ -183,8 +183,8 @@ Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[HistoryLists\hlSearchPath]
|
||||
Count=16
|
||||
Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
|
||||
Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
|
||||
Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
|
||||
Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
|
||||
Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
|
||||
@ -204,8 +204,8 @@ Count=1
|
||||
Item0=.\
|
||||
[HistoryLists\hlOutputDirectorry]
|
||||
Count=2
|
||||
Item0=..\Output\Servidor
|
||||
Item1=..\Output\Cliente
|
||||
Item0=..\Output\Cliente
|
||||
Item1=..\Output\Servidor
|
||||
[HistoryLists\hlBPLOutput]
|
||||
Count=3
|
||||
Item0=..\..\..\Output\Cliente
|
||||
|
||||
Binary file not shown.
@ -146,14 +146,16 @@ object srvComisiones: TsrvComisiones
|
||||
SQL =
|
||||
'SELECT'#10' 1 as SELECCION, PAGOS.CODIGOEMPRESA, PAGOS.CODIGO, PA' +
|
||||
'GOS.CODIGOCONTACTO,'#10' CONTACTOS.NOMBRE, PAGOS.FECHAPAGO, PAGOS' +
|
||||
'.IMPORTE, PAGOS.FORMAPAGO, PAGOS.DESCRIPCION,'#10' CONTACTOSCATEG' +
|
||||
'ORIAS.CODIGOCATEGORIA, CATEGORIAS.DESCRIPCION as CATEGORIA'#10#10'FROM' +
|
||||
' PAGOS'#10'LEFT JOIN CONTACTOS ON (PAGOS.CODIGOCONTACTO = CONTACTOS.' +
|
||||
'CODIGO)'#10'LEFT JOIN CONTACTOSCATEGORIAS ON (CONTACTOS.CODIGO = CON' +
|
||||
'TACTOSCATEGORIAS.CODIGOCONTACTO)'#10'LEFT JOIN CATEGORIAS ON (CONTAC' +
|
||||
'TOSCATEGORIAS.CODIGOCATEGORIA = CATEGORIAS.CODIGO)'#10#10'WHERE CONTAC' +
|
||||
'TOSCATEGORIAS.CODIGOCATEGORIA = 1'#10'AND PAGOS.FECHAPAGO between :F' +
|
||||
'ECHAINI and :FECHAFIN'#10'ORDER BY PAGOS.FECHAPAGO DESC'
|
||||
'.IMPORTE, PAGOS.FORMAPAGO,'#10' PAGOS.DESCRIPCION, V_TIPOS_PAGO.T' +
|
||||
'IPO,'#10' CONTACTOSCATEGORIAS.CODIGOCATEGORIA, CATEGORIAS.DESCRIP' +
|
||||
'CION as CATEGORIA'#10#10'FROM PAGOS'#10'LEFT JOIN CONTACTOS ON (PAGOS.CODI' +
|
||||
'GOCONTACTO = CONTACTOS.CODIGO)'#10'LEFT JOIN CONTACTOSCATEGORIAS ON ' +
|
||||
'(CONTACTOS.CODIGO = CONTACTOSCATEGORIAS.CODIGOCONTACTO)'#10'LEFT JOI' +
|
||||
'N CATEGORIAS ON (CONTACTOSCATEGORIAS.CODIGOCATEGORIA = CATEGORIA' +
|
||||
'S.CODIGO)'#10'LEFT JOIN V_TIPOS_PAGO ON (V_TIPOS_PAGO.CODIGO = PAGOS' +
|
||||
'.CODIGO)'#10#10'WHERE CONTACTOSCATEGORIAS.CODIGOCATEGORIA = 1'#10'AND PAGO' +
|
||||
'S.FECHAPAGO between :FECHAINI and :FECHAFIN'#10'ORDER BY PAGOS.FECHA' +
|
||||
'PAGO DESC'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -308,6 +310,18 @@ object srvComisiones: TsrvComisiones
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 6
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CODIGOCATEGORIA'
|
||||
DataType = datInteger
|
||||
|
||||
Reference in New Issue
Block a user