Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo en validacion de facturas de cliente y proveedor, para que cuando se desee incluirlas en contabilidad se compruebe que el cliente o proveedor de la factura tenga un subcuenta asociada, ademas se ha modificado el módulo de facturas de proveedor para que funcione la parte contable correctamente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@169 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-03-12 18:24:58 +00:00
parent b7a11db79b
commit 27bb8897ae
24 changed files with 508 additions and 119 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Cliente/uBootStrap.pas
View File

@ -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');

27
Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
View File

@ -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;
@ -291,6 +317,7 @@ begin
tTodas : ASubCuentas := BuscarTodos;
tCajas : ASubCuentas := BuscarCajasBancos;
tVentas : ASubCuentas := BuscarVentas;
tCompras : ASubCuentas := BuscarCompras;
end;
ASubCuentas.DataTable.Active := True;

11
Source/Modulos/Contactos/Plugin/uPluginContactos.pas
View File

@ -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;

14
Source/Modulos/Contactos/Views/uEditorClientes.dfm
View File

@ -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

2
Source/Modulos/Contactos/Views/uEditorContactos.dfm
View File

@ -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

8
Source/Modulos/Contactos/Views/uEditorContactos.pas
View File

@ -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;

3
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -592,6 +592,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.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

3
Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
View File

@ -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;

74
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -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

47
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -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;

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

@ -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]

46
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -10,7 +10,11 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" />
<Projects Include="Data\FacturasProveedor_data.dproj" />
<Projects Include="Model\FacturasProveedor_model.dproj" />
@ -131,14 +135,50 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_view">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_view:Clean">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_controller">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_controller:Clean">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_controller:Make">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_model">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
</Target>
<Target Name="Contactos_model:Clean">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_model:Make">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Contabilidad_view;Contabilidad_controller;Contactos_model" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -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);

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

@ -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);

34
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
View File

@ -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

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

@ -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>

5
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas
View File

@ -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);

4
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk
View File

@ -28,7 +28,9 @@ requires
FacturasProveedor_controller,
FacturasProveedor_model,
GUIBase,
Articulos_view;
Articulos_view,
Contabilidad_controller,
Contabilidad_view;
contains
uFacturasProveedorViewRegister in 'uFacturasProveedorViewRegister.pas',

11
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
View File

@ -41,7 +41,6 @@
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
@ -50,10 +49,12 @@
<DelphiCompile Include="FacturasProveedor_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\FacturasProveedor_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaProveedor.pas">
<Form>fEditorElegirArticulosFacturaProveedor</Form>
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>

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

@ -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

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

@ -14,7 +14,7 @@ uses
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;
@ -94,6 +95,9 @@ begin
pgPaginas.ActivePageIndex := 0;
ViewFacturaProveedor := frViewFacturaProveedor1;
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;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -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}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -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"