Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ticket #141 -> Añadir cuenta domiciliacion bancaria en facturas de proveedor (como esta en facturas de cliente)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@619 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-09-24 17:59:34 +00:00
parent 7d32283c0c
commit e509c5b882
14 changed files with 330 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

@ -54,7 +54,7 @@ type
implementation implementation
uses uses
uEditorRegistryUtils, cxControls, DB, uFactuGES_App, uEditorRegistryUtils, cxControls, DB, uFactuGES_App, uStringsUtils,
uDataModuleEmpresas, uIEditorEmpresa, uBizEmpresasDatosBancarios; uDataModuleEmpresas, uIEditorEmpresa, uBizEmpresasDatosBancarios;
{ TEmpresasController } { TEmpresasController }
@ -130,8 +130,11 @@ begin
ADatosBancarios.DataTable.First; ADatosBancarios.DataTable.First;
while not ADatosBancarios.DataTable.EOF do while not ADatosBancarios.DataTable.EOF do
begin begin
Aux := Format('IBAN: %s - SWIFT: %s', [ADatosBancarios.IBAN, ADatosBancarios.SWIFT]); if not EsCadenaVacia(ADatosBancarios.IBAN) then
Add(Format('%s=%d', [Aux, ADatosBancarios.ID])); begin
Aux := Format('IBAN: %s - SWIFT: %s', [ADatosBancarios.IBAN, ADatosBancarios.SWIFT]);
Add(Format('%s=%d', [Aux, ADatosBancarios.ID]));
end;
ADatosBancarios.DataTable.Next; ADatosBancarios.DataTable.Next;
end; end;
end; end;

44
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -33,11 +33,15 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Style.Color = clInfoBk Style.Color = clInfoBk
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 165 Width = 165
end end
@ -52,13 +56,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Style.Color = clInfoBk Style.Color = clInfoBk
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False Style.Shadow = False
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 165 Width = 165
end end
@ -73,9 +81,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 5
Height = 124 Height = 124
Width = 267 Width = 267
@ -104,32 +116,56 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ExplicitHeight = 215 ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 210 ExplicitWidth = 210
Width = 210 Width = 210
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 210 ExplicitWidth = 210
Width = 210 Width = 210
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 210 ExplicitWidth = 210
Width = 210 Width = 210
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 210 ExplicitWidth = 210
Width = 210 Width = 210
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 192 Left = 192
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 192 ExplicitLeft = 192
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
@ -159,14 +195,18 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 27 Width = 27
end end
@ -191,8 +231,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 4
Width = 165 Width = 165
end end

8
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -116,9 +116,13 @@ begin
Clear; Clear;
Add(''); Add('');
for i := 0 to ALista.Count - 1 do for i := 0 to ALista.Count - 1 do
begin
Add(ALista.Names[i]); Add(ALista.Names[i]);
Add(AListaIBAN.Names[i]);
if AListaIBAN.Count > 0 then
begin
Add('--------------');
for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]);
end; end;
finally finally
EndUpdate; EndUpdate;

7
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -227,6 +227,13 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DisplayLabel = 'Importe del porte' DisplayLabel = 'Importe del porte'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE' DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE'
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
DisplayLabel = 'Datos bancarios'
DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

BIN
Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.dpk
View File

Binary file not shown.

47
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasProveedor = '{264BEC8F-1838-4623-B8BC-D199CF26E76C}'; RID_FacturasProveedor = '{9DABF9A4-726E-46BC-B327-E8A58F67033E}';
RID_FacturasProveedor_Detalles = '{41B4D692-A949-48D0-9C99-7B6C0A5CB0E2}'; RID_FacturasProveedor_Detalles = '{ABAE830E-4859-445D-A355-12268943230C}';
RID_FacturasProveedor_Pedidos = '{FAC8A6A2-FD2F-4FD0-8F10-12F2FCC3A286}'; RID_FacturasProveedor_Pedidos = '{6416A6EE-BBAF-4F0C-91C3-174807E4BCA8}';
{ Data table names } { Data table names }
nme_FacturasProveedor = 'FacturasProveedor'; nme_FacturasProveedor = 'FacturasProveedor';
@ -50,6 +50,7 @@ const
fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA'; fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA';
fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO'; fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO';
fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS';
{ FacturasProveedor field indexes } { FacturasProveedor field indexes }
idx_FacturasProveedorID = 0; idx_FacturasProveedorID = 0;
@ -83,6 +84,7 @@ const
idx_FacturasProveedorID_TIPO_IVA = 28; idx_FacturasProveedorID_TIPO_IVA = 28;
idx_FacturasProveedorIMPORTE_NETO = 29; idx_FacturasProveedorIMPORTE_NETO = 29;
idx_FacturasProveedorIMPORTE_PORTE = 30; idx_FacturasProveedorIMPORTE_PORTE = 30;
idx_FacturasProveedorDATOS_BANCARIOS = 31;
{ FacturasProveedor_Detalles fields } { FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID'; fld_FacturasProveedor_DetallesID = 'ID';
@ -141,7 +143,7 @@ const
type type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{02FE95A7-9632-4D21-9DEC-954BE797C359}'] ['{69529775-1F7D-4D22-8633-38AF61125CD7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -266,6 +268,10 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency); procedure SetIMPORTE_PORTEValue(const aValue: Currency);
function GetIMPORTE_PORTEIsNull: Boolean; function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
function GetDATOS_BANCARIOSValue: String;
procedure SetDATOS_BANCARIOSValue(const aValue: String);
function GetDATOS_BANCARIOSIsNull: Boolean;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -331,6 +337,8 @@ type
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; 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;
end; end;
{ TFacturasProveedorDataTableRules } { TFacturasProveedorDataTableRules }
@ -463,6 +471,10 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -527,6 +539,8 @@ type
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; 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;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -536,7 +550,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{9A1532CD-0223-4661-B366-D7FE8D7F7F75}'] ['{8FFCB0F7-4DE0-44FE-8E2D-7A0FC731A3B6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -751,7 +765,7 @@ type
{ IFacturasProveedor_Pedidos } { IFacturasProveedor_Pedidos }
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
['{21D42C09-7B00-4DB2-B421-0973FB01096E}'] ['{CAA2BA29-71B5-49CE-91FE-8FD0058AFF71}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1529,6 +1543,27 @@ begin
DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsVariant := Null; DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsVariant := Null;
end; end;
function TFacturasProveedorDataTableRules.GetDATOS_BANCARIOSValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedorDATOS_BANCARIOS].AsString;
end;
procedure TFacturasProveedorDataTableRules.SetDATOS_BANCARIOSValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedorDATOS_BANCARIOS].AsString := aValue;
end;
function TFacturasProveedorDataTableRules.GetDATOS_BANCARIOSIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorDATOS_BANCARIOS].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorDATOS_BANCARIOS].AsVariant := Null;
end;
{ TFacturasProveedor_DetallesDataTableRules } { TFacturasProveedor_DetallesDataTableRules }
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);

55
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasProveedorDelta = '{53B5E3FB-54DF-4133-9EFD-579D14E99112}'; RID_FacturasProveedorDelta = '{57F20BCB-960D-454F-B3CF-D6EDE9BD1090}';
RID_FacturasProveedor_DetallesDelta = '{3500D47C-7EFB-4260-ACEA-DF426DE7461E}'; RID_FacturasProveedor_DetallesDelta = '{39265CE2-ACD3-4A3F-8233-0C547807362E}';
RID_FacturasProveedor_PedidosDelta = '{FBE61C21-7C61-4C6A-9B58-138EDD69A9E5}'; RID_FacturasProveedor_PedidosDelta = '{243BACD1-36BC-42AE-B928-04556776AE94}';
type type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{53B5E3FB-54DF-4133-9EFD-579D14E99112}'] ['{57F20BCB-960D-454F-B3CF-D6EDE9BD1090}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -49,6 +49,7 @@ type
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldDATOS_BANCARIOSValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -82,6 +83,7 @@ type
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
end; end;
{ TFacturasProveedorBusinessProcessorRules } { TFacturasProveedorBusinessProcessorRules }
@ -276,6 +278,12 @@ type
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
function GetOldDATOS_BANCARIOSValue: String; virtual;
function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -402,6 +410,10 @@ type
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -411,7 +423,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{3500D47C-7EFB-4260-ACEA-DF426DE7461E}'] ['{39265CE2-ACD3-4A3F-8233-0C547807362E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -625,7 +637,7 @@ type
{ IFacturasProveedor_PedidosDelta } { IFacturasProveedor_PedidosDelta }
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos) IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
['{FBE61C21-7C61-4C6A-9B58-138EDD69A9E5}'] ['{243BACD1-36BC-42AE-B928-04556776AE94}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1714,6 +1726,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := Null;
end; end;
function TFacturasProveedorBusinessProcessorRules.GetDATOS_BANCARIOSValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDATOS_BANCARIOS];
end;
function TFacturasProveedorBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDATOS_BANCARIOS]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDATOS_BANCARIOS];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorDATOS_BANCARIOS]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDATOS_BANCARIOS] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDATOS_BANCARIOS] := Null;
end;
{ TFacturasProveedor_DetallesBusinessProcessorRules } { TFacturasProveedor_DetallesBusinessProcessorRules }
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

49
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -146,6 +146,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item item
DatasetField = 'IMPORTE_PORTE' DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end> end>
end> end>
Name = 'FacturasProveedor' Name = 'FacturasProveedor'
@ -318,6 +322,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE' DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE'
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS'
end> end>
end end
item item
@ -620,6 +630,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end end
item item
Params = < Params = <
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -750,15 +766,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
' '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' ' + ' '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' ' +
' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECH' + ' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECH' +
'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARG' + 'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARG' +
'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE)'#10' VALU' + 'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10' D' +
'ES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' ' + 'ATOS_BANCARIOS)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :RE' +
' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DE' + 'FERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCU' +
'SCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :IMPORTE_TO' + 'ENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE' +
'TAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CA' + '_RE, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_C' +
'LLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_ALTA, ' + 'IF, '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTA' +
':FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQ' + 'L, '#10' :FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_P' +
'UIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE)'#10' ' + 'AGO, '#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10 +
' '#10' '#10#10 ' :IMPORTE_PORTE, :DATOS_BANCARIOS)'#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -785,6 +801,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end end
item item
Params = < Params = <
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'ID' Name = 'ID'
Value = '' Value = ''
@ -926,7 +948,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
' :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQU' + ' :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQU' +
'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_I' + 'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_I' +
'VA, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMP' + 'VA, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMP' +
'ORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 'ORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_BANCARIOS'#10' WHERE'#10' (' +
'ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1469,6 +1492,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Fecha de pago' DisplayLabel = 'Fecha de pago'
end end
item
Name = 'FacturasProveedor_DATOS_BANCARIOS'
DataType = datString
Size = 255
DisplayLabel = 'Datos bancarios'
end
item item
Name = 'FacturasProveedor_FECHA_VENCIMIENTO' Name = 'FacturasProveedor_FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime

38
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -15,7 +15,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Caption = 'Nueva factura de proveedor' Caption = 'Nueva factura de proveedor'
ExplicitWidth = 819 ExplicitWidth = 819
inherited Image1: TImage inherited Image1: TImage
Left = 792 Left = 686
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -37,6 +37,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
454E44AE426082} 454E44AE426082}
ExplicitLeft = 742 ExplicitLeft = 742
end end
inherited lblDesbloquear: TcxLabel
Left = 721
ExplicitLeft = 721
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 819 Width = 819
@ -216,6 +220,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
end end
inherited cbCuentaBancaria: TcxDBComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 165
Width = 165
end
end end
end end
end end
@ -254,13 +266,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton [4] inherited ToolButton14: TToolButton
Left = 334 Left = 334
Top = 0 Top = 0
Wrap = False
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox [5] inherited FontName: TJvFontComboBox
Left = 399 Left = 399
Top = 0 Top = 0
ExplicitLeft = 399 ExplicitLeft = 399
@ -269,10 +282,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 544 Left = 544
Top = 0 Top = 0
Width = 136 Width = 152
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 136 ExplicitWidth = 152
end end
inherited ToolButton13: TToolButton [7] inherited ToolButton13: TToolButton [7]
Left = 0 Left = 0
@ -288,44 +301,43 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton6: TToolButton [9] inherited ToolButton6: TToolButton
Left = 17 Left = 17
Top = 27 Top = 27
ExplicitLeft = 17 ExplicitLeft = 17
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton [10] inherited ToolButton7: TToolButton
Left = 83 Left = 83
Top = 27 Top = 27
ExplicitLeft = 83 ExplicitLeft = 83
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton [11] inherited ToolButton8: TToolButton
Left = 150 Left = 150
Top = 27 Top = 27
ExplicitLeft = 150 ExplicitLeft = 150
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton [12] inherited ToolButton12: TToolButton
Left = 233 Left = 233
Top = 27 Top = 27
ExplicitLeft = 233 ExplicitLeft = 233
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton [13] inherited ToolButton9: TToolButton
Left = 241 Left = 241
Top = 27 Top = 27
ExplicitLeft = 241 ExplicitLeft = 241
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton [14] inherited ToolButton10: TToolButton
Left = 386 Left = 386
Top = 27 Top = 27
ExplicitLeft = 386 ExplicitLeft = 386
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton [15] inherited ToolButton11: TToolButton
Left = 511 Left = 511
Top = 27 Top = 27
ExplicitLeft = 511 ExplicitLeft = 511

5
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -14,7 +14,8 @@ uses
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uBizTiposIVA, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uBizTiposIVA,
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController,
uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces, uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces,
uViewDetallesGenerico, uViewPedidosFacturaProveedor; uViewDetallesGenerico, uViewPedidosFacturaProveedor, cxControls, cxContainer,
cxEdit, cxLabel;
type type
@ -78,7 +79,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
cxDBEdit, uBizContactos, uDataModuleUsuarios, cxControls, uFactuGES_App, cxDBEdit, uBizContactos, uDataModuleUsuarios, uFactuGES_App,
uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils, uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils,
uGenerarAlbaranesProvFacProvUtils; uGenerarAlbaranesProvFacProvUtils;

57
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -72,7 +72,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 164 Top = 191
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -88,7 +88,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 6
Height = 159 Height = 159
Width = 301 Width = 301
end end
@ -171,7 +171,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 7
ReadOnly = False ReadOnly = False
ExplicitLeft = 322 ExplicitLeft = 322
ExplicitTop = 30 ExplicitTop = 30
@ -228,6 +228,27 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end end
end end
end end
object cbCuentaBancaria: TcxDBComboBox
Left = 136
Top = 140
DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 165
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -261,18 +282,28 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Group4: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Forma de pago:'
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
ShowCaption = False ShowCaption = False
Control = bFormasPago Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Forma de pago:'
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item10: TdxLayoutItem
ShowCaption = False
Control = bFormasPago
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Cuenta bancaria:'
Control = cbCuentaBancaria
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end

50
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -46,6 +46,9 @@ type
eReferenciaProveedor: TcxDBTextEdit; eReferenciaProveedor: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
frViewProveedorFactura: TfrViewDatosYSeleccionProveedor; frViewProveedorFactura: TfrViewDatosYSeleccionProveedor;
dxLayoutControl1Item7: TdxLayoutItem;
cbCuentaBancaria: TcxDBComboBox;
dxLayoutControl1Group4: TdxLayoutGroup;
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
@ -57,6 +60,7 @@ type
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
function GetFactura: IBizFacturaProveedor; function GetFactura: IBizFacturaProveedor;
procedure SetFactura(const Value: IBizFacturaProveedor); procedure SetFactura(const Value: IBizFacturaProveedor);
procedure RellenarCuentasBancarias;
public public
property Factura: IBizFacturaProveedor read GetFactura write SetFactura; property Factura: IBizFacturaProveedor read GetFactura write SetFactura;
end; end;
@ -65,7 +69,8 @@ type
implementation implementation
uses uses
uDataModuleContactos, schFacturasProveedorClient_Intf; uDataModuleContactos, schFacturasProveedorClient_Intf, uFactuGES_App,
uEmpresasController;
{$R *.dfm} {$R *.dfm}
@ -121,9 +126,52 @@ begin
Result := FFactura; Result := FFactura;
end; end;
procedure TfrViewFacturaProveedor.RellenarCuentasBancarias;
var
AController : IEmpresasController;
ALista : TStringList;
AListaIBAN : TStringList;
i : integer;
begin
AController := TEmpresasController.Create;
try
ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
try
with cbCuentaBancaria.Properties.Items do
begin
BeginUpdate;
try
Clear;
Add('');
for i := 0 to ALista.Count - 1 do
Add(ALista.Names[i]);
if AListaIBAN.Count > 0 then
begin
Add('--------------');
for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]);
end;
finally
EndUpdate;
end;
end;
finally
FreeANDNIL(ALista);
FreeANDNIL(AListaIBAN);
end;
finally
AController := NIL;
end;
end;
procedure TfrViewFacturaProveedor.SetFactura(const Value: IBizFacturaProveedor); procedure TfrViewFacturaProveedor.SetFactura(const Value: IBizFacturaProveedor);
begin begin
FFactura := Value; FFactura := Value;
RellenarCuentasBancarias;
if Assigned(FFactura) then if Assigned(FFactura) then
begin begin
DADataSource.DataTable := FFactura.DataTable; DADataSource.DataTable := FFactura.DataTable;

14
Source/Modulos/Obras/Views/uEditorObra.dfm
View File

@ -37,10 +37,14 @@ inherited fEditorObra: TfEditorObra
B814FC13744DD1BF455C165144A928AEADA7EF9FCC8132039DE6808E89764705 B814FC13744DD1BF455C165144A928AEADA7EF9FCC8132039DE6808E89764705
F71CB45E6B9A55504F39ECDA5D7FBE002E8A0FD064A100E60000000049454E44 F71CB45E6B9A55504F39ECDA5D7FBE002E8A0FD064A100E60000000049454E44
AE426082} AE426082}
ExplicitLeft = 605 ExplicitLeft = 619
ExplicitTop = -3 ExplicitTop = -3
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited lblDesbloquear: TcxLabel
Left = 507
ExplicitLeft = 534
end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 632 Width = 632
@ -105,6 +109,14 @@ inherited fEditorObra: TfEditorObra
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 332 ExplicitHeight = 332
end end
object TabSheet1: TTabSheet
Caption = 'Presupuestos de cliente'
ImageIndex = 1
end
object TabSheet2: TTabSheet
Caption = 'Pedidos a proveedor'
ImageIndex = 2
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 632 Width = 632

5
Source/Modulos/Obras/Views/uEditorObra.pas
View File

@ -13,12 +13,15 @@ uses
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
uViewObras, uIEditorObra, uObrasController, JvExComCtrls, uViewObras, uIEditorObra, uObrasController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, dxGDIPlusClasses; JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, dxGDIPlusClasses,
cxControls, cxContainer, cxEdit, cxLabel;
type type
TfEditorObra = class(TfEditorDBItem, IEditorObra) TfEditorObra = class(TfEditorDBItem, IEditorObra)
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);