diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas
index 7df51fa0..c0d382a3 100644
--- a/Source/Cliente/uBootStrap.pas
+++ b/Source/Cliente/uBootStrap.pas
@@ -22,7 +22,7 @@ begin
with AppFactuGES.ModuleManager do
begin
LoadModule('Referencias_plugin.bpl');
- LoadModule('TiposVenta_plugin.bpl');
+// LoadModule('TiposVenta_plugin.bpl');
LoadModule('FormasPago_plugin.bpl');
LoadModule('TiposIVA_plugin.bpl');
LoadModule('Contactos_plugin.bpl');
diff --git a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
index 97ebad62..b4e2c56c 100644
--- a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
+++ b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
@@ -76,6 +76,7 @@ type
function BuscarTodos: IBizSubCuenta;
function BuscarCajasBancos: IBizSubCuenta;
function BuscarVentas: IBizSubCuenta;
+ function BuscarCompras: IBizSubCuenta;
function Buscar(ID: Integer): IBizSubCuenta;
procedure VerTodos(ASubCuentas: IBizSubCuenta);
procedure Ver(ASubCuenta: IBizSubCuenta);
@@ -191,6 +192,31 @@ begin
end;
end;
+function TSubCuentasController.BuscarCompras: IBizSubCuenta;
+var
+ Condicion: TDAWhereExpression;
+
+begin
+ ShowHourglassCursor;
+ try
+ Result := BuscarTodos;
+
+ with Result.DataTable.DynamicWhere do
+ begin
+ // (REF_CUENTAS = 600 ventas)
+ Condicion := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(CTE_CUENTASCOMPRA, datInteger), dboEqual);
+
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+ end;
+
+ finally
+ HideHourglassCursor;
+ end;
+end;
+
function TSubCuentasController.BuscarCuentas(const REF_CUENTA: Integer): IBizSubCuenta;
var
Condicion: TDAWhereExpression;
@@ -290,7 +316,8 @@ begin
// tClientes, tProveedores, tCompras, tVentas,
tTodas : ASubCuentas := BuscarTodos;
tCajas : ASubCuentas := BuscarCajasBancos;
- tVentas : ASubCuentas := BuscarVentas;
+ tVentas : ASubCuentas := BuscarVentas;
+ tCompras : ASubCuentas := BuscarCompras;
end;
ASubCuentas.DataTable.Active := True;
diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.pas b/Source/Modulos/Contactos/Plugin/uPluginContactos.pas
index 0b42f9a4..cbb4d6f4 100644
--- a/Source/Modulos/Contactos/Plugin/uPluginContactos.pas
+++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.pas
@@ -77,6 +77,17 @@ begin
try
AClientesController := TClientesController.Create;
AClientes := (AClientesController.BuscarTodos as IBizCliente);
+
+ showmessage('hola1');
+ AClientes.DataTable.DisableConstraints;
+ AClientes.DataTable.DisableEventHandlers;
+ AClientes.DataTable.DisableControls;
+ AClientes.DataTable.Active := True;
+ AClientes.DataTable.EnableControls;
+ AClientes.DataTable.EnableEventHandlers;
+ AClientes.DataTable.EnableConstraints;
+ showmessage('hola2');
+
AClientesController.VerTodos(AClientes);
finally
AClientes := Nil;
diff --git a/Source/Modulos/Contactos/Views/uEditorClientes.dfm b/Source/Modulos/Contactos/Views/uEditorClientes.dfm
index a0444c66..3fe20962 100644
--- a/Source/Modulos/Contactos/Views/uEditorClientes.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorClientes.dfm
@@ -5,7 +5,7 @@ inherited fEditorClientes: TfEditorClientes
ClientHeight = 519
ClientWidth = 786
ExplicitWidth = 794
- ExplicitHeight = 546
+ ExplicitHeight = 553
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -84,23 +84,13 @@ inherited fEditorClientes: TfEditorClientes
inherited cxGrid: TcxGrid
Width = 786
Height = 270
- ExplicitWidth = 786
- ExplicitHeight = 270
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
Format = '0 clientes'
Kind = skCount
- Column = frViewClientes1.cxGridViewTiendaWeb
+ Column = frViewClientes1.cxGridViewTIENDA
end>
- inherited cxGridViewBLOQUEADO: TcxGridDBColumn
- Visible = False
- VisibleForCustomization = False
- end
- inherited cxGridViewTiendaWeb: TcxGridDBColumn
- Visible = False
- VisibleForCustomization = False
- end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.dfm b/Source/Modulos/Contactos/Views/uEditorContactos.dfm
index 895252bb..b46aee58 100644
--- a/Source/Modulos/Contactos/Views/uEditorContactos.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorContactos.dfm
@@ -2,6 +2,8 @@ inherited fEditorContactos: TfEditorContactos
Left = 285
Top = 448
Caption = 'Lista de contactos'
+ ExplicitWidth = 320
+ ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.pas b/Source/Modulos/Contactos/Views/uEditorContactos.pas
index 40cf5389..91e2ea5b 100644
--- a/Source/Modulos/Contactos/Views/uEditorContactos.pas
+++ b/Source/Modulos/Contactos/Views/uEditorContactos.pas
@@ -64,7 +64,13 @@ begin
if not Assigned(Contactos) then
raise Exception.Create('No hay ningún contacto asignado');
- Contactos.DataTable.Active := True;
+// ViewGrid._Grid.BeginUpdate;
+// Contactos.DataTable.DisableControls;
+//Contactos.DataTable.DisableEventHandlers;
+// Contactos.DataTable.Active := True;
+//Contactos.DataTable.EnableEventHandlers;
+// Contactos.DataTable.EnableControls;
+// ViewGrid._Grid.EndUpdate;
ViewGrid.GotoFirst;
end;
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index ee6fa394..de9cb951 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
@@ -591,7 +591,10 @@ begin
if (AFactura.Detalles.DataTable.RecordCount = 0) then
raise Exception.Create('La factura debe tener al menos un concepto en su contenido');
-
+
+ if (AFactura.IGNORAR_CONTABILIDAD = 0) and (AFactura.Cliente.SubCuentas.ID < 1) then
+ raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta');
+
{ Esta validación puede saltar cuando se generan facturas automáticamente
por albaranes o pedidos y el cliente no tiene Tipo de IVA puesto. }
{ if (AFactura.ID_TIPO_IVA = 0) then
diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
index ca72e718..43bc4f01 100644
--- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
+++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
@@ -70,8 +70,7 @@ begin
end;
end;
-procedure TBizFacturasClienteServer.BeforeProcessDelta(
- Sender: TDABusinessProcessor; const aDelta: IDADelta);
+procedure TBizFacturasClienteServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta);
begin
FReferenciaAutomatica := False;
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
index d5bff0c6..51445d87 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
@@ -13,7 +13,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 771
Caption = 'Nueva factura de cliente'
- ExplicitWidth = 813
+ ExplicitWidth = 771
inherited Image1: TImage
Left = 744
Picture.Data = {
@@ -40,7 +40,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inherited TBXDock: TTBXDock
Width = 771
- ExplicitWidth = 813
+ ExplicitWidth = 771
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
inherited TBXItem2: TTBXItem
@@ -75,12 +75,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
- ExplicitWidth = 807
+ ExplicitWidth = 765
ExplicitHeight = 378
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
- ExplicitWidth = 799
+ ExplicitWidth = 757
ExplicitHeight = 350
inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0
@@ -96,12 +96,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 799
+ ExplicitWidth = 757
ExplicitHeight = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 757
Height = 350
- ExplicitWidth = 799
+ ExplicitWidth = 757
ExplicitHeight = 350
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 159
@@ -122,6 +122,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 314
inherited dxLayoutControl1: TdxLayoutControl
Width = 314
+ ExplicitWidth = 314
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 224
@@ -176,7 +177,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
- ExplicitWidth = 799
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0
Top = 0
@@ -193,11 +193,11 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 799
+ ExplicitWidth = 757
ExplicitHeight = 350
inherited ToolBar1: TToolBar
Width = 757
- ExplicitWidth = 799
+ ExplicitWidth = 757
inherited ToolButton4: TToolButton
Wrap = False
end
@@ -219,51 +219,51 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 57
end
inherited UpDown1: TUpDown
- Left = 202
- ExplicitLeft = 202
+ Left = 218
+ ExplicitLeft = 218
end
inherited ToolButton13: TToolButton
- Left = 219
- ExplicitLeft = 219
+ Left = 235
+ ExplicitLeft = 235
end
inherited ToolButton6: TToolButton
- Left = 227
- ExplicitLeft = 227
+ Left = 243
+ ExplicitLeft = 243
end
inherited ToolButton7: TToolButton
- Left = 261
- ExplicitLeft = 261
+ Left = 277
+ ExplicitLeft = 277
end
inherited ToolButton8: TToolButton
- Left = 295
- ExplicitLeft = 295
+ Left = 311
+ ExplicitLeft = 311
end
inherited ToolButton12: TToolButton
- Left = 329
- ExplicitLeft = 329
+ Left = 345
+ ExplicitLeft = 345
end
inherited ToolButton9: TToolButton
- Left = 337
- ExplicitLeft = 337
+ Left = 353
+ ExplicitLeft = 353
end
inherited ToolButton10: TToolButton
- Left = 371
- ExplicitLeft = 371
+ Left = 387
+ ExplicitLeft = 387
end
inherited ToolButton11: TToolButton
- Left = 405
- ExplicitLeft = 405
+ Left = 421
+ ExplicitLeft = 421
end
end
inherited cxGrid: TcxGrid
Width = 757
Height = 278
- ExplicitWidth = 799
+ ExplicitWidth = 757
ExplicitHeight = 278
end
inherited TBXDock1: TTBXDock
Width = 757
- ExplicitWidth = 799
+ ExplicitWidth = 757
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548
end
@@ -273,7 +273,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContabilidad: TTabSheet
Caption = 'Contabilidad'
ImageIndex = 2
- ExplicitWidth = 799
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 0
Top = 0
@@ -288,18 +287,22 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitLeft = 10
- ExplicitTop = 20
+ ExplicitWidth = 757
ExplicitHeight = 73
inherited dxLayoutControl1: TdxLayoutControl
Width = 757
+ ExplicitWidth = 757
inherited cbSubCuentas: TcxComboBox
Left = 85
ExplicitLeft = 85
+ ExplicitWidth = 376
+ Width = 376
end
inherited eContabilizar: TcxCheckBox
Left = 520
ExplicitLeft = 520
+ ExplicitWidth = 203
+ Width = 203
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
@@ -318,7 +321,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 200
end>
ExplicitTop = 623
- ExplicitWidth = 813
+ ExplicitWidth = 771
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
@@ -335,12 +338,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 4
ReadOnly = False
ExplicitTop = 460
- ExplicitWidth = 813
+ ExplicitWidth = 771
ExplicitHeight = 163
inherited dxLayoutControl1: TdxLayoutControl
Width = 771
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 813
+ ExplicitWidth = 771
inherited Bevel1: TBevel
Top = 111
Width = 73
@@ -497,5 +500,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited JvFormStorage: TJvFormStorage [8]
end
inherited dsDataTable: TDADataSource [10]
+ Top = 144
end
end
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index f84c8681..3d11300c 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
@@ -49,6 +49,8 @@ type
function ExtraerSeleccionados(ARecibosProveedor: IBizFacturaProveedor) : IBizFacturaProveedor;
procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
+ procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
+ procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
end;
TFacturasProveedorController = class(TObservador, IFacturasProveedorController)
@@ -109,6 +111,8 @@ type
function ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor) : IBizFacturaProveedor;
procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
+ procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
+ procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
end;
implementation
@@ -578,6 +582,9 @@ begin
if (AFactura.Detalles.DataTable.RecordCount = 0) then
raise Exception.Create('La factura debe tener al menos un concepto en su contenido');
+ if (AFactura.IGNORAR_CONTABILIDAD = 0) and (AFactura.Proveedor.SubCuentas.ID < 1) then
+ raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el proveedor tenga asignada una subcuenta');
+
{ Esta validación puede saltar cuando se generan facturas automáticamente
por albaranes o pedidos y el Proveedor no tiene Tipo de IVA puesto. }
{ if (AFactura.ID_TIPO_IVA = 0) then
@@ -884,6 +891,28 @@ begin
FDetallesController := Value;
end;
+procedure TFacturasProveedorController.SetIdSubcuenta(AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
+var
+ EnEdicion: Boolean;
+begin
+ if Assigned(AFactura) then
+ begin
+ EnEdicion := AFactura.DataTable.Editing;
+ if not AFactura.DataTable.Editing then
+ AFactura.DataTable.Edit;
+
+ if IdSubCuenta < 0 then
+ AFactura.DataTable.FieldByName(fld_FacturasProveedorID_SUBCUENTA).AsVariant := Null
+ else
+ AFactura.ID_SUBCUENTA := IdSubCuenta;
+
+ AFactura.DataTable.Post;
+
+ if EnEdicion then
+ AFactura.DataTable.Edit;
+ end;
+end;
+
procedure TFacturasProveedorController.SetID_Tienda(AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
var
EnEdicion: Boolean;
@@ -906,6 +935,24 @@ begin
end;
end;
+procedure TFacturasProveedorController.SetIgnorarContabilidad(AFactura: IBizFacturaProveedor; const Ignorar: Integer);
+var
+ EnEdicion: Boolean;
+begin
+ if Assigned(AFactura) then
+ begin
+ EnEdicion := AFactura.DataTable.Editing;
+ if not AFactura.DataTable.Editing then
+ AFactura.DataTable.Edit;
+
+ AFactura.IGNORAR_CONTABILIDAD := Ignorar;
+ AFactura.DataTable.Post;
+
+ if EnEdicion then
+ AFactura.DataTable.Edit;
+ end;
+end;
+
function TFacturasProveedorController.Guardar(AFactura: IBizFacturaProveedor): Boolean;
var
IDNuevo : Integer;
diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
index fb087196..f32fb34b 100644
--- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
@@ -240,6 +240,15 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'ID_SUBCUENTA'
+ DataType = datInteger
+ end
+ item
+ Name = 'SUBCUENTA'
+ DataType = datString
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
index 041a04f0..8f347854 100644
--- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
+++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
@@ -10,7 +10,11 @@
+
+
+
+
@@ -131,14 +135,50 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
index 7667e1dc..a9bc23d1 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
@@ -9,8 +9,8 @@ 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 = '{14858E96-12A5-404D-B349-21C49A4789EC}';
- RID_FacturasProveedor_Detalles = '{C0F8AC5C-13FF-4B02-A74E-A8665147E9DD}';
+ RID_FacturasProveedor = '{802DA96D-6573-4CBF-BBA2-38E4E0BF9C20}';
+ RID_FacturasProveedor_Detalles = '{3FF532D1-7C43-424B-B91C-C88BAD4881BE}';
{ Data table names }
nme_FacturasProveedor = 'FacturasProveedor';
@@ -51,6 +51,8 @@ const
fld_FacturasProveedorIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
fld_FacturasProveedorID_TIENDA = 'ID_TIENDA';
fld_FacturasProveedorTIENDA = 'TIENDA';
+ fld_FacturasProveedorID_SUBCUENTA = 'ID_SUBCUENTA';
+ fld_FacturasProveedorSUBCUENTA = 'SUBCUENTA';
{ FacturasProveedor field indexes }
idx_FacturasProveedorID = 0;
@@ -87,6 +89,8 @@ const
idx_FacturasProveedorIGNORAR_CONTABILIDAD = 31;
idx_FacturasProveedorID_TIENDA = 32;
idx_FacturasProveedorTIENDA = 33;
+ idx_FacturasProveedorID_SUBCUENTA = 34;
+ idx_FacturasProveedorSUBCUENTA = 35;
{ FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID';
@@ -123,7 +127,7 @@ const
type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
- ['{9E13A0CC-7128-4897-A079-0E7EB45BF1EC}']
+ ['{ADC8C0DC-48B7-4189-AC00-BA9A50CE70C4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -260,6 +264,14 @@ type
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean);
+ function GetID_SUBCUENTAValue: Integer;
+ procedure SetID_SUBCUENTAValue(const aValue: Integer);
+ function GetID_SUBCUENTAIsNull: Boolean;
+ procedure SetID_SUBCUENTAIsNull(const aValue: Boolean);
+ function GetSUBCUENTAValue: String;
+ procedure SetSUBCUENTAValue(const aValue: String);
+ function GetSUBCUENTAIsNull: Boolean;
+ procedure SetSUBCUENTAIsNull(const aValue: Boolean);
{ Properties }
@@ -331,6 +343,10 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+ property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
+ property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
+ property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
end;
{ TFacturasProveedorDataTableRules }
@@ -475,6 +491,14 @@ type
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+ function GetID_SUBCUENTAValue: Integer; virtual;
+ procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
+ function GetID_SUBCUENTAIsNull: Boolean; virtual;
+ procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
+ function GetSUBCUENTAValue: String; virtual;
+ procedure SetSUBCUENTAValue(const aValue: String); virtual;
+ function GetSUBCUENTAIsNull: Boolean; virtual;
+ procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -545,6 +569,10 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+ property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
+ property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
+ property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -554,7 +582,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{85F61EAD-0843-4BD9-B02C-03D97E7D72BD}']
+ ['{D16CA232-F0BA-4312-B507-9D67A38B081F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1479,6 +1507,48 @@ begin
DataTable.Fields[idx_FacturasProveedorTIENDA].AsVariant := Null;
end;
+function TFacturasProveedorDataTableRules.GetID_SUBCUENTAValue: Integer;
+begin
+ result := DataTable.Fields[idx_FacturasProveedorID_SUBCUENTA].AsInteger;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetID_SUBCUENTAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_FacturasProveedorID_SUBCUENTA].AsInteger := aValue;
+end;
+
+function TFacturasProveedorDataTableRules.GetID_SUBCUENTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasProveedorID_SUBCUENTA].IsNull;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasProveedorID_SUBCUENTA].AsVariant := Null;
+end;
+
+function TFacturasProveedorDataTableRules.GetSUBCUENTAValue: String;
+begin
+ result := DataTable.Fields[idx_FacturasProveedorSUBCUENTA].AsString;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetSUBCUENTAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_FacturasProveedorSUBCUENTA].AsString := aValue;
+end;
+
+function TFacturasProveedorDataTableRules.GetSUBCUENTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasProveedorSUBCUENTA].IsNull;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasProveedorSUBCUENTA].AsVariant := Null;
+end;
+
{ TFacturasProveedor_DetallesDataTableRules }
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
index 2bcc0af0..a05c0ffb 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
@@ -9,13 +9,13 @@ 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 = '{4B9EEC33-A065-4BE4-A8CF-0CBE3D1559CE}';
- RID_FacturasProveedor_DetallesDelta = '{EC76D38B-EC95-48A9-BD8C-DDF0B39E541F}';
+ RID_FacturasProveedorDelta = '{91DA6A6D-8DED-41A1-BC58-3F8BA43570B9}';
+ RID_FacturasProveedor_DetallesDelta = '{F264DBEE-8AE8-40B8-B153-A141DA741744}';
type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
- ['{4B9EEC33-A065-4BE4-A8CF-0CBE3D1559CE}']
+ ['{91DA6A6D-8DED-41A1-BC58-3F8BA43570B9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -51,6 +51,8 @@ type
function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
+ function GetOldID_SUBCUENTAValue : Integer;
+ function GetOldSUBCUENTAValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -87,6 +89,8 @@ type
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
+ property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
+ property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
end;
{ TFacturasProveedorBusinessProcessorRules }
@@ -299,6 +303,18 @@ type
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+ function GetID_SUBCUENTAValue: Integer; virtual;
+ function GetID_SUBCUENTAIsNull: Boolean; virtual;
+ function GetOldID_SUBCUENTAValue: Integer; virtual;
+ function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
+ procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
+ procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
+ function GetSUBCUENTAValue: String; virtual;
+ function GetSUBCUENTAIsNull: Boolean; virtual;
+ function GetOldSUBCUENTAValue: String; virtual;
+ function GetOldSUBCUENTAIsNull: Boolean; virtual;
+ procedure SetSUBCUENTAValue(const aValue: String); virtual;
+ procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -437,6 +453,14 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
+ property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
+ property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
+ property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
+ property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
+ property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
+ property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
+ property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
+ property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -446,7 +470,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
- ['{EC76D38B-EC95-48A9-BD8C-DDF0B39E541F}']
+ ['{F264DBEE-8AE8-40B8-B153-A141DA741744}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -1712,6 +1736,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorTIENDA] := Null;
end;
+function TFacturasProveedorBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_SUBCUENTA];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_SUBCUENTA]);
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_SUBCUENTA];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_SUBCUENTA]);
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_SUBCUENTA] := aValue;
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_SUBCUENTA] := Null;
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetSUBCUENTAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorSUBCUENTA];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorSUBCUENTA]);
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldSUBCUENTAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorSUBCUENTA];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorSUBCUENTA]);
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorSUBCUENTA] := aValue;
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorSUBCUENTA] := Null;
+end;
+
{ TFacturasProveedor_DetallesBusinessProcessorRules }
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
index 6d821002..c9d91389 100644
--- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
@@ -91,10 +91,10 @@ function TBizFacturasProveedorServer.DarReferencia: String;
var
ATipo : String;
begin
- if TIPO = CTE_TIPO_FACTURA then
- ATipo := REF_FACTURAS_PROVEEDOR
- else
- ATipo := REF_ABONOS_PROVEEDOR;
+// if TIPO = CTE_TIPO_FACTURA then
+ ATipo := REF_FACTURAS_PROVEEDOR;
+// else
+// ATipo := REF_ABONOS_PROVEEDOR;
with TsrvReferencias.Create(NIL) do
try
@@ -113,6 +113,19 @@ begin
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
+ //Eliminamos los recibos de la factura
+ ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_RecibosFactura');
+ try
+ with ACommand do
+ begin
+ ParamByName('ID_FACTURA').Value := aChange.OldValueByName[fld_FacturasProveedorID];
+ Execute;
+ end;
+ finally
+ ACommand := NIL;
+ end;
+
+ //Eliminamos los asientos contables de la factura
ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_AsientoFactura');
try
with ACommand do
@@ -130,15 +143,14 @@ function TBizFacturasProveedorServer.IncrementarReferencia: Boolean;
var
ATipo : String;
begin
- if TIPO = CTE_TIPO_FACTURA then
- ATipo := REF_FACTURAS_PROVEEDOR
- else
- ATipo := REF_ABONOS_PROVEEDOR;
+// if TIPO = CTE_TIPO_FACTURA then
+ ATipo := REF_FACTURAS_PROVEEDOR;
+// else
+// ATipo := REF_ABONOS_PROVEEDOR;
with TsrvReferencias.Create(NIL) do
try
- Result := IncrementarValorReferencia(ATipo,
- Self.REFERENCIA, ID_EMPRESA)
+ Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;
@@ -159,6 +171,7 @@ begin
with ACommand do
begin
ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasProveedorID];
+ ParamByName('IdSubCuentaCompra').Value := aChange.NewValueByName[fld_FacturasProveedorID_SUBCUENTA];
Execute;
end;
finally
@@ -180,6 +193,7 @@ begin
with ACommand do
begin
ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasProveedorID];
+ ParamByName('IdSubCuentaCompra').Value := aChange.NewValueByName[fld_FacturasProveedorID_SUBCUENTA];
Execute;
end;
finally
diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
index d9eac2a4..5aefc7d8 100644
--- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
+++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
@@ -158,6 +158,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
DatasetField = 'TIENDA'
TableField = 'TIENDA'
+ end
+ item
+ DatasetField = 'ID_SUBCUENTA'
+ TableField = 'ID_SUBCUENTA'
+ end
+ item
+ DatasetField = 'SUBCUENTA'
+ TableField = 'SUBCUENTA'
end>
end>
Name = 'FacturasProveedor'
@@ -343,6 +351,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'ID_SUBCUENTA'
+ DataType = datInteger
+ end
+ item
+ Name = 'SUBCUENTA'
+ DataType = datString
+ Size = 255
end>
end
item
@@ -508,6 +525,24 @@ object srvFacturasProveedor: TsrvFacturasProveedor
JoinDataTables = <>
UnionDataTables = <>
Commands = <
+ item
+ Params = <
+ item
+ Name = 'ID_FACTURA'
+ Value = ''
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ ConnectionType = 'Interbase'
+ Default = True
+ Name = 'IBX'
+ SQL = 'delete from recibos_proveedor'#10'where id_factura = :ID_FACTURA'#10
+ StatementType = stSQL
+ ColumnMappings = <>
+ end>
+ Name = 'Delete_RecibosFactura'
+ end
item
Params = <
item
@@ -535,6 +570,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
Name = 'IdFactura'
Value = ''
+ end
+ item
+ Name = 'IdSubCuentaCompra'
+ Value = ''
end>
Statements = <
item
@@ -542,7 +581,9 @@ object srvFacturasProveedor: TsrvFacturasProveedor
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
- SQL = 'execute procedure proc_new_asiento_factura_prov :IdFactura'#10
+ SQL =
+ 'execute procedure proc_new_asiento_factura_prov :IdFactura, :IdS' +
+ 'ubCuentaCompra'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas
index 0f1ff7fa..9deba12c 100644
--- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas
+++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas
@@ -57,14 +57,13 @@ procedure TsrvFacturasProveedor.DARemoteServiceBeforeGetDatasetData(
const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer);
begin
-{ if DataSet.Name = nme_FacturasProveedor then
+ if DataSet.Name = nme_FacturasProveedor then
begin
{ Aquí se asegura que el usuario sólo accede a facturas
de las empresas a las que tiene permiso para acceder
filtrando DataSet por ID_EMPRESA. }
-{ FiltrarAccesoUsuario(Session, Connection, schFacturasProveedor, DataSet, fld_FacturasProveedorID_EMPRESA);
+ FiltrarAccesoUsuario(Session, Connection, schFacturasProveedor, DataSet, fld_FacturasProveedorID_EMPRESA);
end;
-}
end;
procedure TsrvFacturasProveedor.DARemoteServiceCreate(Sender: TObject);
diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
index 74e9aaf3..89c2b43a 100644
--- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
+++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
@@ -28,7 +28,9 @@ requires
FacturasProveedor_controller,
FacturasProveedor_model,
GUIBase,
- Articulos_view;
+ Articulos_view,
+ Contabilidad_controller,
+ Contabilidad_view;
contains
uFacturasProveedorViewRegister in 'uFacturasProveedorViewRegister.pas',
diff --git a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
index c30751c6..e72db93d 100644
--- a/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
+++ b/Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
@@ -41,7 +41,6 @@
FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
-
RemObjects Pascal Script - RemObjects SDK 3.0 Integration
FacturasProveedor_view.dpk
@@ -50,10 +49,12 @@
MainSource
-
-
-
-
+
+
+
+
+
+
TfEditorElegirArticulosFacturaProveedor
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
index 011728cf..3b91f374 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
@@ -71,6 +71,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited pgPaginas: TPageControl
Width = 740
Height = 342
+ ActivePage = pagContabilidad
OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
@@ -98,6 +99,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 732
ExplicitHeight = 314
inherited dxLayoutControl1: TdxLayoutControl
+ Width = 732
Height = 314
ExplicitWidth = 732
ExplicitHeight = 314
@@ -122,11 +124,17 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 169
Width = 169
end
+ inherited bFormasPago: TButton
+ Left = 210
+ ExplicitLeft = 210
+ end
inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 316
Width = 316
end
inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
+ Left = 370
+ ExplicitLeft = 370
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 276
@@ -151,7 +159,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
end
inherited frViewTienda1: TfrViewTienda
+ Width = 320
+ ExplicitWidth = 320
inherited dxLayoutControl1: TdxLayoutControl
+ Width = 320
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
@@ -260,32 +271,42 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
object pagContabilidad: TTabSheet
Caption = 'Contabilidad'
ImageIndex = 2
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
- object cbIgnorarContabilidad: TcxDBCheckBox
- Left = 16
- Top = 12
- Caption = 'Ignorar en contabilidad'
- DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
- DataBinding.DataSource = dsDataTable
- Properties.NullStyle = nssUnchecked
- Properties.ValueChecked = 1
- Properties.ValueUnchecked = 0
- Style.BorderColor = clWindowFrame
- Style.BorderStyle = ebs3D
- Style.HotTrack = False
- Style.LookAndFeel.Kind = lfStandard
- Style.LookAndFeel.NativeStyle = True
- StyleDisabled.LookAndFeel.Kind = lfStandard
- StyleDisabled.LookAndFeel.NativeStyle = True
- StyleFocused.LookAndFeel.Kind = lfStandard
- StyleFocused.LookAndFeel.NativeStyle = True
- StyleHot.LookAndFeel.Kind = lfStandard
- StyleHot.LookAndFeel.NativeStyle = True
+ inline frViewListaSubcuentas1: TfrViewListaSubcuentas
+ Left = 0
+ Top = 0
+ Width = 732
+ Height = 69
+ Align = alTop
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
TabOrder = 0
- Width = 300
+ ReadOnly = False
+ ExplicitWidth = 732
+ inherited dxLayoutControl1: TdxLayoutControl
+ Width = 732
+ ExplicitWidth = 732
+ inherited cbSubCuentas: TcxComboBox
+ Left = 92
+ ExplicitLeft = 92
+ ExplicitWidth = 376
+ Width = 376
+ end
+ inherited eContabilizar: TcxCheckBox
+ Left = 505
+ ExplicitLeft = 505
+ ExplicitWidth = 203
+ Width = 203
+ end
+ inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+ inherited dxLayoutControl1Item1: TdxLayoutItem
+ Caption = 'Tipo de compra:'
+ end
+ end
+ end
end
end
end
@@ -485,5 +506,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited JvFormStorage: TJvFormStorage [8]
end
inherited dsDataTable: TDADataSource [10]
+ Left = 40
+ Top = 144
end
end
diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
index dcdc217a..161d5425 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
@@ -7,14 +7,14 @@ uses
Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage,
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
- TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
+ TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
uCustomView, uViewBase, uViewTotales,
StdCtrls, pngimage, AppEvnts, JvComponentBase,
uBizFacturasProveedor, uIEditorFacturaProveedor, uFacturasProveedorController, uViewDetallesBase,
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uBizTiposIVA,
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController,
uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces,
- cxControls, cxContainer, cxEdit, cxCheckBox, cxDBEdit;
+ cxControls, cxContainer, cxEdit, cxCheckBox, cxDBEdit, uViewListaSubCuentas;
type
@@ -23,7 +23,7 @@ type
frViewFacturaProveedor1: TfrViewFacturaProveedor;
frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor;
pagContabilidad: TTabSheet;
- cbIgnorarContabilidad: TcxDBCheckBox;
+ frViewListaSubcuentas1: TfrViewListaSubcuentas;
procedure FormShow(Sender: TObject);
procedure frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(
Sender: TObject);
@@ -76,9 +76,10 @@ type
implementation
{$R *.dfm}
+{$INCLUDE ..\..\..\FactuGES.inc}
uses
- uBizContactos, uDataModuleUsuarios, uFactuGES_App,
+ uBizContactos, uDataModuleUsuarios, uFactuGES_App, uSubCuentasController,
uDetallesFacturaProveedorController, uDialogUtils, uDataTableUtils;
// uGenerarAlbaranesProvFacProvUtils;
@@ -93,7 +94,10 @@ begin
inherited;
pgPaginas.ActivePageIndex := 0;
ViewFacturaProveedor := frViewFacturaProveedor1;
- FTiposIVAController := TTiposIVAController.Create;
+ FTiposIVAController := TTiposIVAController.Create;
+
+ //CONTABILIDAD
+ frViewListaSubcuentas1.TipoSubCuenta := tCompras;
end;
procedure TfEditorFacturaProveedor.CustomEditorClose(Sender: TObject;
@@ -246,7 +250,12 @@ begin
frViewDetallesFacturaProveedor1.BeginUpdate; // Para que no se mueva el foco
try
bEsNuevo := FFactura.EsNuevo;
- FController.SetID_Tienda(FFactura, frViewFacturaProveedor1.frViewTienda1.getIDTienda);
+
+ {$IFDEF CONTABILIDAD}
+ FController.SetIgnorarContabilidad(FFactura, frViewListaSubCuentas1.eContabilizar.EditValue);
+ FController.SetIdSubcuenta(FFactura, frViewListaSubCuentas1.IdSubCuenta);
+ {$ENDIF}
+
FController.Guardar(FFactura);
finally
frViewDetallesFacturaProveedor1.EndUpdate;
@@ -400,6 +409,12 @@ begin
frViewDetallesFacturaProveedor1.Detalles := FFactura.Detalles;
frViewDetallesFacturaProveedor1.Factura := FFactura; //Para poder sacar los descuento del articulos segun el proveedor seleccionado
end;
+
+ {$IFDEF CONTABILIDAD}
+ frViewListaSubCuentas1.eContabilizar.EditValue := FFactura.IGNORAR_CONTABILIDAD;
+// frViewListaSubCuentas1.ElegirSubCuenta(FFactura.ID_SUBCUENTA);
+ {$ENDIF}
+
end
else begin
frViewFacturaProveedor1.frViewProveedorFactura.OnProveedorChanged := NIL;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index fd57e58a..d4b4b7fc 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 8a00ab5f..2bb7e15e 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -97,8 +97,6 @@ uses
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
- schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
- schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
@@ -118,7 +116,9 @@ uses
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
- schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas';
+ schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
+ schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
+ schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index c9a1cd4c..7327e928 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
- VALUE "CompileDate", "jueves, 06 de marzo de 2008 21:29\0"
+ VALUE "CompileDate", "miércoles, 12 de marzo de 2008 18:59\0"
END
END
BLOCK "VarFileInfo"