diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index c0c548a..e5b3ce6 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Build/Build.fbpInf b/Build/Build.fbpInf index b05e078..62bcbc6 100644 --- a/Build/Build.fbpInf +++ b/Build/Build.fbpInf @@ -1,6 +1,6 @@ - {0F75D8EA-B6C2-4ECA-9E1E-45E235135301},{10527A84-0FB7-4007-9B23-9E5826133948},{154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{331AC851-CE2F-4986-9381-A257AB26B1AD},{3F8BEF26-5F4F-4B97-B1BC-118F36CBDD68},{4968AB21-B759-4F4A-9214-8792F67DA1E2},{4B038673-47F7-4436-BD07-D557FA62337E},{6C425F09-E04B-49EC-89E2-8C93D60E9055},{7251A871-CE6C-41D1-A404-735619825EAE},{856B4CEA-BF27-4696-8FFC-4507B6E29943},{A181C54F-9BE8-4404-9AB9-FEE8A9C3443D},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{B70F0EA3-7874-42B0-BFB8-430D43AC2D61},{C662116C-EB3F-4161-A768-49D13B08EFE5},{CE990EA4-7660-4997-8CBF-6C6AA978753A},{E8E8671F-894B-4049-B4A6-905B57207637},{F2541E28-3C45-4A17-BEC5-185CBF9D2A90} + {0F75D8EA-B6C2-4ECA-9E1E-45E235135301},{10527A84-0FB7-4007-9B23-9E5826133948},{154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{282C2736-74F5-49C2-95D0-C1C4D359AEB2},{331AC851-CE2F-4986-9381-A257AB26B1AD},{3F8BEF26-5F4F-4B97-B1BC-118F36CBDD68},{4968AB21-B759-4F4A-9214-8792F67DA1E2},{4B038673-47F7-4436-BD07-D557FA62337E},{68D393D0-7234-4D5A-9D3A-A3FDC1593E55},{6C425F09-E04B-49EC-89E2-8C93D60E9055},{7251A871-CE6C-41D1-A404-735619825EAE},{816E4470-A0A2-4675-A270-7721426D4FD2},{856B4CEA-BF27-4696-8FFC-4507B6E29943},{A181C54F-9BE8-4404-9AB9-FEE8A9C3443D},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{B70F0EA3-7874-42B0-BFB8-430D43AC2D61},{C662116C-EB3F-4161-A768-49D13B08EFE5},{CE990EA4-7660-4997-8CBF-6C6AA978753A},{E8E8671F-894B-4049-B4A6-905B57207637},{F2541E28-3C45-4A17-BEC5-185CBF9D2A90} @@ -14,8 +14,8 @@ - 00:02:23 - 28/08/2013 15:46:41 - False + 00:00:01 + 30/08/2013 13:07:24 + True diff --git a/Build/Build.fbz6 b/Build/Build.fbz6 index fa60046..35e3ae5 100644 Binary files a/Build/Build.fbz6 and b/Build/Build.fbz6 differ diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index b3f5699..5a2913b 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -2449,9 +2449,10 @@ CREATE VIEW V_FACTURAS_PROVEEDOR( ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE, - DATOS_BANCARIOS, + DATOS_BANCARIOS, NUM_COPIAS, - NUM_CORREOS) + NUM_CORREOS, + ID_ALBARAN) AS SELECT FACTURAS_PROVEEDOR.ID, FACTURAS_PROVEEDOR.ID_EMPRESA, @@ -2487,7 +2488,9 @@ SELECT FACTURAS_PROVEEDOR.ID, FACTURAS_PROVEEDOR.IMPORTE_PORTE, FACTURAS_PROVEEDOR.DATOS_BANCARIOS, IMPRESIONES.NUM_COPIAS, - REGISTRO_CORREOS.NUM_CORREOS + REGISTRO_CORREOS.NUM_CORREOS, + Null as ID_ALBARAN /*CAMPO FICTICIO QUE SE AÑADE PARA PODER COMPARTIR Clase de negocio IBizFacturaProveedor, el modulo de facturas proveedor y el modulo procesopresupuestocliente*/ + FROM V_FAC_PRO_SITUACION LEFT JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA) @@ -2499,6 +2502,102 @@ SELECT FACTURAS_PROVEEDOR.ID, ON ((REGISTRO_CORREOS.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (REGISTRO_CORREOS.TABLA = 'FACTURASPROVEEDOR')) ; +CREATE VIEW V_ALBARANES_PROV_FACTURADOS( + ID_ALBARAN, + ID_FACTURA) +AS +select ID, ID_FACTURA +from albaranes_proveedor +where id_FACTURA is not null +; + +CREATE VIEW V_FACTURAS_PROV_DE_ALBARANES( + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + REFERENCIA_PROVEEDOR, + FECHA_FACTURA, + FECHA_VENCIMIENTO, + SITUACION, + BASE_IMPONIBLE, + DESCUENTO, + IMPORTE_DESCUENTO, + IVA, + IMPORTE_IVA, + RE, + IMPORTE_RE, + IMPORTE_TOTAL, + OBSERVACIONES, + ID_PROVEEDOR, + NIF_CIF, + NOMBRE, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_FORMA_PAGO, + RECARGO_EQUIVALENCIA, + ID_TIPO_IVA, + IMPORTE_NETO, + IMPORTE_PORTE, + DATOS_BANCARIOS, + NUM_COPIAS, + NUM_CORREOS, + ID_ALBARAN) +AS +SELECT FACTURAS_PROVEEDOR.ID, + FACTURAS_PROVEEDOR.ID_EMPRESA, + FACTURAS_PROVEEDOR.REFERENCIA, + CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO, + FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, + FACTURAS_PROVEEDOR.FECHA_FACTURA, + FACTURAS_PROVEEDOR.FECHA_VENCIMIENTO, + TRIM(V_FAC_PRO_SITUACION.SITUACION), + FACTURAS_PROVEEDOR.BASE_IMPONIBLE, + FACTURAS_PROVEEDOR.DESCUENTO, + FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO, + FACTURAS_PROVEEDOR.IVA, + FACTURAS_PROVEEDOR.IMPORTE_IVA, + FACTURAS_PROVEEDOR.RE, + FACTURAS_PROVEEDOR.IMPORTE_RE, + FACTURAS_PROVEEDOR.IMPORTE_TOTAL, + FACTURAS_PROVEEDOR.OBSERVACIONES, + FACTURAS_PROVEEDOR.ID_PROVEEDOR, + FACTURAS_PROVEEDOR.NIF_CIF, + FACTURAS_PROVEEDOR.NOMBRE, + FACTURAS_PROVEEDOR.CALLE, + FACTURAS_PROVEEDOR.POBLACION, + FACTURAS_PROVEEDOR.PROVINCIA, + FACTURAS_PROVEEDOR.CODIGO_POSTAL, + FACTURAS_PROVEEDOR.FECHA_ALTA, + FACTURAS_PROVEEDOR.FECHA_MODIFICACION, + FACTURAS_PROVEEDOR.USUARIO, + FACTURAS_PROVEEDOR.ID_FORMA_PAGO, + FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA, + FACTURAS_PROVEEDOR.ID_TIPO_IVA, + FACTURAS_PROVEEDOR.IMPORTE_NETO, + FACTURAS_PROVEEDOR.IMPORTE_PORTE, + FACTURAS_PROVEEDOR.DATOS_BANCARIOS, + IMPRESIONES.NUM_COPIAS, + REGISTRO_CORREOS.NUM_CORREOS, + V_ALBARANES_PROV_FACTURADOS.ID_ALBARAN + FROM V_FAC_PRO_SITUACION + LEFT JOIN FACTURAS_PROVEEDOR + ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA) + LEFT JOIN PROVEEDORES_DATOS + ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR) + LEFT JOIN IMPRESIONES + ON ((IMPRESIONES.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'FACTURASPROVEEDOR')) + LEFT JOIN REGISTRO_CORREOS + ON ((REGISTRO_CORREOS.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (REGISTRO_CORREOS.TABLA = 'FACTURASPROVEEDOR')) + LEFT JOIN V_ALBARANES_PROV_FACTURADOS + ON (V_ALBARANES_PROV_FACTURADOS.ID_FACTURA = FACTURAS_PROVEEDOR.ID) + WHERE V_ALBARANES_PROV_FACTURADOS.ID_ALBARAN IS NOT NULL +; /* View: V_HIS_MOV_ALB_CLI */ CREATE VIEW V_HIS_MOV_ALB_CLI( diff --git a/Source/ApplicationBase/uPlugins_Intf.pas b/Source/ApplicationBase/uPlugins_Intf.pas index e0f3969..04f2df6 100644 --- a/Source/ApplicationBase/uPlugins_Intf.pas +++ b/Source/ApplicationBase/uPlugins_Intf.pas @@ -2,18 +2,21 @@ unit uPlugins_Intf; interface +uses FactuGES_Intf; + const MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl'; - MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl'; + MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl'; MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl'; MODULENAME_FACTURAS_CLIENTE = 'FacturasCliente_plugin.bpl'; MODULENAME_RECIBOS_CLIENTE = 'RecibosCliente_plugin.bpl'; - + MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl'; MODULENAME_ALBARANES_PROVEEDOR = 'AlbaranesProveedor_plugin.bpl'; MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl'; - MODULENAME_RECIBOS_PROVEEDOR = 'RecibosProveedor_plugin.bpl'; + MODULENAME_RECIBOS_PROVEEDOR = 'RecibosProveedor_plugin.bpl'; + MODULENAME_PROCESO_PRESUPUESTOS_CLIENTE = 'ProcesoPresupuestosCliente_plugin.bpl'; type IMCPresupuestosCliente = interface(IInterface) @@ -72,6 +75,11 @@ type const ANombreProveedor : String = ''); end; + IMCProcesoPresupuestosCliente = interface(IInterface) + ['{2D83B0AF-4E5C-46A5-A371-5EFE363E4340}'] + procedure VerPresupuestos(const ListaIDPresupuestosCliente : TIntegerArray); + end; + implementation end. diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index bbd92a3..24cf524 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -45,6 +45,8 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components Base.dpk @@ -58,63 +60,63 @@
DataModuleImpresiones
TDataModule + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
DataModuleRegistroCorreos
TDataModule - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index 53f29c7..06ceef2 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -61,6 +61,8 @@ begin LoadModule('InfVentasArticulo_plugin.bpl'); LoadModule('InfMargenArticulo_plugin.bpl'); + LoadModule('ProcesoPresupuestosCliente_plugin.bpl'); + end; end; diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 32ce9d6..e72b16e 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -21,6 +21,7 @@ type function Buscar(const ID: Integer): IBizFacturaProveedor; function BuscarTodos: IBizFacturaProveedor; overload; + function BuscarTodosDeAlbaran: IBizFacturaProveedor; function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload; procedure Ver(AFactura : IBizFacturaProveedor); procedure VerTodos(AFacturas: IBizFacturaProveedor; @@ -108,6 +109,7 @@ type function Buscar(const ID: Integer): IBizFacturaProveedor; function BuscarTodos: IBizFacturaProveedor; overload; function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload; + function BuscarTodosDeAlbaran: IBizFacturaProveedor; // function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor; function Nuevo (withInsert: Boolean = True): IBizFacturaProveedor; procedure Ver(AFactura : IBizFacturaProveedor); @@ -344,6 +346,11 @@ begin end; end; +function TFacturasProveedorController.BuscarTodosDeAlbaran: IBizFacturaProveedor; +begin + Result := FDataModule.GetItemsDeAlbaran; +end; + {REPASARRRRR function TFacturasProveedorController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor; begin diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm index 51d8f77..171f62a 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm @@ -247,6 +247,11 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor item Name = 'NUM_CORREOS' DataType = datSmallInt + end + item + Name = 'ID_ALBARAN' + DataType = datString + Size = 1 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] @@ -468,4 +473,247 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor Left = 208 Top = 160 end + object tbl_FacturasProveedorDeAlbaran: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID' + Required = True + ServerAutoRefresh = True + DictionaryEntry = 'FacturasProveedor_ID' + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'FacturasProveedor_ID_EMPRESA' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 20 + DisplayLabel = 'Referencia' + DictionaryEntry = 'FacturasProveedor_REFERENCIA' + end + item + Name = 'TIPO' + DataType = datString + Size = 1 + DisplayLabel = 'Tipo' + DictionaryEntry = 'FacturasProveedor_TIPO' + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasProveedor_REFERENCIA_PROVEEDOR' + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + DisplayLabel = 'Fecha de las factura' + DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA' + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + DisplayLabel = 'Fecha vto.' + end + item + Name = 'SITUACION' + DataType = datString + Size = 255 + DisplayLabel = 'Situaci'#243'n' + DictionaryEntry = 'FacturasProveedor_SITUACION' + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + DisplayLabel = 'Base imponible' + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_BASE_IMPONIBLE' + end + item + Name = 'DESCUENTO' + DataType = datFloat + DisplayLabel = 'Dto.' + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_DESCUENTO' + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + DisplayLabel = 'Importe dto.' + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_IMPORTE_DESCUENTO' + end + item + Name = 'IVA' + DataType = datFloat + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_IVA' + end + item + Name = 'IMPORTE_IVA' + DataType = datCurrency + DisplayLabel = 'Importe IVA' + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA' + end + item + Name = 'RE' + DataType = datFloat + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_RE' + end + item + Name = 'IMPORTE_RE' + DataType = datCurrency + DisplayLabel = 'Importe RE' + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_IMPORTE_RE' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_IMPORTE_TOTAL' + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + DisplayLabel = 'Observaciones' + DictionaryEntry = 'FacturasProveedor_OBSERVACIONES' + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + DisplayLabel = 'FacturasProveedor_ID_PROVEEDOR' + DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR' + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + DisplayLabel = 'NIF/CIF' + DictionaryEntry = 'FacturasProveedor_NIF_CIF' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 100 + DisplayLabel = 'Cliente' + DictionaryEntry = 'FacturasProveedor_NOMBRE' + end + item + Name = 'CALLE' + DataType = datString + Size = 150 + DisplayLabel = 'Direcci'#243'n' + DictionaryEntry = 'FacturasProveedor_CALLE' + end + item + Name = 'POBLACION' + DataType = datString + Size = 150 + DisplayLabel = 'Poblaci'#243'n' + DictionaryEntry = 'FacturasProveedor_POBLACION' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 30 + DisplayLabel = 'Provincia' + DictionaryEntry = 'FacturasProveedor_PROVINCIA' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + DisplayLabel = 'C'#243'd. postal' + DictionaryEntry = 'FacturasProveedor_CODIGO_POSTAL' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + DictionaryEntry = 'FacturasProveedor_FECHA_ALTA' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + DictionaryEntry = 'FacturasProveedor_FECHA_MODIFICACION' + end + item + Name = 'USUARIO' + DataType = datString + Size = 100 + DictionaryEntry = 'FacturasProveedor_USUARIO' + end + item + Name = 'ID_FORMA_PAGO' + DataType = datInteger + DisplayLabel = 'FacturasProveedor_ID_FORMA_PAGO' + DictionaryEntry = 'FacturasProveedor_ID_FORMA_PAGO' + end + item + Name = 'RECARGO_EQUIVALENCIA' + DataType = datSmallInt + DisplayLabel = #191'Con R.E.?' + DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA' + end + item + Name = 'ID_TIPO_IVA' + DataType = datInteger + DictionaryEntry = 'FacturasProveedor_ID_TIPO_IVA' + end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + DisplayLabel = 'Importe neto' + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_IMPORTE_NETO' + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + DisplayLabel = 'Importe del porte' + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE' + end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + DisplayLabel = 'Datos bancarios' + DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS' + end + item + Name = 'NUM_COPIAS' + DataType = datSmallInt + end + item + Name = 'NUM_CORREOS' + DataType = datSmallInt + end + item + Name = 'ID_ALBARAN' + DataType = datInteger + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_FacturasProveedor + LogicalName = 'FacturasProveedorDeAlbaran' + IndexDefs = <> + Left = 72 + Top = 256 + end + object ds_FacturasProveedorDeAlbaran: TDADataSource + DataSet = tbl_FacturasProveedorDeAlbaran.Dataset + DataTable = tbl_FacturasProveedorDeAlbaran + Left = 72 + Top = 200 + end end diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas index 39af7f8..74a924f 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas @@ -25,6 +25,8 @@ type ds_FacturasProveedor_Pedidos: TDADataSource; tbl_ListaAnosFacturas: TDAMemDataTable; ds_ListaAnosFacturas: TDADataSource; + tbl_FacturasProveedorDeAlbaran: TDAMemDataTable; + ds_FacturasProveedorDeAlbaran: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); private function _GetDetalles : IBizDetallesFacturaProveedor; @@ -32,6 +34,7 @@ type public function GetItems : IBizFacturaProveedor; + function GetItemsDeAlbaran : IBizFacturaProveedor; function GetItem(const ID : Integer) : IBizFacturaProveedor; function NewItem : IBizFacturaProveedor; @@ -187,7 +190,7 @@ begin with TBizFacturaProveedor(AFactura.BusinessEventsObj) do begin Detalles := _GetDetalles; -// Pedidos := _GetPedidos; +// Pedidos := _GetPedidos; end; Result := (AFactura as IBizFacturaProveedor); @@ -197,4 +200,28 @@ begin end; +function TDataModuleFacturasProveedor.GetItemsDeAlbaran: IBizFacturaProveedor; +var + AFactura : TDAMemDataTable; +begin + ShowHourglassCursor; + try + AFactura := CloneDataTable(tbl_FacturasProveedorDeAlbaran); + AFactura.BusinessRulesID := BIZ_CLIENT_FACTURA_PROVEEDOR; + + // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!! + AFactura.FieldByName(fld_FacturasProveedorREFERENCIA).ServerAutoRefresh := TRUE; + + with TBizFacturaProveedor(AFactura.BusinessEventsObj) do + begin + Detalles := _GetDetalles; +// Pedidos := _GetPedidos; + end; + + Result := (AFactura as IBizFacturaProveedor); + finally + HideHourglassCursor; + end; +end; + end. diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj index 351e67c..4993e3c 100644 --- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj +++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj @@ -112,6 +112,24 @@ + + + + + + + + + + + + + + + + + + @@ -148,15 +166,6 @@ - - - - - - - - - @@ -229,15 +238,6 @@ - - - - - - - - - @@ -302,13 +302,13 @@ - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas index bf21f57..28d1860 100644 --- a/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas @@ -11,6 +11,7 @@ type ['{FD0F5B2F-5556-4031-86F0-EFF96805FD66}'] function GetAnosItems : TStringList; function GetItems: IBizFacturaProveedor; + function GetItemsDeAlbaran : IBizFacturaProveedor; function GetItem(const ID : Integer) : IBizFacturaProveedor; function NewItem : IBizFacturaProveedor; end; diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas index ffac30d..b14ea8f 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas @@ -3,22 +3,24 @@ unit schFacturasProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, 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_ListaAnosFacturas = '{6ECEF4E8-C69F-4D94-961D-50303D137874}'; - RID_FacturasProveedor = '{09D8C65C-037A-4CEB-A2FE-D4430741B47E}'; - RID_FacturasProveedor_Detalles = '{10EB7AF4-3969-4A7B-9580-2B16A2C29DC5}'; - RID_FacturasProveedor_Pedidos = '{6109124D-383B-4C1F-A5AA-6AB76FEDDE6D}'; + RID_ListaAnosFacturas = '{39EC9E1B-2911-46D1-ACA9-FA1EF6E51A75}'; + RID_FacturasProveedor = '{694516CA-63EE-41E4-82BB-75782E314DC8}'; + RID_FacturasProveedor_Detalles = '{16B3A1FB-A523-4336-B56A-60823DDE3E24}'; + RID_FacturasProveedor_Pedidos = '{6A7C212A-59AC-4E29-95AD-ACC947BB7D9A}'; + RID_FacturasProveedorDeAlbaran = '{EE202C16-34F4-4B4C-B6BB-EB811D237AB6}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_FacturasProveedor = 'FacturasProveedor'; nme_FacturasProveedor_Detalles = 'FacturasProveedor_Detalles'; nme_FacturasProveedor_Pedidos = 'FacturasProveedor_Pedidos'; + nme_FacturasProveedorDeAlbaran = 'FacturasProveedorDeAlbaran'; { ListaAnosFacturas fields } fld_ListaAnosFacturasANO = 'ANO'; @@ -62,6 +64,7 @@ const fld_FacturasProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS'; fld_FacturasProveedorNUM_COPIAS = 'NUM_COPIAS'; fld_FacturasProveedorNUM_CORREOS = 'NUM_CORREOS'; + fld_FacturasProveedorID_ALBARAN = 'ID_ALBARAN'; { FacturasProveedor field indexes } idx_FacturasProveedorID = 0; @@ -99,6 +102,7 @@ const idx_FacturasProveedorDATOS_BANCARIOS = 32; idx_FacturasProveedorNUM_COPIAS = 33; idx_FacturasProveedorNUM_CORREOS = 34; + idx_FacturasProveedorID_ALBARAN = 35; { FacturasProveedor_Detalles fields } fld_FacturasProveedor_DetallesID = 'ID'; @@ -154,10 +158,86 @@ const idx_FacturasProveedor_PedidosFECHA_PEDIDO = 5; idx_FacturasProveedor_PedidosPROVEEDOR = 6; + { FacturasProveedorDeAlbaran fields } + fld_FacturasProveedorDeAlbaranID = 'ID'; + fld_FacturasProveedorDeAlbaranID_EMPRESA = 'ID_EMPRESA'; + fld_FacturasProveedorDeAlbaranREFERENCIA = 'REFERENCIA'; + fld_FacturasProveedorDeAlbaranTIPO = 'TIPO'; + fld_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; + fld_FacturasProveedorDeAlbaranFECHA_FACTURA = 'FECHA_FACTURA'; + fld_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; + fld_FacturasProveedorDeAlbaranSITUACION = 'SITUACION'; + fld_FacturasProveedorDeAlbaranBASE_IMPONIBLE = 'BASE_IMPONIBLE'; + fld_FacturasProveedorDeAlbaranDESCUENTO = 'DESCUENTO'; + fld_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; + fld_FacturasProveedorDeAlbaranIVA = 'IVA'; + fld_FacturasProveedorDeAlbaranIMPORTE_IVA = 'IMPORTE_IVA'; + fld_FacturasProveedorDeAlbaranRE = 'RE'; + fld_FacturasProveedorDeAlbaranIMPORTE_RE = 'IMPORTE_RE'; + fld_FacturasProveedorDeAlbaranIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_FacturasProveedorDeAlbaranOBSERVACIONES = 'OBSERVACIONES'; + fld_FacturasProveedorDeAlbaranID_PROVEEDOR = 'ID_PROVEEDOR'; + fld_FacturasProveedorDeAlbaranNIF_CIF = 'NIF_CIF'; + fld_FacturasProveedorDeAlbaranNOMBRE = 'NOMBRE'; + fld_FacturasProveedorDeAlbaranCALLE = 'CALLE'; + fld_FacturasProveedorDeAlbaranPOBLACION = 'POBLACION'; + fld_FacturasProveedorDeAlbaranPROVINCIA = 'PROVINCIA'; + fld_FacturasProveedorDeAlbaranCODIGO_POSTAL = 'CODIGO_POSTAL'; + fld_FacturasProveedorDeAlbaranFECHA_ALTA = 'FECHA_ALTA'; + fld_FacturasProveedorDeAlbaranFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + fld_FacturasProveedorDeAlbaranUSUARIO = 'USUARIO'; + fld_FacturasProveedorDeAlbaranID_FORMA_PAGO = 'ID_FORMA_PAGO'; + fld_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA'; + fld_FacturasProveedorDeAlbaranID_TIPO_IVA = 'ID_TIPO_IVA'; + fld_FacturasProveedorDeAlbaranIMPORTE_NETO = 'IMPORTE_NETO'; + fld_FacturasProveedorDeAlbaranIMPORTE_PORTE = 'IMPORTE_PORTE'; + fld_FacturasProveedorDeAlbaranDATOS_BANCARIOS = 'DATOS_BANCARIOS'; + fld_FacturasProveedorDeAlbaranNUM_COPIAS = 'NUM_COPIAS'; + fld_FacturasProveedorDeAlbaranNUM_CORREOS = 'NUM_CORREOS'; + fld_FacturasProveedorDeAlbaranID_ALBARAN = 'ID_ALBARAN'; + + { FacturasProveedorDeAlbaran field indexes } + idx_FacturasProveedorDeAlbaranID = 0; + idx_FacturasProveedorDeAlbaranID_EMPRESA = 1; + idx_FacturasProveedorDeAlbaranREFERENCIA = 2; + idx_FacturasProveedorDeAlbaranTIPO = 3; + idx_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR = 4; + idx_FacturasProveedorDeAlbaranFECHA_FACTURA = 5; + idx_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO = 6; + idx_FacturasProveedorDeAlbaranSITUACION = 7; + idx_FacturasProveedorDeAlbaranBASE_IMPONIBLE = 8; + idx_FacturasProveedorDeAlbaranDESCUENTO = 9; + idx_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO = 10; + idx_FacturasProveedorDeAlbaranIVA = 11; + idx_FacturasProveedorDeAlbaranIMPORTE_IVA = 12; + idx_FacturasProveedorDeAlbaranRE = 13; + idx_FacturasProveedorDeAlbaranIMPORTE_RE = 14; + idx_FacturasProveedorDeAlbaranIMPORTE_TOTAL = 15; + idx_FacturasProveedorDeAlbaranOBSERVACIONES = 16; + idx_FacturasProveedorDeAlbaranID_PROVEEDOR = 17; + idx_FacturasProveedorDeAlbaranNIF_CIF = 18; + idx_FacturasProveedorDeAlbaranNOMBRE = 19; + idx_FacturasProveedorDeAlbaranCALLE = 20; + idx_FacturasProveedorDeAlbaranPOBLACION = 21; + idx_FacturasProveedorDeAlbaranPROVINCIA = 22; + idx_FacturasProveedorDeAlbaranCODIGO_POSTAL = 23; + idx_FacturasProveedorDeAlbaranFECHA_ALTA = 24; + idx_FacturasProveedorDeAlbaranFECHA_MODIFICACION = 25; + idx_FacturasProveedorDeAlbaranUSUARIO = 26; + idx_FacturasProveedorDeAlbaranID_FORMA_PAGO = 27; + idx_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA = 28; + idx_FacturasProveedorDeAlbaranID_TIPO_IVA = 29; + idx_FacturasProveedorDeAlbaranIMPORTE_NETO = 30; + idx_FacturasProveedorDeAlbaranIMPORTE_PORTE = 31; + idx_FacturasProveedorDeAlbaranDATOS_BANCARIOS = 32; + idx_FacturasProveedorDeAlbaranNUM_COPIAS = 33; + idx_FacturasProveedorDeAlbaranNUM_CORREOS = 34; + idx_FacturasProveedorDeAlbaranID_ALBARAN = 35; + type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{D9BE457D-E085-4F34-9617-6B6A448DAB91}'] + ['{83DE52CB-0D48-4AE6-B88A-7162486BBBA8}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -171,7 +251,7 @@ type end; { TListaAnosFacturasDataTableRules } - TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas) + TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas) private protected { Property getters and setters } @@ -192,7 +272,7 @@ type { IFacturasProveedor } IFacturasProveedor = interface(IDAStronglyTypedDataTable) - ['{BCF56881-59B4-4F43-8E66-6C20D549964A}'] + ['{AE58DD6C-AE26-4255-AE43-9D2D7B371A56}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -333,6 +413,10 @@ type procedure SetNUM_CORREOSValue(const aValue: SmallInt); function GetNUM_CORREOSIsNull: Boolean; procedure SetNUM_CORREOSIsNull(const aValue: Boolean); + function GetID_ALBARANValue: String; + procedure SetID_ALBARANValue(const aValue: String); + function GetID_ALBARANIsNull: Boolean; + procedure SetID_ALBARANIsNull(const aValue: Boolean); { Properties } @@ -406,10 +490,12 @@ type property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull; property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue; property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; + property ID_ALBARAN: String read GetID_ALBARANValue write SetID_ALBARANValue; + property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; end; { TFacturasProveedorDataTableRules } - TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor) + TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor) private f_OBSERVACIONES: IROStrings; procedure OBSERVACIONES_OnChange(Sender: TObject); @@ -554,6 +640,10 @@ type procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual; function GetNUM_CORREOSIsNull: Boolean; virtual; procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual; + function GetID_ALBARANValue: String; virtual; + procedure SetID_ALBARANValue(const aValue: String); virtual; + function GetID_ALBARANIsNull: Boolean; virtual; + procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -626,6 +716,8 @@ type property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull; property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue; property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; + property ID_ALBARAN: String read GetID_ALBARANValue write SetID_ALBARANValue; + property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -635,7 +727,7 @@ type { IFacturasProveedor_Detalles } IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{7181975B-A794-4C0B-B0FD-9645CD115FAB}'] + ['{745A7B7E-1729-48B9-BF23-444482E23AB7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -739,7 +831,7 @@ type end; { TFacturasProveedor_DetallesDataTableRules } - TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles) + TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles) private protected { Property getters and setters } @@ -850,7 +942,7 @@ type { IFacturasProveedor_Pedidos } IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable) - ['{C9E12A28-8E4E-4C11-86B6-68E66A864747}'] + ['{3836DA85-3066-4BC8-974B-04C2148275B8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -900,7 +992,7 @@ type end; { TFacturasProveedor_PedidosDataTableRules } - TFacturasProveedor_PedidosDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Pedidos) + TFacturasProveedor_PedidosDataTableRules = class(TDADataTableRules, IFacturasProveedor_Pedidos) private protected { Property getters and setters } @@ -955,6 +1047,461 @@ type end; + { IFacturasProveedorDeAlbaran } + IFacturasProveedorDeAlbaran = interface(IDAStronglyTypedDataTable) + ['{62E0726A-2187-4779-956B-09258612C07A}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetTIPOValue: String; + procedure SetTIPOValue(const aValue: String); + function GetTIPOIsNull: Boolean; + procedure SetTIPOIsNull(const aValue: Boolean); + function GetREFERENCIA_PROVEEDORValue: String; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); + function GetREFERENCIA_PROVEEDORIsNull: Boolean; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); + function GetFECHA_FACTURAValue: DateTime; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); + function GetFECHA_FACTURAIsNull: Boolean; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); + function GetFECHA_VENCIMIENTOValue: DateTime; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); + function GetFECHA_VENCIMIENTOIsNull: Boolean; + procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); + function GetSITUACIONValue: String; + procedure SetSITUACIONValue(const aValue: String); + function GetSITUACIONIsNull: Boolean; + procedure SetSITUACIONIsNull(const aValue: Boolean); + function GetBASE_IMPONIBLEValue: Currency; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); + function GetBASE_IMPONIBLEIsNull: Boolean; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); + function GetDESCUENTOValue: Float; + procedure SetDESCUENTOValue(const aValue: Float); + function GetDESCUENTOIsNull: Boolean; + procedure SetDESCUENTOIsNull(const aValue: Boolean); + function GetIMPORTE_DESCUENTOValue: Currency; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); + function GetIMPORTE_DESCUENTOIsNull: Boolean; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); + function GetIVAValue: Float; + procedure SetIVAValue(const aValue: Float); + function GetIVAIsNull: Boolean; + procedure SetIVAIsNull(const aValue: Boolean); + function GetIMPORTE_IVAValue: Currency; + procedure SetIMPORTE_IVAValue(const aValue: Currency); + function GetIMPORTE_IVAIsNull: Boolean; + procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); + function GetREValue: Float; + procedure SetREValue(const aValue: Float); + function GetREIsNull: Boolean; + procedure SetREIsNull(const aValue: Boolean); + function GetIMPORTE_REValue: Currency; + procedure SetIMPORTE_REValue(const aValue: Currency); + function GetIMPORTE_REIsNull: Boolean; + procedure SetIMPORTE_REIsNull(const aValue: Boolean); + function GetIMPORTE_TOTALValue: Currency; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALIsNull: Boolean; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); + function GetOBSERVACIONESValue: IROStrings; + function GetOBSERVACIONESIsNull: Boolean; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); + function GetID_PROVEEDORValue: Integer; + procedure SetID_PROVEEDORValue(const aValue: Integer); + function GetID_PROVEEDORIsNull: Boolean; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); + function GetNIF_CIFValue: String; + procedure SetNIF_CIFValue(const aValue: String); + function GetNIF_CIFIsNull: Boolean; + procedure SetNIF_CIFIsNull(const aValue: Boolean); + function GetNOMBREValue: String; + procedure SetNOMBREValue(const aValue: String); + function GetNOMBREIsNull: Boolean; + procedure SetNOMBREIsNull(const aValue: Boolean); + function GetCALLEValue: String; + procedure SetCALLEValue(const aValue: String); + function GetCALLEIsNull: Boolean; + procedure SetCALLEIsNull(const aValue: Boolean); + function GetPOBLACIONValue: String; + procedure SetPOBLACIONValue(const aValue: String); + function GetPOBLACIONIsNull: Boolean; + procedure SetPOBLACIONIsNull(const aValue: Boolean); + function GetPROVINCIAValue: String; + procedure SetPROVINCIAValue(const aValue: String); + function GetPROVINCIAIsNull: Boolean; + procedure SetPROVINCIAIsNull(const aValue: Boolean); + function GetCODIGO_POSTALValue: String; + procedure SetCODIGO_POSTALValue(const aValue: String); + function GetCODIGO_POSTALIsNull: Boolean; + procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); + function GetFECHA_ALTAValue: DateTime; + procedure SetFECHA_ALTAValue(const aValue: DateTime); + function GetFECHA_ALTAIsNull: Boolean; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); + function GetFECHA_MODIFICACIONValue: DateTime; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); + function GetFECHA_MODIFICACIONIsNull: Boolean; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + function GetUSUARIOValue: String; + procedure SetUSUARIOValue(const aValue: String); + function GetUSUARIOIsNull: Boolean; + procedure SetUSUARIOIsNull(const aValue: Boolean); + function GetID_FORMA_PAGOValue: Integer; + procedure SetID_FORMA_PAGOValue(const aValue: Integer); + function GetID_FORMA_PAGOIsNull: Boolean; + procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); + function GetRECARGO_EQUIVALENCIAValue: SmallInt; + procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); + function GetRECARGO_EQUIVALENCIAIsNull: Boolean; + procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); + function GetID_TIPO_IVAValue: Integer; + procedure SetID_TIPO_IVAValue(const aValue: Integer); + function GetID_TIPO_IVAIsNull: Boolean; + procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); + function GetIMPORTE_NETOValue: Currency; + procedure SetIMPORTE_NETOValue(const aValue: Currency); + function GetIMPORTE_NETOIsNull: Boolean; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); + function GetIMPORTE_PORTEValue: Currency; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); + function GetIMPORTE_PORTEIsNull: Boolean; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); + function GetDATOS_BANCARIOSValue: String; + procedure SetDATOS_BANCARIOSValue(const aValue: String); + function GetDATOS_BANCARIOSIsNull: Boolean; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); + function GetNUM_COPIASValue: SmallInt; + procedure SetNUM_COPIASValue(const aValue: SmallInt); + function GetNUM_COPIASIsNull: Boolean; + procedure SetNUM_COPIASIsNull(const aValue: Boolean); + function GetNUM_CORREOSValue: SmallInt; + procedure SetNUM_CORREOSValue(const aValue: SmallInt); + function GetNUM_CORREOSIsNull: Boolean; + procedure SetNUM_CORREOSIsNull(const aValue: Boolean); + function GetID_ALBARANValue: Integer; + procedure SetID_ALBARANValue(const aValue: Integer); + function GetID_ALBARANIsNull: Boolean; + procedure SetID_ALBARANIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + 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 TIPO: String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property IVA: Float read GetIVAValue write SetIVAValue; + property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; + property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; + property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; + property RE: Float read GetREValue write SetREValue; + property REIsNull: Boolean read GetREIsNull write SetREIsNull; + property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue; + property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; + property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property CALLE: String read GetCALLEValue write SetCALLEValue; + property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; + property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; + property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; + property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; + property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; + property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; + property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; + property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; + property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; + property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; + property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; + property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; + property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; + property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue; + property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull; + property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue; + property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; + property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue; + property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; + end; + + { TFacturasProveedorDeAlbaranDataTableRules } + TFacturasProveedorDeAlbaranDataTableRules = class(TDADataTableRules, IFacturasProveedorDeAlbaran) + private + f_OBSERVACIONES: IROStrings; + procedure OBSERVACIONES_OnChange(Sender: TObject); + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetTIPOValue: String; virtual; + procedure SetTIPOValue(const aValue: String); virtual; + function GetTIPOIsNull: Boolean; virtual; + procedure SetTIPOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetFECHA_FACTURAIsNull: Boolean; virtual; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; + function GetFECHA_VENCIMIENTOValue: DateTime; virtual; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; + function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; + procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + function GetSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetBASE_IMPONIBLEValue: Currency; virtual; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; + function GetBASE_IMPONIBLEIsNull: Boolean; virtual; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_DESCUENTOValue: Currency; virtual; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIVAValue: Float; virtual; + procedure SetIVAValue(const aValue: Float); virtual; + function GetIVAIsNull: Boolean; virtual; + procedure SetIVAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_IVAValue: Currency; virtual; + procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; + function GetIMPORTE_IVAIsNull: Boolean; virtual; + procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; + function GetREValue: Float; virtual; + procedure SetREValue(const aValue: Float); virtual; + function GetREIsNull: Boolean; virtual; + procedure SetREIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_REValue: Currency; virtual; + procedure SetIMPORTE_REValue(const aValue: Currency); virtual; + function GetIMPORTE_REIsNull: Boolean; virtual; + procedure SetIMPORTE_REIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetOBSERVACIONESValue: IROStrings; virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + function GetID_PROVEEDORIsNull: Boolean; virtual; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNIF_CIFValue: String; virtual; + procedure SetNIF_CIFValue(const aValue: String); virtual; + function GetNIF_CIFIsNull: Boolean; virtual; + procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + function GetNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetCALLEValue: String; virtual; + procedure SetCALLEValue(const aValue: String); virtual; + function GetCALLEIsNull: Boolean; virtual; + procedure SetCALLEIsNull(const aValue: Boolean); virtual; + function GetPOBLACIONValue: String; virtual; + procedure SetPOBLACIONValue(const aValue: String); virtual; + function GetPOBLACIONIsNull: Boolean; virtual; + procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; + function GetPROVINCIAValue: String; virtual; + procedure SetPROVINCIAValue(const aValue: String); virtual; + function GetPROVINCIAIsNull: Boolean; virtual; + procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; + function GetCODIGO_POSTALValue: String; virtual; + procedure SetCODIGO_POSTALValue(const aValue: String); virtual; + function GetCODIGO_POSTALIsNull: Boolean; virtual; + procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetID_FORMA_PAGOValue: Integer; virtual; + procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; + function GetID_FORMA_PAGOIsNull: Boolean; virtual; + procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; + function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual; + procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual; + function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; + procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual; + function GetID_TIPO_IVAValue: Integer; virtual; + procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; + function GetID_TIPO_IVAIsNull: Boolean; virtual; + procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_NETOValue: Currency; virtual; + procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; + function GetIMPORTE_NETOIsNull: Boolean; virtual; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetDATOS_BANCARIOSValue: String; virtual; + procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; + function GetDATOS_BANCARIOSIsNull: Boolean; virtual; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; + function GetNUM_COPIASValue: SmallInt; virtual; + procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual; + function GetNUM_COPIASIsNull: Boolean; virtual; + procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual; + function GetNUM_CORREOSValue: SmallInt; virtual; + procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual; + function GetNUM_CORREOSIsNull: Boolean; virtual; + procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual; + function GetID_ALBARANValue: Integer; virtual; + procedure SetID_ALBARANValue(const aValue: Integer); virtual; + function GetID_ALBARANIsNull: Boolean; virtual; + procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + 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 TIPO: String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property IVA: Float read GetIVAValue write SetIVAValue; + property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; + property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; + property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; + property RE: Float read GetREValue write SetREValue; + property REIsNull: Boolean read GetREIsNull write SetREIsNull; + property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue; + property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; + property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property CALLE: String read GetCALLEValue write SetCALLEValue; + property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; + property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; + property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; + property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; + property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; + property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; + property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; + property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; + property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; + property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; + property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; + property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; + property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; + property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue; + property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull; + property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue; + property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; + property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue; + property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + implementation uses Variants, uROBinaryHelpers; @@ -1745,6 +2292,27 @@ begin DataTable.Fields[idx_FacturasProveedorNUM_CORREOS].AsVariant := Null; end; +function TFacturasProveedorDataTableRules.GetID_ALBARANValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorID_ALBARAN].AsString; +end; + +procedure TFacturasProveedorDataTableRules.SetID_ALBARANValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorID_ALBARAN].AsString := aValue; +end; + +function TFacturasProveedorDataTableRules.GetID_ALBARANIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorID_ALBARAN].IsNull; +end; + +procedure TFacturasProveedorDataTableRules.SetID_ALBARANIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorID_ALBARAN].AsVariant := Null; +end; + { TFacturasProveedor_DetallesDataTableRules } constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); @@ -2253,10 +2821,786 @@ begin end; +{ TFacturasProveedorDeAlbaranDataTableRules } +constructor TFacturasProveedorDeAlbaranDataTableRules.Create(aDataTable: TDADataTable); +var + StrList: TStringList; +begin + inherited; + + StrList := TStringList.Create; + StrList.OnChange := OBSERVACIONES_OnChange; + f_OBSERVACIONES := NewROStrings(StrList,True); +end; + +destructor TFacturasProveedorDeAlbaranDataTableRules.Destroy; +begin + inherited; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.OBSERVACIONES_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_FacturasProveedorDeAlbaranOBSERVACIONES].AsVariant := TStringList(Sender).Text; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID].AsInteger; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranID].AsInteger := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranID].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID_EMPRESA].AsInteger; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranID_EMPRESA].AsInteger := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID_EMPRESA].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranID_EMPRESA].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranREFERENCIA].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranREFERENCIA].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranREFERENCIA].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranREFERENCIA].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetTIPOValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranTIPO].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetTIPOValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranTIPO].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetTIPOIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranTIPO].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetTIPOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranTIPO].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetFECHA_FACTURAValue: DateTime; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_FACTURA].AsDateTime; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_FACTURA].AsDateTime := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetFECHA_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_FACTURA].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_FACTURA].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO].AsDateTime; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO].AsDateTime := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetSITUACIONValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranSITUACION].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetSITUACIONValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranSITUACION].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetSITUACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranSITUACION].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranSITUACION].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetBASE_IMPONIBLEValue: Currency; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranBASE_IMPONIBLE].AsCurrency; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranBASE_IMPONIBLE].AsCurrency := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetBASE_IMPONIBLEIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranBASE_IMPONIBLE].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranBASE_IMPONIBLE].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetDESCUENTOValue: Float; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranDESCUENTO].AsFloat; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetDESCUENTOValue(const aValue: Float); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranDESCUENTO].AsFloat := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetDESCUENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranDESCUENTO].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranDESCUENTO].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_DESCUENTOValue: Currency; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO].AsCurrency; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO].AsCurrency := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIVAValue: Float; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIVA].AsFloat; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIVAValue(const aValue: Float); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranIVA].AsFloat := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIVAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIVA].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIVAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranIVA].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_IVAValue: Currency; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_IVA].AsCurrency; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_IVAValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_IVA].AsCurrency := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_IVAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_IVA].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_IVA].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetREValue: Float; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranRE].AsFloat; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetREValue(const aValue: Float); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranRE].AsFloat := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetREIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranRE].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetREIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranRE].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_REValue: Currency; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_RE].AsCurrency; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_REValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_RE].AsCurrency := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_REIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_RE].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_REIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_RE].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_TOTALValue: Currency; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_TOTAL].AsCurrency; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_TOTAL].AsCurrency := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_TOTALIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_TOTAL].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_TOTAL].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetOBSERVACIONESValue: IROStrings; +begin + result := f_OBSERVACIONES; + result.Text := DataTable.Fields[idx_FacturasProveedorDeAlbaranOBSERVACIONES].AsString; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetOBSERVACIONESIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranOBSERVACIONES].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranOBSERVACIONES].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetID_PROVEEDORValue: Integer; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID_PROVEEDOR].AsInteger; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranID_PROVEEDOR].AsInteger := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetID_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID_PROVEEDOR].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranID_PROVEEDOR].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetNIF_CIFValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranNIF_CIF].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetNIF_CIFValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranNIF_CIF].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetNIF_CIFIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranNIF_CIF].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranNIF_CIF].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetNOMBREValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranNOMBRE].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetNOMBREValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranNOMBRE].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetNOMBREIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranNOMBRE].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranNOMBRE].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetCALLEValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranCALLE].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetCALLEValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranCALLE].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetCALLEIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranCALLE].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetCALLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranCALLE].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetPOBLACIONValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranPOBLACION].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetPOBLACIONValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranPOBLACION].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetPOBLACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranPOBLACION].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranPOBLACION].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetPROVINCIAValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranPROVINCIA].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetPROVINCIAValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranPROVINCIA].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetPROVINCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranPROVINCIA].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranPROVINCIA].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetCODIGO_POSTALValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranCODIGO_POSTAL].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetCODIGO_POSTALValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranCODIGO_POSTAL].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetCODIGO_POSTALIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranCODIGO_POSTAL].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranCODIGO_POSTAL].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetFECHA_ALTAValue: DateTime; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_ALTA].AsDateTime; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_ALTA].AsDateTime := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_ALTA].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_ALTA].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_MODIFICACION].AsDateTime; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_MODIFICACION].AsDateTime := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_MODIFICACION].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranFECHA_MODIFICACION].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranUSUARIO].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranUSUARIO].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranUSUARIO].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranUSUARIO].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetID_FORMA_PAGOValue: Integer; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID_FORMA_PAGO].AsInteger; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranID_FORMA_PAGO].AsInteger := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetID_FORMA_PAGOIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID_FORMA_PAGO].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranID_FORMA_PAGO].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA].AsSmallInt; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA].AsSmallInt := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetID_TIPO_IVAValue: Integer; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID_TIPO_IVA].AsInteger; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranID_TIPO_IVA].AsInteger := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetID_TIPO_IVAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID_TIPO_IVA].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranID_TIPO_IVA].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_NETOValue: Currency; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_NETO].AsCurrency; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_NETO].AsCurrency := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_NETOIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_NETO].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_NETO].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_PORTEValue: Currency; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_PORTE].AsCurrency; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_PORTE].AsCurrency := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetIMPORTE_PORTEIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_PORTE].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranIMPORTE_PORTE].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetDATOS_BANCARIOSValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranDATOS_BANCARIOS].AsString; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetDATOS_BANCARIOSValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranDATOS_BANCARIOS].AsString := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetDATOS_BANCARIOSIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranDATOS_BANCARIOS].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranDATOS_BANCARIOS].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetNUM_COPIASValue: SmallInt; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranNUM_COPIAS].AsSmallInt; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetNUM_COPIASValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranNUM_COPIAS].AsSmallInt := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetNUM_COPIASIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranNUM_COPIAS].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetNUM_COPIASIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranNUM_COPIAS].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetNUM_CORREOSValue: SmallInt; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranNUM_CORREOS].AsSmallInt; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetNUM_CORREOSValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranNUM_CORREOS].AsSmallInt := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetNUM_CORREOSIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranNUM_CORREOS].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetNUM_CORREOSIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranNUM_CORREOS].AsVariant := Null; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetID_ALBARANValue: Integer; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID_ALBARAN].AsInteger; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetID_ALBARANValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasProveedorDeAlbaranID_ALBARAN].AsInteger := aValue; +end; + +function TFacturasProveedorDeAlbaranDataTableRules.GetID_ALBARANIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorDeAlbaranID_ALBARAN].IsNull; +end; + +procedure TFacturasProveedorDeAlbaranDataTableRules.SetID_ALBARANIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorDeAlbaranID_ALBARAN].AsVariant := Null; +end; + + initialization RegisterDataTableRules(RID_ListaAnosFacturas, TListaAnosFacturasDataTableRules); RegisterDataTableRules(RID_FacturasProveedor, TFacturasProveedorDataTableRules); RegisterDataTableRules(RID_FacturasProveedor_Detalles, TFacturasProveedor_DetallesDataTableRules); RegisterDataTableRules(RID_FacturasProveedor_Pedidos, TFacturasProveedor_PedidosDataTableRules); + RegisterDataTableRules(RID_FacturasProveedorDeAlbaran, TFacturasProveedorDeAlbaranDataTableRules); end. diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas index 33ecebc..fd507f0 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas @@ -9,15 +9,16 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturasDelta = '{1EDF69BB-0415-4157-8966-6246DE37E66F}'; - RID_FacturasProveedorDelta = '{E08F279D-285E-400E-9905-0AD5DB882FF3}'; - RID_FacturasProveedor_DetallesDelta = '{AE5F56E7-2966-4E9F-AF31-36FF92C33981}'; - RID_FacturasProveedor_PedidosDelta = '{2BD0AA95-7E24-4D38-B4A3-1F64F82E7D75}'; + RID_ListaAnosFacturasDelta = '{D07287C5-EC7A-4659-B15A-6260065DCEEA}'; + RID_FacturasProveedorDelta = '{745B5F49-A1E1-45BA-B8AE-0847024CEE5A}'; + RID_FacturasProveedor_DetallesDelta = '{12331A1D-2031-4A48-B546-AC5F8B49D841}'; + RID_FacturasProveedor_PedidosDelta = '{8EB730A8-ED88-46F8-96D9-C5DF0A86AFD9}'; + RID_FacturasProveedorDeAlbaranDelta = '{804D2139-7836-4684-8A0B-E0D7E97E7F52}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{1EDF69BB-0415-4157-8966-6246DE37E66F}'] + ['{D07287C5-EC7A-4659-B15A-6260065DCEEA}'] { Property getters and setters } function GetOldANOValue : String; @@ -51,7 +52,7 @@ type { IFacturasProveedorDelta } IFacturasProveedorDelta = interface(IFacturasProveedor) - ['{E08F279D-285E-400E-9905-0AD5DB882FF3}'] + ['{745B5F49-A1E1-45BA-B8AE-0847024CEE5A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -88,6 +89,7 @@ type function GetOldDATOS_BANCARIOSValue : String; function GetOldNUM_COPIASValue : SmallInt; function GetOldNUM_CORREOSValue : SmallInt; + function GetOldID_ALBARANValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -125,6 +127,7 @@ type property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue; property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue; + property OldID_ALBARAN : String read GetOldID_ALBARANValue; end; { TFacturasProveedorBusinessProcessorRules } @@ -343,6 +346,12 @@ type function GetOldNUM_CORREOSIsNull: Boolean; virtual; procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual; procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual; + function GetID_ALBARANValue: String; virtual; + function GetID_ALBARANIsNull: Boolean; virtual; + function GetOldID_ALBARANValue: String; virtual; + function GetOldID_ALBARANIsNull: Boolean; virtual; + procedure SetID_ALBARANValue(const aValue: String); virtual; + procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -485,6 +494,10 @@ type property NUM_CORREOSIsNull : Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue; property OldNUM_CORREOSIsNull : Boolean read GetOldNUM_CORREOSIsNull; + property ID_ALBARAN : String read GetID_ALBARANValue write SetID_ALBARANValue; + property ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; + property OldID_ALBARAN : String read GetOldID_ALBARANValue; + property OldID_ALBARANIsNull : Boolean read GetOldID_ALBARANIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -494,7 +507,7 @@ type { IFacturasProveedor_DetallesDelta } IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) - ['{AE5F56E7-2966-4E9F-AF31-36FF92C33981}'] + ['{12331A1D-2031-4A48-B546-AC5F8B49D841}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -708,7 +721,7 @@ type { IFacturasProveedor_PedidosDelta } IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos) - ['{2BD0AA95-7E24-4D38-B4A3-1F64F82E7D75}'] + ['{8EB730A8-ED88-46F8-96D9-C5DF0A86AFD9}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -812,6 +825,461 @@ type end; + { IFacturasProveedorDeAlbaranDelta } + IFacturasProveedorDeAlbaranDelta = interface(IFacturasProveedorDeAlbaran) + ['{804D2139-7836-4684-8A0B-E0D7E97E7F52}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_EMPRESAValue : Integer; + function GetOldREFERENCIAValue : String; + function GetOldTIPOValue : String; + function GetOldREFERENCIA_PROVEEDORValue : String; + function GetOldFECHA_FACTURAValue : DateTime; + function GetOldFECHA_VENCIMIENTOValue : DateTime; + function GetOldSITUACIONValue : String; + function GetOldBASE_IMPONIBLEValue : Currency; + function GetOldDESCUENTOValue : Float; + function GetOldIMPORTE_DESCUENTOValue : Currency; + function GetOldIVAValue : Float; + function GetOldIMPORTE_IVAValue : Currency; + function GetOldREValue : Float; + function GetOldIMPORTE_REValue : Currency; + function GetOldIMPORTE_TOTALValue : Currency; + function GetOldOBSERVACIONESValue : IROStrings; + function GetOldID_PROVEEDORValue : Integer; + function GetOldNIF_CIFValue : String; + function GetOldNOMBREValue : String; + function GetOldCALLEValue : String; + function GetOldPOBLACIONValue : String; + function GetOldPROVINCIAValue : String; + function GetOldCODIGO_POSTALValue : String; + function GetOldFECHA_ALTAValue : DateTime; + function GetOldFECHA_MODIFICACIONValue : DateTime; + function GetOldUSUARIOValue : String; + function GetOldID_FORMA_PAGOValue : Integer; + function GetOldRECARGO_EQUIVALENCIAValue : SmallInt; + function GetOldID_TIPO_IVAValue : Integer; + function GetOldIMPORTE_NETOValue : Currency; + function GetOldIMPORTE_PORTEValue : Currency; + function GetOldDATOS_BANCARIOSValue : String; + function GetOldNUM_COPIASValue : SmallInt; + function GetOldNUM_CORREOSValue : SmallInt; + function GetOldID_ALBARANValue : Integer; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldTIPO : String read GetOldTIPOValue; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property OldIVA : Float read GetOldIVAValue; + property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; + property OldRE : Float read GetOldREValue; + property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; + property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; + property OldNIF_CIF : String read GetOldNIF_CIFValue; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldCALLE : String read GetOldCALLEValue; + property OldPOBLACION : String read GetOldPOBLACIONValue; + property OldPROVINCIA : String read GetOldPROVINCIAValue; + property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; + property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue; + property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; + property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; + property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue; + property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue; + property OldID_ALBARAN : Integer read GetOldID_ALBARANValue; + end; + + { TFacturasProveedorDeAlbaranBusinessProcessorRules } + TFacturasProveedorDeAlbaranBusinessProcessorRules = class(TDABusinessProcessorRules, IFacturasProveedorDeAlbaran, IFacturasProveedorDeAlbaranDelta) + private + f_OBSERVACIONES: IROStrings; + procedure OBSERVACIONES_OnChange(Sender: TObject); + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + function GetOldID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetTIPOValue: String; virtual; + function GetTIPOIsNull: Boolean; virtual; + function GetOldTIPOValue: String; virtual; + function GetOldTIPOIsNull: Boolean; virtual; + procedure SetTIPOValue(const aValue: String); virtual; + procedure SetTIPOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + function GetOldREFERENCIA_PROVEEDORValue: String; virtual; + function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + function GetFECHA_FACTURAIsNull: Boolean; virtual; + function GetOldFECHA_FACTURAValue: DateTime; virtual; + function GetOldFECHA_FACTURAIsNull: Boolean; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; + function GetFECHA_VENCIMIENTOValue: DateTime; virtual; + function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; + function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; + function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; + procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + function GetSITUACIONIsNull: Boolean; virtual; + function GetOldSITUACIONValue: String; virtual; + function GetOldSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetBASE_IMPONIBLEValue: Currency; virtual; + function GetBASE_IMPONIBLEIsNull: Boolean; virtual; + function GetOldBASE_IMPONIBLEValue: Currency; virtual; + function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + function GetOldDESCUENTOValue: Float; virtual; + function GetOldDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_DESCUENTOValue: Currency; virtual; + function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; + function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; + function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIVAValue: Float; virtual; + function GetIVAIsNull: Boolean; virtual; + function GetOldIVAValue: Float; virtual; + function GetOldIVAIsNull: Boolean; virtual; + procedure SetIVAValue(const aValue: Float); virtual; + procedure SetIVAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_IVAValue: Currency; virtual; + function GetIMPORTE_IVAIsNull: Boolean; virtual; + function GetOldIMPORTE_IVAValue: Currency; virtual; + function GetOldIMPORTE_IVAIsNull: Boolean; virtual; + procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; + procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; + function GetREValue: Float; virtual; + function GetREIsNull: Boolean; virtual; + function GetOldREValue: Float; virtual; + function GetOldREIsNull: Boolean; virtual; + procedure SetREValue(const aValue: Float); virtual; + procedure SetREIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_REValue: Currency; virtual; + function GetIMPORTE_REIsNull: Boolean; virtual; + function GetOldIMPORTE_REValue: Currency; virtual; + function GetOldIMPORTE_REIsNull: Boolean; virtual; + procedure SetIMPORTE_REValue(const aValue: Currency); virtual; + procedure SetIMPORTE_REIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + function GetOldIMPORTE_TOTALValue: Currency; virtual; + function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetOBSERVACIONESValue: IROStrings; virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + function GetOldOBSERVACIONESValue: IROStrings; virtual; + function GetOldOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + function GetID_PROVEEDORIsNull: Boolean; virtual; + function GetOldID_PROVEEDORValue: Integer; virtual; + function GetOldID_PROVEEDORIsNull: Boolean; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNIF_CIFValue: String; virtual; + function GetNIF_CIFIsNull: Boolean; virtual; + function GetOldNIF_CIFValue: String; virtual; + function GetOldNIF_CIFIsNull: Boolean; virtual; + procedure SetNIF_CIFValue(const aValue: String); virtual; + procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + function GetNOMBREIsNull: Boolean; virtual; + function GetOldNOMBREValue: String; virtual; + function GetOldNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetCALLEValue: String; virtual; + function GetCALLEIsNull: Boolean; virtual; + function GetOldCALLEValue: String; virtual; + function GetOldCALLEIsNull: Boolean; virtual; + procedure SetCALLEValue(const aValue: String); virtual; + procedure SetCALLEIsNull(const aValue: Boolean); virtual; + function GetPOBLACIONValue: String; virtual; + function GetPOBLACIONIsNull: Boolean; virtual; + function GetOldPOBLACIONValue: String; virtual; + function GetOldPOBLACIONIsNull: Boolean; virtual; + procedure SetPOBLACIONValue(const aValue: String); virtual; + procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; + function GetPROVINCIAValue: String; virtual; + function GetPROVINCIAIsNull: Boolean; virtual; + function GetOldPROVINCIAValue: String; virtual; + function GetOldPROVINCIAIsNull: Boolean; virtual; + procedure SetPROVINCIAValue(const aValue: String); virtual; + procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; + function GetCODIGO_POSTALValue: String; virtual; + function GetCODIGO_POSTALIsNull: Boolean; virtual; + function GetOldCODIGO_POSTALValue: String; virtual; + function GetOldCODIGO_POSTALIsNull: Boolean; virtual; + procedure SetCODIGO_POSTALValue(const aValue: String); virtual; + procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + function GetOldFECHA_ALTAValue: DateTime; virtual; + function GetOldFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; + function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + function GetUSUARIOIsNull: Boolean; virtual; + function GetOldUSUARIOValue: String; virtual; + function GetOldUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetID_FORMA_PAGOValue: Integer; virtual; + function GetID_FORMA_PAGOIsNull: Boolean; virtual; + function GetOldID_FORMA_PAGOValue: Integer; virtual; + function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; + procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; + procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; + function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual; + function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; + function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual; + function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; + procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual; + procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual; + function GetID_TIPO_IVAValue: Integer; virtual; + function GetID_TIPO_IVAIsNull: Boolean; virtual; + function GetOldID_TIPO_IVAValue: Integer; virtual; + function GetOldID_TIPO_IVAIsNull: Boolean; virtual; + procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; + procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_NETOValue: Currency; virtual; + function GetIMPORTE_NETOIsNull: Boolean; virtual; + function GetOldIMPORTE_NETOValue: Currency; virtual; + function GetOldIMPORTE_NETOIsNull: Boolean; virtual; + procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + function GetOldIMPORTE_PORTEValue: Currency; virtual; + function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetDATOS_BANCARIOSValue: String; virtual; + function GetDATOS_BANCARIOSIsNull: Boolean; virtual; + function GetOldDATOS_BANCARIOSValue: String; virtual; + function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual; + procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; + procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; + function GetNUM_COPIASValue: SmallInt; virtual; + function GetNUM_COPIASIsNull: Boolean; virtual; + function GetOldNUM_COPIASValue: SmallInt; virtual; + function GetOldNUM_COPIASIsNull: Boolean; virtual; + procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual; + procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual; + function GetNUM_CORREOSValue: SmallInt; virtual; + function GetNUM_CORREOSIsNull: Boolean; virtual; + function GetOldNUM_CORREOSValue: SmallInt; virtual; + function GetOldNUM_CORREOSIsNull: Boolean; virtual; + procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual; + procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual; + function GetID_ALBARANValue: Integer; virtual; + function GetID_ALBARANIsNull: Boolean; virtual; + function GetOldID_ALBARANValue: Integer; virtual; + function GetOldID_ALBARANIsNull: Boolean; virtual; + procedure SetID_ALBARANValue(const aValue: Integer); virtual; + procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property TIPO : String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull; + property OldTIPO : String read GetOldTIPOValue; + property OldTIPOIsNull : Boolean read GetOldTIPOIsNull; + property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; + property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; + property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull; + property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; + property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull; + property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; + property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; + property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull; + property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; + property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull; + property IVA : Float read GetIVAValue write SetIVAValue; + property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull; + property OldIVA : Float read GetOldIVAValue; + property OldIVAIsNull : Boolean read GetOldIVAIsNull; + property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; + property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; + property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; + property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull; + property RE : Float read GetREValue write SetREValue; + property REIsNull : Boolean read GetREIsNull write SetREIsNull; + property OldRE : Float read GetOldREValue; + property OldREIsNull : Boolean read GetOldREIsNull; + property IMPORTE_RE : Currency read GetIMPORTE_REValue write SetIMPORTE_REValue; + property IMPORTE_REIsNull : Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull; + property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue; + property OldIMPORTE_REIsNull : Boolean read GetOldIMPORTE_REIsNull; + property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; + property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue; + property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; + property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull; + property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; + property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; + property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; + property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; + property OldNIF_CIF : String read GetOldNIF_CIFValue; + property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; + property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; + property CALLE : String read GetCALLEValue write SetCALLEValue; + property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; + property OldCALLE : String read GetOldCALLEValue; + property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; + property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; + property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; + property OldPOBLACION : String read GetOldPOBLACIONValue; + property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; + property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; + property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; + property OldPROVINCIA : String read GetOldPROVINCIAValue; + property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; + property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; + property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; + property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; + property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; + property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; + property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; + property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; + property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; + property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; + property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; + property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; + property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; + property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; + property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue; + property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull; + property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; + property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; + property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; + property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull; + property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; + property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull; + property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; + property DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; + property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; + property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; + property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull; + property NUM_COPIAS : SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue; + property NUM_COPIASIsNull : Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull; + property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue; + property OldNUM_COPIASIsNull : Boolean read GetOldNUM_COPIASIsNull; + property NUM_CORREOS : SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue; + property NUM_CORREOSIsNull : Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; + property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue; + property OldNUM_CORREOSIsNull : Boolean read GetOldNUM_CORREOSIsNull; + property ID_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue; + property ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; + property OldID_ALBARAN : Integer read GetOldID_ALBARANValue; + property OldID_ALBARANIsNull : Boolean read GetOldID_ALBARANIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + implementation uses @@ -1964,6 +2432,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNUM_CORREOS] := Null; end; +function TFacturasProveedorBusinessProcessorRules.GetID_ALBARANValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_ALBARAN]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetID_ALBARANIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_ALBARAN]); +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldID_ALBARANValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_ALBARAN]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldID_ALBARANIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_ALBARAN]); +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetID_ALBARANValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_ALBARAN] := aValue; +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetID_ALBARANIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_ALBARAN] := Null; +end; + { TFacturasProveedor_DetallesBusinessProcessorRules } constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -2702,10 +3201,1147 @@ begin end; +{ TFacturasProveedorDeAlbaranBusinessProcessorRules } +constructor TFacturasProveedorDeAlbaranBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +var + StrList: TStringList; +begin + inherited; + + StrList := TStringList.Create; + StrList.OnChange := OBSERVACIONES_OnChange; + f_OBSERVACIONES := NewROStrings(StrList,True); +end; + +destructor TFacturasProveedorDeAlbaranBusinessProcessorRules.Destroy; +begin + inherited; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranOBSERVACIONES] := TStringList(Sender).Text; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_EMPRESA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_EMPRESA]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID_EMPRESA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID_EMPRESA]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_EMPRESA] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_EMPRESA] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranTIPO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetTIPOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranTIPO]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranTIPO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldTIPOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranTIPO]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetTIPOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranTIPO] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranTIPO] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranREFERENCIA_PROVEEDOR] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_FACTURA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_FACTURA]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranFECHA_FACTURA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranFECHA_FACTURA]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_FACTURA] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_FACTURA] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_VENCIMIENTO] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranSITUACION]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranSITUACION]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranSITUACION]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranSITUACION]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetSITUACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranSITUACION] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranSITUACION] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranBASE_IMPONIBLE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranBASE_IMPONIBLE]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranBASE_IMPONIBLE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranBASE_IMPONIBLE]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranBASE_IMPONIBLE] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranBASE_IMPONIBLE] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetDESCUENTOValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranDESCUENTO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranDESCUENTO]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldDESCUENTOValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranDESCUENTO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranDESCUENTO]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranDESCUENTO] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranDESCUENTO] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_DESCUENTO] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIVAValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIVA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIVA]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIVAValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIVA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIVA]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIVAValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIVA] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIVA] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_IVAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_IVA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_IVA]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_IVA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_IVA]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_IVA] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_IVA] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetREValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranRE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranRE]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldREValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranRE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranRE]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetREValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranRE] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranRE] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_REValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_RE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_REIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_RE]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_REValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_RE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_REIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_RE]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_REValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_RE] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_REIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_RE] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_TOTAL]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_TOTAL]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_TOTAL]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_TOTAL]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_TOTAL] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_TOTAL] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings; +begin + result := f_OBSERVACIONES; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranOBSERVACIONES]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranOBSERVACIONES]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranOBSERVACIONES]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranOBSERVACIONES]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranOBSERVACIONES] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetID_PROVEEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_PROVEEDOR]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_PROVEEDOR]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID_PROVEEDOR]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID_PROVEEDOR]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_PROVEEDOR] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_PROVEEDOR] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetNIF_CIFValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNIF_CIF]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNIF_CIF]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldNIF_CIFValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranNIF_CIF]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranNIF_CIF]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNIF_CIF] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNIF_CIF] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNOMBRE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNOMBRE]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranNOMBRE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranNOMBRE]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetNOMBREValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNOMBRE] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNOMBRE] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetCALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranCALLE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetCALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranCALLE]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldCALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranCALLE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranCALLE]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetCALLEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranCALLE] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranCALLE] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetPOBLACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranPOBLACION]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranPOBLACION]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldPOBLACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranPOBLACION]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranPOBLACION]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranPOBLACION] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranPOBLACION] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetPROVINCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranPROVINCIA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranPROVINCIA]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldPROVINCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranPROVINCIA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranPROVINCIA]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranPROVINCIA] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranPROVINCIA] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetCODIGO_POSTALValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranCODIGO_POSTAL]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranCODIGO_POSTAL]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranCODIGO_POSTAL]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranCODIGO_POSTAL]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranCODIGO_POSTAL] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranCODIGO_POSTAL] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_ALTA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_ALTA]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranFECHA_ALTA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranFECHA_ALTA]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_ALTA] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_ALTA] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_MODIFICACION]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_MODIFICACION]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranFECHA_MODIFICACION]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranFECHA_MODIFICACION]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_MODIFICACION] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranFECHA_MODIFICACION] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranUSUARIO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranUSUARIO]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranUSUARIO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranUSUARIO]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetUSUARIOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranUSUARIO] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranUSUARIO] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_FORMA_PAGO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_FORMA_PAGO]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID_FORMA_PAGO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID_FORMA_PAGO]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_FORMA_PAGO] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_FORMA_PAGO] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranRECARGO_EQUIVALENCIA] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetID_TIPO_IVAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_TIPO_IVA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_TIPO_IVA]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID_TIPO_IVA]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID_TIPO_IVA]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_TIPO_IVA] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_TIPO_IVA] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_NETOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_NETO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_NETO]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_NETO]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_NETO]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_NETO] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_NETO] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_PORTE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_PORTE]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_PORTE]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_PORTE]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_PORTE] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranIMPORTE_PORTE] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetDATOS_BANCARIOSValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranDATOS_BANCARIOS]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranDATOS_BANCARIOS]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranDATOS_BANCARIOS]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranDATOS_BANCARIOS]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranDATOS_BANCARIOS] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranDATOS_BANCARIOS] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetNUM_COPIASValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNUM_COPIAS]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetNUM_COPIASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNUM_COPIAS]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldNUM_COPIASValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranNUM_COPIAS]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldNUM_COPIASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranNUM_COPIAS]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetNUM_COPIASValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNUM_COPIAS] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetNUM_COPIASIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNUM_COPIAS] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetNUM_CORREOSValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNUM_CORREOS]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetNUM_CORREOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNUM_CORREOS]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldNUM_CORREOSValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranNUM_CORREOS]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldNUM_CORREOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranNUM_CORREOS]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNUM_CORREOS] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetNUM_CORREOSIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranNUM_CORREOS] := Null; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetID_ALBARANValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_ALBARAN]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetID_ALBARANIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_ALBARAN]); +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldID_ALBARANValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID_ALBARAN]; +end; + +function TFacturasProveedorDeAlbaranBusinessProcessorRules.GetOldID_ALBARANIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDeAlbaranID_ALBARAN]); +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetID_ALBARANValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_ALBARAN] := aValue; +end; + +procedure TFacturasProveedorDeAlbaranBusinessProcessorRules.SetID_ALBARANIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDeAlbaranID_ALBARAN] := Null; +end; + + initialization RegisterBusinessProcessorRules(RID_ListaAnosFacturasDelta, TListaAnosFacturasBusinessProcessorRules); RegisterBusinessProcessorRules(RID_FacturasProveedorDelta, TFacturasProveedorBusinessProcessorRules); RegisterBusinessProcessorRules(RID_FacturasProveedor_DetallesDelta, TFacturasProveedor_DetallesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_FacturasProveedor_PedidosDelta, TFacturasProveedor_PedidosBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_FacturasProveedorDeAlbaranDelta, TFacturasProveedorDeAlbaranBusinessProcessorRules); end. diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm index ace0cc7..377f85f 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm @@ -187,6 +187,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor item DatasetField = 'NUM_CORREOS' TableField = 'NUM_CORREOS' + end + item + DatasetField = 'ID_ALBARAN' + TableField = 'ID_ALBARAN' end> end> Name = 'FacturasProveedor' @@ -378,6 +382,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor item Name = 'NUM_CORREOS' DataType = datSmallInt + end + item + Name = 'ID_ALBARAN' + DataType = datString + Size = 1 end> end item @@ -656,6 +665,354 @@ object srvFacturasProveedor: TsrvFacturasProveedor Size = 255 DictionaryEntry = 'FacturasProveedor_Pedidos_PROVEEDOR' end> + end + item + Params = <> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_FACTURAS_PROV_DE_ALBARANES' + StatementType = stAutoSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'TIPO' + TableField = 'TIPO' + end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'FECHA_FACTURA' + TableField = 'FECHA_FACTURA' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end + item + DatasetField = 'BASE_IMPONIBLE' + TableField = 'BASE_IMPONIBLE' + end + item + DatasetField = 'DESCUENTO' + TableField = 'DESCUENTO' + end + item + DatasetField = 'IMPORTE_DESCUENTO' + TableField = 'IMPORTE_DESCUENTO' + end + item + DatasetField = 'IVA' + TableField = 'IVA' + end + item + DatasetField = 'IMPORTE_IVA' + TableField = 'IMPORTE_IVA' + end + item + DatasetField = 'RE' + TableField = 'RE' + end + item + DatasetField = 'IMPORTE_RE' + TableField = 'IMPORTE_RE' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'OBSERVACIONES' + TableField = 'OBSERVACIONES' + end + item + DatasetField = 'ID_PROVEEDOR' + TableField = 'ID_PROVEEDOR' + end + item + DatasetField = 'NIF_CIF' + TableField = 'NIF_CIF' + end + item + DatasetField = 'NOMBRE' + TableField = 'NOMBRE' + end + item + DatasetField = 'CALLE' + TableField = 'CALLE' + end + item + DatasetField = 'POBLACION' + TableField = 'POBLACION' + end + item + DatasetField = 'PROVINCIA' + TableField = 'PROVINCIA' + end + item + DatasetField = 'CODIGO_POSTAL' + TableField = 'CODIGO_POSTAL' + end + item + DatasetField = 'FECHA_ALTA' + TableField = 'FECHA_ALTA' + end + item + DatasetField = 'FECHA_MODIFICACION' + TableField = 'FECHA_MODIFICACION' + end + item + DatasetField = 'USUARIO' + TableField = 'USUARIO' + end + item + DatasetField = 'ID_FORMA_PAGO' + TableField = 'ID_FORMA_PAGO' + end + item + DatasetField = 'RECARGO_EQUIVALENCIA' + TableField = 'RECARGO_EQUIVALENCIA' + end + item + DatasetField = 'ID_TIPO_IVA' + TableField = 'ID_TIPO_IVA' + end + item + DatasetField = 'IMPORTE_NETO' + TableField = 'IMPORTE_NETO' + end + item + DatasetField = 'IMPORTE_PORTE' + TableField = 'IMPORTE_PORTE' + end + item + DatasetField = 'DATOS_BANCARIOS' + TableField = 'DATOS_BANCARIOS' + end + item + DatasetField = 'FECHA_VENCIMIENTO' + TableField = 'FECHA_VENCIMIENTO' + end + item + DatasetField = 'NUM_COPIAS' + TableField = 'NUM_COPIAS' + end + item + DatasetField = 'NUM_CORREOS' + TableField = 'NUM_CORREOS' + end + item + DatasetField = 'ID_ALBARAN' + TableField = 'ID_ALBARAN' + end> + end> + Name = 'FacturasProveedorDeAlbaran' + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID' + ServerAutoRefresh = True + DictionaryEntry = 'FacturasProveedor_ID' + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'FacturasProveedor_ID_EMPRESA' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 20 + DictionaryEntry = 'FacturasProveedor_REFERENCIA' + end + item + Name = 'TIPO' + DataType = datString + Size = 1 + DictionaryEntry = 'FacturasProveedor_TIPO' + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasProveedor_REFERENCIA_PROVEEDOR' + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA' + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + DisplayLabel = 'Fecha vto.' + end + item + Name = 'SITUACION' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasProveedor_SITUACION' + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + DictionaryEntry = 'FacturasProveedor_BASE_IMPONIBLE' + end + item + Name = 'DESCUENTO' + DataType = datFloat + DictionaryEntry = 'FacturasProveedor_DESCUENTO' + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + DictionaryEntry = 'FacturasProveedor_IMPORTE_DESCUENTO' + end + item + Name = 'IVA' + DataType = datFloat + DictionaryEntry = 'FacturasProveedor_IVA' + end + item + Name = 'IMPORTE_IVA' + DataType = datCurrency + DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA' + end + item + Name = 'RE' + DataType = datFloat + DictionaryEntry = 'FacturasProveedor_RE' + end + item + Name = 'IMPORTE_RE' + DataType = datCurrency + DictionaryEntry = 'FacturasProveedor_IMPORTE_RE' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + DictionaryEntry = 'FacturasProveedor_IMPORTE_TOTAL' + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + DictionaryEntry = 'FacturasProveedor_OBSERVACIONES' + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR' + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + DictionaryEntry = 'FacturasProveedor_NIF_CIF' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 100 + DictionaryEntry = 'FacturasProveedor_NOMBRE' + end + item + Name = 'CALLE' + DataType = datString + Size = 150 + DictionaryEntry = 'FacturasProveedor_CALLE' + end + item + Name = 'POBLACION' + DataType = datString + Size = 150 + DictionaryEntry = 'FacturasProveedor_POBLACION' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 30 + DictionaryEntry = 'FacturasProveedor_PROVINCIA' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + DictionaryEntry = 'FacturasProveedor_CODIGO_POSTAL' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + DictionaryEntry = 'FacturasProveedor_FECHA_ALTA' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + DictionaryEntry = 'FacturasProveedor_FECHA_MODIFICACION' + end + item + Name = 'USUARIO' + DataType = datString + Size = 100 + DictionaryEntry = 'FacturasProveedor_USUARIO' + end + item + Name = 'ID_FORMA_PAGO' + DataType = datInteger + DictionaryEntry = 'FacturasProveedor_ID_FORMA_PAGO' + end + item + Name = 'RECARGO_EQUIVALENCIA' + DataType = datSmallInt + DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA' + end + item + Name = 'ID_TIPO_IVA' + DataType = datInteger + DictionaryEntry = 'FacturasProveedor_ID_TIPO_IVA' + end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + DictionaryEntry = 'FacturasProveedor_IMPORTE_NETO' + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE' + end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 + DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS' + end + item + Name = 'NUM_COPIAS' + DataType = datSmallInt + end + item + Name = 'NUM_CORREOS' + DataType = datSmallInt + end + item + Name = 'ID_ALBARAN' + DataType = datInteger + end> end> JoinDataTables = <> UnionDataTables = <> @@ -1269,7 +1626,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor RelationShips = < item Name = 'FK_FacturasProveedor_Pedidos' - MasterDatasetName = 'FacturasProveedor' + MasterDatasetName = 'FacturasProveedorDeAlbaran' MasterFields = 'ID' DetailDatasetName = 'FacturasProveedor_Pedidos' DetailFields = 'ID_FACTURA' @@ -1277,7 +1634,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Name = 'FK_FacturasProveedor_Detalles' - MasterDatasetName = 'FacturasProveedor' + MasterDatasetName = 'FacturasProveedorDeAlbaran' MasterFields = 'ID' DetailDatasetName = 'FacturasProveedor_Detalles' DetailFields = 'ID_FACTURA' diff --git a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc index 09ddf93..324af0b 100644 --- a/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc +++ b/Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */ -/* c:\temp\dtf65E.tmp */ +/* c:\temp\dtfAF1.tmp */ diff --git a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc index 1cd4310..5bebaac 100644 --- a/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc +++ b/Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */ -/* c:\temp\dtf65C.tmp */ +/* c:\temp\dtfAEF.tmp */ diff --git a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc index 5547d9e..6eec0af 100644 --- a/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc +++ b/Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc @@ -16,4 +16,4 @@ END /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */ -/* c:\temp\dtf662.tmp */ +/* c:\temp\dtfAF5.tmp */ diff --git a/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc b/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc index 7c4fda0..d3e5ed4 100644 --- a/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc +++ b/Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */ -/* c:\temp\dtf654.tmp */ +/* c:\temp\dtfAE7.tmp */ diff --git a/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc b/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc index 2abd8b1..bdbb10f 100644 --- a/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc +++ b/Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */ -/* c:\temp\dtf652.tmp */ +/* c:\temp\dtfAE5.tmp */ diff --git a/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc b/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc index 5bad9f5..1bb9721 100644 --- a/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc +++ b/Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc @@ -19,4 +19,4 @@ END /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */ -/* c:\temp\dtf658.tmp */ +/* c:\temp\dtfAEB.tmp */ diff --git a/Source/Modulos/Informes base/Controller/InformesBase_controller.drc b/Source/Modulos/Informes base/Controller/InformesBase_controller.drc index 76ea459..2cc0e91 100644 --- a/Source/Modulos/Informes base/Controller/InformesBase_controller.drc +++ b/Source/Modulos/Informes base/Controller/InformesBase_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */ -/* c:\temp\dtf648.tmp */ +/* c:\temp\dtfADB.tmp */ diff --git a/Source/Modulos/Informes base/Data/Informes_data.drc b/Source/Modulos/Informes base/Data/Informes_data.drc index 9b09240..79f0d88 100644 --- a/Source/Modulos/Informes base/Data/Informes_data.drc +++ b/Source/Modulos/Informes base/Data/Informes_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo\Source\Modulos\Informes base\Data\uDataModuleInformes.dfm */ /* C:\Codigo\Source\Modulos\Informes base\Data\Informes_data.res */ -/* c:\temp\dtf642.tmp */ +/* c:\temp\dtfAD5.tmp */ diff --git a/Source/Modulos/Informes base/Model/Informes_model.drc b/Source/Modulos/Informes base/Model/Informes_model.drc index 8eee138..d818340 100644 --- a/Source/Modulos/Informes base/Model/Informes_model.drc +++ b/Source/Modulos/Informes base/Model/Informes_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */ -/* c:\temp\dtf640.tmp */ +/* c:\temp\dtfAD3.tmp */ diff --git a/Source/Modulos/Informes base/Views/Informes_view.drc b/Source/Modulos/Informes base/Views/Informes_view.drc index c043723..002def7 100644 --- a/Source/Modulos/Informes base/Views/Informes_view.drc +++ b/Source/Modulos/Informes base/Views/Informes_view.drc @@ -15,4 +15,4 @@ END /* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */ /* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */ /* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */ -/* c:\temp\dtf64C.tmp */ +/* c:\temp\dtfADF.tmp */ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas index c1acc56..f95b136 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas @@ -4,7 +4,7 @@ interface uses - Classes, SysUtils, uDADataTable, + Classes, SysUtils, uDADataTable, uDAMemDataTable, FactuGES_Intf, uControllerBase, uIDataModulePedidosProveedor, uProveedoresController, uDetallesPedidoProveedorController, uBizPedidosProveedor; @@ -21,6 +21,7 @@ type function Buscar(const ID: Integer): IBizPedidoProveedor; function BuscarTodos: IBizPedidoProveedor; overload; + function BuscarPedidosProvRelacionados(const ListaIDPedidosCliente : TIntegerArray): TDAMemDataTable; function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload; function BuscarPendientesRecepcion: IBizPedidoProveedor; function BuscarSinFacturar : IBizPedidoProveedor; @@ -111,7 +112,8 @@ type procedure Anadir(APedido : IBizPedidoProveedor); function Buscar(const ID: Integer): IBizPedidoProveedor; function BuscarTodos: IBizPedidoProveedor; overload; - function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload; + function BuscarPedidosProvRelacionados(const ListaIDPedidosCliente : TIntegerArray): TDAMemDataTable; + function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload; function BuscarPendientesRecepcion: IBizPedidoProveedor; function BuscarSinFacturar : IBizPedidoProveedor; function Nuevo : IBizPedidoProveedor; @@ -217,6 +219,15 @@ begin FiltrarEmpresa(Result); end; +function TPedidosProveedorController.BuscarPedidosProvRelacionados(const ListaIDPedidosCliente: TIntegerArray): TDAMemDataTable; +var + i: Integer; + Condicion: TDAWhereExpression; + +begin + Result := FDataModule.GetItemsBase; +end; + function TPedidosProveedorController.BuscarPendientesRecepcion: IBizPedidoProveedor; var Condicion: TDAWhereExpression; diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas index faad2ec..17b336f 100644 --- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas @@ -37,6 +37,7 @@ type public function GetItems : IBizPedidoProveedor; virtual; + function GetItemsBase : TDAMemDataTable; virtual; function GetItem(const ID : Integer) : IBizPedidoProveedor; function NewItem : IBizPedidoProveedor; function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend; @@ -202,6 +203,11 @@ begin end; function TDataModulePedidosProveedor.GetItems: IBizPedidoProveedor; +begin + Result := (GetItemsBase as IBizPedidoProveedor); +end; + +function TDataModulePedidosProveedor.GetItemsBase: TDAMemDataTable; var APedido : TDAMemDataTable; begin @@ -209,14 +215,14 @@ begin try APedido := CloneDataTable(tbl_PedidosProveedor); AsignarClaseNegocio(APedido); - + // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!! APedido.FieldByName(fld_PedidosProveedorREFERENCIA).ServerAutoRefresh := TRUE; with TBizPedidoProveedor(APedido.BusinessEventsObj) do Detalles := _GetDetalles; - Result := (APedido as IBizPedidoProveedor); + Result := APedido; finally HideHourglassCursor; end; diff --git a/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas index 7939fa4..658d2cd 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas @@ -3,13 +3,14 @@ unit uIDataModulePedidosProveedor; interface uses - Classes, uBizPedidosProveedor, uBizDetallesPedidoProveedor; + Classes, uBizPedidosProveedor, uBizDetallesPedidoProveedor, uDAMemDataTable; type IDataModulePedidosProveedor = interface ['{280AA760-26CC-4962-AB08-6C473199DF86}'] function GetAnosItems : TStringList; function GetItems: IBizPedidoProveedor; + function GetItemsBase : TDAMemDataTable; function GetItem(const ID : Integer) : IBizPedidoProveedor; function NewItem : IBizPedidoProveedor; function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend; diff --git a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj index 0ecd09d..cadca65 100644 --- a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj +++ b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj @@ -117,15 +117,6 @@ - - - - - - - - - @@ -135,6 +126,15 @@ + + + + + + + + + @@ -262,13 +262,13 @@ - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.pas index 3487ce2..c15cd1a 100644 --- a/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.pas @@ -4,7 +4,7 @@ interface uses uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, - ImgList, Controls, PngImageList, uPlugins_Intf; + ImgList, Controls, PngImageList, uPlugins_Intf, uDAMemDataTable, FactuGES_Intf; type TPluginPedidosProveedor = class(TModuleController, IMCPedidosProveedor) @@ -20,8 +20,8 @@ type public constructor Create(AOwner: TComponent); override; destructor Destroy; override; - procedure VerPedidos(const ID_Proveedor: Integer; - const ANombreProveedor : String = ''); + procedure VerPedidos(const ID_Proveedor: Integer; const ANombreProveedor : String = ''); + function DarPedidosRelacionados(const ListaIDPedidosCliente : TIntegerArray): TDAMemDataTable; end; implementation @@ -29,8 +29,8 @@ implementation {$R *.dfm} uses - Forms, Dialogs, SysUtils, cxControls, - uPedidosProveedorController, uBizPedidosProveedor, uPedidosProveedorViewRegister; + Forms, Dialogs, SysUtils, cxControls, uBizPedidosProveedor, + uPedidosProveedorController, uPedidosProveedorViewRegister; function GetModule : TModuleController; begin @@ -58,6 +58,20 @@ begin uPedidosProveedorViewRegister.RegisterViews; end; +function TPluginPedidosProveedor.DarPedidosRelacionados(const ListaIDPedidosCliente : TIntegerArray): TDAMemDataTable; +var + APedidosController : IPedidosProveedorController; + ATabla: TDAMemDataTable; +begin + APedidosController := TPedidosProveedorController.Create; + try + ATabla := APedidosController.BuscarPedidosProvRelacionados(ListaIDPedidosCliente); + Result := ATabla; // (ID_Proveedor); + finally +// APedidosController := NIL; + end; +end; + destructor TPluginPedidosProveedor.Destroy; begin uPedidosProveedorViewRegister.UnregisterViews; diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dpk b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dpk index a53415a..559ca12 100644 Binary files a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dpk and b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dpk differ diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dproj b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dproj index 51736bb..972068c 100644 --- a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dproj +++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.dproj @@ -69,7 +69,6 @@ - diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc index 60f84da..58f94b1 100644 --- a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc +++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc @@ -12,5 +12,5 @@ STRINGTABLE BEGIN END -/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */ -/* c:\temp\dtf6D6.tmp */ +/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */ +/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */ diff --git a/Source/Modulos/Pedidos de cliente/Controller/View/uIEditorListadoProcesoPedidoCliente.pas b/Source/Modulos/Pedidos de cliente/Controller/View/uIEditorListadoProcesoPedidoCliente.pas deleted file mode 100644 index 4c0a290..0000000 --- a/Source/Modulos/Pedidos de cliente/Controller/View/uIEditorListadoProcesoPedidoCliente.pas +++ /dev/null @@ -1,29 +0,0 @@ -unit uIEditorListadoProcesoPedidoCliente; - -interface - -uses - uEditorDBItem, uBizPedidosCliente, uBizPedidosProveedor; -//uPedidosClienteController; - -type - IEditorListadoProcesoPedidoCliente = interface(IEditorDBItem) - ['{E294B4E2-DB66-4D6F-958D-66C5583BA1F2}'] -// function GetController : IPedidosClienteController; -// procedure SetController (const Value : IPedidosClienteController); -// property Controller : IPedidosClienteController read GetController -// write SetController; - - function GetPedidosCliente: IBizPedidoCliente; - procedure SetPedidosCliente(const Value: IBizPedidoCliente); - property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente; - - function GetPedidosProveedor: IBizPedidoProveedor; - procedure SetPedidosProveedor(const Value: IBizPedidoProveedor); - property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor; - - end; - -implementation - -end. diff --git a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas index fc319db..45bf834 100644 --- a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas +++ b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas @@ -4,7 +4,7 @@ interface uses - Classes, SysUtils, uDADataTable, + Classes, SysUtils, uDADataTable, uControllerBase, uIDataModulePedidosCliente, uClientesController, uDetallesPedidoClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente, uBizPedidosProveedor; @@ -34,7 +34,7 @@ type const AHeaderText: String = ''); procedure VerDireccionEntrega(APedido : IBizPedidoCliente); - procedure VerListadoProcesoPedidoCliente(const ASituacion: String); + procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True); function Nuevo : IBizPedidoCliente; procedure Anadir(APedido : IBizPedidoCliente); @@ -123,6 +123,7 @@ type function BuscarTodos(const AID_Cliente: Integer): IBizPedidoCliente; overload; function BuscarPendientes : IBizPedidoCliente; function BuscarSituacion(Const ASituacion: String) : IBizPedidoCliente; + function BuscarPendientesPedir(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv; function BuscarPendientesPedirNoArticulos(const ID : Integer): IBizPedidoClienteArticulosPendientesPedirAProv; @@ -136,7 +137,7 @@ type procedure VerDireccionEntrega(APedido : IBizPedidoCliente); function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente; - procedure VerListadoProcesoPedidoCliente(const ASituacion: String); + procedure VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True); procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = False; const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True); @@ -179,7 +180,7 @@ uses uDateUtils, uIEditorPedidoCliente, uIEditorElegirPedidosCliente, Dialogs, uIEditorDireccionEntregaPedidoCliente, uIDialogListaPedidosClienteEnvioEMail, Variants, uSistemaFunc, uEMailUtils, uDialogElegirEMail, uIntegerListUtils, uStringsUtils, - uIEditorListadoProcesoPedidoCliente; + uModuleController, uPlugins_Intf, FactuGES_Intf; { TPedidosClienteController } @@ -621,30 +622,39 @@ begin end; end; -procedure TPedidosClienteController.VerListadoProcesoPedidoCliente(const ASituacion: String); +procedure TPedidosClienteController.VerProcesoCompleto(APedidos: IBizPedidoCliente; AllItems: Boolean = True); var - APedidosCliente: IBizPedidoCliente; - APedidosProveedor: IBizPedidoProveedor; - AEditor : IEditorListadoProcesoPedidoCliente; + AModule : TModuleController; + APlugin : IMCProcesoPresupuestosCliente; + ListaIDPedidosCliente: TIntegerArray; begin - AEditor := NIL; + if not Assigned(APedidos) then + raise Exception.Create ('Pedidos no asignado (VerProcesoCompleto)'); - APedidosCliente := BuscarSituacion(ASituacion); + if not APedidos.DataTable.Active then + APedidos.DataTable.Active := True; - CreateEditor('EditorListadoProcesoPedidoCLiente', IEditorListadoProcesoPedidoCLiente, AEditor); - if Assigned(AEditor) then + ListaIDPedidosCliente := TIntegerArray.Create; + if not AllItems then + ListaIDPedidosCliente.Add(APedidos.ID) + else + begin + APedidos.First; + while not APedidos.EOF do + begin + ListaIDPedidosCliente.Add(APedidos.ID); + APedidos.Next; + end; + end; + + AModule := AppFactuGES.GetModule(MODULENAME_PROCESO_PRESUPUESTOS_CLIENTE); + if Assigned(AModule) then try -// AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE - AEditor.PedidosCliente := APedidosCliente; - AEditor.PedidosProveedor := APedidosProveedor; - // AEditor.IdAlmacenObra := IdAlmacenObra; - // AEditor.DetalleReservas := BuscarDetalleReservas; - // AEditor.Articulo := AArticulo; - // AEditor.MultiSelect := True; - AEditor.ShowModal; + if Supports(AModule, IMCProcesoPresupuestosCliente, APlugin) then + APlugin.VerPresupuestos(ListaIDPedidosCliente); finally - AEditor.Release; - AEditor := NIL; + APlugin := NIL; + FreeAndNil(ListaIDPedidosCliente); end; end; diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc index ae8fa37..7288de2 100644 --- a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc +++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */ -/* c:\temp\dtf686.tmp */ +/* c:\temp\dtfB19.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm index dc9ff0f..f91b53b 100644 --- a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm @@ -558,4 +558,40 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente Left = 256 Top = 272 end + object tbl_PedidosProveedor: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_PedidosCliente + LogicalName = 'PedidosProveedor' + IndexDefs = <> + Left = 520 + Top = 320 + end + object ds_PedidosProveedor: TDADataSource + DataSet = tbl_PedidosProveedor.Dataset + DataTable = tbl_PedidosProveedor + Left = 520 + Top = 272 + end end diff --git a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas index 651ace9..c9de02f 100644 --- a/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas +++ b/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.pas @@ -3,7 +3,7 @@ unit uDataModulePedidosCliente; interface uses - DB, Classes, SysUtils, uDADesigntimeCall, + DB, Classes, SysUtils, uDADesigntimeCall, uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter, @@ -31,6 +31,8 @@ type ds_PedidosCliente_Detalles: TDADataSource; tbl_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos: TDAMemDataTable; ds_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos: TDADataSource; + tbl_PedidosProveedor: TDAMemDataTable; + ds_PedidosProveedor: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); private @@ -56,7 +58,7 @@ type const ImprimirPrecio: Boolean = True; const ImprimirRefProveedor: Boolean = True): Binary; - function GetAnosItems : TStringList; + function GetAnosItems : TStringList; end; implementation @@ -220,7 +222,7 @@ begin try APedido := CloneDataTable(tbl_PedidosCliente); AsignarClaseNegocio(APedido); - + // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!! APedido.FieldByName(fld_PedidosClienteREFERENCIA).ServerAutoRefresh := TRUE; diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc index 2fb7ac7..8da784d 100644 --- a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc +++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */ -/* c:\temp\dtf684.tmp */ +/* c:\temp\dtfB17.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas index dafbd93..b7efff0 100644 --- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas +++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas @@ -9,15 +9,17 @@ 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_ListaAnosPedidos = '{39AEA87B-B095-43F4-AE81-2407C4D498F0}'; - RID_PedidosCliente = '{2C37EE57-27DA-49CE-BBFC-93C2D1771DB4}'; - RID_PedidosCliente_Detalles = '{389CA843-A89F-4A47-95F3-6D2FB17E6DF9}'; - RID_PedidosCliente_Articulos_Pendientes = '{29EB047A-4B49-42D4-A8E9-C42EE3E471FB}'; - RID_PedidoCliente_ArticulosPendientesPedirAProv = '{1E6FC371-3B83-48DB-BB55-FEC98F3915D1}'; - RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{D624CEBB-93E5-4C10-9A10-CC433745B1F7}'; + RID_ListaAnosPedidos = '{52367490-087A-469F-B93B-4AFF89D7D4FE}'; + RID_PedidosProveedor = '{ED584C2A-011D-4C96-96D4-4C1CA33A11BD}'; + RID_PedidosCliente = '{CD51EA1E-706D-47A9-9750-B21DC98C84BC}'; + RID_PedidosCliente_Detalles = '{0E41F534-D8F7-4323-9ECA-3D2FE77C83B1}'; + RID_PedidosCliente_Articulos_Pendientes = '{4B037FD2-288E-47FB-853E-7E9F75BE9705}'; + RID_PedidoCliente_ArticulosPendientesPedirAProv = '{C541B99A-F566-48B3-8C27-4AF629628F68}'; + RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{832C1605-743A-4685-B3CF-17C5D2CD1902}'; { Data table names } nme_ListaAnosPedidos = 'ListaAnosPedidos'; + nme_PedidosProveedor = 'PedidosProveedor'; nme_PedidosCliente = 'PedidosCliente'; nme_PedidosCliente_Detalles = 'PedidosCliente_Detalles'; nme_PedidosCliente_Articulos_Pendientes = 'PedidosCliente_Articulos_Pendientes'; @@ -30,6 +32,18 @@ const { ListaAnosPedidos field indexes } idx_ListaAnosPedidosANO = 0; + { PedidosProveedor fields } + fld_PedidosProveedorID = 'ID'; + fld_PedidosProveedorREFERENCIA = 'REFERENCIA'; + fld_PedidosProveedorNOMBRE = 'NOMBRE'; + fld_PedidosProveedorSITUACION = 'SITUACION'; + + { PedidosProveedor field indexes } + idx_PedidosProveedorID = 0; + idx_PedidosProveedorREFERENCIA = 1; + idx_PedidosProveedorNOMBRE = 2; + idx_PedidosProveedorSITUACION = 3; + { PedidosCliente fields } fld_PedidosClienteID = 'ID'; fld_PedidosClienteID_EMPRESA = 'ID_EMPRESA'; @@ -197,7 +211,7 @@ const type { IListaAnosPedidos } IListaAnosPedidos = interface(IDAStronglyTypedDataTable) - ['{013A26BB-689A-4EDF-85F8-2F1499B427B4}'] + ['{C9EAE65F-5971-4B08-ABC0-274B4FD22461}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -230,9 +244,80 @@ type end; + { IPedidosProveedor } + IPedidosProveedor = interface(IDAStronglyTypedDataTable) + ['{772F1791-6705-4292-A9CF-9CAFDA0FCB3B}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetNOMBREValue: String; + procedure SetNOMBREValue(const aValue: String); + function GetNOMBREIsNull: Boolean; + procedure SetNOMBREIsNull(const aValue: Boolean); + function GetSITUACIONValue: String; + procedure SetSITUACIONValue(const aValue: String); + function GetSITUACIONIsNull: Boolean; + procedure SetSITUACIONIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + end; + + { TPedidosProveedorDataTableRules } + TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + function GetNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + function GetSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + { IPedidosCliente } IPedidosCliente = interface(IDAStronglyTypedDataTable) - ['{D51AD7F0-21DB-4794-9721-69888B3E52F6}'] + ['{319F8BCF-0CA3-4185-896C-DD22DF9847FD}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -663,7 +748,7 @@ type { IPedidosCliente_Detalles } IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{574ABC3C-F487-4F6C-8D8B-E2C94B8EAA2C}'] + ['{69F92C81-F6E3-4D2C-B8CB-B90ADEC9A021}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -854,7 +939,7 @@ type { IPedidosCliente_Articulos_Pendientes } IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) - ['{F94E52AB-7983-45C1-9522-8F8558864380}'] + ['{5EEFF610-2808-4B2C-8C67-842BF7362503}'] { Property getters and setters } function GetID_ARTICULOValue: Integer; procedure SetID_ARTICULOValue(const aValue: Integer); @@ -925,7 +1010,7 @@ type { IPedidoCliente_ArticulosPendientesPedirAProv } IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable) - ['{8D82D999-A50C-4EB0-8E4F-1CDF6439C646}'] + ['{7204B7EC-2122-4B60-8D15-24E8F26FD247}'] { Property getters and setters } function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); @@ -1068,7 +1153,7 @@ type { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos } IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable) - ['{B3551FC7-D507-4452-8454-B2815339D817}'] + ['{C4465D1A-71FC-4F76-BC11-59F1FBCA620D}'] { Property getters and setters } function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); @@ -1246,6 +1331,102 @@ begin end; +{ TPedidosProveedorDataTableRules } +constructor TPedidosProveedorDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TPedidosProveedorDataTableRules.Destroy; +begin + inherited; +end; + +function TPedidosProveedorDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedorID].AsInteger; +end; + +procedure TPedidosProveedorDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedorID].AsInteger := aValue; +end; + +function TPedidosProveedorDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorID].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorID].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorREFERENCIA].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorREFERENCIA].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorREFERENCIA].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorREFERENCIA].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetNOMBREValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorNOMBRE].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetNOMBREValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorNOMBRE].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetNOMBREIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorNOMBRE].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorNOMBRE].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetSITUACIONValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorSITUACION].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetSITUACIONValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorSITUACION].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetSITUACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorSITUACION].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorSITUACION].AsVariant := Null; +end; + + { TPedidosClienteDataTableRules } constructor TPedidosClienteDataTableRules.Create(aDataTable: TDADataTable); var @@ -2832,6 +3013,7 @@ end; initialization RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules); + RegisterDataTableRules(RID_PedidosProveedor, TPedidosProveedorDataTableRules); RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules); RegisterDataTableRules(RID_PedidosCliente_Detalles, TPedidosCliente_DetallesDataTableRules); RegisterDataTableRules(RID_PedidosCliente_Articulos_Pendientes, TPedidosCliente_Articulos_PendientesDataTableRules); diff --git a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas index bb019aa..5dddb5a 100644 --- a/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas +++ b/Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas @@ -9,17 +9,18 @@ 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_ListaAnosPedidosDelta = '{AFC97261-540F-44C4-9AD7-057298F1B086}'; - RID_PedidosClienteDelta = '{E50F050B-03E8-4C84-91AA-9B8205480C0D}'; - RID_PedidosCliente_DetallesDelta = '{506DEE40-B318-405D-BF82-CCE6502097E8}'; - RID_PedidosCliente_Articulos_PendientesDelta = '{FB70B126-428D-454B-AA03-814B3F03B317}'; - RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{14A7355B-4DDA-4A3F-AFF0-A0C79E98EE09}'; - RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{1D7515BA-4719-4377-BF5D-F3027714E5E8}'; + RID_ListaAnosPedidosDelta = '{F7087B26-16C3-4E50-AD14-5EF21B59DB5C}'; + RID_PedidosProveedorDelta = '{7D954D17-215A-4D4C-A7FE-6BA75062958F}'; + RID_PedidosClienteDelta = '{9B8545B7-930D-4DF6-B52A-C07AC8BD6EA7}'; + RID_PedidosCliente_DetallesDelta = '{99199B9F-C476-4E54-8385-4D894E1E857F}'; + RID_PedidosCliente_Articulos_PendientesDelta = '{21228D66-8988-46CB-AFD0-E265C9D1F4DB}'; + RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{6A988443-1420-48A3-8E88-444796A56BE1}'; + RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{53B6BA3C-0BC4-40E5-9CB1-04539F4EB028}'; type { IListaAnosPedidosDelta } IListaAnosPedidosDelta = interface(IListaAnosPedidos) - ['{AFC97261-540F-44C4-9AD7-057298F1B086}'] + ['{F7087B26-16C3-4E50-AD14-5EF21B59DB5C}'] { Property getters and setters } function GetOldANOValue : String; @@ -51,9 +52,79 @@ type end; + { IPedidosProveedorDelta } + IPedidosProveedorDelta = interface(IPedidosProveedor) + ['{7D954D17-215A-4D4C-A7FE-6BA75062958F}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldREFERENCIAValue : String; + function GetOldNOMBREValue : String; + function GetOldSITUACIONValue : String; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldSITUACION : String read GetOldSITUACIONValue; + end; + + { TPedidosProveedorBusinessProcessorRules } + TPedidosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedor, IPedidosProveedorDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + function GetNOMBREIsNull: Boolean; virtual; + function GetOldNOMBREValue: String; virtual; + function GetOldNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + function GetSITUACIONIsNull: Boolean; virtual; + function GetOldSITUACIONValue: String; virtual; + function GetOldSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; + property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + { IPedidosClienteDelta } IPedidosClienteDelta = interface(IPedidosCliente) - ['{E50F050B-03E8-4C84-91AA-9B8205480C0D}'] + ['{9B8545B7-930D-4DF6-B52A-C07AC8BD6EA7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -485,7 +556,7 @@ type { IPedidosCliente_DetallesDelta } IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles) - ['{506DEE40-B318-405D-BF82-CCE6502097E8}'] + ['{99199B9F-C476-4E54-8385-4D894E1E857F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; @@ -675,7 +746,7 @@ type { IPedidosCliente_Articulos_PendientesDelta } IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes) - ['{FB70B126-428D-454B-AA03-814B3F03B317}'] + ['{21228D66-8988-46CB-AFD0-E265C9D1F4DB}'] { Property getters and setters } function GetOldID_ARTICULOValue : Integer; function GetOldCANTIDAD_PEDValue : Currency; @@ -745,7 +816,7 @@ type { IPedidoCliente_ArticulosPendientesPedirAProvDelta } IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv) - ['{14A7355B-4DDA-4A3F-AFF0-A0C79E98EE09}'] + ['{6A988443-1420-48A3-8E88-444796A56BE1}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; function GetOldID_ARTICULOValue : Integer; @@ -887,7 +958,7 @@ type { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta } IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos) - ['{1D7515BA-4719-4377-BF5D-F3027714E5E8}'] + ['{53B6BA3C-0BC4-40E5-9CB1-04539F4EB028}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; function GetOldID_ARTICULOValue : Integer; @@ -1075,6 +1146,142 @@ begin end; +{ TPedidosProveedorBusinessProcessorRules } +constructor TPedidosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TPedidosProveedorBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREFERENCIA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREFERENCIA]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetNOMBREValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorSITUACION]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorSITUACION]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION] := Null; +end; + + { TPedidosClienteBusinessProcessorRules } constructor TPedidosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var @@ -3383,6 +3590,7 @@ end; initialization RegisterBusinessProcessorRules(RID_ListaAnosPedidosDelta, TListaAnosPedidosBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_PedidosProveedorDelta, TPedidosProveedorBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PedidosClienteDelta, TPedidosClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PedidosCliente_DetallesDelta, TPedidosCliente_DetallesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PedidosCliente_Articulos_PendientesDelta, TPedidosCliente_Articulos_PendientesBusinessProcessorRules); diff --git a/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj b/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj index 4e3838d..57a9f3f 100644 --- a/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj +++ b/Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj @@ -26,6 +26,13 @@ + + + + + + + @@ -311,14 +318,77 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc index 9aaa8a8..1d9c4f7 100644 --- a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc +++ b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */ -/* c:\temp\dtf6F0.tmp */ +/* c:\temp\dtfB83.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm index 5eae702..e6a721b 100644 --- a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm +++ b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm @@ -39,6 +39,58 @@ object srvPedidosCliente: TsrvPedidosCliente Size = 254 end> end + item + Params = <> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + Name = 'IBX' + SQL = + 'select'#10'ID, REFERENCIA, NOMBRE, SITUACION'#10'from V_PEDIDOS_PROVEEDO' + + 'R'#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'NOMBRE' + TableField = 'NOMBRE' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end> + end> + Name = 'PedidosProveedor' + Fields = < + item + Name = 'ID' + DataType = datInteger + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + end> + end item Params = <> Statements = < diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dpk b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dpk index 7f2323c..544eb11 100644 --- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dpk +++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dpk @@ -101,9 +101,6 @@ contains uEditorDireccionEntregaPedidoCliente in 'uEditorDireccionEntregaPedidoCliente.pas' {frEditorDireccionEntregaPedidoCliente: TForm}, uEditorElegirArticulosPedidoCliente in 'uEditorElegirArticulosPedidoCliente.pas' {frEditorElegirArticulosPedidoCliente: TForm}, uEditorPedidosClienteReport in 'uEditorPedidosClienteReport.pas' {frEditorPedidosClienteReport: T}, - uDialogListaPedidosClienteEnvioEMail in 'uDialogListaPedidosClienteEnvioEMail.pas' {frDialogListaPedidosClienteEnvioEMail: T}, - uDialogOpcionesProcesoPedidoCliente in 'uDialogOpcionesProcesoPedidoCliente.pas' {fDialogOpcionesProcesoPedidoCliente: TfEditorPedidosProveedor}, - uEditorListadoProcesoPedidoCliente in 'uEditorListadoProcesoPedidoCliente.pas' {fEditorListadoProcesoPedidoCliente: TfEditorPedidosProveedor}, - uViewListadoProcesoPedidoCliente in 'uViewListadoProcesoPedidoCliente.pas' {frViewListadoProcesoPedidoCliente: TFrame}; + uDialogListaPedidosClienteEnvioEMail in 'uDialogListaPedidosClienteEnvioEMail.pas' {frDialogListaPedidosClienteEnvioEMail: T}; end. diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj index 67ea7a6..aaed076 100644 --- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj +++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.dproj @@ -119,8 +119,8 @@ TfEditorPedidosProveedor -
fDialogOpcionesProcesoPedidoCliente
TfEditorPedidosProveedor +
fDialogOpcionesProcesoPedidoCliente
frEditorDireccionEntregaPedidoCliente
@@ -130,10 +130,6 @@
frEditorElegirArticulosPedidoCliente
TForm - -
fEditorListadoProcesoPedidoCliente
- TfEditorPedidosProveedor -
frEditorPedidoCliente
TFrame @@ -163,10 +159,6 @@
frViewElegirArticulosPedidosCliente
TFrame - -
frViewListadoProcesoPedidoCliente
- TFrame -
frViewPedidoCliente
TFrame diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc index 46d3b33..3f0cc1f 100644 --- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc +++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc @@ -14,7 +14,6 @@ END /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewPedidosCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uDialogOpcionesImpresionPedidosCliente.dfm */ -/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uDialogOpcionesProcesoPedidoCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewDireccionEntregaPedidoCli.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewDatosYSeleccionClientePedido.dfm */ @@ -26,7 +25,5 @@ END /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewElegirArticulosPedidosCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */ -/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uViewListadoProcesoPedidoCliente.dfm */ -/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorListadoProcesoPedidoCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */ -/* c:\temp\dtf6EE.tmp */ +/* c:\temp\dtfB81.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesProcesoPedidoCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesProcesoPedidoCliente.dfm deleted file mode 100644 index 2ddac59..0000000 --- a/Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesProcesoPedidoCliente.dfm +++ /dev/null @@ -1,79 +0,0 @@ -inherited fDialogOpcionesProcesoPedidoCliente: TfDialogOpcionesProcesoPedidoCliente - Caption = 'Opciones para listar proceso completo de pedido de cliente' - ClientHeight = 197 - ClientWidth = 393 - ExplicitWidth = 399 - ExplicitHeight = 229 - PixelsPerInch = 96 - TextHeight = 13 - inherited Bevel2: TBevel - Width = 393 - ExplicitWidth = 393 - end - inherited Bevel3: TBevel - Top = 153 - Width = 393 - ExplicitTop = 195 - ExplicitWidth = 393 - end - inherited pnlBotones: TPanel - Top = 155 - Width = 393 - ExplicitTop = 155 - ExplicitWidth = 393 - inherited btnAceptar: TButton - Left = 229 - ExplicitLeft = 229 - end - inherited btnCancelar: TButton - Left = 308 - ExplicitLeft = 308 - end - end - inherited pnlHeader: TPanel - Width = 393 - ExplicitWidth = 393 - inherited lblInstruccion: TLabel - Width = 343 - Margins.Bottom = 10 - Caption = 'Indique las siguiente opciones para el listado:' - ExplicitWidth = 256 - end - inherited Label2: TLabel - Top = 31 - Width = 318 - Height = 25 - Visible = False - ExplicitTop = 31 - end - end - inherited pnlCuerpo: TPanel - Width = 393 - Height = 87 - ExplicitWidth = 393 - ExplicitHeight = 87 - object Label1: TLabel - Left = 25 - Top = 6 - Width = 47 - Height = 13 - Caption = 'Situaci'#243'n:' - end - object cbSituacion: TcxComboBox - Left = 78 - Top = 6 - TabOrder = 0 - Text = 'cbSituacion' - Width = 203 - end - end - inherited ActionList1: TActionList - Top = 16 - inherited actAceptar: TAction - OnExecute = actAceptarExecute - end - inherited actCancelar: TAction - OnExecute = actCancelarExecute - end - end -end diff --git a/Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesProcesoPedidoCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesProcesoPedidoCliente.pas deleted file mode 100644 index b94578d..0000000 --- a/Source/Modulos/Pedidos de cliente/Views/uDialogOpcionesProcesoPedidoCliente.pas +++ /dev/null @@ -1,58 +0,0 @@ -unit uDialogOpcionesProcesoPedidoCliente; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, cxGraphics, cxControls, - cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit; - -type - TfDialogOpcionesProcesoPedidoCliente = class(TfDialogBase) - cbSituacion: TcxComboBox; - Label1: TLabel; - procedure actAceptarExecute(Sender: TObject); - procedure actCancelarExecute(Sender: TObject); - private - { Private declarations } - public - { Public declarations } - end; - - function ElegirOpcionesProcesoPedidoCliente(var ASituacion: String): Boolean; - -implementation - -{$R *.dfm} - -function ElegirOpcionesProcesoPedidoCliente(var ASituacion : String): Boolean; -var - AEditor : TfDialogOpcionesProcesoPedidoCliente; -begin - AEditor := TfDialogOpcionesProcesoPedidoCliente.Create(NIL); - try - AEditor.cbSituacion.EditValue := ASituacion; - - Result := (AEditor.ShowModal = mrOk); - if Result then - begin - ASituacion := AEditor.cbSituacion.EditValue; - end; - finally - AEditor.Release; - end; -end; - -procedure TfDialogOpcionesProcesoPedidoCliente.actAceptarExecute(Sender: TObject); -begin - inherited; - ModalResult := mrOk -end; - -procedure TfDialogOpcionesProcesoPedidoCliente.actCancelarExecute(Sender: TObject); -begin - inherited; - ModalResult := mrCancel; -end; - -end. diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas index 87637b0..e1fc081 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas @@ -89,7 +89,7 @@ uses // uGenerarFacturasProvPedUtils, // uInventarioController, uBizInventario, uDialogUtils, uGridStatusUtils, uDBSelectionListUtils, cxControls, - uDialogOpcionesImpresionPedidosCliente, uDialogOpcionesProcesoPedidoCliente, + uDialogOpcionesImpresionPedidosCliente, uGestorInformesController, // uAlbaranesProveedorController, uBizAlbaranesProveedor, uGenerarAlbaranesCliUtils, uGenerarPedidosProvUtils; @@ -260,12 +260,29 @@ end; procedure TfEditorPedidosCliente.actVerProcesoCompletoExecute(Sender: TObject); var - ASituacion: String; + APedidos: IBizPedidoCliente; + AllItems: Boolean; begin - inherited; - ASituacion := 'PENDIENTE'; - if ElegirOpcionesProcesoPedidoCliente(ASituacion) then - FController.VerListadoProcesoPedidoCliente(ASituacion); + APedidos := Nil; + AllItems := False; + + if MultiSelect and Assigned(ViewGrid) then + AllItems := (ViewGrid.NumSeleccionados > 1); + + //Si esta agrupado solo podré imprimir la lista de elementos visibles +// if not ViewGrid.esSeleccionCeldaDatos then +// inherited +// else + if AllItems then + begin + SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords); + APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos) as IBizPedidoCliente; + end + else + APedidos := Pedidos; + + if Assigned(APedidos) then + FController.VerProcesoCompleto(APedidos, AllItems); end; constructor TfEditorPedidosCliente.Create(AOwner: TComponent); diff --git a/Source/Modulos/Pedidos de cliente/Views/uPedidosClienteViewRegister.pas b/Source/Modulos/Pedidos de cliente/Views/uPedidosClienteViewRegister.pas index 59f87aa..852d5d5 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uPedidosClienteViewRegister.pas +++ b/Source/Modulos/Pedidos de cliente/Views/uPedidosClienteViewRegister.pas @@ -15,8 +15,7 @@ uses uDialogListaPedidosClienteEnvioEMail, // uEditorElegirPedidosCliente, uEditorElegirArticulosPedidoCliente, - uEditorDireccionEntregaPedidoCliente, - uEditorListadoProcesoPedidoCLiente; + uEditorDireccionEntregaPedidoCliente; // uEditorSituacionPedidoCliente; procedure RegisterViews; @@ -29,7 +28,6 @@ begin EditorRegistry.RegisterClass(TfEditorPedidosClientePreview, 'EditorPedidosClientePreview'); // EditorRegistry.RegisterClass(TfEditorSituacionPedidoCliente, 'EditorSituacionPedidoCliente'); EditorRegistry.RegisterClass(TfDialogListaPedidosClienteEnvioEMail, 'DialogListaPedidosClienteEnvioEMail'); - EditorRegistry.RegisterClass(TfEditorListadoProcesoPedidoCliente, 'EditorListadoProcesoPedidoCliente'); end; procedure UnregisterViews; @@ -42,7 +40,6 @@ begin EditorRegistry.UnRegisterClass(TfEditorPedidosClientePreview); EditorRegistry.UnRegisterClass(TfDialogListaPedidosClienteEnvioEMail); // EditorRegistry.UnRegisterClass(TfEditorSituacionPedidoCliente); - EditorRegistry.UnRegisterClass(TfEditorListadoProcesoPedidoCliente); end; end. diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewListadoProcesoPedidoCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uViewListadoProcesoPedidoCliente.dfm deleted file mode 100644 index 92c1c5b..0000000 --- a/Source/Modulos/Pedidos de cliente/Views/uViewListadoProcesoPedidoCliente.dfm +++ /dev/null @@ -1,62 +0,0 @@ -inherited frViewListadoProcesoPedidoCliente: TfrViewListadoProcesoPedidoCliente - OnShow = CustomViewShow - inherited cxGrid: TcxGrid - inherited cxGridView: TcxGridDBTableView - DataController.KeyFieldNames = 'ID' - object cxGridViewREFERENCIA: TcxGridDBColumn - DataBinding.FieldName = 'REFERENCIA' - end - object cxGridViewNOMBRE: TcxGridDBColumn - DataBinding.FieldName = 'NOMBRE' - end - object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn - DataBinding.FieldName = 'REFERENCIA_CLIENTE' - end - object cxGridViewSITUACION: TcxGridDBColumn - DataBinding.FieldName = 'SITUACION' - end - end - end - inherited frViewFiltroBase1: TfrViewFiltroBase - inherited TBXDockablePanel1: TTBXDockablePanel - inherited dxLayoutControl1: TdxLayoutControl - inherited txtFiltroTodo: TcxTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - end - inherited edtFechaIniFiltro: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 272 - Width = 272 - end - inherited edtFechaFinFiltro: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 221 - Width = 221 - end - inherited eLista: TcxComboBox - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 215 - Width = 215 - end - end - end - end - inherited dxComponentPrinter: TdxComponentPrinter - inherited dxComponentPrinterLink: TdxGridReportLink - ReportDocument.CreationDate = 41514.488531400460000000 - BuiltInReportLink = True - end - end -end diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewListadoProcesoPedidoCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uViewListadoProcesoPedidoCliente.pas deleted file mode 100644 index e4a0002..0000000 --- a/Source/Modulos/Pedidos de cliente/Views/uViewListadoProcesoPedidoCliente.pas +++ /dev/null @@ -1,97 +0,0 @@ -unit uViewListadoProcesoPedidoCliente; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, - dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, cxGridCustomPopupMenu, cxGridPopupMenu, ImgList, - PngImageList, ActnList, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uDAInterfaces, - uDADataTable, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uCustomView, - uViewBase, uViewFiltroBase, cxGridLevel, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, - cxGrid, uBizPedidosCliente, uBizPedidosProveedor; - -type - IViewListadoProcesoPedidoCliente = interface(IViewGrid) - ['{51AE72F0-E6F7-49E6-A376-EBFB5B118E62}'] - function GetPedidosCliente: IBizPedidoCliente; - procedure SetPedidosCliente(const Value: IBizPedidoCliente); - property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente; - - function GetPedidosProveedor: IBizPedidoProveedor; - procedure SetPedidosProveedor(const Value: IBizPedidoProveedor); - property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor; - end; - - TfrViewListadoProcesoPedidoCliente = class(TfrViewGrid, IViewListadoProcesoPedidoCliente) - cxGridViewREFERENCIA: TcxGridDBColumn; - cxGridViewNOMBRE: TcxGridDBColumn; - cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn; - cxGridViewSITUACION: TcxGridDBColumn; - procedure CustomViewShow(Sender: TObject); - protected - FPedidosCliente: IBizPedidoCliente; - FPedidosProveedor: IBizPedidoProveedor; - - function GetPedidosCliente: IBizPedidoCliente; - procedure SetPedidosCliente(const Value: IBizPedidoCliente); - - function GetPedidosProveedor: IBizPedidoProveedor; - procedure SetPedidosProveedor(const Value: IBizPedidoProveedor); - - public - property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente; - property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor; - destructor Destroy; override; - end; - -implementation -{$R *.dfm} - -{ TfrViewListadoProcesoPedidoCliente } - -procedure TfrViewListadoProcesoPedidoCliente.CustomViewShow(Sender: TObject); -begin - inherited; - if Assigned(FPedidosCliente) then - FPedidosCliente.Active := True; -end; - -destructor TfrViewListadoProcesoPedidoCliente.Destroy; -begin - FPedidosCliente:= Nil; - inherited; -end; - -function TfrViewListadoProcesoPedidoCliente.GetPedidosCliente: IBizPedidoCliente; -begin - Result := FPedidosCliente; -end; - -function TfrViewListadoProcesoPedidoCliente.GetPedidosProveedor: IBizPedidoProveedor; -begin - Result := FPedidosProveedor; -end; - -procedure TfrViewListadoProcesoPedidoCliente.SetPedidosCliente(const Value: IBizPedidoCliente); -begin - FPedidosCliente := Value; - if Assigned(FPedidosCliente) then - dsDataSource.DataTable := FPedidosCliente.DataTable - else - dsDataSource.DataTable := Nil; -end; - -procedure TfrViewListadoProcesoPedidoCliente.SetPedidosProveedor(const Value: IBizPedidoProveedor); -begin - FPedidosProveedor := Value; -// if Assigned(FPedidosProveedor) then -// dsDataSource.DataTable := FPedidosProveedor.DataTable -// else -// dsDataSource.DataTable := Nil; -end; - -end. diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dpk b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dpk new file mode 100644 index 0000000..57a0804 Binary files /dev/null and b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dpk differ diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dproj b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dproj new file mode 100644 index 0000000..7d8bbed --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.dproj @@ -0,0 +1,553 @@ + + + + {7ed85635-c723-4c0b-bf1d-f719e0ea33ad} + ProcesoPresupuestosCliente_controller.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\ProcesoPresupuestosCliente_controller.bpl + + + 7.0 + False + False + 0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0ProcesoPresupuestosCliente_controller.dpk + + + + + MainSource + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.drc b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.drc new file mode 100644 index 0000000..e945240 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.drc @@ -0,0 +1,16 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.res */ +/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.drf */ diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Controller/View/uIEditorProcesoPresupuestosCliente.pas b/Source/Modulos/ProcesoPresupuestoCliente/Controller/View/uIEditorProcesoPresupuestosCliente.pas new file mode 100644 index 0000000..6fe4863 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Controller/View/uIEditorProcesoPresupuestosCliente.pas @@ -0,0 +1,38 @@ +unit uIEditorProcesoPresupuestosCliente; + +interface + +uses + uEditorDBItem, uBizPedidosCliente, uBizPedidosProveedor, uBizAlbaranesProveedor, + uBizFacturasProveedor; +//uPedidosClienteController; + +type + IEditorProcesoPresupuestosCliente = interface(IEditorDBItem) + ['{B927F0A3-EE94-4E9C-A777-4282A78F65D2}'] +// function GetController : IPedidosClienteController; +// procedure SetController (const Value : IPedidosClienteController); +// property Controller : IPedidosClienteController read GetController +// write SetController; + + function GetPedidosCliente: IBizPedidoCliente; + procedure SetPedidosCliente(const Value: IBizPedidoCliente); + property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente; + + function GetPedidosProveedor: IBizPedidoProveedor; + procedure SetPedidosProveedor(const Value: IBizPedidoProveedor); + property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor; + + function GetAlbaranesProveedor: IBizAlbaranProveedor; + procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor); + property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor; + + function GetFacturasProveedor: IBizFacturaProveedor; + procedure SetFacturasProveedor(const Value: IBizFacturaProveedor); + property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor; + + end; + +implementation + +end. diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Controller/uProcesoPresupuestosClienteController.pas b/Source/Modulos/ProcesoPresupuestoCliente/Controller/uProcesoPresupuestosClienteController.pas new file mode 100644 index 0000000..e9692f9 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Controller/uProcesoPresupuestosClienteController.pas @@ -0,0 +1,243 @@ +unit uProcesoPresupuestosClienteController; + +interface + + +uses + Classes, SysUtils, uDADataTable, FactuGES_Intf, + uControllerBase, uIDataModulePedidosCliente, + uBizPedidosCliente, uPedidosClienteController, + uBizPedidosProveedor, uPedidosProveedorController, + uBizAlbaranesProveedor, uAlbaranesProveedorController, + uBizFacturasProveedor, uFacturasProveedorController; + +type + IProcesoPresupuestosClienteController = interface(IControllerBase) + ['{CBF0D9CF-2CFB-4205-9891-4BAA4EFE0D7C}'] + procedure VerProceso(const ListaIDPresupuestosCliente: TIntegerArray); + end; + + TProcesoPresupuestosClienteController = class(TControllerBase, IProcesoPresupuestosClienteController) + private + FPedidosClienteController : IPedidosClienteController; + FPedidosProveedorController : IPedidosProveedorController; + FAlbaranesProveedorController : IAlbaranesProveedorController; + FFacturasProveedorController : IFacturasProveedorController; + + public + constructor Create; override; + destructor Destroy; override; + + function BuscarPedidosCliente(const ListaIDPresupuestosCliente: TIntegerArray): IBizPedidoCliente; + function BuscarPedidosProveedor(const ListaIDPresupuestosCliente: TIntegerArray): IBizPedidoProveedor; + function BuscarAlbaranesProveedor(APedidosProveedor: IBizPedidoProveedor): IBizAlbaranProveedor; + function BuscarFacturasProveedor(AAlbaranesProveedor: IBizAlbaranProveedor): IBizFacturaProveedor; + + procedure VerProceso(const ListaIDPresupuestosCliente: TIntegerArray); + end; + +implementation + +uses + uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils, + uFactuGES_App, uDataTableUtils, uDataModuleUsuarios, Forms, + schPedidosClienteClient_Intf, uDAInterfaces, + uDateUtils, Dialogs, Variants, uSistemaFunc, uIntegerListUtils, uStringsUtils, + uIEditorProcesoPresupuestosCliente, uModuleController; + +{ TProcesoPresupuestosClienteController } +constructor TProcesoPresupuestosClienteController.Create; +begin + inherited; + FPedidosClienteController := TPedidosClienteController.Create; + FPedidosProveedorController := TPedidosProveedorController.Create; + FAlbaranesProveedorController := TAlbaranesProveedorController.Create; + FFacturasProveedorController := TFacturasProveedorController.Create; +end; + +destructor TProcesoPresupuestosClienteController.Destroy; +begin + FPedidosClienteController := Nil; + FPedidosProveedorController := Nil; + FAlbaranesProveedorController := Nil; + FFacturasProveedorController := Nil; + inherited; +end; + +function TProcesoPresupuestosClienteController.BuscarAlbaranesProveedor(APedidosProveedor: IBizPedidoProveedor): IBizAlbaranProveedor; +var + Condicion: TDAWhereExpression; + AArray : Array of TDAWhereExpression; + i: Integer; + +begin + Result := FAlbaranesProveedorController.BuscarTodos; + //Quitamos el filtro por empresa ya que no es necesario y complicaría where que hacemos a continuación, además de que puede darse el caso de haber dado de alta un pedido de proveedor con otra empresa? + Result.DataTable.DynamicWhere.Clear; + + if Assigned(Result) then + begin + //Vamos generando todos los where necesarios para cada uno de los ID de Pedido de proveedor que buscamos + // Filtrar los Presupuestos pendientes de recepcion + with Result.DataTable.DynamicWhere do + begin + APedidosProveedor.Open; + SetLength(AArray, APedidosProveedor.RecordCount); + APedidosProveedor.First; + i:=0; + while not ApedidosProveedor.EOF do + begin + AArray[i] := NewConstant(APedidosProveedor.ID, datInteger); + Inc(i); + APedidosProveedor.Next; + end; + + // (ID_PEDIDO in lista IDs) + Condicion := NewBinaryExpression(NewField('', 'ID_PEDIDO'), NewList(AArray), dboIn); + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + + APedidosProveedor.Close; + end; + end; +end; + +function TProcesoPresupuestosClienteController.BuscarFacturasProveedor(AAlbaranesProveedor: IBizAlbaranProveedor): IBizFacturaProveedor; +var + Condicion: TDAWhereExpression; + AArray : Array of TDAWhereExpression; + i: Integer; + +begin + Result := FFacturasProveedorController.BuscarTodosDeAlbaran; + + if Assigned(Result) then + begin + // Filtrar los Presupuestos pendientes de recepcion + with Result.DataTable.DynamicWhere do + begin + //Vamos generando todos los where necesarios para cada uno de los ID de Pedido de proveedor que buscamos + AAlbaranesProveedor.Open; + SetLength(AArray, AAlbaranesProveedor.RecordCount); + AAlbaranesProveedor.First; + i:=0; + while not AAlbaranesProveedor.EOF do + begin + if not AAlbaranesProveedor.ID_FACTURAIsNull then + begin + AArray[i] := NewConstant(AAlbaranesProveedor.ID, datInteger); + Inc(i); + end; + AAlbaranesProveedor.Next; + end; + + // (ID in lista de IDs) + Condicion := NewBinaryExpression(NewField('', 'ID_ALBARAN'), NewList(AArray), dboIn); + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboOr); + + AAlbaranesProveedor.Close; + end; + end; +end; + +function TProcesoPresupuestosClienteController.BuscarPedidosCliente(const ListaIDPresupuestosCliente: TIntegerArray): IBizPedidoCliente; +var + Condicion: TDAWhereExpression; + AArray : Array of TDAWhereExpression; + i: Integer; + +begin + Result := FPedidosClienteController.BuscarTodos; + //Quitamos el filtro por empresa ya que no es necesario y complicaría where que hacemos a continuación + Result.DataTable.DynamicWhere.Clear; + + if Assigned(Result) then + begin + // Filtrar los pedidos de cliente que esten en la lista + with Result.DataTable.DynamicWhere do + begin + SetLength(AArray, ListaIDPresupuestosCliente.Count); + //Vamos generando la lista de ID de pedidos de cliente que vamos a inlcuir en la clausula IN + for i := 0 to ListaIDPresupuestosCliente.Count - 1 do + AArray[i] := NewConstant(ListaIDPresupuestosCliente.Items[i], datInteger); + + // (ID IN lista de IDs) + Condicion := NewBinaryExpression(NewField('', fld_PedidosClienteID), NewList(AArray), dboIn); + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + end; +end; + +function TProcesoPresupuestosClienteController.BuscarPedidosProveedor(const ListaIDPresupuestosCliente: TIntegerArray): IBizPedidoProveedor; +var + Condicion: TDAWhereExpression; + AArray : Array of TDAWhereExpression; + i: Integer; + +begin + Result := FPedidosProveedorController.BuscarTodos; + //Quitamos el filtro por empresa ya que no es necesario y complicaría where que hacemos a continuación, además de que puede darse el caso de haber dado de alta un pedido de proveedor con otra empresa? + Result.DataTable.DynamicWhere.Clear; + + if Assigned(Result) then + begin + // Filtrar los Pedidos de proveedor relacionados con los pedidos de cliente pasados por parametro + with Result.DataTable.DynamicWhere do + begin + SetLength(AArray, ListaIDPresupuestosCliente.Count); + //Vamos generando la lista de ID de pedidos de cliente que vamos a inlcuir en la clausula IN + for i := 0 to ListaIDPresupuestosCliente.Count - 1 do + AArray[i] := NewConstant(ListaIDPresupuestosCliente.Items[i], datInteger); + + // (ID_PEDIDO_CLIENTE IN lista de IDs) + Condicion := NewBinaryExpression(NewField('', 'ID_PEDIDO_CLIENTE'), NewList(AArray), dboIn); + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + end; +end; + + + +procedure TProcesoPresupuestosClienteController.VerProceso(const ListaIDPresupuestosCliente: TIntegerArray); +var + AEditor : IEditorProcesoPresupuestosCliente; + APedidosCliente: IBizPedidoCliente; + APedidosProveedor: IBizPedidoProveedor; + AAlbaranesProveedor: IBizAlbaranProveedor; + AFacturasProveedor: IBizFacturaProveedor; + +begin + AEditor := NIL; + + APedidosCliente := BuscarPedidosCliente(ListaIDPresupuestosCliente); + APedidosProveedor := BuscarPedidosProveedor(ListaIDPresupuestosCliente); + AAlbaranesProveedor := BuscarAlbaranesProveedor(APedidosProveedor); + AFacturasProveedor := BuscarFacturasProveedor(AAlbaranesProveedor); + + CreateEditor('EditorProcesoPresupuestosCLiente', IEditorProcesoPresupuestosCliente, AEditor); + if Assigned(AEditor) then + try +// AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE + AEditor.PedidosCliente := APedidosCliente; + AEditor.PedidosProveedor := APedidosProveedor; + AEditor.AlbaranesProveedor := AAlbaranesProveedor; + AEditor.FacturasProveedor := AFacturasProveedor; + AEditor.ShowModal; + finally + AEditor.Release; + AEditor := NIL; + end; +end; + +end. diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.dpk b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.dpk new file mode 100644 index 0000000..5576adb Binary files /dev/null and b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.dpk differ diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.dproj b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.dproj new file mode 100644 index 0000000..9f08b25 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.dproj @@ -0,0 +1,549 @@ + + + + {e7d762a1-3a15-46b2-bd5b-3821d13b8347} + ProcesoPresupuestosCliente_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\ProcesoPresupuestosCliente_plugin.bpl + + + 7.0 + False + False + 0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + EurekaLog 5.1.9 + ProcesoPresupuestosCliente_plugin.dpk + + + + + MainSource + + + + + + + +
PluginProcesoPresupuestosCliente
+ + + + diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.drc b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.drc new file mode 100644 index 0000000..a1bdde4 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.drc @@ -0,0 +1,17 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\uPluginProcesoPresupuestosCliente.dfm */ +/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.res */ +/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.drf */ diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Plugin/uPluginProcesoPresupuestosCliente.dfm b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/uPluginProcesoPresupuestosCliente.dfm new file mode 100644 index 0000000..7d80587 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/uPluginProcesoPresupuestosCliente.dfm @@ -0,0 +1,128 @@ +object PluginProcesoPresupuestosCliente: TPluginProcesoPresupuestosCliente + OldCreateOrder = True + Description = 'Ventas' + ModuleMenu = MainMenu + ModuleName = 'Pedidos de cliente' + SmallImages = SmallImages + LargeImages = LargeImages + Author = 'Rodax Software' + Version = '1.0.0' + Height = 252 + Width = 401 + object LargeImages: TPngImageList + Height = 24 + Width = 24 + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000026C4944415478DA + 63FCFFFF3FC3A28DC7FF335009C4F95B3222F319611600254836ECEFDF7F40FC + 1F4C8380856F36C3C53DB3705BB0D7D21EC500E7E307711A8EACD674CF2E8679 + ABF730CC5FB211BF05A4B8FC808D2383328B34C3B6D3CB19225F7E6358B87E1F + 610BB0F9005D0C046C0FEE63386CEFC470F3FC21303FECD91786259B0E50E683 + FFFF80610DC47F80AE07B17FFF0386FF9F7F60DFFCF9F79761C596C3A4FB8018 + 00F285EF83770C6B771C23CE0298B749015E77DF306CD87D82380BF0A51C6C00 + A44771E55A864DFB4E126F01AEA082590E9387A9955BBE8661EB8153B4F381E4 + 92550CBB0E9FA1AE0F6EAA108EABC75FEDC8F3C1B4584686847408FBE74F0686 + 5F3F2018C4FEF903824F1C47B320DAC71C9C3B09F98058C3F9251818AEDC45B2 + 20C2D30C9C3BF1F90064388B207EDFFD798F301C250E42DD4C188E39B910B400 + E67A10F8F80EE2E21F5097FFFACEC070FA0C2468EC0D0F311C3C8FE483001723 + 86D32E6E785D078A5890664200643808A058E0EB60002F5720E5FC3F70D90316 + 0396F94FA343C11620FB001C247F81F83703C36F501C007D70ED3A420EC5022F + 5B3D9C8683E81771E11816FCFA05341888FF40E995ABD919D4357E32B0B160B1 + C0CD5A1BA7E1A012F44D62248605A038005B00F201106FDACACE202D0FB1808D + 9581E1F865240B1CCD35C086FDFB0B29967FFF4514C7FFFE432C3ADD2D8F62C1 + 9B1708C341166DDFCDCE202A0DB1E0F21D3B86F6750719E116D899A8814B447C + 806DAF0FDC0250F0BC7B89301C44EF39C0CEC02FFE93E1FE1388E128C9B477F2 + 7C82A9235D7236D882A993D971AA79F7DB1C6E38DC0262417738C73AA00181F8 + D4201B0E0200C20B50400F1E42A70000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end> + Left = 232 + Top = 16 + Bitmap = {} + end + object ModuleActionList: TActionList + Images = LargeImages + Left = 40 + Top = 72 + end + object MainMenu: TMainMenu + Images = LargeImages + Left = 40 + Top = 16 + object Ventas1: TMenuItem + Caption = 'Ventas' + end + end + object SmallImages: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001864944415478DA + 63FCFFFF3FC384055BFF3390010A12BC1919610600394469FAF3F71FC3EF3F7F + 192CBCB3192EEE99856AC05E4B2B14C5CEC78F81696471AB030719662EDFC530 + 7FC9464C03F0815FBFFF826D06D10BD7EDC36E00BA0BB001DDAD3B19966D3A84 + DB0098B341E01F50EECF9F7F709BCFB93B33686EDCCEB06ADB11FC06C05C627B + E830C3613B5BB8CD97BDDD1954D66E6158BFEB387E0360367FBA7990E1C5C218 + 7C3E72C130C0F1D85186FD56D66059719B070CAA2D350CECEC59183A7FFE9CC6 + 303BB68501C30090B3617E7EDAACCCA0D3FD0CAC180EBE7F6760F8F19D61FA0E + 4306966DA9080372623D190EDAD8A0D80272018A0120CD1FDE81E9E9279D510D + 488F7463F805B4F9CF6F50A8FF61B8EAEB816A004CF37B20FEF19361FACD6054 + 0312439DE19A415EB815E88D30E0432F42F3870F1017BC4A45352036C011AE19 + 140320D7FC9E6A0031E041354233D80540037E95A31A10E163CBB062CB61D438 + BA9A0A8E85E9CBE5B1C6218A01A084810EB478DF3058B39EC099081CE4195C00 + 45135E518E0B4E380000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end> + PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] + Left = 308 + Top = 16 + Bitmap = {} + end + object ExtraImages: TPngImageList + Height = 28 + Width = 28 + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF + 940000000970485973000017120000171201679FD252000003184944415478DA + BDD6DB4FD3501800F06F82F6C107E28391B8183418F14570720B48C655AEC328 + 8A08A2F1CD3FC3F860F8030CC6784110C1B1B13137184C186C5CD62108084443 + A2214613131FBC3C88BBB43DF6B4A3ACA36B3B48F8B6939EB6A7E777BE73D6B5 + 1A8410EC6568303830BECAA9B8CE15861F84B0CF7EB86FA4CE0D92FB2248DA97 + 24D9F1F5DA6C4D5CD0EA5E410DE567763C6A86ED83610749D30CD00C03858DB7 + 60C9618C0F5AC696D1958A4C7017146E6B504EFAE242B1ED0B263CF0D8380A9D + 966E7560A281C18CBA0B40B956C1B96085D61F01E8308F2983FD6FDEA3AB9559 + 7133943A5EEA9B8189C2F3B0B64C0AC79ABF6F4097755C1934BB965063D559D5 + 99E175A269C46DF1DA5114231CEBB17B9441936B115DABD24966A23670A60D5F + FE8071704A0538C282D53C183D4589C6A5F5DF60724E2B837DC30BA8A9E61C07 + CAFD2AE5025F7BCA3A0416974F19343ADF21F646DD3598DEEF00DBA85F197CE5 + 9C47CDB5390228B7969B038A6EB379CD71931D1CEE5965B077680EB5D4E5EE3A + 436DAF0D46BC732AC041163424063EBCA951D56E33BEFED5439BD5ABE1C09EC1 + B7E886214FF59462ECF69DEDE782418050802FB81E0CF0C54FC6802F1DB3A8B5 + 3E5F55863BC1525201563F4783F659D4529FC7FD55C981184B3EA47E1AA95F5B + 180E017CF19A64D7301FBC4545B253BA769294CC2E80B3D9E0330A44320BFD03 + 989BE7A7B2583709DE45BD186CAAC985E962BD6286B88344026338446097CD87 + 1AAB73802C2D5104A53214A690664B18208CD790CDF0C3C7AD7322B07360065D + AEC886F9CA32D9D1C69B521CA1100BB1858A6CFBCC04649C0EC281E438E0C532 + 5DE491438B5E1768867F7DA0D8FD89BBA992602C86B3B4D8083891CE82FB8143 + 45E073EB343294E86431BC3F79EFE836500A0BB3C53E4480368DCF10A3E44A14 + D8619942B5C559B2184D2198B9AF1581F1305C1F1E25E0B09607573EF118BE86 + 039FF54FA21A7D962C86B7FEB663022887E1ED98878094234158FFB68509E053 + B31755156572CF32B938E0367060FB0342D52DF1339C2FC204F089C983DABB1F + 2976A027FC7090495385E188C504702FE33F1F65CAE7611BEC0A000000004945 + 4E44AE426082} + Name = 'PngImage0' + Background = clWindow + end> + Left = 232 + Top = 80 + Bitmap = {} + end +end diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Plugin/uPluginProcesoPresupuestosCliente.pas b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/uPluginProcesoPresupuestosCliente.pas new file mode 100644 index 0000000..307d761 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Plugin/uPluginProcesoPresupuestosCliente.pas @@ -0,0 +1,71 @@ +unit uPluginProcesoPresupuestosCliente; + +interface + +uses + uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, + ImgList, Controls, PngImageList, uPlugins_Intf, FactuGES_Intf; + +type + TPluginProcesoPresupuestosCliente = class(TModuleController, IMCProcesoPresupuestosCliente) + ExtraImages: TPngImageList; + LargeImages: TPngImageList; + MainMenu: TMainMenu; + ModuleActionList: TActionList; + SmallImages: TPngImageList; + Ventas1: TMenuItem; + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure VerPresupuestos(const ListaIDPresupuestosCliente : TIntegerArray); + end; + +implementation + +{$R *.dfm} + +uses + Forms, Dialogs, SysUtils, cxControls, + uProcesoPresupuestosClienteController, uProcesoPresupuestosClienteViewRegister; + +function GetModule : TModuleController; +begin + Result := TPluginProcesoPresupuestosCliente.Create(NIL); +end; + +exports + GetModule name GET_MODULE_FUNC; + +constructor TPluginProcesoPresupuestosCliente.Create(AOwner: TComponent); +begin + inherited; + ModuleName := MODULENAME_PROCESO_PRESUPUESTOS_CLIENTE; + uProcesoPresupuestosClienteViewRegister.RegisterViews; +end; + +destructor TPluginProcesoPresupuestosCliente.Destroy; +begin + uProcesoPresupuestosClienteViewRegister.UnregisterViews; + inherited; +end; + +procedure TPluginProcesoPresupuestosCliente.VerPresupuestos(const ListaIDPresupuestosCliente: TIntegerArray); +var + AProcesoPresupuestosClienteController : IProcesoPresupuestosClienteController; +begin + AProcesoPresupuestosClienteController := TProcesoPresupuestosClienteController.Create; + try + ShowHourglassCursor; + AProcesoPresupuestosClienteController.VerProceso(ListaIDPresupuestosCliente); + finally + AProcesoPresupuestosClienteController := NIL; + end; +end; + +initialization + RegisterModuleClass(TPluginProcesoPresupuestosCliente); + +finalization + UnRegisterModuleClass(TPluginProcesoPresupuestosCliente); + +end. diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dpk b/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dpk new file mode 100644 index 0000000..6c830ec --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dpk @@ -0,0 +1,39 @@ +package ProcesoPresupuestosCliente_view; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD OFF} + +requires + ApplicationBase, + PedidosProveedor_model, + PedidosCliente_model, + ProcesoPresupuestosCliente_controller, + AlbaranesProveedor_model; + +contains + uProcesoPresupuestosClienteViewRegister in 'uProcesoPresupuestosClienteViewRegister.pas', + uEditorProcesoPresupuestosCliente in 'uEditorProcesoPresupuestosCliente.pas' {fEditorProcesoPresupuestosCliente: TfEditorPedidosProveedor}, + uViewProcesoPresupuestosCliente in 'uViewProcesoPresupuestosCliente.pas' {frViewProcesoPresupuestosCliente: TFrame}; + +end. diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dproj b/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dproj new file mode 100644 index 0000000..86a1f3d --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dproj @@ -0,0 +1,550 @@ + + + + {9e558626-cf49-4cff-a178-e12c186758ac} + ProcesoPresupuestosCliente_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\ProcesoPresupuestosCliente_view.bpl + + + 7.0 + False + False + 0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0ProcesoPresupuestosCliente_view.dpk + + + + + MainSource + + + + + + + +
fEditorProcesoPresupuestosCliente
+ TfEditorPedidosProveedor + + + +
frViewProcesoPresupuestosCliente
+ TFrame + + + + diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.drc b/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.drc new file mode 100644 index 0000000..302c683 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.drc @@ -0,0 +1,18 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\uViewProcesoPresupuestosCliente.dfm */ +/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\uEditorProcesoPresupuestosCliente.dfm */ +/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.res */ +/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.drf */ diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorListadoProcesoPedidoCliente.dfm b/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorListadoProcesoPedidoCliente.dfm similarity index 100% rename from Source/Modulos/Pedidos de cliente/Views/uEditorListadoProcesoPedidoCliente.dfm rename to Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorListadoProcesoPedidoCliente.dfm diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorListadoProcesoPedidoCliente.pas b/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorListadoProcesoPedidoCliente.pas similarity index 100% rename from Source/Modulos/Pedidos de cliente/Views/uEditorListadoProcesoPedidoCliente.pas rename to Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorListadoProcesoPedidoCliente.pas diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.dfm b/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.dfm new file mode 100644 index 0000000..b53c140 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.dfm @@ -0,0 +1,155 @@ +inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente + Caption = 'fEditorProcesoPresupuestosCliente' + PixelsPerInch = 96 + TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + Caption = 'Listado de proceso completo de presupuesto de cliente' + end + inherited TBXDock: TTBXDock + inherited tbxMain: TTBXToolbar + ExplicitWidth = 358 + end + end + inline frViewProcesoPresupuestosCliente1: TfrViewProcesoPresupuestosCliente [3] + Left = 0 + Top = 102 + Width = 894 + Height = 383 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 3 + ReadOnly = False + ExplicitTop = 102 + ExplicitWidth = 894 + ExplicitHeight = 383 + inherited cxGrid: TcxGrid + Width = 894 + Height = 255 + ExplicitWidth = 894 + ExplicitHeight = 255 + end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 894 + ExplicitWidth = 894 + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 894 + inherited dxLayoutControl1: TdxLayoutControl + Width = 894 + ExplicitWidth = 894 + inherited txtFiltroTodo: TcxTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + end + inherited edtFechaIniFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + end + inherited edtFechaFinFiltro: TcxDateEdit + Left = 391 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 391 + end + inherited eLista: TcxComboBox + Left = 659 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 659 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 894 + ExplicitWidth = 894 + inherited tbxBotones: TTBXToolbar + Width = 884 + ExplicitWidth = 884 + end + end + end + end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 357 + ExplicitTop = 357 + ExplicitWidth = 894 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 894 + ExplicitWidth = 894 + inherited TBXToolbar1: TTBXToolbar + Width = 884 + ExplicitWidth = 884 + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + ReportDocument.CreationDate = 41516.564243344910000000 + BuiltInReportLink = True + end + end + inherited cxViewGridPopupMenu: TcxGridPopupMenu + PopupMenus = < + item + GridView = frViewProcesoPresupuestosCliente1.cxGridView + HitTypes = [gvhtCell] + Index = 0 + end> + end + end + inherited EditorActionList: TActionList [4] + inherited actNuevo: TAction + Enabled = False + Visible = False + end + inherited actModificar: TAction + Enabled = False + Visible = False + end + inherited actGuardarCerrar: TAction + Visible = False + end + inherited actGuardar: TAction + Visible = False + end + inherited actEliminar: TAction + Enabled = False + Visible = False + end + inherited actPrevisualizar: TAction + Visible = True + end + inherited actImprimir: TAction + Visible = True + end + inherited actDuplicar: TAction + Enabled = False + Visible = False + end + end + inherited SmallImages: TPngImageList [5] + end + inherited LargeImages: TPngImageList [6] + end + inherited JvFormStorage: TJvFormStorage [7] + end + inherited dsDataTable: TDADataSource [8] + Left = 40 + Top = 120 + end + inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] + end + inherited StatusBarImages: TPngImageList [10] + end +end diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.pas b/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.pas new file mode 100644 index 0000000..348bc80 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.pas @@ -0,0 +1,154 @@ +unit uEditorProcesoPresupuestosCliente; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uEditorGridBase, Menus, JvAppStorage, JvAppRegistryStorage, DB, + uDAInterfaces, uDADataTable, JvComponentBase, JvFormPlacement, ImgList, + PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, + TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, + JvExControls, JvNavigationPane, uIEditorProcesoPresupuestosCLiente, + uCustomView, uViewBase, uViewGridBase, uViewGrid, + uViewProcesoPresupuestosCliente, uBizPedidosCliente, uBizPedidosProveedor, + uBizAlbaranesProveedor, uBizFacturasProveedor; + +type + TfEditorProcesoPresupuestosCliente = class(TfEditorGridBase, IEditorProcesoPresupuestosCliente) + frViewProcesoPresupuestosCliente1: TfrViewProcesoPresupuestosCliente; + procedure FormShow(Sender: TObject); + protected + FPedidosCliente: IBizPedidoCliente; + FPedidosProveedor: IBizPedidoProveedor; + FAlbaranesProveedor: IBizAlbaranProveedor; + FFacturasProveedor: IBizFacturaProveedor; + + function GetPedidosCliente: IBizPedidoCliente; + procedure SetPedidosCliente(const Value: IBizPedidoCliente); + function GetPedidosProveedor: IBizPedidoProveedor; + procedure SetPedidosProveedor(const Value: IBizPedidoProveedor); + function GetAlbaranesProveedor: IBizAlbaranProveedor; + procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor); + function GetFacturasProveedor: IBizFacturaProveedor; + procedure SetFacturasProveedor(const Value: IBizFacturaProveedor); + + public + property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente; + property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor; + property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor; + property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor; + + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + + +implementation + +{$R *.dfm} + +{ TfEditorListadoProcesoPedidoCliente } + +constructor TfEditorProcesoPresupuestosCliente.Create(AOwner: TComponent); +begin + inherited; + ViewGrid := frViewProcesoPresupuestosCliente1; +end; + +destructor TfEditorProcesoPresupuestosCliente.Destroy; +begin + FPedidosCliente := Nil; + FPedidosProveedor := Nil; + FAlbaranesProveedor := Nil; + FFacturasProveedor := Nil; + inherited; +end; + +procedure TfEditorProcesoPresupuestosCliente.FormShow(Sender: TObject); +begin + inherited; + + if not Assigned(ViewGrid) then + raise Exception.Create('No hay ninguna vista asignada'); + + if not Assigned(PedidosCliente) then + raise Exception.Create('No hay ningun pedido de cliente asignado'); + PedidosCliente.DataTable.Active := True; + + if not Assigned(PedidosProveedor) then + raise Exception.Create('No hay ningun pedido de proveedor asignado'); + PedidosProveedor.DataTable.Active := True; + + if not Assigned(AlbaranesProveedor) then + raise Exception.Create('No hay ningun albarán de proveedor asignado'); + AlbaranesProveedor.DataTable.Active := True; + + if not Assigned(FacturasProveedor) then + raise Exception.Create('No hay ninguna factura de proveedor asignado'); + FacturasProveedor.DataTable.Active := True; + + ViewGrid.GotoFirst; +end; + +function TfEditorProcesoPresupuestosCliente.GetAlbaranesProveedor: IBizAlbaranProveedor; +begin + Result := FAlbaranesProveedor; +end; + +function TfEditorProcesoPresupuestosCliente.GetFacturasProveedor: IBizFacturaProveedor; +begin + Result := FFacturasProveedor; +end; + +function TfEditorProcesoPresupuestosCliente.GetPedidosCliente: IBizPedidoCliente; +begin + Result := FPedidosCliente; +end; + +function TfEditorProcesoPresupuestosCliente.GetPedidosProveedor: IBizPedidoProveedor; +begin + Result := FPedidosProveedor; +end; + +procedure TfEditorProcesoPresupuestosCliente.SetAlbaranesProveedor(const Value: IBizAlbaranProveedor); +begin + FAlbaranesProveedor := Value; + if Assigned(FAlbaranesProveedor) then + begin + if Assigned(ViewGrid) then + (ViewGrid as IViewListadoProcesoPedidoCliente).AlbaranesProveedor := AlbaranesProveedor; + end; +end; + +procedure TfEditorProcesoPresupuestosCliente.SetFacturasProveedor(const Value: IBizFacturaProveedor); +begin + FFacturasProveedor := Value; + if Assigned(FFacturasProveedor) then + begin + if Assigned(ViewGrid) then + (ViewGrid as IViewListadoProcesoPedidoCliente).FacturasProveedor := FacturasProveedor; + end; +end; + +procedure TfEditorProcesoPresupuestosCliente.SetPedidosCliente(const Value: IBizPedidoCliente); +begin + FPedidosCliente := Value; + if Assigned(FPedidosCliente) then + begin + dsDataTable.DataTable := FPedidosCliente.DataTable; + if Assigned(ViewGrid) then + (ViewGrid as IViewListadoProcesoPedidoCliente).PedidosCliente := PedidosCliente; + end; +end; + +procedure TfEditorProcesoPresupuestosCliente.SetPedidosProveedor(const Value: IBizPedidoProveedor); +begin + FPedidosProveedor := Value; + if Assigned(FPedidosProveedor) then + begin + if Assigned(ViewGrid) then + (ViewGrid as IViewListadoProcesoPedidoCliente).PedidosProveedor := PedidosProveedor; + end; +end; + +end. diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/uProcesoPresupuestosClienteViewRegister.pas b/Source/Modulos/ProcesoPresupuestoCliente/Views/uProcesoPresupuestosClienteViewRegister.pas new file mode 100644 index 0000000..eaf0232 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/uProcesoPresupuestosClienteViewRegister.pas @@ -0,0 +1,25 @@ +unit uProcesoPresupuestosClienteViewRegister; + +interface + +procedure RegisterViews; +procedure UnregisterViews; + +implementation + +uses + uEditorRegistryUtils, + uEditorProcesoPresupuestosCLiente; + +procedure RegisterViews; +begin + EditorRegistry.RegisterClass(TfEditorProcesoPresupuestosCliente, 'EditorProcesoPresupuestosCliente'); +end; + +procedure UnregisterViews; +begin + EditorRegistry.UnRegisterClass(TfEditorProcesoPresupuestosCliente); +end; + +end. + diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.dfm b/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.dfm new file mode 100644 index 0000000..10b69b9 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.dfm @@ -0,0 +1,210 @@ +inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente + OnShow = CustomViewShow + inherited cxGrid: TcxGrid + inherited cxGridView: TcxGridDBTableView + DataController.KeyFieldNames = 'ID' + OptionsCustomize.ColumnsQuickCustomization = False + OptionsView.Footer = False + inherited cxGridViewICONO: TcxGridDBColumn + Visible = False + VisibleForCustomization = False + end + object cxGridViewREFERENCIA: TcxGridDBColumn + Caption = 'Ref. Ped. Cliente' + DataBinding.FieldName = 'REFERENCIA' + end + object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn + Caption = 'Ref. del Cliente' + DataBinding.FieldName = 'REFERENCIA_CLIENTE' + end + object cxGridViewNOMBRE: TcxGridDBColumn + Caption = 'Cliente' + DataBinding.FieldName = 'NOMBRE' + end + object cxGridViewSITUACION: TcxGridDBColumn + Caption = 'Situaci'#243'n' + DataBinding.FieldName = 'SITUACION' + end + object cxGridViewFECHA_PEDIDO: TcxGridDBColumn + Caption = 'Fecha' + DataBinding.FieldName = 'FECHA_PEDIDO' + end + end + object cxGridViewPedidosProveedor: TcxGridDBTableView [1] + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = dsPedidosProveedor + DataController.DetailKeyFieldNames = 'ID_PEDIDO_CLIENTE' + DataController.KeyFieldNames = 'ID' + DataController.MasterKeyFieldNames = 'ID' + DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.CellHints = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsData.Editing = False + OptionsData.Inserting = False + OptionsSelection.CellSelect = False + OptionsSelection.UnselectFocusedRecordOnExit = False + OptionsView.CellEndEllipsis = True + OptionsView.NoDataToDisplayInfoText = '' + OptionsView.CellAutoHeight = True + OptionsView.ColumnAutoWidth = True + OptionsView.GridLineColor = cl3DLight + OptionsView.GridLines = glHorizontal + OptionsView.GroupByBox = False + OptionsView.GroupRowStyle = grsOffice11 + OptionsView.HeaderEndEllipsis = True + object cxGridViewPedidosProveedorREFERENCIA: TcxGridDBColumn + Caption = 'Ref. Ped. Proveedor' + DataBinding.FieldName = 'REFERENCIA' + end + object cxGridViewPedidosProveedorNOMBRE: TcxGridDBColumn + Caption = 'Proveedor' + DataBinding.FieldName = 'NOMBRE' + end + object cxGridViewPedidosProveedorSITUACION: TcxGridDBColumn + DataBinding.FieldName = 'SITUACION' + end + object cxGridViewPedidosProveedorFECHA_PEDIDO: TcxGridDBColumn + Caption = 'Fecha' + DataBinding.FieldName = 'FECHA_PEDIDO' + end + end + object cxGridViewAlbaranesProveedor: TcxGridDBTableView [2] + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = dsAlbaranesProveedor + DataController.DetailKeyFieldNames = 'ID_PEDIDO' + DataController.KeyFieldNames = 'ID' + DataController.MasterKeyFieldNames = 'ID' + DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.CellHints = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsData.Editing = False + OptionsData.Inserting = False + OptionsSelection.CellSelect = False + OptionsSelection.UnselectFocusedRecordOnExit = False + OptionsView.CellEndEllipsis = True + OptionsView.NoDataToDisplayInfoText = '' + OptionsView.CellAutoHeight = True + OptionsView.ColumnAutoWidth = True + OptionsView.GridLineColor = cl3DLight + OptionsView.GridLines = glHorizontal + OptionsView.GroupByBox = False + OptionsView.GroupRowStyle = grsOffice11 + OptionsView.HeaderEndEllipsis = True + object cxGridViewAlbaranesProveedorREFERENCIA: TcxGridDBColumn + DataBinding.FieldName = 'REFERENCIA' + end + object cxGridViewAlbaranesProveedorSITUACION: TcxGridDBColumn + DataBinding.FieldName = 'SITUACION' + end + object cxGridViewAlbaranesProveedorFECHA_ALBARAN: TcxGridDBColumn + DataBinding.FieldName = 'FECHA_ALBARAN' + end + end + object cxGridViewFacturasProveedor: TcxGridDBTableView [3] + NavigatorButtons.ConfirmDelete = False + DataController.DataSource = dsFacturasProveedor + DataController.DetailKeyFieldNames = 'ID_ALBARAN' + DataController.KeyFieldNames = 'ID' + DataController.MasterKeyFieldNames = 'ID' + DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.CellHints = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsData.Editing = False + OptionsData.Inserting = False + OptionsSelection.CellSelect = False + OptionsSelection.UnselectFocusedRecordOnExit = False + OptionsView.CellEndEllipsis = True + OptionsView.NoDataToDisplayInfoText = '' + OptionsView.CellAutoHeight = True + OptionsView.ColumnAutoWidth = True + OptionsView.GridLineColor = cl3DLight + OptionsView.GridLines = glHorizontal + OptionsView.GroupByBox = False + OptionsView.GroupRowStyle = grsOffice11 + OptionsView.HeaderEndEllipsis = True + object cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn + DataBinding.FieldName = 'REFERENCIA' + end + end + inherited cxGridLevel: TcxGridLevel + object cxGridLevelPedidosProveedor: TcxGridLevel + GridView = cxGridViewPedidosProveedor + object cxGridLevelAlbaranesProveedor: TcxGridLevel + GridView = cxGridViewAlbaranesProveedor + object cxGridLevelFacturasProveedor: TcxGridLevel + GridView = cxGridViewFacturasProveedor + end + end + end + end + end + inherited frViewFiltroBase1: TfrViewFiltroBase + inherited TBXDockablePanel1: TTBXDockablePanel + inherited dxLayoutControl1: TdxLayoutControl + inherited txtFiltroTodo: TcxTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + end + inherited edtFechaIniFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 272 + Width = 272 + end + inherited edtFechaFinFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 221 + Width = 221 + end + inherited eLista: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 215 + Width = 215 + end + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + ReportDocument.CreationDate = 41514.488531400460000000 + BuiltInReportLink = True + end + end + object dsPedidosProveedor: TDADataSource + Left = 8 + Top = 64 + end + object dsAlbaranesProveedor: TDADataSource + Left = 8 + Top = 112 + end + object dsFacturasProveedor: TDADataSource + Left = 8 + Top = 152 + end +end diff --git a/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas b/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas new file mode 100644 index 0000000..3172ea6 --- /dev/null +++ b/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas @@ -0,0 +1,167 @@ +unit uViewProcesoPresupuestosCliente; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, + dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, + dxPSEdgePatterns, cxGridCustomPopupMenu, cxGridPopupMenu, ImgList, + PngImageList, ActnList, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uDAInterfaces, + uDADataTable, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uCustomView, + uViewBase, uViewFiltroBase, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, + cxGrid, uBizPedidosCliente, uBizPedidosProveedor, uBizAlbaranesProveedor, + uBizFacturasProveedor, Grids, DBGrids; + +type + IViewListadoProcesoPedidoCliente = interface(IViewGrid) + ['{51AE72F0-E6F7-49E6-A376-EBFB5B118E62}'] + function GetPedidosCliente: IBizPedidoCliente; + procedure SetPedidosCliente(const Value: IBizPedidoCliente); + property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente; + + function GetPedidosProveedor: IBizPedidoProveedor; + procedure SetPedidosProveedor(const Value: IBizPedidoProveedor); + property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor; + + function GetAlbaranesProveedor: IBizAlbaranProveedor; + procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor); + property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor; + + function GetFacturasProveedor: IBizFacturaProveedor; + procedure SetFacturasProveedor(const Value: IBizFacturaProveedor); + property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor; + + end; + + TfrViewProcesoPresupuestosCliente = class(TfrViewGrid, IViewListadoProcesoPedidoCliente) + cxGridViewREFERENCIA: TcxGridDBColumn; + cxGridViewNOMBRE: TcxGridDBColumn; + cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn; + cxGridViewSITUACION: TcxGridDBColumn; + dsPedidosProveedor: TDADataSource; + cxGridViewPedidosProveedor: TcxGridDBTableView; + cxGridViewPedidosProveedorREFERENCIA: TcxGridDBColumn; + cxGridLevelPedidosProveedor: TcxGridLevel; + cxGridViewPedidosProveedorNOMBRE: TcxGridDBColumn; + cxGridViewFECHA_PEDIDO: TcxGridDBColumn; + cxGridViewPedidosProveedorFECHA_PEDIDO: TcxGridDBColumn; + cxGridViewPedidosProveedorSITUACION: TcxGridDBColumn; + dsAlbaranesProveedor: TDADataSource; + cxGridLevelAlbaranesProveedor: TcxGridLevel; + cxGridViewAlbaranesProveedor: TcxGridDBTableView; + cxGridViewAlbaranesProveedorREFERENCIA: TcxGridDBColumn; + cxGridViewAlbaranesProveedorSITUACION: TcxGridDBColumn; + cxGridViewAlbaranesProveedorFECHA_ALBARAN: TcxGridDBColumn; + dsFacturasProveedor: TDADataSource; + cxGridLevelFacturasProveedor: TcxGridLevel; + cxGridViewFacturasProveedor: TcxGridDBTableView; + cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn; + procedure CustomViewShow(Sender: TObject); + protected + FPedidosCliente: IBizPedidoCliente; + FPedidosProveedor: IBizPedidoProveedor; + FAlbaranesProveedor: IBizAlbaranProveedor; + FFacturasProveedor: IBizFacturaProveedor; + + function GetPedidosCliente: IBizPedidoCliente; + procedure SetPedidosCliente(const Value: IBizPedidoCliente); + + function GetPedidosProveedor: IBizPedidoProveedor; + procedure SetPedidosProveedor(const Value: IBizPedidoProveedor); + + function GetAlbaranesProveedor: IBizAlbaranProveedor; + procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor); + + function GetFacturasProveedor: IBizFacturaProveedor; + procedure SetFacturasProveedor(const Value: IBizFacturaProveedor); + + public + property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente; + property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor; + property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor; + property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor; + + destructor Destroy; override; + end; + +implementation +{$R *.dfm} + +{ TfrViewListadoProcesoPedidoCliente } + +procedure TfrViewProcesoPresupuestosCliente.CustomViewShow(Sender: TObject); +begin + inherited; + if Assigned(FPedidosCliente) then + FPedidosCliente.Active := True; +end; + +destructor TfrViewProcesoPresupuestosCliente.Destroy; +begin + FPedidosCliente:= Nil; + FPedidosProveedor:= Nil; + FAlbaranesProveedor:= Nil; + FFacturasProveedor:= Nil; + inherited; +end; + +function TfrViewProcesoPresupuestosCliente.GetAlbaranesProveedor: IBizAlbaranProveedor; +begin + REsult := FAlbaranesProveedor; +end; + +function TfrViewProcesoPresupuestosCliente.GetFacturasProveedor: IBizFacturaProveedor; +begin + Result := FFacturasProveedor; +end; + +function TfrViewProcesoPresupuestosCliente.GetPedidosCliente: IBizPedidoCliente; +begin + Result := FPedidosCliente; +end; + +function TfrViewProcesoPresupuestosCliente.GetPedidosProveedor: IBizPedidoProveedor; +begin + Result := FPedidosProveedor; +end; + +procedure TfrViewProcesoPresupuestosCliente.SetAlbaranesProveedor(const Value: IBizAlbaranProveedor); +begin + FAlbaranesProveedor := Value; + if Assigned(FAlbaranesProveedor) then + dsAlbaranesProveedor.DataTable := FAlbaranesProveedor.DataTable + else + dsAlbaranesProveedor.DataTable := Nil; +end; + +procedure TfrViewProcesoPresupuestosCliente.SetFacturasProveedor(const Value: IBizFacturaProveedor); +begin + FFacturasProveedor := Value; + if Assigned(FFacturasProveedor) then + dsFacturasProveedor.DataTable := FFacturasProveedor.DataTable + else + dsFacturasProveedor.DataTable := Nil; +end; + +procedure TfrViewProcesoPresupuestosCliente.SetPedidosCliente(const Value: IBizPedidoCliente); +begin + FPedidosCliente := Value; + if Assigned(FPedidosCliente) then + dsDataSource.DataTable := FPedidosCliente.DataTable + else + dsDataSource.DataTable := Nil; +end; + +procedure TfrViewProcesoPresupuestosCliente.SetPedidosProveedor(const Value: IBizPedidoProveedor); +begin + FPedidosProveedor := Value; + if Assigned(FPedidosProveedor) then + dsPedidosProveedor.DataTable := FPedidosProveedor.DataTable + else + dsPedidosProveedor.DataTable := Nil; +end; + +end. diff --git a/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc b/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc index cd7dc3f..e59d825 100644 --- a/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc +++ b/Source/Modulos/Tienda web/Data/TiendaWeb_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */ /* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */ -/* c:\temp\dtf69C.tmp */ +/* c:\temp\dtfB2F.tmp */ diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index b60e922..fcc30cc 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 4ae9af9..9d085fe 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -141,8 +141,6 @@ uses uBizOscProductServer in '..\Modulos\Tienda web\Model\uBizOscProductServer.pas', uTiendaWebUtils in 'Utiles\uTiendaWebUtils.pas', uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame}, - schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', - schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas', @@ -160,10 +158,12 @@ uses schInfVentasArticuloServer_Intf in '..\Modulos\Informe ventas por articulo\Model\schInfVentasArticuloServer_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', + schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', + schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas', - schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', - schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas'; + schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', + schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 7931282..5bab92f 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,407 +1,407 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - True - True - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 - - - Delphi.Personality - - - FalseTrueFalse/standaloneTrueFalse4320FalseFalseFalseFalseFalse308212524.3.2.04.3.2.0viernes, 19 de julio de 2013 13:48 - ExpressPrinting System by Developer Express Inc. - FactuGES_Server.dprFalse - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones_Impl
- TDataModule - - - - -
srvUsuarios
- TDataAbstractService - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - - TDataModule -
RptWordAlbaranCliente
- - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
RptAlbaranesProveedor
- TDataModule - - - TDataModule -
RptWordAlbaranProveedor
- - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - - TDataModule -
RptWordFacturaCliente
- - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - -
srvFamilias
- TDataAbstractService - - - - -
srvFormasPago
- TDataAbstractService - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvImpresiones
- TDARemoteService - - -
srvInfMargenArticulo
- TDARemoteService - - - - -
srvInfVentasArticulo
- TDataAbstractService - - - - -
srvInformes
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvObras
- TDataAbstractService - - - - - -
RptPedidosProveedor
- TDataModule - - - TDataModule -
RptWordPedidoProveedor
- - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPedidosCliente
- TDataModule - - -
srvPedidosCliente
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- TDataModule - - - TDataModule -
RptWordCertificadoTrabajo
- - - TDataModule -
RptWordPresupuestoCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - -
srvRegistroCorreos
- TDataAbstractService - - - - - -
RptRemesasCliente
- TDataModule - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
RptRemesasProveedor
- TDataModule - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - - - - -
srvTiendaWeb
- TDataAbstractService - - - - -
srvTiposIVA
- TDataAbstractService - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConexionOSC
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + True + True + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10 + + + Delphi.Personality + + +FalseTrueFalse/standaloneTrueFalse4320FalseFalseFalseFalseFalse308212524.3.2.04.3.2.0viernes, 19 de julio de 2013 13:48 + ExpressPrinting System by Developer Express Inc. + FactuGES_Server.dprFalse + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones_Impl
+ TDataModule + + + + +
srvUsuarios
+ TDataAbstractService + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + + TDataModule +
RptWordAlbaranCliente
+ + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
RptAlbaranesProveedor
+ TDataModule + + + TDataModule +
RptWordAlbaranProveedor
+ + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + + TDataModule +
RptWordFacturaCliente
+ + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + +
srvFamilias
+ TDataAbstractService + + + + +
srvFormasPago
+ TDataAbstractService + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvImpresiones
+ TDARemoteService + + +
srvInfMargenArticulo
+ TDARemoteService + + + + +
srvInfVentasArticulo
+ TDataAbstractService + + + + +
srvInformes
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvObras
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + + TDataModule +
RptWordPedidoProveedor
+ + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPedidosCliente
+ TDataModule + + +
srvPedidosCliente
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + + TDataModule +
RptWordCertificadoTrabajo
+ + + TDataModule +
RptWordPresupuestoCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + +
srvRegistroCorreos
+ TDataAbstractService + + + + + +
RptRemesasCliente
+ TDataModule + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
RptRemesasProveedor
+ TDataModule + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + + + + +
srvTiendaWeb
+ TDataAbstractService + + + + +
srvTiposIVA
+ TDataAbstractService + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConexionOSC
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + + +