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

Se adaptan los presupuestos de cliente para que cuando se añadan se elija el tipo de presupuesto, rellenando la forma de pago, plazos y observaciones de ese tipo de presupuesto. Pantalla de configuración en la que se puede cambiar

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@535 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2010-09-15 16:04:17 +00:00
parent 9e3300451f
commit 82e2edc744
62 changed files with 1898 additions and 652 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Database/scripts/factuges.sql
View File

@ -638,7 +638,8 @@ CREATE TABLE CONFIGURACION (
ID TIPO_ID NOT NULL,
CODIGO VARCHAR(50) NOT NULL,
VALOR TIPO_CONCEPTO NOT NULL,
ID_EMPRESA TIPO_ID
ID_EMPRESA TIPO_ID,
VALOR_BLOB TIPO_NOTAS
);
CREATE TABLE CONT_APUNTES (

4
Installer/librerias.txt
View File

@ -12,6 +12,7 @@ cxPageControlD11.bpl
cxTreeListD11.bpl
DataAbstract_Core_D11.bpl
dclcxLibraryD11.bpl
dxNavBarD11.bpl
dxBarD11.bpl
dxBarExtItemsD11.bpl
dxComnD11.bpl
@ -74,4 +75,5 @@ vcljpg100.bpl
vclshlctrls100.bpl
vclsmp100.bpl
vclx100.bpl
xmlrtl100.bpl
xmlrtl100.bpl
dcldxCoreD11.bpl

17
Source/ApplicationBase/ApplicationBase.dpk
View File

@ -48,7 +48,18 @@ requires
vclactnband,
designide,
ccpackD11,
dxNavBarD11;
dxNavBarD11,
JvCoreD11R,
Jcl,
JclVcl,
JvMMD11R,
JvStdCtrlsD11R,
JvSystemD11R,
JvCtrlsD11R,
dxCoreD11,
cxEditorsD11,
cxDataD11,
cxExtEditorsD11;
contains
uFactuGES_App in 'uFactuGES_App.pas',
@ -111,13 +122,13 @@ contains
uDataModuleProvinciasPoblaciones in 'ProvinciasPoblaciones\Data\uDataModuleProvinciasPoblaciones.pas',
uProvinciasPoblacionesController in 'ProvinciasPoblaciones\Controller\uProvinciasPoblacionesController.pas',
uConfiguracionController in 'Configuracion\Controller\uConfiguracionController.pas',
uViewConfiguracionBase in 'Configuracion\Views\uViewConfiguracionBase.pas' {frViewConfiguracionBase: TCustomView},
uEditorConfiguracion in 'Configuracion\Views\uEditorConfiguracion.pas' {fConfiguracionEditor},
uViewConfiguracionGeneral in 'Configuracion\Views\uViewConfiguracionGeneral.pas' {frViewConfiguracionGeneral: TFrame},
uIViewConfiguracionBase in 'Configuracion\Controller\Views\uIViewConfiguracionBase.pas',
schUsuariosClient_Intf in 'Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in 'Usuarios\Model\schUsuariosServer_Intf.pas',
uEditorElegirEjercicios in 'Ejercicios\Views\uEditorElegirEjercicios.pas' {fEditorElegirEjercicios: TCustomEditor},
uIEditorElegirEjercicios in 'Ejercicios\Controller\View\uIEditorElegirEjercicios.pas';
uIEditorElegirEjercicios in 'Ejercicios\Controller\View\uIEditorElegirEjercicios.pas',
uViewConfiguracionBase in 'Configuracion\Views\uViewConfiguracionBase.pas' {frViewConfiguracionBase: TFrame};
end.

62
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -56,42 +56,50 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cfpack_d11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxNavBarD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
<DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
<DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
<DCCReference Include="Configuracion\Views\adortl.dcp" />
<DCCReference Include="Configuracion\Views\Base.dcp" />
<DCCReference Include="Configuracion\Views\ccpackD11.dcp" />
<DCCReference Include="Configuracion\Views\cfpack_d11.dcp" />
<DCCReference Include="Configuracion\Views\cxDataD11.dcp" />
<DCCReference Include="Configuracion\Views\cxEditorsD11.dcp" />
<DCCReference Include="Configuracion\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="Configuracion\Views\cxLibraryD11.dcp" />
<DCCReference Include="Configuracion\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="Configuracion\Views\dbrtl.dcp" />
<DCCReference Include="Configuracion\Views\designide.dcp" />
<DCCReference Include="Configuracion\Views\dsnap.dcp" />
<DCCReference Include="Configuracion\Views\dxCoreD11.dcp" />
<DCCReference Include="Configuracion\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="Configuracion\Views\dxNavBarD11.dcp" />
<DCCReference Include="Configuracion\Views\dxThemeD11.dcp" />
<DCCReference Include="Configuracion\Views\GUIBase.dcp" />
<DCCReference Include="Configuracion\Views\GUISDK_D11R.dcp" />
<DCCReference Include="Configuracion\Views\Jcl.dcp" />
<DCCReference Include="Configuracion\Views\JclVcl.dcp" />
<DCCReference Include="Configuracion\Views\JvCoreD11R.dcp" />
<DCCReference Include="Configuracion\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="Configuracion\Views\JvJansD11R.dcp" />
<DCCReference Include="Configuracion\Views\JvMMD11R.dcp" />
<DCCReference Include="Configuracion\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="Configuracion\Views\JvSystemD11R.dcp" />
<DCCReference Include="Configuracion\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="Configuracion\Views\rtl.dcp" />
<DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">
<Form>fConfiguracionEditor</Form>
</DCCReference>
<DCCReference Include="Configuracion\Views\uViewConfiguracionBase.pas">
<Form>frViewConfiguracionBase</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\Views\uViewConfiguracionBase.pas" />
<DCCReference Include="Configuracion\Views\uViewConfiguracionGeneral.pas">
<Form>frViewConfiguracionGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\Views\vcl.dcp" />
<DCCReference Include="Configuracion\Views\vclactnband.dcp" />
<DCCReference Include="Configuracion\Views\vcldb.dcp" />
<DCCReference Include="Configuracion\Views\vcljpg.dcp" />
<DCCReference Include="Configuracion\Views\vclx.dcp" />
<DCCReference Include="Configuracion\Views\xmlrtl.dcp" />
<DCCReference Include="Ejercicios\Controller\uEjerciciosController.pas" />
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicio.pas" />
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" />

103
Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas
View File

@ -4,9 +4,12 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uIViewConfiguracionBase,
uViewConfiguracionBase, uClassRegistryUtils, JvAppXMLStorage;
uViewConfiguracionBase, uClassRegistryUtils, JvAppXMLStorage,
uROTypes, uDataModuleConfiguracion;
type
TEnumAlmacen = (teXML, teBD);
IPluginConfigurable = interface
['{30063608-BFD2-47B9-80FA-F10A5067AF82}']
function GetVistaConfiguracion : TClass;
@ -16,39 +19,40 @@ type
IConfiguracionController = interface(IControllerBase)
['{F29215BA-0D34-4AE9-B9A9-C80ABF49A81D}']
procedure ConfigurarAplicacion;
procedure AplicarConfiguracion;
procedure AplicarConfiguracion;
procedure SalvarConfiguracion;
procedure CargarConfiguracion;
function GetSettingAsString(const ASettingName: String; const ADefaultValue : String = ''): String;
function GetSettingAsInteger(const ASettingName: String; const ADefaultValue : Integer = 0): Integer;
function GetSettingAsFloat(const ASettingName: String; const ADefaultValue : Float = 0): Float;
function GetSettingAsBoolean(const ASettingName: String; const ADefaultValue : Boolean = False): Boolean;
function GetSettingAsString(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : String = ''): String;
function GetSettingAsInteger(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Integer = 0): Integer;
function GetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Float = 0): Float;
function GetSettingAsBoolean(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Boolean = False): Boolean;
procedure SetSettingAsString(const ASettingName: String; AValue : String);
procedure SetSettingAsInteger(const ASettingName: String; AValue : Integer);
procedure SetSettingAsFloat(const ASettingName: String; AValue : Float);
procedure SetSettingAsBoolean(const ASettingName: String; AValue : Boolean);
procedure SetSettingAsString(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : String);
procedure SetSettingAsInteger(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Integer);
procedure SetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Float);
procedure SetSettingAsBoolean(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Boolean);
end;
TConfiguracionController = class(TControllerBase, IConfiguracionController)
private
FAppXMLFileStorage : TJvAppXMLFileStorage;
FAppDBStorage : TdmConfiguracion;
public
procedure SalvarConfiguracion;
procedure AplicarConfiguracion;
procedure CargarConfiguracion;
procedure ConfigurarAplicacion;
function GetSettingAsString(const ASettingName: String; const ADefaultValue : String = ''): String;
function GetSettingAsInteger(const ASettingName: String; const ADefaultValue : Integer = 0): Integer;
function GetSettingAsFloat(const ASettingName: String; const ADefaultValue : Float = 0): Float;
function GetSettingAsBoolean(const ASettingName: String; const ADefaultValue : Boolean = False): Boolean;
function GetSettingAsString(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : String = ''): String;
function GetSettingAsInteger(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Integer = 0): Integer;
function GetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Float = 0): Float;
function GetSettingAsBoolean(const AFuente: TEnumAlmacen; const ASettingName: String; const ADefaultValue : Boolean = False): Boolean;
procedure SetSettingAsString(const ASettingName: String; AValue : String);
procedure SetSettingAsInteger(const ASettingName: String; AValue : Integer);
procedure SetSettingAsFloat(const ASettingName: String; AValue : Float);
procedure SetSettingAsBoolean(const ASettingName: String; AValue : Boolean);
procedure SetSettingAsString(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : String);
procedure SetSettingAsInteger(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Integer);
procedure SetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Float);
procedure SetSettingAsBoolean(const AFuente: TEnumAlmacen; const ASettingName: String; AValue : Boolean);
constructor Create; override;
destructor Destroy; override;
@ -57,7 +61,7 @@ type
implementation
uses
Forms, uEditorConfiguracion, uViewConfiguracionGeneral, uDMBase,
Forms, uEditorConfiguracion, uViewConfiguracionGeneral, uDMBase,
JvAppStorage, uAppInfoUtils, Controls, uViewConfiguracionRegistryUtils;
const
@ -121,37 +125,54 @@ begin
FileName := 'Rodax Software' + PathDelim + GetAppName + PathDelim + CONFIG_INI_FILE;
end;
FAppDBStorage := dmConfiguracion;
ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionGeneral, 'General');
end;
destructor TConfiguracionController.Destroy;
begin
FreeANDNIL(FAppXMLFileStorage);
FAppDBStorage := NIL;
inherited;
end;
function TConfiguracionController.GetSettingAsBoolean(
function TConfiguracionController.GetSettingAsBoolean(const AFuente: TEnumAlmacen;
const ASettingName: String; const ADefaultValue: Boolean): Boolean;
begin
Result := FAppXMLFileStorage.ReadBoolean(ASettingName, ADefaultValue)
case AFuente of
teXML: Result := FAppXMLFileStorage.ReadBoolean(ASettingName, ADefaultValue);
teBD: Result := FAppDBStorage.DarValor(ASettingName);
end;
end;
function TConfiguracionController.GetSettingAsFloat(const ASettingName: String;
function TConfiguracionController.GetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String;
const ADefaultValue: Float): Float;
begin
Result := FAppXMLFileStorage.ReadFloat(ASettingName, ADefaultValue);
case AFuente of
teXML: Result := FAppXMLFileStorage.ReadFloat(ASettingName, ADefaultValue);
teBD: Result := FAppDBStorage.DarValor(ASettingName);
end;
end;
function TConfiguracionController.GetSettingAsInteger(
function TConfiguracionController.GetSettingAsInteger(const AFuente: TEnumAlmacen;
const ASettingName: String; const ADefaultValue: Integer): Integer;
begin
Result := FAppXMLFileStorage.ReadInteger(ASettingName, ADefaultValue);
case AFuente of
teXML: Result := FAppXMLFileStorage.ReadInteger(ASettingName, ADefaultValue);
teBD: Result := FAppDBStorage.DarValor(ASettingName);
end;
end;
function TConfiguracionController.GetSettingAsString(const ASettingName,
function TConfiguracionController.GetSettingAsString(const AFuente: TEnumAlmacen; const ASettingName,
ADefaultValue: String): String;
begin
Result := FAppXMLFileStorage.ReadString(ASettingName, ADefaultValue);
case AFuente of
teXML: Result := FAppXMLFileStorage.ReadString(ASettingName, ADefaultValue);
teBD: Result := FAppDBStorage.DarValor(ASettingName);
end;
end;
procedure TConfiguracionController.SalvarConfiguracion;
@ -159,28 +180,40 @@ begin
FAppXMLFileStorage.Flush;
end;
procedure TConfiguracionController.SetSettingAsBoolean(
procedure TConfiguracionController.SetSettingAsBoolean(const AFuente: TEnumAlmacen;
const ASettingName: String; AValue: Boolean);
begin
FAppXMLFileStorage.WriteBoolean(ASettingName, AValue);
case AFuente of
teXML: FAppXMLFileStorage.WriteBoolean(ASettingName, AValue);
teBD: FAppDBStorage.GuardarValor(ASettingName, AValue);
end;
end;
procedure TConfiguracionController.SetSettingAsFloat(const ASettingName: String;
procedure TConfiguracionController.SetSettingAsFloat(const AFuente: TEnumAlmacen; const ASettingName: String;
AValue: Float);
begin
FAppXMLFileStorage.WriteFloat(ASettingName, AValue);
case AFuente of
teXML: FAppXMLFileStorage.WriteFloat(ASettingName, AValue);
teBD: FAppDBStorage.GuardarValor(ASettingName, AValue);
end;
end;
procedure TConfiguracionController.SetSettingAsInteger(
procedure TConfiguracionController.SetSettingAsInteger(const AFuente: TEnumAlmacen;
const ASettingName: String; AValue: Integer);
begin
FAppXMLFileStorage.WriteInteger(ASettingName, AValue);
case AFuente of
teXML: FAppXMLFileStorage.WriteInteger(ASettingName, AValue);
teBD: FAppDBStorage.GuardarValor(ASettingName, AValue);
end;
end;
procedure TConfiguracionController.SetSettingAsString(
procedure TConfiguracionController.SetSettingAsString(const AFuente: TEnumAlmacen;
const ASettingName: String; AValue: String);
begin
FAppXMLFileStorage.WriteString(ASettingName, AValue);
case AFuente of
teXML: FAppXMLFileStorage.WriteString(ASettingName, AValue);
teBD: FAppDBStorage.GuardarValor(ASettingName, AValue);
end;
end;

18
Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm
View File

@ -3,7 +3,7 @@ object fConfiguracionEditor: TfConfiguracionEditor
Top = 0
Caption = 'Configuraci'#243'n de FactuGES'
ClientHeight = 524
ClientWidth = 635
ClientWidth = 733
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -32,7 +32,7 @@ object fConfiguracionEditor: TfConfiguracionEditor
TabOrder = 0
View = 17
ViewStyle.ColorSchemeName = 'Blue'
OptionsBehavior.SideBar.AllowSelectLinks = True
OptionsBehavior.Common.AllowSelectLinks = True
OptionsView.Common.ShowGroupCaptions = False
OptionsView.NavigationPane.ShowHeader = False
OptionsView.NavigationPane.ShowOverflowPanel = False
@ -47,16 +47,17 @@ object fConfiguracionEditor: TfConfiguracionEditor
object Panel2: TPanel
Left = 0
Top = 482
Width = 635
Width = 733
Height = 42
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
ExplicitWidth = 635
DesignSize = (
635
733
42)
object bCancelar: TButton
Left = 552
Left = 650
Top = 10
Width = 75
Height = 25
@ -65,9 +66,10 @@ object fConfiguracionEditor: TfConfiguracionEditor
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 0
ExplicitLeft = 552
end
object bAceptar: TButton
Left = 471
Left = 569
Top = 10
Width = 75
Height = 25
@ -75,13 +77,14 @@ object fConfiguracionEditor: TfConfiguracionEditor
Caption = '&Aceptar'
ModalResult = 1
TabOrder = 1
ExplicitLeft = 471
end
end
object PageControlMain: TPageControl
AlignWithMargins = True
Left = 166
Top = 6
Width = 461
Width = 559
Height = 468
Margins.Left = 4
Margins.Top = 6
@ -89,5 +92,6 @@ object fConfiguracionEditor: TfConfiguracionEditor
Margins.Bottom = 8
Align = alClient
TabOrder = 2
ExplicitWidth = 461
end
end

24
Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm
View File

@ -1,17 +1,19 @@
inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
Height = 375
inherited Panel1: TPanel
Width = 424
inherited Label3: TLabel
Width = 429
Caption = 'Apariencia'
ExplicitWidth = 63
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 434
end
object Panel2: TPanel
AlignWithMargins = True
Left = 5
Top = 142
Width = 441
Width = 424
Height = 22
Margins.Left = 5
Margins.Top = 0
@ -35,11 +37,10 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
ParentBackground = False
ParentFont = False
TabOrder = 2
ExplicitTop = 109
object Label2: TLabel
Left = 6
Top = 4
Width = 429
Width = 412
Height = 14
Align = alTop
Caption = 'Seguridad'
@ -50,7 +51,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
AlignWithMargins = True
Left = 5
Top = 68
Width = 441
Width = 424
Height = 74
Margins.Left = 5
Margins.Top = 0
@ -91,7 +92,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
AlignWithMargins = True
Left = 5
Top = 164
Width = 441
Width = 424
Height = 72
Margins.Left = 5
Margins.Top = 0
@ -101,7 +102,6 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
BevelOuter = bvNone
ParentColor = True
TabOrder = 4
ExplicitTop = 131
object Label4: TLabel
Left = 17
Top = 43
@ -140,7 +140,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
AlignWithMargins = True
Left = 5
Top = 236
Width = 441
Width = 424
Height = 22
Margins.Left = 5
Margins.Top = 0
@ -164,11 +164,10 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
ParentBackground = False
ParentFont = False
TabOrder = 5
ExplicitTop = 203
object Label5: TLabel
Left = 6
Top = 4
Width = 429
Width = 412
Height = 14
Align = alTop
Caption = 'Usuarios'
@ -179,7 +178,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
AlignWithMargins = True
Left = 5
Top = 258
Width = 441
Width = 424
Height = 72
Margins.Left = 5
Margins.Top = 0
@ -189,7 +188,6 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
BevelOuter = bvNone
ParentColor = True
TabOrder = 6
ExplicitTop = 225
object lblLongMinPass: TLabel
Left = 17
Top = 43

18
Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas
View File

@ -44,7 +44,7 @@ type
implementation
uses
uFactuGES_App, uDMBase;
uFactuGES_App, uDMBase, uConfiguracionController;
{$R *.dfm}
@ -55,11 +55,11 @@ procedure TfrViewConfiguracionGeneral.CargarValores;
ASkinName : String;}
begin
inherited;
edtLongMinPass.Text := AppFactuGES.Configuracion.GetSettingAsString('MinPasswordLength', '3');
edtNumIntentos.Text := AppFactuGES.Configuracion.GetSettingAsString('MaxLoginAttempts', '3');
cbPassObligatoria.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean('ForcePassword', True);
edtLongMinPass.Text := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'MinPasswordLength', '3');
edtNumIntentos.Text := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'MaxLoginAttempts', '3');
cbPassObligatoria.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean(teXML, 'ForcePassword', True);
cbMostrarMenu.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean('MostrarBarraMenus', True);
cbMostrarMenu.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean(teXML, 'MostrarBarraMenus', True);
{cbEsquemaColor.Items.Add('Usar estilo nativo de Windows');
cbEsquemaColor.Items.AddStrings(dmBase.DarListaSkins);
@ -86,11 +86,11 @@ procedure TfrViewConfiguracionGeneral.GuardarValores;
ASkinName : String;}
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString('MinPasswordLength', edtLongMinPass.Text);
AppFactuGES.Configuracion.SetSettingAsString('MaxLoginAttempts', edtNumIntentos.Text);
AppFactuGES.Configuracion.SetSettingAsBoolean('ForcePassword', cbPassObligatoria.Checked);
AppFactuGES.Configuracion.SetSettingAsString(teXML, 'MinPasswordLength', edtLongMinPass.Text);
AppFactuGES.Configuracion.SetSettingAsString(teXML, 'MaxLoginAttempts', edtNumIntentos.Text);
AppFactuGES.Configuracion.SetSettingAsBoolean(teXML, 'ForcePassword', cbPassObligatoria.Checked);
AppFactuGES.Configuracion.SetSettingAsBoolean('MostrarBarraMenus', cbMostrarMenu.Checked);
AppFactuGES.Configuracion.SetSettingAsBoolean(teXML, 'MostrarBarraMenus', cbMostrarMenu.Checked);
{if cbEsquemaColor.ItemIndex = 0 then
ASkinName := ''

8
Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
View File

@ -175,7 +175,7 @@ uses
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App, Dialogs,
uDateUtils, uROTypes, DateUtils, Controls, Windows, uIEditorLogin,
uIEditorUsuarios, uIEditorUsuario, uIEditorPerfilesUsuario,
uIEditorPerfilUsuario, uEditorCambiarPassword;
uIEditorPerfilUsuario, uEditorCambiarPassword, uConfiguracionController;
{ TUsuariosController }
@ -678,9 +678,9 @@ procedure TUsuariosController.RecogerConfiguracion;
begin
with FUserControl do
begin
Login.MaxLoginAttempts := AppFactuGES.Configuracion.GetSettingAsInteger('MaxLoginAttempts', 3);
UserPasswordChange.ForcePassword := AppFactuGES.Configuracion.GetSettingAsBoolean('ForcePassword', True);
UserPasswordChange.MinPasswordLength := AppFactuGES.Configuracion.GetSettingAsInteger('MinPasswordLength', 3);
Login.MaxLoginAttempts := AppFactuGES.Configuracion.GetSettingAsInteger(teXML, 'MaxLoginAttempts', 3);
UserPasswordChange.ForcePassword := AppFactuGES.Configuracion.GetSettingAsBoolean(teXML, 'ForcePassword', True);
UserPasswordChange.MinPasswordLength := AppFactuGES.Configuracion.GetSettingAsInteger(teXML, 'MinPasswordLength', 3);
end;
end;

96
Source/Base/Base.dproj
View File

@ -58,55 +58,55 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

14
Source/Base/Configuracion/uDataModuleConfiguracion.pas
View File

@ -4,8 +4,8 @@ interface
uses
SysUtils, Classes, uRORemoteService, uDADataTable,
uDABINAdapter, uROClient, IniFiles,
uDADataStreamer;
uDABINAdapter, uROClient, IniFiles, Variants,
uDADataStreamer, uROTypes;
const
SERVER_URL = 'http://localhost:8099/bin';
@ -19,6 +19,7 @@ type
FIniFile : TIniFile;
public
function DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): Variant;
procedure GuardarValor(const CODIGO: String; const Valor: Variant);
procedure LeerConfiguracion;
procedure SalvarConfiguracion;
constructor Create(AOwner: TComponent); override;
@ -33,7 +34,7 @@ implementation
{$R *.dfm}
uses
Forms, FactuGES_Intf, Variants, uDataModuleConexion,
Forms, FactuGES_Intf, uDataModuleConexion,
uSistemaFunc, SHFolder, uAppInfoUtils;
const
@ -68,6 +69,13 @@ begin
inherited;
end;
procedure TdmConfiguracion.GuardarValor(const CODIGO: String; const Valor: Variant);
begin
RORemoteService.Channel := dmConexion.ROChannel;
RORemoteService.Message := dmConexion.ROMessage;
(RORemoteService as IsrvConfiguracion).GuardarValor(CODIGO, Valor);
end;
procedure TdmConfiguracion.LeerConfiguracion;
begin
with FIniFile do

3
Source/Cliente/FactuGES.dproj
View File

@ -51,8 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 2,4,4,0
PRODUCTVERSION 2,4,4,0
FILEVERSION 2,4,5,0
PRODUCTVERSION 2,4,5,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.4.4.0\0"
VALUE "FileVersion", "2.4.5.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.4.4.0\0"
VALUE "ProductVersion", "2.4.5.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Contratos de cliente\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Views\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

16
Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

10
Source/Modulos/Articulos/Controller/Articulos_controller.dproj
View File

@ -54,11 +54,11 @@
<DelphiCompile Include="Articulos_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_data.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_model.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="uArticulosController.pas" />
<DCCReference Include="uControllerDetallesArticulos.pas" />
<DCCReference Include="View\uIEditorArticulo.pas" />

2
Source/Modulos/Articulos/Data/Articulos_data.dproj
View File

@ -54,7 +54,7 @@
<DelphiCompile Include="Articulos_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\Views\Articulos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
<DCCReference Include="uDataModuleArticulos.pas">
<Form>DataModuleArticulos</Form>
</DCCReference>

26
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -53,19 +53,19 @@
<DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_data.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\designide.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\vclx.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\xmlrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" />

12
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -49,12 +49,12 @@
<DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass>

30
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -49,22 +49,22 @@
<DelphiCompile Include="Contactos_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\Views\adortl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\dsnap.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\FormasPago_model.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="Data\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" />
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />

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

@ -435,7 +435,7 @@ implementation
uses
uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App,
uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App, uConfiguracionController,
uBizEmpresasTiendas, uBizTiposIVA, uBizFormasPago;
const
@ -741,7 +741,7 @@ begin
ID_CATEGORIA := CATEGORIA_CLIENTE;
BLOQUEADO := 0;
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA);
REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA);
//CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then
@ -826,7 +826,7 @@ procedure TBizProveedor.IniciarValoresContactoNuevo;
begin
inherited;
ID_CATEGORIA := CATEGORIA_PROVEEDOR;
REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Proveedores.RegimenIVA', PROVEEDOR_REGIMEN_IVA);
REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Proveedores.RegimenIVA', PROVEEDOR_REGIMEN_IVA);
//CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then

68
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -47,40 +47,40 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Base.dcp" />
<DCCReference Include="..\..\Recibos de cliente\bdertl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Contactos_controller.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Contactos_model.dcp" />
<DCCReference Include="..\..\Recibos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\designide.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dsnap.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Recibos de cliente\FormasPago_model.dcp" />
<DCCReference Include="..\..\Recibos de cliente\GUIBase.dcp" />
<DCCReference Include="..\..\Recibos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Jcl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\JclVcl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Recibos de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Recibos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Recibos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Recibos de cliente\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\..\Recibos de cliente\vclx.dcp" />
<DCCReference Include="..\..\Recibos de cliente\xmlrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form>

31
Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm
View File

@ -1,20 +1,20 @@
inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
Width = 547
Height = 411
ExplicitWidth = 547
ExplicitHeight = 411
inherited Panel1: TPanel
Width = 537
ExplicitTop = 49
ExplicitWidth = 537
inherited Label3: TLabel
Width = 525
Width = 166
Caption = 'Configuraci'#243'n para clientes'
ExplicitTop = 5
ExplicitWidth = 525
ExplicitWidth = 166
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 547
LabelCaption = 'Configuraci'#243'n para contactos'
ExplicitWidth = 547
end
object Panel3: TPanel
AlignWithMargins = True
@ -64,7 +64,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
Width = 168
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemHeight = 0
TabOrder = 0
end
object cbRegimenIVA: TComboBox
@ -73,7 +73,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
Width = 168
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemHeight = 0
TabOrder = 1
end
object bFormasPago: TButton
@ -100,7 +100,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
Width = 168
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemHeight = 0
TabOrder = 4
end
end
@ -108,7 +108,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
AlignWithMargins = True
Left = 5
Top = 223
Width = 537
Width = 424
Height = 130
Margins.Left = 5
Margins.Top = 0
@ -118,6 +118,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
BevelOuter = bvNone
ParentColor = True
TabOrder = 3
ExplicitWidth = 537
object Label7: TLabel
Left = 17
Top = 37
@ -152,7 +153,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
Width = 168
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemHeight = 0
TabOrder = 0
end
object cbRegimenIVAProv: TComboBox
@ -161,7 +162,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
Width = 168
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemHeight = 0
TabOrder = 1
end
object Button1: TButton
@ -188,7 +189,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
Width = 168
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemHeight = 0
TabOrder = 4
end
end
@ -196,7 +197,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
AlignWithMargins = True
Left = 5
Top = 201
Width = 537
Width = 424
Height = 22
Margins.Left = 5
Margins.Top = 0
@ -222,14 +223,14 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
TabOrder = 4
ExplicitLeft = -1
ExplicitTop = 239
ExplicitWidth = 537
object Label6: TLabel
Left = 6
Top = 4
Width = 525
Width = 196
Height = 14
Align = alTop
Caption = 'Configuraci'#243'n para proveedores'
ExplicitWidth = 196
end
end
end

26
Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas
View File

@ -52,7 +52,7 @@ implementation
{$R *.dfm}
uses
uRegimenIVAUtils, uFactuGES_App;
uRegimenIVAUtils, uFactuGES_App, uConfiguracionController;
{ TfrViewConfiguracionBase1 }
@ -89,14 +89,14 @@ begin
cbIVA.Items := FTiposIVAController.DarListaTiposIVA;
cbTipoIVAProv.Items := cbIVA.Items;
cbRegimenIVA.ItemIndex := cbRegimenIVA.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', cbRegimenIVA.Items[0]));
cbRegimenIVAProv.ItemIndex := cbRegimenIVAProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Proveedores.RegimenIVA', cbRegimenIVAProv.Items[0]));
cbRegimenIVA.ItemIndex := cbRegimenIVA.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Clientes.RegimenIVA', cbRegimenIVA.Items[0]));
cbRegimenIVAProv.ItemIndex := cbRegimenIVAProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Proveedores.RegimenIVA', cbRegimenIVAProv.Items[0]));
cbFormaPago.ItemIndex := cbFormaPago.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Clientes.FormaPago', cbFormaPago.Items[0]));
cbFormaPagoProv.ItemIndex := cbFormaPagoProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Proveedores.FormaPago', cbFormaPagoProv.Items[0]));
cbFormaPago.ItemIndex := cbFormaPago.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Clientes.FormaPago', cbFormaPago.Items[0]));
cbFormaPagoProv.ItemIndex := cbFormaPagoProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Proveedores.FormaPago', cbFormaPagoProv.Items[0]));
cbIVA.ItemIndex := cbIVA.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Clientes.TipoIVA'));
cbTipoIVAProv.ItemIndex := cbTipoIVAProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString('Proveedores.TipoIVA'));
cbIVA.ItemIndex := cbIVA.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML,'Clientes.TipoIVA'));
cbTipoIVAProv.ItemIndex := cbTipoIVAProv.Items.IndexOf (AppFactuGES.Configuracion.GetSettingAsString(teXML,'Proveedores.TipoIVA'));
end;
constructor TfrViewConfiguracionContactos.Create(AOwner: TComponent);
@ -126,13 +126,13 @@ end;
procedure TfrViewConfiguracionContactos.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString('Clientes.RegimenIVA', cbRegimenIVA.Text);
AppFactuGES.Configuracion.SetSettingAsString('Clientes.FormaPago', cbFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString('Clientes.TipoIVA', cbIVA.Text);
AppFactuGES.Configuracion.SetSettingAsString(teXML,'Clientes.RegimenIVA', cbRegimenIVA.Text);
AppFactuGES.Configuracion.SetSettingAsString(teXML,'Clientes.FormaPago', cbFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teXML,'Clientes.TipoIVA', cbIVA.Text);
AppFactuGES.Configuracion.SetSettingAsString('Proveedores.RegimenIVA', cbRegimenIVAProv.Text);
AppFactuGES.Configuracion.SetSettingAsString('Proveedores.FormaPago', cbFormaPagoProv.Text);
AppFactuGES.Configuracion.SetSettingAsString('Proveedores.TipoIVA', cbTipoIVAProv.Text);
AppFactuGES.Configuracion.SetSettingAsString(teXML,'Proveedores.RegimenIVA', cbRegimenIVAProv.Text);
AppFactuGES.Configuracion.SetSettingAsString(teXML,'Proveedores.FormaPago', cbFormaPagoProv.Text);
AppFactuGES.Configuracion.SetSettingAsString(teXML,'Proveedores.TipoIVA', cbTipoIVAProv.Text);
end;

BIN
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES
View File

Binary file not shown.

16
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schContratosClienteClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -251,7 +251,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TDADataTableRules, IValores)
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -310,7 +310,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -357,7 +357,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@ -452,7 +452,7 @@ type
end;
{ TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@ -807,7 +807,7 @@ type
end;
{ TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -1143,7 +1143,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@ -1292,7 +1292,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }

63
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
View File

@ -176,6 +176,31 @@ object RptContratosCliente: TRptContratosCliente
DataType = datCurrency
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'SELECT VALOR_BLOB'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'CONDICIONES' +
'_COCINA'#39#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'VALOR_BLOB'
TableField = 'VALOR_BLOB'
end>
end>
Name = 'Informe_Condiciones'
Fields = <
item
Name = 'VALOR_BLOB'
DataType = datBlob
end>
end
item
Params = <
item
@ -812,7 +837,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40071.577940347220000000
ReportOptions.LastChange = 40420.450887569440000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
@ -1494,4 +1519,40 @@ object RptContratosCliente: TRptContratosCliente
Left = 440
Top = 128
end
object frxDBCondiciones: TfrxDBDataset
UserName = 'frxDBCondiciones'
CloseDataSource = False
DataSource = DADSCondiciones
BCDToCurrency = False
Left = 352
Top = 192
end
object DADSCondiciones: TDADataSource
DataSet = tbl_Condiciones.Dataset
DataTable = tbl_Condiciones
Left = 352
Top = 248
end
object tbl_Condiciones: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'VALOR_BLOB'
DataType = datBlob
end>
Params = <>
MasterMappingMode = mmWhere
MasterParamsMappings.Strings = (
'ID_PRESUPUESTO=ID')
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = DABin2DataStreamer1
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moAllInOneFetch]
LogicalName = 'Informe_Condiciones'
IndexDefs = <>
Left = 352
Top = 304
end
end

6
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas
View File

@ -66,6 +66,9 @@ type
cabeceraCODIGO_POSTAL: TIBStringField;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
frxDBCondiciones: TfrxDBDataset;
DADSCondiciones: TDADataSource;
tbl_Condiciones: TDAMemDataTable;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
function frxReportUserFunction(const MethodName: string;
@ -397,6 +400,7 @@ begin
tbl_Cabecera.Active := False;
tbl_Capitulos.Active := False;
tbl_Detalles.Active := False;
tbl_Condiciones.Active := False;
FreeANDNIL(FListaNombresClientes);
end;
@ -515,6 +519,7 @@ begin
tbl_Cabecera.Active := False;
tbl_Capitulos.Active := False;
tbl_Detalles.Active := False;
tbl_Condiciones.Active := False;
tbl_Cabecera.ParamByName('ID').AsInteger := AID;
tbl_Capitulos.ParamByName('ID_PRE_CON').AsInteger := AID;
@ -526,6 +531,7 @@ begin
tbl_Cabecera.Active := True;
tbl_Capitulos.Active := True;
tbl_Detalles.Active := True;
tbl_Condiciones.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then

BIN
Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.RES
View File

Binary file not shown.

BIN
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.RES
View File

Binary file not shown.

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

@ -3,7 +3,7 @@ unit schFacturasProveedorClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -181,7 +181,7 @@ type
end;
{ TListaAnosFacturasDataTableRules }
TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
private
protected
{ Property getters and setters }
@ -252,7 +252,7 @@ type
end;
{ TFacturasProveedor_ContratosDataTableRules }
TFacturasProveedor_ContratosDataTableRules = class(TDADataTableRules, IFacturasProveedor_Contratos)
TFacturasProveedor_ContratosDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Contratos)
private
protected
{ Property getters and setters }
@ -568,7 +568,7 @@ type
end;
{ TFacturasProveedorDataTableRules }
TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -928,7 +928,7 @@ type
end;
{ TFacturasProveedor_DetallesDataTableRules }
TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
private
protected
{ Property getters and setters }

BIN
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res
View File

Binary file not shown.

86
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -10,7 +10,42 @@ uses
uBizPresupuestosCliente, uBizDireccionesContacto, uBizDetallesPresupuestoCliente,
uIntegerListUtils;
const
CTE_COCINA = 'Cocina';
CTE_BANO = 'Baño';
CTE_ARMARIO = 'Armarios';
CTE_ELECTRODOMESTICO = 'Electrodomésticos';
CTE_VARIOS = 'Varios';
CTE_FORMA_PAGO_COCINA = 'FORMA_PAGO_COCINA';
CTE_PLAZOS_ENTREGA_COCINA = 'PLAZOS_ENTREGA_COCINA';
CTE_OBSERVACIONES_COCINA = 'OBSERVACIONES_COCINA';
CTE_CONDICIONES_COCINA = 'CONDICIONES_COCINA';
CTE_FORMA_PAGO_ARMARIO = 'FORMA_PAGO_ARMARIO';
CTE_PLAZOS_ENTREGA_ARMARIO = 'PLAZOS_ENTREGA_ARMARIO';
CTE_OBSERVACIONES_ARMARIO = 'OBSERVACIONES_ARMARIO';
CTE_CONDICIONES_ARMARIO = 'CONDICIONES_ARMARIO';
CTE_FORMA_PAGO_BANO = 'FORMA_PAGO_BANO';
CTE_PLAZOS_ENTREGA_BANO = 'PLAZOS_ENTREGA_BANO';
CTE_OBSERVACIONES_BANO = 'OBSERVACIONES_BANO';
CTE_CONDICIONES_BANO = 'CONDICIONES_BANO';
CTE_FORMA_PAGO_ELECTRODOMESTICO = 'FORMA_PAGO_ELECTRODOMESTICO';
CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO = 'PLAZOS_ENTREGA_ELECTRODOMESTICO';
CTE_OBSERVACIONES_ELECTRODOMESTICO = 'OBSERVACIONES_ELECTRODOMESTICO';
CTE_CONDICIONES_ELECTRODOMESTICO = 'CONDICIONES_ELECTRODOMESTICO';
CTE_FORMA_PAGO_VARIOS = 'FORMA_PAGO_VARIOS';
CTE_PLAZOS_ENTREGA_VARIOS = 'PLAZOS_ENTREGA_VARIOS';
CTE_OBSERVACIONES_VARIOS = 'OBSERVACIONES_VARIOS';
CTE_CONDICIONES_VARIOS = 'CONDICIONES_VARIOS';
type
TEnumTiposPresupuesto = (teCocina, teArmario, teBano, teElectrodomestico, teVarios);
IPresupuestosClienteController = interface(IControllerBase)
['{21ED0332-F0E0-468D-8D53-8CA362757191}']
function GetClienteController: IClientesController;
@ -39,7 +74,7 @@ type
const AHeaderText: String = '');
procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente);
function Nuevo : IBizPresupuestoCliente;
function Anadir(APresupuesto : IBizPresupuestoCliente) : Boolean;
function Anadir(APresupuesto : IBizPresupuestoCliente; ATipo: TEnumTiposPresupuesto) : Boolean;
function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false): Boolean; overload;
function Guardar(APresupuesto : IBizPresupuestoCliente): Boolean;
@ -108,7 +143,7 @@ type
function Guardar(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure DescartarCambios(APresupuesto : IBizPresupuestoCliente); virtual;
function Existe(const ID: Integer) : Boolean; virtual;
function Anadir(APresupuesto : IBizPresupuestoCliente) : Boolean;
function Anadir(APresupuesto : IBizPresupuestoCliente; ATipo: TEnumTiposPresupuesto) : Boolean;
function Buscar(const ListaID: TIntegerList): IBizPresupuestoCliente; overload;
function Buscar(const ID: Integer): IBizPresupuestoCliente; overload;
function BuscarTodos: IBizPresupuestoCliente; overload;
@ -145,7 +180,7 @@ implementation
uses
Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
uIEditorPresupuestosCliente, uDataModulePresupuestosCliente, Variants,
uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uConfiguracionController,
schPresupuestosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPresupuestoCliente,
uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente,
schContactosClient_Intf, uPresupuestosClienteReportController,
@ -153,11 +188,54 @@ uses
{ TPresupuestosClienteController }
function TPresupuestosClienteController.Anadir(APresupuesto: IBizPresupuestoCliente): Boolean;
function TPresupuestosClienteController.Anadir(APresupuesto: IBizPresupuestoCliente; ATipo: TEnumTiposPresupuesto): Boolean;
begin
if not Assigned(APresupuesto) then
raise Exception.Create ('Presupuesto no asignado (Anadir)');
APresupuesto.Insert;
case ATipo of
teCocina: begin
APresupuesto.TIPO_PRESUPUESTO := CTE_COCINA;
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_COCINA));
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_COCINA));
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA));
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles);
end;
teArmario:begin
APresupuesto.TIPO_PRESUPUESTO := CTE_ARMARIO;
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ARMARIO));
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO));
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO));
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, APresupuesto.Detalles);
end;
teBano: begin
APresupuesto.TIPO_PRESUPUESTO := CTE_BANO;
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_BANO));
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_BANO));
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO));
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, APresupuesto.Detalles);
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
end;
teElectrodomestico: begin
APresupuesto.TIPO_PRESUPUESTO := CTE_ELECTRODOMESTICO;
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ELECTRODOMESTICO));
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO));
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO));
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, APresupuesto.Detalles);
end;
teVarios: begin
APresupuesto.TIPO_PRESUPUESTO := CTE_VARIOS;
APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_VARIOS));
APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_VARIOS));
APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_VARIOS));
(Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, APresupuesto.Detalles);
end;
end;
Result := True;
end;

30
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
View File

@ -31,7 +31,28 @@ requires
PresupuestosCliente_controller,
Articulos_view,
GestorInformes_controller,
PreCli_ConCli_relation;
PreCli_ConCli_relation,
rtl,
vcl,
JvCoreD11R,
vcldb,
dbrtl,
vcljpg,
vclx,
Jcl,
JclVcl,
JvMMD11R,
JvStdCtrlsD11R,
JvSystemD11R,
JvCtrlsD11R,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
dxCoreD11,
cxEditorsD11,
cxDataD11,
cxExtEditorsD11,
ApplicationBase;
contains
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
@ -49,6 +70,11 @@ contains
uEditorAsignarDescuento in 'uEditorAsignarDescuento.pas' {fEditorAsignarDescuento},
uEditorFechaDecisionPresupuesto in 'uEditorFechaDecisionPresupuesto.pas' {fEditorFechaDecisionPresupuesto},
uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame},
uViewPresupuestoCliente in 'uViewPresupuestoCliente.pas' {frViewPresupuestoCliente: TFrame};
uViewPresupuestoCliente in 'uViewPresupuestoCliente.pas' {frViewPresupuestoCliente: TFrame},
uViewConfiguracionDocArmario in 'uViewConfiguracionDocArmario.pas' {frViewConfiguracionDocArmario: TFrame},
uViewConfiguracionDocBano in 'uViewConfiguracionDocBano.pas' {frViewConfiguracionDocBano: TFrame},
uViewConfiguracionDocCocina in 'uViewConfiguracionDocCocina.pas' {frViewConfiguracionDocCocina: TFrame},
uViewConfiguracionDocElectrodomestico in 'uViewConfiguracionDocElectrodomestico.pas' {frViewConfiguracionDocElectrodomestico: TFrame},
uViewConfiguracionDocVarios in 'uViewConfiguracionDocVarios.pas' {frViewConfiguracionDocVarios: TFrame};
end.

55
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -49,13 +49,30 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PreCli_ConCli_relation.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvMMD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="PreCli_ConCli_relation.dcp" />
<DCCReference Include="PresupuestosCliente_controller.dcp" />
<DCCReference Include="PresupuestosCliente_model.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uEditorAsignarDescuento.pas">
<Form>fEditorAsignarDescuento</Form>
</DCCReference>
@ -83,6 +100,26 @@
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
</DCCReference>
<DCCReference Include="uPresupuestosClienteViewRegister.pas" />
<DCCReference Include="uViewConfiguracionDocArmario.pas">
<Form>frViewPresupuestoCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocBano.pas">
<Form>frViewConfiguracionDocBano</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocCocina.pas">
<Form>frViewConfiguracionDocCocina</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocElectrodomestico.pas">
<Form>frViewConfiguracionDocElectrodomestico</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewConfiguracionDocVarios.pas">
<Form>frViewConfiguracionDocVarios</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDatosYSeleccionClientePresupuesto.pas">
<Form>frViewDatosYSeleccionClientePresupuesto</Form>
<DesignClass>TFrame</DesignClass>
@ -115,6 +152,10 @@
<Form>frViewTotalesPresupuesto</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

30
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Caption = 'Lista de presupuestos de cliente'
ClientWidth = 805
ExplicitWidth = 813
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -126,7 +125,32 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
ExplicitWidth = 805
inherited tbxMain: TTBXToolbar
ExplicitWidth = 775
object TBXItem47: TTBXItem [13]
object TBXSubmenuItem3: TTBXSubmenuItem [0]
Caption = 'Nuevo'
DisplayMode = nbdmImageAndText
ImageIndex = 22
object bCocina: TTBXItem
Caption = 'Presupuesto de cocina'
OnClick = bCocinaClick
end
object bArmario: TTBXItem
Caption = 'Presupuesto de armario'
OnClick = bArmarioClick
end
object bBano: TTBXItem
Caption = 'Presupuesto de ba'#241'o'
OnClick = bBanoClick
end
object bElectrodomestico: TTBXItem
Caption = 'Presupuesto de electrodom'#233'stico'
OnClick = bElectrodomesticoClick
end
object bVarios: TTBXItem
Caption = 'Presupuesto de varios'
OnClick = bVariosClick
end
end
object TBXItem47: TTBXItem [14]
Action = actEnviarEMail
DisplayMode = nbdmImageAndText
end
@ -195,7 +219,9 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
end
inherited EditorActionList: TActionList
inherited actNuevo: TAction
Enabled = False
ImageIndex = 22
Visible = False
end
inherited actPrevisualizar: TAction
Visible = True

48
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -47,6 +47,12 @@ type
Aceptar1: TMenuItem;
Anular1: TMenuItem;
N3: TMenuItem;
TBXSubmenuItem3: TTBXSubmenuItem;
bVarios: TTBXItem;
bElectrodomestico: TTBXItem;
bBano: TTBXItem;
bArmario: TTBXItem;
bCocina: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
@ -61,6 +67,11 @@ type
procedure actEnviarEMailUpdate(Sender: TObject);
procedure actInformesExecute(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
procedure bCocinaClick(Sender: TObject);
procedure bArmarioClick(Sender: TObject);
procedure bBanoClick(Sender: TObject);
procedure bElectrodomesticoClick(Sender: TObject);
procedure bVariosClick(Sender: TObject);
protected
FPresupuestos: IBizPresupuestoCliente;
@ -269,6 +280,41 @@ begin
ViewGrid := CreateView(TfrViewPresupuestosCliente) as IViewPresupuestosCliente;
end;
procedure TfEditorPresupuestosCliente.bArmarioClick(Sender: TObject);
begin
inherited;
if FController.Anadir(Presupuestos, teArmario) then
FController.Ver(Presupuestos);
end;
procedure TfEditorPresupuestosCliente.bBanoClick(Sender: TObject);
begin
inherited;
if FController.Anadir(Presupuestos, teBano) then
FController.Ver(Presupuestos);
end;
procedure TfEditorPresupuestosCliente.bCocinaClick(Sender: TObject);
begin
inherited;
if FController.Anadir(Presupuestos, teCocina) then
FController.Ver(Presupuestos);
end;
procedure TfEditorPresupuestosCliente.bElectrodomesticoClick(Sender: TObject);
begin
inherited;
if FController.Anadir(Presupuestos, teElectrodomestico) then
FController.Ver(Presupuestos);
end;
procedure TfEditorPresupuestosCliente.bVariosClick(Sender: TObject);
begin
inherited;
if FController.Anadir(Presupuestos, teVarios) then
FController.Ver(Presupuestos);
end;
procedure TfEditorPresupuestosCliente.CambiarSituacion(
const ASituacion: String);
var
@ -483,7 +529,7 @@ end;
procedure TfEditorPresupuestosCliente.NuevoInterno;
begin
inherited;
if FController.Anadir(Presupuestos) then
if FController.Anadir(Presupuestos, teCocina) then
FController.Ver(Presupuestos);
end;

17
Source/Modulos/Presupuestos de cliente/Views/uPresupuestosClienteViewRegister.pas
View File

@ -8,6 +8,9 @@ procedure UnregisterViews;
implementation
uses
uViewConfiguracionRegistryUtils,
uViewConfiguracionDocCocina, uViewConfiguracionDocArmario, uViewConfiguracionDocBano,
uViewConfiguracionDocElectrodomestico, uViewConfiguracionDocVarios,
uEditorRegistryUtils, uEditorPresupuestosCliente, uEditorPresupuestoCliente, uEditorElegirPresupuestosCliente,
uEditorElegirArticulosPresupuestoCliente, uEditorPresupuestosClienteReport, uEditorAsignarDescuento;
@ -19,6 +22,12 @@ begin
EditorRegistry.RegisterClass(TfEditorElegirArticulosPresupuestoCliente, 'EditorElegirArticulosPresupuestosCliente');
EditorRegistry.RegisterClass(TfEditorPresupuestosClientePreview, 'EditorPresupuestosClientePreview');
EditorRegistry.RegisterClass(TfEditorAsignarDescuento, 'EditorAsignarDescuento');
ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocCocina, 'Documento Cocina');
ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocArmario, 'Documento Armario');
ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocBano, 'Documento Baño');
ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocElectrodomestico, 'Documento Electrodoméstico');
ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionDocVarios, 'Documento Varios');
end;
procedure UnregisterViews;
@ -28,7 +37,13 @@ begin
EditorRegistry.UnRegisterClass(TfEditorElegirPresupuestosCliente);
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosPresupuestoCliente);
EditorRegistry.UnRegisterClass(TfEditorPresupuestosClientePreview);
EditorRegistry.UnRegisterClass(TfEditorAsignarDescuento);
EditorRegistry.UnRegisterClass(TfEditorAsignarDescuento);
ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocCocina);
ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocArmario);
ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocBano);
ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocElectrodomestico);
ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionDocVarios);
end;
end.

83
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.dfm Normal file
View File

@ -0,0 +1,83 @@
inherited frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario
object Label1: TLabel [0]
Left = 11
Top = 79
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel [1]
Left = 11
Top = 204
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [2]
Left = 11
Top = 326
Width = 75
Height = 13
Caption = 'Observaciones:'
end
inherited Panel1: TPanel
Width = 530
TabOrder = 2
ExplicitWidth = 530
inherited Label3: TLabel
Width = 518
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 540
LabelCaption = 'Configuraci'#243'n docimento armario'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 448
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 225
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eFormaPago: TMemo
Left = 11
Top = 100
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object eObservaciones: TMemo
Left = 11
Top = 346
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 5
end
end

68
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocArmario.pas Normal file
View File

@ -0,0 +1,68 @@
unit uViewConfiguracionDocArmario;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls;
type
TfrViewConfiguracionDocArmario = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocARMARIO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
procedure TfrViewConfiguracionDocArmario.CargarValores;
begin
inherited;
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ARMARIO);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO);
end;
class function TfrViewConfiguracionDocArmario.DarEtiqueta: String;
begin
Result := 'Documentos armario';
end;
class function TfrViewConfiguracionDocArmario.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocARMARIO;
end;
procedure TfrViewConfiguracionDocArmario.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text);
end;
end.

83
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.dfm Normal file
View File

@ -0,0 +1,83 @@
inherited frViewConfiguracionDocBano: TfrViewConfiguracionDocBano
object Label1: TLabel [0]
Left = 11
Top = 79
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel [1]
Left = 11
Top = 204
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [2]
Left = 11
Top = 326
Width = 75
Height = 13
Caption = 'Observaciones:'
end
inherited Panel1: TPanel
Width = 530
TabOrder = 2
ExplicitWidth = 530
inherited Label3: TLabel
Width = 518
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 540
LabelCaption = 'Configuraci'#243'n docimento ba'#241'o'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 448
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 225
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eFormaPago: TMemo
Left = 11
Top = 100
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object eObservaciones: TMemo
Left = 11
Top = 346
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 5
end
end

68
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocBano.pas Normal file
View File

@ -0,0 +1,68 @@
unit uViewConfiguracionDocBano;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls;
type
TfrViewConfiguracionDocBano = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocBano: TfrViewConfiguracionDocBano;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocBANO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
procedure TfrViewConfiguracionDocBano.CargarValores;
begin
inherited;
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_BANO);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_BANO);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_BANO);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_BANO);
end;
class function TfrViewConfiguracionDocBano.DarEtiqueta: String;
begin
Result := 'Documentos baño';
end;
class function TfrViewConfiguracionDocBano.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocBANO;
end;
procedure TfrViewConfiguracionDocBano.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_BANO, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_BANO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_BANO, eCondiciones.Text);
end;
end.

83
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.dfm Normal file
View File

@ -0,0 +1,83 @@
inherited frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina
object Label1: TLabel [0]
Left = 11
Top = 79
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel [1]
Left = 11
Top = 204
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [2]
Left = 11
Top = 326
Width = 75
Height = 13
Caption = 'Observaciones:'
end
inherited Panel1: TPanel
Width = 530
TabOrder = 2
ExplicitWidth = 530
inherited Label3: TLabel
Width = 518
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 540
LabelCaption = 'Configuraci'#243'n docimento cocina'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 448
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 225
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eFormaPago: TMemo
Left = 11
Top = 100
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object eObservaciones: TMemo
Left = 11
Top = 346
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 5
end
end

68
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocCocina.pas Normal file
View File

@ -0,0 +1,68 @@
unit uViewConfiguracionDocCocina;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls;
type
TfrViewConfiguracionDocCocina = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocCocina }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
procedure TfrViewConfiguracionDocCocina.CargarValores;
begin
inherited;
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_COCINA);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_COCINA);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA);
end;
class function TfrViewConfiguracionDocCocina.DarEtiqueta: String;
begin
Result := 'Documentos cocina';
end;
class function TfrViewConfiguracionDocCocina.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocCocina;
end;
procedure TfrViewConfiguracionDocCocina.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text);
end;
end.

83
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.dfm Normal file
View File

@ -0,0 +1,83 @@
inherited frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico
object Label1: TLabel [0]
Left = 11
Top = 79
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel [1]
Left = 11
Top = 204
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [2]
Left = 11
Top = 326
Width = 75
Height = 13
Caption = 'Observaciones:'
end
inherited Panel1: TPanel
Width = 530
TabOrder = 2
ExplicitWidth = 530
inherited Label3: TLabel
Width = 518
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 540
LabelCaption = 'Configuraci'#243'n docimento electrodom'#233'stico'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 448
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 225
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eFormaPago: TMemo
Left = 11
Top = 100
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object eObservaciones: TMemo
Left = 11
Top = 346
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 5
end
end

68
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocElectrodomestico.pas Normal file
View File

@ -0,0 +1,68 @@
unit uViewConfiguracionDocElectrodomestico;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls;
type
TfrViewConfiguracionDocElectrodomestico = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocElectrodomestico: TfrViewConfiguracionDocElectrodomestico;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocELECTRODOMESTICO }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
procedure TfrViewConfiguracionDocElectrodomestico.CargarValores;
begin
inherited;
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ELECTRODOMESTICO);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ELECTRODOMESTICO);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ELECTRODOMESTICO);
end;
class function TfrViewConfiguracionDocElectrodomestico.DarEtiqueta: String;
begin
Result := 'Documentos electrodoméstico';
end;
class function TfrViewConfiguracionDocElectrodomestico.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocELECTRODOMESTICO;
end;
procedure TfrViewConfiguracionDocElectrodomestico.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO, eCondiciones.Text);
end;
end.

83
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.dfm Normal file
View File

@ -0,0 +1,83 @@
inherited frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios
object Label1: TLabel [0]
Left = 11
Top = 79
Width = 76
Height = 13
Caption = 'Forma de pago:'
end
object Label2: TLabel [1]
Left = 11
Top = 204
Width = 90
Height = 13
Caption = 'Plazos de entrega:'
end
object Label4: TLabel [2]
Left = 11
Top = 326
Width = 75
Height = 13
Caption = 'Observaciones:'
end
inherited Panel1: TPanel
Width = 530
TabOrder = 2
ExplicitWidth = 530
inherited Label3: TLabel
Width = 518
end
end
inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
Width = 540
LabelCaption = 'Configuraci'#243'n documento varios'
ExplicitWidth = 540
end
object eCondiciones: TcxRichEdit
Left = 11
Top = 448
Properties.ScrollBars = ssVertical
Lines.Strings = (
'eCondiciones')
TabOrder = 0
Visible = False
Height = 57
Width = 529
end
object ePlazosEntrega: TMemo
Left = 11
Top = 225
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 3
end
object eFormaPago: TMemo
Left = 11
Top = 100
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 4
end
object eObservaciones: TMemo
Left = 11
Top = 346
Width = 529
Height = 90
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
ScrollBars = ssVertical
TabOrder = 5
end
end

68
Source/Modulos/Presupuestos de cliente/Views/uViewConfiguracionDocVarios.pas Normal file
View File

@ -0,0 +1,68 @@
unit uViewConfiguracionDocVarios;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls;
type
TfrViewConfiguracionDocVarios = class(TfrViewConfiguracionBase)
eCondiciones: TcxRichEdit;
ePlazosEntrega: TMemo;
eFormaPago: TMemo;
eObservaciones: TMemo;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
public
class function GetViewClass : TClass; override;
class function DarEtiqueta : String; override;
procedure CargarValores; override;
procedure GuardarValores; override;
end;
var
frViewConfiguracionDocVarios: TfrViewConfiguracionDocVarios;
implementation
{$R *.dfm}
{ TfrViewConfiguracionDocVARIOS }
uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;
procedure TfrViewConfiguracionDocVarios.CargarValores;
begin
inherited;
eFormaPago.Lines.Clear;
eFormaPago.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_VARIOS);
ePlazosEntrega.Lines.Clear;
ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_VARIOS);
eObservaciones.Lines.Clear;
eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_VARIOS);
eCondiciones.Lines.Clear;
eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_VARIOS);
end;
class function TfrViewConfiguracionDocVarios.DarEtiqueta: String;
begin
Result := 'Documentos varios';
end;
class function TfrViewConfiguracionDocVarios.GetViewClass: TClass;
begin
Result := TfrViewConfiguracionDocVARIOS;
end;
procedure TfrViewConfiguracionDocVarios.GuardarValores;
begin
inherited;
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS, eFormaPago.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS, ePlazosEntrega.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS, eObservaciones.Text);
AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_VARIOS, eCondiciones.Text);
end;
end.

19
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -228,10 +228,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Height = 224
ExplicitWidth = 320
ExplicitHeight = 224
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 328
ExplicitLeft = 328
@ -240,10 +236,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Left = 239
ExplicitLeft = 239
end
inherited edtPersonaContacto: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 121
Width = 121
@ -256,10 +248,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Left = 408
ExplicitLeft = 408
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 363
Width = 363
end
end
end
object memFormaPago: TcxDBMemo
@ -341,13 +329,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Top = 55
DataBinding.DataField = 'TIPO_PRESUPUESTO'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True
Properties.Items.Strings = (
'Cocina'
'Ba'#241'o'
'Armarios'
'Electrodom'#233'sticos'
'Varios')
Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D

7
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -115,6 +115,13 @@ begin
FFormasPagoController := TFormasPagoController.Create;
FVendedoresController := TVendedoresController.Create;
FViewClientePresupuesto := frViewDatosYSeleccionClientePresupuesto1;
cbTipoPresupuesto.Properties.Items.Clear;
cbTipoPresupuesto.Properties.Items.Add(CTE_COCINA);
cbTipoPresupuesto.Properties.Items.Add(CTE_ARMARIO);
cbTipoPresupuesto.Properties.Items.Add(CTE_BANO);
cbTipoPresupuesto.Properties.Items.Add(CTE_ELECTRODOMESTICO);
cbTipoPresupuesto.Properties.Items.Add(CTE_VARIOS);
end;
procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject);

1
Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas
View File

@ -97,6 +97,7 @@ begin
AContrato.POBLACION := FDireccion.POBLACION;
AContrato.PROVINCIA := FDireccion.PROVINCIA;
AContrato.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
// AContrato.TELEFONO :=
FDireccion := Nil;

8
Source/Servicios/FactuGES.RODL
View File

@ -134,6 +134,14 @@
</Parameter>
</Parameters>
</Operation>
<Operation Name="guardarValor" UID="{ECE80435-0CBB-45A1-8628-B2292516FD81}">
<Parameters>
<Parameter Name="CODIGO" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="Valor" DataType="AnsiString" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>
</Interface>
</Interfaces>

18
Source/Servicios/FactuGES_Intf.pas
View File

@ -310,6 +310,7 @@ type
IsrvConfiguracion = interface(IDataAbstractService)
['{0882B8A4-C8AA-424E-8FC1-C6226B670522}']
function darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString;
procedure guardarValor(const CODIGO: AnsiString; const Valor: AnsiString);
end;
{ CosrvConfiguracion }
@ -323,6 +324,7 @@ type
function __GetInterfaceName:string; override;
function darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString;
procedure guardarValor(const CODIGO: AnsiString; const Valor: AnsiString);
end;
{ IsrvFamilias }
@ -1512,6 +1514,22 @@ begin
end
end;
procedure TsrvConfiguracion_Proxy.guardarValor(const CODIGO: AnsiString; const Valor: AnsiString);
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'guardarValor');
__Message.Write('CODIGO', TypeInfo(AnsiString), CODIGO, []);
__Message.Write('Valor', TypeInfo(AnsiString), Valor, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvFamilias }
class function CosrvFamilias.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFamilias;

23
Source/Servicios/FactuGES_Invk.pas
View File

@ -76,6 +76,7 @@ type
constructor Create; override;
published
procedure Invoke_darValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_guardarValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvFamilias_Invoker = class(TDataAbstractService_Invoker)
@ -608,6 +609,28 @@ begin
end;
end;
procedure TsrvConfiguracion_Invoker.Invoke_guardarValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure guardarValor(const CODIGO: AnsiString; const Valor: AnsiString); }
var
CODIGO: AnsiString;
Valor: AnsiString;
begin
try
__Message.Read('CODIGO', TypeInfo(AnsiString), CODIGO, []);
__Message.Read('Valor', TypeInfo(AnsiString), Valor, []);
(__Instance as IsrvConfiguracion).guardarValor(CODIGO, Valor);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvConfiguracion', 'guardarValorResponse');
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
__oResponseOptions := [roNoResponse];
finally
end;
end;
{ TsrvFamilias_Invoker }
constructor TsrvFamilias_Invoker.Create;

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.

52
Source/Servidor/Configuracion/srvConfiguracion_Impl.dfm
View File

@ -25,12 +25,18 @@ object srvConfiguracion: TsrvConfiguracion
item
Connection = 'IBX'
TargetTable = 'CONFIGURACION'
SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODIGO'
SQL =
'SELECT VALOR, VALOr_BLOB'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODI' +
'GO'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'VALOR'
TableField = 'VALOR'
end
item
DatasetField = 'VALOR_BLOB'
TableField = 'VALOR_BLOB'
end>
end>
Name = 'darValor'
@ -38,7 +44,11 @@ object srvConfiguracion: TsrvConfiguracion
item
Name = 'VALOR'
DataType = datString
Size = 255
Size = 2000
end
item
Name = 'VALOR_BLOB'
DataType = datMemo
end>
end>
JoinDataTables = <>
@ -54,6 +64,11 @@ object srvConfiguracion: TsrvConfiguracion
Name = 'VALOR'
Value = ''
end
item
Name = 'VALOR_BLOB'
DataType = datMemo
Value = ''
end
item
Name = 'ID_EMPRESA'
Value = ''
@ -65,12 +80,41 @@ object srvConfiguracion: TsrvConfiguracion
Default = True
Name = 'IBX'
SQL =
'insert into CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA)'#10'values' +
'(GEN_ID(GEN_CONFIGURACION_ID, 1), :CODIGO, :VALOR, :ID_EMPRESA)'#10
'insert into CONFIGURACION (ID, CODIGO, VALOR, VALOR_BLOB, ID_EMP' +
'RESA)'#10'values(GEN_ID(GEN_CONFIGURACION_ID, 1), :CODIGO, :VALOR, :' +
'VALOR_BLOB, :ID_EMPRESA)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'InsertarValor'
end
item
Params = <
item
Name = 'VALOR'
Value = ''
end
item
Name = 'VALOR_BLOB'
DataType = datMemo
Value = ''
end
item
Name = 'CODIGO'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
SQL =
'update CONFIGURACION'#10'set'#10'VALOR = :VALOR,'#10'VALOR_BLOB = :VALOR_BLO' +
'B'#10'where CODIGO = :CODIGO'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'UpdateValor'
end>
RelationShips = <>
UpdateRules = <>

54
Source/Servidor/Configuracion/srvConfiguracion_Impl.pas
View File

@ -24,11 +24,11 @@ type
Bin2DataStreamer: TDABin2DataStreamer;
schConfiguracion: TDASchema;
procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
protected
{ IsrvConfiguracion methods }
function DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): String;
function DarValor(const CODIGO: String; Const ValorPorDefecto: String = ''): String;
procedure GuardarValor(const CODIGO: AnsiString; const Valor: AnsiString);
end;
implementation
@ -59,7 +59,12 @@ begin
ADataSet := schConfiguracion.NewDataset(Connection, 'darValor', ['CODIGO'], [CODIGO]);
ADataSet.Open;
if ADataSet.Dataset.RecordCount > 0 then
Result := ADataSet.Dataset.Fields[0].AsVariant
begin
if CODIGO = 'CONDICIONES_COCINA' then
Result := ADataSet.Dataset.Fields[1].AsVariant
else
Result := ADataSet.Dataset.Fields[0].AsVariant
end
else
begin
Result := ValorPorDefecto;
@ -78,7 +83,7 @@ begin
except
ACurrentConn.RollbackTransaction;
end;
ACommand := NIL;
ACommand := NIL;
// RaiseError('Falta variable de configuracion: ' + CODIGO);
end;
finally
@ -92,6 +97,45 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
procedure TsrvConfiguracion.GuardarValor(const CODIGO: AnsiString; const Valor: AnsiString);
var
ACurrentConn : IDAConnection;
ACommand : IDASQLCommand;
st: TStringStream;
st2: IROStream;
begin
//Creamos la variable de configuración con su valor por defecto
ACurrentConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
ACommand := schConfiguracion.NewCommand(ACurrentConn, 'UpdateValor');
try
with ACommand do
begin
ParamByName('CODIGO').Value := CODIGO;
ParamByName('VALOR').Value := Valor;
if CODIGO = 'CONDICIONES_COCINA' then
begin
// st := TStringStream.Create(Valor);
// st.Position := 0;
// st2 := TROStream.create(st, true);
//
//
// ParamByName('VALOR_BLOB').LoadFromStream(st2);
ParamByName('VALOR_BLOB').Value := Valor;
end;
// ParamByName('ID_EMPRESA').Value := Null;
Execute;
ACurrentConn.CommitTransaction;
end;
except
ACurrentConn.RollbackTransaction;
end;
ACommand := NIL;
end;
initialization
TROClassFactory.Create('srvConfiguracion', Create_srvConfiguracion, TsrvConfiguracion_Invoker);

581
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,295 +1,294 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<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">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 21 de junio de 2010 10:29</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.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\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" />
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.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\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvTiposIVA_Impl.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\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<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">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 06 de septiembre de 2010 9:05</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.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\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<Form>RptComisiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
<Form>RptContratosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<Form>srvContratosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.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\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<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\Servidor\srvTiposIVA_Impl.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\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,4,4,0
PRODUCTVERSION 2,4,4,0
FILEVERSION 2,4,5,0
PRODUCTVERSION 2,4,5,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.4.4.0\0"
VALUE "FileVersion", "2.4.5.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.4.4.0\0"
VALUE "CompileDate", "viernes, 16 de julio de 2010 13:56\0"
VALUE "ProductVersion", "2.4.5.0\0"
VALUE "CompileDate", "lunes, 06 de septiembre de 2010 18:03\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.