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

Generacion automatica de subcuenta para el pago de recibos y remesas de cliente, falta repaso de facturas de cliente.

Browse Source 
Tambien se ha incluido la directiva de compilacion para el modulo de contabilidad

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@164 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-02-29 18:10:08 +00:00
parent f29fdb104a
commit d6e8d1a440
46 changed files with 831 additions and 673 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

@ -77,6 +77,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 668 Width = 668
Height = 453 Height = 453
ActivePage = pagTiendas
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 668 ExplicitWidth = 668
@ -243,7 +244,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
end end
end end
end end
object TabSheet1: TTabSheet object pagDatosBancarios: TTabSheet
Caption = 'Datos bancarios' Caption = 'Datos bancarios'
ImageIndex = 1 ImageIndex = 1
inline frViewDatosBancarios1: TfrViewDatosBancarios inline frViewDatosBancarios1: TfrViewDatosBancarios
@ -310,6 +311,11 @@ inherited fEditorEmpresa: TfEditorEmpresa
Height = 400 Height = 400
ExplicitWidth = 660 ExplicitWidth = 660
ExplicitHeight = 400 ExplicitHeight = 400
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewCODIGO_CONTABLE: TcxGridDBColumn
VisibleForCustomization = False
end
end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 660 Width = 660

12
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.pas
View File

@ -20,7 +20,7 @@ type
frViewEmpresa1: TfrViewEmpresa; frViewEmpresa1: TfrViewEmpresa;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
TabSheet1: TTabSheet; pagDatosBancarios: TTabSheet;
frViewDatosBancarios1: TfrViewDatosBancarios; frViewDatosBancarios1: TfrViewDatosBancarios;
pagTiendas: TTabSheet; pagTiendas: TTabSheet;
frViewTiendas1: TfrViewTiendas; frViewTiendas1: TfrViewTiendas;
@ -54,8 +54,8 @@ type
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
uses uses
uCustomEditor, uDataModuleEmpresas; uCustomEditor, uDataModuleEmpresas;
@ -142,7 +142,7 @@ begin
raise Exception.Create('No hay ningún Empresa asignado'); raise Exception.Create('No hay ningún Empresa asignado');
Empresa.DataTable.Active := True; Empresa.DataTable.Active := True;
// FViewEmpresa.ShowEmbedded(pagGeneral); pgPaginas.ActivePage := pagGeneral;
FViewEmpresa.SetFocus; FViewEmpresa.SetFocus;
end; end;
@ -161,6 +161,12 @@ constructor TfEditorEmpresa.Create(AOwner: TComponent);
begin begin
inherited; inherited;
FViewEmpresa := frViewEmpresa1; FViewEmpresa := frViewEmpresa1;
{$IFDEF CONTABILIDAD}
pagDatosBancarios.TabVisible := false;
{$ELSE}
pagDatosBancarios.TabVisible := true;
{$ENDIF}
end; end;
destructor TfEditorEmpresa.Destroy; destructor TfEditorEmpresa.Destroy;

2
Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.dfm
View File

@ -162,7 +162,6 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
Caption = '&Aceptar' Caption = '&Aceptar'
ModalResult = 1 ModalResult = 1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 343
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 349 Left = 349
@ -174,7 +173,6 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
Caption = '&Cancelar' Caption = '&Cancelar'
ModalResult = 2 ModalResult = 2
TabOrder = 1 TabOrder = 1
ExplicitLeft = 343
end end
object eDireccion: TDBEdit object eDireccion: TDBEdit
Left = 135 Left = 135

13
Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.pas
View File

@ -60,11 +60,12 @@ type
end; end;
implementation implementation
{$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
uses uses
Variants; Variants;
{$R *.dfm}
type type
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit); THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
@ -75,6 +76,16 @@ constructor TfEditorTiendaEmpresa.Create(AOwner: TComponent);
begin begin
inherited; inherited;
FController := NIL; FController := NIL;
{$IFDEF CONTABILIDAD}
Bevel2.Visible := True;
Label10.Visible := True;
eCodigoContable.Visible := True;
{$ELSE}
Bevel2.Visible := False;
Label10.Visible := False;
eCodigoContable.Visible := False;
{$ENDIF}
end; end;
destructor TfEditorTiendaEmpresa.Destroy; destructor TfEditorTiendaEmpresa.Destroy;

1
Source/ApplicationBase/Empresas/Views/uViewTiendas.dfm
View File

@ -1,6 +1,7 @@
inherited frViewTiendas: TfrViewTiendas inherited frViewTiendas: TfrViewTiendas
Width = 583 Width = 583
Height = 464 Height = 464
OnCreate = CustomViewCreate
ExplicitWidth = 583 ExplicitWidth = 583
ExplicitHeight = 464 ExplicitHeight = 464
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid

16
Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
View File

@ -26,6 +26,7 @@ type
cxGridViewCODIGO_CONTABLE: TcxGridDBColumn; cxGridViewCODIGO_CONTABLE: TcxGridDBColumn;
procedure cxGridViewDblClick(Sender: TObject); procedure cxGridViewDblClick(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
protected protected
procedure AnadirInterno; override; procedure AnadirInterno; override;
procedure ModificarInterno; override; procedure ModificarInterno; override;
@ -34,8 +35,8 @@ type
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
uses uses
uDialogUtils, uTiendasEmpresaController, uBizEmpresasTiendas; uDialogUtils, uTiendasEmpresaController, uBizEmpresasTiendas;
@ -63,6 +64,19 @@ begin
end; end;
end; end;
procedure TfrViewTiendas.CustomViewCreate(Sender: TObject);
begin
inherited;
{$IFDEF CONTABILIDAD}
cxGridViewCODIGO_CONTABLE.VisibleForCustomization := true;
cxGridViewCODIGO_CONTABLE.Visible := true;
{$ELSE}
cxGridViewCODIGO_CONTABLE.VisibleForCustomization := false;
cxGridViewCODIGO_CONTABLE.Visible := false;
{$ENDIF}
end;
procedure TfrViewTiendas.cxGridViewDblClick(Sender: TObject); procedure TfrViewTiendas.cxGridViewDblClick(Sender: TObject);
begin begin
inherited; inherited;

BIN
Source/Base/Base.res
View File

Binary file not shown.

15
Source/Cliente/uBootStrap.pas
View File

@ -25,14 +25,13 @@ begin
LoadModule('TiposVenta_plugin.bpl'); LoadModule('TiposVenta_plugin.bpl');
LoadModule('FormasPago_plugin.bpl'); LoadModule('FormasPago_plugin.bpl');
LoadModule('TiposIVA_plugin.bpl'); LoadModule('TiposIVA_plugin.bpl');
LoadModule('Contactos_plugin.bpl'); LoadModule('Contactos_plugin.bpl');
{$IFDEF ALMACEN} {$IFDEF ALMACEN}
{ LoadModule('Familias_plugin.bpl'); LoadModule('Familias_plugin.bpl');
LoadModule('UnidadesMedida_plugin.bpl'); LoadModule('UnidadesMedida_plugin.bpl');
LoadModule('Almacenes_plugin.bpl'); LoadModule('Almacenes_plugin.bpl');
LoadModule('Articulos_plugin.bpl');} LoadModule('Articulos_plugin.bpl');
{$ENDIF} {$ENDIF}
LoadModule('PresupuestosCliente_plugin.bpl'); LoadModule('PresupuestosCliente_plugin.bpl');
@ -42,8 +41,8 @@ begin
LoadModule('FacturasCliente_plugin.bpl'); LoadModule('FacturasCliente_plugin.bpl');
{$IFDEF PEDIDOSPROVEEDOR} {$IFDEF PEDIDOSPROVEEDOR}
{ LoadModule('PedidosProveedor_plugin.bpl'); LoadModule('PedidosProveedor_plugin.bpl');
LoadModule('AlbaranesProveedor_plugin.bpl');} LoadModule('AlbaranesProveedor_plugin.bpl');
{$ENDIF} {$ENDIF}
LoadModule('RecibosProveedor_plugin.bpl'); LoadModule('RecibosProveedor_plugin.bpl');
@ -53,12 +52,14 @@ begin
LoadModule('RemesasProveedor_plugin.bpl'); LoadModule('RemesasProveedor_plugin.bpl');
{$IFDEF ALMACEN} {$IFDEF ALMACEN}
{ LoadModule('Inventario_plugin.bpl'); LoadModule('Inventario_plugin.bpl');
LoadModule('HistoricoMovimientos_plugin.bpl');} LoadModule('HistoricoMovimientos_plugin.bpl');
{$ENDIF} {$ENDIF}
{$IFDEF CONTABILIDAD}
LoadModule('Ejercicios_plugin.bpl'); LoadModule('Ejercicios_plugin.bpl');
LoadModule('Contabilidad_plugin.bpl'); LoadModule('Contabilidad_plugin.bpl');
{$ENDIF}
end; end;
end; end;

3
Source/FactuGES.inc
View File

@ -1,2 +1,3 @@
{DEFINE ALMACEN} {DEFINE ALMACEN}
{DEFINE PEDIDOSPROVEEDOR} {DEFINE PEDIDOSPROVEEDOR}
{$DEFINE CONTABILIDAD}

34
Source/GUIBase/GUIBase.dproj
View File

@ -57,23 +57,23 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\Base.dcp" /> <DCCReference Include="..\Modulos\Lib\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Lib\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Lib\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Lib\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Lib\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Lib\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Lib\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Lib\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\frx11.dcp" /> <DCCReference Include="..\Modulos\Lib\frx11.dcp" />
<DCCReference Include="..\Modulos\Contactos\frxe11.dcp" /> <DCCReference Include="..\Modulos\Lib\frxe11.dcp" />
<DCCReference Include="..\Modulos\Contactos\fs11.dcp" /> <DCCReference Include="..\Modulos\Lib\fs11.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Lib\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Lib\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Lib\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" /> <DCCReference Include="..\Modulos\Lib\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" /> <DCCReference Include="..\Modulos\Lib\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" /> <DCCReference Include="..\Modulos\Lib\vcldb.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

16
Source/GUIBase/uEditorBase.dfm
View File

@ -2,8 +2,8 @@ object fEditorBase: TfEditorBase
Left = 222 Left = 222
Top = 127 Top = 127
Caption = 'EditorBase' Caption = 'EditorBase'
ClientHeight = 458 ClientHeight = 456
ClientWidth = 795 ClientWidth = 793
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -23,7 +23,7 @@ object fEditorBase: TfEditorBase
object JvNavPanelHeader: TJvNavPanelHeader object JvNavPanelHeader: TJvNavPanelHeader
Left = 0 Left = 0
Top = 49 Top = 49
Width = 795 Width = 793
Align = alTop Align = alTop
Caption = 'Editor' Caption = 'Editor'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -37,6 +37,7 @@ object fEditorBase: TfEditorBase
ImageIndex = 0 ImageIndex = 0
StyleManager = dmBase.StyleManager StyleManager = dmBase.StyleManager
ParentStyleManager = False ParentStyleManager = False
ExplicitWidth = 795
object Image1: TImage object Image1: TImage
Left = 768 Left = 768
Top = 0 Top = 0
@ -70,8 +71,9 @@ object fEditorBase: TfEditorBase
object TBXDock: TTBXDock object TBXDock: TTBXDock
Left = 0 Left = 0
Top = 0 Top = 0
Width = 795 Width = 793
Height = 49 Height = 49
ExplicitWidth = 795
object tbxMain: TTBXToolbar object tbxMain: TTBXToolbar
Left = 0 Left = 0
Top = 23 Top = 23
@ -244,10 +246,12 @@ object fEditorBase: TfEditorBase
end end
object StatusBar: TJvStatusBar object StatusBar: TJvStatusBar
Left = 0 Left = 0
Top = 439 Top = 437
Width = 795 Width = 793
Height = 19 Height = 19
Panels = <> Panels = <>
ExplicitTop = 439
ExplicitWidth = 795
end end
object EditorActionList: TActionList object EditorActionList: TActionList
Images = SmallImages Images = SmallImages

20
Source/GUIBase/uEditorDBBase.dfm
View File

@ -2,14 +2,14 @@ inherited fEditorDBBase: TfEditorDBBase
Left = 295 Left = 295
Top = 247 Top = 247
Caption = 'fEditorDBBase' Caption = 'fEditorDBBase'
ClientHeight = 456 ClientHeight = 454
ClientWidth = 648 ClientWidth = 646
ExplicitWidth = 656 ExplicitWidth = 654
ExplicitHeight = 490 ExplicitHeight = 488
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 648 Width = 646
ExplicitWidth = 648 ExplicitWidth = 648
inherited Image1: TImage inherited Image1: TImage
Left = 621 Left = 621
@ -17,18 +17,18 @@ inherited fEditorDBBase: TfEditorDBBase
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 648 Width = 646
ExplicitWidth = 648 ExplicitWidth = 648
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 648 ExplicitWidth = 646
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 648 ExplicitWidth = 646
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 437 Top = 435
Width = 648 Width = 646
ExplicitTop = 437 ExplicitTop = 437
ExplicitWidth = 648 ExplicitWidth = 648
end end

22
Source/GUIBase/uEditorDBItem.dfm
View File

@ -2,14 +2,14 @@ inherited fEditorDBItem: TfEditorDBItem
Left = 450 Left = 450
Top = 321 Top = 321
Caption = 'fEditorDBItem' Caption = 'fEditorDBItem'
ClientHeight = 461 ClientHeight = 459
ClientWidth = 652 ClientWidth = 650
ExplicitWidth = 660 ExplicitWidth = 658
ExplicitHeight = 495 ExplicitHeight = 493
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 652 Width = 650
ExplicitWidth = 652 ExplicitWidth = 652
inherited Image1: TImage inherited Image1: TImage
Left = 625 Left = 625
@ -18,7 +18,7 @@ inherited fEditorDBItem: TfEditorDBItem
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 652 Width = 650
ExplicitWidth = 652 ExplicitWidth = 652
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 605 ExplicitWidth = 605
@ -30,7 +30,7 @@ inherited fEditorDBItem: TfEditorDBItem
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 652 ExplicitWidth = 650
inherited TBXSubmenuItem1: TTBXSubmenuItem inherited TBXSubmenuItem1: TTBXSubmenuItem
Visible = False Visible = False
end end
@ -40,8 +40,8 @@ inherited fEditorDBItem: TfEditorDBItem
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 79 Top = 79
Width = 646 Width = 644
Height = 360 Height = 358
ActivePage = pagGeneral ActivePage = pagGeneral
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
@ -58,8 +58,8 @@ inherited fEditorDBItem: TfEditorDBItem
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 442 Top = 440
Width = 652 Width = 650
Panels = < Panels = <
item item
Width = 200 Width = 200

23
Source/Modulos/Contabilidad/Views/uViewCajasBancos.dfm
View File

@ -23,7 +23,7 @@ inherited frViewCajasBancos: TfrViewCajasBancos
73) 73)
object cbCajasBancos: TcxComboBox object cbCajasBancos: TcxComboBox
Left = 80 Left = 80
Top = 37 Top = 10
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -41,33 +41,38 @@ inherited frViewCajasBancos: TfrViewCajasBancos
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 0
Width = 376 Width = 376
end end
object eContabilizar: TcxCheckBox object eContabilizar: TcxCheckBox
Left = 10 Left = 309
Top = 10 Top = 10
Caption = 'Ignorar en contabiliad' Caption = 'Ignorar en contabiliad'
Properties.ValueChecked = 1 Properties.ValueChecked = 1
Properties.ValueUnchecked = 0 Properties.ValueUnchecked = 0
Properties.OnEditValueChanged = eContabilizarPropertiesEditValueChanged Properties.OnEditValueChanged = eContabilizarPropertiesEditValueChanged
TabOrder = 0 TabOrder = 1
Width = 203 Width = 203
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item2: TdxLayoutItem
ShowCaption = False
Control = eContabilizar
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Caja / Banco:' Caption = 'Caja / Banco:'
Control = cbCajasBancos Control = cbCajasBancos
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Control = eContabilizar
ControlOptions.ShowBorder = False
end
end end
end end
end end

8
Source/Modulos/Contabilidad/Views/uViewCajasBancos.pas
View File

@ -35,8 +35,8 @@ type
implementation implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
uses uses
uFactuGES_App, uSubCuentasController; uFactuGES_App, uSubCuentasController;
@ -69,6 +69,12 @@ begin
end; end;
Free; Free;
end; end;
{$IFDEF CONTABILIDAD}
eContabilizar.Checked := false;
{$ELSE}
eContabilizar.Checked := true;
{$ENDIF}
end; end;
procedure TfrViewCajasBancos.CustomViewDestroy(Sender: TObject); procedure TfrViewCajasBancos.CustomViewDestroy(Sender: TObject);

16
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -391,6 +391,8 @@ type
implementation implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses uses
uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App, uBizEmpresasTiendas; uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App, uBizEmpresasTiendas;
@ -646,7 +648,12 @@ begin
BLOQUEADO := 0; BLOQUEADO := 0;
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
REGIMEN_IVA := CLIENTE_REGIMEN_IVA; REGIMEN_IVA := CLIENTE_REGIMEN_IVA;
IGNORAR_CONTABILIDAD := 0;
{$IFDEF CONTABILIDAD}
IGNORAR_CONTABILIDAD := 0;
{$ELSE}
IGNORAR_CONTABILIDAD := 1;
{$ENDIF}
end; end;
{ TBizProveedor } { TBizProveedor }
@ -696,7 +703,12 @@ begin
inherited; inherited;
ID_CATEGORIA := CATEGORIA_PROVEEDOR; ID_CATEGORIA := CATEGORIA_PROVEEDOR;
REGIMEN_IVA := PROVEEDOR_REGIMEN_IVA; REGIMEN_IVA := PROVEEDOR_REGIMEN_IVA;
IGNORAR_CONTABILIDAD := 0;
{$IFDEF CONTABILIDAD}
IGNORAR_CONTABILIDAD := 0;
{$ELSE}
IGNORAR_CONTABILIDAD := 1;
{$ENDIF}
end; end;
constructor TBizProveedor.Create(aDataTable: TDADataTable); constructor TBizProveedor.Create(aDataTable: TDADataTable);

7
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorCliente: TfEditorCliente
ClientHeight = 645 ClientHeight = 645
ClientWidth = 896 ClientWidth = 896
ExplicitWidth = 904 ExplicitWidth = 904
ExplicitHeight = 679 ExplicitHeight = 672
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -65,6 +65,7 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 890 Width = 890
Height = 544 Height = 544
ActivePage = pagContabilidad
ExplicitWidth = 890 ExplicitWidth = 890
ExplicitHeight = 544 ExplicitHeight = 544
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -285,8 +286,8 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 270 ExplicitTop = 270
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
ExplicitWidth = 376 ExplicitWidth = 250
Width = 376 Width = 250
end end
end end
end end

12
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

@ -40,14 +40,13 @@ type
end; end;
implementation implementation
{$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
uses uses
uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem, uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem,
uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils; uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils;
{$R *.dfm}
procedure TfEditorCliente.actGruposClienteExecute(Sender: TObject); procedure TfEditorCliente.actGruposClienteExecute(Sender: TObject);
var var
AGruposController : IGruposClienteController; AGruposController : IGruposClienteController;
@ -67,6 +66,12 @@ constructor TfEditorCliente.Create(AOwner: TComponent);
begin begin
inherited; inherited;
ViewContacto := frViewCliente1; ViewContacto := frViewCliente1;
{$IFDEF CONTABILIDAD}
pagContabilidad.TabVisible := true;
{$ELSE}
pagContabilidad.TabVisible := false;
{$ENDIF}
end; end;
procedure TfEditorCliente.EliminarInterno; procedure TfEditorCliente.EliminarInterno;
@ -79,6 +84,7 @@ procedure TfEditorCliente.FormShow(Sender: TObject);
begin begin
inherited; inherited;
pgPaginas.ActivePageIndex := 0; pgPaginas.ActivePageIndex := 0;
end; end;
procedure TfEditorCliente.PonerTitulos(const ATitulo: string); procedure TfEditorCliente.PonerTitulos(const ATitulo: string);

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

@ -7,7 +7,7 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632 ClientWidth = 632
Scaled = False Scaled = False
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 240 ExplicitHeight = 488
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

6
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorProveedor: TfEditorProveedor
ClientHeight = 590 ClientHeight = 590
ClientWidth = 648 ClientWidth = 648
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 624 ExplicitHeight = 617
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -289,10 +289,6 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 634 Width = 634
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634 ExplicitWidth = 634
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 323 Left = 323
ExplicitLeft = 323 ExplicitLeft = 323

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

@ -36,8 +36,8 @@ type
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
{ TfEditorProveedor } { TfEditorProveedor }
@ -63,6 +63,12 @@ constructor TfEditorProveedor.Create(AOwner: TComponent);
begin begin
inherited; inherited;
ViewContacto := frViewProveedor1; ViewContacto := frViewProveedor1;
{$IFDEF CONTABILIDAD}
pagContabilidad.TabVisible := true;
{$ELSE}
pagContabilidad.TabVisible := false;
{$ENDIF}
end; end;
procedure TfEditorProveedor.EliminarInterno; procedure TfEditorProveedor.EliminarInterno;

51
Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dproj
View File

@ -39,57 +39,17 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <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><Source><Source Name="MainSource">RecibosCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<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>
<Source>
<Source Name="MainSource">RecibosCliente_controller.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="RecibosCliente_controller.dpk"> <DelphiCompile Include="RecibosCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="..\..\Contactos\Views\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" /> <DCCReference Include="..\..\Contactos\Views\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_data.dcp" /> <DCCReference Include="..\..\Contactos\Views\RecibosCliente_data.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_model.dcp" /> <DCCReference Include="..\..\Contactos\Views\RecibosCliente_model.dcp" />
<DCCReference Include="uPagosClienteController.pas" /> <DCCReference Include="uPagosClienteController.pas" />
<DCCReference Include="uRecibosClienteController.pas" /> <DCCReference Include="uRecibosClienteController.pas" />
<DCCReference Include="uRecibosClienteReportController.pas" /> <DCCReference Include="uRecibosClienteReportController.pas" />
@ -100,7 +60,6 @@
<DCCReference Include="View\uIEditorRecibosClientePreview.pas" /> <DCCReference Include="View\uIEditorRecibosClientePreview.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

22
Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.res
View File

Binary file not shown.

13
Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas
View File

@ -32,8 +32,8 @@ uses
type type
IPagosClienteController = interface(ISujeto) IPagosClienteController = interface(ISujeto)
['{1864471E-74FA-4E96-BA8D-21357DA38B0F}'] ['{1864471E-74FA-4E96-BA8D-21357DA38B0F}']
function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean; function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer): Boolean;
procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer); procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer);
function Eliminar(APagoCliente : IBizPagosCliente): Boolean; function Eliminar(APagoCliente : IBizPagosCliente): Boolean;
function EliminarTodo(APagossCliente : IBizPagosCliente): Boolean; function EliminarTodo(APagossCliente : IBizPagosCliente): Boolean;
end; end;
@ -47,8 +47,8 @@ type
public public
constructor Create; virtual; constructor Create; virtual;
destructor Destroy; override; destructor Destroy; override;
function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean; function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer): Boolean;
procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer); procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer);
function Eliminar(APagoCliente : IBizPagosCliente): Boolean; function Eliminar(APagoCliente : IBizPagosCliente): Boolean;
function EliminarTodo(APagosCliente : IBizPagosCliente): Boolean; function EliminarTodo(APagosCliente : IBizPagosCliente): Boolean;
end; end;
@ -63,7 +63,7 @@ uses
{ TPagosClienteController } { TPagosClienteController }
function TPagosClienteController.Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String = ''; Const IgnorarContabilidad: Integer = 0; Const IdSubCuenta: Integer = 0): Boolean; function TPagosClienteController.Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer): Boolean;
{ Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser { Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser
una devolución devolvemos false} una devolución devolvemos false}
begin begin
@ -139,11 +139,12 @@ begin
end; end;
end; end;
procedure TPagosClienteController.Modificar(APagosCliente: IBizPagosCliente; const Fecha: String; Const IgnorarContabilidad: Integer); procedure TPagosClienteController.Modificar(APagosCliente: IBizPagosCliente; const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer);
begin begin
APagosCliente.DataTable.Edit; APagosCliente.DataTable.Edit;
APagosCliente.FECHA_PAGO := StrToDate(Fecha); APagosCliente.FECHA_PAGO := StrToDate(Fecha);
APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad; APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
APagosCliente.CUENTA := IntToStr(IdSubCuenta);
APagosCliente.DataTable.Post; APagosCliente.DataTable.Post;
end; end;

90
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -44,8 +44,8 @@ type
procedure Anadir(ARecibosCliente : IBizRecibosCliente); procedure Anadir(ARecibosCliente : IBizRecibosCliente);
function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean; function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''): Boolean; function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
procedure ModificarPago(ARecibosCliente : IBizRecibosCliente); procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
@ -70,7 +70,7 @@ type
function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente; function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente; function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer); procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosCliente); procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False); procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
@ -115,8 +115,8 @@ type
procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente); procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente);
procedure Anadir(ARecibosCliente : IBizRecibosCliente); procedure Anadir(ARecibosCliente : IBizRecibosCliente);
function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''): Boolean; function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
procedure ModificarPago(ARecibosCliente : IBizRecibosCliente); procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean; function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
@ -140,7 +140,7 @@ type
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente; function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean; function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer); procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosCliente); procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente); procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
@ -169,51 +169,25 @@ begin
ARecibosCliente.Insert; ARecibosCliente.Insert;
end; end;
function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''): Boolean; function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean;
var var
AEditor : IEditorFechaPago; AEditor : IEditorFechaPago;
AIgnorarContabilidad : Integer;
ASubCuenta: Integer;
begin begin
Result := False; Result := False;
if (Length(ARecibosCliente.REFERENCIA_REMESA) = 0) or
(Application.MessageBox(PChar('Este recibo está remesado en la remesa de referencia ' + ARecibosCliente.REFERENCIA_REMESA + '.' + #10#13 + 'Si añade una devolución, el recibo quedará libre y podrá ser incluido en otra remesa diferente.' + #10#13 + '¿Desea continuar?'), 'Atención', MB_YESNO) = IDYES) then
begin
//Pedimos la fecha del pago
if (Length(FechaPago) = 0) then
begin
CreateEditor('EditorFechaPago', IEditorFechaPago, AEditor);
if Assigned(AEditor) then
try
if (AEditor.ShowModal = mrOk) then
begin
FechaPago := DateToStr(AEditor.FechaPago);
AIgnorarContabilidad := AEditor.IgnorarContabilidad;
ASubCuenta := AEditor.IdSubcuenta;
end;
AEditor.Release;
finally
AEditor := NIL;
end;
end;
// Se cancela la operación
if Length(FechaPago) = 0 then
Exit;
//Liberamos el recibo aunque ya este libre
if not ARecibosCliente.DataTable.Editing then
ARecibosCliente.DataTable.Edit;
ARecibosCliente.ID_REMESA := 0;
ARecibosCliente.REFERENCIA_REMESA := '';
ARecibosCliente.DataTable.Post;
end
// Se cancela la operación // Se cancela la operación
else if Length(FechaPago) = 0 then
Exit; raise Exception.Create('Debe indicar la fecha del pago.');
//Liberamos el recibo aunque ya este libre
if not ARecibosCliente.DataTable.Editing then
ARecibosCliente.DataTable.Edit;
ARecibosCliente.ID_REMESA := 0;
ARecibosCliente.REFERENCIA_REMESA := '';
ARecibosCliente.DataTable.Post;
//Finalmente añadimos el pago (cobro o devolucion) //Finalmente añadimos el pago (cobro o devolucion)
if PagosController.Anadir(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta) then if PagosController.Anadir(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta) then
begin begin
@ -235,7 +209,7 @@ begin
FDataModule := TDataModuleRecibosCliente.Create(Nil); FDataModule := TDataModuleRecibosCliente.Create(Nil);
end; end;
procedure TRecibosClienteController.AsignarRemesa(ARecibos: IBizRecibosCliente; ID_REMESA: Integer); procedure TRecibosClienteController.AsignarRemesa(ARecibos: IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
begin begin
if Assigned(ARecibos) then if Assigned(ARecibos) then
begin begin
@ -249,7 +223,7 @@ begin
ARecibos.Edit; ARecibos.Edit;
//Añadimos el cobro automatico por la remesa y volvemos a asignar ID //Añadimos el cobro automatico por la remesa y volvemos a asignar ID
//para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle //para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle
AnadirPago(ARecibos, DateToStr(Date)); //->Ojo el orden es importante AnadirPago(ARecibos, DateToStr(Date), AIgnorarContabilidad, ASubCuenta); //->Ojo el orden es importante
ARecibos.ID_REMESA := ID_REMESA; ARecibos.ID_REMESA := ID_REMESA;
end; end;
Next; Next;
@ -828,30 +802,10 @@ begin
end; end;
end; end;
procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente); procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0);
var
AEditor : IEditorFechaPago;
FechaPago: String;
IgnorarContabilidad: Integer;
begin begin
try
//Pedimos la fecha del pago
CreateEditor('EditorFechaPago', IEditorFechaPago, AEditor);
if Assigned(AEditor) then
AEditor.FechaPago := ARecibosCliente.Pagos.FECHA_PAGO;
AEditor.IgnorarContabilidad := ARecibosCliente.Pagos.IGNORAR_CONTABILIDAD;
if (AEditor.ShowModal = mrOk) then
begin
FechaPago := DateToStr(AEditor.FechaPago);
IgnorarContabilidad := AEditor.IgnorarContabilidad;
end;
AEditor.Release;
finally
AEditor := NIL;
end;
if Length(FechaPago) > 0 then if Length(FechaPago) > 0 then
PagosController.Modificar(ARecibosCliente.Pagos, FechaPago, IgnorarContabilidad); PagosController.Modificar(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta);
end; end;
function TRecibosClienteController.Nuevo: IBizRecibosCliente; function TRecibosClienteController.Nuevo: IBizRecibosCliente;

5
Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas
View File

@ -65,10 +65,7 @@ begin
with ACommand do with ACommand do
begin begin
ParamByName('IdPago').Value := aChange.OldValueByName[fld_PagosClienteID]; ParamByName('IdPago').Value := aChange.OldValueByName[fld_PagosClienteID];
if (aChange.OldValueByName[fld_PagosClienteTIPO] = CTE_PAGO) then ParamByName('Tipo').Value := 'c';
ParamByName('Tipo').Value := 'c'
else
ParamByName('Tipo').Value := 'p';
Execute; Execute;
end; end;
finally finally

6
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm
View File

@ -13,6 +13,7 @@ object fEditorFechaPago: TfEditorFechaPago
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
Position = poScreenCenter Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
@ -57,17 +58,16 @@ object fEditorFechaPago: TfEditorFechaPago
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
object bAceptar: TButton object bAceptar: TButton
Left = 119 Left = 41
Top = 8 Top = 8
Width = 75 Width = 75
Height = 25 Height = 25
Caption = 'Aceptar' Caption = 'Aceptar'
ModalResult = 1 ModalResult = 1
TabOrder = 0 TabOrder = 0
OnClick = bAceptarClick
end end
object bCancelar: TButton object bCancelar: TButton
Left = 200 Left = 122
Top = 8 Top = 8
Width = 75 Width = 75
Height = 25 Height = 25

53
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas
View File

@ -20,8 +20,8 @@ type
frViewCajasBancos1: TfrViewCajasBancos; frViewCajasBancos1: TfrViewCajasBancos;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure eFechaPagoPropertiesChange(Sender: TObject); procedure eFechaPagoPropertiesChange(Sender: TObject);
procedure BitBtn3Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure bAceptarClick(Sender: TObject);
private private
FFechaPago : TDateTime; FFechaPago : TDateTime;
function GetFechaPago: TDateTime; function GetFechaPago: TDateTime;
@ -41,38 +41,47 @@ var
fEditorFechaPago: TfEditorFechaPago; fEditorFechaPago: TfEditorFechaPago;
implementation implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
//uses uBizSubCuentas; uses uDialogUtils;
procedure TfEditorFechaPago.bAceptarClick(Sender: TObject);
begin
// if (not eContabilizar.Checked)
// and (eIdSubcuenta.Text = '') then
// raise Exception.Create ('Es necesario que elija la SubCuenta donde se realizará el pago');
end;
procedure TfEditorFechaPago.BitBtn3Click(Sender: TObject);
//var
// ASubCuenta: IBizSubcuenta;
begin
// ASubCuenta := FController.ElegirSubCuenta(FController.BuscarTodos,'sssss', False);
// eIDSubcuenta.Text := IntToStr(ASubcuenta.ID);
// eRefSubCuenta.Text := ASubcuenta.REF_SUBCUENTA;
// eSubCuenta.Text := ASubcuenta.DESCRIPCION;
// ASubCuenta := Nil;
end;
procedure TfEditorFechaPago.eFechaPagoPropertiesChange(Sender: TObject); procedure TfEditorFechaPago.eFechaPagoPropertiesChange(Sender: TObject);
begin begin
FechaPago := eFechaPago.Date; FechaPago := eFechaPago.Date;
end; end;
procedure TfEditorFechaPago.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose := True;
if Self.ModalResult = mrOk then
begin
if (length(eFechaPago.EditValue) = 0) then
begin
CanClose := False;
ShowWarningMessage('Debe establecer la fecha del pago');
end;
if ((IgnorarContabilidad = 0) and (IdSubCuenta < 1)) then
begin
CanClose := False;
ShowWarningMessage('Debe establecer la caja o banco donde se realiza el pago');
end
end;
end;
procedure TfEditorFechaPago.FormShow(Sender: TObject); procedure TfEditorFechaPago.FormShow(Sender: TObject);
begin begin
if (length(eFechaPago.Text) = 0) then if (length(eFechaPago.Text) = 0) then
eFechaPago.Date := Date; eFechaPago.Date := Date;
{$IFDEF CONTABILIDAD}
frViewCajasBancos1.Visible := true;
{$ELSE}
frViewCajasBancos1.Visible := false;
{$ENDIF}
end; end;
function TfEditorFechaPago.GetFechaPago: TDateTime; function TfEditorFechaPago.GetFechaPago: TDateTime;

76
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -1,18 +1,18 @@
inherited fEditorReciboCliente: TfEditorReciboCliente inherited fEditorReciboCliente: TfEditorReciboCliente
Caption = 'Recibo de cliente' Caption = 'Recibo de cliente'
ClientHeight = 530 ClientHeight = 528
ClientWidth = 691 ClientWidth = 689
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 699 ExplicitWidth = 697
ExplicitHeight = 557 ExplicitHeight = 562
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 691 Width = 689
Caption = 'Recibo de cliente' Caption = 'Recibo de cliente'
ExplicitWidth = 691 ExplicitWidth = 691
inherited Image1: TImage inherited Image1: TImage
Left = 664 Left = 662
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -39,18 +39,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 691 Width = 689
ExplicitWidth = 691 ExplicitWidth = 691
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 425 ExplicitWidth = 425
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 691 ExplicitWidth = 689
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 685 Width = 683
Height = 329 Height = 327
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
@ -64,7 +64,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewReciboCliente1: TfrViewReciboCliente inline frViewReciboCliente1: TfrViewReciboCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 677 Width = 675
Height = 335 Height = 335
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -78,12 +78,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 335 ExplicitHeight = 335
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 677 Width = 675
Height = 335 Height = 335
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 335 ExplicitHeight = 335
DesignSize = ( DesignSize = (
677 675
335) 335)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 217 ExplicitWidth = 217
@ -153,10 +153,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited rRefReciboCompensado: TcxDBTextEdit
ExplicitWidth = 191
Width = 191
end
inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
Top = 272 Top = 272
Width = 350 Width = 350
@ -200,11 +196,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
object pagPagos: TTabSheet object pagPagos: TTabSheet
Caption = 'Pagos' Caption = 'Pagos'
ImageIndex = 2 ImageIndex = 2
ExplicitWidth = 677
ExplicitHeight = 301
inline frViewPagosCliente1: TfrViewPagosCliente inline frViewPagosCliente1: TfrViewPagosCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 677 Width = 675
Height = 301 Height = 299
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -217,25 +215,17 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 301 ExplicitHeight = 301
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 677 Width = 675
Height = 301 Height = 299
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 301 ExplicitHeight = 301
end end
inherited dxLayoutControl2: TdxLayoutControl inherited dxLayoutControl2: TdxLayoutControl
Width = 677 Width = 675
Height = 301 Height = 299
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 301 ExplicitHeight = 301
inherited ToolBar1: TToolBar
Width = 666
ExplicitWidth = 666
end
inherited ListaPagosCliente: TcxGrid inherited ListaPagosCliente: TcxGrid
Width = 605
Height = 262
ExplicitWidth = 605
ExplicitHeight = 262
inherited ListaPagosClienteDBTableView1: TcxGridDBTableView inherited ListaPagosClienteDBTableView1: TcxGridDBTableView
inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
@ -262,11 +252,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
object pagCompensados: TTabSheet object pagCompensados: TTabSheet
Caption = 'Recibos compensados' Caption = 'Recibos compensados'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 677
ExplicitHeight = 301
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
Left = 0 Left = 0
Top = 0 Top = 0
Width = 677 Width = 675
Height = 301 Height = 299
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -279,8 +271,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 301 ExplicitHeight = 301
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 677 Width = 675
Height = 276 Height = 274
ExplicitWidth = 677 ExplicitWidth = 677
ExplicitHeight = 276 ExplicitHeight = 276
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -294,7 +286,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 677 Width = 675
ExplicitWidth = 677 ExplicitWidth = 677
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 113 ExplicitWidth = 113
@ -319,8 +311,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 511 Top = 509
Width = 691 Width = 689
Panels = < Panels = <
item item
Width = 200 Width = 200
@ -330,8 +322,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4] inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
Left = 0 Left = 0
Top = 411 Top = 409
Width = 691 Width = 689
Height = 100 Height = 100
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -345,13 +337,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitTop = 411 ExplicitTop = 411
ExplicitWidth = 691 ExplicitWidth = 691
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 691 Width = 689
ExplicitWidth = 691 ExplicitWidth = 691
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
ExplicitWidth = 150
Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable

56
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

@ -140,10 +140,36 @@ begin
end; end;
procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirExecute(Sender: TObject); procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirExecute(Sender: TObject);
var
AFechaPago: String;
AIgnorarContabilidad: Integer;
ASubCuenta: Integer;
begin begin
inherited; inherited;
FController.AnadirPago(Recibo); if (Length(Recibo.REFERENCIA_REMESA) = 0) or
(Application.MessageBox(PChar('Este recibo está remesado en la remesa de referencia ' + Recibo.REFERENCIA_REMESA + '.' + #10#13 + 'Si añade una devolución, el recibo quedará libre y podrá ser incluido en otra remesa diferente.' + #10#13 + '¿Desea continuar?'), 'Atención', MB_YESNO) = IDYES) then
begin
with TfEditorFechaPago.Create(Nil) do
begin
if (ShowModal = mrOk) then
begin
AFechaPago := DateToStr(FechaPago);
AIgnorarContabilidad := IgnorarContabilidad;
ASubCuenta := IdSubcuenta;
Release;
end
else
begin
//Operación cancelada
Release;
exit;
end;
end;
end;
FController.AnadirPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
//Solo podremos modificar el recibo si esta pendiente o devuelto //Solo podremos modificar el recibo si esta pendiente o devuelto
if (Recibo.SITUACION = CTE_COBRADO) then if (Recibo.SITUACION = CTE_COBRADO) then
@ -195,9 +221,35 @@ begin
end; end;
procedure TfEditorReciboCliente.frViewPagosCliente1actModificarExecute(Sender: TObject); procedure TfEditorReciboCliente.frViewPagosCliente1actModificarExecute(Sender: TObject);
var
AFechaPago: String;
AIgnorarContabilidad: Integer;
ASubCuenta: Integer;
begin begin
inherited; inherited;
FController.ModificarPago(Recibo);
with TfEditorFechaPago.Create(Nil) do
begin
FechaPago := Recibo.Pagos.FECHA_PAGO;
IgnorarContabilidad := Recibo.Pagos.IGNORAR_CONTABILIDAD;
if (ShowModal = mrOk) then
begin
AFechaPago := DateToStr(FechaPago);
AIgnorarContabilidad := IgnorarContabilidad;
ASubCuenta := IdSubcuenta;
Release;
end
else
begin
//Operación cancelada
Release;
exit;
end;
end;
FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta);
end; end;
procedure TfEditorReciboCliente.frViewPagosCliente1actModificarUpdate(Sender: TObject); procedure TfEditorReciboCliente.frViewPagosCliente1actModificarUpdate(Sender: TObject);

1
Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm
View File

@ -83,6 +83,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente
Width = 605 Width = 605
Height = 262 Height = 262
Align = alClient Align = alClient
Enabled = False
TabOrder = 1 TabOrder = 1
LookAndFeel.Kind = lfStandard LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True

16
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
View File

@ -19,7 +19,7 @@ type
procedure Anadir(ARemesaCliente : IBizRemesaCliente); procedure Anadir(ARemesaCliente : IBizRemesaCliente);
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; overload; function Eliminar(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; overload;
function Guardar(ARemesaCliente : IBizRemesaCliente): Boolean; function Guardar(ARemesaCliente : IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
procedure DescartarCambios(ARemesaCliente : IBizRemesaCliente); procedure DescartarCambios(ARemesaCliente : IBizRemesaCliente);
function Existe(const ID: Integer) : Boolean; function Existe(const ID: Integer) : Boolean;
@ -63,7 +63,7 @@ type
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; overload; function Eliminar(ARemesaCliente : IBizRemesaCliente; AllItems: Boolean = false): Boolean; overload;
function Guardar(ARemesaCliente : IBizRemesaCliente): Boolean; function Guardar(ARemesaCliente : IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
procedure DescartarCambios(ARemesaCliente : IBizRemesaCliente); virtual; procedure DescartarCambios(ARemesaCliente : IBizRemesaCliente); virtual;
function Existe(const ID: Integer) : Boolean; virtual; function Existe(const ID: Integer) : Boolean; virtual;
procedure Anadir(ARemesaCliente : IBizRemesaCliente); virtual; procedure Anadir(ARemesaCliente : IBizRemesaCliente); virtual;
@ -84,6 +84,7 @@ type
end; end;
implementation implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses uses
cxControls, DB, uEditorRegistryUtils, schRemesasClienteClient_Intf, uFactuGES_App, cxControls, DB, uEditorRegistryUtils, schRemesasClienteClient_Intf, uFactuGES_App,
@ -199,8 +200,11 @@ begin
if ARemesaCliente.DataTable.FieldByName(fld_RemesasClienteFECHA_REMESA).IsNull then if ARemesaCliente.DataTable.FieldByName(fld_RemesasClienteFECHA_REMESA).IsNull then
raise Exception.Create('Debe indicar la fecha de esta remesa.'); raise Exception.Create('Debe indicar la fecha de esta remesa.');
if ARemesaCliente.ID_DATOS_BANCO < 1 then {$IFDEF CONTABILIDAD}
raise Exception.Create('Debe la cuenta bancaria sobre la que realizará la remesa.'); {$ELSE}
if ARemesaCliente.ID_DATOS_BANCO < 1 then
raise Exception.Create('Debe la cuenta bancaria sobre la que realizará la remesa.');
{$ENDIF}
// Asegurarse de valores en campos "automáticos" // Asegurarse de valores en campos "automáticos"
ARemesaCliente.Edit; ARemesaCliente.Edit;
@ -480,7 +484,7 @@ begin
Result := FRecibosClienteController; Result := FRecibosClienteController;
end; end;
function TRemesasClienteController.Guardar(ARemesaCliente: IBizRemesaCliente): Boolean; function TRemesasClienteController.Guardar(ARemesaCliente: IBizRemesaCliente; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean;
var var
bEsNuevo: Boolean; bEsNuevo: Boolean;
begin begin
@ -498,7 +502,7 @@ begin
//Si todo ha ido bien, asignamos la remesa a los recibos asociados //Si todo ha ido bien, asignamos la remesa a los recibos asociados
//Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, ARemesaCliente.ID); RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, ARemesaCliente.ID, AIgnorarContabilidad, ASubCuenta);
ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente) ARemesaCliente.Recibos.DataTable.ApplyUpdates; //En este applyupdates tambien se realizarán todos los cambios acumulados sobre los recibos asociados (EliminarReciboCliente/ ElegirRecibosCliente)
//Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen //Es necesario ya que no se refrescan bien los deltas y despues del applyupdates siguen

36
Source/Modulos/Remesas de cliente/RemesasCliente_Group.groupproj
View File

@ -9,7 +9,10 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" /> <Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
<Projects Include="Controller\RemesasCliente_controller.dproj" /> <Projects Include="Controller\RemesasCliente_controller.dproj" />
<Projects Include="Data\RemesasCliente_data.dproj" /> <Projects Include="Data\RemesasCliente_data.dproj" />
<Projects Include="Model\RemesasCliente_model.dproj" /> <Projects Include="Model\RemesasCliente_model.dproj" />
@ -121,14 +124,41 @@
<Target Name="RecibosCliente_controller:Make"> <Target Name="RecibosCliente_controller:Make">
<MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="RecibosCliente_view">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="" />
</Target>
<Target Name="RecibosCliente_view:Clean">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosCliente_view:Make">
<MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_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="Contactos_view">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller;RecibosCliente_view;Contabilidad_view;Contactos_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;Contabilidad_view:Clean;Contactos_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;Contabilidad_view:Make;Contactos_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

3
Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dpk
View File

@ -34,7 +34,8 @@ requires
teeUI, teeUI,
tee, tee,
fsTee11, fsTee11,
frxTee11; frxTee11,
Contabilidad_view;
contains contains
uViewRemesasCliente in 'uViewRemesasCliente.pas' {frViewRemesasCliente: TFrame}, uViewRemesasCliente in 'uViewRemesasCliente.pas' {frViewRemesasCliente: TFrame},

64
Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj
View File

@ -47,63 +47,24 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <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><Source><Source Name="MainSource">RemesasCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<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>
<Source>
<Source Name="MainSource">RemesasCliente_view.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="RemesasCliente_view.dpk"> <DelphiCompile Include="RemesasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="Familias_controller.dcp" /> <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
<DCCReference Include="Familias_model.dcp" /> <DCCReference Include="..\..\Lib\Familias_controller.dcp" />
<DCCReference Include="frxTee11.dcp" /> <DCCReference Include="..\..\Lib\Familias_model.dcp" />
<DCCReference Include="fsTee11.dcp" /> <DCCReference Include="..\..\Lib\frxTee11.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\Lib\fsTee11.dcp" />
<DCCReference Include="RemesasCliente_controller.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="RemesasCliente_model.dcp" /> <DCCReference Include="..\..\Lib\RemesasCliente_controller.dcp" />
<DCCReference Include="tee.dcp" /> <DCCReference Include="..\..\Lib\RemesasCliente_model.dcp" />
<DCCReference Include="teeUI.dcp" /> <DCCReference Include="..\..\Lib\tee.dcp" />
<DCCReference Include="..\..\Lib\teeUI.dcp" />
<DCCReference Include="uEditorRemesaCliente.pas"> <DCCReference Include="uEditorRemesaCliente.pas">
<Form>fEditorRemesaCliente</Form> <Form>fEditorRemesaCliente</Form>
<DesignClass>TfEditorRemesaCliente</DesignClass> <DesignClass>TfEditorRemesaCliente</DesignClass>
@ -131,7 +92,6 @@
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

22
Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res
View File

Binary file not shown.

157
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm
View File

@ -4,21 +4,20 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
HorzScrollBar.Visible = False HorzScrollBar.Visible = False
VertScrollBar.Visible = False VertScrollBar.Visible = False
Caption = 'Ficha de remesa de cobro' Caption = 'Ficha de remesa de cobro'
ClientHeight = 583 ClientHeight = 727
ClientWidth = 676 ClientWidth = 724
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitLeft = -49 ExplicitWidth = 732
ExplicitWidth = 684 ExplicitHeight = 754
ExplicitHeight = 617
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 676 Width = 724
Caption = 'Remesa de cobro' Caption = 'Remesa de cobro'
ExplicitWidth = 676 ExplicitWidth = 724
inherited Image1: TImage inherited Image1: TImage
Left = 649 Left = 697
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -47,8 +46,8 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 676 Width = 724
ExplicitWidth = 676 ExplicitWidth = 724
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 598 ExplicitWidth = 598
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -66,7 +65,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
DockPos = 0 DockPos = 0
ExplicitWidth = 676 ExplicitWidth = 724
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -107,21 +106,23 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 676 Width = 718
Height = 442 Height = 580
MultiLine = True MultiLine = True
ExplicitWidth = 676 ExplicitLeft = 3
ExplicitHeight = 442 ExplicitTop = 79
ExplicitWidth = 718
ExplicitHeight = 580
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 668 ExplicitWidth = 710
ExplicitHeight = 414 ExplicitHeight = 552
inline frViewRemesaCliente1: TfrViewRemesaCliente inline frViewRemesaCliente1: TfrViewRemesaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 668 Width = 710
Height = 145 Height = 185
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -131,17 +132,17 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 668 ExplicitWidth = 710
ExplicitHeight = 145 ExplicitHeight = 185
inherited dxLayoutControlRemesaCliente: TdxLayoutControl inherited dxLayoutControlRemesaCliente: TdxLayoutControl
Width = 668 Width = 710
Height = 160 Height = 200
Align = alTop Align = alTop
ExplicitWidth = 668 ExplicitWidth = 710
ExplicitHeight = 160 ExplicitHeight = 200
DesignSize = ( DesignSize = (
668 710
160) 200)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 326 ExplicitWidth = 326
Width = 326 Width = 326
@ -151,8 +152,8 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 540 Width = 540
end end
inherited edtFechaRemesa: TcxDBDateEdit inherited edtFechaRemesa: TcxDBDateEdit
Left = 495 Left = 521
ExplicitLeft = 495 ExplicitLeft = 521
ExplicitWidth = 170 ExplicitWidth = 170
Width = 170 Width = 170
end end
@ -164,6 +165,24 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited frViewCajasBancos1: TfrViewCajasBancos
Width = 453
ExplicitWidth = 453
inherited dxLayoutControl1: TdxLayoutControl
Width = 453
ExplicitWidth = 453
inherited cbCajasBancos: TcxComboBox
ExplicitWidth = 376
Width = 376
end
inherited eContabilizar: TcxCheckBox
Left = 458
ExplicitLeft = 458
ExplicitWidth = 203
Width = 203
end
end
end
end end
inherited dsDataTable: TDADataSource inherited dsDataTable: TDADataSource
Left = 104 Left = 104
@ -175,9 +194,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inline frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente inline frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente
Left = 0 Left = 0
Top = 145 Top = 185
Width = 668 Width = 710
Height = 269 Height = 367
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -190,16 +209,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 145 ExplicitTop = 185
ExplicitWidth = 668 ExplicitWidth = 710
ExplicitHeight = 269 ExplicitHeight = 367
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 15 Left = 15
Width = 638 Width = 680
Height = 229 Height = 327
ExplicitLeft = 15 ExplicitLeft = 15
ExplicitWidth = 638 ExplicitWidth = 680
ExplicitHeight = 208 ExplicitHeight = 327
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -215,27 +234,27 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Left = 15 Left = 15
Width = 638 Width = 680
ExplicitLeft = 15 ExplicitLeft = 15
ExplicitWidth = 638 ExplicitWidth = 680
end end
end end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 564 Top = 708
Width = 676 Width = 724
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 519 ExplicitTop = 708
ExplicitWidth = 676 ExplicitWidth = 724
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 518 Top = 662
Width = 676 Width = 724
Height = 46 Height = 46
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -246,12 +265,12 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 473 ExplicitTop = 662
ExplicitWidth = 676 ExplicitWidth = 724
ExplicitHeight = 46 ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 676 Width = 724
ExplicitWidth = 676 ExplicitWidth = 724
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 92 Left = 92
Top = 91 Top = 91
@ -261,18 +280,18 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 336 Left = 359
Top = 10 Top = 10
Height = 30 Height = 30
ExplicitLeft = 336 ExplicitLeft = 359
ExplicitTop = 10 ExplicitTop = 10
ExplicitHeight = 30 ExplicitHeight = 30
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 448 Left = 471
Top = 91 Top = 91
Width = 192 Width = 192
ExplicitLeft = 448 ExplicitLeft = 471
ExplicitTop = 91 ExplicitTop = 91
ExplicitWidth = 192 ExplicitWidth = 192
end end
@ -287,20 +306,20 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 519 Left = 542
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 519 ExplicitLeft = 542
ExplicitTop = 37 ExplicitTop = 37
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 449 Left = 472
Top = 111 Top = 111
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 449 ExplicitLeft = 472
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -314,37 +333,37 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ExplicitTop = 111 ExplicitTop = 111
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 448 Left = 471
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 448 ExplicitLeft = 471
ExplicitTop = 37 ExplicitTop = 37
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 448 Left = 471
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 448 ExplicitLeft = 471
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 448 Left = 471
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 448 ExplicitLeft = 471
ExplicitTop = 64 ExplicitTop = 64
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 519 Left = 542
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 519 ExplicitLeft = 542
ExplicitTop = 64 ExplicitTop = 64
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -379,9 +398,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 188 Left = 211
Top = 37 Top = 37
ExplicitLeft = 188 ExplicitLeft = 211
ExplicitTop = 37 ExplicitTop = 37
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox

12
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas
View File

@ -70,8 +70,8 @@ type
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
uses uses
uDataTableUtils, cxControls, uDataModuleUsuarios, uDialogUtils, uCustomEditor, uDataTableUtils, cxControls, uDataModuleUsuarios, uDialogUtils, uCustomEditor,
@ -111,6 +111,9 @@ end;
procedure TfEditorRemesaCliente.GuardarInterno; procedure TfEditorRemesaCliente.GuardarInterno;
var var
bEsNuevo : Boolean; bEsNuevo : Boolean;
AIgnorarContabilidad: Integer;
ASubCuenta: Integer;
begin begin
inherited; inherited;
bEsNuevo := False; bEsNuevo := False;
@ -121,7 +124,14 @@ begin
// frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco // frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco
try try
bEsNuevo := FRemesaCliente.EsNuevo; bEsNuevo := FRemesaCliente.EsNuevo;
{$IFDEF CONTABILIDAD}
AIgnorarContabilidad := frViewRemesaCliente1.frViewCajasBancos1.eContabilizar.EditValue;
ASubCuenta := frViewRemesaCliente1.frViewCajasBancos1.IdSubCuenta;
FController.Guardar(FRemesaCliente, AIgnorarContabilidad, ASubCuenta);
{$ELSE}
FController.Guardar(FRemesaCliente); FController.Guardar(FRemesaCliente);
{$ENDIF}
finally finally
// frViewDetallesFacturaCliente1.EndUpdate; // frViewDetallesFacturaCliente1.EndUpdate;

55
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm
View File

@ -1,5 +1,5 @@
inherited frViewRemesaCliente: TfrViewRemesaCliente inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 451 Width = 513
Height = 304 Height = 304
Align = alClient Align = alClient
ExplicitWidth = 451 ExplicitWidth = 451
@ -7,16 +7,16 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
object dxLayoutControlRemesaCliente: TdxLayoutControl object dxLayoutControlRemesaCliente: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 513
Height = 304 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitHeight = 157 ExplicitWidth = 451
DesignSize = ( DesignSize = (
451 513
304) 304)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 110 Left = 110
@ -62,7 +62,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 108 Width = 108
end end
object edtFechaRemesa: TcxDBDateEdit object edtFechaRemesa: TcxDBDateEdit
Left = 311 Left = 342
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_REMESA' DataBinding.DataField = 'FECHA_REMESA'
@ -137,6 +137,44 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
TabOrder = 3 TabOrder = 3
Width = 121 Width = 121
end end
inline frViewCajasBancos1: TfrViewCajasBancos
Left = 22
Top = 138
Width = 469
Height = 35
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 5
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 138
ExplicitWidth = 469
ExplicitHeight = 35
inherited dxLayoutControl1: TdxLayoutControl
Width = 469
inherited cbCajasBancos: TcxComboBox
Left = 86
ExplicitLeft = 86
ExplicitWidth = 376
Width = 376
end
inherited eContabilizar: TcxCheckBox
Left = 322
ExplicitLeft = 322
ExplicitWidth = 203
Width = 203
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Caja / Banco: '
end
end
end
end
object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -169,7 +207,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlRemesaClienteItem9: TdxLayoutItem object dxlcCuentaBancaria: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Cuenta bancaria:' Caption = 'Cuenta bancaria:'
@ -188,6 +226,11 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Control = eDescripcion Control = eDescripcion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxlcCuentaContable: TdxLayoutItem
Control = frViewCajasBancos1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end end
end end
object dxLayoutControlRemesaClienteGroup3: TdxLayoutGroup object dxLayoutControlRemesaClienteGroup3: TdxLayoutGroup

19
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas
View File

@ -12,7 +12,7 @@ uses
uFamiliasController, cxSpinEdit, cxCurrencyEdit, uFamiliasController, cxSpinEdit, cxCurrencyEdit,
uBizRemesasCliente, uRemesasClienteController, cxCalendar, uBizRemesasCliente, uRemesasClienteController, cxCalendar,
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
cxImageComboBox, uDAInterfaces; cxImageComboBox, uDAInterfaces, uViewCajasBancos;
type type
IViewRemesaCliente = interface(IViewBase) IViewRemesaCliente = interface(IViewBase)
@ -41,12 +41,14 @@ type
dxLayoutControlRemesaClienteGroup5: TdxLayoutGroup; dxLayoutControlRemesaClienteGroup5: TdxLayoutGroup;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
dxLayoutControlRemesaClienteItem9: TdxLayoutItem; dxlcCuentaBancaria: TdxLayoutItem;
cbCuentaBancaria: TcxDBLookupComboBox; cbCuentaBancaria: TcxDBLookupComboBox;
dsDatosBanco: TDADataSource; dsDatosBanco: TDADataSource;
dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup; dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup;
cbTipo: TcxDBImageComboBox; cbTipo: TcxDBImageComboBox;
dxLayoutControlRemesaClienteItem1: TdxLayoutItem; dxLayoutControlRemesaClienteItem1: TdxLayoutItem;
dxlcCuentaContable: TdxLayoutItem;
frViewCajasBancos1: TfrViewCajasBancos;
protected protected
FController: IRemesasClienteController; FController: IRemesasClienteController;
@ -62,8 +64,8 @@ type
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
uses uses
uDataModuleUsuarios, uFactuGES_App; uDataModuleUsuarios, uFactuGES_App;
@ -107,7 +109,16 @@ begin
AItem.Description := CTE_TIPO_TRANSFERENCIA; AItem.Description := CTE_TIPO_TRANSFERENCIA;
AItem.Value := CTE_TIPO_TRANSFERENCIA; AItem.Value := CTE_TIPO_TRANSFERENCIA;
cbTipo.Properties.Items.EndUpdate; cbTipo.Properties.Items.EndUpdate;
{$IFDEF CONTABILIDAD}
dxlcCuentaBancaria.visible := false;
dxlcCuentaContable.Visible := true;
{$ELSE}
dxlcCuentaBancaria.visible := true;
dxlcCuentaContable.Visible := false;
{$ENDIF}
end; end;
function TfrViewRemesaCliente.GetController: IRemesasClienteController; function TfrViewRemesaCliente.GetController: IRemesasClienteController;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

501
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,255 +1,254 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</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 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">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </ProjectExtensions>
</ProjectExtensions> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <ItemGroup>
<ItemGroup> <DelphiCompile Include="FactuGES_Server.dpr">
<DelphiCompile Include="FactuGES_Server.dpr"> <MainSource>MainSource</MainSource>
<MainSource>MainSource</MainSource> </DelphiCompile>
</DelphiCompile> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <Form>srvEjercicios</Form>
<Form>srvEjercicios</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <Form>srvEmpresas</Form>
<Form>srvEmpresas</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <Form>srvAlbaranesCliente</Form>
<Form>srvAlbaranesCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <Form>srvAlbaranesProveedor</Form>
<Form>srvAlbaranesProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <Form>srvAlmacenes</Form>
<Form>srvAlmacenes</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <Form>srvContabilidad</Form>
<Form>srvContabilidad</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <Form>RptEtiquetasContacto</Form>
<Form>RptEtiquetasContacto</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <Form>RptFichasEmpleado</Form>
<Form>RptFichasEmpleado</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <Form>srvContactos</Form>
<Form>srvContactos</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <Form>RptFacturasCliente</Form>
<Form>RptFacturasCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <Form>srvFacturasCliente</Form>
<Form>srvFacturasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <Form>srvFacturasProveedor</Form>
<Form>srvFacturasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <Form>srvHistoricoMovimientos</Form>
<Form>srvHistoricoMovimientos</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <Form>srvInventario</Form>
<Form>srvInventario</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <Form>srvPedidosProveedor</Form>
<Form>srvPedidosProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <Form>RptPresupuestosCliente</Form>
<Form>RptPresupuestosCliente</Form> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <Form>srvPresupuestosCliente</Form>
<Form>srvPresupuestosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <Form>RptRecibosCliente</Form>
<Form>RptRecibosCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <Form>srvRecibosCliente</Form>
<Form>srvRecibosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <Form>srvRecibosProveedor</Form>
<Form>srvRecibosProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <Form>srvReferencias</Form>
<Form>srvReferencias</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <Form>srvRemesasCliente</Form>
<Form>srvRemesasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <Form>srvRemesasProveedor</Form>
<Form>srvRemesasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" /> <DCCReference Include="..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas">
<DCCReference Include="..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas"> <Form>srvTiposVenta</Form>
<Form>srvTiposVenta</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <Form>srvUnidadesMedida</Form>
<Form>srvUnidadesMedida</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <Form>srvConfiguracion</Form>
<Form>srvConfiguracion</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConexionBD.pas">
<DCCReference Include="Configuracion\uConexionBD.pas"> <Form>frConexionBD</Form>
<Form>frConexionBD</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DCCReference Include="Configuracion\uConfGeneral.pas"> <Form>frConfGeneral</Form>
<Form>frConfGeneral</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DCCReference Include="Configuracion\uConfiguracion.pas"> <Form>fConfiguracion</Form>
<Form>fConfiguracion</Form> <DesignClass>TForm</DesignClass>
<DesignClass>TForm</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <Form>FrameConfiguracion</Form>
<Form>FrameConfiguracion</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="srvLogin_Impl.pas">
<DCCReference Include="srvLogin_Impl.pas"> <Form>srvLogin</Form>
<Form>srvLogin</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uAcercaDe.pas">
<DCCReference Include="uAcercaDe.pas"> <Form>fAcercaDe</Form>
<Form>fAcercaDe</Form> </DCCReference>
</DCCReference> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="uDataModuleServer.pas"> <Form>dmServer</Form>
<Form>dmServer</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uServerMainForm.pas">
<DCCReference Include="uServerMainForm.pas"> <Form>fServerForm</Form>
<Form>fServerForm</Form> </DCCReference>
</DCCReference> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas" /> </ItemGroup>
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "jueves, 28 de febrero de 2008 17:38\0" VALUE "CompileDate", "viernes, 29 de febrero de 2008 18:25\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"