Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Subida para la version 1.0.0 de tecsitel

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@147 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2007-11-19 19:13:37 +00:00
parent d046244872
commit ccbf9441a6
82 changed files with 3450 additions and 761 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2589
Database/ScriptSinDatos.sql Normal file
View File

File diff suppressed because it is too large Load Diff

11
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -61,6 +61,8 @@ type
property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent; property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent;
property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent; property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
property Terminated : Boolean read GetTerminated; property Terminated : Boolean read GetTerminated;
procedure ShowCapado;
end; end;
@ -126,6 +128,8 @@ type
property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent; property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent;
property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent; property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
property Terminated : Boolean read GetTerminated; property Terminated : Boolean read GetTerminated;
procedure ShowCapado;
end; end;
var var
@ -134,7 +138,7 @@ var
implementation implementation
uses uses
Dialogs, cxControls, uUsuariosViewRegister, Dialogs, uDialogUtils, cxControls, uUsuariosViewRegister,
uEmpresasViewRegister; uEmpresasViewRegister;
procedure TAppFactuGES.CambiarEmpresa(const AIDEmpresa: Integer); procedure TAppFactuGES.CambiarEmpresa(const AIDEmpresa: Integer);
@ -327,6 +331,11 @@ begin
FDoLoadModulesEvent := ALoadModulesEvent; FDoLoadModulesEvent := ALoadModulesEvent;
end; end;
procedure TAppFactuGES.ShowCapado;
begin
ShowInfoMessage('Sin Acceso', 'Funcionalidad en desarrollo, disculpen las molestias');
end;
procedure TAppFactuGES.ShowSplashForm; procedure TAppFactuGES.ShowSplashForm;
begin begin
if not Assigned(FAppSplashForm) then if not Assigned(FAppSplashForm) then

105
Source/Base/Base.dproj
View File

@ -44,6 +44,13 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -60,55 +67,55 @@
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" /> <DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" /> <DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxDataD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\cxDataD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\cxEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExportD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\cxExportD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\cxExtEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxGridD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\cxGridD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxIntl5D10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\cxIntl5D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxIntlPrintSys3D10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\cxLibraryD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\cxPageControlD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxPSCoreD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\dxThemeD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Recibos de proveedor\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

6
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,11 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <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">2</VersionInfo><VersionInfo Name="Release">2</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.2.2.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.1.4</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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.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.1.4</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

6
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,2,2,0 FILEVERSION 1,0,0,0
PRODUCTVERSION 2,2,2,0 PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,7 +13,7 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.2.2.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.1.4\0" VALUE "ProductVersion", "2.1.4\0"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

6
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -220,8 +220,11 @@ end;
procedure TfEditorAlbaranCliente.ImprimirInterno; procedure TfEditorAlbaranCliente.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Print(FAlbaran); FController.Print(FAlbaran);
}
end; end;
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject); procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
@ -317,8 +320,11 @@ end;
procedure TfEditorAlbaranCliente.PrevisualizarInterno; procedure TfEditorAlbaranCliente.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Preview(FAlbaran); FController.Preview(FAlbaran);
}
end; end;
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad; procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -2,7 +2,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Caption = 'Lista de albaranes de cliente' Caption = 'Lista de albaranes de cliente'
ClientWidth = 583 ClientWidth = 583
ExplicitWidth = 591 ExplicitWidth = 591
ExplicitHeight = 240 ExplicitHeight = 471
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

22
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -97,6 +97,8 @@ uses
} }
procedure TfEditorAlbaranesCliente.actCancelarEnvioExecute(Sender: TObject); procedure TfEditorAlbaranesCliente.actCancelarEnvioExecute(Sender: TObject);
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
if (ShowConfirmMessage('Envío de albarán de cliente', '¿Desea cancelar el envío de este albarán de cliente?') = IDYES) then if (ShowConfirmMessage('Envío de albarán de cliente', '¿Desea cancelar el envío de este albarán de cliente?') = IDYES) then
@ -109,6 +111,7 @@ begin
end; end;
end; end;
actRefrescar.Execute; actRefrescar.Execute;
}
end; end;
procedure TfEditorAlbaranesCliente.actCancelarEnvioUpdate(Sender: TObject); procedure TfEditorAlbaranesCliente.actCancelarEnvioUpdate(Sender: TObject);
@ -122,6 +125,8 @@ end;
procedure TfEditorAlbaranesCliente.actConfirmarRecepcionExecute(Sender: TObject); procedure TfEditorAlbaranesCliente.actConfirmarRecepcionExecute(Sender: TObject);
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
try try
@ -131,6 +136,7 @@ begin
ShowErrorMessage('Error al cambiar la situación del albarán', E.Message, E); ShowErrorMessage('Error al cambiar la situación del albarán', E.Message, E);
end; end;
actRefrescar.Execute; actRefrescar.Execute;
}
end; end;
procedure TfEditorAlbaranesCliente.actConfirmarRecepcionUpdate(Sender: TObject); procedure TfEditorAlbaranesCliente.actConfirmarRecepcionUpdate(Sender: TObject);
@ -152,6 +158,8 @@ end;
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject); procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject);
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
//Miramos si viene de un pedido previo, si no es asi le preguntamos si desea imprimir la referencia del cliente //Miramos si viene de un pedido previo, si no es asi le preguntamos si desea imprimir la referencia del cliente
if (FAlbaranes.ID_PEDIDO > 0) then if (FAlbaranes.ID_PEDIDO > 0) then
@ -163,6 +171,7 @@ begin
else else
FController.EtiquetasPreview(FAlbaranes, False); FController.EtiquetasPreview(FAlbaranes, False);
end; end;
}
end; end;
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasUpdate(Sender: TObject); procedure TfEditorAlbaranesCliente.actGenerarEtiquetasUpdate(Sender: TObject);
@ -175,8 +184,9 @@ end;
procedure TfEditorAlbaranesCliente.actGenerarFacturaExecute(Sender: TObject); procedure TfEditorAlbaranesCliente.actGenerarFacturaExecute(Sender: TObject);
begin begin
AppFactuGES.ShowCapado;
// GenerarFacturaCli(Albaranes.ID); // GenerarFacturaCli(Albaranes.ID);
actRefrescar.Execute; // actRefrescar.Execute;
end; end;
procedure TfEditorAlbaranesCliente.actGenerarFacturaUpdate(Sender: TObject); procedure TfEditorAlbaranesCliente.actGenerarFacturaUpdate(Sender: TObject);
@ -196,6 +206,7 @@ procedure TfEditorAlbaranesCliente.actEnviarExecute(Sender: TObject);
// AFacturasController : IFacturasClienteController; // AFacturasController : IFacturasClienteController;
// AAlbaran : IBizAlbaranCliente; // AAlbaran : IBizAlbaranCliente;
begin begin
AppFactuGES.ShowCapado;
{ {
inherited; inherited;
bCambiarEstado := False; bCambiarEstado := False;
@ -281,6 +292,8 @@ procedure TfEditorAlbaranesCliente.DuplicarInterno;
var var
APedido : IBizAlbaranCliente; APedido : IBizAlbaranCliente;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
APedido := FController.Duplicar(Albaranes); APedido := FController.Duplicar(Albaranes);
try try
@ -288,6 +301,7 @@ begin
finally finally
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorAlbaranesCliente.EliminarInterno; procedure TfEditorAlbaranesCliente.EliminarInterno;
@ -370,6 +384,8 @@ var
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
AAlbaranes := Nil; AAlbaranes := Nil;
AllItems := False; AllItems := False;
@ -403,6 +419,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorAlbaranesCliente.ModificarInterno; procedure TfEditorAlbaranesCliente.ModificarInterno;
@ -454,6 +471,8 @@ var
AAlbaranes: IBizAlbaranCliente; AAlbaranes: IBizAlbaranCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
AAlbaranes := Nil; AAlbaranes := Nil;
AllItems := False; AllItems := False;
@ -487,6 +506,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorAlbaranesCliente.SetController(const Value: IAlbaranesClienteController); procedure TfEditorAlbaranesCliente.SetController(const Value: IAlbaranesClienteController);

6
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -6,7 +6,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ClientWidth = 765 ClientWidth = 765
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 653 ExplicitHeight = 646
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -206,10 +206,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0

6
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -218,8 +218,11 @@ end;
procedure TfEditorAlbaranProveedor.ImprimirInterno; procedure TfEditorAlbaranProveedor.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Print(FAlbaran); FController.Print(FAlbaran);
}
end; end;
procedure TfEditorAlbaranProveedor.OnProveedorChanged(Sender: TObject); procedure TfEditorAlbaranProveedor.OnProveedorChanged(Sender: TObject);
@ -272,8 +275,11 @@ end;
procedure TfEditorAlbaranProveedor.PrevisualizarInterno; procedure TfEditorAlbaranProveedor.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Preview(FAlbaran); FController.Preview(FAlbaran);
}
end; end;
procedure TfEditorAlbaranProveedor.RecalcularPortePorUnidad; procedure TfEditorAlbaranProveedor.RecalcularPortePorUnidad;

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
View File

@ -2,7 +2,7 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
Caption = 'Lista de albaranes de proveedor' Caption = 'Lista de albaranes de proveedor'
ClientWidth = 606 ClientWidth = 606
ExplicitWidth = 614 ExplicitWidth = 614
ExplicitHeight = 240 ExplicitHeight = 471
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

12
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -78,9 +78,12 @@ end;
procedure TfEditorAlbaranesProveedor.actGenerarFacturaExecute(Sender: TObject); procedure TfEditorAlbaranesProveedor.actGenerarFacturaExecute(Sender: TObject);
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
// GenerarFacturaProv(Albaranes.ID); // GenerarFacturaProv(Albaranes.ID);
actRefrescar.Execute; actRefrescar.Execute;
}
end; end;
procedure TfEditorAlbaranesProveedor.actGenerarFacturaUpdate(Sender: TObject); procedure TfEditorAlbaranesProveedor.actGenerarFacturaUpdate(Sender: TObject);
@ -114,6 +117,8 @@ procedure TfEditorAlbaranesProveedor.DuplicarInterno;
var var
AAlbaran : IBizAlbaranProveedor; AAlbaran : IBizAlbaranProveedor;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
AAlbaran := FController.Duplicar(Albaranes); AAlbaran := FController.Duplicar(Albaranes);
try try
@ -121,6 +126,7 @@ begin
finally finally
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorAlbaranesProveedor.EliminarInterno; procedure TfEditorAlbaranesProveedor.EliminarInterno;
@ -198,6 +204,8 @@ var
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
AAlbaranes := Nil; AAlbaranes := Nil;
AllItems := False; AllItems := False;
@ -231,6 +239,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
function TfEditorAlbaranesProveedor.GetAlbaranes: IBizAlbaranProveedor; function TfEditorAlbaranesProveedor.GetAlbaranes: IBizAlbaranProveedor;
@ -286,6 +295,8 @@ var
AAlbaranes: IBizAlbaranProveedor; AAlbaranes: IBizAlbaranProveedor;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
AAlbaranes := Nil; AAlbaranes := Nil;
AllItems := False; AllItems := False;
@ -319,6 +330,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorAlbaranesProveedor.SetController(const Value: IAlbaranesProveedorController); procedure TfEditorAlbaranesProveedor.SetController(const Value: IAlbaranesProveedorController);

1
Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
View File

@ -415,4 +415,3 @@ begin
end; end;
end. end.

9
Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm
View File

@ -31,6 +31,7 @@ inherited DataModuleAlmacenes: TDataModuleAlmacenes
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_ALMACENES_ID' GeneratorName = 'GEN_ALMACENES_ID'
Required = True Required = True
ServerAutoRefresh = True
DictionaryEntry = 'Almacenes_ID' DictionaryEntry = 'Almacenes_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -64,28 +65,28 @@ inherited DataModuleAlmacenes: TDataModuleAlmacenes
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Poblaci'#195#179'n' DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'Almacenes_POBLACION' DictionaryEntry = 'Almacenes_POBLACION'
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
DisplayLabel = 'C'#195#179'digo postal' DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Almacenes_CODIGO_POSTAL' DictionaryEntry = 'Almacenes_CODIGO_POSTAL'
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString DataType = datString
Size = 25 Size = 25
DisplayLabel = 'Tel'#195#169'fono' DisplayLabel = 'Tel'#233'fono'
DictionaryEntry = 'Almacenes_TELEFONO' DictionaryEntry = 'Almacenes_TELEFONO'
end end
item item
Name = 'MOVIL' Name = 'MOVIL'
DataType = datString DataType = datString
Size = 25 Size = 25
DisplayLabel = 'M'#195#179'vil' DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Almacenes_MOVIL' DictionaryEntry = 'Almacenes_MOVIL'
end end
item item

4
Source/Modulos/Almacenes/Model/schAlmacenesClient_Intf.pas
View File

@ -9,7 +9,7 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Almacenes = '{5EAFCDA6-24B0-49DF-908B-446E0E78DBA1}'; RID_Almacenes = '{EE679D71-1729-4CD1-8CB9-1A2CE6B05493}';
{ Data table names } { Data table names }
nme_Almacenes = 'Almacenes'; nme_Almacenes = 'Almacenes';
@ -51,7 +51,7 @@ const
type type
{ IAlmacenes } { IAlmacenes }
IAlmacenes = interface(IDAStronglyTypedDataTable) IAlmacenes = interface(IDAStronglyTypedDataTable)
['{DADCBB7A-E505-4CA1-A7F0-A9E7BF58CE65}'] ['{A51A2256-3355-4ABC-83D8-C6C5F3FB8FED}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

4
Source/Modulos/Almacenes/Model/schAlmacenesServer_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_AlmacenesDelta = '{A363FBCF-EBBA-4747-8A56-A10E5150E4FE}'; RID_AlmacenesDelta = '{F091F4FA-70AD-40E6-9C14-082208660CFF}';
type type
{ IAlmacenesDelta } { IAlmacenesDelta }
IAlmacenesDelta = interface(IAlmacenes) IAlmacenesDelta = interface(IAlmacenes)
['{A363FBCF-EBBA-4747-8A56-A10E5150E4FE}'] ['{F091F4FA-70AD-40E6-9C14-082208660CFF}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;

1
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm
View File

@ -187,6 +187,7 @@ object srvAlmacenes: TsrvAlmacenes
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_ALMACENES_ID' GeneratorName = 'GEN_ALMACENES_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Almacenes_ID' DictionaryEntry = 'Almacenes_ID'
InPrimaryKey = True InPrimaryKey = True
end end

3
Source/Modulos/Almacenes/Views/uEditorAlmacen.dfm
View File

@ -8,6 +8,7 @@ inherited fEditorAlmacen: TfEditorAlmacen
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 488
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -44,7 +45,7 @@ inherited fEditorAlmacen: TfEditorAlmacen
Width = 632 Width = 632
ExplicitWidth = 632 ExplicitWidth = 632
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 324 ExplicitWidth = 330
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end

2
Source/Modulos/Almacenes/Views/uEditorAlmacen.pas
View File

@ -13,7 +13,7 @@ uses
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
uViewAlmacenes, uIEditorAlmacen, uAlmacenesController, JvExComCtrls, uViewAlmacenes, uIEditorAlmacen, uAlmacenesController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels; JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces;
type type
TfEditorAlmacen = class(TfEditorDBItem, IEditorAlmacen) TfEditorAlmacen = class(TfEditorDBItem, IEditorAlmacen)

13
Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm
View File

@ -2,8 +2,7 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Lista de almacenes' Caption = 'Lista de almacenes'
ExplicitWidth = 320 ExplicitHeight = 471
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -91,9 +90,19 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 543 Width = 543
ExplicitWidth = 543 ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 337 Left = 337
ExplicitLeft = 337 ExplicitLeft = 337
ExplicitWidth = 121
Width = 121
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

BIN
Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas
View File

Binary file not shown.

2
Source/Modulos/Almacenes/Views/uViewAlmacen.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable, Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
DBCtrls, Grids, DBGrids, uBizAlmacenes, Mask, ComCtrls, uCustomView, DBCtrls, Grids, DBGrids, uBizAlmacenes, Mask, ComCtrls, uCustomView,
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl; cxDBEdit, dxLayoutControl, uDAInterfaces;
type type
IViewAlmacen = interface(IViewBase) IViewAlmacen = interface(IViewBase)

28
Source/Modulos/Articulos/Articulos_Group.groupproj
View File

@ -6,7 +6,9 @@
<ItemGroup> <ItemGroup>
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" /> <Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
<Projects Include="..\..\Base\Base.dproj" /> <Projects Include="..\..\Base\Base.dproj" />
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="Controller\Articulos_controller.dproj" /> <Projects Include="Controller\Articulos_controller.dproj" />
<Projects Include="Data\Articulos_data.dproj" /> <Projects Include="Data\Articulos_data.dproj" />
<Projects Include="Model\Articulos_model.dproj" /> <Projects Include="Model\Articulos_model.dproj" />
@ -17,7 +19,7 @@
<Borland.Personality>Default.Personality</Borland.Personality> <Borland.Personality>Default.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject> <BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Target Name="Base"> <Target Name="Base">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="" /> <MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
@ -91,14 +93,32 @@
<Target Name="Articulos_plugin:Make"> <Target Name="Articulos_plugin:Make">
<MSBuild Projects="Plugin\Articulos_plugin.dproj" Targets="Make" /> <MSBuild Projects="Plugin\Articulos_plugin.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
<Target Name="FactuGES:Clean">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

21
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -31,6 +31,7 @@ inherited DataModuleArticulos: TDataModuleArticulos
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_ID' GeneratorName = 'GEN_ARTICULOS_ID'
Required = True Required = True
ServerAutoRefresh = True
DictionaryEntry = 'Articulos_ID' DictionaryEntry = 'Articulos_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -188,7 +189,7 @@ inherited DataModuleArticulos: TDataModuleArticulos
end end
item item
Name = 'COMISIONABLE' Name = 'COMISIONABLE'
DataType = datInteger DataType = datSmallInt
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
@ -201,7 +202,7 @@ inherited DataModuleArticulos: TDataModuleArticulos
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 20 Size = 30
end end
item item
Name = 'REFERENCIA_PROV' Name = 'REFERENCIA_PROV'
@ -210,11 +211,11 @@ inherited DataModuleArticulos: TDataModuleArticulos
end end
item item
Name = 'PRECIO_COSTE' Name = 'PRECIO_COSTE'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'PRECIO_PORTE' Name = 'PRECIO_PORTE'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
@ -222,14 +223,14 @@ inherited DataModuleArticulos: TDataModuleArticulos
end end
item item
Name = 'PRECIO_NETO' Name = 'PRECIO_NETO'
DataType = datFloat DataType = datCurrency
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end end
item item
Name = 'INVENTARIABLE' Name = 'INVENTARIABLE'
DataType = datSmallInt
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger DataType = datInteger
end end
item item
@ -239,7 +240,7 @@ inherited DataModuleArticulos: TDataModuleArticulos
end end
item item
Name = 'ELIMINADO' Name = 'ELIMINADO'
DataType = datInteger DataType = datSmallInt
DisplayLabel = 'Eliminado' DisplayLabel = 'Eliminado'
end> end>
Params = < Params = <

2
Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
View File

@ -92,10 +92,10 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AArticulo := CloneDataTable(tbl_ArticulosParaCliente); AArticulo := CloneDataTable(tbl_ArticulosParaCliente);
AsignarClaseNegocio(AArticulo); AsignarClaseNegocio(AArticulo);
AArticulo.ParamByName('ID_CLIENTE').AsInteger := IdCliente; AArticulo.ParamByName('ID_CLIENTE').AsInteger := IdCliente;
Result := (AArticulo as IBizArticulo); Result := (AArticulo as IBizArticulo);
finally finally

17
Source/Modulos/Articulos/Model/Articulos_model.dproj
View File

@ -54,21 +54,8 @@
<DelphiCompile Include="Articulos_model.dpk"> <DelphiCompile Include="Articulos_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\ApplicationBase\A.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Ap.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\App.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Appl.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Appli.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Applic.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Applica.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Applicat.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Applicati.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Applicatio.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Application.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\ApplicationB.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\ApplicationBa.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\ApplicationBas.dcp" />
<DCCReference Include="..\..\..\ApplicationBase\Base.dcp" />
<DCCReference Include="Data\uIDataModuleArticulos.pas" /> <DCCReference Include="Data\uIDataModuleArticulos.pas" />
<DCCReference Include="schArticulosClient_Intf.pas" /> <DCCReference Include="schArticulosClient_Intf.pas" />
<DCCReference Include="schArticulosServer_Intf.pas" /> <DCCReference Include="schArticulosServer_Intf.pas" />

180
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Articulos = '{A919037D-4671-4A18-914B-E81627402125}'; RID_Articulos = '{96B1BC75-3838-4481-8FAB-C5709E2A2B97}';
RID_ArticulosParaCliente = '{F171CB2E-7FB7-442C-8E6F-DF7528462F59}'; RID_ArticulosParaCliente = '{1C488DD9-5F46-43A2-9440-617591319C59}';
{ Data table names } { Data table names }
nme_Articulos = 'Articulos'; nme_Articulos = 'Articulos';
@ -74,8 +74,8 @@ const
fld_ArticulosParaClientePRECIO_PORTE = 'PRECIO_PORTE'; fld_ArticulosParaClientePRECIO_PORTE = 'PRECIO_PORTE';
fld_ArticulosParaClienteDESCUENTO = 'DESCUENTO'; fld_ArticulosParaClienteDESCUENTO = 'DESCUENTO';
fld_ArticulosParaClientePRECIO_NETO = 'PRECIO_NETO'; fld_ArticulosParaClientePRECIO_NETO = 'PRECIO_NETO';
fld_ArticulosParaClienteID_PROVEEDOR = 'ID_PROVEEDOR';
fld_ArticulosParaClienteINVENTARIABLE = 'INVENTARIABLE'; fld_ArticulosParaClienteINVENTARIABLE = 'INVENTARIABLE';
fld_ArticulosParaClienteID_PROVEEDOR = 'ID_PROVEEDOR';
fld_ArticulosParaClienteNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; fld_ArticulosParaClienteNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_ArticulosParaClienteELIMINADO = 'ELIMINADO'; fld_ArticulosParaClienteELIMINADO = 'ELIMINADO';
@ -95,15 +95,15 @@ const
idx_ArticulosParaClientePRECIO_PORTE = 12; idx_ArticulosParaClientePRECIO_PORTE = 12;
idx_ArticulosParaClienteDESCUENTO = 13; idx_ArticulosParaClienteDESCUENTO = 13;
idx_ArticulosParaClientePRECIO_NETO = 14; idx_ArticulosParaClientePRECIO_NETO = 14;
idx_ArticulosParaClienteID_PROVEEDOR = 15; idx_ArticulosParaClienteINVENTARIABLE = 15;
idx_ArticulosParaClienteINVENTARIABLE = 16; idx_ArticulosParaClienteID_PROVEEDOR = 16;
idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 17; idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 17;
idx_ArticulosParaClienteELIMINADO = 18; idx_ArticulosParaClienteELIMINADO = 18;
type type
{ IArticulos } { IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable) IArticulos = interface(IDAStronglyTypedDataTable)
['{00CE32EE-B4B1-4C3E-872C-46245138E81E}'] ['{E4DF8395-5D03-4DF6-8828-6CC926D541A4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -354,7 +354,7 @@ type
{ IArticulosParaCliente } { IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable) IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{DB03F743-2C22-4D94-893A-A45077AD727C}'] ['{C30A8751-1293-43C0-AEE1-8E0C09A5671F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -379,8 +379,8 @@ type
function GetIMAGENValue: IROStream; function GetIMAGENValue: IROStream;
function GetIMAGENIsNull: Boolean; function GetIMAGENIsNull: Boolean;
procedure SetIMAGENIsNull(const aValue: Boolean); procedure SetIMAGENIsNull(const aValue: Boolean);
function GetCOMISIONABLEValue: Integer; function GetCOMISIONABLEValue: SmallInt;
procedure SetCOMISIONABLEValue(const aValue: Integer); procedure SetCOMISIONABLEValue(const aValue: SmallInt);
function GetCOMISIONABLEIsNull: Boolean; function GetCOMISIONABLEIsNull: Boolean;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean); procedure SetCOMISIONABLEIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime; function GetFECHA_ALTAValue: DateTime;
@ -399,36 +399,36 @@ type
procedure SetREFERENCIA_PROVValue(const aValue: String); procedure SetREFERENCIA_PROVValue(const aValue: String);
function GetREFERENCIA_PROVIsNull: Boolean; function GetREFERENCIA_PROVIsNull: Boolean;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
function GetPRECIO_COSTEValue: Float; function GetPRECIO_COSTEValue: Currency;
procedure SetPRECIO_COSTEValue(const aValue: Float); procedure SetPRECIO_COSTEValue(const aValue: Currency);
function GetPRECIO_COSTEIsNull: Boolean; function GetPRECIO_COSTEIsNull: Boolean;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
function GetPRECIO_PORTEValue: Float; function GetPRECIO_PORTEValue: Currency;
procedure SetPRECIO_PORTEValue(const aValue: Float); procedure SetPRECIO_PORTEValue(const aValue: Currency);
function GetPRECIO_PORTEIsNull: Boolean; function GetPRECIO_PORTEIsNull: Boolean;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); procedure SetPRECIO_PORTEIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float; function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float); procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOIsNull: Boolean; function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean); procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetPRECIO_NETOValue: Float; function GetPRECIO_NETOValue: Currency;
procedure SetPRECIO_NETOValue(const aValue: Float); procedure SetPRECIO_NETOValue(const aValue: Currency);
function GetPRECIO_NETOIsNull: Boolean; function GetPRECIO_NETOIsNull: Boolean;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
function GetINVENTARIABLEValue: SmallInt;
procedure SetINVENTARIABLEValue(const aValue: SmallInt);
function GetINVENTARIABLEIsNull: Boolean;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean);
function GetID_PROVEEDORValue: Integer; function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer); procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean; function GetID_PROVEEDORIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
function GetINVENTARIABLEValue: Integer;
procedure SetINVENTARIABLEValue(const aValue: Integer);
function GetINVENTARIABLEIsNull: Boolean;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean);
function GetNOMBRE_PROVEEDORValue: String; function GetNOMBRE_PROVEEDORValue: String;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
function GetNOMBRE_PROVEEDORIsNull: Boolean; function GetNOMBRE_PROVEEDORIsNull: Boolean;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
function GetELIMINADOValue: Integer; function GetELIMINADOValue: SmallInt;
procedure SetELIMINADOValue(const aValue: Integer); procedure SetELIMINADOValue(const aValue: SmallInt);
function GetELIMINADOIsNull: Boolean; function GetELIMINADOIsNull: Boolean;
procedure SetELIMINADOIsNull(const aValue: Boolean); procedure SetELIMINADOIsNull(const aValue: Boolean);
@ -446,7 +446,7 @@ type
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property IMAGEN: IROStream read GetIMAGENValue; property IMAGEN: IROStream read GetIMAGENValue;
property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull; property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
@ -456,21 +456,21 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue; property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
end; end;
@ -504,8 +504,8 @@ type
function GetIMAGENValue: IROStream; virtual; function GetIMAGENValue: IROStream; virtual;
function GetIMAGENIsNull: Boolean; virtual; function GetIMAGENIsNull: Boolean; virtual;
procedure SetIMAGENIsNull(const aValue: Boolean); virtual; procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
function GetCOMISIONABLEValue: Integer; virtual; function GetCOMISIONABLEValue: SmallInt; virtual;
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual; procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual;
function GetCOMISIONABLEIsNull: Boolean; virtual; function GetCOMISIONABLEIsNull: Boolean; virtual;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual; procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAValue: DateTime; virtual;
@ -524,36 +524,36 @@ type
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual; function GetREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Float; virtual; function GetPRECIO_COSTEValue: Currency; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Float); virtual; procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual; function GetPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Float; virtual; function GetPRECIO_PORTEValue: Currency; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Float); virtual; procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual; function GetPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual; function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOIsNull: Boolean; virtual; function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Float; virtual; function GetPRECIO_NETOValue: Currency; virtual;
procedure SetPRECIO_NETOValue(const aValue: Float); virtual; procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual; function GetPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: SmallInt; virtual;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual; function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: Integer; virtual;
procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual; function GetNOMBRE_PROVEEDORValue: String; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetELIMINADOValue: Integer; virtual; function GetELIMINADOValue: SmallInt; virtual;
procedure SetELIMINADOValue(const aValue: Integer); virtual; procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
function GetELIMINADOIsNull: Boolean; virtual; function GetELIMINADOIsNull: Boolean; virtual;
procedure SetELIMINADOIsNull(const aValue: Boolean); virtual; procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
@ -570,7 +570,7 @@ type
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property IMAGEN: IROStream read GetIMAGENValue; property IMAGEN: IROStream read GetIMAGENValue;
property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull; property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
@ -580,21 +580,21 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property PRECIO_COSTE: Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property PRECIO_PORTE: Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue; property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
public public
@ -1177,14 +1177,14 @@ begin
DataTable.Fields[idx_ArticulosParaClienteIMAGEN].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClienteIMAGEN].AsVariant := Null;
end; end;
function TArticulosParaClienteDataTableRules.GetCOMISIONABLEValue: Integer; function TArticulosParaClienteDataTableRules.GetCOMISIONABLEValue: SmallInt;
begin begin
result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsInteger; result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt;
end; end;
procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEValue(const aValue: Integer); procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEValue(const aValue: SmallInt);
begin begin
DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsInteger := aValue; DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt := aValue;
end; end;
function TArticulosParaClienteDataTableRules.GetCOMISIONABLEIsNull: boolean; function TArticulosParaClienteDataTableRules.GetCOMISIONABLEIsNull: boolean;
@ -1282,14 +1282,14 @@ begin
DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsVariant := Null;
end; end;
function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEValue: Float; function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEValue: Currency;
begin begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsFloat; result := DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsCurrency;
end; end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_COSTEValue(const aValue: Float); procedure TArticulosParaClienteDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsFloat := aValue; DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsCurrency := aValue;
end; end;
function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEIsNull: boolean; function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEIsNull: boolean;
@ -1303,14 +1303,14 @@ begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsVariant := Null;
end; end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEValue: Float; function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEValue: Currency;
begin begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsFloat; result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsCurrency;
end; end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_PORTEValue(const aValue: Float); procedure TArticulosParaClienteDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsFloat := aValue; DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsCurrency := aValue;
end; end;
function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEIsNull: boolean; function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEIsNull: boolean;
@ -1345,14 +1345,14 @@ begin
DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsVariant := Null;
end; end;
function TArticulosParaClienteDataTableRules.GetPRECIO_NETOValue: Float; function TArticulosParaClienteDataTableRules.GetPRECIO_NETOValue: Currency;
begin begin
result := DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsFloat; result := DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsCurrency;
end; end;
procedure TArticulosParaClienteDataTableRules.SetPRECIO_NETOValue(const aValue: Float); procedure TArticulosParaClienteDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
begin begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsFloat := aValue; DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsCurrency := aValue;
end; end;
function TArticulosParaClienteDataTableRules.GetPRECIO_NETOIsNull: boolean; function TArticulosParaClienteDataTableRules.GetPRECIO_NETOIsNull: boolean;
@ -1366,6 +1366,27 @@ begin
DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsVariant := Null;
end; end;
function TArticulosParaClienteDataTableRules.GetINVENTARIABLEValue: SmallInt;
begin
result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsSmallInt;
end;
procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsSmallInt := aValue;
end;
function TArticulosParaClienteDataTableRules.GetINVENTARIABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetID_PROVEEDORValue: Integer; function TArticulosParaClienteDataTableRules.GetID_PROVEEDORValue: Integer;
begin begin
result := DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsInteger; result := DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsInteger;
@ -1387,27 +1408,6 @@ begin
DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsVariant := Null;
end; end;
function TArticulosParaClienteDataTableRules.GetINVENTARIABLEValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsInteger;
end;
procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsInteger := aValue;
end;
function TArticulosParaClienteDataTableRules.GetINVENTARIABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].IsNull;
end;
procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsVariant := Null;
end;
function TArticulosParaClienteDataTableRules.GetNOMBRE_PROVEEDORValue: String; function TArticulosParaClienteDataTableRules.GetNOMBRE_PROVEEDORValue: String;
begin begin
result := DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsString; result := DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsString;
@ -1429,14 +1429,14 @@ begin
DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsVariant := Null;
end; end;
function TArticulosParaClienteDataTableRules.GetELIMINADOValue: Integer; function TArticulosParaClienteDataTableRules.GetELIMINADOValue: SmallInt;
begin begin
result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsInteger; result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsSmallInt;
end; end;
procedure TArticulosParaClienteDataTableRules.SetELIMINADOValue(const aValue: Integer); procedure TArticulosParaClienteDataTableRules.SetELIMINADOValue(const aValue: SmallInt);
begin begin
DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsInteger := aValue; DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsSmallInt := aValue;
end; end;
function TArticulosParaClienteDataTableRules.GetELIMINADOIsNull: boolean; function TArticulosParaClienteDataTableRules.GetELIMINADOIsNull: boolean;

194
Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ArticulosDelta = '{27D2DEC6-831E-4D4E-9FB6-566A6233B1DA}'; RID_ArticulosDelta = '{1EF85C21-66D6-4680-A910-2679A098D282}';
RID_ArticulosParaClienteDelta = '{EFED0A65-D72E-4828-8980-B4DC2152E2B6}'; RID_ArticulosParaClienteDelta = '{CE4D74E0-1868-4D88-9483-CED9CD6BC658}';
type type
{ IArticulosDelta } { IArticulosDelta }
IArticulosDelta = interface(IArticulos) IArticulosDelta = interface(IArticulos)
['{27D2DEC6-831E-4D4E-9FB6-566A6233B1DA}'] ['{1EF85C21-66D6-4680-A910-2679A098D282}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -266,7 +266,7 @@ type
{ IArticulosParaClienteDelta } { IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente) IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{EFED0A65-D72E-4828-8980-B4DC2152E2B6}'] ['{CE4D74E0-1868-4D88-9483-CED9CD6BC658}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -274,19 +274,19 @@ type
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String; function GetOldFAMILIAValue : String;
function GetOldIMAGENValue : IROStream; function GetOldIMAGENValue : IROStream;
function GetOldCOMISIONABLEValue : Integer; function GetOldCOMISIONABLEValue : SmallInt;
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldREFERENCIA_PROVValue : String; function GetOldREFERENCIA_PROVValue : String;
function GetOldPRECIO_COSTEValue : Float; function GetOldPRECIO_COSTEValue : Currency;
function GetOldPRECIO_PORTEValue : Float; function GetOldPRECIO_PORTEValue : Currency;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
function GetOldPRECIO_NETOValue : Float; function GetOldPRECIO_NETOValue : Currency;
function GetOldINVENTARIABLEValue : SmallInt;
function GetOldID_PROVEEDORValue : Integer; function GetOldID_PROVEEDORValue : Integer;
function GetOldINVENTARIABLEValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String; function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldELIMINADOValue : Integer; function GetOldELIMINADOValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -295,19 +295,19 @@ type
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue; property OldFAMILIA : String read GetOldFAMILIAValue;
property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldIMAGEN : IROStream read GetOldIMAGENValue;
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue; property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldPRECIO_COSTE : Float read GetOldPRECIO_COSTEValue; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_PORTE : Float read GetOldPRECIO_PORTEValue; property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldPRECIO_NETO : Float read GetOldPRECIO_NETOValue; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldELIMINADO : Integer read GetOldELIMINADOValue; property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
end; end;
{ TArticulosParaClienteBusinessProcessorRules } { TArticulosParaClienteBusinessProcessorRules }
@ -352,11 +352,11 @@ type
function GetOldIMAGENValue: IROStream; virtual; function GetOldIMAGENValue: IROStream; virtual;
function GetOldIMAGENIsNull: Boolean; virtual; function GetOldIMAGENIsNull: Boolean; virtual;
procedure SetIMAGENIsNull(const aValue: Boolean); virtual; procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
function GetCOMISIONABLEValue: Integer; virtual; function GetCOMISIONABLEValue: SmallInt; virtual;
function GetCOMISIONABLEIsNull: Boolean; virtual; function GetCOMISIONABLEIsNull: Boolean; virtual;
function GetOldCOMISIONABLEValue: Integer; virtual; function GetOldCOMISIONABLEValue: SmallInt; virtual;
function GetOldCOMISIONABLEIsNull: Boolean; virtual; function GetOldCOMISIONABLEIsNull: Boolean; virtual;
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual; procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual; procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
@ -382,17 +382,17 @@ type
function GetOldREFERENCIA_PROVIsNull: Boolean; virtual; function GetOldREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Float; virtual; function GetPRECIO_COSTEValue: Currency; virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual; function GetPRECIO_COSTEIsNull: Boolean; virtual;
function GetOldPRECIO_COSTEValue: Float; virtual; function GetOldPRECIO_COSTEValue: Currency; virtual;
function GetOldPRECIO_COSTEIsNull: Boolean; virtual; function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Float); virtual; procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Float; virtual; function GetPRECIO_PORTEValue: Currency; virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual; function GetPRECIO_PORTEIsNull: Boolean; virtual;
function GetOldPRECIO_PORTEValue: Float; virtual; function GetOldPRECIO_PORTEValue: Currency; virtual;
function GetOldPRECIO_PORTEIsNull: Boolean; virtual; function GetOldPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Float); virtual; procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual; function GetDESCUENTOValue: Float; virtual;
function GetDESCUENTOIsNull: Boolean; virtual; function GetDESCUENTOIsNull: Boolean; virtual;
@ -400,35 +400,35 @@ type
function GetOldDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Float; virtual; function GetPRECIO_NETOValue: Currency; virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual; function GetPRECIO_NETOIsNull: Boolean; virtual;
function GetOldPRECIO_NETOValue: Float; virtual; function GetOldPRECIO_NETOValue: Currency; virtual;
function GetOldPRECIO_NETOIsNull: Boolean; virtual; function GetOldPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOValue(const aValue: Float); virtual; procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: SmallInt; virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
function GetOldINVENTARIABLEValue: SmallInt; virtual;
function GetOldINVENTARIABLEIsNull: Boolean; virtual;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual; function GetID_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORValue: Integer; virtual;
function GetOldID_PROVEEDORIsNull: Boolean; virtual; function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: Integer; virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
function GetOldINVENTARIABLEValue: Integer; virtual;
function GetOldINVENTARIABLEIsNull: Boolean; virtual;
procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual; function GetNOMBRE_PROVEEDORValue: String; virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
function GetOldNOMBRE_PROVEEDORValue: String; virtual; function GetOldNOMBRE_PROVEEDORValue: String; virtual;
function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual; function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetELIMINADOValue: Integer; virtual; function GetELIMINADOValue: SmallInt; virtual;
function GetELIMINADOIsNull: Boolean; virtual; function GetELIMINADOIsNull: Boolean; virtual;
function GetOldELIMINADOValue: Integer; virtual; function GetOldELIMINADOValue: SmallInt; virtual;
function GetOldELIMINADOIsNull: Boolean; virtual; function GetOldELIMINADOIsNull: Boolean; virtual;
procedure SetELIMINADOValue(const aValue: Integer); virtual; procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
procedure SetELIMINADOIsNull(const aValue: Boolean); virtual; procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
@ -456,9 +456,9 @@ type
property IMAGENIsNull : Boolean read GetIMAGENIsNull write SetIMAGENIsNull; property IMAGENIsNull : Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldIMAGEN : IROStream read GetOldIMAGENValue;
property OldIMAGENIsNull : Boolean read GetOldIMAGENIsNull; property OldIMAGENIsNull : Boolean read GetOldIMAGENIsNull;
property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLE : SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; property COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue; property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue;
property OldCOMISIONABLEIsNull : Boolean read GetOldCOMISIONABLEIsNull; property OldCOMISIONABLEIsNull : Boolean read GetOldCOMISIONABLEIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
@ -476,37 +476,37 @@ type
property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull; property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull;
property PRECIO_COSTE : Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property OldPRECIO_COSTE : Float read GetOldPRECIO_COSTEValue; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull; property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
property PRECIO_PORTE : Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property OldPRECIO_PORTE : Float read GetOldPRECIO_PORTEValue; property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull; property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property PRECIO_NETO : Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property OldPRECIO_NETO : Float read GetOldPRECIO_NETOValue; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull; property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull;
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
property INVENTARIABLE : Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull;
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull; property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull;
property ELIMINADO : Integer read GetELIMINADOValue write SetELIMINADOValue; property ELIMINADO : SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
property OldELIMINADO : Integer read GetOldELIMINADOValue; property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull; property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull;
public public
@ -1342,7 +1342,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := Null;
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEValue: Integer; function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE];
end; end;
@ -1352,7 +1352,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE]);
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer; function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE];
end; end;
@ -1362,7 +1362,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE]);
end; end;
procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer); procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: SmallInt);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE] := aValue;
end; end;
@ -1497,7 +1497,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV] := Null;
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_COSTEValue: Float; function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE];
end; end;
@ -1507,7 +1507,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE]);
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_COSTEValue: Float; function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE];
end; end;
@ -1517,7 +1517,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE]);
end; end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Float); procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := aValue;
end; end;
@ -1528,7 +1528,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := Null;
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PORTEValue: Float; function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PORTEValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE];
end; end;
@ -1538,7 +1538,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE]);
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PORTEValue: Float; function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE];
end; end;
@ -1548,7 +1548,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE]);
end; end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Float); procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE] := aValue;
end; end;
@ -1590,7 +1590,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO] := Null;
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_NETOValue: Float; function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO];
end; end;
@ -1600,7 +1600,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO]);
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_NETOValue: Float; function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO];
end; end;
@ -1610,7 +1610,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO]);
end; end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Float); procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := aValue;
end; end;
@ -1621,6 +1621,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := Null;
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetID_PROVEEDORValue: Integer; function TArticulosParaClienteBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR];
@ -1652,37 +1683,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR] := Null;
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; function TArticulosParaClienteBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR];
@ -1714,7 +1714,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR] := Null;
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetELIMINADOValue: Integer; function TArticulosParaClienteBusinessProcessorRules.GetELIMINADOValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO];
end; end;
@ -1724,7 +1724,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO]);
end; end;
function TArticulosParaClienteBusinessProcessorRules.GetOldELIMINADOValue: Integer; function TArticulosParaClienteBusinessProcessorRules.GetOldELIMINADOValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO];
end; end;
@ -1734,7 +1734,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO]);
end; end;
procedure TArticulosParaClienteBusinessProcessorRules.SetELIMINADOValue(const aValue: Integer); procedure TArticulosParaClienteBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := aValue;
end; end;

35
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -88,6 +88,7 @@ object srvArticulos: TsrvArticulos
GeneratorName = 'GEN_ARTICULOS_ID' GeneratorName = 'GEN_ARTICULOS_ID'
Required = True Required = True
DisplayLabel = 'ID' DisplayLabel = 'ID'
ServerAutoRefresh = True
end end
item item
Name = 'Articulos_ID_EMPRESA' Name = 'Articulos_ID_EMPRESA'
@ -211,6 +212,7 @@ object srvArticulos: TsrvArticulos
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_ID' GeneratorName = 'GEN_ARTICULOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Articulos_ID' DictionaryEntry = 'Articulos_ID'
InPrimaryKey = True InPrimaryKey = True
end end
@ -333,7 +335,7 @@ object srvArticulos: TsrvArticulos
'CULOS.NOMBRE_PROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTI' + 'CULOS.NOMBRE_PROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTI' +
'CULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DT' + 'CULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DT' +
'OS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLI' + 'OS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLI' +
'ENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))' 'ENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10'where {where}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -396,17 +398,18 @@ object srvArticulos: TsrvArticulos
DatasetField = 'PRECIO_NETO' DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO' TableField = 'PRECIO_NETO'
end end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item item
DatasetField = 'ID_PROVEEDOR' DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR'
end end
item item
DatasetField = 'NOMBRE_PROVEEDOR' DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR' TableField = '<unknown>'
end SQLOrigin = 'NOMBRE_PROVEEDOR'
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end end
item item
DatasetField = 'ELIMINADO' DatasetField = 'ELIMINADO'
@ -445,7 +448,7 @@ object srvArticulos: TsrvArticulos
end end
item item
Name = 'COMISIONABLE' Name = 'COMISIONABLE'
DataType = datInteger DataType = datSmallInt
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
@ -458,7 +461,7 @@ object srvArticulos: TsrvArticulos
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 20 Size = 30
end end
item item
Name = 'REFERENCIA_PROV' Name = 'REFERENCIA_PROV'
@ -467,11 +470,11 @@ object srvArticulos: TsrvArticulos
end end
item item
Name = 'PRECIO_COSTE' Name = 'PRECIO_COSTE'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'PRECIO_PORTE' Name = 'PRECIO_PORTE'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
@ -479,14 +482,14 @@ object srvArticulos: TsrvArticulos
end end
item item
Name = 'PRECIO_NETO' Name = 'PRECIO_NETO'
DataType = datFloat DataType = datCurrency
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end end
item item
Name = 'INVENTARIABLE' Name = 'INVENTARIABLE'
DataType = datSmallInt
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger DataType = datInteger
end end
item item
@ -496,7 +499,7 @@ object srvArticulos: TsrvArticulos
end end
item item
Name = 'ELIMINADO' Name = 'ELIMINADO'
DataType = datInteger DataType = datSmallInt
DisplayLabel = 'Eliminado' DisplayLabel = 'Eliminado'
end> end>
end> end>

3
Source/Modulos/Articulos/Views/uEditorArticulos.dfm
View File

@ -2,8 +2,7 @@ inherited fEditorArticulos: TfEditorArticulos
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Lista de art'#237'culos' Caption = 'Lista de art'#237'culos'
ExplicitWidth = 320 ExplicitHeight = 471
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

BIN
Source/Modulos/Articulos/Views/uEditorArticulos.pas
View File

Binary file not shown.

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

@ -80,7 +80,10 @@ end;
procedure TfEditorContactos.ImprimirInterno; procedure TfEditorContactos.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
}
end; end;
procedure TfEditorContactos.ModificarInterno; procedure TfEditorContactos.ModificarInterno;
@ -108,7 +111,10 @@ end;
procedure TfEditorContactos.PrevisualizarInterno; procedure TfEditorContactos.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
}
end; end;
procedure TfEditorContactos.SetContactos(const Value: IBizContacto); procedure TfEditorContactos.SetContactos(const Value: IBizContacto);
@ -146,6 +152,8 @@ procedure TfEditorContactos.DuplicarInterno;
var var
AContacto : IBizContacto; AContacto : IBizContacto;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
AContacto := FController.Duplicar(Contactos); AContacto := FController.Duplicar(Contactos);
try try
@ -153,6 +161,7 @@ begin
finally finally
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorContactos.EliminarInterno; procedure TfEditorContactos.EliminarInterno;

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

@ -128,27 +128,31 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
Properties.OnChange = frViewClienteFacturaedtlNombrePropertiesChange Properties.OnChange = frViewClienteFacturaedtlNombrePropertiesChange
ExplicitWidth = 224
Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 562
Width = 562
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 562
Width = 562
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 177
Width = 177
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 327
Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 192
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitLeft = 192
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
end end
end end
end end

6
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -272,8 +272,11 @@ end;
procedure TfEditorFacturaCliente.ImprimirInterno; procedure TfEditorFacturaCliente.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Print(FFactura); FController.Print(FFactura);
}
end; end;
procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject); procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject);
@ -354,8 +357,11 @@ end;
procedure TfEditorFacturaCliente.PrevisualizarInterno; procedure TfEditorFacturaCliente.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Preview(FFactura); FController.Preview(FFactura);
}
end; end;
procedure TfEditorFacturaCliente.RecalcularPortePorUnidad; procedure TfEditorFacturaCliente.RecalcularPortePorUnidad;

2
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -132,8 +132,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 351 Left = 351
ExplicitLeft = 351 ExplicitLeft = 351
ExplicitWidth = 273
Width = 273
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

9
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -132,6 +132,8 @@ procedure TfEditorFacturasCliente.DuplicarInterno;
var var
AFactura : IBizFacturaCliente; AFactura : IBizFacturaCliente;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
AFactura := FController.Duplicar(FFacturas); AFactura := FController.Duplicar(FFacturas);
try try
@ -139,6 +141,7 @@ begin
finally finally
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorFacturasCliente.EliminarInterno; procedure TfEditorFacturasCliente.EliminarInterno;
@ -226,6 +229,8 @@ var
AFacturas: IBizFacturaCliente; AFacturas: IBizFacturaCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
@ -259,6 +264,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorFacturasCliente.ModificarInterno; procedure TfEditorFacturasCliente.ModificarInterno;
@ -326,6 +332,8 @@ var
AFacturas: IBizFacturaCliente; AFacturas: IBizFacturaCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
@ -359,6 +367,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorFacturasCliente.SetController(const Value: IFacturasClienteController); procedure TfEditorFacturasCliente.SetController(const Value: IFacturasClienteController);

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

@ -69,8 +69,9 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 19 Size = 255
DisplayLabel = 'Situaci'#243'n' DisplayLabel = 'Situaci'#243'n'
DictionaryEntry = 'FacturasProveedor_SITUACION'
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'

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

@ -3,15 +3,15 @@ unit schFacturasProveedorClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarReferencia = '{826E1F5B-DFC3-443B-805B-15E4AA3230F0}'; RID_DarReferencia = '{5C2671F2-30A9-40DF-85EB-DAC3E5798C81}';
RID_FacturasProveedor = '{30C7FC95-DE01-4C7E-B25E-20E5E04A22FA}'; RID_FacturasProveedor = '{EB88CFA6-A4F3-44A5-99AC-CEEF636BBC0F}';
RID_FacturasProveedor_Detalles = '{C7D28D9D-3ADF-44EC-9DBE-0D0335BB8A68}'; RID_FacturasProveedor_Detalles = '{794BFE28-FCFA-451E-809D-4B3204729DB8}';
{ Data table names } { Data table names }
nme_DarReferencia = 'DarReferencia'; nme_DarReferencia = 'DarReferencia';
@ -125,7 +125,7 @@ const
type type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{B0A9E9AF-549D-4C33-B732-7EB4279EA307}'] ['{2CD8615C-AC9E-463D-A28B-9DF7EA71C261}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -139,7 +139,7 @@ type
end; end;
{ TDarReferenciaDataTableRules } { TDarReferenciaDataTableRules }
TDarReferenciaDataTableRules = class(TDADataTableRules, IDarReferencia) TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -160,7 +160,7 @@ type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{3F3A19B3-F087-49DE-AA30-7F1FA3D42A26}'] ['{19ADA8D8-BA53-426F-9AFA-700B29166843}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -353,7 +353,7 @@ type
end; end;
{ TFacturasProveedorDataTableRules } { TFacturasProveedorDataTableRules }
TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor) TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -555,7 +555,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{EC5E7C3F-3C86-46DC-B3A4-767E65B3BC78}'] ['{8C420A12-5489-4872-A3A6-9DE83225D778}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -647,7 +647,7 @@ type
end; end;
{ TFacturasProveedor_DetallesDataTableRules } { TFacturasProveedor_DetallesDataTableRules }
TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles) TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

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

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarReferenciaDelta = '{CFCEEBAB-2BF1-4B6A-9654-0B4C8759C4AB}'; RID_DarReferenciaDelta = '{29799EE8-6169-4A26-9C4C-02C33D658D97}';
RID_FacturasProveedorDelta = '{B1A74B0E-6EED-46D2-A083-FB3DCE87EA6D}'; RID_FacturasProveedorDelta = '{90E2FE05-93D9-4478-B54E-73618BD635BF}';
RID_FacturasProveedor_DetallesDelta = '{DCDF70C0-FF75-44A1-9878-8B088A24A18A}'; RID_FacturasProveedor_DetallesDelta = '{9215693E-0AA6-46A8-AD7B-3EAE75F51EFE}';
type type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{CFCEEBAB-2BF1-4B6A-9654-0B4C8759C4AB}'] ['{29799EE8-6169-4A26-9C4C-02C33D658D97}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{B1A74B0E-6EED-46D2-A083-FB3DCE87EA6D}'] ['{90E2FE05-93D9-4478-B54E-73618BD635BF}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -445,7 +445,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{DCDF70C0-FF75-44A1-9878-8B088A24A18A}'] ['{9215693E-0AA6-46A8-AD7B-3EAE75F51EFE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;

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

@ -225,8 +225,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 19 Size = 255
DisplayLabel = 'Situaci'#243'n' DictionaryEntry = 'FacturasProveedor_SITUACION'
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
@ -361,6 +361,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'FACTURAS_PROVEEDOR_DETALLES'
SQL = SQL =
'SELECT'#10' FACTURAS_PROVEEDOR_DETALLES.ID, FACTURAS_PROVEEDOR_DE' + 'SELECT'#10' FACTURAS_PROVEEDOR_DETALLES.ID, FACTURAS_PROVEEDOR_DE' +
'TALLES.ID_FACTURA,'#10' FACTURAS_PROVEEDOR_DETALLES.POSICION, FAC' + 'TALLES.ID_FACTURA,'#10' FACTURAS_PROVEEDOR_DETALLES.POSICION, FAC' +
@ -426,11 +427,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end end
item item
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end end
item item
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end> end>
end> end>
Name = 'FacturasProveedor_Detalles' Name = 'FacturasProveedor_Detalles'

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

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

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

@ -267,8 +267,11 @@ end;
procedure TfEditorFacturaProveedor.ImprimirInterno; procedure TfEditorFacturaProveedor.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Print(FFactura); FController.Print(FFactura);
}
end; end;
procedure TfEditorFacturaProveedor.OnProveedorChanged(Sender: TObject); procedure TfEditorFacturaProveedor.OnProveedorChanged(Sender: TObject);
@ -348,8 +351,11 @@ end;
procedure TfEditorFacturaProveedor.PrevisualizarInterno; procedure TfEditorFacturaProveedor.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Preview(FFactura); FController.Preview(FFactura);
}
end; end;
procedure TfEditorFacturaProveedor.RecalcularPortePorUnidad; procedure TfEditorFacturaProveedor.RecalcularPortePorUnidad;

2
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
ClientHeight = 666 ClientHeight = 666
ClientWidth = 640 ClientWidth = 640
ExplicitWidth = 648 ExplicitWidth = 648
ExplicitHeight = 700 ExplicitHeight = 693
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

11
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

@ -12,7 +12,7 @@ uses
uEditorGridBase, uBizFacturasProveedor, uIEditorFacturasProveedor, uEditorGridBase, uBizFacturasProveedor, uIEditorFacturasProveedor,
uFacturasProveedorController, uCustomView, uViewBase, uViewBarraSeleccion, uFacturasProveedorController, uCustomView, uViewBase, uViewBarraSeleccion,
uViewGridBase, JvExComCtrls, JvStatusBar, JSDialog, uViewGridBase, JvExComCtrls, JvStatusBar, JSDialog,
uViewFacturasProveedor; uViewFacturasProveedor, uDAInterfaces;
type type
@ -139,6 +139,8 @@ procedure TfEditorFacturasProveedor.DuplicarInterno;
var var
AFactura : IBizFacturaProveedor; AFactura : IBizFacturaProveedor;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
AFactura := FController.Duplicar(FFacturas); AFactura := FController.Duplicar(FFacturas);
try try
@ -146,6 +148,7 @@ begin
finally finally
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorFacturasProveedor.EliminarInterno; procedure TfEditorFacturasProveedor.EliminarInterno;
@ -233,6 +236,8 @@ var
AFacturas: IBizFacturaProveedor; AFacturas: IBizFacturaProveedor;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
@ -266,6 +271,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorFacturasProveedor.ModificarInterno; procedure TfEditorFacturasProveedor.ModificarInterno;
@ -332,6 +338,8 @@ var
AFacturas: IBizFacturaProveedor; AFacturas: IBizFacturaProveedor;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
@ -365,6 +373,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorFacturasProveedor.SetController(const Value: IFacturasProveedorController); procedure TfEditorFacturasProveedor.SetController(const Value: IFacturasProveedorController);

6
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

@ -165,14 +165,16 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Width = 531 Width = 531
ExplicitWidth = 531 ExplicitWidth = 531
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 244 ExplicitWidth = 273
Width = 244 Width = 273
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531 Width = 531
ExplicitWidth = 531
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 521 Width = 521
ExplicitWidth = 521
end end
end end
end end

2
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
View File

@ -13,7 +13,7 @@ uses
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
cxImage, Grids, DBGrids, uBizFacturasProveedor, cxGridCustomPopupMenu, cxImage, Grids, DBGrids, uBizFacturasProveedor, cxGridCustomPopupMenu,
cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX, cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg; TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
type type
IViewFacturasProveedor = interface(IViewGrid) IViewFacturasProveedor = interface(IViewGrid)

6
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
View File

@ -6,7 +6,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ClientWidth = 765 ClientWidth = 765
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 651 ExplicitHeight = 644
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -123,10 +123,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasProv: TfrViewIncidencias inline frViewIncidenciasProv: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0

6
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
View File

@ -198,8 +198,11 @@ end;
procedure TfEditorPedidoProveedor.ImprimirInterno; procedure TfEditorPedidoProveedor.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Print(FPedido); FController.Print(FPedido);
}
end; end;
procedure TfEditorPedidoProveedor.OnProveedorChanged(Sender: TObject); procedure TfEditorPedidoProveedor.OnProveedorChanged(Sender: TObject);
@ -243,8 +246,11 @@ end;
procedure TfEditorPedidoProveedor.PrevisualizarInterno; procedure TfEditorPedidoProveedor.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Preview(FPedido); FController.Preview(FPedido);
}
end; end;
procedure TfEditorPedidoProveedor.RecalcularPortePorUnidad; procedure TfEditorPedidoProveedor.RecalcularPortePorUnidad;

4
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
ClientWidth = 700 ClientWidth = 700
Position = poDesigned Position = poDesigned
ExplicitWidth = 708 ExplicitWidth = 708
ExplicitHeight = 240 ExplicitHeight = 471
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -128,8 +128,6 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 349 Left = 349
ExplicitLeft = 349 ExplicitLeft = 349
ExplicitWidth = 335
Width = 335
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

15
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
View File

@ -71,8 +71,11 @@ uses
} }
procedure TfEditorPedidosProveedor.actCambiarSituacionExecute(Sender: TObject); procedure TfEditorPedidosProveedor.actCambiarSituacionExecute(Sender: TObject);
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.CambiarSituacion(FPedidos) FController.CambiarSituacion(FPedidos)
}
end; end;
procedure TfEditorPedidosProveedor.actEliminarUpdate(Sender: TObject); procedure TfEditorPedidosProveedor.actEliminarUpdate(Sender: TObject);
@ -84,9 +87,12 @@ end;
procedure TfEditorPedidosProveedor.actRecibirPedidoExecute(Sender: TObject); procedure TfEditorPedidosProveedor.actRecibirPedidoExecute(Sender: TObject);
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
// RecibirPedidoProv(FPedidos); // RecibirPedidoProv(FPedidos);
actRefrescar.Execute; actRefrescar.Execute;
}
end; end;
procedure TfEditorPedidosProveedor.actRecibirPedidoUpdate(Sender: TObject); procedure TfEditorPedidosProveedor.actRecibirPedidoUpdate(Sender: TObject);
@ -115,6 +121,8 @@ procedure TfEditorPedidosProveedor.DuplicarInterno;
var var
APedido : IBizPedidoProveedor; APedido : IBizPedidoProveedor;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
APedido := FController.Duplicar(Pedidos); APedido := FController.Duplicar(Pedidos);
try try
@ -122,6 +130,7 @@ begin
finally finally
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorPedidosProveedor.EliminarInterno; procedure TfEditorPedidosProveedor.EliminarInterno;
@ -203,6 +212,8 @@ var
APedidos: IBizPedidoProveedor; APedidos: IBizPedidoProveedor;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
APedidos := Nil; APedidos := Nil;
AllItems := False; AllItems := False;
@ -236,6 +247,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorPedidosProveedor.ModificarInterno; procedure TfEditorPedidosProveedor.ModificarInterno;
@ -283,6 +295,8 @@ var
APedidos: IBizPedidoProveedor; APedidos: IBizPedidoProveedor;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
APedidos := Nil; APedidos := Nil;
AllItems := False; AllItems := False;
@ -316,6 +330,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorPedidosProveedor.SetController(const Value: IPedidosProveedorController); procedure TfEditorPedidosProveedor.SetController(const Value: IPedidosProveedorController);

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

@ -466,7 +466,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
if not APresupuesto.DataTable.Active then if not APresupuesto.DataTable.Active then
APresupuesto.DataTable.Active := True; APresupuesto.DataTable.Active := True;
if (APresupuesto.State in dsEditModes) then if (APresupuesto.State in dsEditModes) then
APresupuesto.Cancel; APresupuesto.Cancel;

19
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -30,6 +30,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID' GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
Required = True
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'PresupuestosCliente_ID' DictionaryEntry = 'PresupuestosCliente_ID'
InPrimaryKey = True InPrimaryKey = True
@ -62,7 +63,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Situaci'#243'n' DisplayLabel = 'Situaci'#195#179'n'
DictionaryEntry = 'PresupuestosCliente_SITUACION' DictionaryEntry = 'PresupuestosCliente_SITUACION'
end end
item item
@ -211,14 +212,14 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PresupuestosCliente' LogicalName = 'PresupuestosCliente'
IndexDefs = <> IndexDefs = <>
Left = 232 Left = 248
Top = 104 Top = 88
end end
object ds_PresupuestosCliente: TDADataSource object ds_PresupuestosCliente: TDADataSource
DataSet = tbl_PresupuestosCliente.Dataset DataSet = tbl_PresupuestosCliente.Dataset
DataTable = tbl_PresupuestosCliente DataTable = tbl_PresupuestosCliente
Left = 232 Left = 248
Top = 40 Top = 32
end end
object tbl_PresupuestosCliente_Detalles: TDAMemDataTable object tbl_PresupuestosCliente_Detalles: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
@ -322,13 +323,13 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PresupuestosCliente_Detalles' LogicalName = 'PresupuestosCliente_Detalles'
IndexDefs = <> IndexDefs = <>
Left = 440 Left = 464
Top = 96 Top = 88
end end
object ds_PresupuestosCliente_Detalles: TDADataSource object ds_PresupuestosCliente_Detalles: TDADataSource
DataSet = tbl_PresupuestosCliente_Detalles.Dataset DataSet = tbl_PresupuestosCliente_Detalles.Dataset
DataTable = tbl_PresupuestosCliente_Detalles DataTable = tbl_PresupuestosCliente_Detalles
Left = 440 Left = 464
Top = 40 Top = 32
end end
end end

12
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarReferencia = '{0E25C9EE-290E-48B3-A135-C7C7128DF9B8}'; RID_DarReferencia = '{6594B31A-A292-486E-A784-AF4659E1A953}';
RID_PresupuestosCliente = '{632FC123-90B6-4E44-A24C-D67715FFFA86}'; RID_PresupuestosCliente = '{13857C95-50E8-4EF5-8544-ABFCE393A83E}';
RID_PresupuestosCliente_Detalles = '{4D48AE43-3E5E-4D41-A619-4D7873065407}'; RID_PresupuestosCliente_Detalles = '{FE4E1E48-710A-404F-B2DD-4547549B420D}';
{ Data table names } { Data table names }
nme_DarReferencia = 'DarReferencia'; nme_DarReferencia = 'DarReferencia';
@ -119,7 +119,7 @@ const
type type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{7779EF23-3D43-4609-8A92-378D0BC8126E}'] ['{D7753D57-71A2-4C4D-A580-8D58520FCFD3}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -154,7 +154,7 @@ type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{BA5CD1DE-F008-446F-A424-67B2F318DB01}'] ['{4FCC9A5F-7A94-4A3A-940A-4CA0D4176EDB}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -513,7 +513,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{257BE485-4D3D-4312-ACF2-6047EFDB96D6}'] ['{5B7F200F-3962-455D-98BB-A24DE98BD18B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

12
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarReferenciaDelta = '{FC7E5FD9-9CC1-4026-BA08-1DF06F3D1D5E}'; RID_DarReferenciaDelta = '{0B34135E-0FB6-4CBA-AF23-A26B88542C10}';
RID_PresupuestosClienteDelta = '{E2147326-69DE-4FBD-8CAE-8C01530544F7}'; RID_PresupuestosClienteDelta = '{847B43BF-5186-406F-92E6-2135D35EF01F}';
RID_PresupuestosCliente_DetallesDelta = '{AD363AEF-96FD-49CE-B096-8080CE467488}'; RID_PresupuestosCliente_DetallesDelta = '{1DA22D38-0DB5-450C-AF43-3F7F4D2EA56E}';
type type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{FC7E5FD9-9CC1-4026-BA08-1DF06F3D1D5E}'] ['{0B34135E-0FB6-4CBA-AF23-A26B88542C10}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -50,7 +50,7 @@ type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{E2147326-69DE-4FBD-8CAE-8C01530544F7}'] ['{847B43BF-5186-406F-92E6-2135D35EF01F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -412,7 +412,7 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{AD363AEF-96FD-49CE-B096-8080CE467488}'] ['{1DA22D38-0DB5-450C-AF43-3F7F4D2EA56E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;

15
Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
View File

@ -15,10 +15,7 @@ type
TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente) TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente)
protected protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override; procedure BeforeInsert(Sender: TDADataTable); override;
public
constructor Create(aDataTable: TDADataTable); override;
end; end;
@ -27,7 +24,7 @@ implementation
{ TBizDetallesPresupuestoCliente } { TBizDetallesPresupuestoCliente }
uses uses
DB, uDataTableUtils; DB;
procedure TBizDetallesPresupuestoCliente.BeforeInsert(Sender: TDADataTable); procedure TBizDetallesPresupuestoCliente.BeforeInsert(Sender: TDADataTable);
@ -40,16 +37,6 @@ begin
AMasterTable.Post; AMasterTable.Post;
end; end;
constructor TBizDetallesPresupuestoCliente.Create(aDataTable: TDADataTable);
begin
inherited Create(aDataTable);
end;
procedure TBizDetallesPresupuestoCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO_CLIENTE, TBizDetallesPresupuestoCliente); RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO_CLIENTE, TBizDetallesPresupuestoCliente);

2
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -30,6 +30,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Connection = 'IBX' Connection = 'IBX'
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
TargetTable = 'REFERENCIAS'
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'SELECT VALOR'#10'FROM REFERENCIAS'#10'WHERE CODIGO = :CODIGO'#10'AND ID_EMPR' + 'SELECT VALOR'#10'FROM REFERENCIAS'#10'WHERE CODIGO = :CODIGO'#10'AND ID_EMPR' +
@ -1030,6 +1031,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'PresupuestosCliente_ID' Name = 'PresupuestosCliente_ID'
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID' GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
Required = True
DisplayLabel = 'ID' DisplayLabel = 'ID'
ServerAutoRefresh = True ServerAutoRefresh = True
end end

63
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -12,7 +12,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 674 Width = 674
Caption = 'Nuevo pedido de cliente' Caption = 'Nuevo pedido de cliente'
ExplicitWidth = 632 ExplicitWidth = 674
inherited Image1: TImage inherited Image1: TImage
Left = 647 Left = 647
Picture.Data = { Picture.Data = {
@ -127,7 +127,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 674 Width = 674
ExplicitWidth = 632 ExplicitWidth = 674
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -147,22 +147,19 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 674 Width = 674
Height = 465 Height = 465
ActivePage = pagPortada
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 632 ExplicitWidth = 674
ExplicitHeight = 442 ExplicitHeight = 465
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 624 ExplicitWidth = 666
ExplicitHeight = 414 ExplicitHeight = 437
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 624
ExplicitHeight = 414
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -179,11 +176,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 624 ExplicitWidth = 666
ExplicitHeight = 414 ExplicitHeight = 437
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 666 Width = 666
ExplicitWidth = 624 ExplicitWidth = 666
inherited FontSize: TEdit inherited FontSize: TEdit
Width = 57 Width = 57
ExplicitWidth = 57 ExplicitWidth = 57
@ -228,8 +225,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 666 Width = 666
Height = 365 Height = 365
ExplicitWidth = 624 ExplicitWidth = 666
ExplicitHeight = 342 ExplicitHeight = 365
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 666 Width = 666
@ -243,8 +240,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitWidth = 624
ExplicitHeight = 414
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -259,8 +254,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 624 ExplicitWidth = 666
ExplicitHeight = 414 ExplicitHeight = 437
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 666 Width = 666
ExplicitWidth = 624 ExplicitWidth = 624
@ -271,11 +266,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 666 Width = 666
Height = 409 Height = 409
ExplicitWidth = 624 ExplicitWidth = 666
ExplicitHeight = 386 ExplicitHeight = 409
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 601 ExplicitWidth = 643
ExplicitHeight = 353 ExplicitHeight = 376
Height = 376 Height = 376
Width = 643 Width = 643
end end
@ -285,8 +280,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagPortada: TTabSheet object pagPortada: TTabSheet
Caption = 'Portada' Caption = 'Portada'
ImageIndex = 3 ImageIndex = 3
ExplicitWidth = 624
ExplicitHeight = 414
object edtPortada: TcxDBRichEdit object edtPortada: TcxDBRichEdit
Left = 0 Left = 0
Top = 0 Top = 0
@ -294,10 +287,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
DataBinding.DataField = 'PORTADA' DataBinding.DataField = 'PORTADA'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
TabOrder = 0 TabOrder = 0
ExplicitLeft = 304
ExplicitTop = 288
ExplicitWidth = 185
ExplicitHeight = 89
Height = 437 Height = 437
Width = 666 Width = 666
end end
@ -305,8 +294,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagMemoria: TTabSheet object pagMemoria: TTabSheet
Caption = 'Memoria' Caption = 'Memoria'
ImageIndex = 4 ImageIndex = 4
ExplicitWidth = 624 ExplicitLeft = 0
ExplicitHeight = 414 ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxDBMemo1: TcxDBMemo object cxDBMemo1: TcxDBMemo
Left = 0 Left = 0
Top = 0 Top = 0
@ -314,8 +305,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
DataBinding.DataField = 'MEMORIA' DataBinding.DataField = 'MEMORIA'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
TabOrder = 0 TabOrder = 0
ExplicitWidth = 624
ExplicitHeight = 414
Height = 437 Height = 437
Width = 666 Width = 666
end end
@ -328,8 +317,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 589 ExplicitTop = 612
ExplicitWidth = 632 ExplicitWidth = 674
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
@ -345,14 +334,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 518 ExplicitTop = 541
ExplicitWidth = 632 ExplicitWidth = 674
ExplicitHeight = 71 ExplicitHeight = 71
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 674 Width = 674
Height = 171 Height = 171
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 632 ExplicitWidth = 674
ExplicitHeight = 171 ExplicitHeight = 171
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 93 Left = 93

6
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -201,9 +201,12 @@ end;
procedure TfEditorPresupuestoCliente.ImprimirInterno; procedure TfEditorPresupuestoCliente.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
if not Modified then if not Modified then
FController.Print(FPresupuesto); FController.Print(FPresupuesto);
}
end; end;
procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject); procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
@ -287,9 +290,12 @@ end;
procedure TfEditorPresupuestoCliente.PrevisualizarInterno; procedure TfEditorPresupuestoCliente.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
if not Modified then if not Modified then
FController.Preview(FPresupuesto); FController.Preview(FPresupuesto);
}
end; end;
procedure TfEditorPresupuestoCliente.RecalcularPortePorUnidad; procedure TfEditorPresupuestoCliente.RecalcularPortePorUnidad;

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

@ -1,5 +1,5 @@
inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Caption = 'Lista de pedidos de cliente' Caption = 'Lista de presupuestos de cliente'
ClientWidth = 674 ClientWidth = 674
ExplicitWidth = 682 ExplicitWidth = 682
ExplicitHeight = 471 ExplicitHeight = 471
@ -7,7 +7,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 674 Width = 674
Caption = 'Lista de pedidos de cliente' Caption = 'Lista de presupuestos de cliente'
ExplicitWidth = 674 ExplicitWidth = 674
inherited Image1: TImage inherited Image1: TImage
Left = 647 Left = 647

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

@ -104,6 +104,8 @@ procedure TfEditorPresupuestosCliente.actGenerarExecute(Sender: TObject);
var var
Respuesta : Integer; Respuesta : Integer;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
Respuesta := JsGenerarDialog.Execute; Respuesta := JsGenerarDialog.Execute;
@ -120,6 +122,7 @@ begin
end; end;
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorPresupuestosCliente.actGenerarFacturaExecute(Sender: TObject); procedure TfEditorPresupuestosCliente.actGenerarFacturaExecute(Sender: TObject);
@ -189,6 +192,8 @@ procedure TfEditorPresupuestosCliente.DuplicarInterno;
var var
APresupuesto : IBizPresupuestoCliente; APresupuesto : IBizPresupuestoCliente;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
APresupuesto := FController.Duplicar(Presupuestos); APresupuesto := FController.Duplicar(Presupuestos);
try try
@ -196,6 +201,7 @@ begin
finally finally
actRefrescar.Execute; actRefrescar.Execute;
end; end;
}
end; end;
procedure TfEditorPresupuestosCliente.EliminarInterno; procedure TfEditorPresupuestosCliente.EliminarInterno;
@ -277,6 +283,8 @@ var
APresupuestos: IBizPresupuestoCliente; APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
APresupuestos := Nil; APresupuestos := Nil;
AllItems := False; AllItems := False;
@ -310,6 +318,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorPresupuestosCliente.ModificarInterno; procedure TfEditorPresupuestosCliente.ModificarInterno;
@ -339,6 +348,8 @@ var
APresupuestos: IBizPresupuestoCliente; APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
APresupuestos := Nil; APresupuestos := Nil;
AllItems := False; AllItems := False;
@ -373,6 +384,7 @@ begin
end; end;
end; end;
APresupuestos := Nil; APresupuestos := Nil;
}
end; end;
procedure TfEditorPresupuestosCliente.SetController(const Value: IPresupuestosClienteController); procedure TfEditorPresupuestosCliente.SetController(const Value: IPresupuestosClienteController);

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

@ -71,7 +71,7 @@ type
implementation implementation
uses schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase; uses schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase, uFactuGES_App;
{$R *.dfm} {$R *.dfm}
@ -264,8 +264,11 @@ end;
procedure TfEditorReciboCliente.ImprimirInterno; procedure TfEditorReciboCliente.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Print(FRecibo); FController.Print(FRecibo);
}
end; end;
procedure TfEditorReciboCliente.JvFormStorageRestorePlacement(Sender: TObject); procedure TfEditorReciboCliente.JvFormStorageRestorePlacement(Sender: TObject);
@ -303,8 +306,11 @@ end;
procedure TfEditorReciboCliente.PrevisualizarInterno; procedure TfEditorReciboCliente.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Preview(FRecibo); FController.Preview(FRecibo);
}
end; end;
procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteController); procedure TfEditorReciboCliente.SetController(const Value: IRecibosClienteController);

5
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ClientHeight = 561 ClientHeight = 561
ClientWidth = 645 ClientWidth = 645
ExplicitWidth = 653 ExplicitWidth = 653
ExplicitHeight = 595 ExplicitHeight = 588
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -116,19 +116,16 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ExplicitWidth = 645 ExplicitWidth = 645
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 ExplicitWidth = 273
ExplicitHeight = 24
Width = 273 Width = 273
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 ExplicitWidth = 121
ExplicitHeight = 24
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 298 Left = 298
ExplicitLeft = 298 ExplicitLeft = 298
ExplicitWidth = 244 ExplicitWidth = 244
ExplicitHeight = 24
Width = 244 Width = 244
end end
end end

7
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
View File

@ -136,6 +136,8 @@ var
ARecibosCliente: IBizRecibosCliente; ARecibosCliente: IBizRecibosCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
ARecibosCliente := Nil; ARecibosCliente := Nil;
AllItems := False; AllItems := False;
@ -169,6 +171,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorRecibosCliente.ModificarInterno; procedure TfEditorRecibosCliente.ModificarInterno;
@ -198,6 +201,8 @@ var
ARecibosCliente: IBizRecibosCliente; ARecibosCliente: IBizRecibosCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
ARecibosCliente := Nil; ARecibosCliente := Nil;
AllItems := False; AllItems := False;
@ -231,6 +236,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorRecibosCliente.SetController(const Value: IRecibosClienteController); procedure TfEditorRecibosCliente.SetController(const Value: IRecibosClienteController);
@ -247,4 +253,3 @@ begin
end; end;
end. end.

20
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schRecibosProveedorClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProv = '{C20FA67E-00AF-431D-B1C2-15B709411BFB}'; RID_RecibosCompensadosProv = '{038EB6D0-2F4B-45EA-9008-1869EF2AD2A7}';
RID_RecibosProveedor = '{FDD5DFD3-6416-4A13-98F9-66BDA473A4ED}'; RID_RecibosProveedor = '{520783CC-3FA1-47AD-9EB5-8864F919B8B5}';
RID_PagosProveedor = '{E9D1C3DE-3EF4-417E-AD98-EBCB898DA155}'; RID_PagosProveedor = '{5C9C9069-2E1F-4CD6-ACAC-B12F74426DB4}';
{ Data table names } { Data table names }
nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; nme_RecibosCompensadosProv = 'RecibosCompensadosProv';
@ -181,7 +181,7 @@ const
type type
{ IRecibosCompensadosProv } { IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
['{425DC91D-22EB-4D8C-9EFB-6CCCEC303DCE}'] ['{61E35D46-8AB4-49CA-A4EF-F940AB11A43D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -375,7 +375,7 @@ type
end; end;
{ TRecibosCompensadosProvDataTableRules } { TRecibosCompensadosProvDataTableRules }
TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv) TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -576,7 +576,7 @@ type
{ IRecibosProveedor } { IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable) IRecibosProveedor = interface(IDAStronglyTypedDataTable)
['{9F702C65-C284-46AB-A30E-C253173CFBCE}'] ['{DCA30451-7CE9-4A08-991B-213799064ED6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -770,7 +770,7 @@ type
end; end;
{ TRecibosProveedorDataTableRules } { TRecibosProveedorDataTableRules }
TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor) TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -971,7 +971,7 @@ type
{ IPagosProveedor } { IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable) IPagosProveedor = interface(IDAStronglyTypedDataTable)
['{D148FD3F-8593-481D-B8D2-27FDFA246E7B}'] ['{16059EDF-B6FC-4A68-8505-CA9173A8EB5C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1051,7 +1051,7 @@ type
end; end;
{ TPagosProveedorDataTableRules } { TPagosProveedorDataTableRules }
TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor) TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

12
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProvDelta = '{70FD873D-B8A4-48FF-91B4-78E5A8061DB7}'; RID_RecibosCompensadosProvDelta = '{7D64E436-4A62-4815-9B17-18188D7EB661}';
RID_RecibosProveedorDelta = '{960F5E67-31CD-44FB-A6DD-0FC4610157EC}'; RID_RecibosProveedorDelta = '{8CC4F287-B555-4CB1-B413-10F941E621CF}';
RID_PagosProveedorDelta = '{3955ECBE-60F2-47AB-AD32-7B878B1CA0C7}'; RID_PagosProveedorDelta = '{C62DC80C-8A6A-4FC1-899E-4A97895130AC}';
type type
{ IRecibosCompensadosProvDelta } { IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{70FD873D-B8A4-48FF-91B4-78E5A8061DB7}'] ['{7D64E436-4A62-4815-9B17-18188D7EB661}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -410,7 +410,7 @@ type
{ IRecibosProveedorDelta } { IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor) IRecibosProveedorDelta = interface(IRecibosProveedor)
['{960F5E67-31CD-44FB-A6DD-0FC4610157EC}'] ['{8CC4F287-B555-4CB1-B413-10F941E621CF}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -804,7 +804,7 @@ type
{ IPagosProveedorDelta } { IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor) IPagosProveedorDelta = interface(IPagosProveedor)
['{3955ECBE-60F2-47AB-AD32-7B878B1CA0C7}'] ['{C62DC80C-8A6A-4FC1-899E-4A97895130AC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;

43
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
View File

@ -460,7 +460,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 9
DictionaryEntry = 'RecibosProveedor_SITUACION' DictionaryEntry = 'RecibosProveedor_SITUACION'
end end
item item
@ -1384,7 +1384,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item item
Name = 'RecibosProveedor_SITUACION' Name = 'RecibosProveedor_SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 9
DisplayLabel = 'SITUACION' DisplayLabel = 'SITUACION'
end end
item item
@ -1470,45 +1470,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Size = 20 Size = 20
DisplayLabel = 'USUARIO' DisplayLabel = 'USUARIO'
end end
item
Name = 'RecibosProveedor_Refresh_FECHA_EMISION'
DataType = datDateTime
DisplayLabel = 'FECHA_EMISION'
end
item
Name = 'RecibosProveedor_Refresh_ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'RecibosProveedor_Refresh_NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'RecibosProveedor_Refresh_NIF_CIF_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'RecibosProveedor_Refresh_ENTIDAD_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'RecibosProveedor_Refresh_SUCURSAL_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'RecibosProveedor_Refresh_DC_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'RecibosProveedor_Refresh_CUENTA_PROVEEDOR'
DataType = datString
Size = 15
end
item item
Name = 'RecibosProveedor_USUARIO' Name = 'RecibosProveedor_USUARIO'
DataType = datString DataType = datString

51
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj
View File

@ -39,57 +39,17 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">RecibosProveedor_view.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="RecibosProveedor_view.dpk"> <DelphiCompile Include="RecibosProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" /> <DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="RecibosProveedor_controller.dcp" /> <DCCReference Include="..\RecibosProveedor_controller.dcp" />
<DCCReference Include="RecibosProveedor_model.dcp" /> <DCCReference Include="..\RecibosProveedor_model.dcp" />
<DCCReference Include="uEditorElegirRecibosProveedor.pas"> <DCCReference Include="uEditorElegirRecibosProveedor.pas">
<Form>fEditorElegirRecibosProveedor</Form> <Form>fEditorElegirRecibosProveedor</Form>
<DesignClass>TfEditorElegirRecibosProveedor</DesignClass> <DesignClass>TfEditorElegirRecibosProveedor</DesignClass>
@ -132,7 +92,6 @@
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

22
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.rc
View File

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

BIN
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res
View File

Binary file not shown.

15
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
View File

@ -4,7 +4,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ClientWidth = 691 ClientWidth = 691
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 699 ExplicitWidth = 699
ExplicitHeight = 588 ExplicitHeight = 581
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -78,6 +78,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 683 Width = 683
Height = 350 Height = 350
ExplicitWidth = 683 ExplicitWidth = 683
ExplicitHeight = 350
DesignSize = ( DesignSize = (
683 683
350) 350)
@ -256,6 +257,18 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 683 Width = 683
ExplicitWidth = 683 ExplicitWidth = 683
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
ExplicitWidth = 98 ExplicitWidth = 98
end end

11
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
View File

@ -10,7 +10,8 @@ uses
pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboProveedor, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboProveedor,
uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController, uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController,
uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData, uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData,
uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes; uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes,
uDAInterfaces;
type type
TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor) TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor)
@ -69,7 +70,7 @@ type
implementation implementation
uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase; uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase, uFactuGES_App;
{$R *.dfm} {$R *.dfm}
@ -245,8 +246,11 @@ end;
procedure TfEditorReciboProveedor.ImprimirInterno; procedure TfEditorReciboProveedor.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Print(FRecibo); FController.Print(FRecibo);
}
end; end;
procedure TfEditorReciboProveedor.JvFormStorageRestorePlacement(Sender: TObject); procedure TfEditorReciboProveedor.JvFormStorageRestorePlacement(Sender: TObject);
@ -284,8 +288,11 @@ end;
procedure TfEditorReciboProveedor.PrevisualizarInterno; procedure TfEditorReciboProveedor.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Preview(FRecibo); FController.Preview(FRecibo);
}
end; end;
procedure TfEditorReciboProveedor.SetController(const Value: IRecibosProveedorController); procedure TfEditorReciboProveedor.SetController(const Value: IRecibosProveedorController);

10
Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm
View File

@ -17,8 +17,6 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 392
ExplicitHeight = 189
object ListaPagosProveedor: TcxGrid object ListaPagosProveedor: TcxGrid
Left = 22 Left = 22
Top = 61 Top = 61
@ -141,19 +139,19 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
Transparent = True Transparent = True
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 2 Top = 0
Action = actAnadir Action = actAnadir
AutoSize = True AutoSize = True
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 62 Left = 62
Top = 2 Top = 0
Action = actModificar Action = actModificar
AutoSize = True AutoSize = True
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 136 Left = 136
Top = 2 Top = 0
Width = 8 Width = 8
Caption = 'ToolButton5' Caption = 'ToolButton5'
ImageIndex = 2 ImageIndex = 2
@ -161,7 +159,7 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 144 Left = 144
Top = 2 Top = 0
Action = actEliminar Action = actEliminar
AutoSize = True AutoSize = True
end end

2
Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas
View File

@ -11,7 +11,7 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxGridCustomView, cxGrid, uBizPagosProveedor, ActnList, TB2Item, cxClasses, cxGridCustomView, cxGrid, uBizPagosProveedor, ActnList, TB2Item,
TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList, TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList,
PngImageList, ComCtrls, ToolWin; PngImageList, ComCtrls, ToolWin, uDAInterfaces;
type type
IViewPagosProveedor = interface(IViewBase) IViewPagosProveedor = interface(IViewBase)

3
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
View File

@ -6,7 +6,8 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl, Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl,
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls; cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces;
type type
IViewReciboProveedor = interface(IViewBase) IViewReciboProveedor = interface(IViewBase)

2
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas
View File

@ -10,7 +10,7 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosProveedor, cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosProveedor,
uBizRecibosProveedor, uRecibosProveedorController, Grids, DBGrids, cxSpinEdit, uBizRecibosProveedor, uRecibosProveedorController, Grids, DBGrids, cxSpinEdit,
dxLayoutControl; dxLayoutControl, uDAInterfaces;
type type
IViewRecibosCompensados = interface IViewRecibosCompensados = interface

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

18
Source/Servidor/FactuGES_Server.dpr
View File

@ -48,11 +48,7 @@ uses
srvPresupuestosCliente_Impl in '..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas' {srvPresupuestosCliente: TDataAbstractService}, srvPresupuestosCliente_Impl in '..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas' {srvPresupuestosCliente: TDataAbstractService},
uBizPresupuestosClienteServer in '..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas', uBizPresupuestosClienteServer in '..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas',
srvArticulos_Impl in '..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas', srvArticulos_Impl in '..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
srvAlmacenes_Impl in '..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas' {srvAlmacenes: TDARemoteService}, srvAlmacenes_Impl in '..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas' {srvAlmacenes: TDARemoteService},
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
srvAlbaranesCliente_Impl in '..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas' {srvAlbaranesCliente: TDataAbstractService}, srvAlbaranesCliente_Impl in '..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas' {srvAlbaranesCliente: TDataAbstractService},
uBizAlbaranClienteServer in '..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas', uBizAlbaranClienteServer in '..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas',
srvRecibosCliente_Impl in '..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDataAbstractService}, srvRecibosCliente_Impl in '..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDataAbstractService},
@ -60,8 +56,6 @@ uses
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas', schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas', schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente}, uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente},
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
@ -80,10 +74,16 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS', uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas', uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas'; schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

360
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,186 +1,182 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <ItemGroup>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <DelphiCompile Include="FactuGES_Server.dpr">
</ProjectExtensions> <MainSource>MainSource</MainSource>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> </DelphiCompile>
<ItemGroup> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DelphiCompile Include="FactuGES_Server.dpr"> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<MainSource>MainSource</MainSource> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
</DelphiCompile> <Form>srvEmpresas</Form>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <Form>srvAlbaranesCliente</Form>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
</DCCReference> <Form>srvAlmacenes</Form>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <Form>srvContactos</Form>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <Form>srvFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<Form>srvFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <Form>srvFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <Form>srvPresupuestosCliente</Form>
<Form>RptPresupuestosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<Form>srvPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
</DCCReference> <Form>srvRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
</DCCReference> <Form>srvRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" /> <Form>srvConfiguracion</Form>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> </DCCReference>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>srvConfiguracion</Form> <Form>frConexionBD</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConexionBD</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>frConfGeneral</Form> <Form>fConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>FrameConfiguracion</Form> <Form>srvLogin</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>srvLogin</Form> <Form>fAcercaDe</Form>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="uAcercaDe.pas"> <Form>dmServer</Form>
<Form>fAcercaDe</Form> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>dmServer</Form> <Form>fServerForm</Form>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<Form>fServerForm</Form> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
</DCCReference> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> </ItemGroup>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,0,0,0 FILEVERSION 1,0,0,0
PRODUCTVERSION 3,0,0,0 PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "3.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "3.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "domingo, 18 de noviembre de 2007 21:49\0" VALUE "CompileDate", "lunes, 19 de noviembre de 2007 20:09\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

2
Source/Servidor/uAcercaDe.pas
View File

@ -37,7 +37,7 @@ begin
memModulos.Lines.Add(CompanyName); memModulos.Lines.Add(CompanyName);
memModulos.Lines.Add(''); memModulos.Lines.Add('');
memModulos.Lines.Add('Se autoriza el uso de este programa a:'); memModulos.Lines.Add('Se autoriza el uso de este programa a:');
memModulos.Lines.Add('LUIS LEÓN REPRESENTACIONES S.L.'); memModulos.Lines.Add('TECSITEL S.L.');
end; end;
finally finally
FreeAndNil(Obj); FreeAndNil(Obj);

6
Source/Servidor/uDataModuleServer.dfm
View File

@ -39,9 +39,9 @@ object dmServer: TdmServer
item item
Name = 'IBX' Name = 'IBX'
ConnectionString = ConnectionString =
'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' + 'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Database\FACTUG' +
'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' + 'ES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO885' +
'harset=ISO8859_1;' '9_1;'
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
end> end>