diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB index 3a294fe0..6be52e89 100644 Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ diff --git a/Database/VISTAS.SQL b/Database/VISTAS.SQL index 22c538a8..28cc580a 100644 --- a/Database/VISTAS.SQL +++ b/Database/VISTAS.SQL @@ -326,13 +326,15 @@ CREATE VIEW V_ALBARANES_PROVEEDOR( NOMBRE, FECHA_ALBARAN, REFERENCIA, + REFERENCIA_PROVEEDOR, TIPO, ID_ALMACEN, NOMBRE_ALMACEN, ID_PEDIDO, REF_PED_PROVEEDOR, ID_FACTURA, - REF_FAC_PROVEEDOR, + REF_FACTURA, + REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, @@ -362,13 +364,15 @@ SELECT V_PROVEEDORES.NOMBRE, ALBARANES_PROVEEDOR.FECHA_ALBARAN, ALBARANES_PROVEEDOR.REFERENCIA, + ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR, CASE WHEN (ALBARANES_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'D' ELSE 'A' END AS TIPO, ALBARANES_PROVEEDOR.ID_ALMACEN, ALMACENES.NOMBRE AS NOMBRE_ALMACEN, ALBARANES_PROVEEDOR.ID_PEDIDO, PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR, ALBARANES_PROVEEDOR.ID_FACTURA, - FACTURAS_PROVEEDOR.REFERENCIA AS REF_FAC_PROVEEDOR, + FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA, + ALBARANES_PROVEEDOR.REF_FACTURA_PROV, ALBARANES_PROVEEDOR.CALLE, ALBARANES_PROVEEDOR.CODIGO_POSTAL, ALBARANES_PROVEEDOR.POBLACION, @@ -859,8 +863,9 @@ LEFT JOIN FACTURAS_CLIENTE_DETALLES ON (FACTURAS_CLIENTE_DETALLES.ID_FACTURA = V LEFT JOIN ARTICULOS ON (ARTICULOS.ID = FACTURAS_CLIENTE_DETALLES.ID_ARTICULO) LEFT JOIN AGENTES_COMISIONES ON ((AGENTES_COMISIONES.ID_AGENTE = V_FACTURAS_CLIENTE.ID_AGENTE) AND (AGENTES_COMISIONES.ID_PROVEEDOR = ARTICULOS.ID_PROVEEDOR)) - -WHERE (FACTURAS_CLIENTE_DETALLES.TIPO_DETALLE = 'Concepto'); +WHERE (FACTURAS_CLIENTE_DETALLES.TIPO_DETALLE = 'Concepto') +AND (ARTICULOS.ID is not null) +AND (ARTICULOS.COMISIONABLE = 1); /* Situación de los albaranes de cliente */ diff --git a/Output/Debug/Servidor/Informes/InfComisiones.fr3 b/Output/Debug/Servidor/Informes/InfComisiones.fr3 index ba51d5a1..4204bffd 100644 --- a/Output/Debug/Servidor/Informes/InfComisiones.fr3 +++ b/Output/Debug/Servidor/Informes/InfComisiones.fr3 @@ -1,7 +1,7 @@ - + - + @@ -9,45 +9,39 @@ - + - - - + - + - - - + + - - + + - + - - + - - - + diff --git a/Output/Debug/Servidor/Informes/InfComisionesDesglosado.fr3 b/Output/Debug/Servidor/Informes/InfComisionesDesglosado.fr3 new file mode 100644 index 00000000..a829c84c --- /dev/null +++ b/Output/Debug/Servidor/Informes/InfComisionesDesglosado.fr3 @@ -0,0 +1,55 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3 b/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3 index 2aacde81..35543853 100644 --- a/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3 +++ b/Output/Debug/Servidor/Informes/InfFacturaCliente.fr3 @@ -1,45 +1,45 @@ - + - - - + + + - - + + - - - - - - + + + + + + - - - + + + - - - - - - + + + + + + - + - + - + - - - + + + - + @@ -47,7 +47,7 @@ - + diff --git a/Output/Debug/Servidor/config.ini b/Output/Debug/Servidor/config.ini index 1af74a60..970246b8 100644 --- a/Output/Debug/Servidor/config.ini +++ b/Output/Debug/Servidor/config.ini @@ -1,3 +1,3 @@ [CONFIG] -APPPATH=E:\Codigo\Output\Servidor\FactuGES_Server.exe +APPPATH=E:\Codigo (Luis León)\Output\Debug\Servidor\FactuGES_Server.exe LIBPATH=GDS32.DLL diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm index fa5b1391..2867ddc3 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm @@ -54,8 +54,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 119 end object memObservaciones: TcxDBMemo - Left = 432 - Top = 414 + Left = 431 + Top = 387 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -67,7 +67,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 22 + TabOrder = 21 Height = 253 Width = 186 end @@ -98,7 +98,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 143 end inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente - Left = 432 + Left = 431 Top = 28 Width = 350 Height = 212 @@ -112,7 +112,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente ParentFont = False TabOrder = 17 ReadOnly = False - ExplicitLeft = 432 + ExplicitLeft = 431 ExplicitTop = 28 inherited dxLayoutControl1: TdxLayoutControl Align = alTop @@ -137,12 +137,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 259 - ExplicitLeft = 259 + Left = 260 + ExplicitLeft = 260 end inherited Button3: TBitBtn - Left = 149 - ExplicitLeft = 149 + Left = 150 + ExplicitLeft = 150 end end inherited DADataSource: TDADataSource @@ -201,7 +201,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 162 end object eCodigoPostal: TcxDBTextEdit - Left = 337 + Left = 336 Top = 251 DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataSource = DADataSource @@ -278,7 +278,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 122 end object bElegirDireccion: TBitBtn - Left = 230 + Left = 229 Top = 359 Width = 172 Height = 23 @@ -287,7 +287,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente TabOrder = 14 end object Button1: TButton - Left = 270 + Left = 269 Top = 138 Width = 132 Height = 23 @@ -347,7 +347,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 32 end object bFormasPago: TButton - Left = 270 + Left = 269 Top = 109 Width = 132 Height = 23 @@ -356,11 +356,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente OnClick = bFormasPagoClick end object eFechaRecepcion: TcxDBDateEdit - Left = 583 - Top = 357 + Left = 565 + Top = 330 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataSource = DADataSource + Properties.ImmediatePost = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clWindow @@ -375,34 +376,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 21 + TabOrder = 20 Width = 123 end - object eFechaEnvio: TcxDBTextEdit - Left = 583 - Top = 303 - Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'FECHA_ENVIO' - DataBinding.DataSource = DADataSource - Enabled = False - Properties.ReadOnly = False - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = clWindow - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.TextColor = clWindowText - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 19 - Width = 122 - end object cbConAlmacen: TCheckBox Left = 32 Top = 418 @@ -441,15 +417,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente TabOrder = 16 Width = 69 end - object cbFechaRecepcion: TCheckBox - Left = 442 - Top = 330 - Width = 340 - Height = 21 - Caption = 'El cliente ha recibido y firmado este albar'#225'n el d'#237'a:' - TabOrder = 20 - OnClick = cbFechaRecepcionClick - end object eRefFacturaCli: TcxDBTextEdit Left = 116 Top = 167 @@ -477,12 +444,13 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 207 end object eFechaPrevista: TcxDBDateEdit - Left = 583 + Left = 565 Top = 276 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataSource = DADataSource Properties.ImmediatePost = True + Properties.OnValidate = eFechaPrevistaPropertiesValidate Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clWindow @@ -527,6 +495,31 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente TabOrder = 1 Width = 284 end + object eFechaEnvio: TcxDBDateEdit + Left = 565 + Top = 303 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'FECHA_ENVIO' + DataBinding.DataSource = DADataSource + Properties.ImmediatePost = True + Properties.OnValidate = eFechaEnvioPropertiesValidate + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clWindow + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 19 + Width = 217 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -722,33 +715,21 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente object dxLayoutControl1Item24: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'Fecha prevista de salida:' + Caption = 'Fecha prevista de envio:' Offsets.Left = 10 Control = eFechaPrevista ControlOptions.ShowBorder = False end - object dxLayoutControl1Item17: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Fecha de salida del material:' + object dxLayoutControl1Item21: TdxLayoutItem + Caption = 'Fecha de envio:' Offsets.Left = 10 Control = eFechaEnvio ControlOptions.ShowBorder = False end - object dxLayoutControl1Item21: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Offsets.Left = 10 - ShowCaption = False - Control = cbFechaRecepcion - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end object dxLayoutControl1Item16: TdxLayoutItem AutoAligns = [] AlignHorz = ahClient Caption = 'Fecha de recepci'#243'n:' - CaptionOptions.AlignHorz = taRightJustify Offsets.Left = 10 Control = eFechaRecepcion ControlOptions.ShowBorder = False diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas index f6aa7a36..99c7413e 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas @@ -78,8 +78,6 @@ type dxLayoutControl1Item16: TdxLayoutItem; eFechaRecepcion: TcxDBDateEdit; dxLayoutControl1Group11: TdxLayoutGroup; - dxLayoutControl1Item17: TdxLayoutItem; - eFechaEnvio: TcxDBTextEdit; dxLayoutControl1Item19: TdxLayoutItem; cbConAlmacen: TCheckBox; dxLayoutControl1Item20: TdxLayoutItem; @@ -88,8 +86,6 @@ type dxLayoutControl1Item18: TdxLayoutItem; Label1: TLabel; dxLayoutControl1Group12: TdxLayoutGroup; - dxLayoutControl1Item21: TdxLayoutItem; - cbFechaRecepcion: TCheckBox; dxLayoutControl1Group10: TdxLayoutGroup; dxLayoutControl1Item22: TdxLayoutItem; eRefFacturaCli: TcxDBTextEdit; @@ -98,6 +94,8 @@ type eFechaPrevista: TcxDBDateEdit; dxLayoutControl1Item23: TdxLayoutItem; eRefCliente: TcxDBTextEdit; + dxLayoutControl1Item21: TdxLayoutItem; + eFechaEnvio: TcxDBDateEdit; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject); @@ -108,12 +106,15 @@ type procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject); procedure bFormasPagoClick(Sender: TObject); procedure cbConAlmacenClick(Sender: TObject); - procedure cbFechaRecepcionClick(Sender: TObject); + procedure eFechaPrevistaPropertiesValidate(Sender: TObject; + var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); + procedure eFechaEnvioPropertiesValidate(Sender: TObject; + var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); protected FAlbaran : IBizAlbaranCliente; FAlmacenesController : IAlmacenesController; FPedidoAsociado : IBizPedidoCliente; - FPedidoController : IPedidosClienteController; + FPedidoController : IPedidosClienteController; FViewClienteAlbaran : TfrViewDatosYSeleccionCliente; FFormasPagoController : IFormasPagoController; @@ -134,7 +135,8 @@ implementation uses uClientesController, uBizDireccionesContacto, uAlbaranesClienteController, - schAlbaranesClienteClient_Intf, uBizFormasPago, uBizAlmacenes, uDateUtils; + schAlbaranesClienteClient_Intf, uBizFormasPago, uBizAlmacenes, uDateUtils, + uDialogUtils; procedure TfrViewAlbaranCliente.actElegirDireccionExecute(Sender: TObject); @@ -207,20 +209,6 @@ begin end; end; -procedure TfrViewAlbaranCliente.cbFechaRecepcionClick(Sender: TObject); -begin - inherited; - if cbFechaRecepcion.Checked then - begin - eFechaRecepcion.Enabled := True; - end - else begin - eFechaRecepcion.Enabled := False; - FAlbaran.Edit; - FAlbaran.FECHA_RECEPCION := 0; - end; -end; - procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject); begin inherited; @@ -242,6 +230,39 @@ begin FAlmacenesController := NIL; end; +procedure TfrViewAlbaranCliente.eFechaEnvioPropertiesValidate(Sender: TObject; + var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); +begin + inherited; + if VarIsNull(DisplayValue) or (DisplayValue = '') then + begin + if (ShowConfirmMessage('Si elimina la fecha prevista de envio, se eliminarán tambien las fechas de envio y recepción en caso de tenerlas. ¿Desea continuar?', '') = IDYES) then + eFechaRecepcion.Enabled := false + else + DisplayValue := DateToStr(eFechaEnvio.Date); + end + else + eFechaRecepcion.Enabled := true; +end; + +procedure TfrViewAlbaranCliente.eFechaPrevistaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; + var Error: Boolean); +begin + inherited; + if VarIsNull(DisplayValue) or (DisplayValue = '') then + begin + if (ShowConfirmMessage('Si elimina la fecha prevista de envio, se eliminarán tambien las fechas de envio y recepción en caso de tenerlas. ¿Desea continuar?', '') = IDYES) then + begin + eFechaEnvio.Enabled := false; + eFechaRecepcion.Enabled := false; + end + else + DisplayValue := DateToStr(eFechaPrevista.Date); + end + else + eFechaEnvio.Enabled := true; +end; + procedure TfrViewAlbaranCliente.frViewClienteAlbaranactAnadirContactoUpdate( Sender: TObject); begin @@ -286,12 +307,26 @@ begin cbConAlmacen.Checked := (FAlbaran.ID_ALMACEN > 0); cbAlmacen.Enabled := cbConAlmacen.Checked; - cbFechaRecepcion.Checked := not EsFechaVacia(FAlbaran.FECHA_RECEPCION); - eFechaRecepcion.Enabled := cbFechaRecepcion.Checked; eReferenciaPedidoCli.Enabled := False; eRefFacturaCli.Enabled := False; - + + if EsFechaVacia(FAlbaran.FECHA_PREVISTA_ENVIO) then + begin + eFechaEnvio.Enabled := false; + eFechaRecepcion.Enabled := false; + end + else + begin + eFechaEnvio.Enabled := true; + if EsFechaVacia(FAlbaran.FECHA_ENVIO) then + eFechaRecepcion.Enabled := false + else + eFechaRecepcion.Enabled := true; + end; + + + FPedidoAsociado := NIL; if (FAlbaran.ID_PEDIDO > 0) then begin diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm index c2d6c6a4..99ec2d19 100644 --- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm @@ -154,6 +154,20 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. provedor' + Alignment = taLeftJustify + DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'TIPO' DataType = datString @@ -233,13 +247,28 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor LookupCache = False end item - Name = 'REF_FAC_PROVEEDOR' + Name = 'REF_FACTURA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 + DisplayLabel = 'Referencia factura' Alignment = taLeftJustify - DictionaryEntry = 'AlbaranesProveedor_REF_FAC_PROVEEDOR' + DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REF_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. factura prov' + Alignment = taLeftJustify + DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA_PROV' InPrimaryKey = False Calculated = False Lookup = False diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas index dcd56cb8..4e18898c 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas @@ -9,11 +9,11 @@ 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_DarReferencia = '{5A05B7DE-83D2-48DC-9867-D025C26EF607}'; - RID_AlbaranesProveedor = '{17BC6E11-4D60-418A-A90E-F19D9D2F137D}'; - RID_AlbaranesProveedor_Detalles = '{93185DF7-4D33-422F-BF7D-0FC43C571F40}'; - RID_AlbaranesProveedor_Detalles_Refresh = '{671BF3C5-1B40-4883-9A26-A2C26CCEE774}'; - RID_AlbaranesProveedor_Refresh = '{46514DC4-3CC0-4300-97F0-F2CCE70B5666}'; + RID_DarReferencia = '{B11C1A92-7445-40B1-804D-75362337E091}'; + RID_AlbaranesProveedor = '{A8D01A62-F911-438F-910D-CCE57A97679A}'; + RID_AlbaranesProveedor_Detalles = '{74BC0CAC-88BE-4D83-ABE6-CCF245762256}'; + RID_AlbaranesProveedor_Detalles_Refresh = '{B8EE8C6A-F540-4124-94D2-76924081B2F3}'; + RID_AlbaranesProveedor_Refresh = '{FEBB25BC-1C6E-43E2-AEC6-B2B9656D858F}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -35,13 +35,15 @@ const fld_AlbaranesProveedorNOMBRE = 'NOMBRE'; fld_AlbaranesProveedorFECHA_ALBARAN = 'FECHA_ALBARAN'; fld_AlbaranesProveedorREFERENCIA = 'REFERENCIA'; + fld_AlbaranesProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; fld_AlbaranesProveedorTIPO = 'TIPO'; fld_AlbaranesProveedorID_ALMACEN = 'ID_ALMACEN'; fld_AlbaranesProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; fld_AlbaranesProveedorID_PEDIDO = 'ID_PEDIDO'; fld_AlbaranesProveedorREF_PED_PROVEEDOR = 'REF_PED_PROVEEDOR'; fld_AlbaranesProveedorID_FACTURA = 'ID_FACTURA'; - fld_AlbaranesProveedorREF_FAC_PROVEEDOR = 'REF_FAC_PROVEEDOR'; + fld_AlbaranesProveedorREF_FACTURA = 'REF_FACTURA'; + fld_AlbaranesProveedorREF_FACTURA_PROV = 'REF_FACTURA_PROV'; fld_AlbaranesProveedorCALLE = 'CALLE'; fld_AlbaranesProveedorCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_AlbaranesProveedorPOBLACION = 'POBLACION'; @@ -71,34 +73,36 @@ const idx_AlbaranesProveedorNOMBRE = 3; idx_AlbaranesProveedorFECHA_ALBARAN = 4; idx_AlbaranesProveedorREFERENCIA = 5; - idx_AlbaranesProveedorTIPO = 6; - idx_AlbaranesProveedorID_ALMACEN = 7; - idx_AlbaranesProveedorNOMBRE_ALMACEN = 8; - idx_AlbaranesProveedorID_PEDIDO = 9; - idx_AlbaranesProveedorREF_PED_PROVEEDOR = 10; - idx_AlbaranesProveedorID_FACTURA = 11; - idx_AlbaranesProveedorREF_FAC_PROVEEDOR = 12; - idx_AlbaranesProveedorCALLE = 13; - idx_AlbaranesProveedorCODIGO_POSTAL = 14; - idx_AlbaranesProveedorPOBLACION = 15; - idx_AlbaranesProveedorPROVINCIA = 16; - idx_AlbaranesProveedorPERSONA_CONTACTO = 17; - idx_AlbaranesProveedorTELEFONO = 18; - idx_AlbaranesProveedorIMPORTE_NETO = 19; - idx_AlbaranesProveedorIMPORTE_PORTE = 20; - idx_AlbaranesProveedorDESCUENTO = 21; - idx_AlbaranesProveedorIMPORTE_DESCUENTO = 22; - idx_AlbaranesProveedorBASE_IMPONIBLE = 23; - idx_AlbaranesProveedorIVA = 24; - idx_AlbaranesProveedorIMPORTE_IVA = 25; - idx_AlbaranesProveedorIMPORTE_TOTAL = 26; - idx_AlbaranesProveedorOBSERVACIONES = 27; - idx_AlbaranesProveedorINCIDENCIAS = 28; - idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 29; - idx_AlbaranesProveedorFECHA_ALTA = 30; - idx_AlbaranesProveedorFECHA_MODIFICACION = 31; - idx_AlbaranesProveedorUSUARIO = 32; - idx_AlbaranesProveedorID_FORMA_PAGO = 33; + idx_AlbaranesProveedorREFERENCIA_PROVEEDOR = 6; + idx_AlbaranesProveedorTIPO = 7; + idx_AlbaranesProveedorID_ALMACEN = 8; + idx_AlbaranesProveedorNOMBRE_ALMACEN = 9; + idx_AlbaranesProveedorID_PEDIDO = 10; + idx_AlbaranesProveedorREF_PED_PROVEEDOR = 11; + idx_AlbaranesProveedorID_FACTURA = 12; + idx_AlbaranesProveedorREF_FACTURA = 13; + idx_AlbaranesProveedorREF_FACTURA_PROV = 14; + idx_AlbaranesProveedorCALLE = 15; + idx_AlbaranesProveedorCODIGO_POSTAL = 16; + idx_AlbaranesProveedorPOBLACION = 17; + idx_AlbaranesProveedorPROVINCIA = 18; + idx_AlbaranesProveedorPERSONA_CONTACTO = 19; + idx_AlbaranesProveedorTELEFONO = 20; + idx_AlbaranesProveedorIMPORTE_NETO = 21; + idx_AlbaranesProveedorIMPORTE_PORTE = 22; + idx_AlbaranesProveedorDESCUENTO = 23; + idx_AlbaranesProveedorIMPORTE_DESCUENTO = 24; + idx_AlbaranesProveedorBASE_IMPONIBLE = 25; + idx_AlbaranesProveedorIVA = 26; + idx_AlbaranesProveedorIMPORTE_IVA = 27; + idx_AlbaranesProveedorIMPORTE_TOTAL = 28; + idx_AlbaranesProveedorOBSERVACIONES = 29; + idx_AlbaranesProveedorINCIDENCIAS = 30; + idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 31; + idx_AlbaranesProveedorFECHA_ALTA = 32; + idx_AlbaranesProveedorFECHA_MODIFICACION = 33; + idx_AlbaranesProveedorUSUARIO = 34; + idx_AlbaranesProveedorID_FORMA_PAGO = 35; { AlbaranesProveedor_Detalles fields } fld_AlbaranesProveedor_DetallesID = 'ID'; @@ -171,13 +175,15 @@ const fld_AlbaranesProveedor_RefreshNOMBRE = 'NOMBRE'; fld_AlbaranesProveedor_RefreshFECHA_ALBARAN = 'FECHA_ALBARAN'; fld_AlbaranesProveedor_RefreshREFERENCIA = 'REFERENCIA'; + fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; fld_AlbaranesProveedor_RefreshTIPO = 'TIPO'; fld_AlbaranesProveedor_RefreshID_ALMACEN = 'ID_ALMACEN'; fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; fld_AlbaranesProveedor_RefreshID_PEDIDO = 'ID_PEDIDO'; fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 'REF_PED_PROVEEDOR'; fld_AlbaranesProveedor_RefreshID_FACTURA = 'ID_FACTURA'; - fld_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR = 'REF_FAC_PROVEEDOR'; + fld_AlbaranesProveedor_RefreshREF_FACTURA = 'REF_FACTURA'; + fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV = 'REF_FACTURA_PROV'; fld_AlbaranesProveedor_RefreshCALLE = 'CALLE'; fld_AlbaranesProveedor_RefreshCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_AlbaranesProveedor_RefreshPOBLACION = 'POBLACION'; @@ -207,39 +213,41 @@ const idx_AlbaranesProveedor_RefreshNOMBRE = 3; idx_AlbaranesProveedor_RefreshFECHA_ALBARAN = 4; idx_AlbaranesProveedor_RefreshREFERENCIA = 5; - idx_AlbaranesProveedor_RefreshTIPO = 6; - idx_AlbaranesProveedor_RefreshID_ALMACEN = 7; - idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 8; - idx_AlbaranesProveedor_RefreshID_PEDIDO = 9; - idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 10; - idx_AlbaranesProveedor_RefreshID_FACTURA = 11; - idx_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR = 12; - idx_AlbaranesProveedor_RefreshCALLE = 13; - idx_AlbaranesProveedor_RefreshCODIGO_POSTAL = 14; - idx_AlbaranesProveedor_RefreshPOBLACION = 15; - idx_AlbaranesProveedor_RefreshPROVINCIA = 16; - idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO = 17; - idx_AlbaranesProveedor_RefreshTELEFONO = 18; - idx_AlbaranesProveedor_RefreshIMPORTE_NETO = 19; - idx_AlbaranesProveedor_RefreshIMPORTE_PORTE = 20; - idx_AlbaranesProveedor_RefreshDESCUENTO = 21; - idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO = 22; - idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE = 23; - idx_AlbaranesProveedor_RefreshIVA = 24; - idx_AlbaranesProveedor_RefreshIMPORTE_IVA = 25; - idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL = 26; - idx_AlbaranesProveedor_RefreshOBSERVACIONES = 27; - idx_AlbaranesProveedor_RefreshINCIDENCIAS = 28; - idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS = 29; - idx_AlbaranesProveedor_RefreshFECHA_ALTA = 30; - idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 31; - idx_AlbaranesProveedor_RefreshUSUARIO = 32; - idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 33; + idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR = 6; + idx_AlbaranesProveedor_RefreshTIPO = 7; + idx_AlbaranesProveedor_RefreshID_ALMACEN = 8; + idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 9; + idx_AlbaranesProveedor_RefreshID_PEDIDO = 10; + idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 11; + idx_AlbaranesProveedor_RefreshID_FACTURA = 12; + idx_AlbaranesProveedor_RefreshREF_FACTURA = 13; + idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV = 14; + idx_AlbaranesProveedor_RefreshCALLE = 15; + idx_AlbaranesProveedor_RefreshCODIGO_POSTAL = 16; + idx_AlbaranesProveedor_RefreshPOBLACION = 17; + idx_AlbaranesProveedor_RefreshPROVINCIA = 18; + idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO = 19; + idx_AlbaranesProveedor_RefreshTELEFONO = 20; + idx_AlbaranesProveedor_RefreshIMPORTE_NETO = 21; + idx_AlbaranesProveedor_RefreshIMPORTE_PORTE = 22; + idx_AlbaranesProveedor_RefreshDESCUENTO = 23; + idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO = 24; + idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE = 25; + idx_AlbaranesProveedor_RefreshIVA = 26; + idx_AlbaranesProveedor_RefreshIMPORTE_IVA = 27; + idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL = 28; + idx_AlbaranesProveedor_RefreshOBSERVACIONES = 29; + idx_AlbaranesProveedor_RefreshINCIDENCIAS = 30; + idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS = 31; + idx_AlbaranesProveedor_RefreshFECHA_ALTA = 32; + idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 33; + idx_AlbaranesProveedor_RefreshUSUARIO = 34; + idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 35; type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{6BCD4068-462A-4DFD-AD5A-F4C827370E02}'] + ['{5197CB29-BF7E-4281-9E0F-7BB774770672}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -268,7 +276,7 @@ type { IAlbaranesProveedor } IAlbaranesProveedor = interface(IDAStronglyTypedDataTable) - ['{3F464120-F9AA-47F0-A1EB-7B3BD57C9FE1}'] + ['{2CFF37C0-A76F-4D9C-BB24-0AC1F3BAF19D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -282,6 +290,8 @@ type procedure SetFECHA_ALBARANValue(const aValue: DateTime); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIA_PROVEEDORValue: String; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); function GetID_ALMACENValue: Integer; @@ -294,8 +304,10 @@ type procedure SetREF_PED_PROVEEDORValue(const aValue: String); function GetID_FACTURAValue: Integer; procedure SetID_FACTURAValue(const aValue: Integer); - function GetREF_FAC_PROVEEDORValue: String; - procedure SetREF_FAC_PROVEEDORValue(const aValue: String); + function GetREF_FACTURAValue: String; + procedure SetREF_FACTURAValue(const aValue: String); + function GetREF_FACTURA_PROVValue: String; + procedure SetREF_FACTURA_PROVValue(const aValue: String); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetCODIGO_POSTALValue: String; @@ -347,13 +359,15 @@ type property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property REF_FAC_PROVEEDOR: String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; + property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; + property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; @@ -394,6 +408,8 @@ type procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetID_ALMACENValue: Integer; virtual; @@ -406,8 +422,10 @@ type procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual; function GetID_FACTURAValue: Integer; virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual; - function GetREF_FAC_PROVEEDORValue: String; virtual; - procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual; + function GetREF_FACTURAValue: String; virtual; + procedure SetREF_FACTURAValue(const aValue: String); virtual; + function GetREF_FACTURA_PROVValue: String; virtual; + procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCODIGO_POSTALValue: String; virtual; @@ -458,13 +476,15 @@ type property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property REF_FAC_PROVEEDOR: String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; + property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; + property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; @@ -495,7 +515,7 @@ type { IAlbaranesProveedor_Detalles } IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{594F6700-525A-419A-B59D-C7E0367E2274}'] + ['{8A62B0E3-DBC8-4606-A047-4203B88513F1}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -602,7 +622,7 @@ type { IAlbaranesProveedor_Detalles_Refresh } IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable) - ['{AE1B5612-9B95-4A74-8727-52AE39DD42F4}'] + ['{0773BFA8-2FAA-412C-A3A9-0978B8A03973}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -709,7 +729,7 @@ type { IAlbaranesProveedor_Refresh } IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable) - ['{43490787-1D12-4B92-A0B2-7E6E78344AEE}'] + ['{F75AB4AE-10D5-4DA0-B8CA-39161C02E8BC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -723,6 +743,8 @@ type procedure SetFECHA_ALBARANValue(const aValue: DateTime); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIA_PROVEEDORValue: String; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); function GetTIPOValue: String; procedure SetTIPOValue(const aValue: String); function GetID_ALMACENValue: Integer; @@ -735,8 +757,10 @@ type procedure SetREF_PED_PROVEEDORValue(const aValue: String); function GetID_FACTURAValue: Integer; procedure SetID_FACTURAValue(const aValue: Integer); - function GetREF_FAC_PROVEEDORValue: String; - procedure SetREF_FAC_PROVEEDORValue(const aValue: String); + function GetREF_FACTURAValue: String; + procedure SetREF_FACTURAValue(const aValue: String); + function GetREF_FACTURA_PROVValue: String; + procedure SetREF_FACTURA_PROVValue(const aValue: String); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetCODIGO_POSTALValue: String; @@ -788,13 +812,15 @@ type property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property REF_FAC_PROVEEDOR: String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; + property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; + property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; @@ -835,6 +861,8 @@ type procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; function GetID_ALMACENValue: Integer; virtual; @@ -847,8 +875,10 @@ type procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual; function GetID_FACTURAValue: Integer; virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual; - function GetREF_FAC_PROVEEDORValue: String; virtual; - procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual; + function GetREF_FACTURAValue: String; virtual; + procedure SetREF_FACTURAValue(const aValue: String); virtual; + function GetREF_FACTURA_PROVValue: String; virtual; + procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCODIGO_POSTALValue: String; virtual; @@ -899,13 +929,15 @@ type property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property REF_FAC_PROVEEDOR: String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; + property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; + property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; property CALLE: String read GetCALLEValue write SetCALLEValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; @@ -1031,6 +1063,16 @@ begin DataTable.Fields[idx_AlbaranesProveedorREFERENCIA].AsString := aValue; end; +function TAlbaranesProveedorDataTableRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_PROVEEDOR].AsString; +end; + +procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_PROVEEDOR].AsString := aValue; +end; + function TAlbaranesProveedorDataTableRules.GetTIPOValue: String; begin result := DataTable.Fields[idx_AlbaranesProveedorTIPO].AsString; @@ -1091,14 +1133,24 @@ begin DataTable.Fields[idx_AlbaranesProveedorID_FACTURA].AsInteger := aValue; end; -function TAlbaranesProveedorDataTableRules.GetREF_FAC_PROVEEDORValue: String; +function TAlbaranesProveedorDataTableRules.GetREF_FACTURAValue: String; begin - result := DataTable.Fields[idx_AlbaranesProveedorREF_FAC_PROVEEDOR].AsString; + result := DataTable.Fields[idx_AlbaranesProveedorREF_FACTURA].AsString; end; -procedure TAlbaranesProveedorDataTableRules.SetREF_FAC_PROVEEDORValue(const aValue: String); +procedure TAlbaranesProveedorDataTableRules.SetREF_FACTURAValue(const aValue: String); begin - DataTable.Fields[idx_AlbaranesProveedorREF_FAC_PROVEEDOR].AsString := aValue; + DataTable.Fields[idx_AlbaranesProveedorREF_FACTURA].AsString := aValue; +end; + +function TAlbaranesProveedorDataTableRules.GetREF_FACTURA_PROVValue: String; +begin + result := DataTable.Fields[idx_AlbaranesProveedorREF_FACTURA_PROV].AsString; +end; + +procedure TAlbaranesProveedorDataTableRules.SetREF_FACTURA_PROVValue(const aValue: String); +begin + DataTable.Fields[idx_AlbaranesProveedorREF_FACTURA_PROV].AsString := aValue; end; function TAlbaranesProveedorDataTableRules.GetCALLEValue: String; @@ -1689,6 +1741,16 @@ begin DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].AsString := aValue; end; +function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].AsString; +end; + +procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].AsString := aValue; +end; + function TAlbaranesProveedor_RefreshDataTableRules.GetTIPOValue: String; begin result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].AsString; @@ -1749,14 +1811,24 @@ begin DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].AsInteger := aValue; end; -function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FAC_PROVEEDORValue: String; +function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURAValue: String; begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR].AsString; + result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].AsString; end; -procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FAC_PROVEEDORValue(const aValue: String); +procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURAValue(const aValue: String); begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR].AsString := aValue; + DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].AsString := aValue; +end; + +function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURA_PROVValue: String; +begin + result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].AsString; +end; + +procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURA_PROVValue(const aValue: String); +begin + DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].AsString := aValue; end; function TAlbaranesProveedor_RefreshDataTableRules.GetCALLEValue: String; diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas index 7ef4a506..d3a68407 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas @@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{180D29B7-ECFB-4220-A71C-E353AE49D624}'; - RID_AlbaranesProveedorDelta = '{DA1EC824-AB6A-4817-9DE0-00CCF46AB7A8}'; - RID_AlbaranesProveedor_DetallesDelta = '{04D610A6-9357-416C-8E6A-D2CC470106A8}'; - RID_AlbaranesProveedor_Detalles_RefreshDelta = '{4CF01E9A-B11E-4E9C-AAC8-D8AE44FDAFA0}'; - RID_AlbaranesProveedor_RefreshDelta = '{3DE95ADD-450F-48CE-9885-43BECF24C910}'; + RID_DarReferenciaDelta = '{F1B43432-A3E7-44D4-AF56-D2CA222CA3B3}'; + RID_AlbaranesProveedorDelta = '{A1201763-99E7-462F-86AD-AAA14EFE7A60}'; + RID_AlbaranesProveedor_DetallesDelta = '{9DD8A677-8A3F-4948-8C8C-1B40BB98AE6F}'; + RID_AlbaranesProveedor_Detalles_RefreshDelta = '{5663912C-0DD4-4B61-9F49-A9EFD19CA7CE}'; + RID_AlbaranesProveedor_RefreshDelta = '{978B6667-02B7-49EC-B0E0-96D2672CCE4B}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{180D29B7-ECFB-4220-A71C-E353AE49D624}'] + ['{F1B43432-A3E7-44D4-AF56-D2CA222CA3B3}'] { Property getters and setters } function GetOldVALORValue : String; @@ -47,7 +47,7 @@ type { IAlbaranesProveedorDelta } IAlbaranesProveedorDelta = interface(IAlbaranesProveedor) - ['{DA1EC824-AB6A-4817-9DE0-00CCF46AB7A8}'] + ['{A1201763-99E7-462F-86AD-AAA14EFE7A60}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -55,13 +55,15 @@ type function GetOldNOMBREValue : String; function GetOldFECHA_ALBARANValue : DateTime; function GetOldREFERENCIAValue : String; + function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldTIPOValue : String; function GetOldID_ALMACENValue : Integer; function GetOldNOMBRE_ALMACENValue : String; function GetOldID_PEDIDOValue : Integer; function GetOldREF_PED_PROVEEDORValue : String; function GetOldID_FACTURAValue : Integer; - function GetOldREF_FAC_PROVEEDORValue : String; + function GetOldREF_FACTURAValue : String; + function GetOldREF_FACTURA_PROVValue : String; function GetOldCALLEValue : String; function GetOldCODIGO_POSTALValue : String; function GetOldPOBLACIONValue : String; @@ -91,13 +93,15 @@ type property OldNOMBRE : String read GetOldNOMBREValue; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldTIPO : String read GetOldTIPOValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property OldREF_FAC_PROVEEDOR : String read GetOldREF_FAC_PROVEEDORValue; + property OldREF_FACTURA : String read GetOldREF_FACTURAValue; + property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue; property OldCALLE : String read GetOldCALLEValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldPOBLACION : String read GetOldPOBLACIONValue; @@ -144,6 +148,9 @@ type function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + function GetOldREFERENCIA_PROVEEDORValue: String; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; @@ -162,9 +169,12 @@ type function GetID_FACTURAValue: Integer; virtual; function GetOldID_FACTURAValue: Integer; virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual; - function GetREF_FAC_PROVEEDORValue: String; virtual; - function GetOldREF_FAC_PROVEEDORValue: String; virtual; - procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual; + function GetREF_FACTURAValue: String; virtual; + function GetOldREF_FACTURAValue: String; virtual; + procedure SetREF_FACTURAValue(const aValue: String); virtual; + function GetREF_FACTURA_PROVValue: String; virtual; + function GetOldREF_FACTURA_PROVValue: String; virtual; + procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual; function GetCALLEValue: String; virtual; function GetOldCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; @@ -242,6 +252,8 @@ type property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property TIPO : String read GetTIPOValue write SetTIPOValue; property OldTIPO : String read GetOldTIPOValue; property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue; @@ -254,8 +266,10 @@ type property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue; property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property REF_FAC_PROVEEDOR : String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; - property OldREF_FAC_PROVEEDOR : String read GetOldREF_FAC_PROVEEDORValue; + property REF_FACTURA : String read GetREF_FACTURAValue write SetREF_FACTURAValue; + property OldREF_FACTURA : String read GetOldREF_FACTURAValue; + property REF_FACTURA_PROV : String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; + property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue; property CALLE : String read GetCALLEValue write SetCALLEValue; property OldCALLE : String read GetOldCALLEValue; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; @@ -307,7 +321,7 @@ type { IAlbaranesProveedor_DetallesDelta } IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles) - ['{04D610A6-9357-416C-8E6A-D2CC470106A8}'] + ['{9DD8A677-8A3F-4948-8C8C-1B40BB98AE6F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -427,7 +441,7 @@ type { IAlbaranesProveedor_Detalles_RefreshDelta } IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh) - ['{4CF01E9A-B11E-4E9C-AAC8-D8AE44FDAFA0}'] + ['{5663912C-0DD4-4B61-9F49-A9EFD19CA7CE}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -547,7 +561,7 @@ type { IAlbaranesProveedor_RefreshDelta } IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh) - ['{3DE95ADD-450F-48CE-9885-43BECF24C910}'] + ['{978B6667-02B7-49EC-B0E0-96D2672CCE4B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -555,13 +569,15 @@ type function GetOldNOMBREValue : String; function GetOldFECHA_ALBARANValue : DateTime; function GetOldREFERENCIAValue : String; + function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldTIPOValue : String; function GetOldID_ALMACENValue : Integer; function GetOldNOMBRE_ALMACENValue : String; function GetOldID_PEDIDOValue : Integer; function GetOldREF_PED_PROVEEDORValue : String; function GetOldID_FACTURAValue : Integer; - function GetOldREF_FAC_PROVEEDORValue : String; + function GetOldREF_FACTURAValue : String; + function GetOldREF_FACTURA_PROVValue : String; function GetOldCALLEValue : String; function GetOldCODIGO_POSTALValue : String; function GetOldPOBLACIONValue : String; @@ -591,13 +607,15 @@ type property OldNOMBRE : String read GetOldNOMBREValue; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldTIPO : String read GetOldTIPOValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property OldREF_FAC_PROVEEDOR : String read GetOldREF_FAC_PROVEEDORValue; + property OldREF_FACTURA : String read GetOldREF_FACTURAValue; + property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue; property OldCALLE : String read GetOldCALLEValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldPOBLACION : String read GetOldPOBLACIONValue; @@ -644,6 +662,9 @@ type function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + function GetOldREFERENCIA_PROVEEDORValue: String; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; @@ -662,9 +683,12 @@ type function GetID_FACTURAValue: Integer; virtual; function GetOldID_FACTURAValue: Integer; virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual; - function GetREF_FAC_PROVEEDORValue: String; virtual; - function GetOldREF_FAC_PROVEEDORValue: String; virtual; - procedure SetREF_FAC_PROVEEDORValue(const aValue: String); virtual; + function GetREF_FACTURAValue: String; virtual; + function GetOldREF_FACTURAValue: String; virtual; + procedure SetREF_FACTURAValue(const aValue: String); virtual; + function GetREF_FACTURA_PROVValue: String; virtual; + function GetOldREF_FACTURA_PROVValue: String; virtual; + procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual; function GetCALLEValue: String; virtual; function GetOldCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; @@ -742,6 +766,8 @@ type property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property TIPO : String read GetTIPOValue write SetTIPOValue; property OldTIPO : String read GetOldTIPOValue; property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue; @@ -754,8 +780,10 @@ type property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue; property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property REF_FAC_PROVEEDOR : String read GetREF_FAC_PROVEEDORValue write SetREF_FAC_PROVEEDORValue; - property OldREF_FAC_PROVEEDOR : String read GetOldREF_FAC_PROVEEDORValue; + property REF_FACTURA : String read GetREF_FACTURAValue write SetREF_FACTURAValue; + property OldREF_FACTURA : String read GetOldREF_FACTURAValue; + property REF_FACTURA_PROV : String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; + property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue; property CALLE : String read GetCALLEValue write SetCALLEValue; property OldCALLE : String read GetOldCALLEValue; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; @@ -938,6 +966,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA] := aValue; end; +function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_PROVEEDOR]; +end; + +function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_PROVEEDOR]; +end; + +procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_PROVEEDOR] := aValue; +end; + function TAlbaranesProveedorBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorTIPO]; @@ -1028,19 +1071,34 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FACTURA] := aValue; end; -function TAlbaranesProveedorBusinessProcessorRules.GetREF_FAC_PROVEEDORValue: String; +function TAlbaranesProveedorBusinessProcessorRules.GetREF_FACTURAValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FAC_PROVEEDOR]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FACTURA]; end; -function TAlbaranesProveedorBusinessProcessorRules.GetOldREF_FAC_PROVEEDORValue: String; +function TAlbaranesProveedorBusinessProcessorRules.GetOldREF_FACTURAValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREF_FAC_PROVEEDOR]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREF_FACTURA]; end; -procedure TAlbaranesProveedorBusinessProcessorRules.SetREF_FAC_PROVEEDORValue(const aValue: String); +procedure TAlbaranesProveedorBusinessProcessorRules.SetREF_FACTURAValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FAC_PROVEEDOR] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FACTURA] := aValue; +end; + +function TAlbaranesProveedorBusinessProcessorRules.GetREF_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FACTURA_PROV]; +end; + +function TAlbaranesProveedorBusinessProcessorRules.GetOldREF_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREF_FACTURA_PROV]; +end; + +procedure TAlbaranesProveedorBusinessProcessorRules.SetREF_FACTURA_PROVValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREF_FACTURA_PROV] := aValue; end; function TAlbaranesProveedorBusinessProcessorRules.GetCALLEValue: String; @@ -1908,6 +1966,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA] := aValue; end; +function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR]; +end; + +function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR]; +end; + +procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR] := aValue; +end; + function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO]; @@ -1998,19 +2071,34 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA] := aValue; end; -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FAC_PROVEEDORValue: String; +function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURAValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA]; end; -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FAC_PROVEEDORValue: String; +function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURAValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA]; end; -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FAC_PROVEEDORValue(const aValue: String); +procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURAValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FAC_PROVEEDOR] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA] := aValue; +end; + +function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV]; +end; + +function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV]; +end; + +procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURA_PROVValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV] := aValue; end; function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetCALLEValue: String; diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm index 1e08a66c..7ac8104c 100644 --- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm +++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm @@ -71,14 +71,14 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor TargetTable = 'ALBARANES_PROVEEDOR' SQL = 'SELECT '#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN,' + - ' '#10' REFERENCIA, TIPO, ID_ALMACEN, NOMBRE_ALMACEN, ID_PEDIDO,'#10' ' + - ' REF_PED_PROVEEDOR, ID_FACTURA, REF_FAC_PROVEEDOR, CALLE, CODI' + - 'GO_POSTAL,'#10' POBLACION, PROVINCIA, PERSONA_CONTACTO, TELEFONO,' + - ' IMPORTE_NETO, '#10' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO,' + - ' BASE_IMPONIBLE, '#10' IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACI' + - 'ONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_M' + - 'ODIFICACION, '#10' USUARIO, ID_FORMA_PAGO'#10' FROM'#10' V_ALBARANES_' + - 'PROVEEDOR' + ' REFERENCIA, REFERENCIA_PROVEEDOR,'#10' TIPO, ID_ALMACEN, NOMBRE_' + + 'ALMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,'#10' ID_FACTURA, REF_FACTU' + + 'RA, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA' + + ','#10' PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, D' + + 'ESCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IV' + + 'A, IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_AC' + + 'TIVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAG' + + 'O'#10' FROM'#10' V_ALBARANES_PROVEEDOR' StatementType = stSQL ColumnMappings = < item @@ -209,13 +209,21 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DatasetField = 'REF_PED_PROVEEDOR' TableField = 'REF_PED_PROVEEDOR' end - item - DatasetField = 'REF_FAC_PROVEEDOR' - TableField = 'REF_FAC_PROVEEDOR' - end item DatasetField = 'TIPO' TableField = 'TIPO' + end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'REF_FACTURA' + TableField = 'REF_FACTURA' + end + item + DatasetField = 'REF_FACTURA_PROV' + TableField = 'REF_FACTURA_PROV' end> end> Name = 'AlbaranesProveedor' @@ -282,6 +290,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'TIPO' DataType = datString @@ -346,11 +365,22 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor LookupCache = False end item - Name = 'REF_FAC_PROVEEDOR' + Name = 'REF_FACTURA' DataType = datString Size = 255 BlobType = dabtUnknown - DictionaryEntry = 'AlbaranesProveedor_REF_FAC_PROVEEDOR' + DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REF_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA_PROV' InPrimaryKey = False Calculated = False Lookup = False @@ -1080,15 +1110,16 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Connection = 'IBX' TargetTable = 'ALBARANES_PROVEEDOR' SQL = - 'SELECT '#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN,' + - ' '#10' REFERENCIA, TIPO, ID_ALMACEN, NOMBRE_ALMACEN, ID_PEDIDO,'#10' ' + - ' REF_PED_PROVEEDOR, ID_FACTURA, REF_FAC_PROVEEDOR, CALLE, CODI' + - 'GO_POSTAL,'#10' POBLACION, PROVINCIA, PERSONA_CONTACTO, TELEFONO,' + - ' IMPORTE_NETO, '#10' IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO,' + - ' BASE_IMPONIBLE, '#10' IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACI' + - 'ONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_M' + - 'ODIFICACION, '#10' USUARIO, ID_FORMA_PAGO'#10' FROM'#10' V_ALBARANES_' + - 'PROVEEDOR'#10'WHERE V_ALBARANES_PROVEEDOR.ID = :ID' + 'SELECT'#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN, ' + + 'REFERENCIA, REFERENCIA_PROVEEDOR,'#10' TIPO, ID_ALMACEN, NOMBRE_A' + + 'LMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,'#10' ID_FACTURA, REF_FACTUR' + + 'A, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA,' + + #10' PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, DE' + + 'SCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA' + + ', IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACT' + + 'IVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAGO' + + #10' FROM'#10' V_ALBARANES_PROVEEDOR'#10'WHERE V_ALBARANES_PROVEEDOR.ID' + + ' = :ID' StatementType = stSQL ColumnMappings = < item @@ -1219,13 +1250,21 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DatasetField = 'REF_PED_PROVEEDOR' TableField = 'REF_PED_PROVEEDOR' end - item - DatasetField = 'REF_FAC_PROVEEDOR' - TableField = 'REF_FAC_PROVEEDOR' - end item DatasetField = 'TIPO' TableField = 'TIPO' + end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'REF_FACTURA' + TableField = 'REF_FACTURA' + end + item + DatasetField = 'REF_FACTURA_PROV' + TableField = 'REF_FACTURA_PROV' end> end> Name = 'AlbaranesProveedor_Refresh' @@ -1295,6 +1334,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Lookup = False LookupCache = False end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'TIPO' DataType = datString @@ -1359,7 +1409,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor LookupCache = False end item - Name = 'REF_FAC_PROVEEDOR' + Name = 'REF_FACTURA' DataType = datString Size = 255 BlobType = dabtUnknown @@ -1370,6 +1420,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Lookup = False LookupCache = False end + item + Name = 'REF_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DictionaryEntry = 'AlbaranesProveedor_REF_FAC_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'CALLE' DataType = datString @@ -1680,6 +1741,22 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Value = '' ParamType = daptInput end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end + item + Name = 'REF_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'CALLE' DataType = datString @@ -1848,21 +1925,23 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor SQL = 'INSERT INTO ALBARANES_PROVEEDOR ('#10' ID,'#10' ID_EMPRESA,'#10' ID' + '_PROVEEDOR,'#10' FECHA_ALBARAN,'#10' ID_PEDIDO,'#10' ID_FACTURA,'#10' ' + - ' REFERENCIA,'#10' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' P' + - 'ROVINCIA,'#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE' + - ','#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA' + - ','#10' IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INC' + - 'IDENCIAS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' US' + - 'UARIO,'#10' ID_ALMACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' ' + - 'IMPORTE_PORTE)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROV' + - 'EEDOR,'#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' ' + - ':REFERENCIA,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' ' + - ' :PROVINCIA,'#10' :PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMP' + - 'ONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :I' + - 'MPORTE_IVA,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDEN' + - 'CIAS,'#10' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODI' + - 'FICACION,'#10' :USUARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' ' + - ' :IMPORTE_NETO,'#10' :IMPORTE_PORTE);' + ' REFERENCIA,'#10' REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_PROV,'#10' ' + + ' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINCIA,'#10' PE' + + 'RSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' DESCUENTO,' + + #10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TO' + + 'TAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' + + ','#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_AL' + + 'MACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE)'#10' ' + + ' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' :FECH' + + 'A_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :REFERENCIA,'#10' ' + + ' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10' :' + + 'CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA_CONT' + + 'ACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :I' + + 'MPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_TOTAL' + + ','#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS' + + ','#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :I' + + 'D_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPORTE_P' + + 'ORTE);' StatementType = stSQL ColumnMappings = <> end> @@ -1934,6 +2013,22 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Value = '' ParamType = daptInput end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end + item + Name = 'REF_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'CALLE' DataType = datString @@ -2110,19 +2205,20 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor 'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' + ' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN = :FECHA_ALBA' + 'RAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ' + - ' REFERENCIA = :REFERENCIA,'#10' CALLE = :CALLE,'#10' CODIGO_POST' + - 'AL = :CODIGO_POSTAL,'#10' POBLACION = :POBLACION,'#10' PROVINCIA =' + - ' :PROVINCIA,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELEF' + - 'ONO = :TELEFONO,'#10' BASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCU' + - 'ENTO = :DESCUENTO,'#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' ' + - ' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL' + - ' = :IMPORTE_TOTAL,'#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCID' + - 'ENCIAS = :INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_AC' + - 'TIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :F' + - 'ECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_' + - 'ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = ' + - ':IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID ' + - '= :OLD_ID);' + ' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PROVEEDOR = :REFEREN' + + 'CIA_PROVEEDOR,'#10' REF_FACTURA_PROV = :REF_FACTURA_PROV,'#10' CAL' + + 'LE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' POBLACION =' + + ' :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' PERSONA_CONTACTO = ' + + ':PERSONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' BASE_IMPONIBLE ' + + '= :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCU' + + 'ENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IM' + + 'PORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES' + + ' = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCI' + + 'AS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,' + + #10' FECHA_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :US' + + 'UARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FOR' + + 'MA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :' + + 'IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);' StatementType = stSQL ColumnMappings = <> end> @@ -2911,6 +3007,33 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DisplayWidth = 0 DisplayLabel = 'REF_FAC_PROVEEDOR' Alignment = taLeftJustify + end + item + Name = 'AlbaranesProveedor_REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. provedor' + Alignment = taLeftJustify + end + item + Name = 'AlbaranesProveedor_REF_FACTURA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Referencia factura' + Alignment = taLeftJustify + end + item + Name = 'AlbaranesProveedor_REF_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. factura prov' + Alignment = taLeftJustify end> Left = 48 Top = 128 diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm index 54c88327..918fe88d 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm @@ -181,42 +181,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor inherited ToolBar1: TToolBar Width = 757 ExplicitWidth = 757 - inherited UpDown1: TUpDown - Left = 237 - ExplicitLeft = 237 - end - inherited ToolButton13: TToolButton - Left = 254 - ExplicitLeft = 254 - end - inherited ToolButton6: TToolButton - Left = 262 - ExplicitLeft = 262 - end - inherited ToolButton7: TToolButton - Left = 296 - ExplicitLeft = 296 - end - inherited ToolButton8: TToolButton - Left = 330 - ExplicitLeft = 330 - end - inherited ToolButton12: TToolButton - Left = 364 - ExplicitLeft = 364 - end - inherited ToolButton9: TToolButton - Left = 372 - ExplicitLeft = 372 - end - inherited ToolButton10: TToolButton - Left = 406 - ExplicitLeft = 406 - end - inherited ToolButton11: TToolButton - Left = 440 - ExplicitLeft = 440 - end end inherited cxGrid: TcxGrid Width = 757 @@ -237,6 +201,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas index 3c8ad3e1..b3c19058 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas @@ -93,7 +93,7 @@ begin inherited; if (Sender as TAction).Enabled then (Sender as TAction).Enabled := HayDatos - and (Albaran.REF_FAC_PROVEEDOR = ''); + and (Albaran.REF_FACTURA = ''); end; procedure TfEditorAlbaranProveedor.AsignarVista; diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas index a63de2ee..9665b331 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas @@ -72,7 +72,7 @@ begin inherited; if (Sender as TAction).Enabled then (Sender as TAction).Enabled := HayDatos - and (Albaranes.REF_FAC_PROVEEDOR = ''); + and (Albaranes.REF_FACTURA = ''); end; procedure TfEditorAlbaranesProveedor.actGenerarFacturaExecute(Sender: TObject); @@ -86,7 +86,7 @@ procedure TfEditorAlbaranesProveedor.actGenerarFacturaUpdate(Sender: TObject); begin inherited; (Sender as TAction).Enabled := HayDatos - and (Albaranes.REF_FAC_PROVEEDOR = '') + and (Albaranes.REF_FACTURA = '') and ViewGrid.esSeleccionCeldaDatos; end; diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm index 9f02e26e..85fb6e02 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm @@ -18,8 +18,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor 688 461) object edtFechaAlbaran: TcxDBDateEdit - Left = 116 - Top = 55 + Left = 119 + Top = 82 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ALBARAN' DataBinding.DataSource = DADataSource @@ -36,7 +36,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 1 + TabOrder = 2 Width = 119 end object memObservaciones: TcxDBMemo @@ -53,12 +53,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 + TabOrder = 11 Height = 253 Width = 186 end object eReferencia: TcxDBTextEdit - Left = 116 + Left = 119 Top = 28 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA' @@ -90,7 +90,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 8 + TabOrder = 10 ReadOnly = False ExplicitLeft = 316 ExplicitTop = 28 @@ -135,7 +135,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor end inline frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv Left = 22 - Top = 195 + Top = 249 Width = 445 Height = 175 Font.Charset = DEFAULT_CHARSET @@ -144,10 +144,10 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 7 + TabOrder = 9 ReadOnly = False ExplicitLeft = 22 - ExplicitTop = 195 + ExplicitTop = 249 ExplicitWidth = 445 ExplicitHeight = 175 inherited dxLayoutControl1: TdxLayoutControl @@ -169,9 +169,9 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor end inherited bModificar: TBitBtn Left = 126 - Top = 209 + Top = 155 ExplicitLeft = 126 - ExplicitTop = 209 + ExplicitTop = 155 end inherited txtDireccion: TStaticText Height = 110 @@ -184,8 +184,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor end end object cbFormaPago: TcxDBLookupComboBox - Left = 116 - Top = 138 + Left = 119 + Top = 192 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -209,21 +209,21 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 5 + TabOrder = 7 Width = 90 end object bFormasPago: TButton Left = 154 - Top = 138 + Top = 192 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' - TabOrder = 6 + TabOrder = 8 OnClick = bFormasPagoClick end object eReferenciaPedidoCli: TcxTextEdit - Left = 116 - Top = 82 + Left = 119 + Top = 109 Anchors = [akLeft, akTop, akRight] Enabled = False Properties.ReadOnly = False @@ -241,22 +241,22 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 2 + TabOrder = 3 Width = 69 end object Button1: TButton Left = 154 - Top = 82 + Top = 109 Width = 132 Height = 23 Action = actVerPedido - TabOrder = 3 + TabOrder = 4 end - object eRefFacturaProv: TcxDBTextEdit - Left = 116 - Top = 111 + object eRefFactura: TcxDBTextEdit + Left = 119 + Top = 138 Anchors = [akLeft, akTop, akRight] - DataBinding.DataField = 'REF_FAC_PROVEEDOR' + DataBinding.DataField = 'REF_FACTURA' DataBinding.DataSource = DADataSource Enabled = False Properties.ReadOnly = False @@ -275,9 +275,55 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 4 + TabOrder = 5 Width = 216 end + object eReferenciaProveedor: TcxDBTextEdit + Left = 119 + Top = 55 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'REFERENCIA_PROVEEDOR' + DataBinding.DataSource = DADataSource + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clWindow + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Width = 170 + end + object eReferenciaFacturaProveedor: TcxDBTextEdit + Left = 119 + Top = 165 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'REF_FACTURA_PROV' + DataBinding.DataSource = DADataSource + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clWindow + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 6 + Width = 170 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -298,6 +344,11 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Control = eReferencia ControlOptions.ShowBorder = False end + object dxLayoutControl1Item11: TdxLayoutItem + Caption = 'Ref. proveedor:' + Control = eReferenciaProveedor + ControlOptions.ShowBorder = False + end object dxLayoutControl1Item2: TdxLayoutItem Caption = 'Fecha del albar'#225'n:' Control = edtFechaAlbaran @@ -325,7 +376,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor end object dxLayoutControl1Item10: TdxLayoutItem Caption = 'Ref. factura:' - Control = eRefFacturaProv + Control = eRefFactura + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item12: TdxLayoutItem + Caption = 'Ref. factura prov.:' + Control = eReferenciaFacturaProveedor ControlOptions.ShowBorder = False end object dxLayoutControl1Group4: TdxLayoutGroup diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas index 9653c3da..522b85af 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas @@ -61,7 +61,11 @@ type dxLayoutControl1Group5: TdxLayoutGroup; actVerPedido: TAction; dxLayoutControl1Item10: TdxLayoutItem; - eRefFacturaProv: TcxDBTextEdit; + eRefFactura: TcxDBTextEdit; + dxLayoutControl1Item11: TdxLayoutItem; + eReferenciaProveedor: TcxDBTextEdit; + dxLayoutControl1Item12: TdxLayoutItem; + eReferenciaFacturaProveedor: TcxDBTextEdit; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject); @@ -235,7 +239,7 @@ begin frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := FAlbaran; eReferenciaPedidoCli.Enabled := False; - eRefFacturaProv.Enabled := False; + eRefFactura.Enabled := False; FPedidoAsociado := NIL; if (FAlbaran.ID_PEDIDO > 0) then diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.dfm index a6d8fbc8..221ac35f 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.dfm @@ -2,10 +2,32 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor OnCreate = CustomViewCreate inherited cxGrid: TcxGrid inherited cxGridView: TcxGridDBTableView + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = cxGridViewREF_FACTURA + end> + DataController.Summary.FooterSummaryItems = < + item + Format = '0 pedidos' + Kind = skCount + end + item + Format = '0 albaranes' + Kind = skCount + Column = cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewREF_FACTURA + end> inherited cxGridViewCALLE: TcxGridDBColumn Visible = False end - inherited cxGridViewREF_FAC_PROVEEDOR: TcxGridDBColumn + inherited cxGridViewREF_FACTURA: TcxGridDBColumn Caption = 'Ref. abono' end end @@ -14,7 +36,6 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor inherited TBXDock1: TTBXDock inherited TBXDockablePanel1: TTBXDockablePanel inherited dxLayoutControl1: TdxLayoutControl - ExplicitWidth = 124 inherited txtFiltroTodo: TcxTextEdit ExplicitWidth = 453 Width = 453 @@ -24,8 +45,8 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor Width = 237 end inherited edtFechaFinFiltro: TcxDateEdit - ExplicitWidth = 199 - Width = 199 + ExplicitWidth = 239 + Width = 239 end end end diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.pas index b6dbcf32..2ead872b 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.pas @@ -12,7 +12,7 @@ uses cxGridPopupMenu, dxPScxCommon, dxPScxGridLnk, uDADataTable, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, - cxControls, cxGridCustomView, cxGrid; + cxControls, cxGridCustomView, cxGrid, cxTextEdit; type IViewAlbaranesDevProveedor = interface(IViewAlbaranesProveedor) diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm index 4292ca24..d64eb0d0 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm @@ -61,6 +61,9 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor DataBinding.FieldName = 'REFERENCIA' Width = 65 end + object cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn + DataBinding.FieldName = 'REFERENCIA_PROVEEDOR' + end object cxGridViewFECHA_ALBARAN: TcxGridDBColumn Caption = 'Fecha' DataBinding.FieldName = 'FECHA_ALBARAN' @@ -104,11 +107,20 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor DataBinding.FieldName = 'TELEFONO' Visible = False end - object cxGridViewREF_FAC_PROVEEDOR: TcxGridDBColumn + object cxGridViewREF_FACTURA: TcxGridDBColumn Caption = 'Ref. factura' - DataBinding.FieldName = 'REF_FAC_PROVEEDOR' + DataBinding.FieldName = 'REF_FACTURA' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taRightJustify + HeaderAlignmentHorz = taRightJustify Width = 24 end + object cxGridViewREF_FACTURA_PROV: TcxGridDBColumn + DataBinding.FieldName = 'REF_FACTURA_PROV' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn Caption = 'Importe total' DataBinding.FieldName = 'IMPORTE_TOTAL' @@ -133,9 +145,20 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor ExplicitWidth = 596 inherited dxLayoutControl1: TdxLayoutControl Width = 592 + ExplicitWidth = 592 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end inherited edtFechaFinFiltro: TcxDateEdit Left = 367 ExplicitLeft = 367 + ExplicitWidth = 121 + Width = 121 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas index 81177144..e24014c0 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas @@ -11,7 +11,7 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGridLnk, uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes, cxGrid, uBizAlbaranesProveedor, cxCurrencyEdit, Forms, uViewFiltroBase, - ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg; + ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxTextEdit; type IViewAlbaranesProveedor = interface(IViewGrid) @@ -35,7 +35,7 @@ type cxGridViewTELEFONO: TcxGridDBColumn; cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn; cxGridViewREF_PED_PROVEEDOR: TcxGridDBColumn; - cxGridViewREF_FAC_PROVEEDOR: TcxGridDBColumn; + cxGridViewREF_FACTURA: TcxGridDBColumn; cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; actProveedor: TAction; actAlmacen: TAction; @@ -43,6 +43,8 @@ type TBXSeparatorItem1: TTBXSeparatorItem; TBXItem3: TTBXItem; TBXSeparatorItem2: TTBXSeparatorItem; + cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn; + cxGridViewREF_FACTURA_PROV: TcxGridDBColumn; procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; diff --git a/Source/Modulos/Comisiones/Controller/uComisionesController.pas b/Source/Modulos/Comisiones/Controller/uComisionesController.pas index 11fac65c..200e7b63 100644 --- a/Source/Modulos/Comisiones/Controller/uComisionesController.pas +++ b/Source/Modulos/Comisiones/Controller/uComisionesController.pas @@ -13,12 +13,12 @@ type function BuscarTodos: IBizComisiones; procedure VerTodos(AComision: IBizComisiones); procedure Ver(AComision: IBizComisiones); - procedure Anadir(AComision : IBizComisiones); + function Anadir(AComision : IBizComisiones): Boolean; function Eliminar(AComision : IBizComisiones): Boolean; function Guardar(AComision : IBizComisiones): Boolean; procedure DescartarCambios(AComision : IBizComisiones); - procedure Preview(AComision : IBizComisiones); - procedure Print(AComision : IBizComisiones); + procedure Preview(AComision : IBizComisiones; const DesglosadoProv: Boolean); + procedure Print(AComision : IBizComisiones; const DesglosadoProv: Boolean); function ElegirFacturasComision(AComision : IBizComisiones): Boolean; procedure EliminarFactura(AComision : IBizComisiones); @@ -51,12 +51,12 @@ type function Eliminar(AComision : IBizComisiones): Boolean; function Guardar(AComision : IBizComisiones): Boolean; procedure DescartarCambios(AComision : IBizComisiones); - procedure Anadir(AComision : IBizComisiones); + function Anadir(AComision : IBizComisiones): Boolean; function BuscarTodos: IBizComisiones; procedure VerTodos(AComision: IBizComisiones); procedure Ver(AComision: IBizComisiones); - procedure Preview(AComision : IBizComisiones); - procedure Print(AComision : IBizComisiones); + procedure Preview(AComision : IBizComisiones; const DesglosadoProv: Boolean); + procedure Print(AComision : IBizComisiones; const DesglosadoProv: Boolean); function ElegirFacturasComision(AComision : IBizComisiones): Boolean; procedure EliminarFactura(AComision : IBizComisiones); procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant); @@ -72,9 +72,16 @@ uses { TComisionesController } -procedure TComisionesController.Anadir(AComision: IBizComisiones); +function TComisionesController.Anadir(AComision: IBizComisiones): Boolean; begin + if not Assigned(AComision) then + raise Exception.Create ('Comision no asignado (Anadir)'); + + if not AComision.DataTable.Active then + AComision.DataTable.Active := True; + AComision.Insert; + Result := True; end; procedure TComisionesController.AsignarDataModule; @@ -88,7 +95,7 @@ begin raise Exception.Create ('Comision no asignado'); AsignarIDDetalles(AComision.Facturas, IDNuevo, AComision.EsNuevo); - + if AComision.EsNuevo then begin AComision.Edit; @@ -459,31 +466,31 @@ begin end; end; end; -procedure TComisionesController.Preview(AComision: IBizComisiones); +procedure TComisionesController.Preview(AComision: IBizComisiones; const DesglosadoProv: Boolean); var AReportController : IComisionesReportController; begin AReportController := TComisionesReportController.Create; try if Assigned(AComision) then - AReportController.Preview(AComision.ID) + AReportController.Preview(AComision.ID, DesglosadoProv) else - AReportController.Preview(Null) + AReportController.Preview(Null, DesglosadoProv) finally AReportController := NIL; end; end; -procedure TComisionesController.Print(AComision: IBizComisiones); +procedure TComisionesController.Print(AComision: IBizComisiones; const DesglosadoProv: Boolean); var AReportController : IComisionesReportController; begin AReportController := TComisionesReportController.Create; try if Assigned(AComision) then - AReportController.Preview(AComision.ID) + AReportController.Preview(AComision.ID, DesglosadoProv) else - AReportController.Preview(Null); + AReportController.Preview(Null, DesglosadoProv); finally AReportController := NIL; end; diff --git a/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas b/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas index 5487bc26..3032b1ac 100644 --- a/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas +++ b/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas @@ -10,8 +10,8 @@ uses type IComisionesReportController = interface ['{7ABB74C2-050C-4737-BC4C-C5F20883CED8}'] - procedure Preview(const AComisionID : Variant); - procedure Print(const AComisionID : Variant); + procedure Preview(const AComisionID : Variant; const DesglosadoProv: Boolean); + procedure Print(const AComisionID : Variant; const DesglosadoProv: Boolean); end; TComisionesReportController = class(TInterfacedObject, IComisionesReportController) @@ -22,8 +22,8 @@ type constructor Create; destructor Destroy; override; - procedure Preview(const AComisionID : Variant); - procedure Print(const AComisionID : Variant); + procedure Preview(const AComisionID : Variant; const DesglosadoProv: Boolean); + procedure Print(const AComisionID : Variant; const DesglosadoProv: Boolean); end; @@ -53,7 +53,7 @@ begin inherited; end; -procedure TComisionesReportController.Preview(const AComisionID : Variant); +procedure TComisionesReportController.Preview(const AComisionID : Variant; const DesglosadoProv: Boolean); var AStream: Binary; AEditor : IEditorComisionesPreview; @@ -62,7 +62,7 @@ begin ShowHourglassCursor; try - AStream := FDataModule.GetReport(AComisionID, '', '', Null); + AStream := FDataModule.GetReport(AComisionID, DesglosadoProv,'', '', Null); try CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor); AEditor.DataModule := FDataModule; @@ -78,7 +78,7 @@ begin AEditor.Preview; end; -procedure TComisionesReportController.Print(const AComisionID : Variant); +procedure TComisionesReportController.Print(const AComisionID : Variant; const DesglosadoProv: Boolean); var AStream: Binary; AEditor : IEditorComisionesPreview; @@ -87,7 +87,7 @@ begin ShowHourglassCursor; try - AStream := FDataModule.GetReport(AComisionID, '', '', Null); + AStream := FDataModule.GetReport(AComisionID, DesglosadoProv, '', '', Null); try CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor); AEditor.DataModule := FDataModule; diff --git a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas index 1caa675d..d55371b9 100644 --- a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas +++ b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas @@ -36,7 +36,7 @@ type function NewItem : IBizComisiones; // Report - function GetReport(const AComisionID: Variant; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; + function GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; end; implementation @@ -155,9 +155,9 @@ begin Result := (RORemoteService as IsrvComisiones).GetNextAutoInc(aGeneratorName) end; -function TDataModuleComisiones.GetReport(const AComisionID: Variant; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; +function TDataModuleComisiones.GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; begin - Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID, FechaIni, FechaFin, AAgenteID); + Result := (RORemoteService as IsrvComisiones).GenerateReport(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID); end; function TDataModuleComisiones.NewItem: IBizComisiones; diff --git a/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas index ab642766..ce025e5b 100644 --- a/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas +++ b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisionesReport.pas @@ -8,7 +8,7 @@ uses type IDataModuleComisionesReport = interface ['{F498AC70-AA38-4C06-B301-85A4AC0B210B}'] - function GetReport(const AComisionID: Variant; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; + function GetReport(const AComisionID: Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; end; implementation diff --git a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm index fb77dd2d..190ded51 100644 --- a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm +++ b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm @@ -63,6 +63,490 @@ object RptComisiones: TRptComisiones ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Datasets = < + item + Params = <> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_AGENTES_COMISIONES_DET_FAC' + SQL = + 'select'#10' COMISIONES_LIQUIDADAS.FECHA AS FECHA_COMISION,'#10' ' + + ' COMISIONES_LIQUIDADAS.REFERENCIA AS REFERENCIA_COMISION,'#10' ' + + ' COMISIONES_LIQUIDADAS.DESCRIPCION,'#10' COMISIONES_LIQUIDA' + + 'DAS.IMPORTE_TOTAL,'#10#10' V_AGENTES_COMISIONES_DET_FAC.ID_EMPRE' + + 'SA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, COALESCE(EMPRESAS.RAZON' + + '_SOCIAL, EMPRESAS.NOMBRE) as RAZON_SOCIAL,'#10' EMPRESAS.CALLE' + + ' as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' ' + + ' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POST' + + 'AL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESA' + + 'S.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGIN' + + 'A_WEB, EMPRESAS.REGISTRO_MERCANTIL,'#10#10' V_AGENTES_COMISIONES' + + '_DET_FAC.ID_AGENTE, CONTACTOS1.NOMBRE as AGENTE,'#10' V_AGENTE' + + 'S_COMISIONES_DET_FAC.ID_FACTURA,'#10' V_AGENTES_COMISIONES_DET' + + '_FAC.ID_COMISION_LIQUIDADA,'#10' V_AGENTES_COMISIONES_DET_FAC.' + + 'FECHA,'#10' V_AGENTES_COMISIONES_DET_FAC.REFERENCIA,'#10' V_' + + 'AGENTES_COMISIONES_DET_FAC.SITUACION,'#10' V_AGENTES_COMISIONE' + + 'S_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLIENTE,'#10#10' ' + + ' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOTAL) as IMPORTE_CO' + + 'MISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_COMI' + + 'SION) as IMPORTE_COMISION'#10#10#10'from V_AGENTES_COMISIONES_DET_FAC'#10'LE' + + 'FT JOIN COMISIONES_LIQUIDADAS ON (COMISIONES_LIQUIDADAS.ID = V_A' + + 'GENTES_COMISIONES_DET_FAC.ID_COMISION_LIQUIDADA)'#10'LEFT JOIN EMPRE' + + 'SAS ON EMPRESAS.ID = V_AGENTES_COMISIONES_DET_FAC.ID_EMPRESA'#10'LEF' + + 'T JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = V_AGENTES_COMISI' + + 'ONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACTOS2 ON (CONTA' + + 'CTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIENTE)'#10'LEFT JOIN CO' + + 'NTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES_COMISIONES_DET_' + + 'FAC.ID_PROVEEDOR)'#10'WHERE (V_AGENTES_COMISIONES_DET_FAC.ID_COMISIO' + + 'N_LIQUIDADA IS NOT NULL)'#10'GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,' + + ' 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26'#10 + + 'ORDER BY 1' + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'ID_CLIENTE' + TableField = 'ID_CLIENTE' + end + item + DatasetField = 'REFERENCIA_COMISION' + TableField = 'REFERENCIA_COMISION' + end + item + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' + end + item + DatasetField = 'ID_AGENTE' + TableField = 'ID_AGENTE' + end + item + DatasetField = 'AGENTE' + TableField = 'AGENTE' + end + item + DatasetField = 'ID_FACTURA' + TableField = 'ID_FACTURA' + end + item + DatasetField = 'ID_COMISION_LIQUIDADA' + TableField = 'ID_COMISION_LIQUIDADA' + end + item + DatasetField = 'FECHA' + TableField = 'FECHA' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end + item + DatasetField = 'CLIENTE' + TableField = 'CLIENTE' + end + item + DatasetField = 'IMPORTE_COMISIONABLE' + TableField = 'IMPORTE_COMISIONABLE' + end + item + DatasetField = 'IMPORTE_COMISION' + TableField = 'IMPORTE_COMISION' + end + item + DatasetField = 'FECHA_COMISION' + TableField = 'FECHA_COMISION' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'NIF_CIF_EMPRESA' + TableField = 'NIF_CIF_EMPRESA' + end + item + DatasetField = 'RAZON_SOCIAL' + TableField = 'RAZON_SOCIAL' + end + item + DatasetField = 'CALLE_EMPRESA' + TableField = 'CALLE_EMPRESA' + end + item + DatasetField = 'POBLACION_EMPRESA' + TableField = 'POBLACION_EMPRESA' + end + item + DatasetField = 'PROVINCIA_EMPRESA' + TableField = 'PROVINCIA_EMPRESA' + end + item + DatasetField = 'CODIGO_POSTAL_EMPRESA' + TableField = 'CODIGO_POSTAL_EMPRESA' + end + item + DatasetField = 'TELEFONO_1' + TableField = 'TELEFONO_1' + end + item + DatasetField = 'FAX' + TableField = 'FAX' + end + item + DatasetField = 'MOVIL_1' + TableField = 'MOVIL_1' + end + item + DatasetField = 'EMAIL_1' + TableField = 'EMAIL_1' + end + item + DatasetField = 'PAGINA_WEB' + TableField = 'PAGINA_WEB' + end + item + DatasetField = 'REGISTRO_MERCANTIL' + TableField = 'REGISTRO_MERCANTIL' + end> + end> + Name = 'InformeComisiones' + Fields = < + item + Name = 'FECHA_COMISION' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_COMISION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_EMPRESA' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'RAZON_SOCIAL' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CALLE_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POBLACION_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PROVINCIA_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CODIGO_POSTAL_EMPRESA' + DataType = datString + Size = 10 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TELEFONO_1' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FAX' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'MOVIL_1' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'EMAIL_1' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PAGINA_WEB' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REGISTRO_MERCANTIL' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_AGENTE' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'AGENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_COMISION_LIQUIDADA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SITUACION' + DataType = datString + Size = 19 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_CLIENTE' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_COMISIONABLE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_COMISION' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + BusinessRulesClient.ScriptLanguage = rslPascalScript + BusinessRulesServer.ScriptLanguage = rslPascalScript + end item Params = <> Statements = < @@ -89,20 +573,20 @@ object RptComisiones: TRptComisiones 'S_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLIENTE,'#10' ' + ' V_AGENTES_COMISIONES_DET_FAC.ID_PROVEEDOR,'#10' CONTACTOS3.N' + 'OMBRE as PROVEEDOR,'#10' V_AGENTES_COMISIONES_DET_FAC.COMISION' + - ','#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOTAL) as IMPO' + - 'RTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORT' + - 'E_COMISION) as IMPORTE_COMISION'#10' '#10#10'from V_AGENTES_COMISION' + - 'ES_DET_FAC'#10'LEFT JOIN COMISIONES_LIQUIDADAS ON (COMISIONES_LIQUID' + - 'ADAS.ID = V_AGENTES_COMISIONES_DET_FAC.ID_COMISION_LIQUIDADA)'#10'LE' + - 'FT JOIN EMPRESAS ON EMPRESAS.ID = V_AGENTES_COMISIONES_DET_FAC.I' + - 'D_EMPRESA'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = V_A' + - 'GENTES_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACT' + - 'OS2 ON (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIENTE)' + - #10'LEFT JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES_CO' + - 'MISIONES_DET_FAC.ID_PROVEEDOR)'#10'WHERE (V_AGENTES_COMISIONES_DET_F' + - 'AC.ID_COMISION_LIQUIDADA IS NOT NULL)'#10'GROUP BY 1, 2, 3, 4, 5, 6,' + - ' 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23' + - ', 24, 25, 26, 27, 28, 29'#10'ORDER BY 1' + ','#10#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOTAL) as IMP' + + 'ORTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPOR' + + 'TE_COMISION) as IMPORTE_COMISION'#10#10#10'from V_AGENTES_COMISIONES_DET' + + '_FAC'#10'LEFT JOIN COMISIONES_LIQUIDADAS ON (COMISIONES_LIQUIDADAS.I' + + 'D = V_AGENTES_COMISIONES_DET_FAC.ID_COMISION_LIQUIDADA)'#10'LEFT JOI' + + 'N EMPRESAS ON EMPRESAS.ID = V_AGENTES_COMISIONES_DET_FAC.ID_EMPR' + + 'ESA'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = V_AGENTES' + + '_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACTOS2 ON' + + ' (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIENTE)'#10'LEFT ' + + 'JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES_COMISION' + + 'ES_DET_FAC.ID_PROVEEDOR)'#10'WHERE (V_AGENTES_COMISIONES_DET_FAC.ID_' + + 'COMISION_LIQUIDADA IS NOT NULL)'#10'GROUP BY 1, 2, 3, 4, 5, 6, 7, 8,' + + ' 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, ' + + '25, 26, 27, 28, 29'#10'ORDER BY 1' StatementType = stSQL ColumnMappings = < item @@ -230,7 +714,7 @@ object RptComisiones: TRptComisiones TableField = 'REGISTRO_MERCANTIL' end> end> - Name = 'InformeComisiones' + Name = 'InformeComisionesDesglosado' Fields = < item Name = 'FECHA_COMISION' @@ -901,7 +1385,7 @@ object RptComisiones: TRptComisiones PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Default' ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 39185.834399409720000000 + ReportOptions.LastChange = 39266.688905347220000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' @@ -939,17 +1423,14 @@ object RptComisiones: TRptComisiones '' 'procedure Memo26OnBeforePrint(Sender: TfrxComponent);' 'begin' - '{' ' if ( <> '#39#39') then' - ' Memo26.Visible := True' + ' Memo31.Visible := True' ' else' - ' Memo26.Visible := False;' - ' }' + ' Memo31.Visible := False;' 'end;' '' 'BEGIN' '' - '' 'END.') ShowProgress = False StoreInDFM = False @@ -967,11 +1448,11 @@ object RptComisiones: TRptComisiones end item Name = 'FechaIni' - Value = 'sdadsasd' + Value = Null end item Name = 'FechaFin' - Value = 'asdasdasdad' + Value = Null end> Style = < item diff --git a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas index 9c4cc623..b7b7a587 100644 --- a/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas +++ b/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas @@ -29,7 +29,7 @@ type private FConnection: IDAConnection; public - function GenerarComision(const AComisionID : Variant; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; + function GenerarComision(const AComisionID : Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; end; implementation @@ -41,21 +41,23 @@ uses const rptComision = 'InfComisiones.fr3'; + rptComisionDesglosado = 'InfComisionesDesglosado.fr3'; { Dataset names for schReport } ds_InformeComisiones = 'InformeComisiones'; + ds_InformeComisionesDesglosado = 'InformeComisionesDesglosado'; + { TRptComision } - procedure TRptComisiones.DataModuleCreate(Sender: TObject); begin schReport.ConnectionManager := dmServer.ConnectionManager; FConnection := dmServer.DarNuevaConexion; - frxReport.EngineOptions.NewSilentMode := simReThrow; + frxReport.EngineOptions.NewSilentMode := simReThrow; end; -function TRptComisiones.GenerarComision(const AComisionID : Variant; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; +function TRptComisiones.GenerarComision(const AComisionID : Variant; const DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant): Binary; var dsMaster: IDADataset; AStream: TMemoryStream; @@ -64,7 +66,11 @@ begin Result := Binary.Create; FConnection.BeginTransaction; try - dsMaster := schReport.NewDataset(FConnection, ds_InformeComisiones,[], [], False); + if DesglosadoProv then + dsMaster := schReport.NewDataset(FConnection, ds_InformeComisionesDesglosado,[], [], False) + else + dsMaster := schReport.NewDataset(FConnection, ds_InformeComisiones,[], [], False); + with dsMaster.Where do begin if not VarIsNull(AComisionID) then @@ -100,7 +106,11 @@ begin DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); DABINAdapter.ReadDataset(AStream, tbl_Comisiones, TRUE, '', TRUE, TRUE); - frxReport.LoadFromFile(DarRutaInformes + rptComision, True); + if DesglosadoProv then + frxReport.LoadFromFile(DarRutaInformes + rptComisionDesglosado, True) + else + frxReport.LoadFromFile(DarRutaInformes + rptComision, True); + frxReport.Variables['FechaIni'] := QuotedStr(FechaIni); frxReport.Variables['FechaFin'] := QuotedStr(FechaFin); frxReport.PrepareReport; diff --git a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas index 786ba72d..b96dd994 100644 --- a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas +++ b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas @@ -32,7 +32,7 @@ type { IsrvComisiones methods } protected function GetNextAutoInc(const GeneratorName: String): Integer; - function GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; + function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; end; implementation @@ -61,13 +61,13 @@ begin bpComisiones.BusinessRulesID := BIZ_SERVER_COMISIONES; end; -function TsrvComisiones.GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; +function TsrvComisiones.GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; var AReportGenerator : TRptComisiones; begin AReportGenerator := TRptComisiones.Create(nil); try - Result := AReportGenerator.GenerarComision(AComisionID, FechaIni, FechaFin, AAgenteID); + Result := AReportGenerator.GenerarComision(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID); finally FreeAndNIL(AReportGenerator); end; diff --git a/Source/Modulos/Comisiones/Views/uEditorComision.dfm b/Source/Modulos/Comisiones/Views/uEditorComision.dfm index 4c8d45ce..2007cc2d 100644 --- a/Source/Modulos/Comisiones/Views/uEditorComision.dfm +++ b/Source/Modulos/Comisiones/Views/uEditorComision.dfm @@ -148,9 +148,23 @@ inherited fEditorComision: TfEditorComision DesignSize = ( 603 127) + inherited eReferencia: TcxDBTextEdit + ExplicitWidth = 164 + Width = 164 + end + inherited eDescripcion: TcxDBTextEdit + ExplicitWidth = 108 + Width = 108 + end inherited edtFecha: TcxDBDateEdit - Left = 354 - ExplicitLeft = 354 + Left = 355 + ExplicitLeft = 355 + ExplicitWidth = 170 + Width = 170 + end + inherited cbAgente: TcxDBLookupComboBox + ExplicitWidth = 319 + Width = 319 end end end @@ -202,18 +216,6 @@ inherited fEditorComision: TfEditorComision inherited ToolBar1: TToolBar Width = 607 ExplicitWidth = 607 - inherited ToolButton1: TToolButton - ExplicitWidth = 62 - end - inherited ToolButton4: TToolButton - ExplicitWidth = 74 - end - inherited ToolButton2: TToolButton - ExplicitWidth = 67 - end - inherited ToolButton7: TToolButton - ExplicitWidth = 117 - end inherited ToolButton3: TToolButton ExplicitWidth = 98 end diff --git a/Source/Modulos/Comisiones/Views/uEditorComision.pas b/Source/Modulos/Comisiones/Views/uEditorComision.pas index 18933bf2..c8309dc4 100644 --- a/Source/Modulos/Comisiones/Views/uEditorComision.pas +++ b/Source/Modulos/Comisiones/Views/uEditorComision.pas @@ -134,7 +134,10 @@ end; procedure TfEditorComision.ImprimirInterno; begin inherited; - FController.Print(FComision); + if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then + FController.Print(FComision, False) + else + FController.Print(FComision, True); end; procedure TfEditorComision.JvFormStorageRestorePlacement(Sender: TObject); @@ -170,7 +173,10 @@ end; procedure TfEditorComision.PrevisualizarInterno; begin inherited; - FController.Preview(FComision); + if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then + FController.Preview(FComision, False) + else + FController.Preview(FComision, True); end; procedure TfEditorComision.SetComision(const Value: IBizComisiones); diff --git a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas index a96c4289..210059ae 100644 --- a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas +++ b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas @@ -83,7 +83,10 @@ end; procedure TfEditorComisiones.ImprimirInterno; begin // inherited; - FController.Print(Nil); + if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then + FController.Print(Nil, False) + else + FController.Print(Nil, True); end; function TfEditorComisiones.GetController: IComisionesController; @@ -115,7 +118,10 @@ end; procedure TfEditorComisiones.PrevisualizarInterno; begin // inherited; - FController.Preview(Nil); + if (Application.MessageBox('¿Desea previsualizar la liquidación de comisiones sin desglosar?', 'Atención', MB_YESNO) = IDYES) then + FController.Preview(Nil, False) + else + FController.Preview(Nil, True); end; procedure TfEditorComisiones.SetComisiones(const Value: IBizComisiones); diff --git a/Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm b/Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm index db21f14b..a67e3383 100644 --- a/Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm +++ b/Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm @@ -1,7 +1,5 @@ inherited fEditorComisionesPreview: TfEditorComisionesPreview Caption = 'Previsualizar la factura' - ExplicitWidth = 320 - ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 object pnlFiltrar: TTBXDockablePanel [3] @@ -19,7 +17,6 @@ inherited fEditorComisionesPreview: TfEditorComisionesPreview ShowCaptionWhenDocked = False SupportedDocks = [dkStandardDock, dkMultiDock] TabOrder = 3 - ExplicitWidth = 128 object Label1: TLabel Left = 261 Top = 50 diff --git a/Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas b/Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas index 41003383..2b191fe8 100644 --- a/Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas +++ b/Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas @@ -74,7 +74,7 @@ var begin ShowHourglassCursor; try - AStream := FDataModule.GetReport(Null, edtFechaFiltro1.Text, edtFechaFiltro2.Text, cbAgentes.EditValue); + AStream := FDataModule.GetReport(Null, False, edtFechaFiltro1.Text, edtFechaFiltro2.Text, cbAgentes.EditValue); try Report.PreviewPages.Clear; LoadFromStream(AStream); diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 19ef7817..beea3599 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -146,7 +146,8 @@ begin ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO); ADestino.Edit; ADestino.REFERENCIA := AOrigen.REFERENCIA; - ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; + if AOrigen.ID_ARTICULO > 0 then + ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; ADestino.CONCEPTO := AOrigen.CONCEPTO; ADestino.CANTIDAD := AOrigen.CANTIDAD; ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD; @@ -190,7 +191,8 @@ begin ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO); ADestino.Edit; ADestino.REFERENCIA := AOrigen.REFERENCIA; - ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; + if AOrigen.ID_ARTICULO > 0 then + ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; ADestino.CONCEPTO := AOrigen.CONCEPTO; ADestino.CANTIDAD := AOrigen.CANTIDAD; ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 33e2f96b..1697b7ab 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -1252,7 +1252,7 @@ object RptFacturasCliente: TRptFacturasCliente PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Default' ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 39258.717259837960000000 + ReportOptions.LastChange = 39266.753072372690000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' @@ -1268,7 +1268,10 @@ object RptFacturasCliente: TRptFacturasCliente ' or ( <> '#39#39') then' ' DatosCliente.Lines.Add( + '#39' ' + - #39' + );' + ' '#39' + );' + '' + ' if ( <> '#39#39') then' + ' DatosCliente.Lines.Add();' 'end;' '' 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);' diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 8ffee4e8..06e381ef 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -142,7 +142,8 @@ begin ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO); ADestino.Edit; ADestino.REFERENCIA := AOrigen.REFERENCIA; - ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; + if AOrigen.ID_ARTICULO > 0 then + ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; ADestino.CONCEPTO := AOrigen.CONCEPTO; ADestino.CANTIDAD := AOrigen.CANTIDAD; ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD; @@ -185,7 +186,8 @@ begin ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO); ADestino.Edit; ADestino.REFERENCIA := AOrigen.REFERENCIA; - ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; + if AOrigen.ID_ARTICULO > 0 then + ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; ADestino.CONCEPTO := AOrigen.CONCEPTO; ADestino.CANTIDAD := AOrigen.CANTIDAD; ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD; @@ -218,6 +220,7 @@ var AFacturaActual : IBizFacturaProveedor; AAlbaranesController : IAlbaranesProveedorController; I: Integer; + bEnEdicion : Boolean; begin Result := False; @@ -255,6 +258,16 @@ begin Anadir(AFacturas); AAlbaranesController.RecuperarProveedor(AListaAlbaranes); AFacturas.Proveedor := AListaAlbaranes.Proveedor; + + //Siempre asignaremos por defecto la referencia de factura de proveedor que tenga el primer albaran del proveedor + bEnEdicion := (AFacturas.DataTable.State in dsEditModes); + if not bEnEdicion then + AFacturas.Edit; + AFacturas.REFERENCIA_PROVEEDOR := AListaAlbaranes.REF_FACTURA_PROV; + AFacturas.Post; + if bEnEdicion then + AFacturas.Edit; + AFacturaActual := AFacturas; end; diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index 7203590c..70283c81 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -34,6 +34,8 @@ + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index 6da3361d..d8d7379f 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -159,7 +159,8 @@ type IsrvComisiones = interface(IDARemoteService) ['{461DBBE7-293D-497A-8CD1-840401883BCE}'] function GetNextAutoInc(const GeneratorName: String): Integer; - function GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; + function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; + const AAgenteID: Variant): Binary; end; { CosrvComisiones } @@ -173,7 +174,8 @@ type function __GetInterfaceName:string; override; function GetNextAutoInc(const GeneratorName: String): Integer; - function GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; + function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; + const AAgenteID: Variant): Binary; end; { IsrvLogin } @@ -856,7 +858,8 @@ begin end end; -function TsrvComisiones_Proxy.GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; +function TsrvComisiones_Proxy.GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; + const AAgenteID: Variant): Binary; var __request, __response : TMemoryStream; begin @@ -867,6 +870,7 @@ begin try __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport'); __Message.Write('AComisionID', TypeInfo(Variant), AComisionID, []); + __Message.Write('DesglosadoProv', TypeInfo(Boolean), DesglosadoProv, []); __Message.Write('FechaIni', TypeInfo(String), FechaIni, []); __Message.Write('FechaFin', TypeInfo(String), FechaFin, []); __Message.Write('AAgenteID', TypeInfo(Variant), AAgenteID, []); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 05730b7c..f0fbda48 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -248,9 +248,11 @@ begin end; procedure TsrvComisiones_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerateReport(const AComisionID: Variant; const FechaIni: String; const FechaFin: String; const AAgenteID: Variant): Binary; } +{ function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: String; const FechaFin: String; + const AAgenteID: Variant): Binary; } var AComisionID: Variant; + DesglosadoProv: Boolean; FechaIni: String; FechaFin: String; AAgenteID: Variant; @@ -260,11 +262,12 @@ begin lResult := nil; try __Message.Read('AComisionID', TypeInfo(Variant), AComisionID, []); + __Message.Read('DesglosadoProv', TypeInfo(Boolean), DesglosadoProv, []); __Message.Read('FechaIni', TypeInfo(String), FechaIni, []); __Message.Read('FechaFin', TypeInfo(String), FechaFin, []); __Message.Read('AAgenteID', TypeInfo(Variant), AAgenteID, []); - lResult := (__Instance as IsrvComisiones).GenerateReport(AComisionID, FechaIni, FechaFin, AAgenteID); + lResult := (__Instance as IsrvComisiones).GenerateReport(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID); __Message.Initialize(__Transport, 'FactuGES', 'srvComisiones', 'GenerateReportResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res index 3bfb8c51..19e99046 100644 Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ