diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 80af2ea..18e821f 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -291,7 +291,9 @@ CREATE TABLE ALBARANES_CLIENTE ( FECHA_ENVIO DATE, FECHA_RECEPCION DATE, FECHA_PREVISTA_ENVIO DATE, - REFERENCIA_CLIENTE VARCHAR(255) + REFERENCIA_CLIENTE VARCHAR(255), + DESCUENTO2 TIPO_PORCENTAJE, + IMPORTE_DESCUENTO2 TIPO_IMPORTE ); CREATE TABLE ALBARANES_CLIENTE_DETALLES ( @@ -467,7 +469,8 @@ CREATE TABLE CLIENTES_DATOS ( VENCIMIENTO_FACTURAS_1 SMALLINT, VENCIMIENTO_FACTURAS_2 SMALLINT, VENCIMIENTO_FACTURAS_3 SMALLINT, - FELICITACION TIPO_BOOLEANO + FELICITACION TIPO_BOOLEANO, + DESCUENTO2 TIPO_PORCENTAJE ); CREATE TABLE CLIENTES_DTOS_PROVEEDORES ( @@ -697,7 +700,9 @@ CREATE TABLE FACTURAS_CLIENTE ( DATOS_BANCARIOS VARCHAR(255), CLIENTE_FINAL VARCHAR(255), RETENCION TIPO_PORCENTAJE, - IMPORTE_RETENCION TIPO_IMPORTE + IMPORTE_RETENCION TIPO_IMPORTE, + DESCUENTO2 TIPO_PORCENTAJE, + IMPORTE_DESCUENTO2 TIPO_IMPORTE ); CREATE TABLE FACTURAS_CLIENTE_DETALLES ( @@ -1366,7 +1371,9 @@ CREATE VIEW V_ALBARANES_CLIENTE( ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_ENVIO, - FECHA_RECEPCION) + FECHA_RECEPCION, + DESCUENTO2, + IMPORTE_DESCUENTO2) AS SELECT ALBARANES_CLIENTE.ID, @@ -1408,7 +1415,9 @@ SELECT ALBARANES_CLIENTE.ID_FORMA_PAGO, ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, ALBARANES_CLIENTE.FECHA_ENVIO, - ALBARANES_CLIENTE.FECHA_RECEPCION + ALBARANES_CLIENTE.FECHA_RECEPCION, + ALBARANES_CLIENTE.DESCUENTO2, + ALBARANES_CLIENTE.IMPORTE_DESCUENTO2 FROM ALBARANES_CLIENTE LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE) @@ -1790,6 +1799,7 @@ CREATE VIEW V_CLIENTES( ID_FORMA_PAGO, TIENDA_WEB, DESCUENTO, + DESCUENTO2, FELICITACION) AS SELECT @@ -1830,6 +1840,7 @@ SELECT CLIENTES_DATOS.ID_FORMA_PAGO, CLIENTES_DATOS.TIENDA_WEB, CLIENTES_DATOS.DESCUENTO, + CLIENTES_DATOS.DESCUENTO2, CLIENTES_DATOS.FELICITACION FROM V_CONTACTOS @@ -2162,7 +2173,9 @@ CREATE VIEW V_FACTURAS_CLIENTE( ID_AGENTE, REFERENCIA_COMISION, RETENCION, - IMPORTE_RETENCION) + IMPORTE_RETENCION, + DESCUENTO2, + IMPORTE_DESCUENTO2) AS SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.ID_EMPRESA, @@ -2203,7 +2216,10 @@ SELECT FACTURAS_CLIENTE.ID, CLIENTES_DATOS.ID_AGENTE, COMISIONES_LIQUIDADAS.REFERENCIA, FACTURAS_CLIENTE.RETENCION, - FACTURAS_CLIENTE.IMPORTE_RETENCION + FACTURAS_CLIENTE.IMPORTE_RETENCION, + FACTURAS_CLIENTE.DESCUENTO2, + FACTURAS_CLIENTE.IMPORTE_DESCUENTO2 + FROM V_FAC_CLI_SITUACION LEFT JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) diff --git a/Database/scripts/factuges_sysdata.sql b/Database/scripts/factuges_sysdata.sql index b02a0a0..aa834b3 100644 --- a/Database/scripts/factuges_sysdata.sql +++ b/Database/scripts/factuges_sysdata.sql @@ -24,7 +24,7 @@ COMMIT WORK; INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (1, 1, 'REF_FACTURAS_CLIENTE', 'FAC08/000001', 'Ref. facturas de cliente'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (2, 1, 'REF_PEDIDOS_PROVEEDOR', 'PED08/000001', 'Ref. pedidos de proveedor'); -INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (3, 1, 'REF_ALBARANES_CLIENTE', 'ALB08/000001', 'Ref. albaranes de cliente'); +INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (3, NULL, 'REF_ALBARANES_CLIENTE', 'ALB08/000001', 'Ref. albaranes de cliente'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (4, 1, 'REF_ALBARANES_PROVEEDOR', 'ALP08/000001', 'Ref. albaranes de proveedor'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (5, 1, 'REF_REMESAS_CLIENTE', 'REM08/000001', 'Ref. remesas de cliente'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (6, 1, 'REF_FACTURAS_PROVEEDOR', 'FAP08/000001', 'Ref. facturas de proveedor'); @@ -37,8 +37,10 @@ INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (12, INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (13, NULL, 'REF_EMPLEADOS', '00001', 'Ref. empleados'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (14, NULL, 'REF_ARTICULOS', '1', 'Ref. artículos'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (15, NULL, 'REF_VENDEDORES', '0000000001', 'Ref. vendedores'); +INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (16, 2, 'REF_FACTURAS_CLIENTE', 'FAC08/000001', 'Ref. facturas de cliente'); +INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (17, 2, 'REF_REMESAS_CLIENTE', 'REM08/000001', 'Ref. remesas de cliente'); -SET GENERATOR GEN_REFERENCIAS_ID TO 16; +SET GENERATOR GEN_REFERENCIAS_ID TO 18; COMMIT WORK; INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (1, 'IVA16', 'IVA16', 16, 4); @@ -97,7 +99,8 @@ INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 24; COMMIT WORK; -INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (1, '-', 'NOVISEDA S.L.', 'NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -'); -SET GENERATOR GEN_EMPRESAS_ID TO 2; +INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (1, '', 'NOVISEDA S.L.', 'NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -'); +INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (2, '', 'PRUEBAS - NOVISEDA S.L.', 'PRUEBAS - NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -'); +SET GENERATOR GEN_EMPRESAS_ID TO 3; COMMIT WORK; diff --git a/Source/Cliente/FactuGES.drc b/Source/Cliente/FactuGES.drc index 0740416..c89680c 100644 --- a/Source/Cliente/FactuGES.drc +++ b/Source/Cliente/FactuGES.drc @@ -12,10 +12,10 @@ STRINGTABLE BEGIN END -/* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */ +/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */ /* C:\Codigo Noviseda\Lib\JVCL\JvXPCore.res */ /* C:\Codigo Noviseda\Source\Cliente\uSplash.dfm */ /* C:\Codigo Noviseda\Source\Cliente\uAcercaDe.dfm */ /* C:\Codigo Noviseda\Source\Cliente\uPantallaPrincipal.dfm */ /* C:\Codigo Noviseda\Source\Cliente\FactuGES.res */ -/* C:\Codigo Noviseda\Source\Cliente\FactuGES.drf */ +/* E:\temp\dtf72F.tmp */ diff --git a/Source/Cliente/FactuGES.identcache b/Source/Cliente/FactuGES.identcache index 0cb13a5..cacb976 100644 Binary files a/Source/Cliente/FactuGES.identcache and b/Source/Cliente/FactuGES.identcache differ diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index a500a64..3e9ebe7 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -36,8 +36,8 @@ begin // LoadModule(MODULENAME_PRESUPUESTOS_CLIENTE); LoadModule(MODULENAME_ALBARANES_CLIENTE); -// LoadModule('RecibosCliente_plugin.bpl'); -// LoadModule(MODULENAME_FACTURAS_CLIENTE); + LoadModule('RecibosCliente_plugin.bpl'); + LoadModule(MODULENAME_FACTURAS_CLIENTE); // LoadModule(MODULENAME_PEDIDOS_PROVEEDOR); // LoadModule(MODULENAME_ALBARANES_PROVEEDOR); @@ -48,8 +48,8 @@ begin // LoadModule('RemesasCliente_plugin.bpl'); // LoadModule('RemesasProveedor_plugin.bpl'); - LoadModule('Inventario_plugin.bpl'); - LoadModule('HistoricoMovimientos_plugin.bpl'); +// LoadModule('Inventario_plugin.bpl'); +// LoadModule('HistoricoMovimientos_plugin.bpl'); // LoadModule('GestorInformes_plugin.bpl'); end; diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm index d35e9d0..4205086 100644 --- a/Source/Cliente/uPantallaPrincipal.dfm +++ b/Source/Cliente/uPantallaPrincipal.dfm @@ -232,6 +232,7 @@ object fPantallaPrincipal: TfPantallaPrincipal Top = 88 end object GeneralActionList: TActionList + Images = ModulesSmallImageList Left = 288 Top = 85 object actSalir: TAction @@ -311,6 +312,7 @@ object fPantallaPrincipal: TfPantallaPrincipal object actInformacionEmpresa: TAction Category = 'Empresa' Caption = 'Informaci'#243'n de empresa' + ImageIndex = 2 OnExecute = actInformacionEmpresaExecute OnUpdate = actMenuComprasUpdate end @@ -357,6 +359,26 @@ object fPantallaPrincipal: TfPantallaPrincipal 00000049454E44AE426082} Name = 'PngImage0' Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 + 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD + 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E + E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 + 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF + FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 + E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 + C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF + 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 + 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A + 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA + 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 + 000005100EB8572466A60000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow end> Left = 51 Top = 181 @@ -659,10 +681,6 @@ object fPantallaPrincipal: TfPantallaPrincipal Caption = '-' end end - object Informes1: TMenuItem - Tag = 6000 - Action = actMenuInformes - end end object JvXPMenuItemPainter1: TJvXPMenuItemPainter SelectionFrameBrush.Color = 13811126 diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas index 05896f3..581bcf9 100644 --- a/Source/Cliente/uPantallaPrincipal.pas +++ b/Source/Cliente/uPantallaPrincipal.pas @@ -89,7 +89,6 @@ type N9: TMenuItem; N10: TMenuItem; actMenuEmpresa: TAction; - Informes1: TMenuItem; actMenuInformes: TAction; actInformacionEmpresa: TAction; procedure FormCreate(Sender: TObject); diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index bf4b8b0..30b6929 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -59,30 +59,30 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/GUIBase.drc b/Source/GUIBase/GUIBase.drc index 36a8422..c99723c 100644 --- a/Source/GUIBase/GUIBase.drc +++ b/Source/GUIBase/GUIBase.drc @@ -39,4 +39,4 @@ END /* C:\Codigo Noviseda\Source\GUIBase\uViewDocumentos.dfm */ /* C:\Codigo Noviseda\Source\GUIBase\uEditorColores.dfm */ /* C:\Codigo Noviseda\Source\GUIBase\GUIBase.res */ -/* C:\Codigo Noviseda\Source\GUIBase\GUIBase.drf */ +/* E:\temp\dtf635.tmp */ diff --git a/Source/GUIBase/GUIBase.identcache b/Source/GUIBase/GUIBase.identcache index 210f820..24635f5 100644 Binary files a/Source/GUIBase/GUIBase.identcache and b/Source/GUIBase/GUIBase.identcache differ diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 1641339..8b251f3 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/GUIBase/uViewTotales.dfm b/Source/GUIBase/uViewTotales.dfm index 0ef6073..6f45479 100644 --- a/Source/GUIBase/uViewTotales.dfm +++ b/Source/GUIBase/uViewTotales.dfm @@ -1,9 +1,9 @@ inherited frViewTotales: TfrViewTotales - Width = 451 - Height = 252 + Width = 829 + Height = 278 Align = alBottom - ExplicitWidth = 451 - ExplicitHeight = 252 + ExplicitWidth = 800 + ExplicitHeight = 278 object Bevel5: TBevel Left = 666 Top = 109 @@ -15,8 +15,8 @@ inherited frViewTotales: TfrViewTotales AlignWithMargins = True Left = 0 Top = 0 - Width = 451 - Height = 252 + Width = 829 + Height = 278 Margins.Left = 0 Margins.Top = 0 Margins.Right = 0 @@ -26,22 +26,24 @@ inherited frViewTotales: TfrViewTotales TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth, acsHeight] + ExplicitWidth = 451 + ExplicitHeight = 252 object Bevel3: TBevel - Left = 305 + Left = 422 Top = 28 Width = 3 Height = 100 Shape = bsRightLine end object Bevel4: TBevel - Left = 417 + Left = 534 Top = 70 Width = 342 Height = 9 Shape = bsBottomLine end object Bevel1: TBevel - Left = 417 + Left = 534 Top = 186 Width = 368 Height = 9 @@ -90,7 +92,7 @@ inherited frViewTotales: TfrViewTotales Width = 87 end object ImporteIVA: TcxDBCurrencyEdit - Left = 488 + Left = 605 Top = 105 AutoSize = False DataBinding.DataField = 'IMPORTE_IVA' @@ -125,7 +127,7 @@ inherited frViewTotales: TfrViewTotales Width = 20 end object ImporteTotal: TcxDBCurrencyEdit - Left = 418 + Left = 535 Top = 159 AutoSize = False DataBinding.DataField = 'IMPORTE_TOTAL' @@ -195,7 +197,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object edtIVA: TcxDBSpinEdit - Left = 417 + Left = 534 Top = 105 AutoSize = False DataBinding.DataField = 'IVA' @@ -236,7 +238,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object ImporteBase: TcxDBCurrencyEdit - Left = 417 + Left = 534 Top = 28 AutoSize = False DataBinding.DataField = 'BASE_IMPONIBLE' @@ -271,7 +273,7 @@ inherited frViewTotales: TfrViewTotales Width = 91 end object edtRE: TcxDBSpinEdit - Left = 417 + Left = 534 Top = 132 AutoSize = False DataBinding.DataField = 'RE' @@ -312,7 +314,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object ImporteRE: TcxDBCurrencyEdit - Left = 488 + Left = 605 Top = 132 AutoSize = False DataBinding.DataField = 'IMPORTE_RE' @@ -450,7 +452,7 @@ inherited frViewTotales: TfrViewTotales Width = 20 end object bTiposIVA: TButton - Left = 157 + Left = 274 Top = 109 Width = 132 Height = 21 @@ -488,7 +490,7 @@ inherited frViewTotales: TfrViewTotales Width = 221 end object edtRetencion: TcxDBSpinEdit - Left = 417 + Left = 534 Top = 206 AutoSize = False DataBinding.DataSource = DADataSource @@ -527,7 +529,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object edtImporteRetencion: TcxDBCurrencyEdit - Left = 488 + Left = 605 Top = 206 AutoSize = False DataBinding.DataSource = DADataSource diff --git a/Source/Informes/1/InfAlbaranCliente.fr3 b/Source/Informes/1/InfAlbaranCliente.fr3 index 3442720..adef6f9 100644 --- a/Source/Informes/1/InfAlbaranCliente.fr3 +++ b/Source/Informes/1/InfAlbaranCliente.fr3 @@ -1,40 +1,58 @@ - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc index cc3f7c4..1030271 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc +++ b/Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */ -/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.drf */ +/* E:\temp\dtf6BF.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index 0e5951e..fb03ca2 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas @@ -203,7 +203,7 @@ end; function TAlbaranesClienteController.Buscar(const ID: Integer): IBizAlbaranCliente; begin Result := FDataModule.GetItem(ID); - FiltrarEmpresa(Result); +// FiltrarEmpresa(Result); end; function TAlbaranesClienteController.BuscarAlbaranesDevolucion: IBizAlbaranCliente; @@ -257,7 +257,7 @@ end; function TAlbaranesClienteController.BuscarTodos: IBizAlbaranCliente; begin Result := FDataModule.GetItems; - FiltrarEmpresa(Result); +// FiltrarEmpresa(Result); end; function TAlbaranesClienteController.BuscarPendientes: IBizAlbaranCliente; @@ -534,13 +534,17 @@ begin if AAlbaran.FECHA_RECEPCION < AAlbaran.FECHA_ENVIO then raise Exception.Create('La fecha de recepcion debe ser posterior a la fecha de envio'); + { Un albaran debe tener una forma de pago asignada. } + if (AAlbaran.ID_FORMA_PAGO = 0) then + raise Exception.Create('Debe indicar una forma de pago para este albarán'); + { Asegurarse de valores en campos "automáticos" tanto en MODIFICACIÓN como en INSERCIÓN. } AAlbaran.Edit; try AAlbaran.USUARIO := AppFactuGES.UsuarioActivo.UserName; -// Lo quitamos temporalmente si no hay mas fallos de cambio de cliente se quita en todos los sitios +// Lo quitamos temporalmente si no hay mas fallos de cambio de cliente se quita en todos los sitios // if Assigned(AAlbaran.Cliente) // and (AAlbaran.ID_CLIENTE <> AAlbaran.Cliente.ID) then // AAlbaran.ID_CLIENTE := AAlbaran.Cliente.ID; @@ -1016,7 +1020,7 @@ var AAlbaran : IBizAlbaranCliente; begin AAlbaran := FDataModule.NewItem; - FiltrarEmpresa(AAlbaran); +// FiltrarEmpresa(AAlbaran); AAlbaran.DataTable.Active := True; if WithInsert then AAlbaran.Insert; diff --git a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc index 0bab87f..d98f889 100644 --- a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc +++ b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc @@ -12,6 +12,6 @@ STRINGTABLE BEGIN END -/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.DFM */ +/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */ -/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.drf */ +/* E:\temp\dtf6BD.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm index 0e0fecf..1772ad1 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm @@ -45,10 +45,6 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente DataType = datInteger DictionaryEntry = 'AlbaranesCliente_ID_CLIENTE' end - item - Name = 'ID_DIRECCION' - DataType = datInteger - end item Name = 'NOMBRE' DataType = datString @@ -132,6 +128,10 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente ServerAutoRefresh = True DictionaryEntry = 'AlbaranesCliente_REF_FACTURA' end + item + Name = 'ID_DIRECCION' + DataType = datInteger + end item Name = 'CALLE' DataType = datString @@ -285,6 +285,14 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente DataType = datDateTime DisplayLabel = 'Fecha de recepci'#243'n' DictionaryEntry = 'AlbaranesCliente_FECHA_RECEPCION' + end + item + Name = 'DESCUENTO2' + DataType = datCurrency + end + item + Name = 'IMPORTE_DESCUENTO2' + DataType = datCurrency end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc index ee3bc30..588ae45 100644 --- a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc +++ b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */ -/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.drf */ +/* E:\temp\dtf6BB.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.res b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.res index 1641339..8b251f3 100644 Binary files a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.res and b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.res differ diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas index 5a68682..d19630e 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas @@ -3,16 +3,16 @@ unit schAlbaranesClienteClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; 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_ListaAnosAlbaranes = '{18C62587-896C-41BC-9E0A-B1BB4BA1536F}'; - RID_AlbaranesCliente = '{4A620EF8-3CC2-4C5C-B01B-23D8EFE9F1CD}'; - RID_AlbaranesCliente_Detalle_Color = '{3958DA4C-F53F-46EE-9C7A-4ED04455B567}'; - RID_AlbaranesCliente_Detalles = '{44C711B3-BB9D-467E-856C-D4B1C506ACDC}'; + RID_ListaAnosAlbaranes = '{B4206C62-06EB-4344-BEB1-1A30ED907220}'; + RID_AlbaranesCliente = '{E1B3AF30-F3E6-4BC4-B9E5-6457F9E83272}'; + RID_AlbaranesCliente_Detalle_Color = '{7C8EFD2E-60FC-4742-B01A-F56A7C0637A7}'; + RID_AlbaranesCliente_Detalles = '{1DEA680B-4B62-4552-99D4-91A10AB81A52}'; { Data table names } nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; @@ -30,7 +30,6 @@ const fld_AlbaranesClienteID = 'ID'; fld_AlbaranesClienteID_EMPRESA = 'ID_EMPRESA'; fld_AlbaranesClienteID_CLIENTE = 'ID_CLIENTE'; - fld_AlbaranesClienteID_DIRECCION = 'ID_DIRECCION'; fld_AlbaranesClienteNOMBRE = 'NOMBRE'; fld_AlbaranesClienteFECHA_ALBARAN = 'FECHA_ALBARAN'; fld_AlbaranesClienteREFERENCIA = 'REFERENCIA'; @@ -43,6 +42,7 @@ const fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO'; fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA'; fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA'; + fld_AlbaranesClienteID_DIRECCION = 'ID_DIRECCION'; fld_AlbaranesClienteCALLE = 'CALLE'; fld_AlbaranesClienteCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_AlbaranesClientePOBLACION = 'POBLACION'; @@ -67,24 +67,26 @@ const fld_AlbaranesClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO'; fld_AlbaranesClienteFECHA_ENVIO = 'FECHA_ENVIO'; fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION'; + fld_AlbaranesClienteDESCUENTO2 = 'DESCUENTO2'; + fld_AlbaranesClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2'; { AlbaranesCliente field indexes } idx_AlbaranesClienteID = 0; idx_AlbaranesClienteID_EMPRESA = 1; idx_AlbaranesClienteID_CLIENTE = 2; - idx_AlbaranesClienteID_DIRECCION = 3; - idx_AlbaranesClienteNOMBRE = 4; - idx_AlbaranesClienteFECHA_ALBARAN = 5; - idx_AlbaranesClienteREFERENCIA = 6; - idx_AlbaranesClienteREFERENCIA_CLIENTE = 7; - idx_AlbaranesClienteTIPO = 8; - idx_AlbaranesClienteSITUACION = 9; - idx_AlbaranesClienteID_ALMACEN = 10; - idx_AlbaranesClienteNOMBRE_ALMACEN = 11; - idx_AlbaranesClienteID_PEDIDO = 12; - idx_AlbaranesClienteREF_PEDIDO = 13; - idx_AlbaranesClienteID_FACTURA = 14; - idx_AlbaranesClienteREF_FACTURA = 15; + idx_AlbaranesClienteNOMBRE = 3; + idx_AlbaranesClienteFECHA_ALBARAN = 4; + idx_AlbaranesClienteREFERENCIA = 5; + idx_AlbaranesClienteREFERENCIA_CLIENTE = 6; + idx_AlbaranesClienteTIPO = 7; + idx_AlbaranesClienteSITUACION = 8; + idx_AlbaranesClienteID_ALMACEN = 9; + idx_AlbaranesClienteNOMBRE_ALMACEN = 10; + idx_AlbaranesClienteID_PEDIDO = 11; + idx_AlbaranesClienteREF_PEDIDO = 12; + idx_AlbaranesClienteID_FACTURA = 13; + idx_AlbaranesClienteREF_FACTURA = 14; + idx_AlbaranesClienteID_DIRECCION = 15; idx_AlbaranesClienteCALLE = 16; idx_AlbaranesClienteCODIGO_POSTAL = 17; idx_AlbaranesClientePOBLACION = 18; @@ -109,6 +111,8 @@ const idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 37; idx_AlbaranesClienteFECHA_ENVIO = 38; idx_AlbaranesClienteFECHA_RECEPCION = 39; + idx_AlbaranesClienteDESCUENTO2 = 40; + idx_AlbaranesClienteIMPORTE_DESCUENTO2 = 41; { AlbaranesCliente_Detalle_Color fields } fld_AlbaranesCliente_Detalle_ColorID = 'ID'; @@ -181,7 +185,7 @@ const type { IListaAnosAlbaranes } IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) - ['{DB347C0B-48F1-4CB6-8C0E-8791F39A6D79}'] + ['{9198BD80-46AC-41F3-80C0-EBD4A7055DBD}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -195,7 +199,7 @@ type end; { TListaAnosAlbaranesDataTableRules } - TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes) + TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes) private protected { Property getters and setters } @@ -216,7 +220,7 @@ type { IAlbaranesCliente } IAlbaranesCliente = interface(IDAStronglyTypedDataTable) - ['{49752BC5-C457-46FE-8892-31C4E16591C2}'] + ['{373AD37D-234D-47B9-9133-4B56CAFFB722}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -230,10 +234,6 @@ type procedure SetID_CLIENTEValue(const aValue: Integer); function GetID_CLIENTEIsNull: Boolean; procedure SetID_CLIENTEIsNull(const aValue: Boolean); - function GetID_DIRECCIONValue: Integer; - procedure SetID_DIRECCIONValue(const aValue: Integer); - function GetID_DIRECCIONIsNull: Boolean; - procedure SetID_DIRECCIONIsNull(const aValue: Boolean); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetNOMBREIsNull: Boolean; @@ -282,6 +282,10 @@ type procedure SetREF_FACTURAValue(const aValue: String); function GetREF_FACTURAIsNull: Boolean; procedure SetREF_FACTURAIsNull(const aValue: Boolean); + function GetID_DIRECCIONValue: Integer; + procedure SetID_DIRECCIONValue(const aValue: Integer); + function GetID_DIRECCIONIsNull: Boolean; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); function GetCALLEValue: String; procedure SetCALLEValue(const aValue: String); function GetCALLEIsNull: Boolean; @@ -376,6 +380,14 @@ type procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); function GetFECHA_RECEPCIONIsNull: Boolean; procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); + function GetDESCUENTO2Value: Currency; + procedure SetDESCUENTO2Value(const aValue: Currency); + function GetDESCUENTO2IsNull: Boolean; + procedure SetDESCUENTO2IsNull(const aValue: Boolean); + function GetIMPORTE_DESCUENTO2Value: Currency; + procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); + function GetIMPORTE_DESCUENTO2IsNull: Boolean; + procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); { Properties } @@ -385,8 +397,6 @@ type property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; - property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; - property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; @@ -411,6 +421,8 @@ type property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull; + property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; @@ -459,10 +471,14 @@ type property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull; + property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; + property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; + property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value; + property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull; end; { TAlbaranesClienteDataTableRules } - TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente) + TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente) private f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; @@ -482,10 +498,6 @@ type procedure SetID_CLIENTEValue(const aValue: Integer); virtual; function GetID_CLIENTEIsNull: Boolean; virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetID_DIRECCIONValue: Integer; virtual; - procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; - function GetID_DIRECCIONIsNull: Boolean; virtual; - procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetNOMBREIsNull: Boolean; virtual; @@ -534,6 +546,10 @@ type procedure SetREF_FACTURAValue(const aValue: String); virtual; function GetREF_FACTURAIsNull: Boolean; virtual; procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_DIRECCIONValue: Integer; virtual; + procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; + function GetID_DIRECCIONIsNull: Boolean; virtual; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCALLEIsNull: Boolean; virtual; @@ -628,6 +644,14 @@ type procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual; function GetFECHA_RECEPCIONIsNull: Boolean; virtual; procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual; + function GetDESCUENTO2Value: Currency; virtual; + procedure SetDESCUENTO2Value(const aValue: Currency); virtual; + function GetDESCUENTO2IsNull: Boolean; virtual; + procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual; + function GetIMPORTE_DESCUENTO2Value: Currency; virtual; + procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual; + function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual; + procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -636,8 +660,6 @@ type property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; - property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; - property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; @@ -662,6 +684,8 @@ type property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull; + property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; @@ -710,6 +734,10 @@ type property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull; + property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; + property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; + property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value; + property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -719,7 +747,7 @@ type { IAlbaranesCliente_Detalle_Color } IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable) - ['{F6432EB6-CC41-40E8-B0AF-FAC070CF9F7F}'] + ['{10257B11-C523-426D-B5F3-C83A653FC86F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -811,7 +839,7 @@ type end; { TAlbaranesCliente_Detalle_ColorDataTableRules } - TAlbaranesCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalle_Color) + TAlbaranesCliente_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalle_Color) private protected { Property getters and setters } @@ -910,7 +938,7 @@ type { IAlbaranesCliente_Detalles } IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{3A0076AC-86DC-4A8E-B575-EBB6C2DAC5E9}'] + ['{0B31E831-E5AF-41C8-8043-2E16FC21CDE8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1014,7 +1042,7 @@ type end; { TAlbaranesCliente_DetallesDataTableRules } - TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles) + TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles) private protected { Property getters and setters } @@ -1254,27 +1282,6 @@ begin DataTable.Fields[idx_AlbaranesClienteID_CLIENTE].AsVariant := Null; end; -function TAlbaranesClienteDataTableRules.GetID_DIRECCIONValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger; -end; - -procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger := aValue; -end; - -function TAlbaranesClienteDataTableRules.GetID_DIRECCIONIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].IsNull; -end; - -procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsVariant := Null; -end; - function TAlbaranesClienteDataTableRules.GetNOMBREValue: String; begin result := DataTable.Fields[idx_AlbaranesClienteNOMBRE].AsString; @@ -1527,6 +1534,27 @@ begin DataTable.Fields[idx_AlbaranesClienteREF_FACTURA].AsVariant := Null; end; +function TAlbaranesClienteDataTableRules.GetID_DIRECCIONValue: Integer; +begin + result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger; +end; + +procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer); +begin + DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger := aValue; +end; + +function TAlbaranesClienteDataTableRules.GetID_DIRECCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].IsNull; +end; + +procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsVariant := Null; +end; + function TAlbaranesClienteDataTableRules.GetCALLEValue: String; begin result := DataTable.Fields[idx_AlbaranesClienteCALLE].AsString; @@ -2023,6 +2051,48 @@ begin DataTable.Fields[idx_AlbaranesClienteFECHA_RECEPCION].AsVariant := Null; end; +function TAlbaranesClienteDataTableRules.GetDESCUENTO2Value: Currency; +begin + result := DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsCurrency; +end; + +procedure TAlbaranesClienteDataTableRules.SetDESCUENTO2Value(const aValue: Currency); +begin + DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsCurrency := aValue; +end; + +function TAlbaranesClienteDataTableRules.GetDESCUENTO2IsNull: boolean; +begin + result := DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].IsNull; +end; + +procedure TAlbaranesClienteDataTableRules.SetDESCUENTO2IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsVariant := Null; +end; + +function TAlbaranesClienteDataTableRules.GetIMPORTE_DESCUENTO2Value: Currency; +begin + result := DataTable.Fields[idx_AlbaranesClienteIMPORTE_DESCUENTO2].AsCurrency; +end; + +procedure TAlbaranesClienteDataTableRules.SetIMPORTE_DESCUENTO2Value(const aValue: Currency); +begin + DataTable.Fields[idx_AlbaranesClienteIMPORTE_DESCUENTO2].AsCurrency := aValue; +end; + +function TAlbaranesClienteDataTableRules.GetIMPORTE_DESCUENTO2IsNull: boolean; +begin + result := DataTable.Fields[idx_AlbaranesClienteIMPORTE_DESCUENTO2].IsNull; +end; + +procedure TAlbaranesClienteDataTableRules.SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_AlbaranesClienteIMPORTE_DESCUENTO2].AsVariant := Null; +end; + { TAlbaranesCliente_Detalle_ColorDataTableRules } constructor TAlbaranesCliente_Detalle_ColorDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas index e2b67fc..b3190bd 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas @@ -9,15 +9,15 @@ 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_ListaAnosAlbaranesDelta = '{80722770-25D1-4E97-AAEA-419BB719A5D6}'; - RID_AlbaranesClienteDelta = '{3B43A4E8-B21B-4978-A8D1-91FEFBD05A31}'; - RID_AlbaranesCliente_Detalle_ColorDelta = '{EC828BE2-9AA9-459F-8814-FC87BFF79A9C}'; - RID_AlbaranesCliente_DetallesDelta = '{3FA86ECC-B57D-4E8D-A7EA-66A2C066A9B5}'; + RID_ListaAnosAlbaranesDelta = '{1E1DC3F8-2ECA-40D0-B18D-9AD1F0294B1C}'; + RID_AlbaranesClienteDelta = '{8B265689-7E0C-412D-B7AE-56B2AF1573FD}'; + RID_AlbaranesCliente_Detalle_ColorDelta = '{6FF87351-F32C-49FE-A68B-4BC03FEEE1DB}'; + RID_AlbaranesCliente_DetallesDelta = '{034AE7D6-C246-4EF8-AE5A-1773B4D37A26}'; type { IListaAnosAlbaranesDelta } IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) - ['{80722770-25D1-4E97-AAEA-419BB719A5D6}'] + ['{1E1DC3F8-2ECA-40D0-B18D-9AD1F0294B1C}'] { Property getters and setters } function GetOldANOValue : String; @@ -51,12 +51,11 @@ type { IAlbaranesClienteDelta } IAlbaranesClienteDelta = interface(IAlbaranesCliente) - ['{3B43A4E8-B21B-4978-A8D1-91FEFBD05A31}'] + ['{8B265689-7E0C-412D-B7AE-56B2AF1573FD}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldID_CLIENTEValue : Integer; - function GetOldID_DIRECCIONValue : Integer; function GetOldNOMBREValue : String; function GetOldFECHA_ALBARANValue : DateTime; function GetOldREFERENCIAValue : String; @@ -69,6 +68,7 @@ type function GetOldREF_PEDIDOValue : String; function GetOldID_FACTURAValue : Integer; function GetOldREF_FACTURAValue : String; + function GetOldID_DIRECCIONValue : Integer; function GetOldCALLEValue : String; function GetOldCODIGO_POSTALValue : String; function GetOldPOBLACIONValue : String; @@ -93,12 +93,13 @@ type function GetOldFECHA_PREVISTA_ENVIOValue : DateTime; function GetOldFECHA_ENVIOValue : DateTime; function GetOldFECHA_RECEPCIONValue : DateTime; + function GetOldDESCUENTO2Value : Currency; + function GetOldIMPORTE_DESCUENTO2Value : Currency; { Properties } property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; - property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; @@ -111,6 +112,7 @@ type property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldREF_FACTURA : String read GetOldREF_FACTURAValue; + property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; property OldCALLE : String read GetOldCALLEValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldPOBLACION : String read GetOldPOBLACIONValue; @@ -135,6 +137,8 @@ type property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; + property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value; + property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value; end; { TAlbaranesClienteBusinessProcessorRules } @@ -164,12 +168,6 @@ type function GetOldID_CLIENTEIsNull: Boolean; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetID_DIRECCIONValue: Integer; virtual; - function GetID_DIRECCIONIsNull: Boolean; virtual; - function GetOldID_DIRECCIONValue: Integer; virtual; - function GetOldID_DIRECCIONIsNull: Boolean; virtual; - procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; - procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; @@ -242,6 +240,12 @@ type function GetOldREF_FACTURAIsNull: Boolean; virtual; procedure SetREF_FACTURAValue(const aValue: String); virtual; procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_DIRECCIONValue: Integer; virtual; + function GetID_DIRECCIONIsNull: Boolean; virtual; + function GetOldID_DIRECCIONValue: Integer; virtual; + function GetOldID_DIRECCIONIsNull: Boolean; virtual; + procedure SetID_DIRECCIONValue(const aValue: Integer); virtual; + procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; function GetCALLEIsNull: Boolean; virtual; function GetOldCALLEValue: String; virtual; @@ -384,6 +388,18 @@ type function GetOldFECHA_RECEPCIONIsNull: Boolean; virtual; procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual; procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual; + function GetDESCUENTO2Value: Currency; virtual; + function GetDESCUENTO2IsNull: Boolean; virtual; + function GetOldDESCUENTO2Value: Currency; virtual; + function GetOldDESCUENTO2IsNull: Boolean; virtual; + procedure SetDESCUENTO2Value(const aValue: Currency); virtual; + procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual; + function GetIMPORTE_DESCUENTO2Value: Currency; virtual; + function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual; + function GetOldIMPORTE_DESCUENTO2Value: Currency; virtual; + function GetOldIMPORTE_DESCUENTO2IsNull: Boolean; virtual; + procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual; + procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -398,10 +414,6 @@ type property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull; - property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; - property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; - property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; - property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; @@ -450,6 +462,10 @@ type property REF_FACTURAIsNull : Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull; property OldREF_FACTURA : String read GetOldREF_FACTURAValue; property OldREF_FACTURAIsNull : Boolean read GetOldREF_FACTURAIsNull; + property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue; + property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull; + property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; + property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull; property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property OldCALLE : String read GetOldCALLEValue; @@ -546,6 +562,14 @@ type property FECHA_RECEPCIONIsNull : Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; property OldFECHA_RECEPCIONIsNull : Boolean read GetOldFECHA_RECEPCIONIsNull; + property DESCUENTO2 : Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; + property DESCUENTO2IsNull : Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; + property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value; + property OldDESCUENTO2IsNull : Boolean read GetOldDESCUENTO2IsNull; + property IMPORTE_DESCUENTO2 : Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value; + property IMPORTE_DESCUENTO2IsNull : Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull; + property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value; + property OldIMPORTE_DESCUENTO2IsNull : Boolean read GetOldIMPORTE_DESCUENTO2IsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -555,7 +579,7 @@ type { IAlbaranesCliente_Detalle_ColorDelta } IAlbaranesCliente_Detalle_ColorDelta = interface(IAlbaranesCliente_Detalle_Color) - ['{EC828BE2-9AA9-459F-8814-FC87BFF79A9C}'] + ['{6FF87351-F32C-49FE-A68B-4BC03FEEE1DB}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_DETALLEValue : Integer; @@ -745,7 +769,7 @@ type { IAlbaranesCliente_DetallesDelta } IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) - ['{3FA86ECC-B57D-4E8D-A7EA-66A2C066A9B5}'] + ['{034AE7D6-C246-4EF8-AE5A-1773B4D37A26}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -1129,37 +1153,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CLIENTE] := Null; end; -function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION]; -end; - -function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION]); -end; - -function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION]; -end; - -function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION]); -end; - -procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := aValue; -end; - -procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := Null; -end; - function TAlbaranesClienteBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE]; @@ -1532,6 +1525,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_FACTURA] := Null; end; +function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION]; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION]); +end; + +function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION]; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION]); +end; + +procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := aValue; +end; + +procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := Null; +end; + function TAlbaranesClienteBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteCALLE]; @@ -2270,6 +2294,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_RECEPCION] := Null; end; +function TAlbaranesClienteBusinessProcessorRules.GetDESCUENTO2Value: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDESCUENTO2]; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetDESCUENTO2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDESCUENTO2]); +end; + +function TAlbaranesClienteBusinessProcessorRules.GetOldDESCUENTO2Value: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteDESCUENTO2]; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetOldDESCUENTO2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteDESCUENTO2]); +end; + +procedure TAlbaranesClienteBusinessProcessorRules.SetDESCUENTO2Value(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDESCUENTO2] := aValue; +end; + +procedure TAlbaranesClienteBusinessProcessorRules.SetDESCUENTO2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDESCUENTO2] := Null; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetIMPORTE_DESCUENTO2Value: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2]; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetIMPORTE_DESCUENTO2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2]); +end; + +function TAlbaranesClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2Value: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2]; +end; + +function TAlbaranesClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2]); +end; + +procedure TAlbaranesClienteBusinessProcessorRules.SetIMPORTE_DESCUENTO2Value(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2] := aValue; +end; + +procedure TAlbaranesClienteBusinessProcessorRules.SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2] := Null; +end; + { TAlbaranesCliente_Detalle_ColorBusinessProcessorRules } constructor TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas index aba4bac..696ca3f 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas @@ -91,7 +91,7 @@ begin GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); AReferenciasService := Intf as IsrvReferencias; - Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA) + Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1) end; function TBizAlbaranClienteServer.IncrementarReferencia: Boolean; @@ -110,7 +110,7 @@ begin GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); AReferenciasService := Intf as IsrvReferencias; - Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA) + Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1) end; diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas index 096db5e..4f41e51 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas @@ -69,6 +69,7 @@ type procedure IMPORTE_NETOOnChange(Sender: TDACustomField); procedure IMPORTE_PORTEOnChange(Sender: TDACustomField); procedure DESCUENTOOnChange(Sender: TDACustomField); + procedure DESCUENTO2OnChange(Sender: TDACustomField); procedure IVAOnChange(Sender: TDACustomField); procedure OnNewRecord(Sender: TDADataTable); override; @@ -101,7 +102,8 @@ begin if not Self.DataTable.Editing then Edit; IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); - BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; + IMPORTE_DESCUENTO2 := IMPORTE_NETO * (DESCUENTO2/100); + BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO - IMPORTE_DESCUENTO2 + IMPORTE_PORTE; end; procedure TBizAlbaranCliente.CalcularImporteTotal; @@ -140,12 +142,18 @@ begin FieldByName(fld_AlbaranesClienteIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange; FieldByName(fld_AlbaranesClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange; FieldByName(fld_AlbaranesClienteDESCUENTO).OnChange := DESCUENTOOnChange; + FieldByName(fld_AlbaranesClienteDESCUENTO2).OnChange := DESCUENTO2OnChange; FieldByName(fld_AlbaranesClienteIVA).OnChange := IVAOnChange; end; FSeleccionableInterface := TSeleccionable.Create(aDataTable); end; +procedure TBizAlbaranCliente.DESCUENTO2OnChange(Sender: TDACustomField); +begin + CalcularImporteTotal; +end; + procedure TBizAlbaranCliente.DESCUENTOOnChange(Sender: TDACustomField); begin CalcularImporteTotal; @@ -191,8 +199,8 @@ begin REFERENCIA := ''; TIPO := CTE_TIPO_ALBARAN; - // NO SE TIENEN EN CUENTA LOS ALBARANES DE CLIENTE PARA EL STOCK DE ALMACEN "DE MOMENTO" - ID_ALMACEN := ID_NULO; + // COMO SOLO TENDRÁ UN ALAMCÉN DADO DE ALTA YA QUE NO LE PERMITIMOS MÁS, LO PONEMOS A CAPÓN. + ID_ALMACEN := 2; end; procedure TBizAlbaranCliente.IVAOnChange(Sender: TDACustomField); @@ -223,27 +231,26 @@ var begin FCliente := AValue; + bEnEdicion := (DataTable.State in dsEditModes); + if not bEnEdicion then + Edit; + if Assigned(FCliente) then begin if not FCliente.DataTable.Active then FCliente.DataTable.Active := True; - if ID_Cliente <> FCliente.ID then - begin - bEnEdicion := (DataTable.State in dsEditModes); - if not bEnEdicion then - DataTable.Edit; + ID_CLIENTE := FCliente.ID; + if FCliente.ID_FORMA_PAGO > 0 then + ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; + DESCUENTO := FCliente.DESCUENTO; + DESCUENTO2 := FCliente.DESCUENTO2; - ID_CLIENTE := FCliente.ID; - if FCliente.ID_FORMA_PAGO > 0 then - ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; - //DESCUENTO := FCliente.DESCUENTO; //No esta activado el descuento general para los albaranes + Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles + //si se quita el id de la cabecera y los detalles se desincroniza - DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles - //si se quita el id de la cabecera y los detalles se desincroniza - if bEnEdicion then - DataTable.Edit; - end; + if bEnEdicion then + Edit; end; end; diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizDetalleColoresAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizDetalleColoresAlbaranCliente.pas index 6c61b94..603d503 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizDetalleColoresAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizDetalleColoresAlbaranCliente.pas @@ -40,7 +40,6 @@ end; procedure TBizDetalleColoresAlbaranCliente.OnNewRecord(Sender: TDADataTable); begin inherited; - COLOR1 := 1; //Para que cuando elijamos varios articulos a añadir en un albarán por defecto es cantidad 1 y definimos por defecto tambien color 1 end; initialization diff --git a/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc b/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc index 61cbf13..72d7dda 100644 --- a/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc +++ b/Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */ -/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.drf */ +/* E:\temp\dtf715.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm index 227cc64..1392824 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm @@ -64,17 +64,20 @@ object RptAlbaranesCliente: TRptAlbaranesCliente 'LBARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.' + 'REFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARAN' + 'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.OBSERVACIONES,'#10' V_' + - 'ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.NIF_CIF, CONTACTOS.' + - 'NOMBRE,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTA' + - 'CTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CO' + - 'NTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION' + - ','#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCI' + - 'A) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL,' + - ' CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL'#10'FROM'#10' V_ALBARANES_CL' + - 'IENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIE' + - 'NTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONT' + - 'ACTOS_DIRECCIONES.ID = V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V' + - '_ALBARANES_CLIENTE.ID = :ID'#10#10 + 'ALBARANES_CLIENTE.IMPORTE_NETO,'#10' V_ALBARANES_CLIENTE.DESCUENTO,' + + #10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES_CLIENTE.' + + 'DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' V_ALBARA' + + 'NES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE' + + ', CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CLIENTE.PER' + + 'SONA_CONTACTO,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS' + + '.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBLACION, CO' + + 'NTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONE' + + 'S.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTA' + + 'CTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODI' + + 'GO_POSTAL'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONTACTOS ON (' + + 'CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN' + + ' CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_ALBARANE' + + 'S_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'#10#10 StatementType = stSQL ColumnMappings = < item @@ -144,6 +147,30 @@ object RptAlbaranesCliente: TRptAlbaranesCliente item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' + end + item + DatasetField = 'REF_CLIENTE' + TableField = 'REF_CLIENTE' + end + item + DatasetField = 'IMPORTE_NETO' + TableField = 'IMPORTE_NETO' + end + item + DatasetField = 'DESCUENTO' + TableField = 'DESCUENTO' + end + item + DatasetField = 'IMPORTE_DESCUENTO' + TableField = 'IMPORTE_DESCUENTO' + end + item + DatasetField = 'DESCUENTO2' + TableField = 'DESCUENTO2' + end + item + DatasetField = 'IMPORTE_DESCUENTO2' + TableField = 'IMPORTE_DESCUENTO2' end> end> Name = 'Informe_Cabecera' @@ -187,10 +214,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Name = 'OBSERVACIONES' DataType = datMemo end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + end + item + Name = 'DESCUENTO' + DataType = datCurrency + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + end + item + Name = 'DESCUENTO2' + DataType = datCurrency + end + item + Name = 'IMPORTE_DESCUENTO2' + DataType = datCurrency + end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end + item + Name = 'REF_CLIENTE' + DataType = datString + Size = 255 + end item Name = 'NIF_CIF' DataType = datString @@ -476,7 +528,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 39460.761954919000000000 + ReportOptions.LastChange = 40190.500735312500000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( '' @@ -537,11 +589,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente '' 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' 'begin' - '{ if not Engine.FinalPass then' + ' if not Engine.FinalPass then' ' Set('#39'TotalPaginas'#39', ( + 1));' '' ' if Engine.FinalPass then' - ' Set('#39'Pagina'#39', ( + 1));} ' + ' Set('#39'Pagina'#39', ( + 1)); ' 'end;' '' 'procedure frxReportOnStartReport(Sender: TfrxComponent);' @@ -550,6 +602,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente ' Set('#39'TotalPaginas'#39', 0);' 'end;' '' + '' + + 'procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxCompone' + + 'nt);' + 'var' + ' ACantidad: String; ' + ' AIndice: Integer;' + ' AText : String; ' + 'begin' + ' frxDBDetallesCANTIDAD.Memo.Clear; ' + ' ACantidad := FloatToStr(); ' + ' if ACantidad = '#39'0'#39' then' + ' AText := '#39#39 + ' else begin ' + ' AIndice := Pos('#39','#39', ACantidad);' + + ' if AIndice > 0 then ' + + ' ' + + ' AText := '#39'[FormatFloat('#39#39'#,##0.00'#39#39',)] [frxDBDetalles."UNIDAD_MEDIDA"]'#39 + ' else ' + + ' AText := '#39'[FormatFloat('#39#39'#,##0.##'#39#39',)] [frxDBDetalles."UNIDAD_MEDIDA"]'#39';' + ' end; ' + ' frxDBDetallesCANTIDAD.Memo.Add(AText);' + 'end;' + '' '' 'begin' '' @@ -827,10 +908,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente Name = 'OBSERVACIONES' DataType = datMemo end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + end + item + Name = 'DESCUENTO' + DataType = datCurrency + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + end + item + Name = 'DESCUENTO2' + DataType = datCurrency + end + item + Name = 'IMPORTE_DESCUENTO2' + DataType = datCurrency + end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end + item + Name = 'REF_CLIENTE' + DataType = datString + Size = 255 + end item Name = 'NIF_CIF' DataType = datString diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas index 4d1a9d9..9f506b4 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas +++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas @@ -59,8 +59,8 @@ type tbl_Cabecera: TDAMemDataTable; tbl_Detalles: TDAMemDataTable; frxPDFExport1: TfrxPDFExport; - schReport: TDASchema; DABin2DataStreamer1: TDABin2DataStreamer; + schReport: TDASchema; procedure DataModuleCreate(Sender: TObject); procedure DataModuleDestroy(Sender: TObject); private diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index ff5b974..92cf3e3 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -207,6 +207,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente item DatasetField = 'ID_DIRECCION' TableField = 'ID_DIRECCION' + end + item + DatasetField = 'DESCUENTO2' + TableField = 'DESCUENTO2' + end + item + DatasetField = 'IMPORTE_DESCUENTO2' + TableField = 'IMPORTE_DESCUENTO2' end> end> Name = 'AlbaranesCliente' @@ -229,10 +237,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente DataType = datInteger DictionaryEntry = 'AlbaranesCliente_ID_CLIENTE' end - item - Name = 'ID_DIRECCION' - DataType = datInteger - end item Name = 'NOMBRE' DataType = datString @@ -307,6 +311,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente ServerAutoRefresh = True DictionaryEntry = 'AlbaranesCliente_REF_FACTURA' end + item + Name = 'ID_DIRECCION' + DataType = datInteger + end item Name = 'CALLE' DataType = datString @@ -433,6 +441,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Name = 'FECHA_RECEPCION' DataType = datDateTime DictionaryEntry = 'AlbaranesCliente_FECHA_RECEPCION' + end + item + Name = 'DESCUENTO2' + DataType = datCurrency + end + item + Name = 'IMPORTE_DESCUENTO2' + DataType = datCurrency end> end item @@ -768,138 +784,192 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente end item Name = 'ID_EMPRESA' + DataType = datInteger Value = '' end item Name = 'ID_CLIENTE' + DataType = datInteger Value = '' end item Name = 'FECHA_ALBARAN' + DataType = datDateTime Value = '' end item Name = 'TIPO' + DataType = datString + Size = 1 Value = '' end item Name = 'REFERENCIA' + DataType = datString + Size = 255 Value = '' end item Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 Value = '' end item Name = 'ID_ALMACEN' + DataType = datInteger Value = '' end item Name = 'ID_PEDIDO' + DataType = datInteger Value = '' end item Name = 'ID_FACTURA' + DataType = datInteger Value = '' end item Name = 'ID_DIRECCION' + DataType = datInteger Value = '' end item Name = 'CALLE' + DataType = datString + Size = 255 Value = '' end item Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 Value = '' end item Name = 'POBLACION' + DataType = datString + Size = 255 Value = '' end item Name = 'PROVINCIA' + DataType = datString + Size = 255 Value = '' end item Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 Value = '' end item Name = 'TELEFONO' + DataType = datString + Size = 25 Value = '' end item Name = 'IMPORTE_NETO' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_PORTE' + DataType = datCurrency Value = '' end item Name = 'DESCUENTO' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency Value = '' end item Name = 'BASE_IMPONIBLE' + DataType = datCurrency Value = '' end item Name = 'IVA' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_IVA' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_TOTAL' + DataType = datCurrency Value = '' end item Name = 'OBSERVACIONES' + DataType = datMemo Value = '' end item Name = 'INCIDENCIAS' + DataType = datMemo Value = '' end item Name = 'INCIDENCIAS_ACTIVAS' + DataType = datSmallInt Value = '' end item Name = 'FECHA_ALTA' + DataType = datDateTime Value = '' end item Name = 'FECHA_MODIFICACION' + DataType = datDateTime Value = '' end item Name = 'USUARIO' + DataType = datString + Size = 30 Value = '' end item Name = 'ID_FORMA_PAGO' + DataType = datInteger Value = '' end item Name = 'FECHA_PREVISTA_ENVIO' + DataType = datDateTime Value = '' end item Name = 'FECHA_ENVIO' + DataType = datDateTime Value = '' end item Name = 'FECHA_RECEPCION' + DataType = datDateTime + Value = '' + end + item + Name = 'DESCUENTO2' + DataType = datCurrency + Value = '' + end + item + Name = 'IMPORTE_DESCUENTO2' + DataType = datCurrency Value = '' end> Statements = < @@ -916,16 +986,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente 'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 + ' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' + 'ACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' + - '_ENVIO, '#10' FECHA_RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :' + - 'ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :REFERENCIA' + - '_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_DIRECCION,'#10' ' + - ' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CON' + - 'TACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO' + - ', :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, ' + - ':IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCIDENCIAS, :INCIDENCIAS_' + - 'ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :USUARIO, :ID_FO' + - 'RMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION)' + - #10' '#10' '#10#10 + '_ENVIO, '#10' FECHA_RECEPCION, DESCUENTO2, IMPORTE_DESCUENTO2)'#10' ' + + ' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIP' + + 'O, :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDID' + + 'O, :ID_FACTURA, :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POB' + + 'LACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_' + + 'NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE' + + '_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10 + + ' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MOD' + + 'IFICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO,' + + ' :FECHA_ENVIO, :FECHA_RECEPCION,'#10' :DESCUENTO2, :IMPORTE_DESC' + + 'UENTO2)'#10' '#10' '#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -952,138 +1023,192 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Params = < item Name = 'ID_EMPRESA' + DataType = datInteger Value = '' end item Name = 'ID_CLIENTE' + DataType = datInteger Value = '' end item Name = 'FECHA_ALBARAN' + DataType = datDateTime Value = '' end item Name = 'TIPO' + DataType = datString + Size = 1 Value = '' end item Name = 'REFERENCIA' + DataType = datString + Size = 255 Value = '' end item Name = 'REFERENCIA_CLIENTE' + DataType = datString + Size = 255 Value = '' end item Name = 'ID_ALMACEN' + DataType = datInteger Value = '' end item Name = 'ID_PEDIDO' + DataType = datInteger Value = '' end item Name = 'ID_FACTURA' + DataType = datInteger Value = '' end item Name = 'ID_DIRECCION' + DataType = datInteger Value = '' end item Name = 'CALLE' + DataType = datString + Size = 255 Value = '' end item Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 Value = '' end item Name = 'POBLACION' + DataType = datString + Size = 255 Value = '' end item Name = 'PROVINCIA' + DataType = datString + Size = 255 Value = '' end item Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 Value = '' end item Name = 'TELEFONO' + DataType = datString + Size = 25 Value = '' end item Name = 'IMPORTE_NETO' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_PORTE' + DataType = datCurrency Value = '' end item Name = 'DESCUENTO' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency Value = '' end item Name = 'BASE_IMPONIBLE' + DataType = datCurrency Value = '' end item Name = 'IVA' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_IVA' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_TOTAL' + DataType = datCurrency Value = '' end item Name = 'OBSERVACIONES' + DataType = datMemo Value = '' end item Name = 'INCIDENCIAS' + DataType = datMemo Value = '' end item Name = 'INCIDENCIAS_ACTIVAS' + DataType = datSmallInt Value = '' end item Name = 'FECHA_ALTA' + DataType = datDateTime Value = '' end item Name = 'FECHA_MODIFICACION' + DataType = datDateTime Value = '' end item Name = 'USUARIO' + DataType = datString + Size = 30 Value = '' end item Name = 'ID_FORMA_PAGO' + DataType = datInteger Value = '' end item Name = 'FECHA_PREVISTA_ENVIO' + DataType = datDateTime Value = '' end item Name = 'FECHA_ENVIO' + DataType = datDateTime Value = '' end item Name = 'FECHA_RECEPCION' + DataType = datDateTime + Value = '' + end + item + Name = 'DESCUENTO2' + DataType = datCurrency + Value = '' + end + item + Name = 'IMPORTE_DESCUENTO2' + DataType = datCurrency Value = '' end item @@ -1114,7 +1239,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente 'CHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO,' + ' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO ' + '= :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' F' + - 'ECHA_RECEPCION = :FECHA_RECEPCION'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'ECHA_RECEPCION = :FECHA_RECEPCION,'#10' DESCUENTO2 = :DESCUENTO2,' + + #10' IMPORTE_DESCUENTO2 = :IMPORTE_DESCUENTO2'#10' WHERE'#10' (ID = ' + + ':OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas index 17c76d3..a7373e6 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas @@ -25,9 +25,9 @@ type bpAlbaranesCliente: TDABusinessProcessor; bpAlbaranesCliente_Detalles: TDABusinessProcessor; Bin2DataStreamer: TDABin2DataStreamer; + bpAlbaranesCliente_DetalleColor: TDABusinessProcessor; schAlbaranesCliente: TDASchema; DADataDictionary: TDADataDictionary; - bpAlbaranesCliente_DetalleColor: TDABusinessProcessor; procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); procedure DARemoteServiceCreate(Sender: TObject); diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk index 776a176..6a8b9b9 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk @@ -68,6 +68,7 @@ contains uViewAlbaranesDevCliente in 'uViewAlbaranesDevCliente.pas' {frViewAlbaranesDevCliente: TCustomView}, uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor}, uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView}, - uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView}; + uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView}, + uViewTotalesAlbaran in 'uViewTotalesAlbaran.pas' {frViewTotalesAlbaran: TCustomView}; end. diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj index 771c64c..bcf5cb8 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj @@ -43,14 +43,6 @@ Package FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - - File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found @@ -145,6 +137,10 @@
frViewElegirArticulosAlbaranesCliente
TFrame + +
frViewTotalesAlbaran
+ TCustomView + diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc index 01e4c4b..5941128 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc @@ -18,6 +18,7 @@ END /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewDireccionEntregaAlbaranCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewDatosYSeleccionClienteAlbaran.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranCliente.dfm */ +/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewTotalesAlbaran.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewElegirArticulosAlbaranesCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorElegirArticulosAlbaranCliente.dfm */ @@ -28,4 +29,4 @@ END /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */ -/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.drf */ +/* E:\temp\dtf713.tmp */ diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.identcache b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.identcache index 0b33d76..f2c9d08 100644 Binary files a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.identcache and b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.identcache differ diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.res b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.res index 1641339..8b251f3 100644 Binary files a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.res and b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.res differ diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm index b11bce1..73ea5bc 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm @@ -2,19 +2,19 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Left = 332 Top = 147 Caption = 'Nuevo albaran de cliente' - ClientHeight = 585 - ClientWidth = 765 + ClientHeight = 626 + ClientWidth = 855 OnClose = CustomEditorClose - ExplicitWidth = 773 - ExplicitHeight = 619 + ExplicitWidth = 863 + ExplicitHeight = 660 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 765 + Width = 855 Caption = 'Nuevo albaran de cliente' - ExplicitWidth = 765 + ExplicitWidth = 855 inherited Image1: TImage - Left = 632 + Left = 722 Picture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0000180806000000E0773DF80000000970485973000017120000171201679FD2 @@ -125,15 +125,15 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ExplicitLeft = 735 end inherited lblDesbloquear: TcxLabel - Left = 667 - ExplicitLeft = 667 - AnchorX = 712 + Left = 757 + ExplicitLeft = 757 + AnchorX = 802 AnchorY = 14 end end inherited TBXDock: TTBXDock - Width = 765 - ExplicitWidth = 765 + Width = 855 + ExplicitWidth = 855 inherited tbxMain: TTBXToolbar ExplicitWidth = 488 inherited TBXItem2: TTBXItem @@ -153,7 +153,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente end end inherited tbxMenu: TTBXToolbar - ExplicitWidth = 765 + ExplicitWidth = 855 object TBXSubmenuItem2: TTBXSubmenuItem [4] Caption = 'A&cciones' object TBXItem7: TTBXItem @@ -163,27 +163,28 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente end end inherited pgPaginas: TPageControl - Width = 759 - Height = 439 + Width = 849 + Height = 382 ActivePage = pagContenido TabOrder = 1 OnChanging = pgPaginasChanging - ExplicitWidth = 759 - ExplicitHeight = 439 + ExplicitWidth = 849 + ExplicitHeight = 366 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 751 - ExplicitHeight = 411 + ExplicitWidth = 841 + ExplicitHeight = 338 end object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 + ExplicitHeight = 338 inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente Left = 0 Top = 0 - Width = 751 - Height = 411 + Width = 841 + Height = 354 Align = alClient BiDiMode = bdLeftToRight Font.Charset = DEFAULT_CHARSET @@ -195,117 +196,62 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 751 - ExplicitHeight = 411 + ExplicitWidth = 841 + ExplicitHeight = 338 inherited ToolBar1: TToolBar - Width = 751 - Height = 51 - ExplicitWidth = 751 - ExplicitHeight = 51 - inherited ToolButton3: TToolButton - Wrap = False - end - inherited ToolButton4: TToolButton - Left = 278 - Top = 0 - ExplicitLeft = 278 - ExplicitTop = 0 - end - inherited FontName: TJvFontComboBox - Left = 334 - Top = 0 - ExplicitLeft = 334 - ExplicitTop = 0 - end - inherited ToolButton14: TToolButton - Left = 479 - Top = 0 - ExplicitLeft = 479 - ExplicitTop = 0 - end + Width = 841 + Height = 73 + ExplicitWidth = 841 + ExplicitHeight = 73 inherited FontSize: TEdit - Left = 544 - Top = 0 - Width = 106 - ExplicitLeft = 544 - ExplicitTop = 0 - ExplicitWidth = 106 + Width = 202 + ExplicitWidth = 202 end - inherited ToolButton13: TToolButton [7] - Left = 0 - Top = 0 - Wrap = True - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitHeight = 27 - end - inherited UpDown1: TUpDown [8] - Left = 0 - Top = 27 - ExplicitLeft = 0 - ExplicitTop = 27 - end - inherited ToolButton11: TToolButton - Left = 17 - Top = 27 - ExplicitLeft = 17 - ExplicitTop = 27 - end - inherited ToolButton12: TToolButton - Left = 158 - Top = 27 - Wrap = False - ExplicitLeft = 158 - ExplicitTop = 27 - ExplicitHeight = 22 - end - inherited ToolButton9: TToolButton - Left = 166 - Top = 27 - ExplicitLeft = 166 - ExplicitTop = 27 + inherited UpDown1: TUpDown + Left = 202 + ExplicitLeft = 202 end inherited ToolButton10: TToolButton - Left = 311 - Top = 27 - ExplicitLeft = 311 - ExplicitTop = 27 + Left = 219 + ExplicitLeft = 219 end - inherited ToolButton6: TToolButton - Left = 436 - Top = 27 - ExplicitLeft = 436 - ExplicitTop = 27 + inherited FontName: TJvFontComboBox + Left = 344 + ExplicitLeft = 344 end inherited ToolButton7: TToolButton - Left = 502 - Top = 27 + Left = 489 Wrap = False - ExplicitLeft = 502 - ExplicitTop = 27 + ExplicitLeft = 489 + end + inherited ToolButton11: TToolButton + Left = 556 + Top = 49 + ExplicitLeft = 556 + ExplicitTop = 49 end inherited ToolButton8: TToolButton - Left = 569 - Top = 27 - ExplicitLeft = 569 - ExplicitTop = 27 + Left = 697 + Top = 49 + ExplicitLeft = 697 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Top = 77 - Width = 751 - Height = 334 - ExplicitTop = 77 - ExplicitWidth = 751 - ExplicitHeight = 334 + Top = 99 + Width = 841 + Height = 255 + ExplicitTop = 99 + ExplicitWidth = 841 + ExplicitHeight = 239 end inherited TBXDock1: TTBXDock - Top = 51 - Width = 751 - ExplicitTop = 51 - ExplicitWidth = 751 + Top = 73 + Width = 841 + ExplicitTop = 73 + ExplicitWidth = 841 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 751 + ExplicitWidth = 841 end end inherited cxGridPopupMenu: TcxGridPopupMenu @@ -322,11 +268,12 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 + ExplicitHeight = 338 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 - Width = 751 - Height = 411 + Width = 841 + Height = 354 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -336,45 +283,45 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 751 - ExplicitHeight = 411 + ExplicitWidth = 841 + ExplicitHeight = 338 inherited pnlSup: TPanel - Width = 751 - ExplicitWidth = 751 + Width = 841 + ExplicitWidth = 841 inherited eIncidenciaActiva: TcxDBCheckBox ExplicitHeight = 21 end end inherited GroupBox1: TGroupBox - Width = 751 - Height = 383 - ExplicitWidth = 751 - ExplicitHeight = 383 + Width = 841 + Height = 326 + ExplicitWidth = 841 + ExplicitHeight = 310 inherited eIncidencias: TcxDBMemo - ExplicitWidth = 734 - ExplicitHeight = 356 - Height = 356 - Width = 734 + ExplicitWidth = 824 + ExplicitHeight = 283 + Height = 299 + Width = 824 end end end end end inherited StatusBar: TJvStatusBar - Top = 566 - Width = 765 + Top = 607 + Width = 855 Panels = < item Width = 200 end> - ExplicitTop = 566 - ExplicitWidth = 765 + ExplicitTop = 607 + ExplicitWidth = 855 end - inline frViewTotales1: TfrViewTotales [4] + inline frViewTotalesAlbaran1: TfrViewTotalesAlbaran [4] Left = 0 - Top = 521 - Width = 765 - Height = 45 + Top = 464 + Width = 855 + Height = 143 Align = alBottom Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -384,283 +331,150 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ParentFont = False TabOrder = 4 ReadOnly = False - ExplicitTop = 521 - ExplicitWidth = 765 - ExplicitHeight = 45 + ExplicitTop = 464 + ExplicitWidth = 855 + ExplicitHeight = 143 inherited dxLayoutControl1: TdxLayoutControl - Width = 765 - Height = 45 - LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 765 - ExplicitHeight = 45 + Width = 855 + Height = 143 + ExplicitWidth = 855 + ExplicitHeight = 159 inherited Bevel3: TBevel - Left = 428 - Top = 11 - Width = 7 - Height = 54 - ExplicitLeft = 428 - ExplicitTop = 11 - ExplicitWidth = 7 - ExplicitHeight = 54 + Left = 418 + Height = 201 + ExplicitLeft = 418 + ExplicitHeight = 201 end inherited Bevel4: TBevel - Left = 544 - Top = 53 - Width = 192 - ExplicitLeft = 544 - ExplicitTop = 53 - ExplicitWidth = 192 + Left = 551 + ExplicitLeft = 551 end inherited Bevel1: TBevel - Left = 544 - Top = 169 - Width = 73 - ExplicitLeft = 544 - ExplicitTop = 169 - ExplicitWidth = 73 - end - inherited Bevel2: TBevel - Left = 120 - Top = 171 - Width = 368 - ExplicitLeft = 120 - ExplicitTop = 171 - ExplicitWidth = 368 + Left = 551 + ExplicitLeft = 551 end inherited ImporteDto: TcxDBCurrencyEdit - Left = 191 - Top = 38 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 191 - ExplicitTop = 38 end inherited ImporteIVA: TcxDBCurrencyEdit - Left = 615 - Top = 88 - DataBinding.DataField = '' + Left = 622 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 615 - ExplicitTop = 88 - ExplicitWidth = 182 - Width = 182 + ExplicitLeft = 622 end inherited ImporteTotal: TcxDBCurrencyEdit - Left = 545 - Top = 142 + Left = 552 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 545 - ExplicitTop = 142 - ExplicitWidth = 252 - Width = 252 + ExplicitLeft = 552 end inherited edtDescuento: TcxDBSpinEdit - Left = 120 - Top = 38 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 120 - ExplicitTop = 38 end inherited edtIVA: TcxDBSpinEdit - Left = 544 - Top = 88 - DataBinding.DataField = '' + Left = 551 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 544 - ExplicitTop = 88 + ExplicitLeft = 551 end inherited ImporteBase: TcxDBCurrencyEdit - Left = 544 - Top = 11 + Left = 551 + DataBinding.DataField = 'IMPORTE_NETO' Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 544 - ExplicitTop = 11 - ExplicitWidth = 253 - Width = 253 + ExplicitLeft = 551 end inherited edtRE: TcxDBSpinEdit - Left = 544 - Top = 115 - DataBinding.DataField = '' + Left = 551 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 544 - ExplicitTop = 115 + ExplicitLeft = 551 end inherited ImporteRE: TcxDBCurrencyEdit - Left = 615 - Top = 115 - DataBinding.DataField = '' + Left = 622 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 615 - ExplicitTop = 115 - ExplicitWidth = 182 - Width = 182 + ExplicitLeft = 622 end inherited eImporteNeto: TcxDBCurrencyEdit - Left = 120 - Top = 11 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 120 - ExplicitTop = 11 end inherited ePorte: TcxDBCurrencyEdit - Left = 120 - Top = 65 - Properties.OnValidate = frViewTotales1ePortePropertiesValidate Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 120 - ExplicitTop = 65 end inherited eIVA: TcxDBLookupComboBox - Left = 120 - Top = 92 - DataBinding.DataField = '' Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 120 - ExplicitTop = 92 end inherited bTiposIVA: TButton - Left = 280 - Top = 92 - ExplicitLeft = 280 - ExplicitTop = 92 + Left = 270 + ExplicitLeft = 270 end inherited cbRecargoEquivalencia: TcxDBCheckBox - Left = 120 - Top = 119 - DataBinding.DataField = '' - DataBinding.DataSource = nil Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 120 - ExplicitTop = 119 - ExplicitWidth = 221 - Width = 221 end inherited edtRetencion: TcxDBSpinEdit - Left = 544 - Top = 189 + Left = 551 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 544 - ExplicitTop = 189 + ExplicitLeft = 551 end inherited edtImporteRetencion: TcxDBCurrencyEdit - Left = 615 - Top = 189 + Left = 622 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 615 - ExplicitTop = 189 - ExplicitWidth = 180 - Width = 180 + ExplicitLeft = 622 end inherited edtFechaRetencion: TcxDBDateEdit - Left = 120 - Top = 191 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 120 - ExplicitTop = 191 - ExplicitWidth = 280 - Width = 280 - end - inherited dxLayoutControl1Group_Root: TdxLayoutGroup - inherited dxLayoutControl1Group1: TdxLayoutGroup - ShowCaption = False - ShowBorder = False - inherited dxLayoutControl1Group2: TdxLayoutGroup - inherited dxLayoutControl1Item8: TdxLayoutItem - Visible = False - end - inherited dxLayoutControl1Group7: TdxLayoutGroup - Visible = False - end - inherited dxLayoutControl1Group6: TdxLayoutGroup - Visible = False - end - inherited dxLayoutControl1Item16: TdxLayoutItem - Visible = False - end - inherited dxLayoutControl1Item19: TdxLayoutItem - Visible = False - end - end - inherited dxLayoutControl1Group5: TdxLayoutGroup - inherited dxLayoutControl1Item13: TdxLayoutItem - Visible = False - end - inherited dxLayoutControl1Group3: TdxLayoutGroup - inherited dxLayoutControl1Item12: TdxLayoutItem - Visible = False - end - inherited dxLayoutControl1Item14: TdxLayoutItem - Visible = False - end - inherited dxLayoutControl1Group9: TdxLayoutGroup - Visible = False - end - inherited dxLayoutControl1Group8: TdxLayoutGroup - Visible = False - end - inherited dxLayoutControl1Item10: TdxLayoutItem - Visible = False - end - end - end - end end end end diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas index 6e8db22..385efd6 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas @@ -14,7 +14,7 @@ uses dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales, uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente, uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces, - uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids; + uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids, uViewTotalesAlbaran; type TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente) @@ -24,22 +24,19 @@ type dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente; - frViewTotales1: TfrViewTotales; actEnviarEMail: TAction; TBXSubmenuItem2: TTBXSubmenuItem; TBXItem7: TTBXItem; TBXItem33: TTBXItem; TBXSeparatorItem6: TTBXSeparatorItem; + frViewTotalesAlbaran1: TfrViewTotalesAlbaran; procedure FormShow(Sender: TObject); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean); procedure frViewTotales1ePortePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); - procedure frViewTotales1edtDescuentoPropertiesValidate(Sender: TObject; - var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); - procedure frViewTotales1edtIVAPropertiesValidate(Sender: TObject; - var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); + procedure actEnviarEMailExecute(Sender: TObject); procedure actEnviarEMailUpdate(Sender: TObject); private @@ -171,22 +168,6 @@ begin pgPaginas.ActivePage := pagGeneral; end; -procedure TfEditorAlbaranCliente.frViewTotales1edtDescuentoPropertiesValidate( - Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; - var Error: Boolean); -begin - inherited; - FAlbaran.DESCUENTO := DisplayValue; -end; - -procedure TfEditorAlbaranCliente.frViewTotales1edtIVAPropertiesValidate( - Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; - var Error: Boolean); -begin - inherited; - FAlbaran.IVA := DisplayValue; -end; - procedure TfEditorAlbaranCliente.frViewTotales1ePortePropertiesValidate( Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); @@ -353,7 +334,7 @@ begin begin dsDataTable.DataTable := FAlbaran.DataTable; frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable; - frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable; + frViewTotalesAlbaran1.DADataSource.DataTable := dsDataTable.DataTable; if Assigned(FViewAlbaran) then begin @@ -370,7 +351,7 @@ begin else begin dsDataTable.DataTable := NIL; frViewIncidenciasCli.DADataSource.DataTable := NIL; - frViewTotales1.DADataSource.DataTable := NIL; + frViewTotalesAlbaran1.DADataSource.DataTable := NIL; if Assigned(FViewAlbaran) then begin diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm index 984c6d3..dee2894 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm @@ -197,6 +197,10 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente inherited actAnchoAuto: TAction ImageIndex = 22 end + inherited actExportarExcel: TAction + Enabled = False + Visible = False + end object actGenerarFactura: TAction Category = 'Acciones' Caption = 'Generar factura' diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm index b42d731..e0b6891 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm @@ -1,5 +1,51 @@ inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCliente Caption = 'fEditorElegirArticulosAlbaranCliente' + ExplicitHeight = 538 PixelsPerInch = 96 TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + ExplicitTop = 113 + end + inherited TBXDock: TTBXDock + ExplicitTop = 64 + inherited tbxMain: TTBXToolbar + Left = 340 + DockPos = 335 + ExplicitLeft = 340 + ExplicitWidth = 126 + end + inherited tbxFiltro: TTBXToolbar + Left = 3 + DockPos = 3 + ExplicitLeft = 3 + end + inherited TBXTMain2: TTBXToolbar + Left = 466 + ExplicitLeft = 466 + end + end + inherited pnlHeader: TPanel + ExplicitTop = 0 + inherited lblTitle: TLabel + Width = 606 + end + inherited lblComments: TLabel + Width = 581 + Height = 24 + end + end + inherited EditorActionList: TActionList + inherited actNuevo: TAction + Enabled = False + Visible = False + end + inherited actModificar: TAction + Enabled = False + Visible = False + end + inherited actExportarExcel: TAction + Enabled = False + Visible = False + end + end end diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm index 5bb00ed..41647bb 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm @@ -26,6 +26,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Caption = 'Si el proveedor entrega los materiales directamente al cliente, ' + 'no se necesario asociar el albar'#225'n a un almac'#233'n.' + Enabled = False WordWrap = True end object edtFechaAlbaran: TcxDBDateEdit @@ -325,6 +326,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 179 Height = 21 Caption = 'Asociar este albar'#225'n al almac'#233'n:' + Enabled = False TabOrder = 15 OnClick = cbConAlmacenClick end @@ -333,6 +335,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Top = 418 DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataSource = DADataSource + Enabled = False Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item @@ -667,7 +670,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente ShowBorder = False object dxLayoutControl1Group14: TdxLayoutGroup ShowCaption = False - Visible = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False @@ -779,6 +781,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object dxLayoutControl1Group11: TdxLayoutGroup Caption = 'Almac'#233'n de origen' + Enabled = False + Visible = False object dxLayoutControl1Group10: TdxLayoutGroup ShowCaption = False Hidden = True diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm index 1617cb0..7129187 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm @@ -1,60 +1,87 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente inherited ToolBar1: TToolBar - inherited ToolButton9: TToolButton [3] - Left = 278 - Top = 0 - ExplicitLeft = 278 - ExplicitTop = 0 - end - inherited ToolButton4: TToolButton [4] - Left = 423 + Height = 100 + ExplicitHeight = 100 + inherited ToolButton14: TToolButton Wrap = False - ExplicitLeft = 423 end - inherited ToolButton12: TToolButton [5] - Top = 0 - ExplicitTop = 0 + inherited ToolButton9: TToolButton [5] + Left = 121 + Top = 22 + ExplicitLeft = 121 + ExplicitTop = 22 end - inherited ToolButton14: TToolButton [6] + inherited FontName: TJvFontComboBox [6] + Left = 266 + Top = 22 + ExplicitLeft = 266 + ExplicitTop = 22 + end + inherited ToolButton13: TToolButton [7] Left = 0 - Top = 27 + Top = 22 + Wrap = True ExplicitLeft = 0 + ExplicitTop = 22 end - inherited FontName: TJvFontComboBox [7] - end - inherited ToolButton13: TToolButton [8] - Left = 145 + inherited ToolButton6: TToolButton [8] + Left = 0 Top = 49 - ExplicitLeft = 145 + ExplicitLeft = 0 ExplicitTop = 49 end - inherited ToolButton10: TToolButton - Left = 153 - ExplicitLeft = 153 - end - inherited ToolButton7: TToolButton - Left = 278 - ExplicitLeft = 278 - end - inherited ToolButton8: TToolButton [12] - Left = 17 - ExplicitLeft = 17 - end - inherited ToolButton6: TToolButton - Left = 100 - ExplicitLeft = 100 - end - inherited ToolButton11: TToolButton [14] - Left = 166 - ExplicitLeft = 166 - end - inherited FontSize: TEdit + inherited FontSize: TEdit [9] + Left = 66 + Top = 49 Width = 58 + ExplicitLeft = 66 + ExplicitTop = 49 ExplicitWidth = 58 end + inherited UpDown1: TUpDown [10] + Left = 124 + Top = 49 + ExplicitLeft = 124 + ExplicitTop = 49 + end + inherited ToolButton7: TToolButton [11] + Left = 141 + Top = 49 + ExplicitLeft = 141 + ExplicitTop = 49 + end + inherited ToolButton11: TToolButton [12] + Left = 208 + Top = 49 + ExplicitLeft = 208 + ExplicitTop = 49 + end + inherited ToolButton12: TToolButton [13] + Left = 0 + Top = 49 + Wrap = True + ExplicitLeft = 0 + ExplicitTop = 49 + ExplicitHeight = 27 + end + inherited ToolButton10: TToolButton + Left = 0 + Top = 76 + ExplicitLeft = 0 + ExplicitTop = 76 + end + inherited ToolButton8: TToolButton [15] + Left = 125 + Top = 76 + ExplicitLeft = 125 + ExplicitTop = 76 + end end inherited cxGrid: TcxGrid - ExplicitTop = 121 + Top = 126 + Height = 178 + ExplicitTop = 126 + ExplicitHeight = 178 inherited cxGridView: TcxGridDBTableView inherited cxGridViewTIPO: TcxGridDBColumn Visible = False @@ -62,6 +89,8 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente end inherited cxGridViewCANTIDAD: TcxGridDBColumn Properties.ReadOnly = True + Visible = False + VisibleForCustomization = False end object cxGridViewCANTIDAD2: TcxGridDBColumn [10] Caption = 'Cantidad' @@ -75,9 +104,14 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente Properties.ReadOnly = True Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick end + inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn + Visible = False + VisibleForCustomization = False + end end end inherited TBXDock1: TTBXDock + Top = 100 ExplicitTop = 100 inherited TBXToolbar1: TTBXToolbar DockPos = 0 diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas index 2660840..bd22bb7 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas @@ -57,7 +57,7 @@ begin if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, -1) else - Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID); + Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, 0); (Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles); end; @@ -87,7 +87,9 @@ begin if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False, -1) else - (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False); + (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False, 0); + + (Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles); end; procedure TfrViewDetallesAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente); diff --git a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.drc b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.drc index 148de81..f5bb1f7 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.drc +++ b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.res */ -/* E:\temp\dtfCB.tmp */ +/* E:\temp\dtf6E9.tmp */ diff --git a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.drc b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.drc index 99ef210..640e795 100644 --- a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.drc +++ b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\uDataModuleAlbaranesProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\AlbaranesProveedor_data.res */ -/* E:\temp\dtfC9.tmp */ +/* E:\temp\dtf6E7.tmp */ diff --git a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.drc b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.drc index d5d88ed..319f228 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.drc +++ b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Model\AlbaranesProveedor_model.res */ -/* E:\temp\dtfC7.tmp */ +/* E:\temp\dtf6E5.tmp */ diff --git a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.drc b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.drc index caae503..62c48cb 100644 --- a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.drc +++ b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\uPluginAlbaranesProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.res */ -/* E:\temp\dtf10B.tmp */ +/* E:\temp\dtf729.tmp */ diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.drc b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.drc index 7ca7658..8efc3bf 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.drc +++ b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.drc @@ -29,4 +29,4 @@ END /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranDevProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranesProveedorReport.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.res */ -/* E:\temp\dtf109.tmp */ +/* E:\temp\dtf727.tmp */ diff --git a/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm b/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm index 56038e5..afb8d54 100644 --- a/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm +++ b/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm @@ -48,7 +48,9 @@ object PluginAlmacenes: TPluginAlmacenes Tag = 100 Category = 'Log'#237'stica' Caption = 'Almacenes' + Enabled = False ImageIndex = 0 + Visible = False OnExecute = actAlmacenesExecute end end diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm index 5049d52..b61e4e6 100644 --- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm @@ -28,6 +28,22 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos Left = 345 ExplicitLeft = 345 end + inherited ToolButton12: TToolButton + Left = 428 + ExplicitLeft = 428 + end + inherited ToolButton9: TToolButton + Left = 436 + ExplicitLeft = 436 + end + inherited ToolButton10: TToolButton + Left = 581 + ExplicitLeft = 581 + end + inherited ToolButton11: TToolButton + Left = 706 + ExplicitLeft = 706 + end end inherited cxGrid: TcxGrid inherited cxGridView: TcxGridDBTableView diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas index bf86465..fce3cd5 100644 --- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas +++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas @@ -103,7 +103,7 @@ procedure TfrViewDetallesArticulos.CustomViewShow(Sender: TObject); begin inherited; - with DADataSource.DataTable do +{ with DADataSource.DataTable do begin cxGridView.BeginUpdate; try @@ -137,7 +137,7 @@ begin cxGridView.EndUpdate; end; end; - +} SeleccionarFilaActual; end; diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.dfm b/Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.dfm index 42f0069..948e4a1 100644 --- a/Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.dfm +++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.dfm @@ -2,100 +2,85 @@ inherited frViewDetallesArticulosParaVenta: TfrViewDetallesArticulosParaVenta inherited ToolBar1: TToolBar Height = 95 ExplicitHeight = 95 - inherited ToolButton14: TToolButton [1] - Left = 0 - Top = 22 - Wrap = False - ExplicitLeft = 0 - ExplicitTop = 22 + inherited ToolButton12: TToolButton [3] + Left = 278 + Top = 0 + ExplicitLeft = 278 + ExplicitTop = 0 end - inherited ToolButton12: TToolButton [2] - Left = 65 - Wrap = False - ExplicitLeft = 65 - ExplicitHeight = 22 - end - inherited ToolButton13: TToolButton [3] + inherited ToolButton13: TToolButton [4] Left = 0 + Top = 0 Wrap = True - ExplicitLeft = 0 - ExplicitHeight = 27 end - inherited ToolButton2: TToolButton [4] - Left = 0 - Top = 49 - ExplicitLeft = 0 - ExplicitTop = 49 + inherited ToolButton4: TToolButton [5] + Top = 27 end - inherited ToolButton3: TToolButton [5] - Left = 114 - Top = 49 - ExplicitLeft = 114 - ExplicitTop = 49 + inherited ToolButton14: TToolButton [6] + Top = 27 + Wrap = False + ExplicitTop = 27 end - inherited ToolButton4: TToolButton [6] - Left = 169 - Top = 49 - ExplicitLeft = 169 - ExplicitTop = 49 + inherited ToolButton6: TToolButton [7] + Left = 121 + Top = 27 + ExplicitLeft = 121 + ExplicitTop = 27 end - inherited ToolButton7: TToolButton [7] - Left = 225 - Top = 49 - ExplicitLeft = 225 - ExplicitTop = 49 - end - inherited FontName: TJvFontComboBox [8] - Left = 292 - Top = 49 - ExplicitLeft = 292 - ExplicitTop = 49 - end - inherited ToolButton9: TToolButton [9] - Left = 437 - ExplicitLeft = 437 - end - inherited ToolButton8: TToolButton [10] - Left = 582 - Top = 49 + inherited ToolButton9: TToolButton [8] + Left = 187 + Top = 27 Wrap = True - ExplicitLeft = 582 + ExplicitLeft = 187 + ExplicitTop = 27 + end + inherited FontSize: TEdit [9] + Left = 0 + Top = 49 + ExplicitLeft = 0 ExplicitTop = 49 end - inherited FontSize: TEdit [11] - Left = 0 - Top = 71 - ExplicitLeft = 0 - ExplicitTop = 71 - end - inherited UpDown1: TUpDown [12] + inherited ToolButton7: TToolButton Left = 42 - Top = 71 + Top = 49 ExplicitLeft = 42 + ExplicitTop = 49 + end + inherited UpDown1: TUpDown [11] + Left = 109 + Top = 49 + ExplicitLeft = 109 + ExplicitTop = 49 + end + inherited ToolButton10: TToolButton [12] + Left = 126 + Top = 49 + Wrap = True + ExplicitLeft = 126 + ExplicitTop = 49 + end + inherited FontName: TJvFontComboBox [13] + Top = 71 ExplicitTop = 71 end - inherited ToolButton6: TToolButton [13] - Left = 59 + inherited ToolButton8: TToolButton [14] + Left = 145 Top = 71 - ExplicitLeft = 59 - ExplicitTop = 71 - end - inherited ToolButton10: TToolButton - Left = 125 - Top = 71 - ExplicitLeft = 125 + ExplicitLeft = 145 ExplicitTop = 71 end inherited ToolButton11: TToolButton - Left = 250 + Left = 228 Top = 71 - ExplicitLeft = 250 + ExplicitLeft = 228 ExplicitTop = 71 end end inherited cxGrid: TcxGrid Top = 121 Height = 183 + ExplicitTop = 121 + ExplicitHeight = 183 inherited cxGridView: TcxGridDBTableView inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn Visible = False @@ -109,5 +94,6 @@ inherited frViewDetallesArticulosParaVenta: TfrViewDetallesArticulosParaVenta end inherited TBXDock1: TTBXDock Top = 95 + ExplicitTop = 68 end end diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.pas b/Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.pas index 67329fc..0d713db 100644 --- a/Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.pas +++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.pas @@ -37,13 +37,13 @@ uses uControllerDetallesArticulos; procedure TfrViewDetallesArticulosParaVenta.CustomViewDestroy(Sender: TObject); begin inherited; - cxGridViewIMPORTEUNIDAD.OnGetPropertiesForEdit := Nil; +// cxGridViewIMPORTEUNIDAD.OnGetPropertiesForEdit := Nil; end; procedure TfrViewDetallesArticulosParaVenta.CustomViewShow(Sender: TObject); begin inherited; - +{ with DADataSource.DataTable do begin cxGridView.BeginUpdate; @@ -53,6 +53,7 @@ begin cxGridView.EndUpdate; end; end; +} end; procedure TfrViewDetallesArticulosParaVenta.OnIMPORTEUNIDADGetProperties( @@ -61,6 +62,7 @@ procedure TfrViewDetallesArticulosParaVenta.OnIMPORTEUNIDADGetProperties( var Aux_IDArticulo: Variant; begin +{ Aux_IDArticulo := Null; cxEditRepositoryComboBox_IMPORTEUNIDAD.Properties.Items.Clear; @@ -88,6 +90,7 @@ begin end; end; +} end; end. diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.drc b/Source/Modulos/Contactos/Controller/Contactos_controller.drc index a2c68d8..c7aa3ae 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.drc +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Noviseda\Source\Modulos\Contactos\Controller\Contactos_controller.res */ -/* E:\temp\dtf47.tmp */ +/* E:\temp\dtf665.tmp */ diff --git a/Source/Modulos/Contactos/Data/Contactos_data.drc b/Source/Modulos/Contactos/Data/Contactos_data.drc index e584fed..fce96a9 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.drc +++ b/Source/Modulos/Contactos/Data/Contactos_data.drc @@ -18,4 +18,4 @@ END /* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleVendedores.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\Contactos_data.res */ -/* E:\temp\dtf45.tmp */ +/* E:\temp\dtf663.tmp */ diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm index 6ee2f17..8ee421f 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm @@ -255,6 +255,10 @@ inherited DataModuleClientes: TDataModuleClientes Name = 'DESCUENTO' DataType = datCurrency end + item + Name = 'DESCUENTO2' + DataType = datCurrency + end item Name = 'FELICITACION' DataType = datSmallInt diff --git a/Source/Modulos/Contactos/Data/uDataModuleVendedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleVendedores.dfm index 924e419..1c2a097 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleVendedores.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleVendedores.dfm @@ -171,6 +171,11 @@ inherited DataModuleVendedores: TDataModuleVendedores ServerAutoRefresh = True DictionaryEntry = 'Vendedores_REFERENCIA' end + item + Name = 'PAIS' + DataType = datString + Size = 255 + end item Name = 'COMISION' DataType = datCurrency diff --git a/Source/Modulos/Contactos/Model/Contactos_model.drc b/Source/Modulos/Contactos/Model/Contactos_model.drc index 6327bae..2c31541 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.drc +++ b/Source/Modulos/Contactos/Model/Contactos_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Noviseda\Source\Modulos\Contactos\Model\Contactos_model.res */ -/* E:\temp\dtf43.tmp */ +/* E:\temp\dtf661.tmp */ diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index b12f500..a253642 100644 --- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas @@ -9,21 +9,21 @@ 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_Contactos = '{5939CC4C-98CD-4418-AE8E-E1DA5899B100}'; - RID_GruposCliente = '{686F98AF-A391-438F-996F-2E8376E9C756}'; - RID_DatosBancarios = '{D9139452-F46D-4EDB-9332-BA358EF1BA5A}'; - RID_Vendedores = '{68A7BE98-0EA2-49CE-87AA-BECC0EAFDB21}'; - RID_Clientes = '{A043C7D9-602B-4CE5-904A-748EF25CAA33}'; - RID_Proveedores = '{F34AE78A-927A-471A-930E-70476275378E}'; - RID_Empleados = '{DC15408D-F82B-40B5-ABBF-7EC9B74EE6C4}'; - RID_DireccionesContacto = '{23F3B0A4-8058-4E86-9126-07B019F41A86}'; - RID_ClientesDescuentos = '{9221F17D-4216-4B56-8266-D3A3CD27B9C0}'; - RID_GruposProveedor = '{17C56F46-1FC5-4ECA-AEEF-35E9F0E37824}'; - RID_GruposEmpleado = '{2B172CD8-6608-4817-9888-732E289BDCD5}'; - RID_Contactos_Refresh = '{AE8F079E-E59A-4AD4-959A-7E64693B346C}'; - RID_ContratosEmpleados = '{635F5995-E674-43A9-8905-1582162D9A10}'; - RID_DescripcionesProveedores = '{1EDD4D3F-8608-4916-A739-A5FE584A9271}'; - RID_PersonalContacto = '{522A1340-5FCA-4907-A7D6-C5646908ABD1}'; + RID_Contactos = '{31E890C9-C096-4B82-8434-F8C22E4BDEDC}'; + RID_GruposCliente = '{70B933FC-B92B-4DEA-B54A-5B4D39AC8BC0}'; + RID_DatosBancarios = '{67D159F3-DF6A-4090-85D0-18942A2E5E9F}'; + RID_Vendedores = '{395B321C-C0F2-422E-9DCB-9F7535E4A2EF}'; + RID_Clientes = '{78865B8B-5E9D-48DA-A2B4-C7BF60D2C90A}'; + RID_Proveedores = '{35C717ED-5796-4BD8-9D32-F3BA1FE2F050}'; + RID_Empleados = '{AA5DB4CA-CC60-431C-9C32-3396340E225B}'; + RID_DireccionesContacto = '{1F2574EE-F467-48A2-BD39-D288B2E72968}'; + RID_ClientesDescuentos = '{7971F20B-2FAA-4CFF-AFDB-3846A73505A2}'; + RID_GruposProveedor = '{E426F450-BDFB-412A-9BBE-83309453C2D2}'; + RID_GruposEmpleado = '{B7E33531-935F-43EF-9AAA-EA60734E4312}'; + RID_Contactos_Refresh = '{B9889A3F-313E-4454-AE79-97CF3D812540}'; + RID_ContratosEmpleados = '{6DE395F5-9C4F-4BED-BEC6-29552362FB92}'; + RID_DescripcionesProveedores = '{39884348-E254-4A49-932E-8FE22A14331E}'; + RID_PersonalContacto = '{C74D4AF4-AF4E-4CC4-977F-93219C341679}'; { Data table names } nme_Contactos = 'Contactos'; @@ -148,6 +148,7 @@ const fld_VendedoresUSUARIO = 'USUARIO'; fld_VendedoresID_EMPRESA = 'ID_EMPRESA'; fld_VendedoresREFERENCIA = 'REFERENCIA'; + fld_VendedoresPAIS = 'PAIS'; fld_VendedoresCOMISION = 'COMISION'; { Vendedores field indexes } @@ -174,7 +175,8 @@ const idx_VendedoresUSUARIO = 20; idx_VendedoresID_EMPRESA = 21; idx_VendedoresREFERENCIA = 22; - idx_VendedoresCOMISION = 23; + idx_VendedoresPAIS = 23; + idx_VendedoresCOMISION = 24; { Clientes fields } fld_ClientesID = 'ID'; @@ -214,6 +216,7 @@ const fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ClientesTIENDA_WEB = 'TIENDA_WEB'; fld_ClientesDESCUENTO = 'DESCUENTO'; + fld_ClientesDESCUENTO2 = 'DESCUENTO2'; fld_ClientesFELICITACION = 'FELICITACION'; { Clientes field indexes } @@ -254,7 +257,8 @@ const idx_ClientesID_FORMA_PAGO = 34; idx_ClientesTIENDA_WEB = 35; idx_ClientesDESCUENTO = 36; - idx_ClientesFELICITACION = 37; + idx_ClientesDESCUENTO2 = 37; + idx_ClientesFELICITACION = 38; { Proveedores fields } fld_ProveedoresID = 'ID'; @@ -559,7 +563,7 @@ const type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) - ['{50009CF6-F80E-4F1F-A421-6C016FB350B5}'] + ['{A35A8745-1A25-43A0-B705-6E13F0D74A27}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -870,7 +874,7 @@ type { IGruposCliente } IGruposCliente = interface(IDAStronglyTypedDataTable) - ['{D15C83D9-E697-4B83-9A49-4B09DCB7F520}'] + ['{FAAEE2D3-FB05-47AD-8948-E82168F803B6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -917,7 +921,7 @@ type { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) - ['{3C83C36A-B5A7-4019-8EA7-0B71F0E2A326}'] + ['{14B854C7-B106-4620-9E3C-4C7346C1F185}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1048,7 +1052,7 @@ type { IVendedores } IVendedores = interface(IDAStronglyTypedDataTable) - ['{9759F724-E96E-4C08-BDEA-23D9C275C679}'] + ['{2BA78472-22B6-4544-874D-7C9F7FA3D9AC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1141,6 +1145,10 @@ type procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetPAISValue: String; + procedure SetPAISValue(const aValue: String); + function GetPAISIsNull: Boolean; + procedure SetPAISIsNull(const aValue: Boolean); function GetCOMISIONValue: Currency; procedure SetCOMISIONValue(const aValue: Currency); function GetCOMISIONIsNull: Boolean; @@ -1194,6 +1202,8 @@ type property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property PAIS: String read GetPAISValue write SetPAISValue; + property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue; property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; end; @@ -1296,6 +1306,10 @@ type procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetPAISValue: String; virtual; + procedure SetPAISValue(const aValue: String); virtual; + function GetPAISIsNull: Boolean; virtual; + procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetCOMISIONValue: Currency; virtual; procedure SetCOMISIONValue(const aValue: Currency); virtual; function GetCOMISIONIsNull: Boolean; virtual; @@ -1348,6 +1362,8 @@ type property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property PAIS: String read GetPAISValue write SetPAISValue; + property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue; property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; @@ -1359,7 +1375,7 @@ type { IClientes } IClientes = interface(IDAStronglyTypedDataTable) - ['{A0EBE95B-5810-4106-8B6A-66729CAE424F}'] + ['{E76A366B-DE63-4C0C-8634-103DA9C2858E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1508,6 +1524,10 @@ type procedure SetDESCUENTOValue(const aValue: Currency); function GetDESCUENTOIsNull: Boolean; procedure SetDESCUENTOIsNull(const aValue: Boolean); + function GetDESCUENTO2Value: Currency; + procedure SetDESCUENTO2Value(const aValue: Currency); + function GetDESCUENTO2IsNull: Boolean; + procedure SetDESCUENTO2IsNull(const aValue: Boolean); function GetFELICITACIONValue: SmallInt; procedure SetFELICITACIONValue(const aValue: SmallInt); function GetFELICITACIONIsNull: Boolean; @@ -1589,6 +1609,8 @@ type property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; + property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; end; @@ -1747,6 +1769,10 @@ type procedure SetDESCUENTOValue(const aValue: Currency); virtual; function GetDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetDESCUENTO2Value: Currency; virtual; + procedure SetDESCUENTO2Value(const aValue: Currency); virtual; + function GetDESCUENTO2IsNull: Boolean; virtual; + procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual; function GetFELICITACIONValue: SmallInt; virtual; procedure SetFELICITACIONValue(const aValue: SmallInt); virtual; function GetFELICITACIONIsNull: Boolean; virtual; @@ -1827,6 +1853,8 @@ type property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; + property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; @@ -1838,7 +1866,7 @@ type { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) - ['{B9739EE6-8C5F-4FF5-9110-ED16F630EECF}'] + ['{69281F58-47C5-447A-811E-27BAE8C96B1A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2305,7 +2333,7 @@ type { IEmpleados } IEmpleados = interface(IDAStronglyTypedDataTable) - ['{39609E2C-7624-4D4F-B872-9F289DE7937D}'] + ['{9225D67C-D954-4519-BB62-C8FB0EFB9C72}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2736,7 +2764,7 @@ type { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) - ['{4B93EF20-3992-48B7-BDBC-A57487E53E79}'] + ['{FABA6DB9-4D4A-4D85-B09D-8E276690BBEE}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2951,7 +2979,7 @@ type { IClientesDescuentos } IClientesDescuentos = interface(IDAStronglyTypedDataTable) - ['{7035995A-EC52-4E8F-9125-6C6F3BC775D9}'] + ['{B9D08C3F-73DF-40A9-8276-51CE26BA7E11}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3034,7 +3062,7 @@ type { IGruposProveedor } IGruposProveedor = interface(IDAStronglyTypedDataTable) - ['{A61D9648-2122-4FA8-A42F-0CE36F65026A}'] + ['{8EDC5230-73EE-4212-83F1-881C5F46E504}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3081,7 +3109,7 @@ type { IGruposEmpleado } IGruposEmpleado = interface(IDAStronglyTypedDataTable) - ['{E336809F-9CCC-475C-81EC-A9A214F8190F}'] + ['{A9B3167E-EF15-42F4-AAD7-2E195697345A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3128,7 +3156,7 @@ type { IContactos_Refresh } IContactos_Refresh = interface(IDAStronglyTypedDataTable) - ['{A34B665C-EB99-4B5C-89AE-EBC2B1F3C04E}'] + ['{983F8897-1B60-47CE-A029-A58FB45854C0}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3415,7 +3443,7 @@ type { IContratosEmpleados } IContratosEmpleados = interface(IDAStronglyTypedDataTable) - ['{13D56F00-3B17-4139-8C9C-4D824F100B29}'] + ['{476A9822-5CC7-45FB-BEB1-66DB796FA07A}'] { Property getters and setters } function GetCONTRATOValue: String; procedure SetCONTRATOValue(const aValue: String); @@ -3450,7 +3478,7 @@ type { IDescripcionesProveedores } IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) - ['{6349752A-7AE2-40FF-8A52-255597E6E0E9}'] + ['{0B27EF2B-D61E-4CDE-AEAF-AF2F3275D15D}'] { Property getters and setters } function GetDESCRIPCION_PROVEEDORValue: String; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); @@ -3485,7 +3513,7 @@ type { IPersonalContacto } IPersonalContacto = interface(IDAStronglyTypedDataTable) - ['{119539A2-3D42-4359-A16E-B2ED25BE299F}'] + ['{F8B934DE-AE4E-4C28-90B2-7D81DA8A43FA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -4909,6 +4937,27 @@ begin DataTable.Fields[idx_VendedoresREFERENCIA].AsVariant := Null; end; +function TVendedoresDataTableRules.GetPAISValue: String; +begin + result := DataTable.Fields[idx_VendedoresPAIS].AsString; +end; + +procedure TVendedoresDataTableRules.SetPAISValue(const aValue: String); +begin + DataTable.Fields[idx_VendedoresPAIS].AsString := aValue; +end; + +function TVendedoresDataTableRules.GetPAISIsNull: boolean; +begin + result := DataTable.Fields[idx_VendedoresPAIS].IsNull; +end; + +procedure TVendedoresDataTableRules.SetPAISIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_VendedoresPAIS].AsVariant := Null; +end; + function TVendedoresDataTableRules.GetCOMISIONValue: Currency; begin result := DataTable.Fields[idx_VendedoresCOMISION].AsCurrency; @@ -5726,6 +5775,27 @@ begin DataTable.Fields[idx_ClientesDESCUENTO].AsVariant := Null; end; +function TClientesDataTableRules.GetDESCUENTO2Value: Currency; +begin + result := DataTable.Fields[idx_ClientesDESCUENTO2].AsCurrency; +end; + +procedure TClientesDataTableRules.SetDESCUENTO2Value(const aValue: Currency); +begin + DataTable.Fields[idx_ClientesDESCUENTO2].AsCurrency := aValue; +end; + +function TClientesDataTableRules.GetDESCUENTO2IsNull: boolean; +begin + result := DataTable.Fields[idx_ClientesDESCUENTO2].IsNull; +end; + +procedure TClientesDataTableRules.SetDESCUENTO2IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ClientesDESCUENTO2].AsVariant := Null; +end; + function TClientesDataTableRules.GetFELICITACIONValue: SmallInt; begin result := DataTable.Fields[idx_ClientesFELICITACION].AsSmallInt; diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas index a2454c7..dcfd43c 100644 --- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas @@ -9,26 +9,26 @@ 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_ContactosDelta = '{D6952F1E-C7D5-4FD8-86A2-9086CF96322C}'; - RID_GruposClienteDelta = '{27585B84-7756-4555-A6C8-FEB6918E681C}'; - RID_DatosBancariosDelta = '{0E0F05AE-194D-46D2-8E16-B68300F69D4B}'; - RID_VendedoresDelta = '{9760F5D1-81E3-4BCF-8E2E-F34D024CC9E1}'; - RID_ClientesDelta = '{C269BFF3-0DF8-4830-A609-980977CB69E7}'; - RID_ProveedoresDelta = '{013010DB-7E71-47A7-A53E-467CF4C830E4}'; - RID_EmpleadosDelta = '{F762DAD3-8D36-4ED7-9F25-9F0DC2FAAA33}'; - RID_DireccionesContactoDelta = '{98B972CF-1202-4B4B-954B-44C2854A60CA}'; - RID_ClientesDescuentosDelta = '{F5BE7170-6DD7-4D2F-9798-761D099BDD61}'; - RID_GruposProveedorDelta = '{CE166657-6C53-480E-81F6-E05E1E94240D}'; - RID_GruposEmpleadoDelta = '{2AF2DC5D-9184-4BEE-9BD0-C51A6645AD63}'; - RID_Contactos_RefreshDelta = '{F398F2D8-2192-450A-AA1B-5D0D9E179CC8}'; - RID_ContratosEmpleadosDelta = '{76026549-3C22-4EF1-8452-F8B09E430989}'; - RID_DescripcionesProveedoresDelta = '{724AB8D8-F8BB-4C45-8A20-0AA19291160D}'; - RID_PersonalContactoDelta = '{1A784A0F-7ACC-4FA2-8EB9-40E1E3FCCE57}'; + RID_ContactosDelta = '{D6DB0142-BEA4-4DC0-B44D-42008D833687}'; + RID_GruposClienteDelta = '{E6162081-3DD9-48ED-91A1-8BD0F798707B}'; + RID_DatosBancariosDelta = '{C18FF453-BFAF-4639-A681-AB04B74D6517}'; + RID_VendedoresDelta = '{5D018AE5-CDFF-48F1-A1DE-7767FC7DB308}'; + RID_ClientesDelta = '{FADEA8D9-97E9-4309-A11D-07D6E35D08B8}'; + RID_ProveedoresDelta = '{E7B3535A-B1BA-4926-AE46-BDD885A62B44}'; + RID_EmpleadosDelta = '{3768A3D0-2DBE-4A8A-A120-64D68A76B527}'; + RID_DireccionesContactoDelta = '{8210370B-075D-42EC-B0FE-C500A85C1E49}'; + RID_ClientesDescuentosDelta = '{20831A5F-CC5C-4301-BC5E-9D2DD8A77A60}'; + RID_GruposProveedorDelta = '{7F668480-9D2B-48D4-8DDE-506796230F77}'; + RID_GruposEmpleadoDelta = '{7AB05FA7-9124-4A83-89B4-79B348BA09CA}'; + RID_Contactos_RefreshDelta = '{4184B8C3-2380-46D4-AA92-8128EE40E17B}'; + RID_ContratosEmpleadosDelta = '{6A832332-537B-4FD9-A618-5D40690AEDB5}'; + RID_DescripcionesProveedoresDelta = '{366EAA53-20C7-4B8C-846C-480DF1C4A4FF}'; + RID_PersonalContactoDelta = '{E71E7008-5A1D-43BE-98E9-50AB8CB8418B}'; type { IContactosDelta } IContactosDelta = interface(IContactos) - ['{D6952F1E-C7D5-4FD8-86A2-9086CF96322C}'] + ['{D6DB0142-BEA4-4DC0-B44D-42008D833687}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -339,7 +339,7 @@ type { IGruposClienteDelta } IGruposClienteDelta = interface(IGruposCliente) - ['{27585B84-7756-4555-A6C8-FEB6918E681C}'] + ['{E6162081-3DD9-48ED-91A1-8BD0F798707B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -385,7 +385,7 @@ type { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) - ['{0E0F05AE-194D-46D2-8E16-B68300F69D4B}'] + ['{C18FF453-BFAF-4639-A681-AB04B74D6517}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -515,7 +515,7 @@ type { IVendedoresDelta } IVendedoresDelta = interface(IVendedores) - ['{9760F5D1-81E3-4BCF-8E2E-F34D024CC9E1}'] + ['{5D018AE5-CDFF-48F1-A1DE-7767FC7DB308}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -540,6 +540,7 @@ type function GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; + function GetOldPAISValue : String; function GetOldCOMISIONValue : Currency; { Properties } @@ -566,6 +567,7 @@ type property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldPAIS : String read GetOldPAISValue; property OldCOMISION : Currency read GetOldCOMISIONValue; end; @@ -713,6 +715,12 @@ type function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetPAISValue: String; virtual; + function GetPAISIsNull: Boolean; virtual; + function GetOldPAISValue: String; virtual; + function GetOldPAISIsNull: Boolean; virtual; + procedure SetPAISValue(const aValue: String); virtual; + procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetCOMISIONValue: Currency; virtual; function GetCOMISIONIsNull: Boolean; virtual; function GetOldCOMISIONValue: Currency; virtual; @@ -813,6 +821,10 @@ type property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property PAIS : String read GetPAISValue write SetPAISValue; + property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull; + property OldPAIS : String read GetOldPAISValue; + property OldPAISIsNull : Boolean read GetOldPAISIsNull; property COMISION : Currency read GetCOMISIONValue write SetCOMISIONValue; property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; property OldCOMISION : Currency read GetOldCOMISIONValue; @@ -826,7 +838,7 @@ type { IClientesDelta } IClientesDelta = interface(IClientes) - ['{C269BFF3-0DF8-4830-A609-980977CB69E7}'] + ['{FADEA8D9-97E9-4309-A11D-07D6E35D08B8}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -865,6 +877,7 @@ type function GetOldID_FORMA_PAGOValue : Integer; function GetOldTIENDA_WEBValue : SmallInt; function GetOldDESCUENTOValue : Currency; + function GetOldDESCUENTO2Value : Currency; function GetOldFELICITACIONValue : SmallInt; { Properties } @@ -905,6 +918,7 @@ type property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue; property OldDESCUENTO : Currency read GetOldDESCUENTOValue; + property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value; property OldFELICITACION : SmallInt read GetOldFELICITACIONValue; end; @@ -1136,6 +1150,12 @@ type function GetOldDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOValue(const aValue: Currency); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetDESCUENTO2Value: Currency; virtual; + function GetDESCUENTO2IsNull: Boolean; virtual; + function GetOldDESCUENTO2Value: Currency; virtual; + function GetOldDESCUENTO2IsNull: Boolean; virtual; + procedure SetDESCUENTO2Value(const aValue: Currency); virtual; + procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual; function GetFELICITACIONValue: SmallInt; virtual; function GetFELICITACIONIsNull: Boolean; virtual; function GetOldFELICITACIONValue: SmallInt; virtual; @@ -1292,6 +1312,10 @@ type property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Currency read GetOldDESCUENTOValue; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; + property DESCUENTO2 : Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; + property DESCUENTO2IsNull : Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; + property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value; + property OldDESCUENTO2IsNull : Boolean read GetOldDESCUENTO2IsNull; property FELICITACION : SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property OldFELICITACION : SmallInt read GetOldFELICITACIONValue; @@ -1305,7 +1329,7 @@ type { IProveedoresDelta } IProveedoresDelta = interface(IProveedores) - ['{013010DB-7E71-47A7-A53E-467CF4C830E4}'] + ['{E7B3535A-B1BA-4926-AE46-BDD885A62B44}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -1772,7 +1796,7 @@ type { IEmpleadosDelta } IEmpleadosDelta = interface(IEmpleados) - ['{F762DAD3-8D36-4ED7-9F25-9F0DC2FAAA33}'] + ['{3768A3D0-2DBE-4A8A-A120-64D68A76B527}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -2207,7 +2231,7 @@ type { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) - ['{98B972CF-1202-4B4B-954B-44C2854A60CA}'] + ['{8210370B-075D-42EC-B0FE-C500A85C1E49}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -2422,7 +2446,7 @@ type { IClientesDescuentosDelta } IClientesDescuentosDelta = interface(IClientesDescuentos) - ['{F5BE7170-6DD7-4D2F-9798-761D099BDD61}'] + ['{20831A5F-CC5C-4301-BC5E-9D2DD8A77A60}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CLIENTEValue : Integer; @@ -2504,7 +2528,7 @@ type { IGruposProveedorDelta } IGruposProveedorDelta = interface(IGruposProveedor) - ['{CE166657-6C53-480E-81F6-E05E1E94240D}'] + ['{7F668480-9D2B-48D4-8DDE-506796230F77}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2550,7 +2574,7 @@ type { IGruposEmpleadoDelta } IGruposEmpleadoDelta = interface(IGruposEmpleado) - ['{2AF2DC5D-9184-4BEE-9BD0-C51A6645AD63}'] + ['{7AB05FA7-9124-4A83-89B4-79B348BA09CA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2596,7 +2620,7 @@ type { IContactos_RefreshDelta } IContactos_RefreshDelta = interface(IContactos_Refresh) - ['{F398F2D8-2192-450A-AA1B-5D0D9E179CC8}'] + ['{4184B8C3-2380-46D4-AA92-8128EE40E17B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -2883,7 +2907,7 @@ type { IContratosEmpleadosDelta } IContratosEmpleadosDelta = interface(IContratosEmpleados) - ['{76026549-3C22-4EF1-8452-F8B09E430989}'] + ['{6A832332-537B-4FD9-A618-5D40690AEDB5}'] { Property getters and setters } function GetOldCONTRATOValue : String; @@ -2917,7 +2941,7 @@ type { IDescripcionesProveedoresDelta } IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) - ['{724AB8D8-F8BB-4C45-8A20-0AA19291160D}'] + ['{366EAA53-20C7-4B8C-846C-480DF1C4A4FF}'] { Property getters and setters } function GetOldDESCRIPCION_PROVEEDORValue : String; @@ -2951,7 +2975,7 @@ type { IPersonalContactoDelta } IPersonalContactoDelta = interface(IPersonalContacto) - ['{1A784A0F-7ACC-4FA2-8EB9-40E1E3FCCE57}'] + ['{E71E7008-5A1D-43BE-98E9-50AB8CB8418B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -4957,6 +4981,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA] := Null; end; +function TVendedoresBusinessProcessorRules.GetPAISValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS]; +end; + +function TVendedoresBusinessProcessorRules.GetPAISIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS]); +end; + +function TVendedoresBusinessProcessorRules.GetOldPAISValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAIS]; +end; + +function TVendedoresBusinessProcessorRules.GetOldPAISIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAIS]); +end; + +procedure TVendedoresBusinessProcessorRules.SetPAISValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS] := aValue; +end; + +procedure TVendedoresBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS] := Null; +end; + function TVendedoresBusinessProcessorRules.GetCOMISIONValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION]; @@ -6155,6 +6210,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := Null; end; +function TClientesBusinessProcessorRules.GetDESCUENTO2Value: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2]; +end; + +function TClientesBusinessProcessorRules.GetDESCUENTO2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2]); +end; + +function TClientesBusinessProcessorRules.GetOldDESCUENTO2Value: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO2]; +end; + +function TClientesBusinessProcessorRules.GetOldDESCUENTO2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO2]); +end; + +procedure TClientesBusinessProcessorRules.SetDESCUENTO2Value(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2] := aValue; +end; + +procedure TClientesBusinessProcessorRules.SetDESCUENTO2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2] := Null; +end; + function TClientesBusinessProcessorRules.GetFELICITACIONValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION]; diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas index e91dd71..4984e74 100644 --- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas +++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas @@ -92,6 +92,7 @@ begin ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO]; + ParamByName('DESCUENTO2').Value := aChange.NewValueByName[fld_ClientesDESCUENTO2]; ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; @@ -132,6 +133,7 @@ begin ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO]; + ParamByName('DESCUENTO2').Value := aChange.NewValueByName[fld_ClientesDESCUENTO2]; ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas index d4635fa..cf5b375 100644 --- a/Source/Modulos/Contactos/Model/uBizContactos.pas +++ b/Source/Modulos/Contactos/Model/uBizContactos.pas @@ -91,6 +91,9 @@ type function GetDESCUENTOValue: Double; procedure SetDESCUENTOValue(const aValue: Double); + function GetDESCUENTO2Value: Double; + procedure SetDESCUENTO2Value(const aValue: Double); + function GetDescuentos: IBizClienteDescuentos; procedure SetDescuentos(Value: IBizClienteDescuentos); property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos; @@ -111,6 +114,7 @@ type property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value; property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue; end; @@ -312,6 +316,9 @@ type function GetDESCUENTOValue: Double; procedure SetDESCUENTOValue(const aValue: Double); + function GetDESCUENTO2Value: Double; + procedure SetDESCUENTO2Value(const aValue: Double); + function GetDescuentos: IBizClienteDescuentos; procedure SetDescuentos(Value: IBizClienteDescuentos); @@ -335,6 +342,7 @@ type property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value; property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue; end; @@ -573,6 +581,11 @@ begin result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger; end; +function TBizCliente.GetDESCUENTO2Value: Double; +begin + result := DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat; +end; + function TBizCliente.GetDescuentos: IBizClienteDescuentos; begin Result := FDescuentos; @@ -618,6 +631,11 @@ begin DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue; end; +procedure TBizCliente.SetDESCUENTO2Value(const aValue: Double); +begin + DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat := aValue; +end; + procedure TBizCliente.SetDescuentos(Value: IBizClienteDescuentos); begin FDescuentos := Value; diff --git a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc index 0c93373..2656260 100644 --- a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc +++ b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */ -/* E:\temp\dtf4B.tmp */ +/* E:\temp\dtf669.tmp */ diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm index 0dde88c..388b5d3 100644 --- a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm +++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm @@ -259,6 +259,7 @@ object PluginContactos: TPluginContactos object actVendedores: TAction Category = 'Ventas' Caption = 'Vendedores' + ImageIndex = 3 OnExecute = actVendedoresExecute OnUpdate = actVendedoresUpdate end diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index 9366ade..9eca65b 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -813,6 +813,10 @@ object srvContactos: TsrvContactos item DatasetField = 'PAIS' TableField = 'PAIS' + end + item + DatasetField = 'DESCUENTO2' + TableField = 'DESCUENTO2' end> end> Name = 'Clientes' @@ -1022,6 +1026,10 @@ object srvContactos: TsrvContactos Name = 'DESCUENTO' DataType = datCurrency end + item + Name = 'DESCUENTO2' + DataType = datCurrency + end item Name = 'FELICITACION' DataType = datSmallInt @@ -3099,6 +3107,11 @@ object srvContactos: TsrvContactos DataType = datCurrency Value = '' end + item + Name = 'DESCUENTO2' + DataType = datCurrency + Value = '' + end item Name = 'VENCIMIENTO_FACTURAS_1' DataType = datSmallInt @@ -3127,13 +3140,13 @@ object srvContactos: TsrvContactos 'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' + 'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' + 'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, D' + - 'ESCUENTO,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, V' + - 'ENCIMIENTO_FACTURAS_3,'#10' FELICITACION)'#10' VALUES'#10' (:ID_CLIE' + - 'NTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMERCIAL,'#10' ' + - ' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA, :ID' + - '_FORMA_PAGO,'#10' :TIENDA_WEB, :DESCUENTO,'#10' :VENCIMIENTO_FAC' + - 'TURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3,'#10' ' + - ':FELICITACION)'#10 + 'ESCUENTO, DESCUENTO2,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_F' + + 'ACTURAS_2, VENCIMIENTO_FACTURAS_3,'#10' FELICITACION)'#10' VALUES'#10' ' + + ' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_' + + 'COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_T' + + 'IPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :DESCUENTO, :DESCUENT' + + 'O2,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENC' + + 'IMIENTO_FACTURAS_3,'#10' :FELICITACION)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3294,6 +3307,11 @@ object srvContactos: TsrvContactos DataType = datCurrency Value = '' end + item + Name = 'DESCUENTO2' + DataType = datCurrency + Value = '' + end item Name = 'VENCIMIENTO_FACTURAS_1' DataType = datSmallInt @@ -3329,11 +3347,11 @@ object srvContactos: TsrvContactos 'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' BLOQUEADO = :BLOQUEADO,'#10' ' + ' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ' + ' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10 + - ' DESCUENTO = :DESCUENTO,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIM' + - 'IENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACT' + - 'URAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3,'#10' ' + - ' FELICITACION = :FELICITACION'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID' + - '_CLIENTE)'#10 + ' DESCUENTO = :DESCUENTO,'#10' DESCUENTO2 = :DESCUENTO2,'#10' VE' + + 'NCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_' + + 'FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3' + + ' = :VENCIMIENTO_FACTURAS_3,'#10' FELICITACION = :FELICITACION'#10' W' + + 'HERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj index 1efa02d..07bb40d 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dproj +++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj @@ -49,56 +49,63 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorCliente
@@ -184,7 +191,7 @@ TCustomEditor -
fEditorElegirVendedor
+
fEditorVendedor
TCustomEditor @@ -271,13 +278,6 @@
frViewVendedores
TCustomView - - - - - - -