From ab2f55bcfa23f83579b9be8662be9fafe8932de9 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 4 Jun 2009 14:37:09 +0000 Subject: [PATCH] =?UTF-8?q?Se=20adaptan=20los=20montajes=20para=20que=20lo?= =?UTF-8?q?s=20montajes=20de=20ba=C3=B1os=20tengan=20una=20ficha=20de=20be?= =?UTF-8?q?neficios=20especifica=20por=20defecto.=20Se=20arregla=20el=20ca?= =?UTF-8?q?lculo=20de=20comisiones=20para=20que=20se=20pueda=20filtrar=20p?= =?UTF-8?q?or=20familia=20y=20se=20agranda=20el=20capo=20forma=20de=20pago?= =?UTF-8?q?=20para=20los=20pagos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@15 9a1d36f3-7752-2d40-8ccb-50eb49674c68 --- BD/BaseDatos.sql | 2 +- Cliente/FactuGES.dof | 14 +-- Cliente/FactuGES.res | Bin 172184 -> 172184 bytes .../Cliente/uDataModuleComisiones.dfm | 14 +++ .../Cliente/uDataModuleComisiones.pas | 29 +++++- .../Contactos/Cliente/uEditorComisiones.dfm | 98 ++++++++++++------ .../Contactos/Cliente/uEditorComisiones.pas | 5 +- .../Reglas/schComisionesClient_Intf.pas | 34 ++++-- .../Reglas/schComisionesServer_Intf.pas | 34 ++++-- Modulos/Montajes/Cliente/Montajes_Intf.dof | 12 +-- .../Montajes/Cliente/uDataModuleMontajes.dfm | 8 +- .../Montajes/Cliente/uDataModuleMontajes.pas | 9 +- .../Cliente/uViewFichaBeneficiosMontaje.dfm | 29 ++++-- .../Cliente/uViewFichaBeneficiosMontaje.pas | 2 +- .../Reglas/schMontajesClient_Intf.pas | 32 +++--- .../Reglas/schMontajesServer_Intf.pas | 32 +++--- Modulos/Montajes/Reglas/uBizMontajes.pas | 29 +++++- .../Montajes/Servidor/srvMontajes_Impl.dfm | 12 ++- Servidor/FactuGES_Server.dof | 14 +-- Servidor/FactuGES_Server.res | Bin 23472 -> 23472 bytes Servidor/srvComisiones_Impl.dfm | 30 ++++-- 21 files changed, 308 insertions(+), 131 deletions(-) diff --git a/BD/BaseDatos.sql b/BD/BaseDatos.sql index ce8f6ef..aef23f6 100644 --- a/BD/BaseDatos.sql +++ b/BD/BaseDatos.sql @@ -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; diff --git a/Cliente/FactuGES.dof b/Cliente/FactuGES.dof index d7638f2..bd95e52 100644 --- a/Cliente/FactuGES.dof +++ b/Cliente/FactuGES.dof @@ -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 diff --git a/Cliente/FactuGES.res b/Cliente/FactuGES.res index b82a7a42426f72e9b3fd5bf9a61cddf13d3a2c1c..f637bcd34767a374b16ddd4f1afdc5c89f25117d 100644 GIT binary patch delta 43 zcmbPnkZZ<4u7(!IElgtbIGGq&85kKD7?`HZ&tv+^XtZ5)K9e*fqtSH31x)Dx3(N~t delta 43 zcmbPnkZZ<4u7(!IElgtbI2jpO85kKD7#OF^&tv+^Xt-T;K9e*fqv3SJ1x)Dx3x*3& diff --git a/Modulos/Contactos/Cliente/uDataModuleComisiones.dfm b/Modulos/Contactos/Cliente/uDataModuleComisiones.dfm index b63e8a1..c1fccf8 100644 --- a/Modulos/Contactos/Cliente/uDataModuleComisiones.dfm +++ b/Modulos/Contactos/Cliente/uDataModuleComisiones.dfm @@ -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 diff --git a/Modulos/Contactos/Cliente/uDataModuleComisiones.pas b/Modulos/Contactos/Cliente/uDataModuleComisiones.pas index 0e48a7f..15230ee 100644 --- a/Modulos/Contactos/Cliente/uDataModuleComisiones.pas +++ b/Modulos/Contactos/Cliente/uDataModuleComisiones.pas @@ -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); diff --git a/Modulos/Contactos/Cliente/uEditorComisiones.dfm b/Modulos/Contactos/Cliente/uEditorComisiones.dfm index b8b788c..ed2cd52 100644 --- a/Modulos/Contactos/Cliente/uEditorComisiones.dfm +++ b/Modulos/Contactos/Cliente/uEditorComisiones.dfm @@ -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 diff --git a/Modulos/Contactos/Cliente/uEditorComisiones.pas b/Modulos/Contactos/Cliente/uEditorComisiones.pas index 0dcd54f..a5700b6 100644 --- a/Modulos/Contactos/Cliente/uEditorComisiones.pas +++ b/Modulos/Contactos/Cliente/uEditorComisiones.pas @@ -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; diff --git a/Modulos/Contactos/Reglas/schComisionesClient_Intf.pas b/Modulos/Contactos/Reglas/schComisionesClient_Intf.pas index 5673375..77a3430 100644 --- a/Modulos/Contactos/Reglas/schComisionesClient_Intf.pas +++ b/Modulos/Contactos/Reglas/schComisionesClient_Intf.pas @@ -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; diff --git a/Modulos/Contactos/Reglas/schComisionesServer_Intf.pas b/Modulos/Contactos/Reglas/schComisionesServer_Intf.pas index c0dbfdc..d8ef302 100644 --- a/Modulos/Contactos/Reglas/schComisionesServer_Intf.pas +++ b/Modulos/Contactos/Reglas/schComisionesServer_Intf.pas @@ -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]; diff --git a/Modulos/Montajes/Cliente/Montajes_Intf.dof b/Modulos/Montajes/Cliente/Montajes_Intf.dof index 90eed51..816ab1d 100644 --- a/Modulos/Montajes/Cliente/Montajes_Intf.dof +++ b/Modulos/Montajes/Cliente/Montajes_Intf.dof @@ -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 diff --git a/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm b/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm index 48ffff1..a441082 100644 --- a/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm +++ b/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm @@ -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' diff --git a/Modulos/Montajes/Cliente/uDataModuleMontajes.pas b/Modulos/Montajes/Cliente/uDataModuleMontajes.pas index 5b7870f..ba1cbd4 100644 --- a/Modulos/Montajes/Cliente/uDataModuleMontajes.pas +++ b/Modulos/Montajes/Cliente/uDataModuleMontajes.pas @@ -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; diff --git a/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm b/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm index c5c34cd..0a412d8 100644 --- a/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm +++ b/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm @@ -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 diff --git a/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.pas b/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.pas index 9d5daf1..2c85f8e 100644 --- a/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.pas +++ b/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.pas @@ -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) diff --git a/Modulos/Montajes/Reglas/schMontajesClient_Intf.pas b/Modulos/Montajes/Reglas/schMontajesClient_Intf.pas index 10fe0e6..b621135 100644 --- a/Modulos/Montajes/Reglas/schMontajesClient_Intf.pas +++ b/Modulos/Montajes/Reglas/schMontajesClient_Intf.pas @@ -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); diff --git a/Modulos/Montajes/Reglas/schMontajesServer_Intf.pas b/Modulos/Montajes/Reglas/schMontajesServer_Intf.pas index 0b07d41..0e7d4fb 100644 --- a/Modulos/Montajes/Reglas/schMontajesServer_Intf.pas +++ b/Modulos/Montajes/Reglas/schMontajesServer_Intf.pas @@ -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; diff --git a/Modulos/Montajes/Reglas/uBizMontajes.pas b/Modulos/Montajes/Reglas/uBizMontajes.pas index de96c99..d45d90c 100644 --- a/Modulos/Montajes/Reglas/uBizMontajes.pas +++ b/Modulos/Montajes/Reglas/uBizMontajes.pas @@ -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); diff --git a/Modulos/Montajes/Servidor/srvMontajes_Impl.dfm b/Modulos/Montajes/Servidor/srvMontajes_Impl.dfm index 9f7c7f8..07e38d1 100644 --- a/Modulos/Montajes/Servidor/srvMontajes_Impl.dfm +++ b/Modulos/Montajes/Servidor/srvMontajes_Impl.dfm @@ -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 diff --git a/Servidor/FactuGES_Server.dof b/Servidor/FactuGES_Server.dof index 372e99b..84cb054 100644 --- a/Servidor/FactuGES_Server.dof +++ b/Servidor/FactuGES_Server.dof @@ -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 diff --git a/Servidor/FactuGES_Server.res b/Servidor/FactuGES_Server.res index 2c04d687f8f7f53dd24743bf0a1edeb885dfda5a..749d9822b4c211b95ed8cf01f773f28329d02ac6 100644 GIT binary patch delta 36 qcmdn6opA#Y8AWn3F|aZ)GB7YOO}38w%4oFNFiM<}(P*+~bUFaK)(MpW delta 36 qcmdn6opA#Y8AWn3GO#i*GB7YOPPUHx%4oRRFiM<}(QvY7bUFaKnF)~q diff --git a/Servidor/srvComisiones_Impl.dfm b/Servidor/srvComisiones_Impl.dfm index 5553eaf..04366b0 100644 --- a/Servidor/srvComisiones_Impl.dfm +++ b/Servidor/srvComisiones_Impl.dfm @@ -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