diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 8c0378a6..c6f5c598 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -747,7 +747,8 @@ CREATE TABLE FACTURAS_PROVEEDOR ( FECHA_VENCIMIENTO DATE, FECHA_RECEPCION DATE, RETENCION TIPO_PORCENTAJE, - IMPORTE_RETENCION TIPO_IMPORTE + IMPORTE_RETENCION TIPO_IMPORTE, + ID_PEDIDO TIPO_ID ); CREATE TABLE FACTURAS_PROVEEDOR_DETALLES ( @@ -1049,7 +1050,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE ( ID_DIRECCION TIPO_ID, DESCRIPCION_BONIFICACION VARCHAR(255) COLLATE ES_ES, IMPORTE_BONIFICACION TIPO_IMPORTE, - CERTIFICADO_ISO TIPO_BOOLEANO + CERTIFICADO_ISO TIPO_BOOLEANO, + ID_PRESUPUESTO TIPO_ID ); CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES ( @@ -2099,7 +2101,9 @@ CREATE VIEW V_FACTURAS_CLIENTE( REFERENCIA_COMISION, RETENCION, IMPORTE_RETENCION, - CERTIFICADO_ISO) + CERTIFICADO_ISO, + ID_PRESUPUESTO, + REFERENCIA_PRESUPUESTO) AS SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.ID_EMPRESA, @@ -2141,7 +2145,9 @@ SELECT FACTURAS_CLIENTE.ID, COMISIONES_LIQUIDADAS.REFERENCIA, FACTURAS_CLIENTE.RETENCION, FACTURAS_CLIENTE.IMPORTE_RETENCION, - FACTURAS_CLIENTE.CERTIFICADO_ISO + FACTURAS_CLIENTE.CERTIFICADO_ISO, + FACTURAS_CLIENTE.ID_PRESUPUESTO, + PRESUPUESTOS_CLIENTE.REFERENCIA as REFERENCIA_PRE FROM V_FAC_CLI_SITUACION LEFT JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) @@ -2149,6 +2155,8 @@ SELECT FACTURAS_CLIENTE.ID, ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA) LEFT JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE) + LEFT JOIN PRESUPUESTOS_CLIENTE + ON (PRESUPUESTOS_CLIENTE.ID = FACTURAS_CLIENTE.ID_PRESUPUESTO) ; @@ -2187,7 +2195,11 @@ CREATE VIEW V_FACTURAS_PROVEEDOR( ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE, - DATOS_BANCARIOS) + DATOS_BANCARIOS, + RETENCION, + IMPORTE_RETENCION, + ID_PEDIDO, + REFERENCIA_PEDIDO) AS SELECT FACTURAS_PROVEEDOR.ID, FACTURAS_PROVEEDOR.ID_EMPRESA, @@ -2222,13 +2234,19 @@ SELECT FACTURAS_PROVEEDOR.ID, FACTURAS_PROVEEDOR.ID_TIPO_IVA, FACTURAS_PROVEEDOR.IMPORTE_NETO, FACTURAS_PROVEEDOR.IMPORTE_PORTE, - FACTURAS_PROVEEDOR.DATOS_BANCARIOS + FACTURAS_PROVEEDOR.DATOS_BANCARIOS, + FACTURAS_PROVEEDOR.RETENCION, + FACTURAS_PROVEEDOR.IMPORTE_RETENCION, + FACTURAS_PROVEEDOR.ID_PEDIDO, + PEDIDOS_PROVEEDOR.REFERENCIA as REFERENCIA_PED 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 PEDIDOS_PROVEEDOR + ON (PEDIDOS_PROVEEDOR.ID = FACTURAS_PROVEEDOR.ID_PEDIDO); + @@ -2944,7 +2962,7 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR( ID, ID_EMPRESA, ID_PROVEEDOR, - NOMBRE, + NOMBRE, ID_DIRECCION, PERSONA_CONTACTO_PROV, REFERENCIA, @@ -2980,9 +2998,7 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR( BASE_IMPONIBLE, IVA, IMPORTE_IVA, - ID_FORMA_PAGO, - ID_FACTURA, - REF_FACTURA_PROV) + ID_FORMA_PAGO) AS SELECT PEDIDOS_PROVEEDOR.ID, @@ -3024,9 +3040,7 @@ SELECT PEDIDOS_PROVEEDOR.BASE_IMPONIBLE, PEDIDOS_PROVEEDOR.IVA, PEDIDOS_PROVEEDOR.IMPORTE_IVA, - PEDIDOS_PROVEEDOR.ID_FORMA_PAGO, - PEDIDOS_PROVEEDOR.ID_FACTURA, - FACTURAS_PROVEEDOR.REFERENCIA + PEDIDOS_PROVEEDOR.ID_FORMA_PAGO FROM PEDIDOS_PROVEEDOR @@ -3035,7 +3049,6 @@ FROM LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN) LEFT OUTER JOIN ALMACENES OBRAS ON (OBRAS.ID = PEDIDOS_PROVEEDOR.ID_OBRA) LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE) - LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = PEDIDOS_PROVEEDOR.ID_FACTURA) ; @@ -3072,8 +3085,6 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE( IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, - ID_FACTURA, - FACTURA, PERSONA_CONTACTO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION, @@ -3110,8 +3121,6 @@ SELECT PRESUPUESTOS_CLIENTE.IMPORTE_IVA, PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL, PRESUPUESTOS_CLIENTE.ID_FORMA_PAGO, - PRESUPUESTOS_CLIENTE.ID_FACTURA, - FACTURAS_CLIENTE.REFERENCIA, PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO, PRESUPUESTOS_CLIENTE.DESCRIPCION_BONIFICACION, PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION, @@ -3119,7 +3128,6 @@ SELECT FROM PRESUPUESTOS_CLIENTE INNER JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_CLIENTE) - LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_FACTURA) ; diff --git a/Source/ApplicationBase/uPlugins_Intf.pas b/Source/ApplicationBase/uPlugins_Intf.pas index 35e0b76a..74335166 100644 --- a/Source/ApplicationBase/uPlugins_Intf.pas +++ b/Source/ApplicationBase/uPlugins_Intf.pas @@ -29,8 +29,8 @@ type IMCFacturasCliente = interface(IInterface) ['{DA2FEEA4-4B37-4510-9CE8-6223F9894DEE}'] - procedure VerFacturas(const ID_Cliente: Integer; - const ANombreCliente : String = ''); + procedure VerFacturas(const ID_Cliente: Integer; const ANombreCliente : String = ''); + procedure VerFacturasPresupuesto(const ID_Presupuesto: Integer; const ARefPresupuesto : String = ''; const ANombreCliente : String = ''); end; IMCRecibosCliente = interface(IInterface) @@ -55,8 +55,8 @@ type IMCFacturasProveedor = interface(IInterface) ['{8A48058F-490E-4BF4-9BBB-09654B66CEED}'] - procedure VerFacturas(const ID_Proveedor: Integer; - const ANombreProveedor : String = ''); + procedure VerFacturas(const ID_Proveedor: Integer; const ANombreProveedor : String = ''); + procedure VerFacturasDePedido(const ID_Pedido: Integer; const AReferencia : String = ''; const ANombreProveedor : String = ''); end; IMCRecibosProveedor = interface(IInterface) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 857051e0..2aec1ecd 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -54,58 +54,58 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 4476ffe1..91adaf98 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -23,6 +23,7 @@ type function BuscarTodos: IBizFacturaCliente; overload; function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload; function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente; + function BuscarDePresupuesto(const AID_Presupuesto: Integer): IBizFacturaCliente; procedure Ver(AFactura : IBizFacturaCliente); procedure VerTodos(AFacturas: IBizFacturaCliente; const AVerModal : Boolean = False; const AWindowCaption: String = ''; @@ -107,6 +108,7 @@ type function BuscarTodos: IBizFacturaCliente; overload; function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload; function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente; + function BuscarDePresupuesto(const AID_Presupuesto: Integer): IBizFacturaCliente; function Nuevo (withInsert: Boolean = True) : IBizFacturaCliente; procedure Ver(AFactura : IBizFacturaCliente); procedure VerTodos(AFacturas: IBizFacturaCliente; @@ -351,6 +353,29 @@ begin FiltrarEmpresa(Result); end; +function TFacturasClienteController.BuscarDePresupuesto(const AID_Presupuesto: Integer): IBizFacturaCliente; +var + Condicion: TDAWhereExpression; +begin + ShowHourglassCursor; + try + Result := BuscarTodos; + + with Result.DataTable.DynamicWhere do + begin + // ID_CLIENTE + Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_PRESUPUESTO), NewConstant(AID_Presupuesto, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + finally + HideHourglassCursor; + end; +end; + function TFacturasClienteController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente; var Condicion: TDAWhereExpression; diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm index 02b1e0e7..f346a285 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm @@ -274,6 +274,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente item Name = 'CERTIFICADO_ISO' DataType = datSmallInt + end + item + Name = 'ID_PRESUPUESTO' + DataType = datInteger + end + item + Name = 'REFERENCIA_PRESUPUESTO' + DataType = datString + Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index c9294d5c..cb74d650 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -9,9 +9,9 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturas = '{2BE0816C-FC37-48FE-821C-2E95BF7FE692}'; - RID_FacturasCliente = '{D5524FA0-4AEE-4B36-A0C4-C5FC20DA3080}'; - RID_FacturasCliente_Detalles = '{E3866D80-EDE0-4C5D-82A8-50B6970312D3}'; + RID_ListaAnosFacturas = '{16572AF4-9D62-43E1-82BE-070FD956E657}'; + RID_FacturasCliente = '{4F822E48-FDE7-401F-B607-FF5C03C42CFD}'; + RID_FacturasCliente_Detalles = '{C830455C-688C-4B62-8104-24B21CD60BFD}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; @@ -66,6 +66,8 @@ const fld_FacturasClienteRETENCION = 'RETENCION'; fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION'; fld_FacturasClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO'; + fld_FacturasClienteID_PRESUPUESTO = 'ID_PRESUPUESTO'; + fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO'; { FacturasCliente field indexes } idx_FacturasClienteID = 0; @@ -109,6 +111,8 @@ const idx_FacturasClienteRETENCION = 38; idx_FacturasClienteIMPORTE_RETENCION = 39; idx_FacturasClienteCERTIFICADO_ISO = 40; + idx_FacturasClienteID_PRESUPUESTO = 41; + idx_FacturasClienteREFERENCIA_PRESUPUESTO = 42; { FacturasCliente_Detalles fields } fld_FacturasCliente_DetallesID = 'ID'; @@ -147,7 +151,7 @@ const type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{36AA5910-CD3F-4B7B-8E88-3FCD9B019983}'] + ['{609E2895-4415-41C7-93B4-0273A1C0D906}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -182,7 +186,7 @@ type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{3CA669F5-C2C0-425D-A432-7CA926F1EF4D}'] + ['{1098D2D9-46DC-453C-8DF2-A159BCDB5401}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -347,6 +351,14 @@ type procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); function GetCERTIFICADO_ISOIsNull: Boolean; procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); + function GetID_PRESUPUESTOValue: Integer; + procedure SetID_PRESUPUESTOValue(const aValue: Integer); + function GetID_PRESUPUESTOIsNull: Boolean; + procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean); + function GetREFERENCIA_PRESUPUESTOValue: String; + procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); + function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; + procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); { Properties } @@ -432,6 +444,10 @@ type property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue; property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull; + property ID_PRESUPUESTO: Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue; + property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; + property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue; + property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; end; { TFacturasClienteDataTableRules } @@ -604,6 +620,14 @@ type procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual; function GetCERTIFICADO_ISOIsNull: Boolean; virtual; procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual; + function GetID_PRESUPUESTOValue: Integer; virtual; + procedure SetID_PRESUPUESTOValue(const aValue: Integer); virtual; + function GetID_PRESUPUESTOIsNull: Boolean; virtual; + procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PRESUPUESTOValue: String; virtual; + procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual; + function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual; + procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -688,6 +712,10 @@ type property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue; property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull; + property ID_PRESUPUESTO: Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue; + property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; + property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue; + property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -697,7 +725,7 @@ type { IFacturasCliente_Detalles } IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{1B150346-57B9-49D8-8074-3E0886CCB78B}'] + ['{33EBA6E5-6C58-408A-8673-6D46447E3B8F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1814,6 +1842,48 @@ begin DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].AsVariant := Null; end; +function TFacturasClienteDataTableRules.GetID_PRESUPUESTOValue: Integer; +begin + result := DataTable.Fields[idx_FacturasClienteID_PRESUPUESTO].AsInteger; +end; + +procedure TFacturasClienteDataTableRules.SetID_PRESUPUESTOValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasClienteID_PRESUPUESTO].AsInteger := aValue; +end; + +function TFacturasClienteDataTableRules.GetID_PRESUPUESTOIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasClienteID_PRESUPUESTO].IsNull; +end; + +procedure TFacturasClienteDataTableRules.SetID_PRESUPUESTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasClienteID_PRESUPUESTO].AsVariant := Null; +end; + +function TFacturasClienteDataTableRules.GetREFERENCIA_PRESUPUESTOValue: String; +begin + result := DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsString; +end; + +procedure TFacturasClienteDataTableRules.SetREFERENCIA_PRESUPUESTOValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsString := aValue; +end; + +function TFacturasClienteDataTableRules.GetREFERENCIA_PRESUPUESTOIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].IsNull; +end; + +procedure TFacturasClienteDataTableRules.SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsVariant := Null; +end; + { TFacturasCliente_DetallesDataTableRules } constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index 097d38c1..f8875f86 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturasDelta = '{5F59F46F-6D99-47EF-97B7-62E578F5EC77}'; - RID_FacturasClienteDelta = '{210A006E-9750-4D37-9655-232A93590F32}'; - RID_FacturasCliente_DetallesDelta = '{DBBBA305-DC20-44F9-BD34-E330F919C098}'; + RID_ListaAnosFacturasDelta = '{550EADCB-EE2C-4BA0-A501-40C59A395CE1}'; + RID_FacturasClienteDelta = '{09E87A98-15E6-4D62-8E4E-91005D037D1D}'; + RID_FacturasCliente_DetallesDelta = '{3E85AA5C-FE35-452C-9A31-E85D8D57F742}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{5F59F46F-6D99-47EF-97B7-62E578F5EC77}'] + ['{550EADCB-EE2C-4BA0-A501-40C59A395CE1}'] { Property getters and setters } function GetOldANOValue : String; @@ -50,7 +50,7 @@ type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{210A006E-9750-4D37-9655-232A93590F32}'] + ['{09E87A98-15E6-4D62-8E4E-91005D037D1D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -93,6 +93,8 @@ type function GetOldRETENCIONValue : Currency; function GetOldIMPORTE_RETENCIONValue : Currency; function GetOldCERTIFICADO_ISOValue : SmallInt; + function GetOldID_PRESUPUESTOValue : Integer; + function GetOldREFERENCIA_PRESUPUESTOValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -136,6 +138,8 @@ type property OldRETENCION : Currency read GetOldRETENCIONValue; property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue; property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue; + property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue; + property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue; end; { TFacturasClienteBusinessProcessorRules } @@ -390,6 +394,18 @@ type function GetOldCERTIFICADO_ISOIsNull: Boolean; virtual; procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual; procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual; + function GetID_PRESUPUESTOValue: Integer; virtual; + function GetID_PRESUPUESTOIsNull: Boolean; virtual; + function GetOldID_PRESUPUESTOValue: Integer; virtual; + function GetOldID_PRESUPUESTOIsNull: Boolean; virtual; + procedure SetID_PRESUPUESTOValue(const aValue: Integer); virtual; + procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PRESUPUESTOValue: String; virtual; + function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual; + function GetOldREFERENCIA_PRESUPUESTOValue: String; virtual; + function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual; + procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual; + procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -556,6 +572,14 @@ type property CERTIFICADO_ISOIsNull : Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull; property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue; property OldCERTIFICADO_ISOIsNull : Boolean read GetOldCERTIFICADO_ISOIsNull; + property ID_PRESUPUESTO : Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue; + property ID_PRESUPUESTOIsNull : Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull; + property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue; + property OldID_PRESUPUESTOIsNull : Boolean read GetOldID_PRESUPUESTOIsNull; + property REFERENCIA_PRESUPUESTO : String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue; + property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; + property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue; + property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -565,7 +589,7 @@ type { IFacturasCliente_DetallesDelta } IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) - ['{DBBBA305-DC20-44F9-BD34-E330F919C098}'] + ['{3E85AA5C-FE35-452C-9A31-E85D8D57F742}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -2103,6 +2127,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO] := Null; end; +function TFacturasClienteBusinessProcessorRules.GetID_PRESUPUESTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_PRESUPUESTO]; +end; + +function TFacturasClienteBusinessProcessorRules.GetID_PRESUPUESTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_PRESUPUESTO]); +end; + +function TFacturasClienteBusinessProcessorRules.GetOldID_PRESUPUESTOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_PRESUPUESTO]; +end; + +function TFacturasClienteBusinessProcessorRules.GetOldID_PRESUPUESTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_PRESUPUESTO]); +end; + +procedure TFacturasClienteBusinessProcessorRules.SetID_PRESUPUESTOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_PRESUPUESTO] := aValue; +end; + +procedure TFacturasClienteBusinessProcessorRules.SetID_PRESUPUESTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_PRESUPUESTO] := Null; +end; + +function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_PRESUPUESTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO]; +end; + +function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_PRESUPUESTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO]); +end; + +function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_PRESUPUESTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO]; +end; + +function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO]); +end; + +procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_PRESUPUESTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := aValue; +end; + +procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := Null; +end; + { TFacturasCliente_DetallesBusinessProcessorRules } constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Facturas de cliente/Plugin/uPluginFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Plugin/uPluginFacturasCliente.pas index 2284c403..79350363 100644 --- a/Source/Modulos/Facturas de cliente/Plugin/uPluginFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Plugin/uPluginFacturasCliente.pas @@ -20,8 +20,8 @@ type public constructor Create(AOwner: TComponent); override; destructor Destroy; override; - procedure VerFacturas(const ID_Cliente: Integer; - const ANombreCliente : String = ''); + procedure VerFacturas(const ID_Cliente: Integer; const ANombreCliente : String = ''); + procedure VerFacturasPresupuesto(const ID_Presupuesto: Integer; const ARefPresupuesto : String = ''; const ANombreCliente : String = ''); end; implementation @@ -76,7 +76,7 @@ begin try ShowHourglassCursor; try - AFacturasCliente := AFacturasClienteController.BuscarTodos(ID_Cliente); + AFacturasCliente := AFacturasClienteController.BuscarTodos(ID_Cliente); finally HideHourglassCursor; end; @@ -88,6 +88,28 @@ begin end; +procedure TPluginFacturasCliente.VerFacturasPresupuesto(const ID_Presupuesto: Integer; const ARefPresupuesto, ANombreCliente: String); +var + AFacturasClienteController : IFacturasClienteController; + AFacturasCliente : IBizFacturaCliente; + AText : String; +begin + AText := Format('Lista de facturas del contrato %s - %s', [ARefPresupuesto, ANombreCliente]); + AFacturasClienteController := TFacturasClienteController.Create; + try + ShowHourglassCursor; + try + AFacturasCliente := AFacturasClienteController.BuscarDePresupuesto(ID_Presupuesto); + finally + HideHourglassCursor; + end; + AFacturasClienteController.VerTodos(AFacturasCliente, True, AText); + finally + AFacturasCliente := NIL; + AFacturasClienteController := NIL; + end; +end; + initialization RegisterModuleClass(TPluginFacturasCliente); diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index 887b27cd..91a8487c 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -211,6 +211,14 @@ object srvFacturasCliente: TsrvFacturasCliente item DatasetField = 'CERTIFICADO_ISO' TableField = 'CERTIFICADO_ISO' + end + item + DatasetField = 'ID_PRESUPUESTO' + TableField = 'ID_PRESUPUESTO' + end + item + DatasetField = 'REFERENCIA_PRESUPUESTO' + TableField = 'REFERENCIA_PRESUPUESTO' end> end> Name = 'FacturasCliente' @@ -429,6 +437,15 @@ object srvFacturasCliente: TsrvFacturasCliente item Name = 'CERTIFICADO_ISO' DataType = datSmallInt + end + item + Name = 'ID_PRESUPUESTO' + DataType = datInteger + end + item + Name = 'REFERENCIA_PRESUPUESTO' + DataType = datString + Size = 255 end> end item @@ -996,6 +1013,11 @@ object srvFacturasCliente: TsrvFacturasCliente Name = 'CERTIFICADO_ISO' DataType = datSmallInt Value = '' + end + item + Name = 'ID_PRESUPUESTO' + DataType = datInteger + Value = '' end> Statements = < item @@ -1013,17 +1035,18 @@ object srvFacturasCliente: TsrvFacturasCliente 'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' + ','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' + 'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' CERTIFI' + - 'CADO_ISO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10 + - ' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :FECHA_RETENCION' + - ','#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' ' + - ' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORT' + - 'E_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' ' + - ':NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :POBLACION,'#10' :PRO' + - 'VINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICA' + - 'CION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCI' + - 'A,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' ' + - ':DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :RETENCION,'#10' :IMPOR' + - 'TE_RETENCION,'#10' :CERTIFICADO_ISO);'#10 + 'CADO_ISO,'#10' ID_PRESUPUESTO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRES' + + 'A,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10 + + ' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :' + + 'IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMP' + + 'ORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE' + + ','#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' ' + + ':POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,' + + #10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' + + ':RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' + + ':IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :R' + + 'ETENCION,'#10' :IMPORTE_RETENCION,'#10' :CERTIFICADO_ISO,'#10' :ID_' + + 'PRESUPUESTO);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1216,6 +1239,11 @@ object srvFacturasCliente: TsrvFacturasCliente DataType = datSmallInt Value = '' end + item + Name = 'ID_PRESUPUESTO' + DataType = datInteger + Value = '' + end item Name = 'OLD_ID' Value = '' @@ -1243,7 +1271,8 @@ object srvFacturasCliente: TsrvFacturasCliente ' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_B' + 'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' + 'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' CERTIF' + - 'ICADO_ISO = :CERTIFICADO_ISO'#10' WHERE'#10' (ID = :OLD_ID);'#10 + 'ICADO_ISO = :CERTIFICADO_ISO,'#10' ID_PRESUPUESTO = :ID_PRESUPUES' + + 'TO'#10' WHERE'#10' (ID = :OLD_ID);'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm index 151d0f7c..1ea175fe 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm @@ -174,25 +174,35 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente Width = 263 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 441 + Left = 325 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 441 + ExplicitLeft = 325 ExplicitWidth = 263 Width = 263 end inherited eLista: TcxComboBox - Left = 801 + Left = 591 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 801 + ExplicitLeft = 591 ExplicitWidth = 20 Width = 20 end + inherited eLista2: TcxComboBox + Left = 654 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 654 + ExplicitWidth = 207 + Width = 207 + end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 842 @@ -1904,12 +1914,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente Default = True end item - Caption = 'Utilizar uno o m'#225's presupuestos de cliente.' + Caption = 'Utilizar un presupuesto de cliente.' Value = 200 Info.Strings = ( - 'Puede utilizar uno o m'#225's presupuestos existentes para dar de alt' + - 'a una factura nueva.') + 'Puede utilizar un presupuesto existente para dar de alta una fac' + + 'tura nueva.') end item Caption = 'Utilizar uno o m'#225's albaranes de cliente.' diff --git a/Source/Modulos/Facturas de cliente/Views/uViewDatosYSeleccionClienteFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewDatosYSeleccionClienteFacturaCliente.pas index 7358ab59..4aa52aa9 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewDatosYSeleccionClienteFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewDatosYSeleccionClienteFacturaCliente.pas @@ -118,7 +118,7 @@ implementation {$R *.dfm} uses - uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils; + uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils, uStringsUtils; procedure TfrViewDatosYSeleccionClienteFacturaCliente.actElegirContactoExecute(Sender: TObject); @@ -183,7 +183,12 @@ procedure TfrViewDatosYSeleccionClienteFacturaCliente.CopiarDireccionAFactura; begin FFactura.Edit; FFactura.ID_DIRECCION := FDireccion.ID; - FFactura.CALLE := FDireccion.CALLE; + + if EsCadenaVacia(FDireccion.NOMBRE) then + FFactura.CALLE := FDireccion.CALLE + else + FFactura.CALLE := FDireccion.NOMBRE + ' - ' + FDireccion.CALLE; + FFactura.POBLACION := FDireccion.POBLACION; FFactura.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL; FFactura.PROVINCIA := FDireccion.PROVINCIA; diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm index 1ca37072..06e24b3e 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm @@ -155,6 +155,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente Value = 1 end> end + object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn + Caption = 'Ref. presupuesto' + DataBinding.FieldName = 'REFERENCIA_PRESUPUESTO' + end end inherited cxGridLevel: TcxGridLevel Caption = 'Todas' @@ -194,34 +198,32 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente Width = 144 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 185 + Left = 209 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 185 + ExplicitLeft = 209 ExplicitWidth = 273 Width = 273 end inherited eLista: TcxComboBox - Left = 414 + Left = 468 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 414 + ExplicitLeft = 468 ExplicitWidth = 97 Width = 97 end inherited eLista2: TcxComboBox - Left = 518 + Left = 585 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 518 - ExplicitWidth = 207 - Width = 207 + ExplicitLeft = 585 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas index a7f0f404..a11ee3c3 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas @@ -59,6 +59,7 @@ type cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn; cxGridViewIMPORTE_RETENCION: TcxGridDBColumn; cxGridViewCERTIFICADO_ISO: TcxGridDBColumn; + cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 3a734ca2..ad8ab699 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -22,6 +22,7 @@ type function Buscar(const ID: Integer): IBizFacturaProveedor; function BuscarTodos: IBizFacturaProveedor; overload; function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload; + function BuscarTodosDelPedido(const ID_Pedido : Integer): IBizFacturaProveedor; procedure Ver(AFactura : IBizFacturaProveedor); procedure VerTodos(AFacturas: IBizFacturaProveedor; const AVerModal : Boolean = False; const AWindowCaption: String = ''; @@ -99,6 +100,7 @@ type function Buscar(const ID: Integer): IBizFacturaProveedor; function BuscarTodos: IBizFacturaProveedor; overload; function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload; + function BuscarTodosDelPedido(const ID_Pedido : Integer): IBizFacturaProveedor; // function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor; function Nuevo (withInsert: Boolean = True): IBizFacturaProveedor; procedure Ver(AFactura : IBizFacturaProveedor); @@ -332,6 +334,31 @@ begin end; end; +function TFacturasProveedorController.BuscarTodosDelPedido( + const ID_Pedido: Integer): IBizFacturaProveedor; +var + Condicion: TDAWhereExpression; +begin + ShowHourglassCursor; + try + Result := BuscarTodos; + + with Result.DataTable.DynamicWhere do + begin + // ID_CLIENTE + Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_PEDIDO), + NewConstant(ID_Pedido, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + finally + HideHourglassCursor; + end; +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 ef75b369..27a6af5a 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm @@ -119,20 +119,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor Alignment = taRightJustify DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA' end - item - Name = 'RETENCION' - DataType = datFloat - DisplayLabel = 'Retenci'#243'n' - Alignment = taRightJustify - DictionaryEntry = 'FacturasProveedor_RETENCION' - end - item - Name = 'IMPORTE_RETENCION' - DataType = datCurrency - DisplayLabel = 'Importe retenci'#243'n' - Alignment = taRightJustify - DictionaryEntry = 'FacturasProveedor_IMPORTE_RETENCION' - end item Name = 'RE' DataType = datFloat @@ -260,6 +246,29 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor Size = 255 DisplayLabel = 'Datos bancarios' DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS' + end + item + Name = 'RETENCION' + DataType = datFloat + DisplayLabel = 'Retenci'#243'n' + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_RETENCION' + end + item + Name = 'IMPORTE_RETENCION' + DataType = datCurrency + DisplayLabel = 'Importe retenci'#243'n' + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_IMPORTE_RETENCION' + end + item + Name = 'ID_PEDIDO' + DataType = datInteger + end + item + Name = 'REFERENCIA_PEDIDO' + DataType = datString + Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj index e1ce4679..7cf941db 100644 --- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj +++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj @@ -113,6 +113,33 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -149,15 +176,6 @@ - - - - - - - - - @@ -167,15 +185,6 @@ - - - - - - - - - @@ -230,15 +239,6 @@ - - - - - - - - - @@ -312,13 +312,13 @@ - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas index 91963d1f..0f3a63d4 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas @@ -9,10 +9,10 @@ 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 = '{5BF20483-0987-4847-9C60-D1E2273B804C}'; - RID_FacturasProveedor = '{4DA50F35-8E3D-4026-87AC-0463785925E3}'; - RID_FacturasProveedor_Detalles = '{6CB75F1D-81CB-406B-BC72-36935ABD0A7E}'; - RID_FacturasProveedor_Pedidos = '{26EB0745-E499-4FE1-B52D-6AB1F550D0AE}'; + RID_ListaAnosFacturas = '{E9EE20DB-5E81-4754-8072-2259CFFDA5B9}'; + RID_FacturasProveedor = '{FDCFBE98-A97E-4BC5-B2F6-6197A7ABDCED}'; + RID_FacturasProveedor_Detalles = '{8000B72B-B998-4E4E-BB59-F2A5618AB501}'; + RID_FacturasProveedor_Pedidos = '{46C74857-4162-4EFB-BC4F-F54929804ADE}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; @@ -41,8 +41,6 @@ const fld_FacturasProveedorIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; fld_FacturasProveedorIVA = 'IVA'; fld_FacturasProveedorIMPORTE_IVA = 'IMPORTE_IVA'; - fld_FacturasProveedorRETENCION = 'RETENCION'; - fld_FacturasProveedorIMPORTE_RETENCION = 'IMPORTE_RETENCION'; fld_FacturasProveedorRE = 'RE'; fld_FacturasProveedorIMPORTE_RE = 'IMPORTE_RE'; fld_FacturasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL'; @@ -63,6 +61,10 @@ const fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO'; fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_FacturasProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS'; + fld_FacturasProveedorRETENCION = 'RETENCION'; + fld_FacturasProveedorIMPORTE_RETENCION = 'IMPORTE_RETENCION'; + fld_FacturasProveedorID_PEDIDO = 'ID_PEDIDO'; + fld_FacturasProveedorREFERENCIA_PEDIDO = 'REFERENCIA_PEDIDO'; { FacturasProveedor field indexes } idx_FacturasProveedorID = 0; @@ -79,28 +81,30 @@ const idx_FacturasProveedorIMPORTE_DESCUENTO = 11; idx_FacturasProveedorIVA = 12; idx_FacturasProveedorIMPORTE_IVA = 13; - idx_FacturasProveedorRETENCION = 14; - idx_FacturasProveedorIMPORTE_RETENCION = 15; - idx_FacturasProveedorRE = 16; - idx_FacturasProveedorIMPORTE_RE = 17; - idx_FacturasProveedorIMPORTE_TOTAL = 18; - idx_FacturasProveedorOBSERVACIONES = 19; - idx_FacturasProveedorID_PROVEEDOR = 20; - idx_FacturasProveedorNIF_CIF = 21; - idx_FacturasProveedorNOMBRE = 22; - idx_FacturasProveedorCALLE = 23; - idx_FacturasProveedorPOBLACION = 24; - idx_FacturasProveedorPROVINCIA = 25; - idx_FacturasProveedorCODIGO_POSTAL = 26; - idx_FacturasProveedorFECHA_ALTA = 27; - idx_FacturasProveedorFECHA_MODIFICACION = 28; - idx_FacturasProveedorUSUARIO = 29; - idx_FacturasProveedorID_FORMA_PAGO = 30; - idx_FacturasProveedorRECARGO_EQUIVALENCIA = 31; - idx_FacturasProveedorID_TIPO_IVA = 32; - idx_FacturasProveedorIMPORTE_NETO = 33; - idx_FacturasProveedorIMPORTE_PORTE = 34; - idx_FacturasProveedorDATOS_BANCARIOS = 35; + idx_FacturasProveedorRE = 14; + idx_FacturasProveedorIMPORTE_RE = 15; + idx_FacturasProveedorIMPORTE_TOTAL = 16; + idx_FacturasProveedorOBSERVACIONES = 17; + idx_FacturasProveedorID_PROVEEDOR = 18; + idx_FacturasProveedorNIF_CIF = 19; + idx_FacturasProveedorNOMBRE = 20; + idx_FacturasProveedorCALLE = 21; + idx_FacturasProveedorPOBLACION = 22; + idx_FacturasProveedorPROVINCIA = 23; + idx_FacturasProveedorCODIGO_POSTAL = 24; + idx_FacturasProveedorFECHA_ALTA = 25; + idx_FacturasProveedorFECHA_MODIFICACION = 26; + idx_FacturasProveedorUSUARIO = 27; + idx_FacturasProveedorID_FORMA_PAGO = 28; + idx_FacturasProveedorRECARGO_EQUIVALENCIA = 29; + idx_FacturasProveedorID_TIPO_IVA = 30; + idx_FacturasProveedorIMPORTE_NETO = 31; + idx_FacturasProveedorIMPORTE_PORTE = 32; + idx_FacturasProveedorDATOS_BANCARIOS = 33; + idx_FacturasProveedorRETENCION = 34; + idx_FacturasProveedorIMPORTE_RETENCION = 35; + idx_FacturasProveedorID_PEDIDO = 36; + idx_FacturasProveedorREFERENCIA_PEDIDO = 37; { FacturasProveedor_Detalles fields } fld_FacturasProveedor_DetallesID_TIPO_IVA = 'ID_TIPO_IVA'; @@ -165,7 +169,7 @@ const type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{FA78624A-FCC5-43A8-A8F2-902DBC3D2F55}'] + ['{4238D296-7C17-4CD5-B1E9-710EB08649AF}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -200,7 +204,7 @@ type { IFacturasProveedor } IFacturasProveedor = interface(IDAStronglyTypedDataTable) - ['{EAAE2560-477C-4DFD-8683-2F20B4030377}'] + ['{E9F4EBE9-292E-4C00-B3AA-02A66888F93D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -258,14 +262,6 @@ type procedure SetIMPORTE_IVAValue(const aValue: Currency); function GetIMPORTE_IVAIsNull: Boolean; procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); - function GetRETENCIONValue: Float; - procedure SetRETENCIONValue(const aValue: Float); - function GetRETENCIONIsNull: Boolean; - procedure SetRETENCIONIsNull(const aValue: Boolean); - function GetIMPORTE_RETENCIONValue: Currency; - procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); - function GetIMPORTE_RETENCIONIsNull: Boolean; - procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); function GetREValue: Float; procedure SetREValue(const aValue: Float); function GetREIsNull: Boolean; @@ -345,6 +341,22 @@ type procedure SetDATOS_BANCARIOSValue(const aValue: String); function GetDATOS_BANCARIOSIsNull: Boolean; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); + function GetRETENCIONValue: Float; + procedure SetRETENCIONValue(const aValue: Float); + function GetRETENCIONIsNull: Boolean; + procedure SetRETENCIONIsNull(const aValue: Boolean); + function GetIMPORTE_RETENCIONValue: Currency; + procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); + function GetIMPORTE_RETENCIONIsNull: Boolean; + procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); + function GetID_PEDIDOValue: Integer; + procedure SetID_PEDIDOValue(const aValue: Integer); + function GetID_PEDIDOIsNull: Boolean; + procedure SetID_PEDIDOIsNull(const aValue: Boolean); + function GetREFERENCIA_PEDIDOValue: String; + procedure SetREFERENCIA_PEDIDOValue(const aValue: String); + function GetREFERENCIA_PEDIDOIsNull: Boolean; + procedure SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean); { Properties } @@ -376,10 +388,6 @@ type 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 RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue; - property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; - property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; - property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property RE: Float read GetREValue write SetREValue; property REIsNull: Boolean read GetREIsNull write SetREIsNull; property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue; @@ -420,6 +428,14 @@ type 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 RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue; + property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; + property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; + property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; + property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property REFERENCIA_PEDIDO: String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue; + property REFERENCIA_PEDIDOIsNull: Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull; end; { TFacturasProveedorDataTableRules } @@ -485,14 +501,6 @@ type procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; function GetIMPORTE_IVAIsNull: Boolean; virtual; procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; - function GetRETENCIONValue: Float; virtual; - procedure SetRETENCIONValue(const aValue: Float); virtual; - function GetRETENCIONIsNull: Boolean; virtual; - procedure SetRETENCIONIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_RETENCIONValue: Currency; virtual; - procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual; - function GetIMPORTE_RETENCIONIsNull: Boolean; virtual; - procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual; function GetREValue: Float; virtual; procedure SetREValue(const aValue: Float); virtual; function GetREIsNull: Boolean; virtual; @@ -572,6 +580,22 @@ type procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; function GetDATOS_BANCARIOSIsNull: Boolean; virtual; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; + function GetRETENCIONValue: Float; virtual; + procedure SetRETENCIONValue(const aValue: Float); virtual; + function GetRETENCIONIsNull: Boolean; virtual; + procedure SetRETENCIONIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_RETENCIONValue: Currency; virtual; + procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual; + function GetIMPORTE_RETENCIONIsNull: Boolean; virtual; + procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual; + function GetID_PEDIDOValue: Integer; virtual; + procedure SetID_PEDIDOValue(const aValue: Integer); virtual; + function GetID_PEDIDOIsNull: Boolean; virtual; + procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PEDIDOValue: String; virtual; + procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual; + function GetREFERENCIA_PEDIDOIsNull: Boolean; virtual; + procedure SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -602,10 +626,6 @@ type 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 RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue; - property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; - property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; - property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property RE: Float read GetREValue write SetREValue; property REIsNull: Boolean read GetREIsNull write SetREIsNull; property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue; @@ -646,6 +666,14 @@ type 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 RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue; + property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; + property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; + property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; + property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property REFERENCIA_PEDIDO: String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue; + property REFERENCIA_PEDIDOIsNull: Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -655,7 +683,7 @@ type { IFacturasProveedor_Detalles } IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{E6999FBD-4DDF-4EE7-8FB5-B942CC4E32B4}'] + ['{FA4B068B-A429-43C6-8743-CEFD15E11814}'] { Property getters and setters } function GetID_TIPO_IVAValue: Integer; procedure SetID_TIPO_IVAValue(const aValue: Integer); @@ -906,7 +934,7 @@ type { IFacturasProveedor_Pedidos } IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable) - ['{EC1CFD23-1D05-4E2F-B8E8-23E3A096F755}'] + ['{4B4D9EA0-EA24-4CBA-91CA-FDAD7FF943DF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1364,48 +1392,6 @@ begin DataTable.Fields[idx_FacturasProveedorIMPORTE_IVA].AsVariant := Null; end; -function TFacturasProveedorDataTableRules.GetRETENCIONValue: Float; -begin - result := DataTable.Fields[idx_FacturasProveedorRETENCION].AsFloat; -end; - -procedure TFacturasProveedorDataTableRules.SetRETENCIONValue(const aValue: Float); -begin - DataTable.Fields[idx_FacturasProveedorRETENCION].AsFloat := aValue; -end; - -function TFacturasProveedorDataTableRules.GetRETENCIONIsNull: boolean; -begin - result := DataTable.Fields[idx_FacturasProveedorRETENCION].IsNull; -end; - -procedure TFacturasProveedorDataTableRules.SetRETENCIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_FacturasProveedorRETENCION].AsVariant := Null; -end; - -function TFacturasProveedorDataTableRules.GetIMPORTE_RETENCIONValue: Currency; -begin - result := DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsCurrency; -end; - -procedure TFacturasProveedorDataTableRules.SetIMPORTE_RETENCIONValue(const aValue: Currency); -begin - DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsCurrency := aValue; -end; - -function TFacturasProveedorDataTableRules.GetIMPORTE_RETENCIONIsNull: boolean; -begin - result := DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].IsNull; -end; - -procedure TFacturasProveedorDataTableRules.SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsVariant := Null; -end; - function TFacturasProveedorDataTableRules.GetREValue: Float; begin result := DataTable.Fields[idx_FacturasProveedorRE].AsFloat; @@ -1822,6 +1808,90 @@ begin DataTable.Fields[idx_FacturasProveedorDATOS_BANCARIOS].AsVariant := Null; end; +function TFacturasProveedorDataTableRules.GetRETENCIONValue: Float; +begin + result := DataTable.Fields[idx_FacturasProveedorRETENCION].AsFloat; +end; + +procedure TFacturasProveedorDataTableRules.SetRETENCIONValue(const aValue: Float); +begin + DataTable.Fields[idx_FacturasProveedorRETENCION].AsFloat := aValue; +end; + +function TFacturasProveedorDataTableRules.GetRETENCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorRETENCION].IsNull; +end; + +procedure TFacturasProveedorDataTableRules.SetRETENCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorRETENCION].AsVariant := Null; +end; + +function TFacturasProveedorDataTableRules.GetIMPORTE_RETENCIONValue: Currency; +begin + result := DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsCurrency; +end; + +procedure TFacturasProveedorDataTableRules.SetIMPORTE_RETENCIONValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsCurrency := aValue; +end; + +function TFacturasProveedorDataTableRules.GetIMPORTE_RETENCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].IsNull; +end; + +procedure TFacturasProveedorDataTableRules.SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsVariant := Null; +end; + +function TFacturasProveedorDataTableRules.GetID_PEDIDOValue: Integer; +begin + result := DataTable.Fields[idx_FacturasProveedorID_PEDIDO].AsInteger; +end; + +procedure TFacturasProveedorDataTableRules.SetID_PEDIDOValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasProveedorID_PEDIDO].AsInteger := aValue; +end; + +function TFacturasProveedorDataTableRules.GetID_PEDIDOIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorID_PEDIDO].IsNull; +end; + +procedure TFacturasProveedorDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorID_PEDIDO].AsVariant := Null; +end; + +function TFacturasProveedorDataTableRules.GetREFERENCIA_PEDIDOValue: String; +begin + result := DataTable.Fields[idx_FacturasProveedorREFERENCIA_PEDIDO].AsString; +end; + +procedure TFacturasProveedorDataTableRules.SetREFERENCIA_PEDIDOValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasProveedorREFERENCIA_PEDIDO].AsString := aValue; +end; + +function TFacturasProveedorDataTableRules.GetREFERENCIA_PEDIDOIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorREFERENCIA_PEDIDO].IsNull; +end; + +procedure TFacturasProveedorDataTableRules.SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorREFERENCIA_PEDIDO].AsVariant := Null; +end; + { TFacturasProveedor_DetallesDataTableRules } constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas index 0e2baee6..285e6324 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas @@ -9,15 +9,15 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturasDelta = '{B700EE7C-8AB3-431C-9FA7-A6079A789D81}'; - RID_FacturasProveedorDelta = '{CF80EDF3-AF67-4435-91F0-083105B1A702}'; - RID_FacturasProveedor_DetallesDelta = '{A9EE3D34-89F5-48E3-80EB-286EDCE922A2}'; - RID_FacturasProveedor_PedidosDelta = '{4F861C80-9436-4371-9127-530175C91776}'; + RID_ListaAnosFacturasDelta = '{B90583D3-FF94-483B-A62D-3936AA039340}'; + RID_FacturasProveedorDelta = '{79DD3FEF-946E-4381-9AFD-B131A243967D}'; + RID_FacturasProveedor_DetallesDelta = '{952E64EA-AAE5-4E2A-9182-C3C3A478327A}'; + RID_FacturasProveedor_PedidosDelta = '{80A1DCB5-2D75-4F33-93B6-AD1A79601ABD}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{B700EE7C-8AB3-431C-9FA7-A6079A789D81}'] + ['{B90583D3-FF94-483B-A62D-3936AA039340}'] { Property getters and setters } function GetOldANOValue : String; @@ -51,7 +51,7 @@ type { IFacturasProveedorDelta } IFacturasProveedorDelta = interface(IFacturasProveedor) - ['{CF80EDF3-AF67-4435-91F0-083105B1A702}'] + ['{79DD3FEF-946E-4381-9AFD-B131A243967D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -67,8 +67,6 @@ type function GetOldIMPORTE_DESCUENTOValue : Currency; function GetOldIVAValue : Float; function GetOldIMPORTE_IVAValue : Currency; - function GetOldRETENCIONValue : Float; - function GetOldIMPORTE_RETENCIONValue : Currency; function GetOldREValue : Float; function GetOldIMPORTE_REValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; @@ -89,6 +87,10 @@ type function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_PORTEValue : Currency; function GetOldDATOS_BANCARIOSValue : String; + function GetOldRETENCIONValue : Float; + function GetOldIMPORTE_RETENCIONValue : Currency; + function GetOldID_PEDIDOValue : Integer; + function GetOldREFERENCIA_PEDIDOValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -105,8 +107,6 @@ type property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; property OldIVA : Float read GetOldIVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; - property OldRETENCION : Float read GetOldRETENCIONValue; - property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue; property OldRE : Float read GetOldREValue; property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; @@ -127,6 +127,10 @@ type property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; + property OldRETENCION : Float read GetOldRETENCIONValue; + property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue; + property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue; end; { TFacturasProveedorBusinessProcessorRules } @@ -220,18 +224,6 @@ type function GetOldIMPORTE_IVAIsNull: Boolean; virtual; procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; - function GetRETENCIONValue: Float; virtual; - function GetRETENCIONIsNull: Boolean; virtual; - function GetOldRETENCIONValue: Float; virtual; - function GetOldRETENCIONIsNull: Boolean; virtual; - procedure SetRETENCIONValue(const aValue: Float); virtual; - procedure SetRETENCIONIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_RETENCIONValue: Currency; virtual; - function GetIMPORTE_RETENCIONIsNull: Boolean; virtual; - function GetOldIMPORTE_RETENCIONValue: Currency; virtual; - function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual; - procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual; - procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual; function GetREValue: Float; virtual; function GetREIsNull: Boolean; virtual; function GetOldREValue: Float; virtual; @@ -351,6 +343,30 @@ type function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual; procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; + function GetRETENCIONValue: Float; virtual; + function GetRETENCIONIsNull: Boolean; virtual; + function GetOldRETENCIONValue: Float; virtual; + function GetOldRETENCIONIsNull: Boolean; virtual; + procedure SetRETENCIONValue(const aValue: Float); virtual; + procedure SetRETENCIONIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_RETENCIONValue: Currency; virtual; + function GetIMPORTE_RETENCIONIsNull: Boolean; virtual; + function GetOldIMPORTE_RETENCIONValue: Currency; virtual; + function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual; + procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual; + procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual; + function GetID_PEDIDOValue: Integer; virtual; + function GetID_PEDIDOIsNull: Boolean; virtual; + function GetOldID_PEDIDOValue: Integer; virtual; + function GetOldID_PEDIDOIsNull: Boolean; virtual; + procedure SetID_PEDIDOValue(const aValue: Integer); virtual; + procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PEDIDOValue: String; virtual; + function GetREFERENCIA_PEDIDOIsNull: Boolean; virtual; + function GetOldREFERENCIA_PEDIDOValue: String; virtual; + function GetOldREFERENCIA_PEDIDOIsNull: Boolean; virtual; + procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual; + procedure SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -409,14 +425,6 @@ type 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 RETENCION : Float read GetRETENCIONValue write SetRETENCIONValue; - property RETENCIONIsNull : Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; - property OldRETENCION : Float read GetOldRETENCIONValue; - property OldRETENCIONIsNull : Boolean read GetOldRETENCIONIsNull; - property IMPORTE_RETENCION : Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; - property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; - property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue; - property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull; property RE : Float read GetREValue write SetREValue; property REIsNull : Boolean read GetREIsNull write SetREIsNull; property OldRE : Float read GetOldREValue; @@ -497,6 +505,22 @@ type 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 RETENCION : Float read GetRETENCIONValue write SetRETENCIONValue; + property RETENCIONIsNull : Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; + property OldRETENCION : Float read GetOldRETENCIONValue; + property OldRETENCIONIsNull : Boolean read GetOldRETENCIONIsNull; + property IMPORTE_RETENCION : Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; + property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; + property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue; + property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull; + property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; + property REFERENCIA_PEDIDO : String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue; + property REFERENCIA_PEDIDOIsNull : Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull; + property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue; + property OldREFERENCIA_PEDIDOIsNull : Boolean read GetOldREFERENCIA_PEDIDOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -506,7 +530,7 @@ type { IFacturasProveedor_DetallesDelta } IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) - ['{A9EE3D34-89F5-48E3-80EB-286EDCE922A2}'] + ['{952E64EA-AAE5-4E2A-9182-C3C3A478327A}'] { Property getters and setters } function GetOldID_TIPO_IVAValue : Integer; function GetOldIVAValue : Float; @@ -756,7 +780,7 @@ type { IFacturasProveedor_PedidosDelta } IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos) - ['{4F861C80-9436-4371-9127-530175C91776}'] + ['{80A1DCB5-2D75-4F33-93B6-AD1A79601ABD}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -1364,68 +1388,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_IVA] := Null; end; -function TFacturasProveedorBusinessProcessorRules.GetRETENCIONValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION]; -end; - -function TFacturasProveedorBusinessProcessorRules.GetRETENCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION]); -end; - -function TFacturasProveedorBusinessProcessorRules.GetOldRETENCIONValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRETENCION]; -end; - -function TFacturasProveedorBusinessProcessorRules.GetOldRETENCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRETENCION]); -end; - -procedure TFacturasProveedorBusinessProcessorRules.SetRETENCIONValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION] := aValue; -end; - -procedure TFacturasProveedorBusinessProcessorRules.SetRETENCIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION] := Null; -end; - -function TFacturasProveedorBusinessProcessorRules.GetIMPORTE_RETENCIONValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION]; -end; - -function TFacturasProveedorBusinessProcessorRules.GetIMPORTE_RETENCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION]); -end; - -function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTE_RETENCIONValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTE_RETENCION]; -end; - -function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTE_RETENCIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTE_RETENCION]); -end; - -procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTE_RETENCIONValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION] := aValue; -end; - -procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION] := Null; -end; - function TFacturasProveedorBusinessProcessorRules.GetREValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRE]; @@ -2043,6 +2005,130 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDATOS_BANCARIOS] := Null; end; +function TFacturasProveedorBusinessProcessorRules.GetRETENCIONValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetRETENCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION]); +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldRETENCIONValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRETENCION]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldRETENCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRETENCION]); +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetRETENCIONValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION] := aValue; +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetRETENCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION] := Null; +end; + +function TFacturasProveedorBusinessProcessorRules.GetIMPORTE_RETENCIONValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetIMPORTE_RETENCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION]); +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTE_RETENCIONValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTE_RETENCION]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTE_RETENCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTE_RETENCION]); +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTE_RETENCIONValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION] := aValue; +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION] := Null; +end; + +function TFacturasProveedorBusinessProcessorRules.GetID_PEDIDOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PEDIDO]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PEDIDO]); +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldID_PEDIDOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_PEDIDO]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_PEDIDO]); +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PEDIDO] := aValue; +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PEDIDO] := Null; +end; + +function TFacturasProveedorBusinessProcessorRules.GetREFERENCIA_PEDIDOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetREFERENCIA_PEDIDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO]); +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldREFERENCIA_PEDIDOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldREFERENCIA_PEDIDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO]); +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetREFERENCIA_PEDIDOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO] := aValue; +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO] := Null; +end; + { TFacturasProveedor_DetallesBusinessProcessorRules } constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Facturas de proveedor/Plugin/uPluginFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Plugin/uPluginFacturasProveedor.pas index e56fc0e7..583756f7 100644 --- a/Source/Modulos/Facturas de proveedor/Plugin/uPluginFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Plugin/uPluginFacturasProveedor.pas @@ -20,8 +20,8 @@ type public constructor Create(AOwner: TComponent); override; destructor Destroy; override; - procedure VerFacturas(const ID_Proveedor: Integer; - const ANombreProveedor : String = ''); + procedure VerFacturas(const ID_Proveedor: Integer; const ANombreProveedor : String = ''); + procedure VerFacturasDePedido(const ID_Pedido: Integer; const AReferencia : String = ''; const ANombreProveedor : String = ''); end; implementation @@ -88,6 +88,29 @@ begin end; end; +procedure TPluginFacturasProveedor.VerFacturasDePedido(const ID_Pedido: Integer; + const AReferencia, ANombreProveedor: String); +var + AFacturasProveedorController : IFacturasProveedorController; + AFacturasProveedor : IBizFacturaProveedor; + AText : String; +begin + AText := Format('Lista de facturas del pedido de proveedor %s - %s', [AReferencia, ANombreProveedor]); + AFacturasProveedorController := TFacturasProveedorController.Create; + try + ShowHourglassCursor; + try + AFacturasProveedor := AFacturasProveedorController.BuscarTodosDelPedido(ID_Pedido); + finally + HideHourglassCursor; + end; + AFacturasProveedorController.VerTodos(AFacturasProveedor, True, AText); + finally + AFacturasProveedor := NIL; + AFacturasProveedorController := NIL; + end; +end; + initialization RegisterModuleClass(TPluginFacturasProveedor); diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm index 0f15c494..522df537 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm @@ -191,6 +191,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor item DatasetField = 'IMPORTE_RETENCION' TableField = 'IMPORTE_RETENCION' + end + item + DatasetField = 'ID_PEDIDO' + TableField = 'ID_PEDIDO' + end + item + DatasetField = 'REFERENCIA_PEDIDO' + TableField = 'REFERENCIA_PEDIDO' end> end> Name = 'FacturasProveedor' @@ -272,16 +280,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor DataType = datCurrency DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA' end - item - Name = 'RETENCION' - DataType = datFloat - DictionaryEntry = 'FacturasProveedor_RETENCION' - end - item - Name = 'IMPORTE_RETENCION' - DataType = datCurrency - DictionaryEntry = 'FacturasProveedor_IMPORTE_RETENCION' - end item Name = 'RE' DataType = datFloat @@ -389,6 +387,25 @@ object srvFacturasProveedor: TsrvFacturasProveedor DataType = datString Size = 255 DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS' + end + item + Name = 'RETENCION' + DataType = datFloat + DictionaryEntry = 'FacturasProveedor_RETENCION' + end + item + Name = 'IMPORTE_RETENCION' + DataType = datCurrency + DictionaryEntry = 'FacturasProveedor_IMPORTE_RETENCION' + end + item + Name = 'ID_PEDIDO' + DataType = datInteger + end + item + Name = 'REFERENCIA_PEDIDO' + DataType = datString + Size = 255 end> end item @@ -722,16 +739,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Params = < - item - Name = 'RETENCION' - DataType = datFloat - Value = '' - end - item - Name = 'IMPORTE_RETENCION' - DataType = datCurrency - Value = '' - end item Name = 'ID' DataType = datAutoInc @@ -892,6 +899,21 @@ object srvFacturasProveedor: TsrvFacturasProveedor Name = 'FECHA_RECEPCION' DataType = datDateTime Value = '' + end + item + Name = 'RETENCION' + DataType = datCurrency + Value = '' + end + item + Name = 'IMPORTE_RETENCION' + DataType = datCurrency + Value = '' + end + item + Name = 'ID_PEDIDO' + DataType = datInteger + Value = '' end> Statements = < item @@ -907,15 +929,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor 'A_ALTA, USUARIO, ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA, ID_TI' + 'PO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10' DATOS_BANCARIOS, FECHA' + '_VENCIMIENTO, FECHA_RECEPCION,'#10' RETENCION, IMPORTE_RETENCION' + - ')'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVE' + - 'EDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IM' + - 'PORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :IM' + - 'PORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' :NOM' + - 'BRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' CURRE' + - 'NT_TIMESTAMP, :USUARIO, :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENC' + - 'IA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :DATOS_BA' + - 'NCARIOS, :FECHA_VENCIMIENTO, :FECHA_RECEPCION,'#10' :RETENCION, ' + - ':IMPORTE_RETENCION)'#10' '#10' '#10#10 + ', ID_PEDIDO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFER' + + 'ENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCUENT' + + 'O,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE' + + ', '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,' + + ' '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, ' + + #10' CURRENT_TIMESTAMP, :USUARIO, :ID_FORMA_PAGO,'#10' :RECARGO' + + '_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE' + + ', :DATOS_BANCARIOS, :FECHA_VENCIMIENTO, :FECHA_RECEPCION,'#10' :' + + 'RETENCION, :IMPORTE_RETENCION, :ID_PEDIDO)'#10' '#10' '#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -942,16 +964,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Params = < - item - Name = 'RETENCION' - DataType = datFloat - Value = '' - end - item - Name = 'IMPORTE_RETENCION' - DataType = datCurrency - Value = '' - end item Name = 'ID' DataType = datInteger @@ -1112,6 +1124,21 @@ object srvFacturasProveedor: TsrvFacturasProveedor DataType = datDateTime Value = '' end + item + Name = 'RETENCION' + DataType = datCurrency + Value = '' + end + item + Name = 'IMPORTE_RETENCION' + DataType = datCurrency + Value = '' + end + item + Name = 'ID_PEDIDO' + DataType = datInteger + Value = '' + end item Name = 'OLD_ID' Value = '' @@ -1139,8 +1166,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor 'ETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = ' + ':DATOS_BANCARIOS,'#10' FECHA_VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' ' + ' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' RETENCION = :RETENCION' + - ','#10' IMPORTE_RETENCION = :IMPORTE_RETENCION'#10' WHERE'#10' (ID = :' + - 'OLD_ID)'#10 + ','#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' ID_PEDIDO = :I' + + 'D_PEDIDO'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm index 43d0428a..432bbf8b 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm @@ -173,25 +173,35 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor Width = 282 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 386 + Left = 249 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 386 + ExplicitLeft = 249 ExplicitWidth = 453 Width = 453 end inherited eLista: TcxComboBox - Left = 876 + Left = 562 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 876 + ExplicitLeft = 562 ExplicitWidth = 215 Width = 215 end + inherited eLista2: TcxComboBox + Left = 726 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 726 + ExplicitWidth = 207 + Width = 207 + end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 849 @@ -1907,12 +1917,12 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor Default = True end item - Caption = 'Utilizar uno o m'#225's pedidos de proveedor' + Caption = 'Utilizar un pedido de proveedor' Value = 200 Info.Strings = ( - 'Puede utilizar uno o m'#225's albaranes existentes para dar de alta l' + - 'a factura nueva') + 'Puede utilizar un pedido a proveedor existente para dar de alta ' + + 'la factura nueva') end item Caption = 'Utilizar uno o m'#225's albaranes de proveedor.' diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm index 590cac99..555af1c5 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm @@ -147,10 +147,9 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor HeaderAlignmentHorz = taRightJustify Width = 98 end - object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn - Caption = 'Liquidaci'#243'n' - DataBinding.FieldName = 'REFERENCIA_COMISION' - Visible = False + object cxGridViewREFERENCIA_PEDIDO: TcxGridDBColumn + Caption = 'Ref. Pedido' + DataBinding.FieldName = 'REFERENCIA_PEDIDO' end end inherited cxGridLevel: TcxGridLevel @@ -191,25 +190,35 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor Width = 229 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 230 + Left = 179 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 230 + ExplicitLeft = 179 ExplicitWidth = 188 Width = 188 end inherited eLista: TcxComboBox - Left = 388 + Left = 304 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 388 + ExplicitLeft = 304 ExplicitWidth = 215 Width = 215 end + inherited eLista2: TcxComboBox + Left = 438 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 438 + ExplicitWidth = 207 + Width = 207 + end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 531 diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas index b90e0791..b304314f 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas @@ -45,7 +45,7 @@ type cxGridParcial: TcxGridLevel; cxStyleAbono: TcxStyle; cxGridPagadas: TcxGridLevel; - cxGridViewREFERENCIA_COMISION: TcxGridDBColumn; + cxGridViewREFERENCIA_PEDIDO: TcxGridDBColumn; cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn; cxStylePendientes: TcxStyle; cxStyleParciales: TcxStyle; @@ -195,7 +195,7 @@ procedure TfrViewFacturasProveedor.cxGridViewDataControllerCompare( begin inherited; if ((AItemIndex = cxGridViewREFERENCIA.Index) or - (AItemIndex = cxGridViewREFERENCIA_COMISION.Index) or +// (AItemIndex = cxGridViewREFERENCIA_COMISION.Index) or (AItemIndex = cxGridViewREFERENCIA_PROVEEDOR.Index)) and (VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then Compare := CompararReferencias(V1, V2) diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas index a137adae..af5fa1f6 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas @@ -23,11 +23,12 @@ type function BuscarTodos: IBizPedidoProveedor; overload; function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload; function BuscarPendientesRecepcion: IBizPedidoProveedor; - function BuscarSinFacturar : IBizPedidoProveedor; +// function BuscarSinFacturar : IBizPedidoProveedor; procedure Ver(APedido : IBizPedidoProveedor); procedure VerTodos(APedidos: IBizPedidoProveedor; const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AHeaderText: String = ''); + procedure VerFacturasDePedido(APedido : IBizPedidoProveedor); procedure VerDireccionEntrega(APedido : IBizPedidoProveedor); function Nuevo : IBizPedidoProveedor; procedure Anadir(APedido : IBizPedidoProveedor); @@ -110,13 +111,13 @@ type function BuscarTodos: IBizPedidoProveedor; overload; function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload; function BuscarPendientesRecepcion: IBizPedidoProveedor; - function BuscarSinFacturar : IBizPedidoProveedor; +// function BuscarSinFacturar : IBizPedidoProveedor; function Nuevo : IBizPedidoProveedor; procedure Ver(APedido : IBizPedidoProveedor); procedure VerTodos(APedidos: IBizPedidoProveedor; const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AHeaderText: String = ''); - + procedure VerFacturasDePedido(APedido : IBizPedidoProveedor); procedure VerDireccionEntrega(APedido : IBizPedidoProveedor); function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor; @@ -158,7 +159,8 @@ uses schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController, uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor, uIDialogListaPedidosProveedorEnvioEMail, Dialogs, uIEditorDireccionEntregaPedidoProveedor, uIEditorSituacionPedidoProveedor, - Variants, uSistemaFunc, uEMailUtils, uDialogElegirEMail, uIntegerListUtils, uStringsUtils; + Variants, uSistemaFunc, uEMailUtils, uDialogElegirEMail, uIntegerListUtils, uStringsUtils, + uPlugins_Intf, uModuleController; { TPedidosProveedorController } @@ -237,6 +239,7 @@ begin end; end; +{ function TPedidosProveedorController.BuscarSinFacturar: IBizPedidoProveedor; var Condicion: TDAWhereExpression; @@ -260,6 +263,7 @@ begin HideHourglassCursor; end; end; +} function TPedidosProveedorController.BuscarTodos( const AID_Proveedor: Integer): IBizPedidoProveedor; @@ -416,7 +420,6 @@ begin // INCIDENCIAS := Nil; REF_PED_CLIENTE := ''; ID_PEDIDO_CLIENTE := 0; - ID_FACTURA := 0; end; Result.Post; finally @@ -574,6 +577,27 @@ begin end; end; +procedure TPedidosProveedorController.VerFacturasDePedido(APedido: IBizPedidoProveedor); +var + AModule : TModuleController; + APlugin : IMCFacturasProveedor; +begin + if not Assigned(APedido) then + raise Exception.Create ('Pedido no asignado (VerFacturasDePedido)'); + + if APedido.DataTable.Active then + APedido.DataTable.Active := True; + + AModule := AppFactuGES.GetModule(MODULENAME_FACTURAS_PROVEEDOR); + if Assigned(AModule) then + try + if Supports(AModule, IMCFacturasProveedor, APlugin) then + APlugin.VerFacturasDePedido(APedido.ID, APedido.REFERENCIA, APedido.NOMBRE); + finally + APlugin := NIL; + end; +end; + function TPedidosProveedorController._Vacio: IBizPedidoProveedor; begin Result := Buscar(ID_NULO); diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm index 19ed0283..669d053d 100644 --- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm @@ -14,12 +14,12 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor Top = 84 end object rda_PedidosProveedor: TDARemoteDataAdapter + DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer Left = 43 Top = 151 end @@ -289,25 +289,10 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor Name = 'ID_FORMA_PAGO' DataType = datInteger DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO' - end - item - Name = 'ID_FACTURA' - DataType = datInteger - DisplayLabel = 'PedidosProveedor_ID_FACTURA' - DictionaryEntry = 'PedidosProveedor_ID_FACTURA' - end - item - Name = 'REF_FACTURA_PROV' - DataType = datString - Size = 255 - DisplayLabel = 'PedidosProveedor_REF_FACTURA_PROV' - DictionaryEntry = 'PedidosProveedor_REF_FACTURA_PROV' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_PedidosProveedor - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PedidosProveedor' IndexDefs = <> Left = 160 @@ -367,8 +352,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor end> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_PedidosProveedor - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PedidosProveedor_Articulos_Pendientes' IndexDefs = <> Left = 480 @@ -495,8 +478,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor MasterSource = ds_PedidosProveedor MasterFields = 'ID' DetailFields = 'ID_PEDIDO' - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PedidosProveedor_Detalles' IndexDefs = <> Left = 296 @@ -519,8 +500,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_PedidosProveedor - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'ListaAnosPedidos' IndexDefs = <> Left = 168 diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas index 7670cc19..c0d1eb74 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas @@ -3,16 +3,16 @@ unit schPedidosProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosPedidos = '{BB4ACD7F-346E-4B72-9B4C-4765E709D911}'; - RID_PedidosProveedor = '{FB6CB8F5-5944-469C-848F-C2B228E6115F}'; - RID_PedidosProveedor_Detalles = '{BB197BA1-5EB9-416C-A7DD-1B8C3097AE72}'; - RID_PedidosProveedor_Articulos_Pendientes = '{D8031329-D44D-436D-90CC-28FFBF9B3485}'; + RID_ListaAnosPedidos = '{0BE63A2E-B331-4A57-A663-4E77D6E4A12A}'; + RID_PedidosProveedor = '{CD6B65EC-536D-4CF6-A278-D5B2E929094D}'; + RID_PedidosProveedor_Detalles = '{5C269D11-EC6B-4D1E-B1F9-48A80A4F22DC}'; + RID_PedidosProveedor_Articulos_Pendientes = '{3E1EB0DC-A289-4452-B9D4-B57A29E5D8DA}'; { Data table names } nme_ListaAnosPedidos = 'ListaAnosPedidos'; @@ -67,8 +67,6 @@ const fld_PedidosProveedorIVA = 'IVA'; fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA'; fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO'; - fld_PedidosProveedorID_FACTURA = 'ID_FACTURA'; - fld_PedidosProveedorREF_FACTURA_PROV = 'REF_FACTURA_PROV'; { PedidosProveedor field indexes } idx_PedidosProveedorID = 0; @@ -111,8 +109,6 @@ const idx_PedidosProveedorIVA = 37; idx_PedidosProveedorIMPORTE_IVA = 38; idx_PedidosProveedorID_FORMA_PAGO = 39; - idx_PedidosProveedorID_FACTURA = 40; - idx_PedidosProveedorREF_FACTURA_PROV = 41; { PedidosProveedor_Detalles fields } fld_PedidosProveedor_DetallesID = 'ID'; @@ -169,7 +165,7 @@ const type { IListaAnosPedidos } IListaAnosPedidos = interface(IDAStronglyTypedDataTable) - ['{F50ECDED-B2E2-4A7E-A160-91F65194D336}'] + ['{444C24ED-7A28-4E70-A26D-6D68F92B116D}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -204,7 +200,7 @@ type { IPedidosProveedor } IPedidosProveedor = interface(IDAStronglyTypedDataTable) - ['{52592A3B-FB1A-438A-8B4D-56335E373D8C}'] + ['{8227DEFE-3F3E-4F9B-8BD0-0063F47CF363}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -364,14 +360,6 @@ type procedure SetID_FORMA_PAGOValue(const aValue: Integer); function GetID_FORMA_PAGOIsNull: Boolean; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); - function GetID_FACTURAValue: Integer; - procedure SetID_FACTURAValue(const aValue: Integer); - function GetID_FACTURAIsNull: Boolean; - procedure SetID_FACTURAIsNull(const aValue: Boolean); - function GetREF_FACTURA_PROVValue: String; - procedure SetREF_FACTURA_PROVValue(const aValue: String); - function GetREF_FACTURA_PROVIsNull: Boolean; - procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); { Properties } @@ -455,10 +443,6 @@ type property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; 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 ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; - property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull; end; { TPedidosProveedorDataTableRules } @@ -628,14 +612,6 @@ type procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetID_FACTURAValue: Integer; virtual; - procedure SetID_FACTURAValue(const aValue: Integer); virtual; - function GetID_FACTURAIsNull: Boolean; virtual; - procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; - function GetREF_FACTURA_PROVValue: String; virtual; - procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual; - function GetREF_FACTURA_PROVIsNull: Boolean; virtual; - procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -718,10 +694,6 @@ type property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; 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 ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; - property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -731,7 +703,7 @@ type { IPedidosProveedor_Detalles } IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{5D182AFF-F1C8-4C0C-A82B-E8F74B11F199}'] + ['{86705E35-B1C5-4E3D-997C-F320EEA14017}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -946,7 +918,7 @@ type { IPedidosProveedor_Articulos_Pendientes } IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) - ['{4EDB8973-E2C1-4B31-BAB1-1724233A993F}'] + ['{46FBB380-02E3-4155-A485-1B6D4122047A}'] { Property getters and setters } function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); @@ -1939,48 +1911,6 @@ begin DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].AsVariant := Null; end; -function TPedidosProveedorDataTableRules.GetID_FACTURAValue: Integer; -begin - result := DataTable.Fields[idx_PedidosProveedorID_FACTURA].AsInteger; -end; - -procedure TPedidosProveedorDataTableRules.SetID_FACTURAValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosProveedorID_FACTURA].AsInteger := aValue; -end; - -function TPedidosProveedorDataTableRules.GetID_FACTURAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosProveedorID_FACTURA].IsNull; -end; - -procedure TPedidosProveedorDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosProveedorID_FACTURA].AsVariant := Null; -end; - -function TPedidosProveedorDataTableRules.GetREF_FACTURA_PROVValue: String; -begin - result := DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].AsString; -end; - -procedure TPedidosProveedorDataTableRules.SetREF_FACTURA_PROVValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].AsString := aValue; -end; - -function TPedidosProveedorDataTableRules.GetREF_FACTURA_PROVIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].IsNull; -end; - -procedure TPedidosProveedorDataTableRules.SetREF_FACTURA_PROVIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].AsVariant := Null; -end; - { TPedidosProveedor_DetallesDataTableRules } constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas index a1a250d3..ea865eb3 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas @@ -9,15 +9,15 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosPedidosDelta = '{7413239D-F923-4D2D-885F-4083C7008226}'; - RID_PedidosProveedorDelta = '{D1505641-F1C6-4565-823C-F14DC964DDC6}'; - RID_PedidosProveedor_DetallesDelta = '{E1572661-F1D9-4902-A018-60E27BF71613}'; - RID_PedidosProveedor_Articulos_PendientesDelta = '{C1F7A9E2-4E27-4594-90D6-A830EBA65AF2}'; + RID_ListaAnosPedidosDelta = '{2CD89CFA-6628-4D1B-AAFD-2143F6E16C6F}'; + RID_PedidosProveedorDelta = '{6510A108-8EDD-4CAF-AA7B-C010D901B2B0}'; + RID_PedidosProveedor_DetallesDelta = '{92F733E7-B35E-4B57-B2F8-CD648B380B90}'; + RID_PedidosProveedor_Articulos_PendientesDelta = '{99E04FCB-79B4-4C08-B667-38699CAD1FE4}'; type { IListaAnosPedidosDelta } IListaAnosPedidosDelta = interface(IListaAnosPedidos) - ['{7413239D-F923-4D2D-885F-4083C7008226}'] + ['{2CD89CFA-6628-4D1B-AAFD-2143F6E16C6F}'] { Property getters and setters } function GetOldANOValue : String; @@ -51,7 +51,7 @@ type { IPedidosProveedorDelta } IPedidosProveedorDelta = interface(IPedidosProveedor) - ['{D1505641-F1C6-4565-823C-F14DC964DDC6}'] + ['{6510A108-8EDD-4CAF-AA7B-C010D901B2B0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -93,8 +93,6 @@ type function GetOldIVAValue : Float; function GetOldIMPORTE_IVAValue : Currency; function GetOldID_FORMA_PAGOValue : Integer; - function GetOldID_FACTURAValue : Integer; - function GetOldREF_FACTURA_PROVValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -137,8 +135,6 @@ type property OldIVA : Float read GetOldIVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; - property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue; end; { TPedidosProveedorBusinessProcessorRules } @@ -388,18 +384,6 @@ type function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetID_FACTURAValue: Integer; virtual; - function GetID_FACTURAIsNull: Boolean; virtual; - function GetOldID_FACTURAValue: Integer; virtual; - function GetOldID_FACTURAIsNull: Boolean; virtual; - procedure SetID_FACTURAValue(const aValue: Integer); virtual; - procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; - function GetREF_FACTURA_PROVValue: String; virtual; - function GetREF_FACTURA_PROVIsNull: Boolean; virtual; - function GetOldREF_FACTURA_PROVValue: String; virtual; - function GetOldREF_FACTURA_PROVIsNull: Boolean; virtual; - procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual; - procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -562,14 +546,6 @@ type 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 ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull; - property REF_FACTURA_PROV : String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; - property REF_FACTURA_PROVIsNull : Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull; - property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue; - property OldREF_FACTURA_PROVIsNull : Boolean read GetOldREF_FACTURA_PROVIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -579,7 +555,7 @@ type { IPedidosProveedor_DetallesDelta } IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) - ['{E1572661-F1D9-4902-A018-60E27BF71613}'] + ['{92F733E7-B35E-4B57-B2F8-CD648B380B90}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; @@ -793,7 +769,7 @@ type { IPedidosProveedor_Articulos_PendientesDelta } IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) - ['{C1F7A9E2-4E27-4594-90D6-A830EBA65AF2}'] + ['{99E04FCB-79B4-4C08-B667-38699CAD1FE4}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; function GetOldREFERENCIAValue : String; @@ -2198,68 +2174,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := Null; end; -function TPedidosProveedorBusinessProcessorRules.GetID_FACTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA]; -end; - -function TPedidosProveedorBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA]); -end; - -function TPedidosProveedorBusinessProcessorRules.GetOldID_FACTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_FACTURA]; -end; - -function TPedidosProveedorBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_FACTURA]); -end; - -procedure TPedidosProveedorBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA] := aValue; -end; - -procedure TPedidosProveedorBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA] := Null; -end; - -function TPedidosProveedorBusinessProcessorRules.GetREF_FACTURA_PROVValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV]; -end; - -function TPedidosProveedorBusinessProcessorRules.GetREF_FACTURA_PROVIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV]); -end; - -function TPedidosProveedorBusinessProcessorRules.GetOldREF_FACTURA_PROVValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_FACTURA_PROV]; -end; - -function TPedidosProveedorBusinessProcessorRules.GetOldREF_FACTURA_PROVIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_FACTURA_PROV]); -end; - -procedure TPedidosProveedorBusinessProcessorRules.SetREF_FACTURA_PROVValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV] := aValue; -end; - -procedure TPedidosProveedorBusinessProcessorRules.SetREF_FACTURA_PROVIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV] := Null; -end; - { TPedidosProveedor_DetallesBusinessProcessorRules } constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas index 295a87aa..a7213f14 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas @@ -62,7 +62,6 @@ type procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); override; // procedure SetINCIDENCIASValue(const aValue: IROStrings); override; procedure SetID_FORMA_PAGOValue(const aValue: Integer); override; - procedure SetID_FACTURAValue(const aValue: Integer); override; procedure IMPORTE_NETOOnChange(Sender: TDACustomField); procedure IMPORTE_PORTEOnChange(Sender: TDACustomField); @@ -297,14 +296,6 @@ begin inherited; end; -procedure TBizPedidoProveedor.SetID_FACTURAValue(const aValue: Integer); -begin - if (aValue = 0) then - SetFieldNull(DataTable, fld_PedidosProveedorID_FACTURA) - else - inherited; -end; - procedure TBizPedidoProveedor.SetID_FORMA_PAGOValue(const aValue: Integer); begin if (aValue = 0) then diff --git a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj index 0ecd09d7..0384abbb 100644 --- a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj +++ b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj @@ -19,6 +19,7 @@ + @@ -261,14 +262,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm index f278a93e..48a83e61 100644 --- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm @@ -199,14 +199,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor DatasetField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO' end - item - DatasetField = 'ID_FACTURA' - TableField = 'ID_FACTURA' - end - item - DatasetField = 'REF_FACTURA_PROV' - TableField = 'REF_FACTURA_PROV' - end item DatasetField = 'ID_DIRECCION' TableField = 'ID_DIRECCION' @@ -441,17 +433,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor Name = 'ID_FORMA_PAGO' DataType = datInteger DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO' - end - item - Name = 'ID_FACTURA' - DataType = datInteger - DictionaryEntry = 'PedidosProveedor_ID_FACTURA' - end - item - Name = 'REF_FACTURA_PROV' - DataType = datString - Size = 255 - DictionaryEntry = 'PedidosProveedor_REF_FACTURA_PROV' end> end item @@ -749,10 +730,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor end item Params = < - item - Name = 'PERSONA_CONTACTO_PROV' - Value = '' - end item Name = 'ID' DataType = datAutoInc @@ -761,126 +738,166 @@ object srvPedidosProveedor: TsrvPedidosProveedor end item Name = 'ID_EMPRESA' + DataType = datInteger Value = '' end item Name = 'ID_PROVEEDOR' + DataType = datInteger Value = '' end item Name = 'ID_DIRECCION' + DataType = datInteger + Value = '' + end + item + Name = 'PERSONA_CONTACTO_PROV' + DataType = datString + Size = 255 Value = '' end item Name = 'REFERENCIA' + DataType = datString + Size = 255 Value = '' end item Name = 'FECHA_PEDIDO' + DataType = datDateTime Value = '' end item Name = 'FECHA_CONFIRMACION' + DataType = datDateTime Value = '' end item Name = 'FECHA_ENTREGA' + DataType = datDateTime Value = '' end item Name = 'ID_ALMACEN' + DataType = datInteger Value = '' end item Name = 'ID_OBRA' + DataType = datInteger Value = '' end item Name = 'OBSERVACIONES' + DataType = datMemo Value = '' end item Name = 'INCIDENCIAS' + DataType = datMemo Value = '' end item Name = 'INCIDENCIAS_ACTIVAS' + DataType = datSmallInt Value = '' end item Name = 'CALLE' + DataType = datString + Size = 255 Value = '' end item Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 Value = '' end item Name = 'POBLACION' + DataType = datString + Size = 255 Value = '' end item Name = 'PROVINCIA' + DataType = datString + Size = 255 Value = '' end item Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 Value = '' end item Name = 'TELEFONO' + DataType = datString + Size = 25 Value = '' end item Name = 'ID_PEDIDO_CLIENTE' + DataType = datInteger Value = '' end item Name = 'IMPORTE_NETO' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_PORTE' + DataType = datCurrency Value = '' end item Name = 'DESCUENTO' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency Value = '' end item Name = 'BASE_IMPONIBLE' + DataType = datCurrency Value = '' end item Name = 'IVA' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_IVA' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_TOTAL' + DataType = datCurrency Value = '' end item Name = 'ID_FORMA_PAGO' + DataType = datInteger Value = '' end item Name = 'FECHA_ENVIO' + DataType = datDateTime Value = '' end item Name = 'USUARIO' - Value = '' - end - item - Name = 'ID_FACTURA' + DataType = datString + Size = 30 Value = '' end> Statements = < @@ -896,15 +913,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor 'EFONO, ID_PEDIDO_CLIENTE,'#10' IMPORTE_NETO, IMPORTE_PORTE, DESC' + 'UENTO, IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA,' + ' IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' FECHA_ENVIO, USUARIO, FECHA_' + - 'ALTA, ID_FACTURA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_PROVEEDOR,' + - ' :ID_DIRECCION,'#10' :PERSONA_CONTACTO_PROV, :REFERENCIA, :FECHA' + - '_PEDIDO,'#10' :FECHA_CONFIRMACION, :FECHA_ENTREGA, :ID_ALMACEN, ' + - ':ID_OBRA,'#10' :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVA' + - 'S,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA' + - '_CONTACTO,'#10' :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, :I' + - 'MPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIB' + - 'LE, :IVA,'#10' :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :FE' + - 'CHA_ENVIO,'#10' :USUARIO, CURRENT_TIMESTAMP, :ID_FACTURA)'#10 + 'ALTA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_PROVEEDOR, :ID_DIRECCI' + + 'ON,'#10' :PERSONA_CONTACTO_PROV, :REFERENCIA, :FECHA_PEDIDO,'#10' ' + + ' :FECHA_CONFIRMACION, :FECHA_ENTREGA, :ID_ALMACEN, :ID_OBRA,'#10' ' + + ' :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS,'#10' :CAL' + + 'LE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' ' + + ' :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, :IMPORTE_PORTE' + + ','#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' ' + + ' :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :FECHA_ENVIO,'#10' ' + + ' :USUARIO, CURRENT_TIMESTAMP)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -912,138 +929,173 @@ object srvPedidosProveedor: TsrvPedidosProveedor end item Params = < - item - Name = 'PERSONA_CONTACTO_PROV' - Value = '' - end item Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_PEDIDOS_PROV_ID' + DataType = datInteger Value = '' end item Name = 'OBSERVACIONES' + DataType = datMemo Value = '' end item Name = 'REFERENCIA' + DataType = datString + Size = 255 Value = '' end item Name = 'ID_EMPRESA' + DataType = datInteger Value = '' end item Name = 'ID_PROVEEDOR' + DataType = datInteger Value = '' end item Name = 'ID_DIRECCION' + DataType = datInteger + Value = '' + end + item + Name = 'PERSONA_CONTACTO_PROV' + DataType = datString + Size = 255 Value = '' end item Name = 'FECHA_ENVIO' + DataType = datDateTime Value = '' end item Name = 'FECHA_PEDIDO' + DataType = datDateTime Value = '' end item Name = 'FECHA_CONFIRMACION' + DataType = datDateTime Value = '' end item Name = 'FECHA_ENTREGA' + DataType = datDateTime Value = '' end item Name = 'INCIDENCIAS' + DataType = datMemo Value = '' end item Name = 'IMPORTE_TOTAL' + DataType = datCurrency Value = '' end item Name = 'INCIDENCIAS_ACTIVAS' + DataType = datSmallInt Value = '' end item Name = 'ID_ALMACEN' + DataType = datInteger Value = '' end item Name = 'ID_OBRA' + DataType = datInteger Value = '' end item Name = 'CALLE' + DataType = datString + Size = 255 Value = '' end item Name = 'POBLACION' + DataType = datString + Size = 255 Value = '' end item Name = 'PROVINCIA' + DataType = datString + Size = 255 Value = '' end item Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 Value = '' end item Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 Value = '' end item Name = 'TELEFONO' + DataType = datString + Size = 25 Value = '' end item Name = 'ID_PEDIDO_CLIENTE' + DataType = datInteger Value = '' end item Name = 'IMPORTE_NETO' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_PORTE' + DataType = datCurrency Value = '' end item Name = 'DESCUENTO' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency Value = '' end item Name = 'BASE_IMPONIBLE' + DataType = datCurrency Value = '' end item Name = 'IVA' + DataType = datCurrency Value = '' end item Name = 'IMPORTE_IVA' + DataType = datCurrency Value = '' end item Name = 'ID_FORMA_PAGO' + DataType = datInteger Value = '' end item Name = 'USUARIO' - Value = '' - end - item - Name = 'ID_FACTURA' + DataType = datString + Size = 30 Value = '' end item @@ -1073,7 +1125,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor ', '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' I' + 'MPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 + ' USUARIO = :USUARIO,'#10' FECHA_MODIFICACION = CURRENT_TIMESTA' + - 'MP,'#10' ID_FACTURA = :ID_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'MP'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm index 27e11a27..5d5decfe 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm @@ -73,10 +73,18 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor Action = actRecibirPedido DisplayMode = nbdmImageAndText end + object TBXSeparatorItem17: TTBXSeparatorItem + end object TBXItem38: TTBXItem Action = actFacturarPedido DisplayMode = nbdmImageAndText end + object TBXItem42: TTBXItem + Action = actVerFacturas + DisplayMode = nbdmImageAndText + end + object TBXSeparatorItem18: TTBXSeparatorItem + end object TBXItem41: TTBXItem Action = actInformes end @@ -154,24 +162,34 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor Width = 267 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 277 + Left = 271 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 277 + ExplicitLeft = 271 ExplicitWidth = 319 Width = 319 end inherited eLista: TcxComboBox - Left = 543 + Left = 531 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 543 - ExplicitWidth = 215 - Width = 215 + ExplicitLeft = 531 + ExplicitWidth = 100 + Width = 100 + end + inherited eLista2: TcxComboBox + Left = 636 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 636 + ExplicitWidth = 93 + Width = 93 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel @@ -242,7 +260,7 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor object actFacturarPedido: TAction Category = 'Acciones' Caption = 'Generar factura' - ImageIndex = 23 + ImageIndex = 18 OnExecute = actFacturarPedidoExecute OnUpdate = actFacturarPedidoUpdate end @@ -257,6 +275,12 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor Caption = 'Informes' OnExecute = actInformesExecute end + object actVerFacturas: TAction + Category = 'Acciones' + Caption = 'Ver facturas relacionadas' + ImageIndex = 21 + OnExecute = actVerFacturasExecute + end end inherited SmallImages: TPngImageList [5] PngImages = < diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas index ff3e4e71..6e2f84b1 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas @@ -33,6 +33,10 @@ type actInformes: TAction; TBXItem41: TTBXItem; JSInformesDialog: TJSDialog; + actVerFacturas: TAction; + TBXSeparatorItem17: TTBXSeparatorItem; + TBXSeparatorItem18: TTBXSeparatorItem; + TBXItem42: TTBXItem; procedure FormShow(Sender: TObject); procedure actCambiarSituacionExecute(Sender: TObject); procedure actRecibirPedidoUpdate(Sender: TObject); @@ -44,6 +48,7 @@ type procedure actEnviarEMailUpdate(Sender: TObject); procedure actInformesExecute(Sender: TObject); procedure OnListaAnosChange(Sender: TObject; const Text: string); + procedure actVerFacturasExecute(Sender: TObject); protected FPedidos: IBizPedidoProveedor; @@ -154,7 +159,7 @@ begin inherited; (Sender as TAction).Enabled := HayDatos and not (ViewGrid.NumSeleccionados > 1) - and (FPedidos.REF_FACTURA_PROV = '') +// and (FPedidos.REF_FACTURA_PROV = '') and ViewGrid.esSeleccionCeldaDatos; end; @@ -199,6 +204,12 @@ begin (FPedidos.SITUACION <> SITUACION_PEDIDO_RECIBIDO); end; +procedure TfEditorPedidosProveedor.actVerFacturasExecute(Sender: TObject); +begin + inherited; + FController.VerFacturasDePedido(Pedidos); +end; + constructor TfEditorPedidosProveedor.Create(AOwner: TComponent); begin inherited; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 6fbfd24c..8d259956 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -32,11 +32,12 @@ type function BuscarTodos: IBizPresupuestoCliente; overload; function BuscarTodos(const ID_Cliente: Integer): IBizPresupuestoCliente; overload; function BuscarAceptados : IBizPresupuestoCliente; - function BuscarSinFacturar : IBizPresupuestoCliente; +// function BuscarSinFacturar : IBizPresupuestoCliente; procedure Ver(APresupuesto : IBizPresupuestoCliente); procedure VerTodos(APresupuestos: IBizPresupuestoCliente; const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AHeaderText: String = ''); + procedure VerFacturasDePresupuesto(APresupuesto : IBizPresupuestoCliente); procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente); function Nuevo : IBizPresupuestoCliente; function Anadir(APresupuesto : IBizPresupuestoCliente) : Boolean; @@ -123,12 +124,13 @@ type function BuscarTodos: IBizPresupuestoCliente; overload; function BuscarTodos(const ID_Cliente: Integer): IBizPresupuestoCliente; overload; function BuscarAceptados : IBizPresupuestoCliente; - function BuscarSinFacturar : IBizPresupuestoCliente; +// function BuscarSinFacturar : IBizPresupuestoCliente; function Nuevo : IBizPresupuestoCliente; procedure Ver(APresupuesto : IBizPresupuestoCliente); procedure VerTodos(APresupuestos: IBizPresupuestoCliente; const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AHeaderText: String = ''); + procedure VerFacturasDePresupuesto(APresupuesto : IBizPresupuestoCliente); procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente); function Duplicar(APresupuesto: IBizPresupuestoCliente): IBizPresupuestoCliente; @@ -168,7 +170,7 @@ uses uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente, schContactosClient_Intf, uPresupuestosClienteReportController, uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils, - uIDialogListaPresupuestosEnvioEMail; + uIDialogListaPresupuestosEnvioEMail, uModuleController, uPlugins_Intf; { TPresupuestosClienteController } @@ -275,6 +277,7 @@ begin end; end; +{ function TPresupuestosClienteController.BuscarSinFacturar: IBizPresupuestoCliente; var Condicion: TDAWhereExpression; @@ -298,6 +301,7 @@ begin HideHourglassCursor; end; end; +} function TPresupuestosClienteController.BuscarTodos( const ID_Cliente: Integer): IBizPresupuestoCliente; @@ -457,7 +461,7 @@ begin FECHA_PRESUPUESTO := DateOf(Now); INCIDENCIAS_ACTIVAS := 0; INCIDENCIASIsNull := True; - ID_FACTURAIsNull := True; +// ID_FACTURAIsNull := True; FECHA_DECISIONIsNull := True; REFERENCIA := ''; SITUACION := SITUACION_PRESUPUESTO_PENDIENTE; @@ -571,6 +575,28 @@ begin } end; +procedure TPresupuestosClienteController.VerFacturasDePresupuesto( + APresupuesto: IBizPresupuestoCliente); +var + AModule : TModuleController; + APlugin : IMCFacturasCliente; +begin + if not Assigned(APresupuesto) then + raise Exception.Create ('Presupuesto no asignado (VerFacturasDePresupuesto)'); + + if not APresupuesto.DataTable.Active then + APresupuesto.DataTable.Active := True; + + AModule := AppFactuGES.GetModule(MODULENAME_FACTURAS_CLIENTE); + if Assigned(AModule) then + try + if Supports(AModule, IMCFacturasCliente, APlugin) then + APlugin.VerFacturasPresupuesto(APresupuesto.ID, APresupuesto.REFERENCIA, APresupuesto.NOMBRE); + finally + APlugin := NIL; + end; +end; + procedure TPresupuestosClienteController.VerTodos(APresupuestos: IBizPresupuestoCliente; const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AHeaderText: String = ''); diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm index 3999860c..84b35de0 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm @@ -217,15 +217,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente DataType = datInteger DictionaryEntry = 'PresupuestosCliente_ID_FORMA_PAGO' end - item - Name = 'ID_FACTURA' - DataType = datInteger - end - item - Name = 'FACTURA' - DataType = datString - Size = 255 - end item Name = 'PERSONA_CONTACTO' DataType = datString diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index 724fc26d..db7d30a5 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -9,9 +9,9 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosPresupuestos = '{D73FB601-4855-412C-B145-BC927DE770D2}'; - RID_PresupuestosCliente = '{A2898E4B-6B5C-443D-A744-9FAD9690292D}'; - RID_PresupuestosCliente_Detalles = '{160328C6-D0E9-44C5-B1F0-407C54645451}'; + RID_ListaAnosPresupuestos = '{1156DC6C-FB6C-42AC-9552-371D052F073D}'; + RID_PresupuestosCliente = '{7776B49F-7541-4ADC-8D5B-01D8C5813FE2}'; + RID_PresupuestosCliente_Detalles = '{69E339B8-A74D-47A0-BC7D-58F9F74B2E27}'; { Data table names } nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos'; @@ -55,8 +55,6 @@ const fld_PresupuestosClienteIMPORTE_IVA = 'IMPORTE_IVA'; fld_PresupuestosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_PresupuestosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO'; - fld_PresupuestosClienteID_FACTURA = 'ID_FACTURA'; - fld_PresupuestosClienteFACTURA = 'FACTURA'; fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_PresupuestosClienteDESCRIPCION_BONIFICACION = 'DESCRIPCION_BONIFICACION'; fld_PresupuestosClienteIMPORTE_BONIFICACION = 'IMPORTE_BONIFICACION'; @@ -93,12 +91,10 @@ const idx_PresupuestosClienteIMPORTE_IVA = 27; idx_PresupuestosClienteIMPORTE_TOTAL = 28; idx_PresupuestosClienteID_FORMA_PAGO = 29; - idx_PresupuestosClienteID_FACTURA = 30; - idx_PresupuestosClienteFACTURA = 31; - idx_PresupuestosClientePERSONA_CONTACTO = 32; - idx_PresupuestosClienteDESCRIPCION_BONIFICACION = 33; - idx_PresupuestosClienteIMPORTE_BONIFICACION = 34; - idx_PresupuestosClienteCERTIFICADO_ISO = 35; + idx_PresupuestosClientePERSONA_CONTACTO = 30; + idx_PresupuestosClienteDESCRIPCION_BONIFICACION = 31; + idx_PresupuestosClienteIMPORTE_BONIFICACION = 32; + idx_PresupuestosClienteCERTIFICADO_ISO = 33; { PresupuestosCliente_Detalles fields } fld_PresupuestosCliente_DetallesID = 'ID'; @@ -137,7 +133,7 @@ const type { IListaAnosPresupuestos } IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) - ['{031EC815-C5C0-4E17-AC6F-D5356025BCE1}'] + ['{7B9FC1A2-4BF9-463D-BFA2-17F1DEDC4914}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -172,7 +168,7 @@ type { IPresupuestosCliente } IPresupuestosCliente = interface(IDAStronglyTypedDataTable) - ['{E25A2981-6860-472F-80BA-2CA9D82D18FE}'] + ['{FA3103A1-D1C7-4206-8D73-3FC5D91A5A87}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -290,14 +286,6 @@ type procedure SetID_FORMA_PAGOValue(const aValue: Integer); function GetID_FORMA_PAGOIsNull: Boolean; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); - function GetID_FACTURAValue: Integer; - procedure SetID_FACTURAValue(const aValue: Integer); - function GetID_FACTURAIsNull: Boolean; - procedure SetID_FACTURAIsNull(const aValue: Boolean); - function GetFACTURAValue: String; - procedure SetFACTURAValue(const aValue: String); - function GetFACTURAIsNull: Boolean; - procedure SetFACTURAIsNull(const aValue: Boolean); function GetPERSONA_CONTACTOValue: String; procedure SetPERSONA_CONTACTOValue(const aValue: String); function GetPERSONA_CONTACTOIsNull: Boolean; @@ -377,10 +365,6 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; 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 ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property FACTURA: String read GetFACTURAValue write SetFACTURAValue; - property FACTURAIsNull: Boolean read GetFACTURAIsNull write SetFACTURAIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property DESCRIPCION_BONIFICACION: String read GetDESCRIPCION_BONIFICACIONValue write SetDESCRIPCION_BONIFICACIONValue; @@ -520,14 +504,6 @@ type procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetID_FACTURAValue: Integer; virtual; - procedure SetID_FACTURAValue(const aValue: Integer); virtual; - function GetID_FACTURAIsNull: Boolean; virtual; - procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; - function GetFACTURAValue: String; virtual; - procedure SetFACTURAValue(const aValue: String); virtual; - function GetFACTURAIsNull: Boolean; virtual; - procedure SetFACTURAIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; @@ -606,10 +582,6 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; 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 ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property FACTURA: String read GetFACTURAValue write SetFACTURAValue; - property FACTURAIsNull: Boolean read GetFACTURAIsNull write SetFACTURAIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property DESCRIPCION_BONIFICACION: String read GetDESCRIPCION_BONIFICACIONValue write SetDESCRIPCION_BONIFICACIONValue; @@ -627,7 +599,7 @@ type { IPresupuestosCliente_Detalles } IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{67B4300E-97EF-4FEA-BD7E-7B3C3DD4FB54}'] + ['{341EBBC1-EE9E-46B6-B65A-AB180E04C8A3}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1528,48 +1500,6 @@ begin DataTable.Fields[idx_PresupuestosClienteID_FORMA_PAGO].AsVariant := Null; end; -function TPresupuestosClienteDataTableRules.GetID_FACTURAValue: Integer; -begin - result := DataTable.Fields[idx_PresupuestosClienteID_FACTURA].AsInteger; -end; - -procedure TPresupuestosClienteDataTableRules.SetID_FACTURAValue(const aValue: Integer); -begin - DataTable.Fields[idx_PresupuestosClienteID_FACTURA].AsInteger := aValue; -end; - -function TPresupuestosClienteDataTableRules.GetID_FACTURAIsNull: boolean; -begin - result := DataTable.Fields[idx_PresupuestosClienteID_FACTURA].IsNull; -end; - -procedure TPresupuestosClienteDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PresupuestosClienteID_FACTURA].AsVariant := Null; -end; - -function TPresupuestosClienteDataTableRules.GetFACTURAValue: String; -begin - result := DataTable.Fields[idx_PresupuestosClienteFACTURA].AsString; -end; - -procedure TPresupuestosClienteDataTableRules.SetFACTURAValue(const aValue: String); -begin - DataTable.Fields[idx_PresupuestosClienteFACTURA].AsString := aValue; -end; - -function TPresupuestosClienteDataTableRules.GetFACTURAIsNull: boolean; -begin - result := DataTable.Fields[idx_PresupuestosClienteFACTURA].IsNull; -end; - -procedure TPresupuestosClienteDataTableRules.SetFACTURAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PresupuestosClienteFACTURA].AsVariant := Null; -end; - function TPresupuestosClienteDataTableRules.GetPERSONA_CONTACTOValue: String; begin result := DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsString; diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas index 2939f4fc..c2d645e6 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosPresupuestosDelta = '{52C49635-F38B-4B6E-B3D1-79EF81B7D611}'; - RID_PresupuestosClienteDelta = '{779086A7-A3B9-42A6-A854-7AA3661376B9}'; - RID_PresupuestosCliente_DetallesDelta = '{D21AC7F0-E4A5-48D5-8165-2CF2EEBFA6D6}'; + RID_ListaAnosPresupuestosDelta = '{016A4229-E5D0-49BF-95B2-B0D2202975FF}'; + RID_PresupuestosClienteDelta = '{883ECB54-1EFD-49B9-86AD-BAC66B8C72B8}'; + RID_PresupuestosCliente_DetallesDelta = '{7FC6F73A-E858-43F9-8F1E-9907EE547F26}'; type { IListaAnosPresupuestosDelta } IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) - ['{52C49635-F38B-4B6E-B3D1-79EF81B7D611}'] + ['{016A4229-E5D0-49BF-95B2-B0D2202975FF}'] { Property getters and setters } function GetOldANOValue : String; @@ -50,7 +50,7 @@ type { IPresupuestosClienteDelta } IPresupuestosClienteDelta = interface(IPresupuestosCliente) - ['{779086A7-A3B9-42A6-A854-7AA3661376B9}'] + ['{883ECB54-1EFD-49B9-86AD-BAC66B8C72B8}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -82,8 +82,6 @@ type function GetOldIMPORTE_IVAValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldID_FORMA_PAGOValue : Integer; - function GetOldID_FACTURAValue : Integer; - function GetOldFACTURAValue : String; function GetOldPERSONA_CONTACTOValue : String; function GetOldDESCRIPCION_BONIFICACIONValue : String; function GetOldIMPORTE_BONIFICACIONValue : Currency; @@ -120,8 +118,6 @@ type property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; - property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property OldFACTURA : String read GetOldFACTURAValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldDESCRIPCION_BONIFICACION : String read GetOldDESCRIPCION_BONIFICACIONValue; property OldIMPORTE_BONIFICACION : Currency read GetOldIMPORTE_BONIFICACIONValue; @@ -317,18 +313,6 @@ type function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetID_FACTURAValue: Integer; virtual; - function GetID_FACTURAIsNull: Boolean; virtual; - function GetOldID_FACTURAValue: Integer; virtual; - function GetOldID_FACTURAIsNull: Boolean; virtual; - procedure SetID_FACTURAValue(const aValue: Integer); virtual; - procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; - function GetFACTURAValue: String; virtual; - function GetFACTURAIsNull: Boolean; virtual; - function GetOldFACTURAValue: String; virtual; - function GetOldFACTURAIsNull: Boolean; virtual; - procedure SetFACTURAValue(const aValue: String); virtual; - procedure SetFACTURAIsNull(const aValue: Boolean); virtual; function GetPERSONA_CONTACTOValue: String; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; @@ -475,14 +459,6 @@ type 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 ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull; - property FACTURA : String read GetFACTURAValue write SetFACTURAValue; - property FACTURAIsNull : Boolean read GetFACTURAIsNull write SetFACTURAIsNull; - property OldFACTURA : String read GetOldFACTURAValue; - property OldFACTURAIsNull : Boolean read GetOldFACTURAIsNull; property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; @@ -508,7 +484,7 @@ type { IPresupuestosCliente_DetallesDelta } IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) - ['{D21AC7F0-E4A5-48D5-8165-2CF2EEBFA6D6}'] + ['{7FC6F73A-E858-43F9-8F1E-9907EE547F26}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PRESUPUESTOValue : Integer; @@ -1723,68 +1699,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FORMA_PAGO] := Null; end; -function TPresupuestosClienteBusinessProcessorRules.GetID_FACTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FACTURA]; -end; - -function TPresupuestosClienteBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FACTURA]); -end; - -function TPresupuestosClienteBusinessProcessorRules.GetOldID_FACTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_FACTURA]; -end; - -function TPresupuestosClienteBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_FACTURA]); -end; - -procedure TPresupuestosClienteBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FACTURA] := aValue; -end; - -procedure TPresupuestosClienteBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FACTURA] := Null; -end; - -function TPresupuestosClienteBusinessProcessorRules.GetFACTURAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFACTURA]; -end; - -function TPresupuestosClienteBusinessProcessorRules.GetFACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFACTURA]); -end; - -function TPresupuestosClienteBusinessProcessorRules.GetOldFACTURAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFACTURA]; -end; - -function TPresupuestosClienteBusinessProcessorRules.GetOldFACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFACTURA]); -end; - -procedure TPresupuestosClienteBusinessProcessorRules.SetFACTURAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFACTURA] := aValue; -end; - -procedure TPresupuestosClienteBusinessProcessorRules.SetFACTURAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFACTURA] := Null; -end; - function TPresupuestosClienteBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO]; diff --git a/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj b/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj index 0d5b72d2..9711671a 100644 --- a/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj +++ b/Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj @@ -17,6 +17,7 @@ + @@ -261,14 +262,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm index f8d85c1f..66a6292f 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm @@ -163,14 +163,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DatasetField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO' end - item - DatasetField = 'ID_FACTURA' - TableField = 'ID_FACTURA' - end - item - DatasetField = 'FACTURA' - TableField = 'FACTURA' - end item DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' @@ -356,15 +348,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DataType = datInteger DictionaryEntry = 'PresupuestosCliente_ID_FORMA_PAGO' end - item - Name = 'ID_FACTURA' - DataType = datInteger - end - item - Name = 'FACTURA' - DataType = datString - Size = 255 - end item Name = 'PERSONA_CONTACTO' DataType = datString @@ -702,11 +685,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DataType = datInteger Value = '' end - item - Name = 'ID_FACTURA' - DataType = datInteger - Value = '' - end item Name = 'PERSONA_CONTACTO' DataType = datString @@ -741,17 +719,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'E_FINAL, PORTADA, MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10' INC' + 'IDENCIAS_ACTIVAS, FECHA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORT' + 'E_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA' + - ', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA,'#10' PE' + - 'RSONA_CONTACTO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION, ' + - 'CERTIFICADO_ISO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUE' + - 'STO, :FECHA_DECISION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUAC' + - 'ION, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10' :CLIE' + - 'NTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIA' + - 'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPO' + - 'RTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, ' + - ':BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_F' + - 'ORMA_PAGO, :ID_FACTURA, :PERSONA_CONTACTO,'#10' :DESCRIPCION_BON' + - 'IFICACION, :IMPORTE_BONIFICACION, :CERTIFICADO_ISO)'#10 + ', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' PERSONA_CONTAC' + + 'TO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION, CERTIFICADO_' + + 'ISO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_' + + 'DECISION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUACION, :ID_CLI' + + 'ENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL, :' + + 'PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCIDENC' + + 'IAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :I' + + 'MPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONI' + + 'BLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO, :' + + 'PERSONA_CONTACTO,'#10' :DESCRIPCION_BONIFICACION, :IMPORTE_BONIF' + + 'ICACION, :CERTIFICADO_ISO)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -915,11 +893,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DataType = datInteger Value = '' end - item - Name = 'ID_FACTURA' - DataType = datInteger - Value = '' - end item Name = 'PERSONA_CONTACTO' DataType = datString @@ -967,10 +940,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'TO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, ' + #10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_T' + 'OTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' + - 'ID_FACTURA = :ID_FACTURA,'#10' PERSONA_CONTACTO = :PERSONA_CONTAC' + - 'TO,'#10' DESCRIPCION_BONIFICACION = :DESCRIPCION_BONIFICACION,'#10' ' + - ' IMPORTE_BONIFICACION = :IMPORTE_BONIFICACION,'#10' CERTIFICADO_' + - 'ISO = :CERTIFICADO_ISO'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' DESCRIPCION_BONIFICACI' + + 'ON = :DESCRIPCION_BONIFICACION,'#10' IMPORTE_BONIFICACION = :IMPO' + + 'RTE_BONIFICACION,'#10' CERTIFICADO_ISO = :CERTIFICADO_ISO'#10' WHERE' + + #10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorElegirPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorElegirPresupuestosCliente.dfm index 18a67f8a..b3301450 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorElegirPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorElegirPresupuestosCliente.dfm @@ -1,5 +1,5 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente - Caption = 'Seleccionar pedido de cliente' + Caption = 'Seleccionar presupuesto de cliente' ClientWidth = 656 ExplicitWidth = 664 ExplicitHeight = 538 @@ -9,8 +9,7 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente Top = 139 Width = 656 Visible = False - ExplicitLeft = 8 - ExplicitTop = 232 + ExplicitTop = 139 ExplicitWidth = 656 inherited Image1: TImage Left = 629 @@ -20,7 +19,7 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente inherited TBXDock: TTBXDock Top = 64 Width = 656 - ExplicitTop = 91 + ExplicitTop = 64 ExplicitWidth = 656 inherited tbxMain: TTBXToolbar Left = 427 @@ -82,7 +81,6 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente Padding.Bottom = 8 ParentBackground = False TabOrder = 4 - ExplicitTop = 27 object lblTitle: TLabel AlignWithMargins = True Left = 25 @@ -94,14 +92,14 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente Margins.Right = 0 Margins.Bottom = 8 Align = alTop - Caption = 'Seleccione el pedido de cliente' + Caption = 'Seleccione el presupuesto de cliente' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False - ExplicitWidth = 172 + ExplicitWidth = 205 end object lblComments: TLabel AlignWithMargins = True diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm index 33c4bb67..039db806 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm @@ -186,6 +186,12 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente Action = actGenerarFactura DisplayMode = nbdmImageAndText end + object TBXItem48: TTBXItem + Action = actVerFacturasRelacionadas + DisplayMode = nbdmImageAndText + end + object TBXSeparatorItem19: TTBXSeparatorItem + end object TBXItem46: TTBXItem Action = actInformes end @@ -251,6 +257,12 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente Caption = 'Informes' OnExecute = actInformesExecute end + object actVerFacturasRelacionadas: TAction + Category = 'Acciones' + Caption = 'Ver facturas relacionadas' + ImageIndex = 24 + OnExecute = actVerFacturasRelacionadasExecute + end end inherited SmallImages: TPngImageList PngImages = < diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas index 26c4984c..d428f07b 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas @@ -46,6 +46,9 @@ type TBXItem46: TTBXItem; JSInformesDialog: TJSDialog; TBXItem47: TTBXItem; + actVerFacturasRelacionadas: TAction; + TBXSeparatorItem19: TTBXSeparatorItem; + TBXItem48: TTBXItem; procedure FormShow(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actEliminarUpdate(Sender: TObject); @@ -63,6 +66,7 @@ type procedure actEnviarEMailUpdate(Sender: TObject); procedure actInformesExecute(Sender: TObject); procedure OnListaAnosChange(Sender: TObject; const Text: string); + procedure actVerFacturasRelacionadasExecute(Sender: TObject); protected FPresupuestos: IBizPresupuestoCliente; @@ -348,7 +352,7 @@ begin inherited; (Sender as TAction).Enabled := HayDatos and not (ViewGrid.NumSeleccionados > 1) - and (FPresupuestos.FACTURA = '') +// and (FPresupuestos.FACTURA = '') and ViewGrid.esSeleccionCeldaDatos and (FPresupuestos.SITUACION = SITUACION_PRESUPUESTO_ACEPTADO); end; @@ -384,6 +388,13 @@ begin end; end; +procedure TfEditorPresupuestosCliente.actVerFacturasRelacionadasExecute( + Sender: TObject); +begin + inherited; + FController.VerFacturasDePresupuesto(Presupuestos); +end; + procedure TfEditorPresupuestosCliente.AsignarVista; begin ViewGrid := CreateView(TfrViewPresupuestosCliente) as IViewPresupuestosCliente; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm index 96fc37e8..ad78adcb 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm @@ -136,13 +136,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente HeaderAlignmentHorz = taRightJustify Width = 63 end - object cxGridViewFACTURA: TcxGridDBColumn - Caption = 'Ref. factura' - DataBinding.FieldName = 'FACTURA' - Visible = False - BestFitMaxWidth = 25 - Width = 25 - end end object cxGridDBTableView1: TcxGridDBTableView [1] NavigatorButtons.ConfirmDelete = False @@ -188,37 +181,42 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente Width = 285 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 292 + Left = 249 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 292 + ExplicitLeft = 249 ExplicitWidth = 504 Width = 504 end inherited eLista: TcxComboBox - Left = 750 + Left = 645 + Enabled = False Properties.OnChange = nil Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 750 + ExplicitLeft = 645 + ExplicitWidth = 215 + Width = 215 end inherited eLista2: TcxComboBox - Left = 833 + Left = 776 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 833 + ExplicitLeft = 776 + ExplicitWidth = 207 + Width = 207 end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Item4: TdxLayoutItem Caption = 'Con/Sin Factura:' - Visible = True + Enabled = False end inherited dxLayoutControl1Item5: TdxLayoutItem Caption = 'ISO:' diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas index aac2d94d..8c704b8f 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas @@ -30,7 +30,6 @@ type cxGridViewSITUACION: TcxGridDBColumn; cxGridViewFECHA_PRESUPUESTO: TcxGridDBColumn; cxGridViewCLIENTE_FINAL: TcxGridDBColumn; - cxGridViewFACTURA: TcxGridDBColumn; cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; cxGridLevelPendientes: TcxGridLevel; cxGridLevelEnProceso: TcxGridLevel; @@ -81,7 +80,7 @@ type //Filtros relativos a la vista procedure AnadirFiltroSituaciones; procedure AnadirFiltroFechas; - procedure AnadirFiltroFacturado; +// procedure AnadirFiltroFacturado; procedure AnadirFiltroISO; protected @@ -190,6 +189,7 @@ begin end; +{ procedure TfrViewPresupuestosCliente.AnadirFiltroFacturado; var FFiltro : TcxFilterCriteriaItemList; @@ -213,6 +213,7 @@ begin end; end; end; +} procedure TfrViewPresupuestosCliente.AnadirFiltroSituaciones; var @@ -233,7 +234,7 @@ begin AnadirFiltroSituaciones; AnadirFiltroFechas; - AnadirFiltroFacturado; +// AnadirFiltroFacturado; AnadirFiltroISO; //Finalmente activamos el filtro si tenemos algo diff --git a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas index e1462b2a..ef5ce071 100644 --- a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas +++ b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas @@ -284,13 +284,12 @@ begin if not Assigned(APedidosProveedorController) then Inicializar; - APedidos := APedidosProveedorController.ElegirPedidos(APedidosProveedorController.BuscarSinFacturar, - 'Elija el pedido o pedidos de proveedor que desea utilizar para dar de alta la factura.' - + #10#13 + 'Si elige Pedidos de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True); + APedidos := APedidosProveedorController.ElegirPedidos(APedidosProveedorController.BuscarTodos, + 'Elija el pedido de proveedor que desea utilizar para dar de alta la factura.' , False); if Assigned(APedidos) then begin - if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los pedido/s seleccionados a sus facturas correspondientes?', [])) = IDYES) then + if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del pedido seleccionado a su factura correspondiente?', [])) = IDYES) then Result := GenerarFacturaProvPed(APedidos) else Result := GenerarFacturaProvPed(APedidos, False); @@ -346,6 +345,7 @@ begin APedidosController.RecuperarProveedor(AListaPedidos); AListaPedidos.Proveedor.DataTable.Active := True; AFacturas.Proveedor := AListaPedidos.Proveedor; + AFacturas.ID_PEDIDO := AListaPedidos.ID; AFacturaActual := AFacturas; end; @@ -430,11 +430,12 @@ begin // Guardo la factura que acabo de generar o editar AFacturaActual.CalcularImporteTotal; AFacturasProveedorController.Guardar(AFacturaActual); + // Asocio la factura con el presupuesto - AListaPedidos.Edit; - AListaPedidos.ID_FACTURA := AFacturaActual.ID; - AListaPedidos.Post; - APedidosController.Guardar(AListaPedidos); +// AListaPedidos.Edit; +// AListaPedidos.ID_FACTURA := AFacturaActual.ID; +// AListaPedidos.Post; +// APedidosController.Guardar(AListaPedidos); AListaPedidos.Next; end; diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas index 694158c3..e0ea6b86 100644 --- a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas +++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas @@ -199,13 +199,12 @@ begin if not Assigned(APresupuestosClienteController) then Inicializar; - APresupuestos := APresupuestosClienteController.ElegirPresupuestos(APresupuestosClienteController.BuscarSinFacturar, - 'Elija el presupuesto o presupuestos de proveedor que desea utilizar para dar de alta la factura.' - + #10#13 + 'Si elige presupuestos de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True); + APresupuestos := APresupuestosClienteController.ElegirPresupuestos(APresupuestosClienteController.BuscarAceptados, + 'Elija el presupuesto de cliente que desea utilizar para dar de alta la factura.', False); if Assigned(APresupuestos) then begin - if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los presupuesto/s seleccionados a sus facturas correspondientes?', [])) = IDYES) then + if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del presupuesto seleccionado a su factura correspondientes?', [])) = IDYES) then Result := GenerarFacturaCliPre(APresupuestos) else Result := GenerarFacturaCliPre(APresupuestos, False); @@ -263,6 +262,7 @@ begin AFacturasClienteController.Anadir(AFacturas); APresupuestosController.RecuperarCliente(AListaPresupuestos); AFacturas.Cliente := AListaPresupuestos.Cliente; + AFacturas.ID_PRESUPUESTO := AListaPresupuestos.ID; AFacturas.OBSERVACIONES.Add('Importe de factura por trabajos realizados según indicaciones de nuestro presupuesto ' + AListaPresupuestos.REFERENCIA + ' con fecha ' + DateToStr(AListaPresupuestos.FECHA_PRESUPUESTO)); AFacturaActual := AFacturas; end; @@ -348,11 +348,13 @@ begin // Guardo la factura que acabo de generar o editar AFacturaActual.CalcularImporteTotal; AFacturasClienteController.Guardar(AFacturaActual); + +//Se cambia la relación un presupuesto puede tener 1 o varias facturas, por lo que la factura será la que tenga el ID_PRESUPUESTO // Asocio la factura con el presupuesto - AListaPresupuestos.Edit; - AListaPresupuestos.ID_FACTURA := AFacturaActual.ID; - AListaPresupuestos.Post; - APresupuestosController.Guardar(AListaPresupuestos); +// AListaPresupuestos.Edit; +// AListaPresupuestos.ID_FACTURA := AFacturaActual.ID; +// AListaPresupuestos.Post; +// APresupuestosController.Guardar(AListaPresupuestos); AListaPresupuestos.Next; end; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 1eeef744..c67aa017 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 16c3b80f..37d5400c 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -113,8 +113,6 @@ uses schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule}, uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule}, - schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', - schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', uRptAlbaranesProveedor_Server in '..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas' {RptAlbaranesProveedor: TDataModule}, uRptWordAlbaranProveedor in '..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas' {RptWordAlbaranProveedor: TDataModule}, MidasSpeedFix in 'Utiles\MidasSpeedFix.pas', @@ -126,16 +124,18 @@ uses schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', - schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', - schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', - schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', - schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', - schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', - schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', - schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; + schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', + schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', + schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', + schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', + schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', + schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', + schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', + schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', + schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 2aaa85f3..e6ef7c61 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "2.0.7.0\0" VALUE "ProductName", "FactuGES Servidor\0" VALUE "ProductVersion", "2.0.7.0\0" - VALUE "CompileDate", "viernes, 10 de octubre de 2014 12:57\0" + VALUE "CompileDate", "jueves, 05 de febrero de 2015 14:11\0" END END BLOCK "VarFileInfo"