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

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

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

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

@ -116,9 +116,13 @@ begin
Clear;
Add('');
for i := 0 to ALista.Count - 1 do
begin
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;
finally
EndUpdate;

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

@ -227,6 +227,13 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DisplayLabel = 'Importe del porte'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE'
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
DisplayLabel = 'Datos bancarios'
DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS'
end>
Params = <>
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_FacturasProveedor = '{264BEC8F-1838-4623-B8BC-D199CF26E76C}';
RID_FacturasProveedor_Detalles = '{41B4D692-A949-48D0-9C99-7B6C0A5CB0E2}';
RID_FacturasProveedor_Pedidos = '{FAC8A6A2-FD2F-4FD0-8F10-12F2FCC3A286}';
RID_FacturasProveedor = '{9DABF9A4-726E-46BC-B327-E8A58F67033E}';
RID_FacturasProveedor_Detalles = '{ABAE830E-4859-445D-A355-12268943230C}';
RID_FacturasProveedor_Pedidos = '{6416A6EE-BBAF-4F0C-91C3-174807E4BCA8}';
{ Data table names }
nme_FacturasProveedor = 'FacturasProveedor';
@ -50,6 +50,7 @@ const
fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA';
fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO';
fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS';
{ FacturasProveedor field indexes }
idx_FacturasProveedorID = 0;
@ -83,6 +84,7 @@ const
idx_FacturasProveedorID_TIPO_IVA = 28;
idx_FacturasProveedorIMPORTE_NETO = 29;
idx_FacturasProveedorIMPORTE_PORTE = 30;
idx_FacturasProveedorDATOS_BANCARIOS = 31;
{ FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID';
@ -141,7 +143,7 @@ const
type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{02FE95A7-9632-4D21-9DEC-954BE797C359}']
['{69529775-1F7D-4D22-8633-38AF61125CD7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -266,6 +268,10 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency);
function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
function GetDATOS_BANCARIOSValue: String;
procedure SetDATOS_BANCARIOSValue(const aValue: String);
function GetDATOS_BANCARIOSIsNull: Boolean;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
{ Properties }
@ -331,6 +337,8 @@ type
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
end;
{ TFacturasProveedorDataTableRules }
@ -463,6 +471,10 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -527,6 +539,8 @@ type
property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -536,7 +550,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{9A1532CD-0223-4661-B366-D7FE8D7F7F75}']
['{8FFCB0F7-4DE0-44FE-8E2D-7A0FC731A3B6}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -751,7 +765,7 @@ type
{ IFacturasProveedor_Pedidos }
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
['{21D42C09-7B00-4DB2-B421-0973FB01096E}']
['{CAA2BA29-71B5-49CE-91FE-8FD0058AFF71}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1529,6 +1543,27 @@ begin
DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_FacturasProveedorDelta = '{53B5E3FB-54DF-4133-9EFD-579D14E99112}';
RID_FacturasProveedor_DetallesDelta = '{3500D47C-7EFB-4260-ACEA-DF426DE7461E}';
RID_FacturasProveedor_PedidosDelta = '{FBE61C21-7C61-4C6A-9B58-138EDD69A9E5}';
RID_FacturasProveedorDelta = '{57F20BCB-960D-454F-B3CF-D6EDE9BD1090}';
RID_FacturasProveedor_DetallesDelta = '{39265CE2-ACD3-4A3F-8233-0C547807362E}';
RID_FacturasProveedor_PedidosDelta = '{243BACD1-36BC-42AE-B928-04556776AE94}';
type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{53B5E3FB-54DF-4133-9EFD-579D14E99112}']
['{57F20BCB-960D-454F-B3CF-D6EDE9BD1090}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -49,6 +49,7 @@ type
function GetOldID_TIPO_IVAValue : Integer;
function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldDATOS_BANCARIOSValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -82,6 +83,7 @@ type
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
end;
{ TFacturasProveedorBusinessProcessorRules }
@ -276,6 +278,12 @@ type
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetDATOS_BANCARIOSValue: String; virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
function GetOldDATOS_BANCARIOSValue: String; virtual;
function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -402,6 +410,10 @@ type
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -411,7 +423,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{3500D47C-7EFB-4260-ACEA-DF426DE7461E}']
['{39265CE2-ACD3-4A3F-8233-0C547807362E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -625,7 +637,7 @@ type
{ IFacturasProveedor_PedidosDelta }
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
['{FBE61C21-7C61-4C6A-9B58-138EDD69A9E5}']
['{243BACD1-36BC-42AE-B928-04556776AE94}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -1714,6 +1726,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := Null;
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 }
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
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end>
end>
Name = 'FacturasProveedor'
@ -318,6 +322,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE'
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS'
end>
end
item
@ -620,6 +630,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Params = <
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID'
DataType = datAutoInc
@ -750,15 +766,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
' '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' ' +
' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECH' +
'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARG' +
'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE)'#10' VALU' +
'ES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' ' +
' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DE' +
'SCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :IMPORTE_TO' +
'TAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CA' +
'LLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_ALTA, ' +
':FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQ' +
'UIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE)'#10' ' +
' '#10' '#10#10
'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10' D' +
'ATOS_BANCARIOS)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :RE' +
'FERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCU' +
'ENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE' +
'_RE, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_C' +
'IF, '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTA' +
'L, '#10' :FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_P' +
'AGO, '#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10 +
' :IMPORTE_PORTE, :DATOS_BANCARIOS)'#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -785,6 +801,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Params = <
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID'
Value = ''
@ -926,7 +948,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
' :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQU' +
'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_I' +
'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
ColumnMappings = <>
end>
@ -1469,6 +1492,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datDateTime
DisplayLabel = 'Fecha de pago'
end
item
Name = 'FacturasProveedor_DATOS_BANCARIOS'
DataType = datString
Size = 255
DisplayLabel = 'Datos bancarios'
end
item
Name = 'FacturasProveedor_FECHA_VENCIMIENTO'
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'
ExplicitWidth = 819
inherited Image1: TImage
Left = 792
Left = 686
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -37,6 +37,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
454E44AE426082}
ExplicitLeft = 742
end
inherited lblDesbloquear: TcxLabel
Left = 721
ExplicitLeft = 721
end
end
inherited TBXDock: TTBXDock
Width = 819
@ -216,6 +220,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
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
@ -254,13 +266,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton [4]
inherited ToolButton14: TToolButton
Left = 334
Top = 0
Wrap = False
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox [5]
inherited FontName: TJvFontComboBox
Left = 399
Top = 0
ExplicitLeft = 399
@ -269,10 +282,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited FontSize: TEdit
Left = 544
Top = 0
Width = 136
Width = 152
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 136
ExplicitWidth = 152
end
inherited ToolButton13: TToolButton [7]
Left = 0
@ -288,44 +301,43 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton6: TToolButton [9]
inherited ToolButton6: TToolButton
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton7: TToolButton [10]
inherited ToolButton7: TToolButton
Left = 83
Top = 27
ExplicitLeft = 83
ExplicitTop = 27
end
inherited ToolButton8: TToolButton [11]
inherited ToolButton8: TToolButton
Left = 150
Top = 27
ExplicitLeft = 150
ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
inherited ToolButton12: TToolButton
Left = 233
Top = 27
ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton [13]
inherited ToolButton9: TToolButton
Left = 241
Top = 27
ExplicitLeft = 241
ExplicitTop = 27
end
inherited ToolButton10: TToolButton [14]
inherited ToolButton10: TToolButton
Left = 386
Top = 27
ExplicitLeft = 386
ExplicitTop = 27
end
inherited ToolButton11: TToolButton [15]
inherited ToolButton11: TToolButton
Left = 511
Top = 27
ExplicitLeft = 511

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

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

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

@ -72,7 +72,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
object memObservaciones: TcxDBMemo
Left = 22
Top = 164
Top = 191
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
@ -88,7 +88,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
TabOrder = 6
Height = 159
Width = 301
end
@ -171,7 +171,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 6
TabOrder = 7
ReadOnly = False
ExplicitLeft = 322
ExplicitTop = 30
@ -228,6 +228,27 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
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
ShowCaption = False
Hidden = True
@ -261,18 +282,28 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1Group3: TdxLayoutGroup
ShowCaption = False
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
object dxLayoutControl1Group4: TdxLayoutGroup
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
end
end

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

@ -46,6 +46,9 @@ type
eReferenciaProveedor: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem;
frViewProveedorFactura: TfrViewDatosYSeleccionProveedor;
dxLayoutControl1Item7: TdxLayoutItem;
cbCuentaBancaria: TcxDBComboBox;
dxLayoutControl1Group4: TdxLayoutGroup;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
@ -57,6 +60,7 @@ type
FFormasPagoController : IFormasPagoController;
function GetFactura: IBizFacturaProveedor;
procedure SetFactura(const Value: IBizFacturaProveedor);
procedure RellenarCuentasBancarias;
public
property Factura: IBizFacturaProveedor read GetFactura write SetFactura;
end;
@ -65,7 +69,8 @@ type
implementation
uses
uDataModuleContactos, schFacturasProveedorClient_Intf;
uDataModuleContactos, schFacturasProveedorClient_Intf, uFactuGES_App,
uEmpresasController;
{$R *.dfm}
@ -121,9 +126,52 @@ begin
Result := FFactura;
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);
begin
FFactura := Value;
RellenarCuentasBancarias;
if Assigned(FFactura) then
begin
DADataSource.DataTable := FFactura.DataTable;

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

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

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

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