diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 69ee71d..d8f76b5 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 59cee29..9125027 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -941,6 +941,8 @@ CREATE TABLE FACTURAS_PROVEEDOR ( IMPORTE_DESCUENTO TIPO_IMPORTE, IVA TIPO_PORCENTAJE, IMPORTE_IVA TIPO_IMPORTE, + IRPF TIPO_PORCENTAJE, + IMPORTE_IRPF TIPO_IMPORTE, RE TIPO_PORCENTAJE, IMPORTE_RE TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE, @@ -2756,6 +2758,8 @@ CREATE VIEW V_FACTURAS_PROVEEDOR( IMPORTE_DESCUENTO, IVA, IMPORTE_IVA, + IRPF, + IMPORTE_IRPF, RE, IMPORTE_RE, IMPORTE_TOTAL, @@ -2799,6 +2803,8 @@ SELECT FACTURAS_PROVEEDOR.ID, FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO, FACTURAS_PROVEEDOR.IVA, FACTURAS_PROVEEDOR.IMPORTE_IVA, + FACTURAS_PROVEEDOR.IRPF, + FACTURAS_PROVEEDOR.IMPORTE_IRPF, FACTURAS_PROVEEDOR.RE, FACTURAS_PROVEEDOR.IMPORTE_RE, FACTURAS_PROVEEDOR.IMPORTE_TOTAL, diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index a730d90..b7775b7 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,54 +58,54 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 966dac1..b044e14 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/uViewTotales.dfm b/Source/GUIBase/uViewTotales.dfm index 7bf77e4..e864060 100644 --- a/Source/GUIBase/uViewTotales.dfm +++ b/Source/GUIBase/uViewTotales.dfm @@ -1,15 +1,15 @@ inherited frViewTotales: TfrViewTotales - Width = 788 - Height = 224 + Width = 860 + Height = 404 Align = alBottom - ExplicitWidth = 451 - ExplicitHeight = 224 + ExplicitWidth = 825 + ExplicitHeight = 404 object dxLayoutControl1: TdxLayoutControl AlignWithMargins = True Left = 0 Top = 0 - Width = 788 - Height = 217 + Width = 860 + Height = 233 Margins.Left = 0 Margins.Top = 0 Margins.Right = 0 @@ -21,14 +21,14 @@ inherited frViewTotales: TfrViewTotales AutoContentSizes = [acsWidth, acsHeight] ExplicitWidth = 451 object Bevel3: TBevel - Left = 389 + Left = 423 Top = 28 Width = 3 Height = 122 Shape = bsRightLine end object Bevel4: TBevel - Left = 501 + Left = 535 Top = 70 Width = 210 Height = 9 @@ -66,7 +66,7 @@ inherited frViewTotales: TfrViewTotales Width = 93 end object ImporteIVA: TcxDBCurrencyEdit - Left = 572 + Left = 606 Top = 105 AutoSize = False DataBinding.DataField = 'IMPORTE_IVA' @@ -97,8 +97,8 @@ inherited frViewTotales: TfrViewTotales Width = 137 end object ImporteTotal: TcxDBCurrencyEdit - Left = 502 - Top = 159 + Left = 536 + Top = 186 AutoSize = False DataBinding.DataField = 'IMPORTE_TOTAL' DataBinding.DataSource = DADataSource @@ -124,7 +124,7 @@ inherited frViewTotales: TfrViewTotales StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 + TabOrder = 14 Height = 21 Width = 137 end @@ -159,7 +159,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object edtIVA: TcxDBSpinEdit - Left = 501 + Left = 535 Top = 105 AutoSize = False DataBinding.DataField = 'IVA' @@ -196,7 +196,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object ImporteBase: TcxDBCurrencyEdit - Left = 501 + Left = 535 Top = 28 AutoSize = False DataBinding.DataField = 'BASE_IMPONIBLE' @@ -226,8 +226,8 @@ inherited frViewTotales: TfrViewTotales Width = 92 end object edtRE: TcxDBSpinEdit - Left = 501 - Top = 132 + Left = 535 + Top = 159 AutoSize = False DataBinding.DataField = 'RE' DataBinding.DataSource = DADataSource @@ -258,13 +258,49 @@ inherited frViewTotales: TfrViewTotales StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 12 + Height = 21 + Width = 65 + end + object edtIRPF: TcxDBSpinEdit + Left = 535 + Top = 132 + AutoSize = False + DataBinding.DataSource = DADataSource + Enabled = False + ParentFont = False + Properties.Alignment.Horz = taRightJustify + Properties.AssignedValues.EditFormat = True + Properties.DisplayFormat = ',0.00 %;-,0.00 %' + Properties.ImmediatePost = True + Properties.MaxValue = 100.000000000000000000 + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Font.Charset = DEFAULT_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -11 + Style.Font.Name = 'Tahoma' + Style.Font.Style = [] + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.TextColor = clWindowText + Style.ButtonStyle = bts3D + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 10 Height = 21 Width = 65 end object ImporteRE: TcxDBCurrencyEdit - Left = 572 - Top = 132 + Left = 606 + Top = 159 AutoSize = False DataBinding.DataField = 'IMPORTE_RE' DataBinding.DataSource = DADataSource @@ -289,6 +325,36 @@ inherited frViewTotales: TfrViewTotales StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 13 + Height = 21 + Width = 56 + end + object ImporteIRPF: TcxDBCurrencyEdit + Left = 606 + Top = 132 + AutoSize = False + DataBinding.DataSource = DADataSource + Enabled = False + ParentFont = False + Properties.Alignment.Horz = taRightJustify + Properties.ReadOnly = True + Properties.UseLeftAlignmentOnEditing = False + Properties.UseThousandSeparator = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Font.Charset = DEFAULT_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -11 + Style.Font.Name = 'Tahoma' + Style.Font.Style = [] + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.TextColor = clWindowText + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 11 Height = 21 Width = 56 @@ -387,7 +453,7 @@ inherited frViewTotales: TfrViewTotales Width = 81 end object bTiposIVA: TButton - Left = 241 + Left = 275 Top = 109 Width = 132 Height = 21 @@ -563,6 +629,28 @@ inherited frViewTotales: TfrViewTotales ControlOptions.ShowBorder = False end end + object dxLayoutControl1Group1191: TdxLayoutGroup + ShowCaption = False + Visible = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item2011: TdxLayoutItem + AutoAligns = [aaVertical] + Caption = 'IRPF (%):' + CaptionOptions.AlignHorz = taRightJustify + Control = edtIRPF + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item4421: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Importe de IRPF:' + ShowCaption = False + Control = ImporteIRPF + ControlOptions.ShowBorder = False + end + end object dxLayoutControl1Group8: TdxLayoutGroup ShowCaption = False Hidden = True diff --git a/Source/GUIBase/uViewTotales.pas b/Source/GUIBase/uViewTotales.pas index 7458376..e38b9b3 100644 --- a/Source/GUIBase/uViewTotales.pas +++ b/Source/GUIBase/uViewTotales.pas @@ -16,6 +16,7 @@ type ImporteBase: TcxDBCurrencyEdit; ImporteDto: TcxDBCurrencyEdit; ImporteIVA: TcxDBCurrencyEdit; + ImporteIRPF: TcxDBCurrencyEdit; ImporteTotal: TcxDBCurrencyEdit; edtDescuento: TcxDBSpinEdit; edtIVA: TcxDBSpinEdit; @@ -32,6 +33,7 @@ type dxLayoutControl1Group5: TdxLayoutGroup; dxLayoutControl1Item6: TdxLayoutItem; edtRE: TcxDBSpinEdit; + edtIRPF: TcxDBSpinEdit; dxLayoutControl1Item7: TdxLayoutItem; ImporteRE: TcxDBCurrencyEdit; dxLayoutControl1Item8: TdxLayoutItem; @@ -56,9 +58,12 @@ type dxLayoutControl1Group6: TdxLayoutGroup; dsTiposIVA: TDADataSource; dxLayoutControl1Item16: TdxLayoutItem; + dxLayoutControl1Item2011: TdxLayoutItem; + dxLayoutControl1Item4421: TdxLayoutItem; cbRecargoEquivalencia: TcxDBCheckBox; dxLayoutControl1Group10: TdxLayoutGroup; dxLayoutControl1Group11: TdxLayoutGroup; + dxLayoutControl1Group1191: TdxLayoutGroup; public { Public declarations } end; diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm index b8f97af..902da7b 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm @@ -111,6 +111,19 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor Alignment = taRightJustify DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA' end + item + Name = 'IRPF' + DataType = datFloat + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_IRPF' + end + item + Name = 'IMPORTE_IRPF' + DataType = datCurrency + DisplayLabel = 'Importe IRPF' + Alignment = taRightJustify + DictionaryEntry = 'FacturasProveedor_IMPORTE_IRPF' + end item Name = 'RE' DataType = datFloat diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas index a7acb47..b2f00d6 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 = '{E4006E34-9471-4B45-8BFB-34D795EE5B47}'; - RID_FacturasProveedor_Contratos = '{AEFE41C5-3FCA-46FB-8174-2704B20E2905}'; - RID_FacturasProveedor = '{4621460A-3688-408C-9676-B526823EC8EF}'; - RID_FacturasProveedor_Detalles = '{13D46CB1-CC91-4B2C-83B0-6265D005B1E1}'; + RID_ListaAnosFacturas = '{967EF3B2-AD90-4AF2-916D-06DB5575FD21}'; + RID_FacturasProveedor_Contratos = '{5A804E76-1B25-4E55-A944-CA4F30CB3804}'; + RID_FacturasProveedor = '{77312F2D-C1A9-4F2C-8375-214ADAE31665}'; + RID_FacturasProveedor_Detalles = '{90F07E7A-B93A-4C06-A123-942FDE9320FC}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; @@ -58,6 +58,8 @@ const fld_FacturasProveedorIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; fld_FacturasProveedorIVA = 'IVA'; fld_FacturasProveedorIMPORTE_IVA = 'IMPORTE_IVA'; + fld_FacturasProveedorIRPF = 'IRPF'; + fld_FacturasProveedorIMPORTE_IRPF = 'IMPORTE_IRPF'; fld_FacturasProveedorRE = 'RE'; fld_FacturasProveedorIMPORTE_RE = 'IMPORTE_RE'; fld_FacturasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL'; @@ -102,35 +104,37 @@ const idx_FacturasProveedorIMPORTE_DESCUENTO = 10; idx_FacturasProveedorIVA = 11; idx_FacturasProveedorIMPORTE_IVA = 12; - idx_FacturasProveedorRE = 13; - idx_FacturasProveedorIMPORTE_RE = 14; - idx_FacturasProveedorIMPORTE_TOTAL = 15; - idx_FacturasProveedorOBSERVACIONES = 16; - idx_FacturasProveedorID_PROVEEDOR = 17; - idx_FacturasProveedorNOMBRE_PROVEEDOR = 18; - idx_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR = 19; - idx_FacturasProveedorNIF_CIF = 20; - idx_FacturasProveedorNOMBRE = 21; - idx_FacturasProveedorCALLE = 22; - idx_FacturasProveedorPOBLACION = 23; - idx_FacturasProveedorPROVINCIA = 24; - idx_FacturasProveedorCODIGO_POSTAL = 25; - idx_FacturasProveedorFECHA_ALTA = 26; - idx_FacturasProveedorFECHA_MODIFICACION = 27; - idx_FacturasProveedorUSUARIO = 28; - idx_FacturasProveedorID_FORMA_PAGO = 29; - idx_FacturasProveedorRECARGO_EQUIVALENCIA = 30; - idx_FacturasProveedorID_TIPO_IVA = 31; - idx_FacturasProveedorIMPORTE_NETO = 32; - idx_FacturasProveedorIMPORTE_PORTE = 33; - idx_FacturasProveedorIGNORAR_CONTABILIDAD = 34; - idx_FacturasProveedorID_TIENDA = 35; - idx_FacturasProveedorTIENDA = 36; - idx_FacturasProveedorID_SUBCUENTA = 37; - idx_FacturasProveedorSUBCUENTA = 38; - idx_FacturasProveedorID_EJERCICIO = 39; - idx_FacturasProveedorESTADO_EJERCICIO = 40; - idx_FacturasProveedorASIENTO_PUNTEADO = 41; + idx_FacturasProveedorIRPF = 13; + idx_FacturasProveedorIMPORTE_IRPF = 14; + idx_FacturasProveedorRE = 15; + idx_FacturasProveedorIMPORTE_RE = 16; + idx_FacturasProveedorIMPORTE_TOTAL = 17; + idx_FacturasProveedorOBSERVACIONES = 18; + idx_FacturasProveedorID_PROVEEDOR = 19; + idx_FacturasProveedorNOMBRE_PROVEEDOR = 20; + idx_FacturasProveedorNOMBRE_COMERCIAL_PROVEEDOR = 21; + idx_FacturasProveedorNIF_CIF = 22; + idx_FacturasProveedorNOMBRE = 23; + idx_FacturasProveedorCALLE = 24; + idx_FacturasProveedorPOBLACION = 25; + idx_FacturasProveedorPROVINCIA = 26; + idx_FacturasProveedorCODIGO_POSTAL = 27; + idx_FacturasProveedorFECHA_ALTA = 28; + idx_FacturasProveedorFECHA_MODIFICACION = 29; + idx_FacturasProveedorUSUARIO = 30; + idx_FacturasProveedorID_FORMA_PAGO = 31; + idx_FacturasProveedorRECARGO_EQUIVALENCIA = 32; + idx_FacturasProveedorID_TIPO_IVA = 33; + idx_FacturasProveedorIMPORTE_NETO = 34; + idx_FacturasProveedorIMPORTE_PORTE = 35; + idx_FacturasProveedorIGNORAR_CONTABILIDAD = 36; + idx_FacturasProveedorID_TIENDA = 37; + idx_FacturasProveedorTIENDA = 38; + idx_FacturasProveedorID_SUBCUENTA = 39; + idx_FacturasProveedorSUBCUENTA = 40; + idx_FacturasProveedorID_EJERCICIO = 41; + idx_FacturasProveedorESTADO_EJERCICIO = 42; + idx_FacturasProveedorASIENTO_PUNTEADO = 43; { FacturasProveedor_Detalles fields } fld_FacturasProveedor_DetallesID = 'ID'; @@ -167,7 +171,7 @@ const type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{FC0D46EE-86BF-4511-819E-E9791181DC39}'] + ['{F2E406A9-B88C-40D4-8A47-4978C8C116F2}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -202,7 +206,7 @@ type { IFacturasProveedor_Contratos } IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable) - ['{DDCB3A4E-D047-4E73-8B5C-7E5879061F5E}'] + ['{5F2BFC11-8077-4879-B2D2-953CA4CF47A2}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -309,7 +313,7 @@ type { IFacturasProveedor } IFacturasProveedor = interface(IDAStronglyTypedDataTable) - ['{1D01094B-37F3-499C-84DD-5C94D01CE360}'] + ['{133E70B0-5200-4718-A56D-628104E3C948}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -363,6 +367,14 @@ type procedure SetIMPORTE_IVAValue(const aValue: Currency); function GetIMPORTE_IVAIsNull: Boolean; procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); + function GetIRPFValue: Float; + procedure SetIRPFValue(const aValue: Float); + function GetIRPFIsNull: Boolean; + procedure SetIRPFIsNull(const aValue: Boolean); + function GetIMPORTE_IRPFValue: Currency; + procedure SetIMPORTE_IRPFValue(const aValue: Currency); + function GetIMPORTE_IRPFIsNull: Boolean; + procedure SetIMPORTE_IRPFIsNull(const aValue: Boolean); function GetREValue: Float; procedure SetREValue(const aValue: Float); function GetREIsNull: Boolean; @@ -507,6 +519,10 @@ 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 IRPF: Float read GetIRPFValue write SetIRPFValue; + property IRPFIsNull: Boolean read GetIRPFIsNull write SetIRPFIsNull; + property IMPORTE_IRPF: Currency read GetIMPORTE_IRPFValue write SetIMPORTE_IRPFValue; + property IMPORTE_IRPFIsNull: Boolean read GetIMPORTE_IRPFIsNull write SetIMPORTE_IRPFIsNull; property RE: Float read GetREValue write SetREValue; property REIsNull: Boolean read GetREIsNull write SetREIsNull; property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue; @@ -626,6 +642,14 @@ type procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; function GetIMPORTE_IVAIsNull: Boolean; virtual; procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; + function GetIRPFValue: Float; virtual; + procedure SetIRPFValue(const aValue: Float); virtual; + function GetIRPFIsNull: Boolean; virtual; + procedure SetIRPFIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_IRPFValue: Currency; virtual; + procedure SetIMPORTE_IRPFValue(const aValue: Currency); virtual; + function GetIMPORTE_IRPFIsNull: Boolean; virtual; + procedure SetIMPORTE_IRPFIsNull(const aValue: Boolean); virtual; function GetREValue: Float; virtual; procedure SetREValue(const aValue: Float); virtual; function GetREIsNull: Boolean; virtual; @@ -769,6 +793,10 @@ 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 IRPF: Float read GetIRPFValue write SetIRPFValue; + property IRPFIsNull: Boolean read GetIRPFIsNull write SetIRPFIsNull; + property IMPORTE_IRPF: Currency read GetIMPORTE_IRPFValue write SetIMPORTE_IRPFValue; + property IMPORTE_IRPFIsNull: Boolean read GetIMPORTE_IRPFIsNull write SetIMPORTE_IRPFIsNull; property RE: Float read GetREValue write SetREValue; property REIsNull: Boolean read GetREIsNull write SetREIsNull; property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue; @@ -836,7 +864,7 @@ type { IFacturasProveedor_Detalles } IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{4D3A6663-3708-42B0-8D14-5C4E213D48FC}'] + ['{AF8434DB-81E3-4993-BA17-6A7EABEC1EAA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1516,6 +1544,48 @@ begin DataTable.Fields[idx_FacturasProveedorIMPORTE_IVA].AsVariant := Null; end; +function TFacturasProveedorDataTableRules.GetIRPFValue: Float; +begin + result := DataTable.Fields[idx_FacturasProveedorIRPF].AsFloat; +end; + +procedure TFacturasProveedorDataTableRules.SetIRPFValue(const aValue: Float); +begin + DataTable.Fields[idx_FacturasProveedorIRPF].AsFloat := aValue; +end; + +function TFacturasProveedorDataTableRules.GetIRPFIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorIRPF].IsNull; +end; + +procedure TFacturasProveedorDataTableRules.SetIRPFIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorIRPF].AsVariant := Null; +end; + +function TFacturasProveedorDataTableRules.GetIMPORTE_IRPFValue: Currency; +begin + result := DataTable.Fields[idx_FacturasProveedorIMPORTE_IRPF].AsCurrency; +end; + +procedure TFacturasProveedorDataTableRules.SetIMPORTE_IRPFValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasProveedorIMPORTE_IRPF].AsCurrency := aValue; +end; + +function TFacturasProveedorDataTableRules.GetIMPORTE_IRPFIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasProveedorIMPORTE_IRPF].IsNull; +end; + +procedure TFacturasProveedorDataTableRules.SetIMPORTE_IRPFIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasProveedorIMPORTE_IRPF].AsVariant := Null; +end; + function TFacturasProveedorDataTableRules.GetREValue: Float; begin result := DataTable.Fields[idx_FacturasProveedorRE].AsFloat; diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas index 7604f72..6c2bee4 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 = '{89FAA336-EE10-4D08-A890-EFD959DA9FB3}'; - RID_FacturasProveedor_ContratosDelta = '{2BF7C867-86B7-42EB-9FFA-92DF6E9874F0}'; - RID_FacturasProveedorDelta = '{FB90A42D-E182-4F49-9873-E549CD6C3519}'; - RID_FacturasProveedor_DetallesDelta = '{25250ECD-8E6B-4B25-9F0A-00B4B207C317}'; + RID_ListaAnosFacturasDelta = '{CB11B3AA-8F74-4D54-B57F-8CD48BB85ACF}'; + RID_FacturasProveedor_ContratosDelta = '{A93ADBD8-2B39-4B7B-8E6E-CF5E79382C4D}'; + RID_FacturasProveedorDelta = '{E5CC9903-4F45-4D55-805C-BD665A8D2739}'; + RID_FacturasProveedor_DetallesDelta = '{F639C514-2787-4375-9E37-A8F1F917400E}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{89FAA336-EE10-4D08-A890-EFD959DA9FB3}'] + ['{CB11B3AA-8F74-4D54-B57F-8CD48BB85ACF}'] { Property getters and setters } function GetOldANOValue : String; @@ -51,7 +51,7 @@ type { IFacturasProveedor_ContratosDelta } IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos) - ['{2BF7C867-86B7-42EB-9FFA-92DF6E9874F0}'] + ['{A93ADBD8-2B39-4B7B-8E6E-CF5E79382C4D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -157,7 +157,7 @@ type { IFacturasProveedorDelta } IFacturasProveedorDelta = interface(IFacturasProveedor) - ['{FB90A42D-E182-4F49-9873-E549CD6C3519}'] + ['{E5CC9903-4F45-4D55-805C-BD665A8D2739}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -172,6 +172,8 @@ type function GetOldIMPORTE_DESCUENTOValue : Currency; function GetOldIVAValue : Float; function GetOldIMPORTE_IVAValue : Currency; + function GetOldIRPFValue : Float; + function GetOldIMPORTE_IRPFValue : Currency; function GetOldREValue : Float; function GetOldIMPORTE_REValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; @@ -216,6 +218,8 @@ type property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; property OldIVA : Float read GetOldIVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; + property OldIRPF : Float read GetOldIRPFValue; + property OldIMPORTE_IRPF : Currency read GetOldIMPORTE_IRPFValue; property OldRE : Float read GetOldREValue; property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; @@ -332,6 +336,18 @@ type function GetOldIMPORTE_IVAIsNull: Boolean; virtual; procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; + function GetIRPFValue: Float; virtual; + function GetIRPFIsNull: Boolean; virtual; + function GetOldIRPFValue: Float; virtual; + function GetOldIRPFIsNull: Boolean; virtual; + procedure SetIRPFValue(const aValue: Float); virtual; + procedure SetIRPFIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_IRPFValue: Currency; virtual; + function GetIMPORTE_IRPFIsNull: Boolean; virtual; + function GetOldIMPORTE_IRPFValue: Currency; virtual; + function GetOldIMPORTE_IRPFIsNull: Boolean; virtual; + procedure SetIMPORTE_IRPFValue(const aValue: Currency); virtual; + procedure SetIMPORTE_IRPFIsNull(const aValue: Boolean); virtual; function GetREValue: Float; virtual; function GetREIsNull: Boolean; virtual; function GetOldREValue: Float; virtual; @@ -559,6 +575,14 @@ 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 IRPF : Float read GetIRPFValue write SetIRPFValue; + property IRPFIsNull : Boolean read GetIRPFIsNull write SetIRPFIsNull; + property OldIRPF : Float read GetOldIRPFValue; + property OldIRPFIsNull : Boolean read GetOldIRPFIsNull; + property IMPORTE_IRPF : Currency read GetIMPORTE_IRPFValue write SetIMPORTE_IRPFValue; + property IMPORTE_IRPFIsNull : Boolean read GetIMPORTE_IRPFIsNull write SetIMPORTE_IRPFIsNull; + property OldIMPORTE_IRPF : Currency read GetOldIMPORTE_IRPFValue; + property OldIMPORTE_IRPFIsNull : Boolean read GetOldIMPORTE_IRPFIsNull; property RE : Float read GetREValue write SetREValue; property REIsNull : Boolean read GetREIsNull write SetREIsNull; property OldRE : Float read GetOldREValue; @@ -684,7 +708,7 @@ type { IFacturasProveedor_DetallesDelta } IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) - ['{25250ECD-8E6B-4B25-9F0A-00B4B207C317}'] + ['{F639C514-2787-4375-9E37-A8F1F917400E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -1574,6 +1598,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_IVA] := Null; end; +function TFacturasProveedorBusinessProcessorRules.GetIRPFValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIRPF]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetIRPFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIRPF]); +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldIRPFValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIRPF]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldIRPFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIRPF]); +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetIRPFValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIRPF] := aValue; +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetIRPFIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIRPF] := Null; +end; + +function TFacturasProveedorBusinessProcessorRules.GetIMPORTE_IRPFValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_IRPF]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetIMPORTE_IRPFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_IRPF]); +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTE_IRPFValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTE_IRPF]; +end; + +function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTE_IRPFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTE_IRPF]); +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTE_IRPFValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_IRPF] := aValue; +end; + +procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTE_IRPFIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_IRPF] := Null; +end; + function TFacturasProveedorBusinessProcessorRules.GetREValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRE]; diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas index 3b4a722..b4d7d79 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas @@ -47,6 +47,7 @@ type FSeleccionableInterface : ISeleccionable; procedure CalcularDescuento; procedure CalcularIVA; + procedure CalcularIRPF; procedure CalcularRE; procedure CalcularBaseImponible; procedure AsignarTipoIVA (IDTipoIVA : Integer); @@ -77,6 +78,7 @@ type procedure DESCUENTOOnChange(Sender: TDACustomField); procedure IVAOnChange(Sender: TDACustomField); procedure REOnChange(Sender: TDACustomField); + procedure IRPFOnChange(Sender: TDACustomField); procedure SetID_TIENDAValue(const aValue: Integer); procedure SetID_SUBCUENTAValue(const aValue: Integer); @@ -160,17 +162,25 @@ begin try CalcularBaseImponible; CalcularIVA; + CalcularIRPF; CalcularRE; if not Self.DataTable.Editing then Edit; - IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA + IMPORTE_RE; + IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA - IMPORTE_IRPF + IMPORTE_RE; finally DataTable.Fields.FieldEventsDisabled := False; DataTable.EnableControls; end; end; +procedure TBizFacturaProveedor.CalcularIRPF; +begin + if not Self.DataTable.Editing then + Edit; + IMPORTE_IRPF := (IRPF / 100) * BASE_IMPONIBLE; +end; + procedure TBizFacturaProveedor.CalcularIVA; begin if not Self.DataTable.Editing then @@ -199,6 +209,7 @@ begin FieldByName(fld_FacturasProveedorIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange; FieldByName(fld_FacturasProveedorDESCUENTO).OnChange := DESCUENTOOnChange; FieldByName(fld_FacturasProveedorIVA).OnChange := IVAOnChange; + FieldByName(fld_FacturasProveedorIRPF).OnChange := IRPFOnChange; FieldByName(fld_FacturasProveedorRE).OnChange := REOnChange; end; @@ -300,6 +311,11 @@ begin end; +procedure TBizFacturaProveedor.IRPFOnChange(Sender: TDACustomField); +begin + CalcularImporteTotal; +end; + procedure TBizFacturaProveedor.IVAOnChange(Sender: TDACustomField); begin CalcularImporteTotal; diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm index 40fee36..3fb4e88 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm @@ -308,6 +308,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor item DatasetField = 'ASIENTO_PUNTEADO' TableField = 'ASIENTO_PUNTEADO' + end + item + DatasetField = 'IRPF' + TableField = 'IRPF' + end + item + DatasetField = 'IMPORTE_IRPF' + TableField = 'IMPORTE_IRPF' end> end> Name = 'FacturasProveedor' @@ -383,6 +391,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor DataType = datCurrency DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA' end + item + Name = 'IRPF' + DataType = datFloat + DictionaryEntry = 'FacturasProveedor_IRPF' + end + item + Name = 'IMPORTE_IRPF' + DataType = datCurrency + DictionaryEntry = 'FacturasProveedor_IMPORTE_IRPF' + end item Name = 'RE' DataType = datFloat @@ -801,6 +819,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor Name = 'IMPORTE_DESCUENTO' Value = '' end + item + Name = 'IRPF' + Value = '' + end + item + Name = 'IMPORTE_IRPF' + Value = '' + end item Name = 'IVA' Value = '' @@ -902,19 +928,20 @@ object srvFacturasProveedor: TsrvFacturasProveedor 'INSERT'#10' INTO FACTURAS_PROVEEDOR'#10' (ID, ID_EMPRESA, REFERENCIA' + ', REFERENCIA_PROVEEDOR,'#10' FECHA_FACTURA, FECHA_VENCIMIENTO, B' + 'ASE_IMPONIBLE, DESCUENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_I' + - 'VA, RE, IMPORTE_RE, '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVE' + - 'EDOR, NIF_CIF, '#10' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO' + - '_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA' + - '_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IM' + - 'PORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TIENDA)'#10' VALUES'#10' ' + - '(:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FEC' + - 'HA_FACTURA, :FECHA_VENCIMIENTO, :BASE_IMPONIBLE, :DESCUENTO,'#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' ' + - ':FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' ' + - ' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMP' + - 'ORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_TIENDA)'#10' '#10' '#10#10 + 'VA, IRPF, IMPORTE_IRPF, RE, IMPORTE_RE,'#10' IMPORTE_TOTAL, OBSE' + + 'RVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' NOMBRE, CALLE, POBLACION' + + ', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION' + + ', USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IV' + + 'A, IMPORTE_NETO, IMPORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TI' + + 'ENDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_P' + + 'ROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIENTO, :BASE_IMPONIB' + + 'LE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :IR' + + 'PF, :IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPORTE_TOTAL, :OBSER' + + 'VACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE, :CALLE, :POBLAC' + + 'ION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_ALTA, :FECHA_MODIF' + + 'ICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQUIVALENCIA, ' + + ':ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :IGNORAR_CONT' + + 'ABILIDAD, :ID_TIENDA)'#10' '#10' '#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -941,6 +968,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Params = < + item + Name = 'IMPORTE_IRPF' + Value = '' + end + item + Name = 'IRPF' + Value = '' + end item Name = 'ID' Value = '' @@ -1085,18 +1120,19 @@ object srvFacturasProveedor: TsrvFacturasProveedor 'A, '#10' FECHA_VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' BASE_IMPONIB' + 'LE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_D' + 'ESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10' IMPORTE_IVA' + - ' = :IMPORTE_IVA, '#10' RE = :RE, '#10' IMPORTE_RE = :IMPORTE_RE, '#10 + - ' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVACIONES = :OBSERV' + - 'ACIONES, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' NIF_CIF = :NIF_' + - 'CIF, '#10' NOMBRE = :NOMBRE, '#10' CALLE = :CALLE, '#10' POBLACION ' + - '= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = ' + - ':CODIGO_POSTAL, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFI' + - 'CACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' ID_F' + - 'ORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA = :RECARGO' + - '_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NET' + - 'O = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNO' + - 'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TI' + - 'ENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10 + ' = :IMPORTE_IVA, '#10' IRPF = :IRPF,'#10' IMPORTE_IRPF = :IMPORTE_' + + 'IRPF,'#10' RE = :RE,'#10' IMPORTE_RE = :IMPORTE_RE, '#10' IMPORTE_T' + + 'OTAL = :IMPORTE_TOTAL, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' ' + + ' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' NIF_CIF = :NIF_CIF, '#10' NOM' + + 'BRE = :NOMBRE, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION,' + + ' '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTA' + + 'L, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FEC' + + 'HA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :' + + 'ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA' + + ', '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NETO = :IMPORTE_' + + 'NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILI' + + 'DAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10 + + ' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1786,6 +1822,18 @@ object srvFacturasProveedor: TsrvFacturasProveedor item Name = 'FacturasProveedor_Contratos_IMPORTE' DataType = datCurrency + end + item + Name = 'FacturasProveedor_IMPORTE_IRPF' + DataType = datCurrency + DisplayLabel = 'Importe IRPF' + Alignment = taRightJustify + end + item + Name = 'FacturasProveedor_IRPF' + DataType = datFloat + DisplayLabel = 'IRPF' + Alignment = taRightJustify end> Left = 150 Top = 22 diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk index e9348a9..d4b7ffd 100644 Binary files a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk and b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk differ diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj index 32c17e3..79bf539 100644 --- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj +++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj @@ -41,9 +41,6 @@ Package FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - RemObjects Pascal Script - RemObjects SDK 3.0 Integration FacturasProveedor_view.dpk @@ -52,42 +49,37 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorElegirArticulosFacturaProveedor
TfEditorElegirArticulosFacturaProveedor @@ -129,6 +121,11 @@
frViewProveedorFactura
TFrame + + + + +