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

13
Source/ApplicationBase/uFactuGES_App.pas
View File

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

105
Source/Base/Base.dproj
View File

@ -44,6 +44,13 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<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>
<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\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -60,55 +67,55 @@
</DelphiCompile>
<DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxDataD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExportD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxGridD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxIntl5D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\adortl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxDataD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxExportD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxExtEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxGridD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxIntl5D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxLibraryD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxPageControlD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPSCoreD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxThemeD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

6
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,11 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">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"
1 VERSIONINFO
FILEVERSION 2,2,2,0
PRODUCTVERSION 2,2,2,0
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,7 +13,7 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductName", "FactuGES\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;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Print(FAlbaran);
}
end;
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
@ -317,8 +320,11 @@ end;
procedure TfEditorAlbaranCliente.PrevisualizarInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Preview(FAlbaran);
}
end;
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'
ClientWidth = 583
ExplicitWidth = 591
ExplicitHeight = 240
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

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

@ -97,6 +97,8 @@ uses
}
procedure TfEditorAlbaranesCliente.actCancelarEnvioExecute(Sender: TObject);
begin
AppFactuGES.ShowCapado;
{
inherited;
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;
actRefrescar.Execute;
}
end;
procedure TfEditorAlbaranesCliente.actCancelarEnvioUpdate(Sender: TObject);
@ -122,6 +125,8 @@ end;
procedure TfEditorAlbaranesCliente.actConfirmarRecepcionExecute(Sender: TObject);
begin
AppFactuGES.ShowCapado;
{
inherited;
try
@ -131,6 +136,7 @@ begin
ShowErrorMessage('Error al cambiar la situación del albarán', E.Message, E);
end;
actRefrescar.Execute;
}
end;
procedure TfEditorAlbaranesCliente.actConfirmarRecepcionUpdate(Sender: TObject);
@ -152,6 +158,8 @@ end;
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject);
begin
AppFactuGES.ShowCapado;
{
inherited;
//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
@ -163,6 +171,7 @@ begin
else
FController.EtiquetasPreview(FAlbaranes, False);
end;
}
end;
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasUpdate(Sender: TObject);
@ -175,8 +184,9 @@ end;
procedure TfEditorAlbaranesCliente.actGenerarFacturaExecute(Sender: TObject);
begin
AppFactuGES.ShowCapado;
// GenerarFacturaCli(Albaranes.ID);
actRefrescar.Execute;
// actRefrescar.Execute;
end;
procedure TfEditorAlbaranesCliente.actGenerarFacturaUpdate(Sender: TObject);
@ -196,6 +206,7 @@ procedure TfEditorAlbaranesCliente.actEnviarExecute(Sender: TObject);
// AFacturasController : IFacturasClienteController;
// AAlbaran : IBizAlbaranCliente;
begin
AppFactuGES.ShowCapado;
{
inherited;
bCambiarEstado := False;
@ -281,6 +292,8 @@ procedure TfEditorAlbaranesCliente.DuplicarInterno;
var
APedido : IBizAlbaranCliente;
begin
AppFactuGES.ShowCapado;
{
inherited;
APedido := FController.Duplicar(Albaranes);
try
@ -288,6 +301,7 @@ begin
finally
actRefrescar.Execute;
end;
}
end;
procedure TfEditorAlbaranesCliente.EliminarInterno;
@ -370,6 +384,8 @@ var
AllItems: Boolean;
begin
AppFactuGES.ShowCapado;
{
AAlbaranes := Nil;
AllItems := False;
@ -403,6 +419,7 @@ begin
end;
end;
end;
}
end;
procedure TfEditorAlbaranesCliente.ModificarInterno;
@ -454,6 +471,8 @@ var
AAlbaranes: IBizAlbaranCliente;
AllItems: Boolean;
begin
AppFactuGES.ShowCapado;
{
AAlbaranes := Nil;
AllItems := False;
@ -487,6 +506,7 @@ begin
end;
end;
end;
}
end;
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
OnClose = CustomEditorClose
ExplicitWidth = 773
ExplicitHeight = 653
ExplicitHeight = 646
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -206,10 +206,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0

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

@ -218,8 +218,11 @@ end;
procedure TfEditorAlbaranProveedor.ImprimirInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Print(FAlbaran);
}
end;
procedure TfEditorAlbaranProveedor.OnProveedorChanged(Sender: TObject);
@ -272,8 +275,11 @@ end;
procedure TfEditorAlbaranProveedor.PrevisualizarInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Preview(FAlbaran);
}
end;
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'
ClientWidth = 606
ExplicitWidth = 614
ExplicitHeight = 240
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -2,8 +2,7 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
Left = 489
Top = 325
Caption = 'Lista de almacenes'
ExplicitWidth = 320
ExplicitHeight = 240
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -91,9 +90,19 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
inherited dxLayoutControl1: TdxLayoutControl
Width = 543
ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 337
ExplicitLeft = 337
ExplicitWidth = 121
Width = 121
end
end
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,
DBCtrls, Grids, DBGrids, uBizAlmacenes, Mask, ComCtrls, uCustomView,
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl;
cxDBEdit, dxLayoutControl, uDAInterfaces;
type
IViewAlmacen = interface(IViewBase)

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -2,8 +2,7 @@ inherited fEditorArticulos: TfEditorArticulos
Left = 489
Top = 325
Caption = 'Lista de art'#237'culos'
ExplicitWidth = 320
ExplicitHeight = 240
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
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;
begin
AppFactuGES.ShowCapado;
{
inherited;
}
end;
procedure TfEditorContactos.ModificarInterno;
@ -108,7 +111,10 @@ end;
procedure TfEditorContactos.PrevisualizarInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
}
end;
procedure TfEditorContactos.SetContactos(const Value: IBizContacto);
@ -146,6 +152,8 @@ procedure TfEditorContactos.DuplicarInterno;
var
AContacto : IBizContacto;
begin
AppFactuGES.ShowCapado;
{
inherited;
AContacto := FController.Duplicar(Contactos);
try
@ -153,6 +161,7 @@ begin
finally
actRefrescar.Execute;
end;
}
end;
procedure TfEditorContactos.EliminarInterno;

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

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

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

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

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

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

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

@ -132,6 +132,8 @@ procedure TfEditorFacturasCliente.DuplicarInterno;
var
AFactura : IBizFacturaCliente;
begin
AppFactuGES.ShowCapado;
{
inherited;
AFactura := FController.Duplicar(FFacturas);
try
@ -139,6 +141,7 @@ begin
finally
actRefrescar.Execute;
end;
}
end;
procedure TfEditorFacturasCliente.EliminarInterno;
@ -226,6 +229,8 @@ var
AFacturas: IBizFacturaCliente;
AllItems: Boolean;
begin
AppFactuGES.ShowCapado;
{
AFacturas := Nil;
AllItems := False;
@ -259,6 +264,7 @@ begin
end;
end;
end;
}
end;
procedure TfEditorFacturasCliente.ModificarInterno;
@ -326,6 +332,8 @@ var
AFacturas: IBizFacturaCliente;
AllItems: Boolean;
begin
AppFactuGES.ShowCapado;
{
AFacturas := Nil;
AllItems := False;
@ -359,6 +367,7 @@ begin
end;
end;
end;
}
end;
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
Name = 'SITUACION'
DataType = datString
Size = 19
Size = 255
DisplayLabel = 'Situaci'#243'n'
DictionaryEntry = 'FacturasProveedor_SITUACION'
end
item
Name = 'BASE_IMPONIBLE'

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

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

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

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarReferenciaDelta = '{CFCEEBAB-2BF1-4B6A-9654-0B4C8759C4AB}';
RID_FacturasProveedorDelta = '{B1A74B0E-6EED-46D2-A083-FB3DCE87EA6D}';
RID_FacturasProveedor_DetallesDelta = '{DCDF70C0-FF75-44A1-9878-8B088A24A18A}';
RID_DarReferenciaDelta = '{29799EE8-6169-4A26-9C4C-02C33D658D97}';
RID_FacturasProveedorDelta = '{90E2FE05-93D9-4478-B54E-73618BD635BF}';
RID_FacturasProveedor_DetallesDelta = '{9215693E-0AA6-46A8-AD7B-3EAE75F51EFE}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{CFCEEBAB-2BF1-4B6A-9654-0B4C8759C4AB}']
['{29799EE8-6169-4A26-9C4C-02C33D658D97}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{B1A74B0E-6EED-46D2-A083-FB3DCE87EA6D}']
['{90E2FE05-93D9-4478-B54E-73618BD635BF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -445,7 +445,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{DCDF70C0-FF75-44A1-9878-8B088A24A18A}']
['{9215693E-0AA6-46A8-AD7B-3EAE75F51EFE}']
{ Property getters and setters }
function GetOldIDValue : 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
Name = 'SITUACION'
DataType = datString
Size = 19
DisplayLabel = 'Situaci'#243'n'
Size = 255
DictionaryEntry = 'FacturasProveedor_SITUACION'
end
item
Name = 'BASE_IMPONIBLE'
@ -361,6 +361,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Statements = <
item
Connection = 'IBX'
TargetTable = 'FACTURAS_PROVEEDOR_DETALLES'
SQL =
'SELECT'#10' FACTURAS_PROVEEDOR_DETALLES.ID, FACTURAS_PROVEEDOR_DE' +
'TALLES.ID_FACTURA,'#10' FACTURAS_PROVEEDOR_DETALLES.POSICION, FAC' +
@ -426,11 +427,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end>
end>
Name = 'FacturasProveedor_Detalles'

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

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

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

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

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

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

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

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

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

@ -10,7 +10,7 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 531
ExplicitHeight = 304
inherited cxGridView: TcxGridDBTableView
inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
DataController.Summary.DefaultGroupSummaryItems = <
@ -165,14 +165,16 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Width = 531
ExplicitWidth = 531
inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 244
Width = 244
ExplicitWidth = 273
Width = 273
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531
ExplicitWidth = 531
inherited tbxBotones: TTBXToolbar
Width = 521
ExplicitWidth = 521
end
end
end

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarReferencia = '{0E25C9EE-290E-48B3-A135-C7C7128DF9B8}';
RID_PresupuestosCliente = '{632FC123-90B6-4E44-A24C-D67715FFFA86}';
RID_PresupuestosCliente_Detalles = '{4D48AE43-3E5E-4D41-A619-4D7873065407}';
RID_DarReferencia = '{6594B31A-A292-486E-A784-AF4659E1A953}';
RID_PresupuestosCliente = '{13857C95-50E8-4EF5-8544-ABFCE393A83E}';
RID_PresupuestosCliente_Detalles = '{FE4E1E48-710A-404F-B2DD-4547549B420D}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@ -119,7 +119,7 @@ const
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{7779EF23-3D43-4609-8A92-378D0BC8126E}']
['{D7753D57-71A2-4C4D-A580-8D58520FCFD3}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -154,7 +154,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{BA5CD1DE-F008-446F-A424-67B2F318DB01}']
['{4FCC9A5F-7A94-4A3A-940A-4CA0D4176EDB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -513,7 +513,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{257BE485-4D3D-4312-ACF2-6047EFDB96D6}']
['{5B7F200F-3962-455D-98BB-A24DE98BD18B}']
{ Property getters and setters }
function GetIDValue: 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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_DarReferenciaDelta = '{FC7E5FD9-9CC1-4026-BA08-1DF06F3D1D5E}';
RID_PresupuestosClienteDelta = '{E2147326-69DE-4FBD-8CAE-8C01530544F7}';
RID_PresupuestosCliente_DetallesDelta = '{AD363AEF-96FD-49CE-B096-8080CE467488}';
RID_DarReferenciaDelta = '{0B34135E-0FB6-4CBA-AF23-A26B88542C10}';
RID_PresupuestosClienteDelta = '{847B43BF-5186-406F-92E6-2135D35EF01F}';
RID_PresupuestosCliente_DetallesDelta = '{1DA22D38-0DB5-450C-AF43-3F7F4D2EA56E}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{FC7E5FD9-9CC1-4026-BA08-1DF06F3D1D5E}']
['{0B34135E-0FB6-4CBA-AF23-A26B88542C10}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -50,7 +50,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{E2147326-69DE-4FBD-8CAE-8C01530544F7}']
['{847B43BF-5186-406F-92E6-2135D35EF01F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -412,7 +412,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{AD363AEF-96FD-49CE-B096-8080CE467488}']
['{1DA22D38-0DB5-450C-AF43-3F7F4D2EA56E}']
{ Property getters and setters }
function GetOldIDValue : 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)
protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
public
constructor Create(aDataTable: TDADataTable); override;
end;
@ -27,7 +24,7 @@ implementation
{ TBizDetallesPresupuestoCliente }
uses
DB, uDataTableUtils;
DB;
procedure TBizDetallesPresupuestoCliente.BeforeInsert(Sender: TDADataTable);
@ -40,16 +37,6 @@ begin
AMasterTable.Post;
end;
constructor TBizDetallesPresupuestoCliente.Create(aDataTable: TDADataTable);
begin
inherited Create(aDataTable);
end;
procedure TBizDetallesPresupuestoCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
end;
initialization
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'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'REFERENCIAS'
Name = 'IBX'
SQL =
'SELECT VALOR'#10'FROM REFERENCIAS'#10'WHERE CODIGO = :CODIGO'#10'AND ID_EMPR' +
@ -1030,6 +1031,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'PresupuestosCliente_ID'
DataType = datAutoInc
GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end

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

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

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

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

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

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

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

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

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

@ -71,7 +71,7 @@ type
implementation
uses schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase;
uses schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase, uFactuGES_App;
{$R *.dfm}
@ -264,8 +264,11 @@ end;
procedure TfEditorReciboCliente.ImprimirInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Print(FRecibo);
}
end;
procedure TfEditorReciboCliente.JvFormStorageRestorePlacement(Sender: TObject);
@ -303,8 +306,11 @@ end;
procedure TfEditorReciboCliente.PrevisualizarInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Preview(FRecibo);
}
end;
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
ClientWidth = 645
ExplicitWidth = 653
ExplicitHeight = 595
ExplicitHeight = 588
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -116,19 +116,16 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ExplicitWidth = 645
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
ExplicitHeight = 24
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
ExplicitHeight = 24
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 298
ExplicitLeft = 298
ExplicitWidth = 244
ExplicitHeight = 24
Width = 244
end
end

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

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

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

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

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

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_RecibosCompensadosProvDelta = '{70FD873D-B8A4-48FF-91B4-78E5A8061DB7}';
RID_RecibosProveedorDelta = '{960F5E67-31CD-44FB-A6DD-0FC4610157EC}';
RID_PagosProveedorDelta = '{3955ECBE-60F2-47AB-AD32-7B878B1CA0C7}';
RID_RecibosCompensadosProvDelta = '{7D64E436-4A62-4815-9B17-18188D7EB661}';
RID_RecibosProveedorDelta = '{8CC4F287-B555-4CB1-B413-10F941E621CF}';
RID_PagosProveedorDelta = '{C62DC80C-8A6A-4FC1-899E-4A97895130AC}';
type
{ IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{70FD873D-B8A4-48FF-91B4-78E5A8061DB7}']
['{7D64E436-4A62-4815-9B17-18188D7EB661}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -410,7 +410,7 @@ type
{ IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor)
['{960F5E67-31CD-44FB-A6DD-0FC4610157EC}']
['{8CC4F287-B555-4CB1-B413-10F941E621CF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -804,7 +804,7 @@ type
{ IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor)
['{3955ECBE-60F2-47AB-AD32-7B878B1CA0C7}']
['{C62DC80C-8A6A-4FC1-899E-4A97895130AC}']
{ Property getters and setters }
function GetOldIDValue : 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
Name = 'SITUACION'
DataType = datString
Size = 255
Size = 9
DictionaryEntry = 'RecibosProveedor_SITUACION'
end
item
@ -1384,7 +1384,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item
Name = 'RecibosProveedor_SITUACION'
DataType = datString
Size = 255
Size = 9
DisplayLabel = 'SITUACION'
end
item
@ -1470,45 +1470,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Size = 20
DisplayLabel = 'USUARIO'
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
Name = 'RecibosProveedor_USUARIO'
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.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <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>
<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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RecibosProveedor_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="RecibosProveedor_controller.dcp" />
<DCCReference Include="RecibosProveedor_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\RecibosProveedor_controller.dcp" />
<DCCReference Include="..\RecibosProveedor_model.dcp" />
<DCCReference Include="uEditorElegirRecibosProveedor.pas">
<Form>fEditorElegirRecibosProveedor</Form>
<DesignClass>TfEditorElegirRecibosProveedor</DesignClass>
@ -132,7 +92,6 @@
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
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
OnClose = CustomEditorClose
ExplicitWidth = 699
ExplicitHeight = 588
ExplicitHeight = 581
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -78,6 +78,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 683
Height = 350
ExplicitWidth = 683
ExplicitHeight = 350
DesignSize = (
683
350)
@ -256,6 +257,18 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited ToolBar1: TToolBar
Width = 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
ExplicitWidth = 98
end

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

@ -10,7 +10,8 @@ uses
pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboProveedor,
uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController,
uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData,
uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes;
uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes,
uDAInterfaces;
type
TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor)
@ -69,7 +70,7 @@ type
implementation
uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase;
uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase, uFactuGES_App;
{$R *.dfm}
@ -245,8 +246,11 @@ end;
procedure TfEditorReciboProveedor.ImprimirInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Print(FRecibo);
}
end;
procedure TfEditorReciboProveedor.JvFormStorageRestorePlacement(Sender: TObject);
@ -284,8 +288,11 @@ end;
procedure TfEditorReciboProveedor.PrevisualizarInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Preview(FRecibo);
}
end;
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
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 392
ExplicitHeight = 189
object ListaPagosProveedor: TcxGrid
Left = 22
Top = 61
@ -141,19 +139,19 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
Transparent = True
object ToolButton1: TToolButton
Left = 0
Top = 2
Top = 0
Action = actAnadir
AutoSize = True
end
object ToolButton4: TToolButton
Left = 62
Top = 2
Top = 0
Action = actModificar
AutoSize = True
end
object ToolButton5: TToolButton
Left = 136
Top = 2
Top = 0
Width = 8
Caption = 'ToolButton5'
ImageIndex = 2
@ -161,7 +159,7 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor
end
object ToolButton2: TToolButton
Left = 144
Top = 2
Top = 0
Action = actEliminar
AutoSize = True
end

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

@ -11,7 +11,7 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxGridCustomView, cxGrid, uBizPagosProveedor, ActnList, TB2Item,
TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList,
PngImageList, ComCtrls, ToolWin;
PngImageList, ComCtrls, ToolWin, uDAInterfaces;
type
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,
Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl,
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls;
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces;
type
IViewReciboProveedor = interface(IViewBase)

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

@ -10,7 +10,7 @@ uses
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosProveedor,
uBizRecibosProveedor, uRecibosProveedorController, Grids, DBGrids, cxSpinEdit,
dxLayoutControl;
dxLayoutControl, uDAInterfaces;
type
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},
uBizPresupuestosClienteServer in '..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.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},
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},
uBizAlbaranClienteServer in '..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas',
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',
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
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',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_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',
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_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 ..\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">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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>
<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" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

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

2
Source/Servidor/uAcercaDe.pas
View File

@ -37,7 +37,7 @@ begin
memModulos.Lines.Add(CompanyName);
memModulos.Lines.Add('');
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;
finally
FreeAndNil(Obj);

6
Source/Servidor/uDataModuleServer.dfm
View File

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