Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tareas #1349: Se arregla descuadre de centimos para la generación de varios recibos de una factura

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@226 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2014-06-18 15:50:30 +00:00
parent 456e4348e2
commit a9dfac9b18
135 changed files with 5973 additions and 2415 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Database/scripts/factuges.sql
View File

@ -570,6 +570,7 @@ CREATE TABLE CONTACTOS (
POBLACION VARCHAR(255), POBLACION VARCHAR(255),
PROVINCIA VARCHAR(255), PROVINCIA VARCHAR(255),
CODIGO_POSTAL VARCHAR(10), CODIGO_POSTAL VARCHAR(10),
PAIS VARCHAR(255),
TELEFONO_1 VARCHAR(25), TELEFONO_1 VARCHAR(25),
TELEFONO_2 VARCHAR(25), TELEFONO_2 VARCHAR(25),
MOVIL_1 VARCHAR(25), MOVIL_1 VARCHAR(25),

BIN
Resources/Logotipo-K-ingles.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 38 KiB

BIN
Resources/logotipo-cmc.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 102 KiB

8
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -55,10 +55,10 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Modulos\Contactos\Views\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\Modulos\Contactos\Views\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\Views\JvJansD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\Views\PluginSDK_D11R.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" /> <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" /> <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" /> <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

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

@ -97,7 +97,7 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
Width = 78 Width = 78
Height = 13 Height = 13
AutoSize = False AutoSize = False
Caption = 'BIC:' Caption = 'BIC / SWIFT:'
end end
object eNombre: TDBEdit object eNombre: TDBEdit
Left = 109 Left = 109

12
Source/ApplicationBase/ProvinciasPoblaciones/Controller/uProvinciasPoblacionesController.pas
View File

@ -10,6 +10,7 @@ uses
type type
IProvinciasPoblacionesController = interface(IControllerBase) IProvinciasPoblacionesController = interface(IControllerBase)
['{777EDE6C-DAB6-4D96-BA57-AE3DAF8A3F78}'] ['{777EDE6C-DAB6-4D96-BA57-AE3DAF8A3F78}']
function DarListaPaises : TStringList;
function DarListaProvincias : TStringList; function DarListaProvincias : TStringList;
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList; function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
end; end;
@ -18,6 +19,7 @@ type
protected protected
FDataModule : IDataModuleProvinciasPoblaciones; FDataModule : IDataModuleProvinciasPoblaciones;
public public
function DarListaPaises : TStringList;
function DarListaProvincias : TStringList; function DarListaProvincias : TStringList;
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList; function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
destructor Destroy; override; destructor Destroy; override;
@ -37,6 +39,16 @@ begin
FDataModule := TDataModuleProvinciasPoblaciones.Create(NIL); FDataModule := TDataModuleProvinciasPoblaciones.Create(NIL);
end; end;
function TProvinciasPoblacionesController.DarListaPaises: TStringList;
begin
ShowHourglassCursor;
try
Result := FDataModule.DarListaPaises;
finally
HideHourglassCursor;
end;
end;
function TProvinciasPoblacionesController.DarListaPoblaciones( function TProvinciasPoblacionesController.DarListaPoblaciones(
const AID_Provincia: Integer): TStringList; const AID_Provincia: Integer): TStringList;
begin begin

4
Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.dfm
View File

@ -1,7 +1,5 @@
object DataModuleProvinciasPoblaciones: TDataModuleProvinciasPoblaciones inherited DataModuleProvinciasPoblaciones: TDataModuleProvinciasPoblaciones
OldCreateOrder = False OldCreateOrder = False
Height = 150
Width = 215
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel Channel = dmConexion.ROChannel

11
Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.pas
View File

@ -8,6 +8,7 @@ uses
type type
IDataModuleProvinciasPoblaciones = interface IDataModuleProvinciasPoblaciones = interface
['{E73DB3C4-BC57-44E8-A64B-F86AE2DCB7D6}'] ['{E73DB3C4-BC57-44E8-A64B-F86AE2DCB7D6}']
function DarListaPaises : TStringList;
function DarListaProvincias : TStringList; function DarListaProvincias : TStringList;
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList; function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
end; end;
@ -15,6 +16,7 @@ type
TDataModuleProvinciasPoblaciones = class(TDataModuleBase, IDataModuleProvinciasPoblaciones) TDataModuleProvinciasPoblaciones = class(TDataModuleBase, IDataModuleProvinciasPoblaciones)
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
public public
function DarListaPaises : TStringList;
function DarListaProvincias : TStringList; function DarListaProvincias : TStringList;
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList; function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
end; end;
@ -28,6 +30,15 @@ uses
{ TDataModuleProvinciasPoblaciones } { TDataModuleProvinciasPoblaciones }
function TDataModuleProvinciasPoblaciones.DarListaPaises: TStringList;
var
ABinary : Binary;
begin
ABinary := (RORemoteService as IsrvProvinciasPoblaciones).DarListaPaises;
Result := TStringList.Create;
Result.LoadFromStream(ABinary);
end;
function TDataModuleProvinciasPoblaciones.DarListaPoblaciones( function TDataModuleProvinciasPoblaciones.DarListaPoblaciones(
const AID_Provincia: Integer): TStringList; const AID_Provincia: Integer): TStringList;
var var

74
Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dfm
View File

@ -5,6 +5,80 @@ object srvProvinciasPoblaciones: TsrvProvinciasPoblaciones
object schProvinciasPoblaciones: TDASchema object schProvinciasPoblaciones: TDASchema
ConnectionManager = dmServer.ConnectionManager ConnectionManager = dmServer.ConnectionManager
Datasets = < Datasets = <
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PAISES'
Name = 'IBX'
SQL =
'SELECT '#10' ID, ISO_NUM, ISO_DES1, ISO_DES2, DESCRIPCION, ACTIVO' +
#10' FROM'#10' PAISES'#10' WHERE (ACTIVO = 1)'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ISO_NUM'
TableField = 'ISO_NUM'
end
item
DatasetField = 'ISO_DES1'
TableField = 'ISO_DES1'
end
item
DatasetField = 'ISO_DES2'
TableField = 'ISO_DES2'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ACTIVO'
TableField = 'ACTIVO'
end>
end>
Name = 'Paises'
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ISO_NUM'
DataType = datInteger
Required = True
end
item
Name = 'ISO_DES1'
DataType = datString
Size = 2
Required = True
end
item
Name = 'ISO_DES2'
DataType = datString
Size = 3
Required = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Required = True
end
item
Name = 'ACTIVO'
DataType = datSmallInt
end>
end
item item
IsPublic = False IsPublic = False
Params = <> Params = <>

37
Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.pas
View File

@ -26,6 +26,7 @@ type
private private
protected protected
{ IsrvProvinciasPoblaciones methods } { IsrvProvinciasPoblaciones methods }
function DarListaPaises: Binary;
function DarListaProvincias: Binary; function DarListaProvincias: Binary;
function DarListaPoblaciones(const ID_Provincia: Integer): Binary; function DarListaPoblaciones(const ID_Provincia: Integer): Binary;
end; end;
@ -80,6 +81,42 @@ begin
end; end;
end; end;
function TsrvProvinciasPoblaciones.DarListaPaises: Binary;
var
ASchema : TDASchema;
AConn : IDAConnection;
dsData: IDADataset;
ALista : TStringList;
begin
Result := Binary.Create;
ASchema := schProvinciasPoblaciones;
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
try
dsData := ASchema.NewDataset(AConn, 'Paises');
except
RaiseError('No existe la tabla PAISES');
end;
ALista := TStringList.Create;
try
dsData.Active := True;
ALista.Sorted := True;
while not dsData.EOF do
begin
ALista.Add(Format('%s=%s', [dsData.Fields[4].AsString, dsData.Fields[2].AsString]));
dsData.Next;
end;
ALista.SaveToStream(Result);
finally
FreeANDNIL(ALista);
dsData := NIL;
AConn := NIL;
end;
end;
function TsrvProvinciasPoblaciones.DarListaPoblaciones(const ID_Provincia: Integer): Binary; function TsrvProvinciasPoblaciones.DarListaPoblaciones(const ID_Provincia: Integer): Binary;
var var
ASchema : TDASchema; ASchema : TDASchema;

106
Source/Base/Base.dproj
View File

@ -45,8 +45,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</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\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -60,63 +58,63 @@
<Form>DataModuleImpresiones</Form> <Form>DataModuleImpresiones</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas"> <DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
<Form>DataModuleRegistroCorreos</Form> <Form>DataModuleRegistroCorreos</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servidor\adortl.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
<DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxGridD11.dcp" />
<DCCReference Include="..\Servidor\cxIntl6D11.dcp" />
<DCCReference Include="..\Servidor\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
<DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dclIndyCore.dcp" />
<DCCReference Include="..\Servidor\designide.dcp" />
<DCCReference Include="..\Servidor\dsnap.dcp" />
<DCCReference Include="..\Servidor\dxCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Servidor\IndyCore.dcp" />
<DCCReference Include="..\Servidor\IndyProtocols.dcp" />
<DCCReference Include="..\Servidor\IndySystem.dcp" />
<DCCReference Include="..\Servidor\Jcl.dcp" />
<DCCReference Include="..\Servidor\JclVcl.dcp" />
<DCCReference Include="..\Servidor\JSDialog100.dcp" />
<DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
<DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Servidor\JvMMD11R.dcp" />
<DCCReference Include="..\Servidor\JvNetD11R.dcp" />
<DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
<DCCReference Include="..\Servidor\pckMD5.dcp" />
<DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\TB2k_D10.dcp" />
<DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\VclSmp.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="..\Servidor\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

15
Source/Base/Utiles/uNumUtils.pas
View File

@ -28,12 +28,27 @@ interface
Function IntToLetras(Numero:LongInt):String; Function IntToLetras(Numero:LongInt):String;
Function xxIntToLetras(Valor:LongInt):String; Function xxIntToLetras(Valor:LongInt):String;
Function CifraToLetras(Cifra: Double): String; Function CifraToLetras(Cifra: Double): String;
function RoundCurrency(const Value: Currency): Currency;
implementation implementation
uses SysUtils, Dialogs; uses SysUtils, Dialogs;
// SysUtils, Windows, Dialogs, Messages, Classes, Graphics, Controls, Forms, StdCtrls; // SysUtils, Windows, Dialogs, Messages, Classes, Graphics, Controls, Forms, StdCtrls;
function RoundCurrency(const Value: Currency): Currency;
var
V64: Int64 absolute Result;
Decimals: Integer;
begin
Result := Value;
Decimals := V64 mod 100;
Dec(V64, Decimals);
case Decimals of
-99 .. -50 : Dec(V64, 100);
50 .. 99 : Inc(V64, 100);
end;
end;
Function xxIntToLetras(Valor:LongInt):String; Function xxIntToLetras(Valor:LongInt):String;
const const
aUnitat : array[1..15] of String = ('UNO','DOS','TRES','CUATRO','CINCO','SEIS', aUnitat : array[1..15] of String = ('UNO','DOS','TRES','CUATRO','CINCO','SEIS',

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">9</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">4.3.9.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">4.3.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</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">4.4.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">4.4.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

63
Source/Informes/6/en/InfAlbaranCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

70
Source/Informes/6/en/InfFacturaCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

66
Source/Informes/6/en/InfFacturaProforma.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

51
Source/Informes/6/en/InfPedidoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

59
Source/Informes/6/en/InfPresupuestoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/8/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

2
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -423,6 +423,7 @@ begin
AAlbaran.POBLACION := ADireccionEnvio.POBLACION; AAlbaran.POBLACION := ADireccionEnvio.POBLACION;
AAlbaran.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL; AAlbaran.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
AAlbaran.PROVINCIA := ADireccionEnvio.PROVINCIA; AAlbaran.PROVINCIA := ADireccionEnvio.PROVINCIA;
AAlbaran.PAIS := ADireccionEnvio.PAIS;
AAlbaran.TELEFONO := ADireccionEnvio.TELEFONO; AAlbaran.TELEFONO := ADireccionEnvio.TELEFONO;
AAlbaran.PERSONA_CONTACTO := ADireccionEnvio.PERSONA_CONTACTO; AAlbaran.PERSONA_CONTACTO := ADireccionEnvio.PERSONA_CONTACTO;
@ -1200,6 +1201,7 @@ begin
AAlbaran.DataTable.FieldByName(fld_AlbaranesClientePOBLACION).Clear; AAlbaran.DataTable.FieldByName(fld_AlbaranesClientePOBLACION).Clear;
AAlbaran.DataTable.FieldByName(fld_AlbaranesClienteCODIGO_POSTAL).Clear; AAlbaran.DataTable.FieldByName(fld_AlbaranesClienteCODIGO_POSTAL).Clear;
AAlbaran.DataTable.FieldByName(fld_AlbaranesClientePROVINCIA).Clear; AAlbaran.DataTable.FieldByName(fld_AlbaranesClientePROVINCIA).Clear;
AAlbaran.DataTable.FieldByName(fld_AlbaranesClientePAIS).Clear;
AAlbaran.DataTable.FieldByName(fld_AlbaranesClienteTELEFONO).Clear; AAlbaran.DataTable.FieldByName(fld_AlbaranesClienteTELEFONO).Clear;
if not bEnEdicion then if not bEnEdicion then

5
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -326,6 +326,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

47
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{97E74705-E58C-4C35-8BD8-4FB92B071A41}'; RID_ListaAnosAlbaranes = '{03DAEDC7-C84E-4A87-A22E-9DAD97D43FCF}';
RID_AlbaranesCliente = '{C7D38181-D27A-4E22-8F3C-A75AC30C5415}'; RID_AlbaranesCliente = '{EE2C2D99-4B20-4384-BADD-AD7D67C97868}';
RID_AlbaranesCliente_Detalles = '{CD08D967-9833-4D28-85E1-44C419A73C09}'; RID_AlbaranesCliente_Detalles = '{67AC6DA8-13FF-41B0-B4ED-91A0414CFA2D}';
{ Data table names } { Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -74,6 +74,7 @@ const
fld_AlbaranesClienteNUM_COPIAS = 'NUM_COPIAS'; fld_AlbaranesClienteNUM_COPIAS = 'NUM_COPIAS';
fld_AlbaranesClienteNUM_CORREOS = 'NUM_CORREOS'; fld_AlbaranesClienteNUM_CORREOS = 'NUM_CORREOS';
fld_AlbaranesClienteBLOQUEADO = 'BLOQUEADO'; fld_AlbaranesClienteBLOQUEADO = 'BLOQUEADO';
fld_AlbaranesClientePAIS = 'PAIS';
{ AlbaranesCliente field indexes } { AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0; idx_AlbaranesClienteID = 0;
@ -125,6 +126,7 @@ const
idx_AlbaranesClienteNUM_COPIAS = 46; idx_AlbaranesClienteNUM_COPIAS = 46;
idx_AlbaranesClienteNUM_CORREOS = 47; idx_AlbaranesClienteNUM_CORREOS = 47;
idx_AlbaranesClienteBLOQUEADO = 48; idx_AlbaranesClienteBLOQUEADO = 48;
idx_AlbaranesClientePAIS = 49;
{ AlbaranesCliente_Detalles fields } { AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID'; fld_AlbaranesCliente_DetallesID = 'ID';
@ -165,7 +167,7 @@ const
type type
{ IListaAnosAlbaranes } { IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{7BF69765-6C17-4529-8B77-AE37159DABE2}'] ['{8E4D7304-1E61-4D01-B63C-88061AE62045}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -200,7 +202,7 @@ type
{ IAlbaranesCliente } { IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable) IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{BD3E70CF-6C9E-4DEF-B2C5-111B4354674D}'] ['{BAF2587E-A293-4C76-9392-32A6DC8D09E9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -396,6 +398,10 @@ type
procedure SetBLOQUEADOValue(const aValue: SmallInt); procedure SetBLOQUEADOValue(const aValue: SmallInt);
function GetBLOQUEADOIsNull: Boolean; function GetBLOQUEADOIsNull: Boolean;
procedure SetBLOQUEADOIsNull(const aValue: Boolean); procedure SetBLOQUEADOIsNull(const aValue: Boolean);
function GetPAISValue: String;
procedure SetPAISValue(const aValue: String);
function GetPAISIsNull: Boolean;
procedure SetPAISIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -497,6 +503,8 @@ type
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
end; end;
{ TAlbaranesClienteDataTableRules } { TAlbaranesClienteDataTableRules }
@ -702,6 +710,10 @@ type
procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual; procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
function GetBLOQUEADOIsNull: Boolean; virtual; function GetBLOQUEADOIsNull: Boolean; virtual;
procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual; procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
procedure SetPAISValue(const aValue: String); virtual;
function GetPAISIsNull: Boolean; virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -802,6 +814,8 @@ type
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -811,7 +825,7 @@ type
{ IAlbaranesCliente_Detalles } { IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{C04F5C39-EDA5-480C-8A9D-AE3C282D097D}'] ['{FD39F0DD-9D93-41C2-A10E-AE78DDB72EA0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2113,6 +2127,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteBLOQUEADO].AsVariant := Null; DataTable.Fields[idx_AlbaranesClienteBLOQUEADO].AsVariant := Null;
end; end;
function TAlbaranesClienteDataTableRules.GetPAISValue: String;
begin
result := DataTable.Fields[idx_AlbaranesClientePAIS].AsString;
end;
procedure TAlbaranesClienteDataTableRules.SetPAISValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesClientePAIS].AsString := aValue;
end;
function TAlbaranesClienteDataTableRules.GetPAISIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClientePAIS].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClientePAIS].AsVariant := Null;
end;
{ TAlbaranesCliente_DetallesDataTableRules } { TAlbaranesCliente_DetallesDataTableRules }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

55
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{9E9C7882-2EDF-423A-8B9F-22368EA2C950}'; RID_ListaAnosAlbaranesDelta = '{716CDFC8-9A78-48CE-A9EA-9D18F891CB8E}';
RID_AlbaranesClienteDelta = '{C0D2EB08-F338-466A-BF04-1A86B1F4DB68}'; RID_AlbaranesClienteDelta = '{C2C37F78-792A-4EB7-A9DA-2C2095DFDB6F}';
RID_AlbaranesCliente_DetallesDelta = '{A979524D-4C7B-4853-9AE2-EF0FEB0F920B}'; RID_AlbaranesCliente_DetallesDelta = '{F4ADE8A0-DE1F-41FF-96C0-F9E986830529}';
type type
{ IListaAnosAlbaranesDelta } { IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{9E9C7882-2EDF-423A-8B9F-22368EA2C950}'] ['{716CDFC8-9A78-48CE-A9EA-9D18F891CB8E}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta } { IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente) IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{C0D2EB08-F338-466A-BF04-1A86B1F4DB68}'] ['{C2C37F78-792A-4EB7-A9DA-2C2095DFDB6F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -101,6 +101,7 @@ type
function GetOldNUM_COPIASValue : SmallInt; function GetOldNUM_COPIASValue : SmallInt;
function GetOldNUM_CORREOSValue : SmallInt; function GetOldNUM_CORREOSValue : SmallInt;
function GetOldBLOQUEADOValue : SmallInt; function GetOldBLOQUEADOValue : SmallInt;
function GetOldPAISValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -152,6 +153,7 @@ type
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue; property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue; property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
property OldPAIS : String read GetOldPAISValue;
end; end;
{ TAlbaranesClienteBusinessProcessorRules } { TAlbaranesClienteBusinessProcessorRules }
@ -455,6 +457,12 @@ type
function GetOldBLOQUEADOIsNull: Boolean; virtual; function GetOldBLOQUEADOIsNull: Boolean; virtual;
procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual; procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual; procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
function GetPAISIsNull: Boolean; virtual;
function GetOldPAISValue: String; virtual;
function GetOldPAISIsNull: Boolean; virtual;
procedure SetPAISValue(const aValue: String); virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -653,6 +661,10 @@ type
property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
property OldBLOQUEADOIsNull : Boolean read GetOldBLOQUEADOIsNull; property OldBLOQUEADOIsNull : Boolean read GetOldBLOQUEADOIsNull;
property PAIS : String read GetPAISValue write SetPAISValue;
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
property OldPAIS : String read GetOldPAISValue;
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -662,7 +674,7 @@ type
{ IAlbaranesCliente_DetallesDelta } { IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{A979524D-4C7B-4853-9AE2-EF0FEB0F920B}'] ['{F4ADE8A0-DE1F-41FF-96C0-F9E986830529}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -2466,6 +2478,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteBLOQUEADO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteBLOQUEADO] := Null;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS];
end;
function TAlbaranesClienteBusinessProcessorRules.GetPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClientePAIS];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClientePAIS]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetPAISValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS] := Null;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules } { TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

197
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -746,11 +746,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'SAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TEL' + 'SAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TEL' +
'EFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL' + 'EFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL' +
'_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' ' + '_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' ' +
'EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARANES_C' + 'EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA,'#10' V_CLIENTES.IDIOMA_I' +
'LIENTE'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARA' + 'SO,'#10' V_ALBARANES_CLIENTE.PAIS'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' LE' +
'NES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.' + 'FT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARANES_CLIENTE' +
'ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIENTE.I' + '.ID_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBA' +
'D = :ID'#10 'RANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -880,6 +880,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item item
DatasetField = 'PAGINA_WEB_EMPRESA' DatasetField = 'PAGINA_WEB_EMPRESA'
TableField = 'PAGINA_WEB_EMPRESA' TableField = 'PAGINA_WEB_EMPRESA'
end
item
DatasetField = 'IDIOMA_ISO'
TableField = 'IDIOMA_ISO'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -1034,6 +1042,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'PAGINA_WEB_EMPRESA' Name = 'PAGINA_WEB_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
end end
item item
@ -2635,15 +2653,169 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '4.7.71' Version = '4.7.71'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 41478.551891354170000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 41478.553933067130000000 ReportOptions.LastChange = 41807.752059861110000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'var'
' Pagina: Variant;'
''
''
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String;'
'begin'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;'
''
' ACadena := '#39#39';'
''
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' ACadena := ACadena + <frxDBCabecera."POBLACION">;'
''
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
''
' ACadena := '#39#39'; ' +
' '
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' ACadena := <frxDBCabecera."PROVINCIA">;'
''
' if (<frxDBCabecera."PAIS"> <> '#39#39') then'
' ACadena := ACadena + '#39' - '#39' + <frxDBCabecera."PAIS">;'
' '
' DireccionEnvio.Lines.Add(ACadena); '
'end;'
''
'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Memo2.Lines.Clear;'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' Memo2.Lines.Add('#39'RETURN ORDER'#39')'
' else'
' Memo2.Lines.Add('#39'DELIVERY NOTE'#39')'
'end;'
''
'procedure Memo5OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' begin'
' Memo5.Lines.Clear;'
' Memo5.Lines.Add('#39'Order number:'#39');'
' end;'
'end;'
''
'procedure Memo9OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
' begin'
' Memo9.Lines.Clear;'
' Memo9.Lines.Add('#39'Date order:'#39');'
' end;'
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1));'
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin'
' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
'end;'
''
'procedure Memo26OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <VerObservaciones> and (<frxDBCabecera."OBSERVACIONES"> <> ' +
#39#39') then'
' Memo26.Visible := True ' +
' '
' else'
' Memo26.Visible := False '
'end;'
''
'procedure Memo27OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <VerIncidencias> and (<frxDBCabecera."INCIDENCIAS"> <> '#39#39') ' +
'then'
' Memo27.Visible := True ' +
' '
' else'
' Memo27.Visible := False '
'end;'
''
'procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <VerPrecios> then'
' begin '
' eImporteUnidad.Visible := True; '
' lImporteUnidad.Visible := True;'
' eDescuento.Visible := True;'
' lDescuento.Visible := True; ' +
' '
' eImporteTotal.Visible := True; '
' lImporteTotal.Visible := True; '
' ImporteUnidad.Visible := True;'
' Descuento.Visible := True; ' +
' '
' ImporteTotal.Visible := True; '
' end'
' else'
' begin '
' eImporteUnidad.Visible := False; '
' lImporteUnidad.Visible := False; '
' eImporteTotal.Visible := False; '
' lImporteTotal.Visible := False;'
' eDescuento.Visible := False;'
' lDescuento.Visible := False; ' +
' '
' ImporteUnidad.Visible := False; '
' ImporteTotal.Visible := False;'
' Descuento.Visible := False; ' +
' '
' eConcepto.Width := eConcepto.Width + ImporteTotal.Width + e' +
'Descuento.Width + ImporteUnidad.Width + 10;'
' Concepto.Width := eConcepto.Width - 10; '
' end '
'end;'
''
'procedure Overlay1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <ShowLogotipo> then'
' begin'
' Overlay1.Visible := True; ' +
' '
' end'
' else'
' begin '
' Overlay1.Visible := False; '
' end '
'end;'
'' ''
'begin' 'begin'
'' ''
@ -2651,6 +2823,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
OnGetValue = frxReportGetValue OnGetValue = frxReportGetValue
OnStartReport = 'frxReportOnStartReport'
Left = 145 Left = 145
Top = 16 Top = 16
end end
@ -3032,6 +3205,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'PAGINA_WEB_EMPRESA' Name = 'PAGINA_WEB_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
Params = < Params = <
item item

2
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
View File

@ -246,7 +246,7 @@ begin
tbl_Cabecera.Active := True; tbl_Cabecera.Active := True;
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString); AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('IDIOMA_ISO').AsString);
if VarIsNull(AInforme) then if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptInforme)); raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptInforme));

45
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -243,6 +243,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
DatasetField = 'BLOQUEADO' DatasetField = 'BLOQUEADO'
TableField = 'BLOQUEADO' TableField = 'BLOQUEADO'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'AlbaranesCliente' Name = 'AlbaranesCliente'
@ -510,6 +514,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
end end
item item
@ -870,6 +879,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'ID_ALBARAN_DEV' Name = 'ID_ALBARAN_DEV'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -885,16 +900,16 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 + 'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 +
' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' + ' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' +
'ACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' + 'ACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' +
'_ENVIO, '#10' FECHA_RECEPCION, ID_ALBARAN_DEV)'#10' VALUES'#10' (:ID' + '_ENVIO, '#10' FECHA_RECEPCION, ID_ALBARAN_DEV, PAIS)'#10' VALUES'#10' ' +
', :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10 + ' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERE' +
' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, ' + 'NCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FAC' +
':ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINC' + 'TURA, :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :P' +
'IA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IMPORTE_P' + 'ROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IMP' +
'ORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :IVA' + 'ORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE' +
', :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCIDENCIA' + ', :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCI' +
'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP,'#10' ' + 'DENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, CURRENT_TIMEST' +
' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVI' + 'AMP,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECH' +
'O,'#10' :FECHA_RECEPCION, :ID_ALBARAN_DEV)'#10#10 'A_ENVIO,'#10' :FECHA_RECEPCION, :ID_ALBARAN_DEV, :PAIS)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1094,6 +1109,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1122,8 +1143,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'STAMP,'#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PA' + 'STAMP,'#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PA' +
'GO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECH' + 'GO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECH' +
'A_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,' + 'A_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,' +
#10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV'#10' WHERE'#10' (ID = :OLD_ID)' + #10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV,'#10' PAIS = :PAIS'#10' WHERE'#10 +
#10 ' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

179
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -198,9 +198,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitHeight = 378 ExplicitHeight = 378
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 751
Height = 51 Height = 78
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 51 ExplicitHeight = 78
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
@ -223,83 +223,84 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitLeft = 399 ExplicitLeft = 399
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontSize: TEdit inherited ToolButton13: TToolButton [6]
Left = 544 Left = 544
Top = 0 Top = 0
Width = 186 Wrap = True
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 186
end end
inherited UpDown1: TUpDown inherited ToolButton6: TToolButton [7]
Left = 730 Left = 552
Top = 0 Top = 0
ExplicitLeft = 730 ExplicitLeft = 552
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton7: TToolButton [8]
Left = 0 Left = 0
Top = 0 Top = 22
ExplicitLeft = 0
ExplicitTop = 22
end
inherited ToolButton8: TToolButton [9]
Left = 0
Enabled = True
Wrap = True Wrap = True
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 0 end
inherited ToolButton12: TToolButton [10]
Left = 0
Top = 66
Wrap = True
ExplicitLeft = 0
ExplicitTop = 66
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited ToolButton6: TToolButton inherited UpDown1: TUpDown [11]
Left = 0 Left = 0
Top = 27 Top = 93
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 93
end end
inherited ToolButton7: TToolButton inherited FontSize: TEdit [12]
Left = 66 Left = 17
Top = 27 Top = 93
ExplicitLeft = 66 Width = 186
ExplicitTop = 27 ExplicitLeft = 17
end ExplicitTop = 93
inherited ToolButton8: TToolButton ExplicitWidth = 186
Left = 133
Top = 27
ExplicitLeft = 133
ExplicitTop = 27
end
inherited ToolButton12: TToolButton
Left = 216
Top = 27
ExplicitLeft = 216
ExplicitTop = 27
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 224 Left = 203
Top = 27 Top = 93
ExplicitLeft = 224 ExplicitLeft = 203
ExplicitTop = 27 ExplicitTop = 93
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 369 Left = 348
Top = 27 Top = 93
ExplicitLeft = 369 ExplicitLeft = 348
ExplicitTop = 27 ExplicitTop = 93
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 494 Left = 473
Top = 27 Top = 93
ExplicitLeft = 494 ExplicitLeft = 473
ExplicitTop = 27 ExplicitTop = 93
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 77 Top = 104
Width = 751 Width = 751
Height = 301 Height = 274
ExplicitTop = 77 ExplicitTop = 104
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 301 ExplicitHeight = 274
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 51 Top = 78
Width = 751 Width = 751
ExplicitTop = 51 ExplicitTop = 78
ExplicitWidth = 751 ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 566 ExplicitWidth = 566
@ -392,52 +393,52 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitHeight = 78 ExplicitHeight = 78
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 428 Left = 428
Top = -129 Top = 11
Width = 7 Width = 7
Height = 54 Height = 54
ExplicitLeft = 428 ExplicitLeft = 428
ExplicitTop = -129 ExplicitTop = 11
ExplicitWidth = 7 ExplicitWidth = 7
ExplicitHeight = 54 ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 544 Left = 544
Top = -87 Top = 53
Width = 192 Width = 192
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = -87 ExplicitTop = 53
ExplicitWidth = 192 ExplicitWidth = 192
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 544 Left = 544
Top = 29 Top = 169
Width = 73 Width = 73
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = 29 ExplicitTop = 169
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel2: TBevel inherited Bevel2: TBevel
Left = 120 Left = 120
Top = 31 Top = 171
Width = 368 Width = 368
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 31 ExplicitTop = 171
ExplicitWidth = 368 ExplicitWidth = 368
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 191 Left = 191
Top = -102 Top = 38
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 191 ExplicitLeft = 191
ExplicitTop = -102 ExplicitTop = 38
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 615 Left = 615
Top = -52 Top = 88
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -445,37 +446,37 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 615 ExplicitLeft = 615
ExplicitTop = -52 ExplicitTop = 88
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 545 Left = 545
Top = 2 Top = 142
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 545 ExplicitLeft = 545
ExplicitTop = 2 ExplicitTop = 142
ExplicitWidth = 252 ExplicitWidth = 252
Width = 252 Width = 252
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 120 Left = 120
Top = -102 Top = 38
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = -102 ExplicitTop = 38
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 544 Left = 544
Top = -52 Top = 88
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -483,24 +484,24 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = -52 ExplicitTop = 88
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 544 Left = 544
Top = -129 Top = 11
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = -129 ExplicitTop = 11
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 544 Left = 544
Top = -25 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -508,11 +509,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = -25 ExplicitTop = 115
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 615 Left = 615
Top = -25 Top = 115
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -520,13 +521,13 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 615 ExplicitLeft = 615
ExplicitTop = -25 ExplicitTop = 115
ExplicitWidth = 182 ExplicitWidth = 182
Width = 182 Width = 182
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 120 Left = 120
Top = -129 Top = 11
Enabled = False Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -534,11 +535,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = -129 ExplicitTop = 11
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 120 Left = 120
Top = -75 Top = 65
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -546,28 +547,28 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = -75 ExplicitTop = 65
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 120 Left = 120
Top = -48 Top = 92
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = -48 ExplicitTop = 92
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 280 Left = 280
Top = -48 Top = 92
ExplicitLeft = 280 ExplicitLeft = 280
ExplicitTop = -48 ExplicitTop = 92
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 120 Left = 120
Top = -21 Top = 119
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -575,43 +576,43 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = -21 ExplicitTop = 119
ExplicitWidth = 221 ExplicitWidth = 221
Width = 221 Width = 221
end end
inherited edtRetencion: TcxDBSpinEdit inherited edtRetencion: TcxDBSpinEdit
Left = 544 Left = 544
Top = 49 Top = 189
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = 49 ExplicitTop = 189
end end
inherited edtImporteRetencion: TcxDBCurrencyEdit inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 615 Left = 615
Top = 49 Top = 189
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 615 ExplicitLeft = 615
ExplicitTop = 49 ExplicitTop = 189
ExplicitWidth = 180 ExplicitWidth = 180
Width = 180 Width = 180
end end
inherited edtFechaRetencion: TcxDBDateEdit inherited edtFechaRetencion: TcxDBDateEdit
Left = 120 Left = 120
Top = 51 Top = 191
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 51 ExplicitTop = 191
ExplicitWidth = 280 ExplicitWidth = 280
Width = 280 Width = 280
end end

66
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -20,7 +20,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
591) 591)
object Label1: TLabel object Label1: TLabel
Left = 22 Left = 22
Top = 450 Top = 477
Width = 299 Width = 299
Height = 26 Height = 26
Caption = Caption =
@ -76,7 +76,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 21 TabOrder = 22
Height = 69 Height = 69
Width = 403 Width = 403
end end
@ -158,7 +158,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 116 Left = 116
Top = 305 Top = 332
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -177,12 +177,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 13
Width = 336 Width = 336
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 116 Left = 116
Top = 332 Top = 359
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -200,18 +200,18 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 14
Width = 336 Width = 336
end end
object bElegirDireccion: TBitBtn object bElegirDireccion: TBitBtn
Left = 278 Left = 278
Top = 359 Top = 386
Width = 172 Width = 172
Height = 23 Height = 23
Action = actElegirDireccion Action = actElegirDireccion
Caption = 'Elegir una direcci'#243'n de env'#237'o...' Caption = 'Elegir una direcci'#243'n de env'#237'o...'
Enabled = False Enabled = False
TabOrder = 14 TabOrder = 15
end end
object Button1: TButton object Button1: TButton
Left = 318 Left = 318
@ -317,21 +317,21 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20 TabOrder = 21
Width = 265 Width = 265
end end
object cbConAlmacen: TCheckBox object cbConAlmacen: TCheckBox
Left = 32 Left = 32
Top = 418 Top = 445
Width = 179 Width = 179
Height = 21 Height = 21
Caption = 'Asociar este albar'#225'n al almac'#233'n:' Caption = 'Asociar este albar'#225'n al almac'#233'n:'
TabOrder = 15 TabOrder = 16
OnClick = cbConAlmacenClick OnClick = cbConAlmacenClick
end end
object cbAlmacen: TcxDBLookupComboBox object cbAlmacen: TcxDBLookupComboBox
Left = 217 Left = 217
Top = 418 Top = 445
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -360,7 +360,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16 TabOrder = 17
Width = 235 Width = 235
end end
object eRefFacturaCli: TcxDBTextEdit object eRefFacturaCli: TcxDBTextEdit
@ -421,7 +421,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18 TabOrder = 19
Width = 265 Width = 265
end end
object eRefCliente: TcxDBTextEdit object eRefCliente: TcxDBTextEdit
@ -479,7 +479,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19 TabOrder = 20
Width = 265 Width = 265
end end
object cbProvincia: TcxDBComboBox object cbProvincia: TcxDBComboBox
@ -551,7 +551,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 17 TabOrder = 18
ReadOnly = False ReadOnly = False
ExplicitLeft = 480 ExplicitLeft = 480
ExplicitTop = 28 ExplicitTop = 28
@ -647,6 +647,35 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Top = 32 Top = 32
end end
end end
object cbPais: TcxDBComboBox
Left = 116
Top = 305
DataBinding.DataField = 'PAIS'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsEditFixedList
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbPaisPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
Width = 263
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -773,6 +802,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Control = cbPoblacion Control = cbPoblacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'Pa'#237's:'
Control = cbPais
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item12: TdxLayoutItem object dxLayoutControl1Item12: TdxLayoutItem
Caption = 'Pers. de contacto:' Caption = 'Pers. de contacto:'
Control = ePersonaContacto Control = ePersonaContacto

40
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -103,6 +103,8 @@ type
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran; frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran;
dxLayoutControl1Item1: TdxLayoutItem; dxLayoutControl1Item1: TdxLayoutItem;
dxLayoutControl1Item17: TdxLayoutItem;
cbPais: TcxDBComboBox;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject);
@ -122,6 +124,7 @@ type
procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject); procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
procedure cbProvinciaPropertiesInitPopup(Sender: TObject); procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
procedure cbPoblacionPropertiesInitPopup(Sender: TObject); procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
procedure cbPaisPropertiesInitPopup(Sender: TObject);
protected protected
FController : IAlbaranesClienteController; FController : IAlbaranesClienteController;
@ -133,12 +136,14 @@ type
FViewClienteAlbaran : IViewDatosYSeleccionClienteAlbaran; FViewClienteAlbaran : IViewDatosYSeleccionClienteAlbaran;
FFormasPago : IBizFormaPago; FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
FPaises : TStringList;
FProvincias : TStringList; FProvincias : TStringList;
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
FPoblaciones : TStringList; FPoblaciones : TStringList;
procedure CargarProvincias; procedure CargarProvincias;
procedure CargarPoblaciones; procedure CargarPoblaciones;
procedure CargarPaises;
function GetAlbaran: IBizAlbaranCliente; function GetAlbaran: IBizAlbaranCliente;
procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual; procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual;
@ -225,6 +230,30 @@ begin
FFormasPagoController.VerTodos(FFormasPago); FFormasPagoController.VerTodos(FFormasPago);
end; end;
procedure TfrViewAlbaranCliente.CargarPaises;
var
i : integer;
begin
with TProvinciasPoblacionesController.Create do
try
FPaises := DarListaPaises;
with cbPais.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FPaises.Count - 1 do
Add(FPaises.Names[i]);
finally
EndUpdate;
end;
end;
finally
Free;
end;
end;
procedure TfrViewAlbaranCliente.CargarPoblaciones; procedure TfrViewAlbaranCliente.CargarPoblaciones;
var var
i : integer; i : integer;
@ -297,6 +326,17 @@ begin
end; end;
end; end;
procedure TfrViewAlbaranCliente.cbPaisPropertiesInitPopup(Sender: TObject);
begin
ShowHourglassCursor;
try
if not Assigned(FPaises) then
CargarPaises;
finally
HideHourglassCursor;
end;
end;
procedure TfrViewAlbaranCliente.cbPoblacionPropertiesInitPopup(Sender: TObject); procedure TfrViewAlbaranCliente.cbPoblacionPropertiesInitPopup(Sender: TObject);
begin begin
inherited; inherited;

48
Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.dfm
View File

@ -1,18 +1,19 @@
inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCliente inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCliente
Width = 337 Width = 337
Height = 126 Height = 163
ExplicitWidth = 337 ExplicitWidth = 337
ExplicitHeight = 126 ExplicitHeight = 163
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 337 Width = 337
Height = 126 Height = 163
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 126
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 64 Left = 64
Top = 10 Top = 10
@ -53,7 +54,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 205 Left = 205
Top = 91 Top = 118
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = dsAlbaran DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -67,12 +68,12 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 6
Width = 122 Width = 122
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 64 Left = 64
Top = 91 Top = 118
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsAlbaran DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -87,7 +88,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 5
Width = 84 Width = 84
end end
object cbProvincia: TcxDBComboBox object cbProvincia: TcxDBComboBox
@ -140,6 +141,34 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
TabOrder = 3 TabOrder = 3
Width = 263 Width = 263
end end
object cbPais: TcxDBComboBox
Left = 64
Top = 91
DataBinding.DataField = 'PAIS'
Properties.DropDownListStyle = lsEditFixedList
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbPaisPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 256
end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -182,6 +211,11 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
Control = cbPoblacion Control = cbPoblacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Pa'#237's:'
Control = cbPais
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group4: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False ShowCaption = False

41
Source/Modulos/Albaranes de cliente/Views/uViewDireccionEntregaAlbaranCliente.pas
View File

@ -38,17 +38,22 @@ type
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
cbPoblacion: TcxDBComboBox; cbPoblacion: TcxDBComboBox;
dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Item7: TdxLayoutItem;
cbPais: TcxDBComboBox;
procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cbProvinciaPropertiesInitPopup(Sender: TObject); procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
procedure cbPoblacionPropertiesInitPopup(Sender: TObject); procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
procedure cbPaisPropertiesInitPopup(Sender: TObject);
protected protected
// FAlmacenesController : IAlmacenesController; // FAlmacenesController : IAlmacenesController;
// FAlmacenes: IBizAlmacen; // FAlmacenes: IBizAlmacen;
FAlbaran : IBizAlbaranCliente; FAlbaran : IBizAlbaranCliente;
FController : IAlbaranesClienteController; FController : IAlbaranesClienteController;
FPaises : TStringList;
FProvincias : TStringList; FProvincias : TStringList;
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
FPoblaciones : TStringList; FPoblaciones : TStringList;
procedure CargarPaises;
procedure CargarProvincias; procedure CargarProvincias;
procedure CargarPoblaciones; procedure CargarPoblaciones;
function GetAlbaranCliente: IBizAlbaranCliente; function GetAlbaranCliente: IBizAlbaranCliente;
@ -69,6 +74,30 @@ uses
uProvinciasPoblacionesController, uStringsUtils; uProvinciasPoblacionesController, uStringsUtils;
procedure TfrViewDireccionEntregaAlbaranCliente.CargarPaises;
var
i : integer;
begin
with TProvinciasPoblacionesController.Create do
try
FPaises := DarListaPaises;
with cbPais.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FPaises.Count - 1 do
Add(FPaises.Names[i]);
finally
EndUpdate;
end;
end;
finally
Free;
end;
end;
procedure TfrViewDireccionEntregaAlbaranCliente.CargarPoblaciones; procedure TfrViewDireccionEntregaAlbaranCliente.CargarPoblaciones;
var var
i : integer; i : integer;
@ -140,6 +169,18 @@ begin
end;} end;}
end; end;
procedure TfrViewDireccionEntregaAlbaranCliente.cbPaisPropertiesInitPopup(
Sender: TObject);
begin
ShowHourglassCursor;
try
if not Assigned(FPaises) then
CargarPaises;
finally
HideHourglassCursor;
end;
end;
procedure TfrViewDireccionEntregaAlbaranCliente.cbPoblacionPropertiesInitPopup( procedure TfrViewDireccionEntregaAlbaranCliente.cbPoblacionPropertiesInitPopup(
Sender: TObject); Sender: TObject);
begin begin

9
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -6,13 +6,14 @@ interface
uses uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos, uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
uControllerBase, uBizContactosPersonal; uControllerBase, uBizContactosPersonal, uBizIdiomas;
type type
IContactosController = interface(IControllerBase) IContactosController = interface(IControllerBase)
['{43F9A4ED-6563-4F95-9A56-330CF9C66731}'] ['{43F9A4ED-6563-4F95-9A56-330CF9C66731}']
function Buscar(const ID: Integer): IBizContacto; function Buscar(const ID: Integer): IBizContacto;
function BuscarTodos: IBizContacto; function BuscarTodos: IBizContacto;
function BuscarIdiomas: IBizIdiomas;
procedure Ver(AContacto : IBizContacto); procedure Ver(AContacto : IBizContacto);
procedure VerTodos(AContactos: IBizContacto); procedure VerTodos(AContactos: IBizContacto);
function Nuevo : IBizContacto; function Nuevo : IBizContacto;
@ -56,6 +57,7 @@ type
// Se implementa en los controladores hijos // Se implementa en los controladores hijos
function Buscar(const ID: Integer): IBizContacto; virtual; abstract; function Buscar(const ID: Integer): IBizContacto; virtual; abstract;
function BuscarTodos: IBizContacto; virtual; abstract; function BuscarTodos: IBizContacto; virtual; abstract;
function BuscarIdiomas: IBizIdiomas;
function Nuevo : IBizContacto; virtual; abstract; function Nuevo : IBizContacto; virtual; abstract;
procedure Ver(AContacto : IBizContacto); virtual; abstract; procedure Ver(AContacto : IBizContacto); virtual; abstract;
procedure VerTodos(AContactos: IBizContacto); virtual; abstract; procedure VerTodos(AContactos: IBizContacto); virtual; abstract;
@ -105,6 +107,11 @@ begin
end; end;
end; end;
function TContactosController.BuscarIdiomas: IBizIdiomas;
begin
Result := (FDataModule as IDataModuleContactos).GetIdiomas;
end;
constructor TContactosController.Create; constructor TContactosController.Create;
begin begin
inherited; inherited;

1
Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
View File

@ -79,6 +79,7 @@ begin
POBLACION := AContacto.POBLACION; POBLACION := AContacto.POBLACION;
PROVINCIA := AContacto.PROVINCIA; PROVINCIA := AContacto.PROVINCIA;
CODIGO_POSTAL := AContacto.CODIGO_POSTAL; CODIGO_POSTAL := AContacto.CODIGO_POSTAL;
PAIS := AContacto.PAIS;
TELEFONO := AContacto.TELEFONO_1; TELEFONO := AContacto.TELEFONO_1;
FAX := AContacto.FAX; FAX := AContacto.FAX;
MOVIL := AContacto.MOVIL_1; MOVIL := AContacto.MOVIL_1;

15
Source/Modulos/Contactos/Data/uDataModuleAgentes.dfm
View File

@ -86,6 +86,21 @@ inherited DataModuleAgentes: TDataModuleAgentes
DisplayLabel = 'C'#243'digo postal' DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL' DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'IDIOMA'
DataType = datString
Size = 255
end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString

65
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -32,7 +32,7 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 184 Left = 184
Top = 288 Top = 288
end end
object tbl_Clientes: TDAMemDataTable object tbl_Clientes: TDAMemDataTable [13]
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
@ -98,6 +98,21 @@ inherited DataModuleClientes: TDataModuleClientes
DisplayLabel = 'C'#243'digo postal' DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL' DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'IDIOMA'
DataType = datString
Size = 255
end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
@ -164,10 +179,14 @@ inherited DataModuleClientes: TDataModuleClientes
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Clientes_FECHA_ALTA'
DictionaryEntry = 'Clientes_FECHA_ALTA'
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Clientes_FECHA_MODIFICACION'
DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
@ -191,6 +210,7 @@ inherited DataModuleClientes: TDataModuleClientes
item item
Name = 'ID_AGENTE' Name = 'ID_AGENTE'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'Clientes_ID_AGENTE'
end end
item item
Name = 'GRUPO_CLIENTE' Name = 'GRUPO_CLIENTE'
@ -209,14 +229,20 @@ inherited DataModuleClientes: TDataModuleClientes
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_1'
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_1'
end end
item item
Name = 'VENCIMIENTO_FACTURAS_2' Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_2'
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_2'
end end
item item
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_3'
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_3'
end end
item item
Name = 'BLOQUEADO' Name = 'BLOQUEADO'
@ -228,15 +254,21 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'AGENTE' Name = 'AGENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Clientes_AGENTE'
DictionaryEntry = 'Clientes_AGENTE'
end end
item item
Name = 'RAPEL' Name = 'RAPEL'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Clientes_RAPEL'
DictionaryEntry = 'Clientes_RAPEL'
end end
item item
Name = 'EMAIL_ADMINISTRACION' Name = 'EMAIL_ADMINISTRACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Clientes_EMAIL_ADMINISTRACION'
DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
end end
item item
Name = 'REGIMEN_IVA' Name = 'REGIMEN_IVA'
@ -277,10 +309,14 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'CODIGO_ASIGNADO' Name = 'CODIGO_ASIGNADO'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Clientes_CODIGO_ASIGNADO'
DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
DisplayLabel = 'Clientes_DESCUENTO'
DictionaryEntry = 'Clientes_DESCUENTO'
end end
item item
Name = 'FELICITACION' Name = 'FELICITACION'
@ -292,14 +328,19 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'TIPO_CLIENTE' Name = 'TIPO_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Clientes_TIPO_CLIENTE'
DictionaryEntry = 'Clientes_TIPO_CLIENTE'
end end
item item
Name = 'SEPA' Name = 'SEPA'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = 'Clientes_SEPA'
DictionaryEntry = 'Clientes_SEPA'
end end
item item
Name = 'ID_CENTRAL' Name = 'ID_CENTRAL'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'Clientes_ID_CENTRAL'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
@ -310,13 +351,13 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 296 Left = 296
Top = 168 Top = 168
end end
object ds_Clientes: TDADataSource object ds_Clientes: TDADataSource [14]
DataSet = tbl_Clientes.Dataset DataSet = tbl_Clientes.Dataset
DataTable = tbl_Clientes DataTable = tbl_Clientes
Left = 296 Left = 296
Top = 232 Top = 232
end end
object tbl_ClientesDescuentos: TDAMemDataTable object tbl_ClientesDescuentos: TDAMemDataTable [15]
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
@ -365,13 +406,13 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 448 Left = 448
Top = 168 Top = 168
end end
object ds_ClientesDescuentos: TDADataSource object ds_ClientesDescuentos: TDADataSource [16]
DataSet = tbl_ClientesDescuentos.Dataset DataSet = tbl_ClientesDescuentos.Dataset
DataTable = tbl_ClientesDescuentos DataTable = tbl_ClientesDescuentos
Left = 448 Left = 448
Top = 224 Top = 224
end end
object tbl_GruposCliente: TDAMemDataTable object tbl_GruposCliente: TDAMemDataTable [17]
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
@ -398,13 +439,13 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 552 Left = 552
Top = 168 Top = 168
end end
object ds_GruposCliente: TDADataSource object ds_GruposCliente: TDADataSource [18]
DataSet = tbl_GruposCliente.Dataset DataSet = tbl_GruposCliente.Dataset
DataTable = tbl_GruposCliente DataTable = tbl_GruposCliente
Left = 552 Left = 552
Top = 224 Top = 224
end end
object tbl_ClientesDescuentosArticulos: TDAMemDataTable object tbl_ClientesDescuentosArticulos: TDAMemDataTable [19]
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
@ -479,13 +520,13 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 448 Left = 448
Top = 280 Top = 280
end end
object ds_ClientesDescuentosArticulos: TDADataSource object ds_ClientesDescuentosArticulos: TDADataSource [20]
DataSet = tbl_ClientesDescuentosArticulos.Dataset DataSet = tbl_ClientesDescuentosArticulos.Dataset
DataTable = tbl_ClientesDescuentosArticulos DataTable = tbl_ClientesDescuentosArticulos
Left = 448 Left = 448
Top = 336 Top = 336
end end
object tbl_TiposCliente: TDAMemDataTable object tbl_TiposCliente: TDAMemDataTable [21]
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
@ -511,13 +552,13 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 560 Left = 560
Top = 80 Top = 80
end end
object ds_TiposCliente: TDADataSource object ds_TiposCliente: TDADataSource [22]
DataSet = tbl_TiposCliente.Dataset DataSet = tbl_TiposCliente.Dataset
DataTable = tbl_TiposCliente DataTable = tbl_TiposCliente
Left = 560 Left = 560
Top = 32 Top = 32
end end
object tbl_ClientesSucursales: TDAMemDataTable object tbl_ClientesSucursales: TDAMemDataTable [23]
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
item item
@ -822,7 +863,7 @@ inherited DataModuleClientes: TDataModuleClientes
Left = 296 Left = 296
Top = 288 Top = 288
end end
object dsClientesSucursales: TDADataSource object dsClientesSucursales: TDADataSource [24]
DataSet = tbl_ClientesSucursales.Dataset DataSet = tbl_ClientesSucursales.Dataset
DataTable = tbl_ClientesSucursales DataTable = tbl_ClientesSucursales
Left = 296 Left = 296

55
Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
View File

@ -88,6 +88,21 @@ inherited DataModuleContactos: TDataModuleContactos
DisplayLabel = 'C'#243'digo postal' DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL' DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'IDIOMA'
DataType = datString
Size = 255
end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
@ -302,6 +317,11 @@ inherited DataModuleContactos: TDataModuleContactos
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere
@ -534,4 +554,39 @@ inherited DataModuleContactos: TDataModuleContactos
Left = 352 Left = 352
Top = 144 Top = 144
end end
object tbl_Idiomas: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ISO'
DataType = datString
Size = 2
Required = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Required = True
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
LogicalName = 'Idiomas'
IndexDefs = <>
Left = 40
Top = 248
end
object ds_Idiomas: TDADataSource
DataSet = tbl_Idiomas.Dataset
DataTable = tbl_Idiomas
Left = 40
Top = 200
end
end end

23
Source/Modulos/Contactos/Data/uDataModuleContactos.pas
View File

@ -7,12 +7,12 @@ uses
uDADataTable, uDABINAdapter, uDADataTable, uDABINAdapter,
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel,
uRORemoteService, uROClient, uROBinMessage, uRORemoteService, uROClient, uROBinMessage,
uBizContactos, uBizContactosDatosBancarios, uBizContactos, uBizContactosDatosBancarios,
uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport, uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport,
uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest, uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer, uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
uDAMemDataTable, uDataModuleBase, uBizContactosPersonal, uDAMemDataTable, uDataModuleBase, uBizContactosPersonal,
uIntegerListUtils; uIntegerListUtils, uBizIdiomas;
type type
TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport) TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport)
@ -29,6 +29,8 @@ type
ds_PersonalContacto: TDADataSource; ds_PersonalContacto: TDADataSource;
tbl_ListaAnosObjetivosAlb: TDAMemDataTable; tbl_ListaAnosObjetivosAlb: TDAMemDataTable;
ds_ListaAnosObjetivosAlb: TDADataSource; ds_ListaAnosObjetivosAlb: TDADataSource;
tbl_Idiomas: TDAMemDataTable;
ds_Idiomas: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
public public
@ -36,7 +38,8 @@ type
function _GetDirecciones: IBizDireccionesContacto; function _GetDirecciones: IBizDireccionesContacto;
function _GetItems (IDCategoria : Integer): IBizContacto; virtual; function _GetItems (IDCategoria : Integer): IBizContacto; virtual;
function _GetPersonal: IBizContactoPersonal; function _GetPersonal: IBizContactoPersonal;
function NewDireccion : IBizDireccionesContacto; function GetIdiomas : IBizIdiomas;
function NewDireccion : IBizDireccionesContacto;
// Report // Report
function GetReport(const ListaID: TIntegerList): Binary; function GetReport(const ListaID: TIntegerList): Binary;
@ -63,6 +66,20 @@ begin
// //
end; end;
function TDataModuleContactos.GetIdiomas: IBizIdiomas;
var
AIdiomas : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AIdiomas := CloneDataTable(tbl_Idiomas);
AIdiomas.BusinessRulesID := BIZ_CLIENT_IDIOMAS;
Result := (AIdiomas as IBizIdiomas);
finally
HideHourglassCursor;
end;
end;
function TDataModuleContactos.GetReport(const ListaID: TIntegerList): Binary; function TDataModuleContactos.GetReport(const ListaID: TIntegerList): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;

180
Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
View File

@ -1,164 +1,6 @@
inherited DataModuleEmpleados: TDataModuleEmpleados inherited DataModuleEmpleados: TDataModuleEmpleados
Height = 302 Height = 302
Width = 543 Width = 543
inherited tbl_Contactos: TDAMemDataTable
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'NIF/CIF'
DictionaryEntry = 'Contactos_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Required = True
DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Direcci'#243'n'
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'Contactos_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
DictionaryEntry = 'Contactos_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. trabajo'
DictionaryEntry = 'Contactos_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. particular'
DictionaryEntry = 'Contactos_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_MOVIL_2'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
DisplayLabel = 'E-mail trabajo'
DictionaryEntry = 'Contactos_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
DisplayLabel = 'E-mail particular'
DictionaryEntry = 'Contactos_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
DisplayLabel = 'Web'
DictionaryEntry = 'Contactos_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtMemo
DisplayLabel = 'Observaciones'
DictionaryEntry = 'Contactos_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'Fecha de alta'
DictionaryEntry = 'Contactos_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'Fecha de modificaci'#243'n'
DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'Usuario'
DictionaryEntry = 'Contactos_USUARIO'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_REFERENCIA'
end>
end
inherited ds_Contactos: TDADataSource inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset DataSet = tbl_Contactos.Dataset
end end
@ -171,6 +13,9 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
inherited ds_PersonalContacto: TDADataSource inherited ds_PersonalContacto: TDADataSource
DataSet = tbl_PersonalContacto.Dataset DataSet = tbl_PersonalContacto.Dataset
end end
inherited ds_ListaAnosObjetivosAlb: TDADataSource
DataSet = tbl_ListaAnosObjetivosAlb.Dataset
end
object tbl_Empleados: TDAMemDataTable object tbl_Empleados: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -237,6 +82,21 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
DisplayLabel = 'C'#243'digo postal' DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL' DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'IDIOMA'
DataType = datString
Size = 255
end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
@ -400,8 +260,6 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Empleados' LogicalName = 'Empleados'
IndexDefs = <> IndexDefs = <>
Left = 296 Left = 296
@ -435,8 +293,6 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'GruposEmpleado' LogicalName = 'GruposEmpleado'
IndexDefs = <> IndexDefs = <>
Left = 448 Left = 448

23
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -19,6 +19,9 @@ inherited DataModuleProveedores: TDataModuleProveedores
Left = 408 Left = 408
Top = 240 Top = 240
end end
inherited ds_ListaAnosObjetivosAlb: TDADataSource
DataSet = tbl_ListaAnosObjetivosAlb.Dataset
end
object tbl_GruposProveedor: TDAMemDataTable object tbl_GruposProveedor: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -118,6 +121,21 @@ inherited DataModuleProveedores: TDataModuleProveedores
DisplayLabel = 'C'#243'digo postal' DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL' DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'IDIOMA'
DataType = datString
Size = 255
end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
@ -296,11 +314,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
item item
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

3
Source/Modulos/Contactos/Model/Contactos_model.dpk
View File

@ -60,6 +60,7 @@ contains
uBizClientesDescuentos in 'uBizClientesDescuentos.pas', uBizClientesDescuentos in 'uBizClientesDescuentos.pas',
uBizAgentesObjetivosFacturas in 'uBizAgentesObjetivosFacturas.pas', uBizAgentesObjetivosFacturas in 'uBizAgentesObjetivosFacturas.pas',
uBizAgentesObjetivosAlbaranes in 'uBizAgentesObjetivosAlbaranes.pas', uBizAgentesObjetivosAlbaranes in 'uBizAgentesObjetivosAlbaranes.pas',
uBizTiposCliente in 'uBizTiposCliente.pas'; uBizTiposCliente in 'uBizTiposCliente.pas',
uBizIdiomas in 'uBizIdiomas.pas';
end. end.

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

@ -50,17 +50,10 @@
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" /> <DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" /> <DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="Data\uIDataModuleAgentes.pas" /> <DCCReference Include="Data\uIDataModuleAgentes.pas" />
<DCCReference Include="Data\uIDataModuleClientes.pas" /> <DCCReference Include="Data\uIDataModuleClientes.pas" />
<DCCReference Include="Data\uIDataModuleContactos.pas" /> <DCCReference Include="Data\uIDataModuleContactos.pas" />
@ -68,6 +61,11 @@
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" /> <DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
<DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.pas" /> <DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.pas" />
<DCCReference Include="Data\uIDataModuleProveedores.pas" /> <DCCReference Include="Data\uIDataModuleProveedores.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schContactosClient_Intf.pas" /> <DCCReference Include="schContactosClient_Intf.pas" />
<DCCReference Include="schContactosServer_Intf.pas" /> <DCCReference Include="schContactosServer_Intf.pas" />
<DCCReference Include="uBizAgentesComisiones.pas" /> <DCCReference Include="uBizAgentesComisiones.pas" />
@ -82,7 +80,10 @@
<DCCReference Include="uBizGruposCliente.pas" /> <DCCReference Include="uBizGruposCliente.pas" />
<DCCReference Include="uBizGruposEmpleado.pas" /> <DCCReference Include="uBizGruposEmpleado.pas" />
<DCCReference Include="uBizGruposProveedor.pas" /> <DCCReference Include="uBizGruposProveedor.pas" />
<DCCReference Include="uBizIdiomas.pas" />
<DCCReference Include="uBizTiposCliente.pas" /> <DCCReference Include="uBizTiposCliente.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

BIN
Source/Modulos/Contactos/Model/Contactos_model.identcache
View File

Binary file not shown.

3
Source/Modulos/Contactos/Model/Data/uIDataModuleContactos.pas
View File

@ -5,7 +5,7 @@ interface
uses uses
SysUtils, Classes, SysUtils, Classes,
uBizContactos, uBizContactosDatosBancarios, uBizDireccionesContacto, uBizContactos, uBizContactosDatosBancarios, uBizDireccionesContacto,
uBizContactosPersonal; uBizContactosPersonal, uBizIdiomas;
type type
IDataModuleContactos = interface IDataModuleContactos = interface
@ -15,6 +15,7 @@ type
function _GetDirecciones: IBizDireccionesContacto; function _GetDirecciones: IBizDireccionesContacto;
function _GetPersonal: IBizContactoPersonal; function _GetPersonal: IBizContactoPersonal;
function NewDireccion : IBizDireccionesContacto; function NewDireccion : IBizDireccionesContacto;
function GetIdiomas : IBizIdiomas;
end; end;
implementation implementation

1080
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

File diff suppressed because it is too large Load Diff

992
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

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

@ -640,6 +640,7 @@ end;
procedure TBizContacto.IniciarValoresContactoNuevo; procedure TBizContacto.IniciarValoresContactoNuevo;
begin begin
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
IDIOMA_ISO := 'es';
end; end;
procedure TBizContacto.OnNewRecord(Sender: TDADataTable); procedure TBizContacto.OnNewRecord(Sender: TDADataTable);

2
Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas
View File

@ -23,7 +23,7 @@ type
implementation implementation
uses uses
uDataModuleServer, uDAClasses, uDataModuleServer, uDAClasses,
schContactosClient_Intf, uBusinessUtils; schContactosClient_Intf, uBusinessUtils;
const const

37
Source/Modulos/Contactos/Model/uBizIdiomas.pas Normal file
View File

@ -0,0 +1,37 @@
unit uBizIdiomas;
interface
uses
uDAInterfaces, uDADataTable, schContactosClient_Intf;
const
BIZ_CLIENT_IDIOMAS = 'Client.Idiomas';
type
IBizIdiomas = interface(IIdiomas)
['{39C02F2A-A2FB-4CF4-AABE-C84F84A8EC86}']
end;
TBizIdiomas = class(TIdiomasDataTableRules, IBizIdiomas)
protected
procedure AfterOpen(Sender: TDADataTable); override;
end;
implementation
{ TBizIdiomas }
procedure TBizIdiomas.AfterOpen(Sender: TDADataTable);
begin
inherited;
DataTable.Sort([fld_IdiomasDESCRIPCION], [sdAscending]);
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_IDIOMAS, TBizIdiomas);
finalization
end.

2
Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
View File

@ -95,7 +95,6 @@ begin
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
ParamByName('PAIS').Value := aChange.NewValueByName[fld_ProveedoresPAIS];
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]; ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
Execute; Execute;
@ -138,7 +137,6 @@ begin
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
ParamByName('PAIS').Value := aChange.NewValueByName[fld_ProveedoresPAIS];
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]; ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
Execute; Execute;

371
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -112,6 +112,18 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = 'REFERENCIA'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end
item
DatasetField = 'IDIOMA_ISO'
TableField = 'IDIOMA_ISO'
end
item
DatasetField = 'IDIOMA'
TableField = 'IDIOMA'
end> end>
end> end>
Name = 'Contactos' Name = 'Contactos'
@ -170,6 +182,21 @@ object srvContactos: TsrvContactos
Size = 10 Size = 10
DictionaryEntry = 'Contactos_CODIGO_POSTAL' DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'IDIOMA'
DataType = datString
Size = 255
end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
@ -593,6 +620,18 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'ID_CENTRAL' DatasetField = 'ID_CENTRAL'
TableField = 'ID_CENTRAL' TableField = 'ID_CENTRAL'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end
item
DatasetField = 'IDIOMA_ISO'
TableField = 'IDIOMA_ISO'
end
item
DatasetField = 'IDIOMA'
TableField = 'IDIOMA'
end> end>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -652,6 +691,21 @@ object srvContactos: TsrvContactos
Size = 10 Size = 10
DictionaryEntry = 'Contactos_CODIGO_POSTAL' DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'IDIOMA'
DataType = datString
Size = 255
end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
@ -1016,6 +1070,14 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'PAIS' DatasetField = 'PAIS'
TableField = 'PAIS' TableField = 'PAIS'
end
item
DatasetField = 'IDIOMA_ISO'
TableField = 'IDIOMA_ISO'
end
item
DatasetField = 'IDIOMA'
TableField = 'IDIOMA'
end> end>
end> end>
Name = 'Proveedores' Name = 'Proveedores'
@ -1075,6 +1137,21 @@ object srvContactos: TsrvContactos
Size = 10 Size = 10
DictionaryEntry = 'Contactos_CODIGO_POSTAL' DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'IDIOMA'
DataType = datString
Size = 255
end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
@ -1232,11 +1309,6 @@ object srvContactos: TsrvContactos
item item
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
end end
item item
@ -1382,6 +1454,18 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'CAUSA_BAJA' DatasetField = 'CAUSA_BAJA'
TableField = 'CAUSA_BAJA' TableField = 'CAUSA_BAJA'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end
item
DatasetField = 'IDIOMA_ISO'
TableField = 'IDIOMA_ISO'
end
item
DatasetField = 'IDIOMA'
TableField = 'IDIOMA'
end> end>
end> end>
Name = 'Empleados' Name = 'Empleados'
@ -1441,6 +1525,21 @@ object srvContactos: TsrvContactos
Size = 10 Size = 10
DictionaryEntry = 'Contactos_CODIGO_POSTAL' DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'IDIOMA'
DataType = datString
Size = 255
end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
@ -1651,6 +1750,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'FECHA_MODIFICACION' DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'DireccionesContacto' Name = 'DireccionesContacto'
@ -1745,6 +1848,11 @@ object srvContactos: TsrvContactos
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
end end
item item
@ -2477,6 +2585,18 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'PERSONA_CONTACTO' DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end
item
DatasetField = 'IDIOMA_ISO'
TableField = 'IDIOMA_ISO'
end
item
DatasetField = 'IDIOMA'
TableField = 'IDIOMA'
end> end>
end> end>
Name = 'Agentes' Name = 'Agentes'
@ -2535,6 +2655,21 @@ object srvContactos: TsrvContactos
Size = 10 Size = 10
DictionaryEntry = 'Contactos_CODIGO_POSTAL' DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'IDIOMA'
DataType = datString
Size = 255
end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
@ -2934,6 +3069,50 @@ object srvContactos: TsrvContactos
DataType = datSmallInt DataType = datSmallInt
end> end>
end end
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'IDIOMAS'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ISO'
TableField = 'ISO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'Idiomas'
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ISO'
DataType = datString
Size = 2
Required = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Required = True
end>
end
item item
Params = <> Params = <>
Statements = < Statements = <
@ -3421,132 +3600,125 @@ object srvContactos: TsrvContactos
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID' GeneratorName = 'GEN_CONTACTOS_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
Value = ''
end end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO_2' Name = 'TELEFONO_2'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL_1' Name = 'MOVIL_1'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL_2' Name = 'MOVIL_2'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL_1' Name = 'EMAIL_1'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL_2' Name = 'EMAIL_2'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PAGINA_WEB' Name = 'PAGINA_WEB'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOTAS' Name = 'NOTAS'
DataType = datMemo DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 20 Size = 30
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -3554,13 +3726,14 @@ object srvContactos: TsrvContactos
TargetTable = 'CONTACTOS' TargetTable = 'CONTACTOS'
SQL = SQL =
'INSERT'#10' INTO CONTACTOS'#10' (ID, NIF_CIF, NOMBRE, PERSONA_CONTAC' + 'INSERT'#10' INTO CONTACTOS'#10' (ID, NIF_CIF, NOMBRE, PERSONA_CONTAC' +
'TO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' TELEFONO_1,' + 'TO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' PAIS, IDIOM' +
' TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, '#10' EMAIL_2, PAGI' + 'A_ISO, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1,'#10' ' +
'NA_WEB, NOTAS, USUARIO, REFERENCIA, FECHA_ALTA)'#10' VALUES'#10' (:I' + ' EMAIL_2, PAGINA_WEB, NOTAS, USUARIO, REFERENCIA, FECHA_ALTA)' +
'D, :NIF_CIF, :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POBLACION, :PR' + #10' VALUES'#10' (:ID, :NIF_CIF, :NOMBRE, :PERSONA_CONTACTO, :CALLE' +
'OVINCIA,'#10' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1' + ', :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :PAIS, :IDIOMA_IS' +
', '#10' :MOVIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS,' + 'O, :TELEFONO_1, :TELEFONO_2, :MOVIL_1,'#10' :MOVIL_2, :FAX, :EMA' +
' '#10' :USUARIO, :REFERENCIA, CURRENT_TIMESTAMP)'#10 'IL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS, '#10' :USUARIO, :REFERENCIA' +
', CURRENT_TIMESTAMP)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3591,131 +3764,123 @@ object srvContactos: TsrvContactos
DataType = datString DataType = datString
Size = 15 Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
Value = ''
end end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO_2' Name = 'TELEFONO_2'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL_1' Name = 'MOVIL_1'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL_2' Name = 'MOVIL_2'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL_1' Name = 'EMAIL_1'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL_2' Name = 'EMAIL_2'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PAGINA_WEB' Name = 'PAGINA_WEB'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOTAS' Name = 'NOTAS'
DataType = datMemo DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 20 Size = 30
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -3725,13 +3890,13 @@ object srvContactos: TsrvContactos
'UPDATE CONTACTOS'#10' SET '#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NO' + 'UPDATE CONTACTOS'#10' SET '#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NO' +
'MBRE, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' CALLE = :CA' + 'MBRE, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' CALLE = :CA' +
'LLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10 + 'LLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10 +
' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' TELEFONO_1 = :TELEFONO_' + ' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PAIS = :PAIS,'#10' IDIOM' +
'1, '#10' TELEFONO_2 = :TELEFONO_2, '#10' MOVIL_1 = :MOVIL_1, '#10' ' + 'A_ISO = :IDIOMA_ISO,'#10' TELEFONO_1 = :TELEFONO_1, '#10' TELEFONO' +
'MOVIL_2 = :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' ' + '_2 = :TELEFONO_2, '#10' MOVIL_1 = :MOVIL_1, '#10' MOVIL_2 = :MOVIL' +
' EMAIL_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS' + '_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' EMAIL_2 = :EM' +
' = :NOTAS, '#10' USUARIO = :USUARIO,'#10' REFERENCIA = :REFERENCIA' + 'AIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS = :NOTAS, '#10' ' +
','#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :' + 'USUARIO = :USUARIO,'#10' REFERENCIA = :REFERENCIA,'#10' FECHA_MODI' +
'OLD_ID)'#10 'FICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -4477,12 +4642,6 @@ object srvContactos: TsrvContactos
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -4493,13 +4652,12 @@ object srvContactos: TsrvContactos
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' + 'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' + 'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' +
'IFICACION, GRUPO_PROVEEDOR, EMAIL_ADMINISTRACION,'#10' VENCIMIENT' + 'IFICACION, GRUPO_PROVEEDOR, EMAIL_ADMINISTRACION,'#10' VENCIMIENT' +
'O_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3, PA' + 'O_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' ' +
'IS)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESC' + 'VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCIO' +
'RIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTR' + 'N_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTRATA, :' +
'ATA, :ID_FORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFICACIO' + 'ID_FORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFICACION, :GR' +
'N, :GRUPO_PROVEEDOR, :EMAIL_ADMINISTRACION,'#10' :VENCIMIENTO_FAC' + 'UPO_PROVEEDOR, :EMAIL_ADMINISTRACION,'#10' :VENCIMIENTO_FACTURAS_' +
'TURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3, :PAIS' + '1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'#10' '#10' '#10#10
')'#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -4613,12 +4771,6 @@ object srvContactos: TsrvContactos
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID_PROVEEDOR' Name = 'OLD_ID_PROVEEDOR'
Value = '' Value = ''
@ -4638,8 +4790,8 @@ object srvContactos: TsrvContactos
'TRATA,'#10' EMAIL_ADMINISTRACION = :EMAIL_ADMINISTRACION,'#10' VEN' + 'TRATA,'#10' EMAIL_ADMINISTRACION = :EMAIL_ADMINISTRACION,'#10' VEN' +
'CIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_F' + 'CIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_F' +
'ACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 ' + 'ACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 ' +
'= :VENCIMIENTO_FACTURAS_3,'#10' PAIS = :PAIS'#10' WHERE'#10' (ID_PROV' + '= :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PR' +
'EEDOR = :OLD_ID_PROVEEDOR)'#10 'OVEEDOR)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -4652,95 +4804,87 @@ object srvContactos: TsrvContactos
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DIR_ID' GeneratorName = 'GEN_CONTACTOS_DIR_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_CONTACTO' Name = 'ID_CONTACTO'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL' Name = 'MOVIL'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL' Name = 'EMAIL'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOTAS' Name = 'NOTAS'
DataType = datMemo DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PORTE' Name = 'PORTE'
DataType = datFloat DataType = datCurrency
Value = ''
end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -4749,10 +4893,10 @@ object srvContactos: TsrvContactos
SQL = SQL =
'INSERT'#10' INTO CONTACTOS_DIRECCIONES'#10' (ID, ID_CONTACTO, NOMBRE' + 'INSERT'#10' INTO CONTACTOS_DIRECCIONES'#10' (ID, ID_CONTACTO, NOMBRE' +
', CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' PERSONA_CONTA' + ', CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' PERSONA_CONTA' +
'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE)'#10' VALUES'#10' (:I' + 'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE, PAIS)'#10' VALUES'#10' ' +
'D, :ID_CONTACTO, :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIG' + ' (:ID, :ID_CONTACTO, :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, ' +
'O_POSTAL,'#10' :PERSONA_CONTACTO, :TELEFONO, :MOVIL, :FAX, :EMAI' + ':CODIGO_POSTAL,'#10' :PERSONA_CONTACTO, :TELEFONO, :MOVIL, :FAX,' +
'L, :NOTAS, :PORTE)' ' :EMAIL, :NOTAS, :PORTE, :PAIS)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -4784,95 +4928,86 @@ object srvContactos: TsrvContactos
Name = 'ID_CONTACTO' Name = 'ID_CONTACTO'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL' Name = 'MOVIL'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL' Name = 'EMAIL'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOTAS' Name = 'NOTAS'
DataType = datMemo DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PORTE' Name = 'PORTE'
DataType = datFloat DataType = datCurrency
Value = ''
end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -4884,8 +5019,8 @@ object srvContactos: TsrvContactos
'POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CO' + 'POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CO' +
'DIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELE' + 'DIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELE' +
'FONO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' FAX = :FAX,'#10' EMAIL ' + 'FONO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' FAX = :FAX,'#10' EMAIL ' +
'= :EMAIL,'#10' NOTAS = :NOTAS,'#10' PORTE = :PORTE'#10' WHERE'#10' (ID' + '= :EMAIL,'#10' NOTAS = :NOTAS,'#10' PORTE = :PORTE,'#10' PAIS = :PA' +
' = :OLD_ID)' 'IS'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

63
Source/Modulos/Contactos/Views/uEditorAgente.dfm
View File

@ -132,6 +132,7 @@ inherited fEditorAgente: TfEditorAgente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 864 Width = 864
Height = 614 Height = 614
ActivePage = pagGeneral
ExplicitWidth = 864 ExplicitWidth = 864
ExplicitHeight = 614 ExplicitHeight = 614
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -300,6 +301,14 @@ inherited fEditorAgente: TfEditorAgente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
end end
inherited cbPais: TcxDBComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 155
Width = 155
end
end end
end end
end end
@ -319,19 +328,33 @@ inherited fEditorAgente: TfEditorAgente
Width = 114 Width = 114
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 528 Left = 335
ExplicitLeft = 528 ExplicitLeft = 335
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Left = 615
ExplicitLeft = 615
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
end end
inherited eDC: TcxDBTextEdit
Left = 494
ExplicitLeft = 494
end
inherited eTitular: TcxDBTextEdit inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
end end
inherited eSWIFT: TcxDBTextEdit
ExplicitWidth = 348
Width = 348
end
inherited eIBAN: TcxDBTextEdit
ExplicitWidth = 348
Width = 348
end
end end
end end
end end
@ -363,6 +386,18 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 856
ExplicitWidth = 856 ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -444,6 +479,18 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 856
ExplicitWidth = 856 ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Width = 856 Width = 856
@ -498,6 +545,18 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 856
ExplicitWidth = 856 ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Width = 856 Width = 856

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

@ -2,18 +2,18 @@ inherited fEditorCliente: TfEditorCliente
Left = 387 Left = 387
Top = 297 Top = 297
Caption = 'Ficha de cliente' Caption = 'Ficha de cliente'
ClientHeight = 715 ClientHeight = 855
ClientWidth = 870 ClientWidth = 1050
ExplicitWidth = 878 ExplicitWidth = 1058
ExplicitHeight = 749 ExplicitHeight = 889
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 870 Width = 1050
Caption = 'Ficha de cliente' Caption = 'Ficha de cliente'
ExplicitWidth = 870 ExplicitWidth = 890
inherited Image1: TImage inherited Image1: TImage
Left = 843 Left = 1023
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -48,15 +48,15 @@ inherited fEditorCliente: TfEditorCliente
ExplicitLeft = 565 ExplicitLeft = 565
end end
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 745 Left = 925
ExplicitLeft = 745 ExplicitLeft = 765
AnchorX = 790 AnchorX = 970
AnchorY = 14 AnchorY = 14
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 870 Width = 1050
ExplicitWidth = 870 ExplicitWidth = 890
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
Left = 3 Left = 3
DockPos = 3 DockPos = 3
@ -96,7 +96,7 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 870 ExplicitWidth = 1050
object TBXSubmenuItem2: TTBXSubmenuItem [4] object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones' Caption = 'A&cciones'
object TBXItem33: TTBXItem object TBXItem33: TTBXItem
@ -124,19 +124,19 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 864 Width = 1044
Height = 614 Height = 754
ActivePage = pagDescuentos ActivePage = pagGeneral
ExplicitWidth = 864 ExplicitWidth = 884
ExplicitHeight = 614 ExplicitHeight = 719
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 586 ExplicitHeight = 691
inline frViewCliente1: TfrViewCliente inline frViewCliente1: TfrViewCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 856 Width = 1036
Height = 586 Height = 726
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -146,71 +146,71 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 586 ExplicitHeight = 691
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 856 Width = 1036
Height = 586 Height = 726
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 586 ExplicitHeight = 691
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 794 Left = 991
Top = 218 Top = 218
ExplicitLeft = 794 ExplicitLeft = 991
ExplicitTop = 218 ExplicitTop = 218
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 794 Left = 991
Top = 190 Top = 190
ExplicitLeft = 794 ExplicitLeft = 991
ExplicitTop = 190 ExplicitTop = 190
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 794 Left = 991
Top = 162 Top = 162
ExplicitLeft = 794 ExplicitLeft = 991
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 598 Left = 736
Top = 418 Top = 418
Width = 269 Width = 269
ExplicitLeft = 598 ExplicitLeft = 736
ExplicitTop = 418 ExplicitTop = 418
ExplicitWidth = 269 ExplicitWidth = 269
end end
inherited Label2: TLabel inherited Label2: TLabel
Left = 598 Left = 736
Top = 321 Top = 321
Width = 271 Width = 271
ExplicitLeft = 598 ExplicitLeft = 736
ExplicitTop = 321 ExplicitTop = 321
ExplicitWidth = 271 ExplicitWidth = 271
end end
inherited PngSpeedButton4: TPngSpeedButton inherited PngSpeedButton4: TPngSpeedButton
Left = 794 Left = 991
Top = 366 Top = 366
ExplicitLeft = 794 ExplicitLeft = 991
ExplicitTop = 366 ExplicitTop = 366
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 451 Top = 397
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 451 ExplicitTop = 397
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 478 Top = 424
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 478 ExplicitTop = 424
ExplicitWidth = 145 ExplicitWidth = 145
Width = 145 Width = 145
end end
@ -225,12 +225,12 @@ inherited fEditorCliente: TfEditorCliente
Width = 246 Width = 246
end end
inherited cbClienteBloqueado: TcxDBCheckBox inherited cbClienteBloqueado: TcxDBCheckBox
Top = 373 Top = 346
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 373 ExplicitTop = 346
ExplicitWidth = 356 ExplicitWidth = 356
Width = 356 Width = 356
end end
@ -244,16 +244,6 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited eBloqueo: TcxDBTextEdit
Top = 400
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 400
ExplicitWidth = 246
Width = 246
end
inherited eCodigoAsignado: TcxDBTextEdit inherited eCodigoAsignado: TcxDBTextEdit
Top = 111 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -265,53 +255,52 @@ inherited fEditorCliente: TfEditorCliente
Width = 246 Width = 246
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 505 Top = 451
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 505 ExplicitTop = 451
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 505 Left = 643
Top = 478 Top = 424
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 505 ExplicitLeft = 643
ExplicitTop = 478 ExplicitTop = 424
end end
inherited cbFelicitacion: TcxDBCheckBox inherited cbFelicitacion: TcxDBCheckBox
Left = 598 Left = 736
Top = 270 Top = 270
ExplicitLeft = 598 ExplicitLeft = 736
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 370 ExplicitWidth = 370
Width = 370 Width = 370
end end
inherited cxDBCheckBox1: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 598 Left = 736
Top = 463 Top = 463
ExplicitLeft = 598 ExplicitLeft = 736
ExplicitTop = 463 ExplicitTop = 463
ExplicitWidth = 219 ExplicitWidth = 258
ExplicitHeight = 34 Width = 258
Width = 219
end end
inherited cbRapel: TcxDBCheckBox inherited cbRapel: TcxDBCheckBox
Top = 192 Top = 165
ExplicitTop = 192 ExplicitTop = 165
ExplicitWidth = 308 ExplicitWidth = 308
Width = 308 Width = 308
end end
inherited eMailAdministracion: TcxDBHyperLinkEdit inherited eMailAdministracion: TcxDBHyperLinkEdit
Left = 710 Left = 848
Top = 366 Top = 366
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 710 ExplicitLeft = 848
ExplicitTop = 366 ExplicitTop = 366
ExplicitWidth = 133 ExplicitWidth = 133
Width = 133 Width = 133
@ -329,23 +318,23 @@ inherited fEditorCliente: TfEditorCliente
Width = 656 Width = 656
end end
inherited cbTipoCliente: TcxDBComboBox inherited cbTipoCliente: TcxDBComboBox
Top = 165 Top = 138
ExplicitTop = 165 ExplicitTop = 138
ExplicitWidth = 332 ExplicitWidth = 332
Width = 332 Width = 332
end end
inherited cbSEPA: TcxDBCheckBox inherited cbSEPA: TcxDBCheckBox
Left = 280 Left = 344
Top = 192 Top = 165
ExplicitLeft = 280 ExplicitLeft = 344
ExplicitTop = 192 ExplicitTop = 165
ExplicitWidth = 481 ExplicitWidth = 481
Width = 481 Width = 481
end end
inherited frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral inherited frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral
Top = 243 Top = 216
Width = 235 Width = 235
ExplicitTop = 243 ExplicitTop = 216
ExplicitWidth = 235 ExplicitWidth = 235
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 235 Width = 235
@ -358,30 +347,29 @@ inherited fEditorCliente: TfEditorCliente
Width = 591 Width = 591
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 458 Left = 596
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 458 ExplicitLeft = 596
end end
end end
inherited Panel1: TPanel inherited Panel1: TPanel
Width = 235 Width = 235
ExplicitWidth = 548
inherited bVerFicha: TBitBtn inherited bVerFicha: TBitBtn
Visible = False Visible = False
end end
end end
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 710 Left = 848
Top = 217 Top = 217
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 710 ExplicitLeft = 848
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
@ -407,63 +395,63 @@ inherited fEditorCliente: TfEditorCliente
Width = 246 Width = 246
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 293 Left = 349
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 293 ExplicitLeft = 349
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 162 ExplicitWidth = 162
Width = 162 Width = 162
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 710 Left = 848
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 710 ExplicitLeft = 848
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 710 Left = 848
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 710 ExplicitLeft = 848
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 710 Left = 848
Top = 84 Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 710 ExplicitLeft = 848
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 710 Left = 848
Top = 111 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 710 ExplicitLeft = 848
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
@ -479,29 +467,53 @@ inherited fEditorCliente: TfEditorCliente
Width = 246 Width = 246
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 710 Left = 848
Top = 57 Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 710 ExplicitLeft = 848
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 710 Left = 848
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 710 ExplicitLeft = 848
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited cbPais: TcxDBComboBox
Top = 478
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 478
ExplicitWidth = 155
Width = 155
end
inherited cbIdioma: TcxDBLookupComboBox
Top = 505
ExplicitTop = 505
ExplicitWidth = 145
Width = 145
end
inherited eBloqueo: TcxDBTextEdit
Left = 384
Top = 346
ExplicitLeft = 384
ExplicitTop = 346
ExplicitWidth = 197
Width = 197
end
end end
inherited dsContacto: TDADataSource inherited dsContacto: TDADataSource
Left = 24 Left = 24
@ -509,35 +521,35 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 586 ExplicitHeight = 691
inherited frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios inherited frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
Width = 856 Width = 1036
Height = 586 Height = 726
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 586 ExplicitHeight = 691
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 856 Width = 1036
ExplicitWidth = 856 ExplicitWidth = 876
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114 ExplicitWidth = 114
Width = 114 Width = 114
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 335 Left = 392
ExplicitLeft = 335 ExplicitLeft = 392
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Left = 615 Left = 723
ExplicitLeft = 615 ExplicitLeft = 723
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
end end
inherited eDC: TcxDBTextEdit inherited eDC: TcxDBTextEdit
Left = 494 Left = 602
ExplicitLeft = 494 ExplicitLeft = 602
end end
inherited eTitular: TcxDBTextEdit inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194 ExplicitWidth = 194
@ -557,10 +569,12 @@ inherited fEditorCliente: TfEditorCliente
object pagDatosComerciales: TTabSheet [2] object pagDatosComerciales: TTabSheet [2]
Caption = 'Datos comerciales' Caption = 'Datos comerciales'
ImageIndex = 4 ImageIndex = 4
ExplicitWidth = 876
ExplicitHeight = 691
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
Left = 0 Left = 0
Top = 0 Top = 0
Width = 856 Width = 1036
Height = 193 Height = 193
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -571,17 +585,17 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 193 ExplicitHeight = 193
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 856 Width = 1036
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 856 ExplicitWidth = 876
inherited Label1: TLabel inherited Label1: TLabel
Left = 575 Left = 694
Top = 30 Top = 30
Width = 193 Width = 193
ExplicitLeft = 575 ExplicitLeft = 694
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 193 ExplicitWidth = 193
end end
@ -592,13 +606,13 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 263 ExplicitWidth = 263
end end
inherited eDiasVencimiento1: TcxDBSpinEdit inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 647 Left = 766
Top = 62 Top = 62
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 647 ExplicitLeft = 766
ExplicitTop = 62 ExplicitTop = 62
end end
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
@ -632,9 +646,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 169 Width = 169
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 415 Left = 534
Top = 57 Top = 57
ExplicitLeft = 415 ExplicitLeft = 534
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
@ -648,9 +662,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 169 Width = 169
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 415 Left = 534
Top = 84 Top = 84
ExplicitLeft = 415 ExplicitLeft = 534
ExplicitTop = 84 ExplicitTop = 84
end end
inherited eDescuento: TcxDBSpinEdit inherited eDescuento: TcxDBSpinEdit
@ -662,23 +676,23 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 149 ExplicitTop = 149
end end
inherited eDiasVencimiento2: TcxDBSpinEdit inherited eDiasVencimiento2: TcxDBSpinEdit
Left = 647 Left = 766
Top = 89 Top = 89
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 647 ExplicitLeft = 766
ExplicitTop = 89 ExplicitTop = 89
end end
inherited eDiasVencimiento3: TcxDBSpinEdit inherited eDiasVencimiento3: TcxDBSpinEdit
Left = 647 Left = 766
Top = 116 Top = 116
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 647 ExplicitLeft = 766
ExplicitTop = 116 ExplicitTop = 116
end end
inherited eAgente: TcxDBLookupComboBox inherited eAgente: TcxDBLookupComboBox
@ -693,11 +707,13 @@ inherited fEditorCliente: TfEditorCliente
object pagDirecciones: TTabSheet [3] object pagDirecciones: TTabSheet [3]
Caption = 'Direcciones' Caption = 'Direcciones'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 876
ExplicitHeight = 691
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0 Left = 0
Top = 0 Top = 0
Width = 856 Width = 1036
Height = 586 Height = 726
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -707,11 +723,11 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 586 ExplicitHeight = 691
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 856 Width = 1036
Height = 561 Height = 701
ExplicitWidth = 856 ExplicitWidth = 856
ExplicitHeight = 561 ExplicitHeight = 561
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -722,7 +738,7 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 1036
ExplicitWidth = 856 ExplicitWidth = 856
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 113 ExplicitWidth = 113
@ -742,11 +758,13 @@ inherited fEditorCliente: TfEditorCliente
object pagDescuentos: TTabSheet [4] object pagDescuentos: TTabSheet [4]
Caption = 'Descuentos' Caption = 'Descuentos'
ImageIndex = 2 ImageIndex = 2
ExplicitWidth = 876
ExplicitHeight = 691
inline frViewClienteDescuentos1: TfrViewClienteDescuentos inline frViewClienteDescuentos1: TfrViewClienteDescuentos
Left = 0 Left = 0
Top = 0 Top = 0
Width = 856 Width = 1036
Height = 386 Height = 526
HelpContext = 150 HelpContext = 150
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -757,23 +775,35 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 386 ExplicitHeight = 491
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 856 Width = 1036
Height = 361 Height = 501
ExplicitWidth = 856 ExplicitWidth = 856
ExplicitHeight = 361 ExplicitHeight = 361
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 1036
ExplicitWidth = 856 ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
inline frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos inline frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos
Left = 0 Left = 0
Top = 386 Top = 526
Width = 856 Width = 1036
Height = 200 Height = 200
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -784,38 +814,50 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitTop = 386 ExplicitTop = 491
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 200 ExplicitHeight = 200
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 856 Width = 1036
Height = 175 Height = 175
ExplicitWidth = 856 ExplicitWidth = 856
ExplicitHeight = 175 ExplicitHeight = 175
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 1036
ExplicitWidth = 856 ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
inherited pagPersonal: TTabSheet inherited pagPersonal: TTabSheet
Caption = 'Personas contacto' Caption = 'Personas contacto'
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 586 ExplicitHeight = 691
inherited frViewPersonalContacto1: TfrViewPersonalContacto inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 856 Width = 1036
Height = 586 Height = 726
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 586 ExplicitHeight = 691
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 856 Width = 1036
Height = 561 Height = 701
ExplicitWidth = 856 ExplicitWidth = 856
ExplicitHeight = 561 ExplicitHeight = 561
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 1036
ExplicitWidth = 856 ExplicitWidth = 856
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 62
@ -835,11 +877,13 @@ inherited fEditorCliente: TfEditorCliente
object tabSucursales: TTabSheet object tabSucursales: TTabSheet
Caption = 'Sucursales' Caption = 'Sucursales'
ImageIndex = 6 ImageIndex = 6
ExplicitWidth = 876
ExplicitHeight = 691
inline frViewSucursalesContacto1: TfrViewSucursalesContacto inline frViewSucursalesContacto1: TfrViewSucursalesContacto
Left = 0 Left = 0
Top = 0 Top = 0
Width = 856 Width = 1036
Height = 586 Height = 726
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -849,26 +893,38 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 856 ExplicitWidth = 876
ExplicitHeight = 586 ExplicitHeight = 691
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 856 Width = 1036
Height = 561 Height = 701
ExplicitWidth = 856 ExplicitWidth = 856
ExplicitHeight = 561 ExplicitHeight = 561
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 1036
ExplicitWidth = 856 ExplicitWidth = 856
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 696 Top = 836
Width = 870 Width = 1050
ExplicitTop = 696 ExplicitTop = 801
ExplicitWidth = 870 ExplicitWidth = 890
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Top = 208 Top = 208

47
Source/Modulos/Contactos/Views/uEditorDireccion.dfm
View File

@ -17,7 +17,7 @@ object fEditorDireccion: TfEditorDireccion
TextHeight = 13 TextHeight = 13
object Bevel1: TBevel object Bevel1: TBevel
Left = 8 Left = 8
Top = 8 Top = 26
Width = 357 Width = 357
Height = 521 Height = 521
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
@ -65,7 +65,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label6: TLabel object Label6: TLabel
Left = 20 Left = 20
Top = 227 Top = 247
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -73,7 +73,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label7: TLabel object Label7: TLabel
Left = 21 Left = 21
Top = 251 Top = 269
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -81,7 +81,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object PngSpeedButton3: TPngSpeedButton object PngSpeedButton3: TPngSpeedButton
Left = 304 Left = 304
Top = 320 Top = 338
Width = 23 Width = 23
Height = 22 Height = 22
OnClick = PngSpeedButton3Click OnClick = PngSpeedButton3Click
@ -106,7 +106,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label8: TLabel object Label8: TLabel
Left = 21 Left = 21
Top = 323 Top = 341
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -114,7 +114,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label9: TLabel object Label9: TLabel
Left = 21 Left = 21
Top = 363 Top = 381
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -122,7 +122,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label11: TLabel object Label11: TLabel
Left = 21 Left = 21
Top = 275 Top = 293
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -130,7 +130,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object Label12: TLabel object Label12: TLabel
Left = 21 Left = 21
Top = 299 Top = 317
Width = 109 Width = 109
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -151,6 +151,14 @@ object fEditorDireccion: TfEditorDireccion
Height = 14 Height = 14
Shape = bsTopLine Shape = bsTopLine
end end
object Label13: TLabel
Left = 20
Top = 212
Width = 110
Height = 13
AutoSize = False
Caption = 'Pa'#237's:'
end
object OKBtn: TButton object OKBtn: TButton
Left = 371 Left = 371
Top = 7 Top = 7
@ -160,7 +168,6 @@ object fEditorDireccion: TfEditorDireccion
Caption = '&Aceptar' Caption = '&Aceptar'
ModalResult = 1 ModalResult = 1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 343
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 371 Left = 371
@ -172,7 +179,6 @@ object fEditorDireccion: TfEditorDireccion
Caption = '&Cancelar' Caption = '&Cancelar'
ModalResult = 2 ModalResult = 2
TabOrder = 1 TabOrder = 1
ExplicitLeft = 343
end end
object eDireccion: TDBEdit object eDireccion: TDBEdit
Left = 135 Left = 135
@ -223,7 +229,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object ePersonaContacto: TDBEdit object ePersonaContacto: TDBEdit
Left = 135 Left = 135
Top = 224 Top = 242
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'PERSONA_CONTACTO' DataField = 'PERSONA_CONTACTO'
@ -232,7 +238,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object eTelefono: TDBEdit object eTelefono: TDBEdit
Left = 136 Left = 136
Top = 248 Top = 266
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'TELEFONO' DataField = 'TELEFONO'
@ -241,7 +247,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object eMail: TcxDBHyperLinkEdit object eMail: TcxDBHyperLinkEdit
Left = 136 Left = 136
Top = 320 Top = 338
DataBinding.DataField = 'EMAIL' DataBinding.DataField = 'EMAIL'
DataBinding.DataSource = dsDireccion DataBinding.DataSource = dsDireccion
Properties.OnEditValueChanged = eMailPropertiesEditValueChanged Properties.OnEditValueChanged = eMailPropertiesEditValueChanged
@ -263,7 +269,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object eNotas: TDBMemo object eNotas: TDBMemo
Left = 136 Left = 136
Top = 360 Top = 378
Width = 190 Width = 190
Height = 94 Height = 94
DataField = 'NOTAS' DataField = 'NOTAS'
@ -273,7 +279,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object eMovil: TDBEdit object eMovil: TDBEdit
Left = 136 Left = 136
Top = 272 Top = 290
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'MOVIL' DataField = 'MOVIL'
@ -282,7 +288,7 @@ object fEditorDireccion: TfEditorDireccion
end end
object eFax: TDBEdit object eFax: TDBEdit
Left = 136 Left = 136
Top = 296 Top = 314
Width = 191 Width = 191
Height = 21 Height = 21
DataField = 'FAX' DataField = 'FAX'
@ -306,6 +312,15 @@ object fEditorDireccion: TfEditorDireccion
TabOrder = 13 TabOrder = 13
Width = 132 Width = 132
end end
object ePais: TDBEdit
Left = 135
Top = 209
Width = 191
Height = 21
DataField = 'PAIS'
DataSource = dsDireccion
TabOrder = 14
end
object dsDireccion: TDADataSource object dsDireccion: TDADataSource
Left = 352 Left = 352
Top = 72 Top = 72

2
Source/Modulos/Contactos/Views/uEditorDireccion.pas
View File

@ -40,6 +40,8 @@ type
Label10: TLabel; Label10: TLabel;
ePortes: TcxDBCurrencyEdit; ePortes: TcxDBCurrencyEdit;
Bevel2: TBevel; Bevel2: TBevel;
ePais: TDBEdit;
Label13: TLabel;
procedure PngSpeedButton3Click(Sender: TObject); procedure PngSpeedButton3Click(Sender: TObject);
procedure eMailPropertiesEditValueChanged(Sender: TObject); procedure eMailPropertiesEditValueChanged(Sender: TObject);
procedure eMailPropertiesValidate(Sender: TObject; procedure eMailPropertiesValidate(Sender: TObject;

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

@ -116,7 +116,7 @@ inherited fEditorProveedor: TfEditorProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 824 Width = 824
Height = 519 Height = 519
ActivePage = pagDatosComerciales ActivePage = pagGeneral
ExplicitWidth = 824 ExplicitWidth = 824
ExplicitHeight = 519 ExplicitHeight = 519
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -163,10 +163,10 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 484 Left = 475
Top = 251 Top = 251
Width = 342 Width = 342
ExplicitLeft = 484 ExplicitLeft = 475
ExplicitTop = 251 ExplicitTop = 251
ExplicitWidth = 342 ExplicitWidth = 342
end end
@ -177,9 +177,9 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 324 ExplicitWidth = 324
end end
inherited PngSpeedButton4: TPngSpeedButton inherited PngSpeedButton4: TPngSpeedButton
Left = 444 Left = 435
Top = 471 Top = 471
ExplicitLeft = 444 ExplicitLeft = 435
ExplicitTop = 471 ExplicitTop = 471
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
@ -270,13 +270,13 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 366 Width = 366
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 402 Left = 393
Top = 294 Top = 294
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 402 ExplicitLeft = 393
ExplicitTop = 294 ExplicitTop = 294
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
@ -292,13 +292,13 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 772 Width = 772
end end
inherited cxDBCheckBox3: TcxDBCheckBox inherited cxDBCheckBox3: TcxDBCheckBox
Left = 384 Left = 375
Top = 138 Top = 138
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 384 ExplicitLeft = 375
ExplicitTop = 138 ExplicitTop = 138
end end
inherited cxDBCheckBox1: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
@ -310,53 +310,52 @@ inherited fEditorProveedor: TfEditorProveedor
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484 ExplicitLeft = 484
ExplicitTop = 283 ExplicitTop = 283
ExplicitWidth = 236 ExplicitHeight = 21
Width = 236
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 590 Left = 581
Top = 57 Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 590 ExplicitLeft = 581
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 590 Left = 581
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 590 ExplicitLeft = 581
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 590 Left = 581
Top = 84 Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 590 ExplicitLeft = 581
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 590 Left = 581
Top = 111 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 590 ExplicitLeft = 581
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 171 ExplicitWidth = 171
Width = 171 Width = 171
@ -372,61 +371,51 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 366 Width = 366
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 238 Left = 235
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 238 ExplicitLeft = 235
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 229 ExplicitWidth = 229
Width = 229 Width = 229
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 590 Left = 581
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 590 ExplicitLeft = 581
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 142 ExplicitWidth = 142
Width = 142 Width = 142
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 590 Left = 581
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 590 ExplicitLeft = 581
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 142 ExplicitWidth = 142
Width = 142 Width = 142
end end
inherited ePais: TcxDBTextEdit
Top = 348
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348
ExplicitWidth = 391
Width = 391
end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 590 Left = 581
Top = 217 Top = 217
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 590 ExplicitLeft = 581
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 142 ExplicitWidth = 142
Width = 142 Width = 142
@ -451,6 +440,16 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited cbPais: TcxDBComboBox
Top = 348
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348
ExplicitWidth = 155
Width = 155
end
end end
end end
end end
@ -470,19 +469,33 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 114 Width = 114
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 507 Left = 322
ExplicitLeft = 507 ExplicitLeft = 322
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Left = 591
ExplicitLeft = 591
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
end end
inherited eDC: TcxDBTextEdit
Left = 470
ExplicitLeft = 470
end
inherited eTitular: TcxDBTextEdit inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
end end
inherited eSWIFT: TcxDBTextEdit
ExplicitWidth = 348
Width = 348
end
inherited eIBAN: TcxDBTextEdit
ExplicitWidth = 348
Width = 348
end
end end
end end
end end
@ -639,6 +652,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 816 Width = 816
ExplicitWidth = 816 ExplicitWidth = 816
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end

168
Source/Modulos/Contactos/Views/uViewAgente.dfm
View File

@ -21,6 +21,19 @@ inherited frViewAgente: TfrViewAgente
ExplicitLeft = 628 ExplicitLeft = 628
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 121
Top = 166
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
ExplicitLeft = 121
ExplicitTop = 166
ExplicitWidth = 239
Width = 239
end
inherited cbProvincia: TcxDBComboBox
Left = 121 Left = 121
Top = 193 Top = 193
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -30,54 +43,41 @@ inherited frViewAgente: TfrViewAgente
TabOrder = 6 TabOrder = 6
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 193 ExplicitTop = 193
ExplicitWidth = 239
Width = 239
end
inherited cbProvincia: TcxDBComboBox
Left = 121
Top = 220
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
ExplicitLeft = 121
ExplicitTop = 220
ExplicitWidth = 138 ExplicitWidth = 138
Width = 138 Width = 138
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Left = 121 Left = 121
Top = 247
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 121
ExplicitTop = 247
ExplicitWidth = 239
Width = 239
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 295
Top = 220 Top = 220
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 8
ExplicitLeft = 295 ExplicitLeft = 121
ExplicitTop = 220 ExplicitTop = 220
ExplicitWidth = 239
Width = 239
end end
inherited eObservaciones: TcxDBMemo inherited eCodigoPostal: TcxDBTextEdit
Top = 331 Left = 295
Top = 193
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18 TabOrder = 7
ExplicitTop = 331 ExplicitLeft = 295
ExplicitTop = 193
end
inherited eObservaciones: TcxDBMemo
Top = 358
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitTop = 358
ExplicitWidth = 629 ExplicitWidth = 629
ExplicitHeight = 38 ExplicitHeight = 38
Height = 38 Height = 38
@ -97,34 +97,12 @@ inherited frViewAgente: TfrViewAgente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 20
Width = 239 Width = 239
end end
inherited eTlfParticular: TcxDBTextEdit object eFechaBaja: TcxDBDateEdit [9]
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
end
object eFechaBaja: TcxDBDateEdit [11]
Left = 121 Left = 121
Top = 109 Top = 82
DataBinding.DataField = 'FECHA_BAJA' DataBinding.DataField = 'FECHA_BAJA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -136,12 +114,12 @@ inherited frViewAgente: TfrViewAgente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 3
Width = 229 Width = 229
end end
object eCausaBaja: TcxDBTextEdit [12] object eCausaBaja: TcxDBTextEdit [10]
Left = 121 Left = 121
Top = 136 Top = 109
DataBinding.DataField = 'CAUSA_BAJA' DataBinding.DataField = 'CAUSA_BAJA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -156,10 +134,10 @@ inherited frViewAgente: TfrViewAgente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 4
Width = 229 Width = 229
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 485 Left = 485
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -170,7 +148,18 @@ inherited frViewAgente: TfrViewAgente
ExplicitWidth = 166 ExplicitWidth = 166
Width = 166 Width = 166
end end
inherited eFax: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
end
inherited eTlfMovil: TcxDBTextEdit
Left = 485 Left = 485
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -181,6 +170,17 @@ inherited frViewAgente: TfrViewAgente
ExplicitWidth = 166 ExplicitWidth = 166
Width = 166 Width = 166
end end
inherited eFax: TcxDBTextEdit
Left = 485
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 485
ExplicitWidth = 166
Width = 166
end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Left = 121 Left = 121
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -208,7 +208,7 @@ inherited frViewAgente: TfrViewAgente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15 TabOrder = 16
ExplicitLeft = 485 ExplicitLeft = 485
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -220,7 +220,7 @@ inherited frViewAgente: TfrViewAgente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16 TabOrder = 17
ExplicitLeft = 485 ExplicitLeft = 485
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -231,7 +231,7 @@ inherited frViewAgente: TfrViewAgente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17 TabOrder = 18
ExplicitLeft = 485 ExplicitLeft = 485
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -249,16 +249,38 @@ inherited frViewAgente: TfrViewAgente
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 121 Left = 121
Top = 274 Top = 301
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 121
ExplicitTop = 301
ExplicitWidth = 239
Width = 239
end
inherited cbPais: TcxDBComboBox
Left = 121
Top = 247
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 121
ExplicitTop = 247
ExplicitWidth = 155
Width = 155
end
inherited cbIdioma: TcxDBLookupComboBox
Left = 121
Top = 274
TabOrder = 10 TabOrder = 10
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 274 ExplicitTop = 274
ExplicitWidth = 239 ExplicitWidth = 145
Width = 239 Width = 145
end end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
@ -272,13 +294,6 @@ inherited frViewAgente: TfrViewAgente
inherited dxLayoutControlContactoItem13: TdxLayoutItem inherited dxLayoutControlContactoItem13: TdxLayoutItem
Caption = 'Nombre y apellidos:' Caption = 'Nombre y apellidos:'
end end
object dxLayoutControlContactoItem19: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha de alta:'
Control = eFechaAltaEmpresa
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem23: TdxLayoutItem object dxLayoutControlContactoItem23: TdxLayoutItem
Caption = 'Fecha de baja:' Caption = 'Fecha de baja:'
Control = eFechaBaja Control = eFechaBaja
@ -291,6 +306,9 @@ inherited frViewAgente: TfrViewAgente
end end
end end
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
inherited dxLayoutControlContactoItem19: TdxLayoutItem
Visible = False
end
inherited dxLayoutControlContactoItem167: TdxLayoutItem inherited dxLayoutControlContactoItem167: TdxLayoutItem
Visible = False Visible = False
end end

3
Source/Modulos/Contactos/Views/uViewAgente.pas
View File

@ -8,7 +8,7 @@ uses
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls, dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit, cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics, Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics,
uDAInterfaces; uDAInterfaces, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
type type
IViewAgente = interface(IViewContacto) IViewAgente = interface(IViewContacto)
@ -16,7 +16,6 @@ type
end; end;
TfrViewAgente = class(TfrViewContacto, IViewAgente) TfrViewAgente = class(TfrViewContacto, IViewAgente)
dxLayoutControlContactoItem19: TdxLayoutItem;
eFechaAltaEmpresa: TcxDBDateEdit; eFechaAltaEmpresa: TcxDBDateEdit;
dxLayoutControlContactoItem23: TdxLayoutItem; dxLayoutControlContactoItem23: TdxLayoutItem;
eFechaBaja: TcxDBDateEdit; eFechaBaja: TcxDBDateEdit;

266
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -1,15 +1,15 @@
inherited frViewCliente: TfrViewCliente inherited frViewCliente: TfrViewCliente
Width = 951 Width = 951
Height = 698 Height = 789
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 951 ExplicitWidth = 951
ExplicitHeight = 698 ExplicitHeight = 789
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 951 Width = 951
Height = 698 Height = 789
ExplicitWidth = 951 ExplicitWidth = 951
ExplicitHeight = 698 ExplicitHeight = 789
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 906 Left = 906
ExplicitLeft = 906 ExplicitLeft = 906
@ -72,27 +72,27 @@ inherited frViewCliente: TfrViewCliente
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 132 Left = 132
Top = 467 Top = 440
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 12
ExplicitLeft = 132 ExplicitLeft = 132
ExplicitTop = 467 ExplicitTop = 440
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Left = 132 Left = 132
Top = 494 Top = 467
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 13
ExplicitLeft = 132 ExplicitLeft = 132
ExplicitTop = 494 ExplicitTop = 467
ExplicitWidth = 159 ExplicitWidth = 159
Width = 159 Width = 159
end end
@ -138,52 +138,9 @@ inherited frViewCliente: TfrViewCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 10
Width = 370 Width = 163
end end
object cbGrupoCliente: TcxDBComboBox [10] object eCodigoAsignado: TcxDBTextEdit [10]
Left = 132
Top = 136
DataBinding.DataField = 'GRUPO_CLIENTE'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.OnInitPopup = cbGrupoClientePropertiesInitPopup
Properties.OnValidate = cbGrupoClientePropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 260
end
object eBloqueo: TcxDBTextEdit [11]
Left = 132
Top = 410
DataBinding.DataField = 'MOTIVO_BLOQUEO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
Width = 197
end
object eCodigoAsignado: TcxDBTextEdit [12]
Left = 132 Left = 132
Top = 109 Top = 109
DataBinding.DataField = 'CODIGO_ASIGNADO' DataBinding.DataField = 'CODIGO_ASIGNADO'
@ -205,29 +162,29 @@ inherited frViewCliente: TfrViewCliente
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Left = 132 Left = 132
Top = 521 Top = 494
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15 TabOrder = 15
ExplicitLeft = 132 ExplicitLeft = 132
ExplicitTop = 521 ExplicitTop = 494
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 436 Left = 436
Top = 494 Top = 467
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 14
ExplicitLeft = 436 ExplicitLeft = 436
ExplicitTop = 494 ExplicitTop = 467
end end
object cbFelicitacion: TcxDBCheckBox [15] object cbFelicitacion: TcxDBCheckBox [13]
Left = 531 Left = 531
Top = 280 Top = 280
Caption = 'Mandar felicitaci'#243'n navide'#241'a a este cliente' Caption = 'Mandar felicitaci'#243'n navide'#241'a a este cliente'
@ -248,10 +205,10 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 24 TabOrder = 26
Width = 370 Width = 370
end end
object cxDBCheckBox1: TcxDBCheckBox [16] object cxDBCheckBox1: TcxDBCheckBox [14]
Left = 531 Left = 531
Top = 485 Top = 485
Caption = 'Permitir el acceso de este cliente a la tienda web' Caption = 'Permitir el acceso de este cliente a la tienda web'
@ -273,10 +230,10 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 26 TabOrder = 28
Width = 266 Width = 266
end end
object cbRapel: TcxDBCheckBox [17] object cbRapel: TcxDBCheckBox [15]
Left = 132 Left = 132
Top = 190 Top = 190
Caption = 'Este cliente tiene rapel' Caption = 'Este cliente tiene rapel'
@ -301,7 +258,7 @@ inherited frViewCliente: TfrViewCliente
OnClick = actBloqueoClienteExecute OnClick = actBloqueoClienteExecute
Width = 148 Width = 148
end end
object eMailAdministracion: TcxDBHyperLinkEdit [18] object eMailAdministracion: TcxDBHyperLinkEdit [16]
Left = 643 Left = 643
Top = 382 Top = 382
DataBinding.DataField = 'EMAIL_ADMINISTRACION' DataBinding.DataField = 'EMAIL_ADMINISTRACION'
@ -320,23 +277,23 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 25 TabOrder = 27
Width = 133 Width = 133
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 605 Top = 632
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 27 TabOrder = 29
ExplicitTop = 605 ExplicitTop = 632
ExplicitWidth = 733 ExplicitWidth = 733
ExplicitHeight = 69 ExplicitHeight = 69
Height = 69 Height = 69
Width = 733 Width = 733
end end
object cbTipoCliente: TcxDBComboBox [20] object cbTipoCliente: TcxDBComboBox [18]
Left = 132 Left = 132
Top = 163 Top = 163
DataBinding.DataField = 'TIPO_CLIENTE' DataBinding.DataField = 'TIPO_CLIENTE'
@ -360,7 +317,7 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 6 TabOrder = 6
Width = 332 Width = 332
end end
object cbSEPA: TcxDBCheckBox [21] object cbSEPA: TcxDBCheckBox [19]
Left = 306 Left = 306
Top = 190 Top = 190
Action = actBloqueoCliente Action = actBloqueoCliente
@ -385,7 +342,7 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 8 TabOrder = 8
Width = 181 Width = 181
end end
inline frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral [22] inline frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral [20]
Left = 22 Left = 22
Top = 247 Top = 247
Width = 235 Width = 235
@ -429,40 +386,39 @@ inherited frViewCliente: TfrViewCliente
ExplicitWidth = 235 ExplicitWidth = 235
end end
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit [23] inherited ePaginaWeb: TcxDBHyperLinkEdit [21]
Left = 643 Left = 643
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 23 TabOrder = 25
ExplicitLeft = 643 ExplicitLeft = 643
ExplicitWidth = 209 ExplicitWidth = 209
Width = 209 Width = 209
end end
inherited eReferencia: TcxDBTextEdit [24] inherited eReferencia: TcxDBTextEdit [22]
Left = 132 Left = 132
Enabled = True
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132 ExplicitLeft = 132
end end
inherited ePersonaContacto: TcxDBTextEdit [25] inherited ePersonaContacto: TcxDBTextEdit [23]
Left = 132 Left = 132
Top = 548 Top = 575
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16 TabOrder = 18
ExplicitLeft = 132 ExplicitLeft = 132
ExplicitTop = 548 ExplicitTop = 575
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end end
inherited eNIFCIF: TcxDBTextEdit [26] inherited eNIFCIF: TcxDBTextEdit [24]
Left = 360 Left = 360
Properties.OnValidate = eNIFCIFPropertiesValidate Properties.OnValidate = eNIFCIFPropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -473,42 +429,63 @@ inherited frViewCliente: TfrViewCliente
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit [27] inherited eMailTrabajo: TcxDBHyperLinkEdit [25]
Left = 643 Left = 643
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 23
ExplicitLeft = 643
ExplicitWidth = 209
Width = 209
end
inherited eMailParticular: TcxDBHyperLinkEdit [26]
Left = 643
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 24
ExplicitLeft = 643
ExplicitWidth = 209
Width = 209
end
inherited eTlfMovil: TcxDBTextEdit [27]
Left = 643
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 21 TabOrder = 21
ExplicitLeft = 643 ExplicitLeft = 643
ExplicitWidth = 209 ExplicitWidth = 238
Width = 209 Width = 238
end end
inherited eMailParticular: TcxDBHyperLinkEdit [28] inherited eFax: TcxDBTextEdit [28]
Left = 643 Left = 643
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 22 TabOrder = 22
ExplicitLeft = 643 ExplicitLeft = 643
ExplicitWidth = 209 ExplicitWidth = 238
Width = 209 Width = 238
end end
inherited eTlfMovil: TcxDBTextEdit [29] inherited eNombre: TcxDBTextEdit [29]
Left = 643 Left = 132
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19 ExplicitLeft = 132
ExplicitLeft = 643 ExplicitWidth = 260
ExplicitWidth = 238 Width = 260
Width = 238
end end
inherited eFax: TcxDBTextEdit [30] inherited eTlfParticular: TcxDBTextEdit [30]
Left = 643 Left = 643
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -519,37 +496,81 @@ inherited frViewCliente: TfrViewCliente
ExplicitWidth = 238 ExplicitWidth = 238
Width = 238 Width = 238
end end
inherited eNombre: TcxDBTextEdit [31] inherited eTlfTrabajo: TcxDBTextEdit [31]
Left = 643
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 643
ExplicitWidth = 238
Width = 238
end
inherited cbPais: TcxDBComboBox [32]
Left = 132 Left = 132
Top = 521
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 132 ExplicitLeft = 132
ExplicitWidth = 260 ExplicitTop = 521
Width = 260 ExplicitWidth = 155
Width = 155
end end
inherited eTlfParticular: TcxDBTextEdit [32] inherited cbIdioma: TcxDBLookupComboBox [33]
Left = 643 Left = 132
Style.LookAndFeel.SkinName = '' Top = 548
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 643
ExplicitWidth = 238
Width = 238
end
inherited eTlfTrabajo: TcxDBTextEdit [33]
Left = 643
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17 TabOrder = 17
ExplicitLeft = 643 ExplicitLeft = 132
ExplicitWidth = 238 ExplicitTop = 548
Width = 238 ExplicitWidth = 145
Width = 145
end
object eBloqueo: TcxDBTextEdit
Left = 191
Top = 383
DataBinding.DataField = 'MOTIVO_BLOQUEO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
Width = 197
end
object cbGrupoCliente: TcxDBComboBox
Left = 132
Top = 136
DataBinding.DataField = 'GRUPO_CLIENTE'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.OnInitPopup = cbGrupoClientePropertiesInitPopup
Properties.OnValidate = cbGrupoClientePropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 260
end end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
@ -568,10 +589,8 @@ inherited frViewCliente: TfrViewCliente
Control = eCodigoAsignado Control = eCodigoAsignado
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem19: TdxLayoutItem object dxLayoutControlContactoItem34: TdxLayoutItem
AutoAligns = [aaVertical] Caption = 'Marca:'
AlignHorz = ahClient
Caption = 'Marcas:'
Control = cbGrupoCliente Control = cbGrupoCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -613,16 +632,17 @@ inherited frViewCliente: TfrViewCliente
end end
object dxLayoutControlContactoGroup18: TdxLayoutGroup [2] object dxLayoutControlContactoGroup18: TdxLayoutGroup [2]
Caption = 'Bloqueo' Caption = 'Bloqueo'
LayoutDirection = ldHorizontal
object dxLayoutControlContactoItem26: TdxLayoutItem object dxLayoutControlContactoItem26: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = ' ' Caption = ' '
ShowCaption = False ShowCaption = False
Control = cbClienteBloqueado Control = cbClienteBloqueado
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem16: TdxLayoutItem object dxLayoutControlContactoItem33: TdxLayoutItem
Caption = 'Motivo del bloqueo:' AutoAligns = [aaVertical]
AlignHorz = ahClient
Control = eBloqueo Control = eBloqueo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

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

@ -25,10 +25,6 @@ type
dxLayoutControlContactoItem26: TdxLayoutItem; dxLayoutControlContactoItem26: TdxLayoutItem;
cbClienteBloqueado: TcxDBCheckBox; cbClienteBloqueado: TcxDBCheckBox;
dxLayoutControlContactoGroup18: TdxLayoutGroup; dxLayoutControlContactoGroup18: TdxLayoutGroup;
dxLayoutControlContactoItem19: TdxLayoutItem;
cbGrupoCliente: TcxDBComboBox;
dxLayoutControlContactoItem16: TdxLayoutItem;
eBloqueo: TcxDBTextEdit;
actBloqueoCliente: TAction; actBloqueoCliente: TAction;
dxLayoutControlContactoItem22: TdxLayoutItem; dxLayoutControlContactoItem22: TdxLayoutItem;
eCodigoAsignado: TcxDBTextEdit; eCodigoAsignado: TcxDBTextEdit;
@ -53,6 +49,10 @@ type
dxLayoutControlContactoGroup19: TdxLayoutGroup; dxLayoutControlContactoGroup19: TdxLayoutGroup;
dxLayoutControlContactoItem32: TdxLayoutItem; dxLayoutControlContactoItem32: TdxLayoutItem;
frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral; frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral;
dxLayoutControlContactoItem33: TdxLayoutItem;
eBloqueo: TcxDBTextEdit;
dxLayoutControlContactoItem34: TdxLayoutItem;
cbGrupoCliente: TcxDBComboBox;
procedure cbGrupoClientePropertiesInitPopup(Sender: TObject); procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
procedure cbGrupoClientePropertiesValidate(Sender: TObject; procedure cbGrupoClientePropertiesValidate(Sender: TObject;

92
Source/Modulos/Contactos/Views/uViewContacto.dfm
View File

@ -105,7 +105,7 @@ inherited frViewContacto: TfrViewContacto
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 115 Left = 115
Top = 142 Top = 112
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -127,7 +127,7 @@ inherited frViewContacto: TfrViewContacto
end end
object cbProvincia: TcxDBComboBox object cbProvincia: TcxDBComboBox
Left = 115 Left = 115
Top = 169 Top = 139
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -155,7 +155,7 @@ inherited frViewContacto: TfrViewContacto
end end
object cbPoblacion: TcxDBComboBox object cbPoblacion: TcxDBComboBox
Left = 115 Left = 115
Top = 196 Top = 166
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -183,7 +183,7 @@ inherited frViewContacto: TfrViewContacto
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 306 Left = 306
Top = 169 Top = 139
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -205,7 +205,7 @@ inherited frViewContacto: TfrViewContacto
end end
object eObservaciones: TcxDBMemo object eObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 280 Top = 304
DataBinding.DataField = 'NOTAS' DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -223,7 +223,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15 TabOrder = 17
Height = 86 Height = 86
Width = 630 Width = 630
end end
@ -246,7 +246,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 11
Width = 156 Width = 156
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
@ -268,7 +268,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 10
Width = 156 Width = 156
end end
object eTlfMovil: TcxDBTextEdit object eTlfMovil: TcxDBTextEdit
@ -290,7 +290,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 12
Width = 156 Width = 156
end end
object eFax: TcxDBTextEdit object eFax: TcxDBTextEdit
@ -312,7 +312,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 13
Width = 156 Width = 156
end end
object eNombre: TcxDBTextEdit object eNombre: TcxDBTextEdit
@ -385,7 +385,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 14
Width = 127 Width = 127
end end
object eMailParticular: TcxDBHyperLinkEdit object eMailParticular: TcxDBHyperLinkEdit
@ -411,7 +411,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 15
Width = 127 Width = 127
end end
object ePaginaWeb: TcxDBHyperLinkEdit object ePaginaWeb: TcxDBHyperLinkEdit
@ -437,7 +437,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 16
Width = 127 Width = 127
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
@ -445,7 +445,6 @@ inherited frViewContacto: TfrViewContacto
Top = 28 Top = 28
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Enabled = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clWindow Style.Color = clWindow
@ -468,7 +467,7 @@ inherited frViewContacto: TfrViewContacto
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 115 Left = 115
Top = 223 Top = 247
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -486,9 +485,56 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 9
Width = 256 Width = 256
end end
object cbPais: TcxDBComboBox
Left = 115
Top = 193
DataBinding.DataField = 'PAIS'
DataBinding.DataSource = dsContacto
Properties.DropDownListStyle = lsEditFixedList
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = ePaisPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 155
end
object cbIdioma: TcxDBLookupComboBox
Left = 115
Top = 220
DataBinding.DataField = 'IDIOMA_ISO'
DataBinding.DataSource = dsContacto
Properties.KeyFieldNames = 'ISO'
Properties.ListColumns = <
item
FieldName = 'DESCRIPCION'
end>
Properties.ListOptions.ShowHeader = False
Properties.ListSource = dsIdiomas
Style.BorderStyle = ebs3D
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
TabOrder = 8
Width = 145
end
object dxLayoutControlContactoGroup_Root: TdxLayoutGroup object dxLayoutControlContactoGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -569,6 +615,16 @@ inherited frViewContacto: TfrViewContacto
Control = cbPoblacion Control = cbPoblacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem16: TdxLayoutItem
Caption = 'Pa'#237's:'
Control = cbPais
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem19: TdxLayoutItem
Caption = 'Idioma:'
Control = cbIdioma
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem167: TdxLayoutItem object dxLayoutControlContactoItem167: TdxLayoutItem
Caption = 'Persona contacto:' Caption = 'Persona contacto:'
Control = ePersonaContacto Control = ePersonaContacto
@ -725,4 +781,8 @@ inherited frViewContacto: TfrViewContacto
Left = 64 Left = 64
Top = 176 Top = 176
end end
object dsIdiomas: TDADataSource
Left = 72
Top = 216
end
end end

59
Source/Modulos/Contactos/Views/uViewContacto.pas
View File

@ -5,11 +5,12 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable, Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
DBCtrls, Grids, DBGrids, uBizContactos, Mask, ComCtrls, uCustomView, DBCtrls, Grids, DBGrids, uBizContactos, uBizIdiomas, Mask, ComCtrls, uCustomView,
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxHyperLinkEdit, cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxHyperLinkEdit,
ImgList, ActnList, PngImageList, PngSpeedButton, uDAInterfaces, uContactosController, ImgList, ActnList, PngImageList, PngSpeedButton, uDAInterfaces, uContactosController,
cxGraphics, cxMaskEdit, cxDropDownEdit; cxGraphics, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox;
type type
IViewContacto = interface(IViewBase) IViewContacto = interface(IViewBase)
@ -85,6 +86,11 @@ type
dxLayoutControlContactoItem167: TdxLayoutItem; dxLayoutControlContactoItem167: TdxLayoutItem;
ePersonaContacto: TcxDBTextEdit; ePersonaContacto: TcxDBTextEdit;
dxLayoutControlContactoGroup10: TdxLayoutGroup; dxLayoutControlContactoGroup10: TdxLayoutGroup;
dxLayoutControlContactoItem16: TdxLayoutItem;
cbPais: TcxDBComboBox;
cbIdioma: TcxDBLookupComboBox;
dxLayoutControlContactoItem19: TdxLayoutItem;
dsIdiomas: TDADataSource;
procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject); procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
procedure actMandarCorreoParticularExecute(Sender: TObject); procedure actMandarCorreoParticularExecute(Sender: TObject);
procedure actMandarCorreoTrabajoExecute(Sender: TObject); procedure actMandarCorreoTrabajoExecute(Sender: TObject);
@ -95,13 +101,17 @@ type
procedure eMailTrabajoPropertiesValidate(Sender: TObject; procedure eMailTrabajoPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure eProvinciaPropertiesInitPopup(Sender: TObject); procedure eProvinciaPropertiesInitPopup(Sender: TObject);
procedure ePaisPropertiesInitPopup(Sender: TObject);
procedure cbPoblacionPropertiesInitPopup(Sender: TObject); procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
protected protected
FContacto: IBizContacto; FContacto: IBizContacto;
FController : IContactosController; FController : IContactosController;
FPaises : TStringList;
FIdiomas : IBizIdiomas;
FProvincias : TStringList; FProvincias : TStringList;
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
FPoblaciones : TStringList; FPoblaciones : TStringList;
procedure CargarPaises;
procedure CargarProvincias; procedure CargarProvincias;
procedure CargarPoblaciones; procedure CargarPoblaciones;
function GetContacto: IBizContacto; virtual; function GetContacto: IBizContacto; virtual;
@ -166,6 +176,30 @@ begin
(Sender as TAction).Enabled := (Length(ePaginaWeb.Text) > 0) (Sender as TAction).Enabled := (Length(ePaginaWeb.Text) > 0)
end; end;
procedure TfrViewContacto.CargarPaises;
var
i : integer;
begin
with TProvinciasPoblacionesController.Create do
try
FPaises := DarListaPaises;
with cbPais.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FPaises.Count - 1 do
Add(FPaises.Names[i]);
finally
EndUpdate;
end;
end;
finally
Free;
end;
end;
procedure TfrViewContacto.CargarPoblaciones; procedure TfrViewContacto.CargarPoblaciones;
var var
i : integer; i : integer;
@ -242,6 +276,7 @@ begin
FIDProvincia := 0; FIDProvincia := 0;
FProvincias := NIL; FProvincias := NIL;
FPoblaciones := NIL; FPoblaciones := NIL;
FIdiomas := Nil;
end; end;
destructor TfrViewContacto.Destroy; destructor TfrViewContacto.Destroy;
@ -252,6 +287,8 @@ begin
if Assigned(FPoblaciones) then if Assigned(FPoblaciones) then
FreeANDNIL(FPoblaciones); FreeANDNIL(FPoblaciones);
FIdiomas := Nil;
inherited; inherited;
end; end;
@ -270,6 +307,17 @@ begin
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []); DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
end; end;
procedure TfrViewContacto.ePaisPropertiesInitPopup(Sender: TObject);
begin
ShowHourglassCursor;
try
if not Assigned(FPaises) then
CargarPaises;
finally
HideHourglassCursor;
end;
end;
procedure TfrViewContacto.eProvinciaPropertiesInitPopup(Sender: TObject); procedure TfrViewContacto.eProvinciaPropertiesInitPopup(Sender: TObject);
begin begin
inherited; inherited;
@ -307,6 +355,13 @@ end;
procedure TfrViewContacto.SetController(const Value: IContactosController); procedure TfrViewContacto.SetController(const Value: IContactosController);
begin begin
FController := Value; FController := Value;
if Assigned(FController) then
begin
FIdiomas := FController.BuscarIdiomas;
dsIdiomas.DataTable := FIdiomas.DataTable;
dsIdiomas.DataTable.Active := True;
end;
end; end;
initialization initialization

4
Source/Modulos/Contactos/Views/uViewDireccionesEntrega.dfm
View File

@ -48,6 +48,10 @@ inherited frViewDireccionesEntrega: TfrViewDireccionesEntrega
BestFitMaxWidth = 64 BestFitMaxWidth = 64
Width = 213 Width = 213
end end
object cxGridViewPAIS: TcxGridDBColumn
Caption = 'Pa'#237's'
DataBinding.FieldName = 'PAIS'
end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
Caption = 'Persona de contacto' Caption = 'Persona de contacto'
DataBinding.FieldName = 'PERSONA_CONTACTO' DataBinding.FieldName = 'PERSONA_CONTACTO'

1
Source/Modulos/Contactos/Views/uViewDireccionesEntrega.pas
View File

@ -23,6 +23,7 @@ type
cxGridViewTELEFONO: TcxGridDBColumn; cxGridViewTELEFONO: TcxGridDBColumn;
cxGridViewEMAIL: TcxGridDBColumn; cxGridViewEMAIL: TcxGridDBColumn;
cxGridViewPORTE: TcxGridDBColumn; cxGridViewPORTE: TcxGridDBColumn;
cxGridViewPAIS: TcxGridDBColumn;
procedure cxGridViewDblClick(Sender: TObject); procedure cxGridViewDblClick(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
protected protected

321
Source/Modulos/Contactos/Views/uViewEmpleado.dfm
View File

@ -1,63 +1,83 @@
inherited frViewEmpleado: TfrViewEmpleado inherited frViewEmpleado: TfrViewEmpleado
Width = 673 Width = 738
Height = 424 Height = 445
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 673 ExplicitWidth = 738
ExplicitHeight = 424 ExplicitHeight = 445
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 673 Width = 738
Height = 424 Height = 445
ExplicitWidth = 673 ExplicitWidth = 738
ExplicitHeight = 424 ExplicitHeight = 445
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 611 Left = 693
ExplicitLeft = 611 ExplicitLeft = 693
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 611 Left = 693
ExplicitLeft = 611 ExplicitLeft = 693
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 611 Left = 693
ExplicitLeft = 611 ExplicitLeft = 693
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 121 Left = 121
Top = 247 Top = 193
TabOrder = 8 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 247 ExplicitTop = 193
ExplicitWidth = 239 ExplicitWidth = 239
Width = 239 Width = 239
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Left = 121 Left = 121
Top = 274 Top = 220
TabOrder = 9 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 274 ExplicitTop = 220
ExplicitWidth = 138 ExplicitWidth = 138
Width = 138 Width = 138
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Left = 121 Left = 121
Top = 301 Top = 247
TabOrder = 11 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 301 ExplicitTop = 247
ExplicitWidth = 239 ExplicitWidth = 239
Width = 239 Width = 239
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 285 Left = 331
Top = 274 Top = 220
TabOrder = 10 Style.LookAndFeel.SkinName = ''
ExplicitLeft = 285 StyleDisabled.LookAndFeel.SkinName = ''
ExplicitTop = 274 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
ExplicitLeft = 331
ExplicitTop = 220
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 385 Top = 385
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 22 TabOrder = 22
ExplicitTop = 385 ExplicitTop = 385
ExplicitWidth = 629 ExplicitWidth = 629
@ -79,12 +99,12 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 24
Width = 239 Width = 239
end end
object eFechaAltaEmpresa: TcxDBDateEdit [9] object eFechaAltaEmpresa: TcxDBDateEdit [9]
Left = 121 Left = 121
Top = 109 Top = 82
DataBinding.DataField = 'FECHA_ALTA_EMPRESA' DataBinding.DataField = 'FECHA_ALTA_EMPRESA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -96,12 +116,12 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 23
Width = 239 Width = 239
end end
object cbCategoria: TcxDBComboBox [10] object cbCategoria: TcxDBComboBox [10]
Left = 121 Left = 121
Top = 136 Top = 82
DataBinding.DataField = 'CATEGORIA' DataBinding.DataField = 'CATEGORIA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -120,11 +140,11 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 3
Width = 239 Width = 239
end end
object cbContrato: TcxDBComboBox [11] object cbContrato: TcxDBComboBox [11]
Left = 475 Left = 521
Top = 280 Top = 280
DataBinding.DataField = 'CONTRATO' DataBinding.DataField = 'CONTRATO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -148,7 +168,7 @@ inherited frViewEmpleado: TfrViewEmpleado
Width = 166 Width = 166
end end
object eDuracionContrato: TcxDBTextEdit [12] object eDuracionContrato: TcxDBTextEdit [12]
Left = 475 Left = 521
Top = 307 Top = 307
DataBinding.DataField = 'DURACION' DataBinding.DataField = 'DURACION'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -166,86 +186,30 @@ inherited frViewEmpleado: TfrViewEmpleado
Width = 166 Width = 166
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 475 Left = 521
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 14
ExplicitLeft = 475 ExplicitLeft = 521
ExplicitWidth = 166 ExplicitWidth = 166
Width = 166 Width = 166
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 475 Left = 521
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 13
ExplicitLeft = 475 ExplicitLeft = 521
ExplicitWidth = 166 ExplicitWidth = 166
Width = 166 Width = 166
end end
inherited eTlfMovil: TcxDBTextEdit object eFechaBaja: TcxDBDateEdit [15]
Left = 475
TabOrder = 15
ExplicitLeft = 475
ExplicitWidth = 166
Width = 166
end
inherited eFax: TcxDBTextEdit
Left = 475
TabOrder = 16
ExplicitLeft = 475
ExplicitWidth = 166
Width = 166
end
inherited eNombre: TcxDBTextEdit
Left = 121 Left = 121
ExplicitLeft = 121 Top = 109
ExplicitWidth = 239
Width = 239
end
inherited eNIFCIF: TcxDBTextEdit
Left = 225
ExplicitLeft = 225
ExplicitWidth = 126
Width = 126
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 475
Properties.Prefix = 'mailto:'
TabOrder = 17
ExplicitLeft = 475
ExplicitWidth = 137
Width = 137
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 475
Properties.Prefix = 'mailto:'
TabOrder = 18
ExplicitLeft = 475
ExplicitWidth = 137
Width = 137
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 475
TabOrder = 19
ExplicitLeft = 475
ExplicitWidth = 137
Width = 137
end
inherited eReferencia: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 73
Width = 73
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 328
TabOrder = 12
ExplicitLeft = 121
ExplicitTop = 328
ExplicitWidth = 239
Width = 239
end
object eFechaBaja: TcxDBDateEdit [24]
Left = 121
Top = 163
DataBinding.DataField = 'FECHA_BAJA' DataBinding.DataField = 'FECHA_BAJA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -257,12 +221,12 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 4
Width = 229 Width = 229
end end
object eCausaBaja: TcxDBTextEdit [25] object eCausaBaja: TcxDBTextEdit [16]
Left = 121 Left = 121
Top = 190 Top = 136
DataBinding.DataField = 'CAUSA_BAJA' DataBinding.DataField = 'CAUSA_BAJA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -277,9 +241,131 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 5
Width = 229 Width = 229
end end
inherited eTlfMovil: TcxDBTextEdit
Left = 521
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 521
ExplicitWidth = 166
Width = 166
end
inherited eFax: TcxDBTextEdit
Left = 521
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 521
ExplicitWidth = 166
Width = 166
end
inherited eNombre: TcxDBTextEdit
Left = 121
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 121
ExplicitWidth = 239
Width = 239
end
inherited eNIFCIF: TcxDBTextEdit
Left = 250
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 250
ExplicitWidth = 126
Width = 126
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 521
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 521
ExplicitWidth = 137
Width = 137
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 521
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 521
ExplicitWidth = 137
Width = 137
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 521
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 521
ExplicitWidth = 137
Width = 137
end
inherited eReferencia: TcxDBTextEdit
Left = 121
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 121
ExplicitWidth = 73
Width = 73
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 328
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 121
ExplicitTop = 328
ExplicitWidth = 239
Width = 239
end
inherited cbPais: TcxDBComboBox
Left = 121
Top = 274
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 121
ExplicitTop = 274
ExplicitWidth = 155
Width = 155
end
inherited cbIdioma: TcxDBLookupComboBox
Left = 121
Top = 301
TabOrder = 11
ExplicitLeft = 121
ExplicitTop = 301
ExplicitWidth = 145
Width = 145
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -292,20 +378,6 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited dxLayoutControlContactoItem13: TdxLayoutItem inherited dxLayoutControlContactoItem13: TdxLayoutItem
Caption = 'Nombre y apellidos:' Caption = 'Nombre y apellidos:'
end end
object dxLayoutControlContactoItem16: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha nacimiento:'
Control = eFechaNacimiento
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem19: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Fecha de alta:'
Control = eFechaAltaEmpresa
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem20: TdxLayoutItem object dxLayoutControlContactoItem20: TdxLayoutItem
Caption = 'Categor'#237'a:' Caption = 'Categor'#237'a:'
Control = cbCategoria Control = cbCategoria
@ -323,6 +395,9 @@ inherited frViewEmpleado: TfrViewEmpleado
end end
end end
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
inherited dxLayoutControlContactoItem19: TdxLayoutItem
Visible = False
end
inherited dxLayoutControlContactoItem167: TdxLayoutItem inherited dxLayoutControlContactoItem167: TdxLayoutItem
Visible = False Visible = False
end end

4
Source/Modulos/Contactos/Views/uViewEmpleado.pas
View File

@ -8,7 +8,7 @@ uses
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls, dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit, cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics, uGruposEmpleadoController, Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics, uGruposEmpleadoController,
uDAInterfaces; uDAInterfaces, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
type type
IViewEmpleado = interface(IViewContacto) IViewEmpleado = interface(IViewContacto)
@ -17,8 +17,6 @@ type
TfrViewEmpleado = class(TfrViewContacto, IViewEmpleado) TfrViewEmpleado = class(TfrViewContacto, IViewEmpleado)
eFechaNacimiento: TcxDBDateEdit; eFechaNacimiento: TcxDBDateEdit;
dxLayoutControlContactoItem16: TdxLayoutItem;
dxLayoutControlContactoItem19: TdxLayoutItem;
eFechaAltaEmpresa: TcxDBDateEdit; eFechaAltaEmpresa: TcxDBDateEdit;
dxLayoutControlContactoItem20: TdxLayoutItem; dxLayoutControlContactoItem20: TdxLayoutItem;
cbCategoria: TcxDBComboBox; cbCategoria: TcxDBComboBox;

391
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -1,40 +1,30 @@
inherited frViewProveedor: TfrViewProveedor inherited frViewProveedor: TfrViewProveedor
Width = 917 Width = 777
Height = 629 Height = 651
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 917 ExplicitWidth = 777
ExplicitHeight = 629 ExplicitHeight = 651
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 917 Width = 777
Height = 629 Height = 651
ExplicitWidth = 917 ExplicitWidth = 917
ExplicitHeight = 629 ExplicitHeight = 629
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 872 Left = 732
ExplicitLeft = 872 ExplicitLeft = 732
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 872 Left = 732
ExplicitLeft = 872 ExplicitLeft = 732
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 872 Left = 732
ExplicitLeft = 872 ExplicitLeft = 732
end end
object Label1: TLabel [3] object Label2: TLabel [3]
Left = 569
Top = 262
Width = 322
Height = 26
Caption =
'(Al incluir un proveedor en la tienda, todos los materiales que ' +
'sirve ese proveedor ser'#225'n tambi'#233'n incluidos)'
WordWrap = True
end
object Label2: TLabel [4]
Left = 22 Left = 22
Top = 442 Top = 469
Width = 324 Width = 324
Height = 39 Height = 39
Margins.Bottom = 0 Margins.Bottom = 0
@ -44,9 +34,9 @@ inherited frViewProveedor: TfrViewProveedor
'or e-mail.' 'or e-mail.'
WordWrap = True WordWrap = True
end end
object PngSpeedButton4: TPngSpeedButton [5] object PngSpeedButton4: TPngSpeedButton [4]
Left = 528 Left = 235
Top = 487 Top = 514
Width = 23 Width = 23
Height = 22 Height = 22
Action = actMandarCorreoTrabajo Action = actMandarCorreoTrabajo
@ -69,6 +59,16 @@ inherited frViewProveedor: TfrViewProveedor
AE426082} AE426082}
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object Label1: TLabel [5]
Left = 276
Top = 289
Width = 880
Height = 26
Caption =
'(Al incluir un proveedor en la tienda, todos los materiales que ' +
'sirve ese proveedor ser'#225'n tambi'#233'n incluidos)'
WordWrap = True
end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 134 Left = 134
Top = 277 Top = 277
@ -197,7 +197,7 @@ inherited frViewProveedor: TfrViewProveedor
end end
object eMailAdministracion: TcxDBHyperLinkEdit [13] object eMailAdministracion: TcxDBHyperLinkEdit [13]
Left = 134 Left = 134
Top = 487 Top = 514
DataBinding.DataField = 'EMAIL_ADMINISTRACION' DataBinding.DataField = 'EMAIL_ADMINISTRACION'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.OnEditValueChanged = eMailAdministracionPropertiesEditValueChanged Properties.OnEditValueChanged = eMailAdministracionPropertiesEditValueChanged
@ -214,7 +214,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 15 TabOrder = 16
Width = 186 Width = 186
end end
object eCodigoAsignado: TcxDBTextEdit [14] object eCodigoAsignado: TcxDBTextEdit [14]
@ -237,29 +237,29 @@ inherited frViewProveedor: TfrViewProveedor
Width = 330 Width = 330
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 486 Left = 193
Top = 304 Top = 304
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 11
ExplicitLeft = 486 ExplicitLeft = 193
ExplicitTop = 304 ExplicitTop = 304
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 545 Top = 572
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 24 TabOrder = 25
ExplicitTop = 545 ExplicitTop = 572
ExplicitHeight = 55 ExplicitHeight = 35
Height = 55 Height = 35
end end
object cxDBCheckBox3: TcxDBCheckBox [17] object cxDBCheckBox3: TcxDBCheckBox [17]
Left = 468 Left = 175
Top = 136 Top = 136
Caption = 'Subcontrata' Caption = 'Subcontrata'
DataBinding.DataField = 'SUBCONTRATA' DataBinding.DataField = 'SUBCONTRATA'
@ -282,9 +282,154 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 6 TabOrder = 6
Width = 83 Width = 83
end end
object cxDBCheckBox1: TcxDBCheckBox [18] inherited eTlfParticular: TcxDBTextEdit
Left = 569 Left = 383
Top = 294 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 383
ExplicitWidth = 171
Width = 171
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 383
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 383
ExplicitWidth = 171
Width = 171
end
inherited eTlfMovil: TcxDBTextEdit
Left = 383
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 383
ExplicitWidth = 171
Width = 171
end
inherited eFax: TcxDBTextEdit
Left = 383
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
ExplicitLeft = 383
ExplicitWidth = 171
Width = 171
end
inherited eNombre: TcxDBTextEdit
Left = 134
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 134
ExplicitWidth = 330
Width = 330
end
inherited eNIFCIF: TcxDBTextEdit
Left = 207
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 207
ExplicitWidth = 226
Width = 226
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 383
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 21
ExplicitLeft = 383
ExplicitWidth = 142
Width = 142
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 383
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 22
ExplicitLeft = 383
ExplicitWidth = 142
Width = 142
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 383
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 23
ExplicitLeft = 383
ExplicitWidth = 142
Width = 142
end
inherited eReferencia: TcxDBTextEdit
Left = 134
Enabled = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 134
ExplicitWidth = 51
Width = 51
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 134
Top = 412
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 134
ExplicitTop = 412
ExplicitWidth = 330
Width = 330
end
inherited cbPais: TcxDBComboBox
Left = 134
Top = 358
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 134
ExplicitTop = 358
ExplicitWidth = 155
Width = 155
end
inherited cbIdioma: TcxDBLookupComboBox
Left = 134
Top = 385
TabOrder = 14
ExplicitLeft = 134
ExplicitTop = 385
ExplicitWidth = 145
Width = 145
end
object cxDBCheckBox1: TcxDBCheckBox [31]
Left = 276
Top = 262
Caption = 'Incluir este proveedor en la tienda web' Caption = 'Incluir este proveedor en la tienda web'
DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataField = 'TIENDA_WEB'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -304,154 +449,9 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 23 TabOrder = 24
Width = 236 Width = 236
end end
inherited eTlfParticular: TcxDBTextEdit
Left = 676
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 676
ExplicitWidth = 171
Width = 171
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 676
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 676
ExplicitWidth = 171
Width = 171
end
inherited eTlfMovil: TcxDBTextEdit
Left = 676
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 676
ExplicitWidth = 171
Width = 171
end
inherited eFax: TcxDBTextEdit
Left = 676
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 676
ExplicitWidth = 171
Width = 171
end
inherited eNombre: TcxDBTextEdit
Left = 134
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 134
ExplicitWidth = 330
Width = 330
end
inherited eNIFCIF: TcxDBTextEdit
Left = 271
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 271
ExplicitWidth = 226
Width = 226
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 676
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
ExplicitLeft = 676
ExplicitWidth = 142
Width = 142
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 676
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 21
ExplicitLeft = 676
ExplicitWidth = 142
Width = 142
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 676
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 22
ExplicitLeft = 676
ExplicitWidth = 142
Width = 142
end
inherited eReferencia: TcxDBTextEdit
Left = 134
Enabled = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 134
ExplicitWidth = 51
Width = 51
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 134
Top = 385
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 134
ExplicitTop = 385
ExplicitWidth = 330
Width = 330
end
object ePais: TcxDBTextEdit [30]
Left = 134
Top = 358
DataBinding.DataField = 'PAIS'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
Width = 391
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -506,13 +506,6 @@ inherited frViewProveedor: TfrViewProveedor
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
object dxLayoutControlContactoItem27: TdxLayoutItem [3]
Caption = 'Pa'#237's:'
Control = ePais
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlContactoGroup24: TdxLayoutGroup object dxLayoutControlContactoGroup24: TdxLayoutGroup
Caption = 'Correo electr'#243'nico de administraci'#243'n' Caption = 'Correo electr'#243'nico de administraci'#243'n'
object dxLayoutControlContactoItem33: TdxLayoutItem object dxLayoutControlContactoItem33: TdxLayoutItem
@ -549,17 +542,17 @@ inherited frViewProveedor: TfrViewProveedor
Visible = False Visible = False
end end
end end
object dxLayoutControlContactoItem19: TdxLayoutItem object dxLayoutControlContactoItem27: TdxLayoutItem
ShowCaption = False
Control = cxDBCheckBox1
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem28: TdxLayoutItem
ShowCaption = False ShowCaption = False
Control = Label1 Control = Label1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem16: TdxLayoutItem
ShowCaption = False
Control = cxDBCheckBox1
ControlOptions.ShowBorder = False
end
end end
end end
end end

11
Source/Modulos/Contactos/Views/uViewProveedor.pas
View File

@ -8,7 +8,8 @@ uses
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls, dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit, cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
Buttons, PngSpeedButton, StdCtrls, cxCheckBox, cxGraphics, cxDropDownEdit, Buttons, PngSpeedButton, StdCtrls, cxCheckBox, cxGraphics, cxDropDownEdit,
uGruposProveedorController, uDAInterfaces; uGruposProveedorController, uDAInterfaces, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox;
type type
IViewProveedor = interface(IViewContacto) IViewProveedor = interface(IViewContacto)
@ -30,17 +31,15 @@ type
dxLayoutControlContactoItem26: TdxLayoutItem; dxLayoutControlContactoItem26: TdxLayoutItem;
cxDBCheckBox3: TcxDBCheckBox; cxDBCheckBox3: TcxDBCheckBox;
dxLayoutControlContactoGroup15: TdxLayoutGroup; dxLayoutControlContactoGroup15: TdxLayoutGroup;
dxLayoutControlContactoItem16: TdxLayoutItem;
cxDBCheckBox1: TcxDBCheckBox;
dxLayoutControlContactoItem19: TdxLayoutItem;
Label1: TLabel;
Label2: TLabel; Label2: TLabel;
eMailAdministracion: TcxDBHyperLinkEdit; eMailAdministracion: TcxDBHyperLinkEdit;
PngSpeedButton4: TPngSpeedButton; PngSpeedButton4: TPngSpeedButton;
actMandarCorreoAdministrativo: TAction; actMandarCorreoAdministrativo: TAction;
dxLayoutControlContactoItem27: TdxLayoutItem; dxLayoutControlContactoItem27: TdxLayoutItem;
ePais: TcxDBTextEdit; cxDBCheckBox1: TcxDBCheckBox;
dxLayoutControlContactoItem28: TdxLayoutItem;
Label1: TLabel;
procedure actMandarCorreoAdministrativoExecute(Sender: TObject); procedure actMandarCorreoAdministrativoExecute(Sender: TObject);
procedure actMandarCorreoAdministrativoUpdate(Sender: TObject); procedure actMandarCorreoAdministrativoUpdate(Sender: TObject);
procedure eMailAdministracionPropertiesEditValueChanged(Sender: TObject); procedure eMailAdministracionPropertiesEditValueChanged(Sender: TObject);

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

@ -1267,6 +1267,7 @@ var
ADiasMas: Integer; ADiasMas: Integer;
BSemaforo: Boolean; BSemaforo: Boolean;
AImporteTotal: Double; AImporteTotal: Double;
AImporteAcumulado : Double;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
@ -1294,6 +1295,7 @@ begin
With AFormaPago.Plazos.DataTable do With AFormaPago.Plazos.DataTable do
begin begin
i := 1; i := 1;
AImporteAcumulado := 0;
First; First;
repeat repeat
ARecibos := ARecibosClienteController.Nuevo; ARecibos := ARecibosClienteController.Nuevo;
@ -1306,6 +1308,7 @@ begin
begin begin
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO; ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
ARecibos.IMPORTE := AImporteTotal; ARecibos.IMPORTE := AImporteTotal;
AImporteAcumulado := AImporteAcumulado + ARecibos.IMPORTE;
end end
else else
begin begin
@ -1344,7 +1347,17 @@ begin
end; end;
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas); AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
ARecibos.IMPORTE := AImporteTotal * (AFormaPago.Plazos.PORCENTAJE / 100);
ARecibos.IMPORTE := RoundCurrency(RoundCurrency(AImporteTotal) * (AFormaPago.Plazos.PORCENTAJE / 100));
AImporteAcumulado := AImporteAcumulado + ARecibos.IMPORTE;
if (i = AFormaPago.Plazos.RecordCount) then
begin
if (AImporteAcumulado < RoundCurrency(AImporteTotal)) then
ARecibos.IMPORTE := ARecibos.IMPORTE + (RoundCurrency(AImporteTotal) - AImporteAcumulado)
else if (AImporteAcumulado > RoundCurrency(AImporteTotal)) then
ARecibos.IMPORTE := ARecibos.IMPORTE - (AImporteAcumulado - RoundCurrency(AImporteTotal));
end;
end; end;
if (AFactura.TIPO = CTE_TIPO_FACTURA) then if (AFactura.TIPO = CTE_TIPO_FACTURA) then

5
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -288,6 +288,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'ID_ALBARAN' Name = 'ID_ALBARAN'
DataType = datString DataType = datString
Size = 1 Size = 1
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

51
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,10 +9,10 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{158AF0A8-C3A4-40EB-A097-56E8ECC2C1E9}'; RID_ListaAnosFacturas = '{6464C43C-D41E-4702-BE3D-00E3AD993A8F}';
RID_FacturasCliente = '{C2F2E897-305A-4B9F-8161-EE9547B005CC}'; RID_FacturasCliente = '{A5D73F73-E266-432C-9410-3F993A3E9275}';
RID_FacturasCliente_Detalles = '{5BA594FB-120B-4024-B0C2-7F65FDE424AF}'; RID_FacturasCliente_Detalles = '{8FEC9095-3334-4400-9F3D-B3CF200B0AC9}';
RID_FacturasClienteDeAlbaran = '{FDAE579B-A63B-4212-A664-EC212398429E}'; RID_FacturasClienteDeAlbaran = '{D4867ECE-B4F0-491D-A7FE-FB2487A2FC0A}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -71,6 +71,7 @@ const
fld_FacturasClienteNUM_COPIAS = 'NUM_COPIAS'; fld_FacturasClienteNUM_COPIAS = 'NUM_COPIAS';
fld_FacturasClienteNUM_CORREOS = 'NUM_CORREOS'; fld_FacturasClienteNUM_CORREOS = 'NUM_CORREOS';
fld_FacturasClienteID_ALBARAN = 'ID_ALBARAN'; fld_FacturasClienteID_ALBARAN = 'ID_ALBARAN';
fld_FacturasClientePAIS = 'PAIS';
{ FacturasCliente field indexes } { FacturasCliente field indexes }
idx_FacturasClienteID = 0; idx_FacturasClienteID = 0;
@ -117,6 +118,7 @@ const
idx_FacturasClienteNUM_COPIAS = 41; idx_FacturasClienteNUM_COPIAS = 41;
idx_FacturasClienteNUM_CORREOS = 42; idx_FacturasClienteNUM_CORREOS = 42;
idx_FacturasClienteID_ALBARAN = 43; idx_FacturasClienteID_ALBARAN = 43;
idx_FacturasClientePAIS = 44;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -247,7 +249,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{BA4155F6-0B4F-4E7C-ADE7-D433F75CC46D}'] ['{C80A5F15-8C2B-44B8-ADE6-45178C1874DA}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -282,7 +284,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{DFFD561A-D78E-424E-8764-F596F7292FE7}'] ['{E362AA1E-2094-47CB-8BB6-DBA30D8FE86F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -459,6 +461,10 @@ type
procedure SetID_ALBARANValue(const aValue: String); procedure SetID_ALBARANValue(const aValue: String);
function GetID_ALBARANIsNull: Boolean; function GetID_ALBARANIsNull: Boolean;
procedure SetID_ALBARANIsNull(const aValue: Boolean); procedure SetID_ALBARANIsNull(const aValue: Boolean);
function GetPAISValue: String;
procedure SetPAISValue(const aValue: String);
function GetPAISIsNull: Boolean;
procedure SetPAISIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -550,6 +556,8 @@ type
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property ID_ALBARAN: String read GetID_ALBARANValue write SetID_ALBARANValue; property ID_ALBARAN: String read GetID_ALBARANValue write SetID_ALBARANValue;
property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
@ -734,6 +742,10 @@ type
procedure SetID_ALBARANValue(const aValue: String); virtual; procedure SetID_ALBARANValue(const aValue: String); virtual;
function GetID_ALBARANIsNull: Boolean; virtual; function GetID_ALBARANIsNull: Boolean; virtual;
procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual; procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
procedure SetPAISValue(const aValue: String); virtual;
function GetPAISIsNull: Boolean; virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -824,6 +836,8 @@ type
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property ID_ALBARAN: String read GetID_ALBARANValue write SetID_ALBARANValue; property ID_ALBARAN: String read GetID_ALBARANValue write SetID_ALBARANValue;
property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -833,7 +847,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{585F3BF9-FF9E-4820-B78A-7C26822085AD}'] ['{8D90FFD2-DC7F-47B8-A135-95E518144895}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1036,7 +1050,7 @@ type
{ IFacturasClienteDeAlbaran } { IFacturasClienteDeAlbaran }
IFacturasClienteDeAlbaran = interface(IDAStronglyTypedDataTable) IFacturasClienteDeAlbaran = interface(IDAStronglyTypedDataTable)
['{B1A3161C-8DDD-48DE-B171-9CC6B57F00C1}'] ['{5CCCE1E1-44D0-42EA-AB42-710BDEC93D50}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2564,6 +2578,27 @@ begin
DataTable.Fields[idx_FacturasClienteID_ALBARAN].AsVariant := Null; DataTable.Fields[idx_FacturasClienteID_ALBARAN].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetPAISValue: String;
begin
result := DataTable.Fields[idx_FacturasClientePAIS].AsString;
end;
procedure TFacturasClienteDataTableRules.SetPAISValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClientePAIS].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetPAISIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClientePAIS].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClientePAIS].AsVariant := Null;
end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

59
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{1D5899EA-EF29-453E-888B-650EBE24A0DE}'; RID_ListaAnosFacturasDelta = '{2E8D1188-764C-466A-B408-068244CC9C98}';
RID_FacturasClienteDelta = '{29AB02C4-5FDD-41C9-8FFF-CAD3DDB27D1B}'; RID_FacturasClienteDelta = '{94A24AA8-418C-491F-BF5F-ABD52B147760}';
RID_FacturasCliente_DetallesDelta = '{1596313B-2A40-4DAB-8C48-2674F04AE51B}'; RID_FacturasCliente_DetallesDelta = '{D846509F-6943-4DA5-82A6-BD02C2519385}';
RID_FacturasClienteDeAlbaranDelta = '{5B4F4ED1-D5F8-4F29-AB3C-89D0592C8360}'; RID_FacturasClienteDeAlbaranDelta = '{5943336E-2EF5-4713-B44A-ED5CD0466FE0}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{1D5899EA-EF29-453E-888B-650EBE24A0DE}'] ['{2E8D1188-764C-466A-B408-068244CC9C98}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{29AB02C4-5FDD-41C9-8FFF-CAD3DDB27D1B}'] ['{94A24AA8-418C-491F-BF5F-ABD52B147760}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -97,6 +97,7 @@ type
function GetOldNUM_COPIASValue : SmallInt; function GetOldNUM_COPIASValue : SmallInt;
function GetOldNUM_CORREOSValue : SmallInt; function GetOldNUM_CORREOSValue : SmallInt;
function GetOldID_ALBARANValue : String; function GetOldID_ALBARANValue : String;
function GetOldPAISValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -143,6 +144,7 @@ type
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue; property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue; property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
property OldID_ALBARAN : String read GetOldID_ALBARANValue; property OldID_ALBARAN : String read GetOldID_ALBARANValue;
property OldPAIS : String read GetOldPAISValue;
end; end;
{ TFacturasClienteBusinessProcessorRules } { TFacturasClienteBusinessProcessorRules }
@ -415,6 +417,12 @@ type
function GetOldID_ALBARANIsNull: Boolean; virtual; function GetOldID_ALBARANIsNull: Boolean; virtual;
procedure SetID_ALBARANValue(const aValue: String); virtual; procedure SetID_ALBARANValue(const aValue: String); virtual;
procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual; procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
function GetPAISIsNull: Boolean; virtual;
function GetOldPAISValue: String; virtual;
function GetOldPAISIsNull: Boolean; virtual;
procedure SetPAISValue(const aValue: String); virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -593,6 +601,10 @@ type
property ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; property ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
property OldID_ALBARAN : String read GetOldID_ALBARANValue; property OldID_ALBARAN : String read GetOldID_ALBARANValue;
property OldID_ALBARANIsNull : Boolean read GetOldID_ALBARANIsNull; property OldID_ALBARANIsNull : Boolean read GetOldID_ALBARANIsNull;
property PAIS : String read GetPAISValue write SetPAISValue;
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
property OldPAIS : String read GetOldPAISValue;
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -602,7 +614,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{1596313B-2A40-4DAB-8C48-2674F04AE51B}'] ['{D846509F-6943-4DA5-82A6-BD02C2519385}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -804,7 +816,7 @@ type
{ IFacturasClienteDeAlbaranDelta } { IFacturasClienteDeAlbaranDelta }
IFacturasClienteDeAlbaranDelta = interface(IFacturasClienteDeAlbaran) IFacturasClienteDeAlbaranDelta = interface(IFacturasClienteDeAlbaran)
['{5B4F4ED1-D5F8-4F29-AB3C-89D0592C8360}'] ['{5943336E-2EF5-4713-B44A-ED5CD0466FE0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -2784,6 +2796,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_ALBARAN] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_ALBARAN] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePAIS];
end;
function TFacturasClienteBusinessProcessorRules.GetPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePAIS]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePAIS];
end;
function TFacturasClienteBusinessProcessorRules.GetOldPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePAIS]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetPAISValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePAIS] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePAIS] := Null;
end;
{ TFacturasCliente_DetallesBusinessProcessorRules } { TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

1
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -321,6 +321,7 @@ begin
CODIGO_POSTAL := FCliente.CODIGO_POSTAL; CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA; PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION; POBLACION := FCliente.POBLACION;
PAIS := FCliente.PAIS;
if FCliente.ID_FORMA_PAGO > 0 then if FCliente.ID_FORMA_PAGO > 0 then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
if FCliente.ID_TIPO_IVA > 0 then if FCliente.ID_TIPO_IVA > 0 then

144
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -626,11 +626,13 @@ object RptFacturasCliente: TRptFacturasCliente
' PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPR' + ' PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPR' +
'ESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EM' + 'ESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EM' +
'PRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCA' + 'PRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCA' +
'NTIL, EMPRESAS.LOGOTIPO'#10#10'FROM FACTURAS_CLIENTE'#10#10'LEFT JOIN EMPRES' + 'NTIL, EMPRESAS.LOGOTIPO,'#10' CONTACTOS.IDIOMA_ISO,'#10' FACTURAS_' +
'AS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_' + 'CLIENTE.PAIS'#10#10'FROM FACTURAS_CLIENTE'#10#10'LEFT JOIN EMPRESAS ON EMPRE' +
'PAGO.ID = FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DA' + 'SAS.ID = ID_EMPRESA'#10'LEFT JOIN CONTACTOS ON CONTACTOS.ID = ID_CLI' +
'TOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = FACTURAS_CLIEN' + 'ENTE'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = FACTURAS_CLIENTE' +
'TE.ID_CLIENTE)'#10#10'WHERE FACTURAS_CLIENTE.ID = :ID'#10#10 '.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DA' +
'TOS_BANCO.ID_CONTACTO = FACTURAS_CLIENTE.ID_CLIENTE)'#10#10'WHERE FACT' +
'URAS_CLIENTE.ID = :ID'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -792,6 +794,14 @@ object RptFacturasCliente: TRptFacturasCliente
item item
DatasetField = 'LOGOTIPO' DatasetField = 'LOGOTIPO'
TableField = 'LOGOTIPO' TableField = 'LOGOTIPO'
end
item
DatasetField = 'IDIOMA_ISO'
TableField = 'IDIOMA_ISO'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'InformeFacturasCliente' Name = 'InformeFacturasCliente'
@ -1000,6 +1010,16 @@ object RptFacturasCliente: TRptFacturasCliente
item item
Name = 'LOGOTIPO' Name = 'LOGOTIPO'
DataType = datBlob DataType = datBlob
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
ReadOnly = True ReadOnly = True
end end
@ -3965,6 +3985,16 @@ object RptFacturasCliente: TRptFacturasCliente
item item
Name = 'LOGOTIPO' Name = 'LOGOTIPO'
DataType = datBlob DataType = datBlob
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
Params = < Params = <
item item
@ -4022,7 +4052,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 41474.500467106500000000 ReportOptions.LastChange = 41807.760751527780000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12' ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13' ReportOptions.VersionMinor = '13'
@ -4030,6 +4060,8 @@ object RptFacturasCliente: TRptFacturasCliente
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String; '
'begin' 'begin'
' DatosCliente.Lines.Clear;' ' DatosCliente.Lines.Clear;'
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);' ' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
@ -4040,8 +4072,14 @@ object RptFacturasCliente: TRptFacturasCliente
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' + ' DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' +
' '#39' + <frxDBCabecera."POBLACION">);' ' '#39' + <frxDBCabecera."POBLACION">);'
'' ''
' ACadena := '#39#39';'
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then' ' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DatosCliente.Lines.Add(<frxDBCabecera."PROVINCIA">);' ' ACadena := <frxDBCabecera."PROVINCIA">;'
''
' if (<frxDBCabecera."PAIS"> <> '#39#39') then'
' ACadena := ACadena + '#39' - '#39' + <frxDBCabecera."PAIS">;'
' '
' DatosCliente.Lines.Add(ACadena); '
'end;' 'end;'
'' ''
'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);' 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
@ -4052,8 +4090,8 @@ object RptFacturasCliente: TRptFacturasCliente
' MemCantidad.Style := '#39'Concepto normal'#39';' ' MemCantidad.Style := '#39'Concepto normal'#39';'
' MemImpTotal.Style := '#39'Concepto normal'#39';' ' MemImpTotal.Style := '#39'Concepto normal'#39';'
' RichConcepto.Visible := True;' ' RichConcepto.Visible := True;'
' MemImpTotal.HideZeros := True;' ' MemImpTotal.HideZeros := True; '
' ' ''
' case <frxDBDetalles."TIPO_DETALLE"> of' ' case <frxDBDetalles."TIPO_DETALLE"> of'
' '#39'Salto'#39': begin' ' '#39'Salto'#39': begin'
' BandaDetalles.StartNewPage := True;' ' BandaDetalles.StartNewPage := True;'
@ -4073,9 +4111,7 @@ object RptFacturasCliente: TRptFacturasCliente
' MemPrecio.Style := '#39'Concepto subtotal'#39';' ' MemPrecio.Style := '#39'Concepto subtotal'#39';'
' MemCantidad.Style := '#39'Concepto subtotal'#39';' ' MemCantidad.Style := '#39'Concepto subtotal'#39';'
' MemImpTotal.Style := '#39'Concepto subtotal'#39';' ' MemImpTotal.Style := '#39'Concepto subtotal'#39';'
' MemImpTotal.HideZeros := False; '
' MemImpTotal.HideZeros := False; ' +
' '
' end;' ' end;'
' '#39'Descuento'#39': begin' ' '#39'Descuento'#39': begin'
' BandaDetalles.Visible := False;' ' BandaDetalles.Visible := False;'
@ -4094,46 +4130,6 @@ object RptFacturasCliente: TRptFacturasCliente
'.Height - 1;' '.Height - 1;'
'end;' 'end;'
'' ''
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena: String;'
'begin'
' { '
' DatosEmpresa.Lines.Clear;'
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">);'
''
' Cadena := '#39#39';'
' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1">;'
' if (<frxDBCabecera."FAX"> <> '#39#39') then'
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;'
' DatosEmpresa.Lines.Add(Cadena);'
''
' Cadena := '#39#39';'
' if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '#39#39') then'
' Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">;'
' if (<frxDBCabecera."POBLACION_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' '#39' + <frxDBCabecera."POBLACION_EMPRES' +
'A">;'
' if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '#39#39') then'
' Cadena := Cadena + '#39' - '#39' + <frxDBCabecera."PROVINCIA_EMPR' +
'ESA">;'
' DatosEmpresa.Lines.Add(Cadena);'
' } '
'end;'
''
'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
'begin'
' Memo15.Lines.Clear;'
' if (StrToFloat(<frxDBCabecera."BASE_IMPONIBLE">) < 0) then'
' Memo15.Lines.Add('#39'ABONO'#39')'
' else'
' Memo15.Lines.Add('#39'FACTURA'#39')'
'end;'
''
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);' 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then' ' if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
@ -4141,20 +4137,6 @@ object RptFacturasCliente: TRptFacturasCliente
' Memo21.Lines.Clear;' ' Memo21.Lines.Clear;'
' Memo29.Lines.Clear;' ' Memo29.Lines.Clear;'
' end;' ' end;'
''
'end;'
''
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena : String;'
'begin'
' if (<frxDBCabecera."TITULAR"> <> '#39#39') then'
' begin'
' Cadena := Memo11.Lines.Text;'
' Memo11.Lines.Clear;'
' Memo11.Lines.Add(<frxDBCabecera."TITULAR">);'
' Memo11.Lines.Add(Cadena);'
' end'
'end;' 'end;'
'' ''
'procedure Band2OnBeforePrint(Sender: TfrxComponent);' 'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
@ -4172,38 +4154,20 @@ object RptFacturasCliente: TRptFacturasCliente
' Set('#39'TotalPaginas'#39', 0);' ' Set('#39'TotalPaginas'#39', 0);'
'end;' 'end;'
'' ''
'procedure Picture1OnBeforePrint(Sender: TfrxComponent);' 'procedure Overlay1OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
' if <ShowLogotipo> then' ' if <ShowLogotipo> then'
' begin ' ' begin'
' Picture1.Visible := True; '
'// Picture2.Visible := True; '
'// Picture3.Visible := True; '
'// Picture4.Visible := True; '
'// Picture5.Visible := True; '
'// Picture6.Visible := True; '
' Memo12.Visible := True;'
' Memo14.Visible := True; ' + ' Overlay1.Visible := True; ' +
' ' ' '
' end' ' end'
' else' ' else'
' begin ' ' begin '
' Picture1.Visible := False;' ' Overlay1.Visible := False; '
'// Picture2.Visible := False;' ' end '
'// Picture3.Visible := False;'
'// Picture4.Visible := False;'
'// Picture5.Visible := False;'
'// Picture6.Visible := False;'
' Memo12.Visible := False;'
' Memo14.Visible := False; ' +
' '
' end'
'end;' 'end;'
'' ''
''
''
'begin' 'begin'
'' ''
'end.') 'end.')

2
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -1065,7 +1065,7 @@ begin
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
tbl_Vencimientos.Active := True; tbl_Vencimientos.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptFacturaCliente, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString); AInforme := DarRutaFichero(DarRutaInformes, rptFacturaCliente, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('IDIOMA_ISO').AsString);
if VarIsNull(AInforme) then if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente)); raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente));

48
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -223,6 +223,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'ID_ALBARAN' DatasetField = 'ID_ALBARAN'
TableField = 'ID_ALBARAN' TableField = 'ID_ALBARAN'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -455,6 +459,11 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'ID_ALBARAN' Name = 'ID_ALBARAN'
DataType = datString DataType = datString
Size = 1 Size = 1
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
end end
item item
@ -1433,6 +1442,12 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'IMPORTE_RETENCION' Name = 'IMPORTE_RETENCION'
DataType = datCurrency DataType = datCurrency
Value = '' Value = ''
end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1450,17 +1465,18 @@ object srvFacturasCliente: TsrvFacturasCliente
'CHA_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQ' + 'CHA_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQ' +
'UIVALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE' + 'UIVALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE' +
','#10' DATOS_BANCARIOS,'#10' CLIENTE_FINAL,'#10' RETENCION,'#10' IMP' + ','#10' DATOS_BANCARIOS,'#10' CLIENTE_FINAL,'#10' RETENCION,'#10' IMP' +
'ORTE_RETENCION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERE' + 'ORTE_RETENCION,'#10' PAIS)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' ' +
'NCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :FECHA_RET' + ' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' ' +
'ENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUE' + ':FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPO' +
'NTO,'#10' :DESCRIPCION_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' ' + 'RTE_DESCUENTO,'#10' :DESCRIPCION_DESCUENTO,'#10' :IVA,'#10' :IMPORT' +
' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' ' + 'E_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERV' +
' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' ' + 'ACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIR' +
' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' ' + 'ECCION,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_' +
' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FO' + 'POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10 +
'RMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPO' + ' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,' +
'RTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIENTE' + #10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' ' +
'_FINAL,'#10' :RETENCION,'#10' :IMPORTE_RETENCION);'#10 ' :CLIENTE_FINAL,'#10' :RETENCION,'#10' :IMPORTE_RETENCION,'#10' :P' +
'AIS);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1654,6 +1670,12 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datCurrency DataType = datCurrency
Value = '' Value = ''
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1681,8 +1703,8 @@ object srvFacturasCliente: TsrvFacturasCliente
'= :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PO' + '= :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PO' +
'RTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_BANCARIOS,'#10' ' + 'RTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_BANCARIOS,'#10' ' +
' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :RETENCION,'#10' ' + ' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :RETENCION,'#10' ' +
' IMPORTE_RETENCION = :IMPORTE_RETENCION'#10' WHERE'#10' (ID = :OLD_ID' + ' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' PAIS = :PAIS'#10' WHE' +
');'#10 'RE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -17,8 +17,6 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 505
ExplicitHeight = 186
DesignSize = ( DesignSize = (
467 467
234) 234)

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

@ -187,6 +187,7 @@ begin
FFactura.POBLACION := FDireccion.POBLACION; FFactura.POBLACION := FDireccion.POBLACION;
FFactura.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL; FFactura.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
FFactura.PROVINCIA := FDireccion.PROVINCIA; FFactura.PROVINCIA := FDireccion.PROVINCIA;
FFactura.PAIS := FDireccion.PAIS;
FFactura.IMPORTE_PORTE := FDireccion.PORTE; FFactura.IMPORTE_PORTE := FDireccion.PORTE;
end; end;
@ -251,9 +252,9 @@ begin
ACadena := ''; ACadena := '';
if Assigned(FDireccion) then if Assigned(FDireccion) then
ACadena := Format('%s %s %s %s', ACadena := Format('%s %s %s %s %s',
[FFactura.CALLE, FFactura.POBLACION, [FFactura.CALLE, FFactura.POBLACION,
FFactura.CODIGO_POSTAL, FFactura.PROVINCIA]); FFactura.CODIGO_POSTAL, FFactura.PROVINCIA, FFactura.PAIS]);
edtDireccion.Text := ACadena; edtDireccion.Text := ACadena;
end; end;
@ -313,6 +314,7 @@ begin
FFactura.ClearField('POBLACION'); FFactura.ClearField('POBLACION');
FFactura.ClearField('CODIGO_POSTAL'); FFactura.ClearField('CODIGO_POSTAL');
FFactura.ClearField('PROVINCIA'); FFactura.ClearField('PROVINCIA');
FFactura.ClearField('PAIS');
FFactura.ClearField('IMPORTE_PORTE'); FFactura.ClearField('IMPORTE_PORTE');
end; end;

24
Source/Modulos/Facturas proforma/Data/uDataModuleFacturasProforma.dfm
View File

@ -247,30 +247,36 @@ inherited DataModuleFacturasProforma: TDataModuleFacturasProforma
DisplayLabel = 'FacturasProforma_DATOS_BANCARIOS' DisplayLabel = 'FacturasProforma_DATOS_BANCARIOS'
DictionaryEntry = 'FacturasProforma_DATOS_BANCARIOS' DictionaryEntry = 'FacturasProforma_DATOS_BANCARIOS'
end end
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
DisplayLabel = 'FacturasProforma_ID_PEDIDO'
DictionaryEntry = 'FacturasProforma_ID_PEDIDO'
end end
item item
Name = 'REFERENCIA_PEDIDO_CLIENTE' Name = 'REF_PRE_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item item
Name = 'REFERENCIA_DEL_CLIENTE' Name = 'REF_PRE_DEL_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item item
Name = 'ID_FACTURA_FINAL' Name = 'REF_PED_CLIENTE'
DataType = datInteger DataType = datString
DisplayLabel = 'FacturasProforma_ID_FACTURA_FINAL' Size = 255
DictionaryEntry = 'FacturasProforma_ID_FACTURA_FINAL'
end end
item item
Name = 'REFERENCIA_FACTURA_FINAL' Name = 'REF_PED_DEL_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'PAIS'
DataType = datString DataType = datString
Size = 255 Size = 255
end> end>

26
Source/Modulos/Facturas proforma/FacturasProforma_Group.groupproj
View File

@ -19,6 +19,8 @@
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" /> <Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" /> <Projects Include="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" />
<Projects Include="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" />
<Projects Include="..\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.dproj" />
<Projects Include="..\Relaciones\Facturas proforma - Facturas de cliente\FacProforma_FacCli_relation.dproj" /> <Projects Include="..\Relaciones\Facturas proforma - Facturas de cliente\FacProforma_FacCli_relation.dproj" />
<Projects Include="Controller\FacturasProforma_controller.dproj" /> <Projects Include="Controller\FacturasProforma_controller.dproj" />
<Projects Include="Data\FacturasProforma_data.dproj" /> <Projects Include="Data\FacturasProforma_data.dproj" />
@ -221,14 +223,32 @@
<Target Name="PedidosCliente_view:Make"> <Target Name="PedidosCliente_view:Make">
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="ProcesoPresupuestosCliente_controller">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" Targets="" />
</Target>
<Target Name="ProcesoPresupuestosCliente_controller:Clean">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="ProcesoPresupuestosCliente_controller:Make">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="ProcesoPresupuestosCliente_view">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.dproj" Targets="" />
</Target>
<Target Name="ProcesoPresupuestosCliente_view:Clean">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="ProcesoPresupuestosCliente_view:Make">
<MSBuild Projects="..\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;FacturasProforma_model;FacturasProforma_data;FacturasProforma_controller;FacProforma_FacCli_relation;FacturasProforma_view;FacturasProforma_plugin;FactuGES;FactuGES_Server;FacturasCliente_controller;PedidosCliente_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;FacturasProforma_model;FacturasProforma_data;FacturasProforma_controller;FacProforma_FacCli_relation;FacturasProforma_view;FacturasProforma_plugin;FactuGES;FactuGES_Server;FacturasCliente_controller;PedidosCliente_view;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;FacturasProforma_model:Clean;FacturasProforma_data:Clean;FacturasProforma_controller:Clean;FacProforma_FacCli_relation:Clean;FacturasProforma_view:Clean;FacturasProforma_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_controller:Clean;PedidosCliente_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;FacturasProforma_model:Clean;FacturasProforma_data:Clean;FacturasProforma_controller:Clean;FacProforma_FacCli_relation:Clean;FacturasProforma_view:Clean;FacturasProforma_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_controller:Clean;PedidosCliente_view:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;FacturasProforma_model:Make;FacturasProforma_data:Make;FacturasProforma_controller:Make;FacProforma_FacCli_relation:Make;FacturasProforma_view:Make;FacturasProforma_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_controller:Make;PedidosCliente_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;FacturasProforma_model:Make;FacturasProforma_data:Make;FacturasProforma_controller:Make;FacProforma_FacCli_relation:Make;FacturasProforma_view:Make;FacturasProforma_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_controller:Make;PedidosCliente_view:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

260
Source/Modulos/Facturas proforma/Model/schFacturasProformaClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{6ABA008D-4E27-4110-A22A-B4BDFF577548}'; RID_ListaAnosFacturas = '{31F8BCB0-2BC6-4297-8F45-C4B217F56AAE}';
RID_FacturasProforma = '{2F1B80A0-CF55-49A8-8B2B-9801332B05EC}'; RID_FacturasProforma = '{2D2B0415-8CD2-4555-86D9-AF79E9D1F1FB}';
RID_FacturasProforma_Detalles = '{23C2166C-8FBB-4EEC-A206-FEB0089D74DC}'; RID_FacturasProforma_Detalles = '{2DD39878-271E-4EB0-B8AB-A42D50E7B4F4}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -60,11 +60,13 @@ const
fld_FacturasProformaNUM_COPIAS = 'NUM_COPIAS'; fld_FacturasProformaNUM_COPIAS = 'NUM_COPIAS';
fld_FacturasProformaNUM_CORREOS = 'NUM_CORREOS'; fld_FacturasProformaNUM_CORREOS = 'NUM_CORREOS';
fld_FacturasProformaDATOS_BANCARIOS = 'DATOS_BANCARIOS'; fld_FacturasProformaDATOS_BANCARIOS = 'DATOS_BANCARIOS';
fld_FacturasProformaID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_FacturasProformaID_PEDIDO = 'ID_PEDIDO'; fld_FacturasProformaID_PEDIDO = 'ID_PEDIDO';
fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE = 'REFERENCIA_PEDIDO_CLIENTE'; fld_FacturasProformaREF_PRE_CLIENTE = 'REF_PRE_CLIENTE';
fld_FacturasProformaREFERENCIA_DEL_CLIENTE = 'REFERENCIA_DEL_CLIENTE'; fld_FacturasProformaREF_PRE_DEL_CLIENTE = 'REF_PRE_DEL_CLIENTE';
fld_FacturasProformaID_FACTURA_FINAL = 'ID_FACTURA_FINAL'; fld_FacturasProformaREF_PED_CLIENTE = 'REF_PED_CLIENTE';
fld_FacturasProformaREFERENCIA_FACTURA_FINAL = 'REFERENCIA_FACTURA_FINAL'; fld_FacturasProformaREF_PED_DEL_CLIENTE = 'REF_PED_DEL_CLIENTE';
fld_FacturasProformaPAIS = 'PAIS';
{ FacturasProforma field indexes } { FacturasProforma field indexes }
idx_FacturasProformaID = 0; idx_FacturasProformaID = 0;
@ -102,11 +104,13 @@ const
idx_FacturasProformaNUM_COPIAS = 32; idx_FacturasProformaNUM_COPIAS = 32;
idx_FacturasProformaNUM_CORREOS = 33; idx_FacturasProformaNUM_CORREOS = 33;
idx_FacturasProformaDATOS_BANCARIOS = 34; idx_FacturasProformaDATOS_BANCARIOS = 34;
idx_FacturasProformaID_PEDIDO = 35; idx_FacturasProformaID_PRESUPUESTO = 35;
idx_FacturasProformaREFERENCIA_PEDIDO_CLIENTE = 36; idx_FacturasProformaID_PEDIDO = 36;
idx_FacturasProformaREFERENCIA_DEL_CLIENTE = 37; idx_FacturasProformaREF_PRE_CLIENTE = 37;
idx_FacturasProformaID_FACTURA_FINAL = 38; idx_FacturasProformaREF_PRE_DEL_CLIENTE = 38;
idx_FacturasProformaREFERENCIA_FACTURA_FINAL = 39; idx_FacturasProformaREF_PED_CLIENTE = 39;
idx_FacturasProformaREF_PED_DEL_CLIENTE = 40;
idx_FacturasProformaPAIS = 41;
{ FacturasProforma_Detalles fields } { FacturasProforma_Detalles fields }
fld_FacturasProforma_DetallesID = 'ID'; fld_FacturasProforma_DetallesID = 'ID';
@ -145,7 +149,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{5D8535C3-D8CF-446F-B6DF-02127DD9F379}'] ['{9CA99185-FDE8-41CF-A326-883134732D83}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -180,7 +184,7 @@ type
{ IFacturasProforma } { IFacturasProforma }
IFacturasProforma = interface(IDAStronglyTypedDataTable) IFacturasProforma = interface(IDAStronglyTypedDataTable)
['{77B940CF-32F0-43A2-A22E-A3611F90EE9C}'] ['{2717FC1C-C9A6-47F6-BCF5-41F09A541928}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -321,26 +325,34 @@ type
procedure SetDATOS_BANCARIOSValue(const aValue: String); procedure SetDATOS_BANCARIOSValue(const aValue: String);
function GetDATOS_BANCARIOSIsNull: Boolean; function GetDATOS_BANCARIOSIsNull: Boolean;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
function GetID_PRESUPUESTOValue: Integer;
procedure SetID_PRESUPUESTOValue(const aValue: Integer);
function GetID_PRESUPUESTOIsNull: Boolean;
procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean);
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
function GetID_PEDIDOIsNull: Boolean; function GetID_PEDIDOIsNull: Boolean;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); procedure SetID_PEDIDOIsNull(const aValue: Boolean);
function GetREFERENCIA_PEDIDO_CLIENTEValue: String; function GetREF_PRE_CLIENTEValue: String;
procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String); procedure SetREF_PRE_CLIENTEValue(const aValue: String);
function GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; function GetREF_PRE_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean); procedure SetREF_PRE_CLIENTEIsNull(const aValue: Boolean);
function GetREFERENCIA_DEL_CLIENTEValue: String; function GetREF_PRE_DEL_CLIENTEValue: String;
procedure SetREFERENCIA_DEL_CLIENTEValue(const aValue: String); procedure SetREF_PRE_DEL_CLIENTEValue(const aValue: String);
function GetREFERENCIA_DEL_CLIENTEIsNull: Boolean; function GetREF_PRE_DEL_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_DEL_CLIENTEIsNull(const aValue: Boolean); procedure SetREF_PRE_DEL_CLIENTEIsNull(const aValue: Boolean);
function GetID_FACTURA_FINALValue: Integer; function GetREF_PED_CLIENTEValue: String;
procedure SetID_FACTURA_FINALValue(const aValue: Integer); procedure SetREF_PED_CLIENTEValue(const aValue: String);
function GetID_FACTURA_FINALIsNull: Boolean; function GetREF_PED_CLIENTEIsNull: Boolean;
procedure SetID_FACTURA_FINALIsNull(const aValue: Boolean); procedure SetREF_PED_CLIENTEIsNull(const aValue: Boolean);
function GetREFERENCIA_FACTURA_FINALValue: String; function GetREF_PED_DEL_CLIENTEValue: String;
procedure SetREFERENCIA_FACTURA_FINALValue(const aValue: String); procedure SetREF_PED_DEL_CLIENTEValue(const aValue: String);
function GetREFERENCIA_FACTURA_FINALIsNull: Boolean; function GetREF_PED_DEL_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_FACTURA_FINALIsNull(const aValue: Boolean); procedure SetREF_PED_DEL_CLIENTEIsNull(const aValue: Boolean);
function GetPAISValue: String;
procedure SetPAISValue(const aValue: String);
function GetPAISIsNull: Boolean;
procedure SetPAISIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -414,16 +426,20 @@ type
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property ID_PRESUPUESTO: Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue;
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REFERENCIA_PEDIDO_CLIENTE: String read GetREFERENCIA_PEDIDO_CLIENTEValue write SetREFERENCIA_PEDIDO_CLIENTEValue; property REF_PRE_CLIENTE: String read GetREF_PRE_CLIENTEValue write SetREF_PRE_CLIENTEValue;
property REFERENCIA_PEDIDO_CLIENTEIsNull: Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull; property REF_PRE_CLIENTEIsNull: Boolean read GetREF_PRE_CLIENTEIsNull write SetREF_PRE_CLIENTEIsNull;
property REFERENCIA_DEL_CLIENTE: String read GetREFERENCIA_DEL_CLIENTEValue write SetREFERENCIA_DEL_CLIENTEValue; property REF_PRE_DEL_CLIENTE: String read GetREF_PRE_DEL_CLIENTEValue write SetREF_PRE_DEL_CLIENTEValue;
property REFERENCIA_DEL_CLIENTEIsNull: Boolean read GetREFERENCIA_DEL_CLIENTEIsNull write SetREFERENCIA_DEL_CLIENTEIsNull; property REF_PRE_DEL_CLIENTEIsNull: Boolean read GetREF_PRE_DEL_CLIENTEIsNull write SetREF_PRE_DEL_CLIENTEIsNull;
property ID_FACTURA_FINAL: Integer read GetID_FACTURA_FINALValue write SetID_FACTURA_FINALValue; property REF_PED_CLIENTE: String read GetREF_PED_CLIENTEValue write SetREF_PED_CLIENTEValue;
property ID_FACTURA_FINALIsNull: Boolean read GetID_FACTURA_FINALIsNull write SetID_FACTURA_FINALIsNull; property REF_PED_CLIENTEIsNull: Boolean read GetREF_PED_CLIENTEIsNull write SetREF_PED_CLIENTEIsNull;
property REFERENCIA_FACTURA_FINAL: String read GetREFERENCIA_FACTURA_FINALValue write SetREFERENCIA_FACTURA_FINALValue; property REF_PED_DEL_CLIENTE: String read GetREF_PED_DEL_CLIENTEValue write SetREF_PED_DEL_CLIENTEValue;
property REFERENCIA_FACTURA_FINALIsNull: Boolean read GetREFERENCIA_FACTURA_FINALIsNull write SetREFERENCIA_FACTURA_FINALIsNull; property REF_PED_DEL_CLIENTEIsNull: Boolean read GetREF_PED_DEL_CLIENTEIsNull write SetREF_PED_DEL_CLIENTEIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
end; end;
{ TFacturasProformaDataTableRules } { TFacturasProformaDataTableRules }
@ -572,26 +588,34 @@ type
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual; function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
function GetID_PRESUPUESTOValue: Integer; virtual;
procedure SetID_PRESUPUESTOValue(const aValue: Integer); virtual;
function GetID_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetID_PEDIDOValue: Integer; virtual; function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_PEDIDOIsNull: Boolean; virtual; function GetID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PEDIDO_CLIENTEValue: String; virtual; function GetREF_PRE_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String); virtual; procedure SetREF_PRE_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; virtual; function GetREF_PRE_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetREF_PRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_DEL_CLIENTEValue: String; virtual; function GetREF_PRE_DEL_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_DEL_CLIENTEValue(const aValue: String); virtual; procedure SetREF_PRE_DEL_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_DEL_CLIENTEIsNull: Boolean; virtual; function GetREF_PRE_DEL_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_DEL_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetREF_PRE_DEL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_FACTURA_FINALValue: Integer; virtual; function GetREF_PED_CLIENTEValue: String; virtual;
procedure SetID_FACTURA_FINALValue(const aValue: Integer); virtual; procedure SetREF_PED_CLIENTEValue(const aValue: String); virtual;
function GetID_FACTURA_FINALIsNull: Boolean; virtual; function GetREF_PED_CLIENTEIsNull: Boolean; virtual;
procedure SetID_FACTURA_FINALIsNull(const aValue: Boolean); virtual; procedure SetREF_PED_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FACTURA_FINALValue: String; virtual; function GetREF_PED_DEL_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_FACTURA_FINALValue(const aValue: String); virtual; procedure SetREF_PED_DEL_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_FACTURA_FINALIsNull: Boolean; virtual; function GetREF_PED_DEL_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_FACTURA_FINALIsNull(const aValue: Boolean); virtual; procedure SetREF_PED_DEL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
procedure SetPAISValue(const aValue: String); virtual;
function GetPAISIsNull: Boolean; virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -664,16 +688,20 @@ type
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull; property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property ID_PRESUPUESTO: Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue;
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REFERENCIA_PEDIDO_CLIENTE: String read GetREFERENCIA_PEDIDO_CLIENTEValue write SetREFERENCIA_PEDIDO_CLIENTEValue; property REF_PRE_CLIENTE: String read GetREF_PRE_CLIENTEValue write SetREF_PRE_CLIENTEValue;
property REFERENCIA_PEDIDO_CLIENTEIsNull: Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull; property REF_PRE_CLIENTEIsNull: Boolean read GetREF_PRE_CLIENTEIsNull write SetREF_PRE_CLIENTEIsNull;
property REFERENCIA_DEL_CLIENTE: String read GetREFERENCIA_DEL_CLIENTEValue write SetREFERENCIA_DEL_CLIENTEValue; property REF_PRE_DEL_CLIENTE: String read GetREF_PRE_DEL_CLIENTEValue write SetREF_PRE_DEL_CLIENTEValue;
property REFERENCIA_DEL_CLIENTEIsNull: Boolean read GetREFERENCIA_DEL_CLIENTEIsNull write SetREFERENCIA_DEL_CLIENTEIsNull; property REF_PRE_DEL_CLIENTEIsNull: Boolean read GetREF_PRE_DEL_CLIENTEIsNull write SetREF_PRE_DEL_CLIENTEIsNull;
property ID_FACTURA_FINAL: Integer read GetID_FACTURA_FINALValue write SetID_FACTURA_FINALValue; property REF_PED_CLIENTE: String read GetREF_PED_CLIENTEValue write SetREF_PED_CLIENTEValue;
property ID_FACTURA_FINALIsNull: Boolean read GetID_FACTURA_FINALIsNull write SetID_FACTURA_FINALIsNull; property REF_PED_CLIENTEIsNull: Boolean read GetREF_PED_CLIENTEIsNull write SetREF_PED_CLIENTEIsNull;
property REFERENCIA_FACTURA_FINAL: String read GetREFERENCIA_FACTURA_FINALValue write SetREFERENCIA_FACTURA_FINALValue; property REF_PED_DEL_CLIENTE: String read GetREF_PED_DEL_CLIENTEValue write SetREF_PED_DEL_CLIENTEValue;
property REFERENCIA_FACTURA_FINALIsNull: Boolean read GetREFERENCIA_FACTURA_FINALIsNull write SetREFERENCIA_FACTURA_FINALIsNull; property REF_PED_DEL_CLIENTEIsNull: Boolean read GetREF_PED_DEL_CLIENTEIsNull write SetREF_PED_DEL_CLIENTEIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -683,7 +711,7 @@ type
{ IFacturasProforma_Detalles } { IFacturasProforma_Detalles }
IFacturasProforma_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProforma_Detalles = interface(IDAStronglyTypedDataTable)
['{3A9B54FE-6094-4A20-A8CC-C3E186530F62}'] ['{9A004E54-50AF-4329-8CE8-609B019C6A57}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1674,6 +1702,27 @@ begin
DataTable.Fields[idx_FacturasProformaDATOS_BANCARIOS].AsVariant := Null; DataTable.Fields[idx_FacturasProformaDATOS_BANCARIOS].AsVariant := Null;
end; end;
function TFacturasProformaDataTableRules.GetID_PRESUPUESTOValue: Integer;
begin
result := DataTable.Fields[idx_FacturasProformaID_PRESUPUESTO].AsInteger;
end;
procedure TFacturasProformaDataTableRules.SetID_PRESUPUESTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasProformaID_PRESUPUESTO].AsInteger := aValue;
end;
function TFacturasProformaDataTableRules.GetID_PRESUPUESTOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProformaID_PRESUPUESTO].IsNull;
end;
procedure TFacturasProformaDataTableRules.SetID_PRESUPUESTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProformaID_PRESUPUESTO].AsVariant := Null;
end;
function TFacturasProformaDataTableRules.GetID_PEDIDOValue: Integer; function TFacturasProformaDataTableRules.GetID_PEDIDOValue: Integer;
begin begin
result := DataTable.Fields[idx_FacturasProformaID_PEDIDO].AsInteger; result := DataTable.Fields[idx_FacturasProformaID_PEDIDO].AsInteger;
@ -1695,88 +1744,109 @@ begin
DataTable.Fields[idx_FacturasProformaID_PEDIDO].AsVariant := Null; DataTable.Fields[idx_FacturasProformaID_PEDIDO].AsVariant := Null;
end; end;
function TFacturasProformaDataTableRules.GetREFERENCIA_PEDIDO_CLIENTEValue: String; function TFacturasProformaDataTableRules.GetREF_PRE_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_PEDIDO_CLIENTE].AsString; result := DataTable.Fields[idx_FacturasProformaREF_PRE_CLIENTE].AsString;
end; end;
procedure TFacturasProformaDataTableRules.SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String); procedure TFacturasProformaDataTableRules.SetREF_PRE_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_FacturasProformaREFERENCIA_PEDIDO_CLIENTE].AsString := aValue; DataTable.Fields[idx_FacturasProformaREF_PRE_CLIENTE].AsString := aValue;
end; end;
function TFacturasProformaDataTableRules.GetREFERENCIA_PEDIDO_CLIENTEIsNull: boolean; function TFacturasProformaDataTableRules.GetREF_PRE_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_PEDIDO_CLIENTE].IsNull; result := DataTable.Fields[idx_FacturasProformaREF_PRE_CLIENTE].IsNull;
end; end;
procedure TFacturasProformaDataTableRules.SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean); procedure TFacturasProformaDataTableRules.SetREF_PRE_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_FacturasProformaREFERENCIA_PEDIDO_CLIENTE].AsVariant := Null; DataTable.Fields[idx_FacturasProformaREF_PRE_CLIENTE].AsVariant := Null;
end; end;
function TFacturasProformaDataTableRules.GetREFERENCIA_DEL_CLIENTEValue: String; function TFacturasProformaDataTableRules.GetREF_PRE_DEL_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_DEL_CLIENTE].AsString; result := DataTable.Fields[idx_FacturasProformaREF_PRE_DEL_CLIENTE].AsString;
end; end;
procedure TFacturasProformaDataTableRules.SetREFERENCIA_DEL_CLIENTEValue(const aValue: String); procedure TFacturasProformaDataTableRules.SetREF_PRE_DEL_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_FacturasProformaREFERENCIA_DEL_CLIENTE].AsString := aValue; DataTable.Fields[idx_FacturasProformaREF_PRE_DEL_CLIENTE].AsString := aValue;
end; end;
function TFacturasProformaDataTableRules.GetREFERENCIA_DEL_CLIENTEIsNull: boolean; function TFacturasProformaDataTableRules.GetREF_PRE_DEL_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_DEL_CLIENTE].IsNull; result := DataTable.Fields[idx_FacturasProformaREF_PRE_DEL_CLIENTE].IsNull;
end; end;
procedure TFacturasProformaDataTableRules.SetREFERENCIA_DEL_CLIENTEIsNull(const aValue: Boolean); procedure TFacturasProformaDataTableRules.SetREF_PRE_DEL_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_FacturasProformaREFERENCIA_DEL_CLIENTE].AsVariant := Null; DataTable.Fields[idx_FacturasProformaREF_PRE_DEL_CLIENTE].AsVariant := Null;
end; end;
function TFacturasProformaDataTableRules.GetID_FACTURA_FINALValue: Integer; function TFacturasProformaDataTableRules.GetREF_PED_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_FacturasProformaID_FACTURA_FINAL].AsInteger; result := DataTable.Fields[idx_FacturasProformaREF_PED_CLIENTE].AsString;
end; end;
procedure TFacturasProformaDataTableRules.SetID_FACTURA_FINALValue(const aValue: Integer); procedure TFacturasProformaDataTableRules.SetREF_PED_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_FacturasProformaID_FACTURA_FINAL].AsInteger := aValue; DataTable.Fields[idx_FacturasProformaREF_PED_CLIENTE].AsString := aValue;
end; end;
function TFacturasProformaDataTableRules.GetID_FACTURA_FINALIsNull: boolean; function TFacturasProformaDataTableRules.GetREF_PED_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_FacturasProformaID_FACTURA_FINAL].IsNull; result := DataTable.Fields[idx_FacturasProformaREF_PED_CLIENTE].IsNull;
end; end;
procedure TFacturasProformaDataTableRules.SetID_FACTURA_FINALIsNull(const aValue: Boolean); procedure TFacturasProformaDataTableRules.SetREF_PED_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_FacturasProformaID_FACTURA_FINAL].AsVariant := Null; DataTable.Fields[idx_FacturasProformaREF_PED_CLIENTE].AsVariant := Null;
end; end;
function TFacturasProformaDataTableRules.GetREFERENCIA_FACTURA_FINALValue: String; function TFacturasProformaDataTableRules.GetREF_PED_DEL_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_FACTURA_FINAL].AsString; result := DataTable.Fields[idx_FacturasProformaREF_PED_DEL_CLIENTE].AsString;
end; end;
procedure TFacturasProformaDataTableRules.SetREFERENCIA_FACTURA_FINALValue(const aValue: String); procedure TFacturasProformaDataTableRules.SetREF_PED_DEL_CLIENTEValue(const aValue: String);
begin begin
DataTable.Fields[idx_FacturasProformaREFERENCIA_FACTURA_FINAL].AsString := aValue; DataTable.Fields[idx_FacturasProformaREF_PED_DEL_CLIENTE].AsString := aValue;
end; end;
function TFacturasProformaDataTableRules.GetREFERENCIA_FACTURA_FINALIsNull: boolean; function TFacturasProformaDataTableRules.GetREF_PED_DEL_CLIENTEIsNull: boolean;
begin begin
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_FACTURA_FINAL].IsNull; result := DataTable.Fields[idx_FacturasProformaREF_PED_DEL_CLIENTE].IsNull;
end; end;
procedure TFacturasProformaDataTableRules.SetREFERENCIA_FACTURA_FINALIsNull(const aValue: Boolean); procedure TFacturasProformaDataTableRules.SetREF_PED_DEL_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
DataTable.Fields[idx_FacturasProformaREFERENCIA_FACTURA_FINAL].AsVariant := Null; DataTable.Fields[idx_FacturasProformaREF_PED_DEL_CLIENTE].AsVariant := Null;
end;
function TFacturasProformaDataTableRules.GetPAISValue: String;
begin
result := DataTable.Fields[idx_FacturasProformaPAIS].AsString;
end;
procedure TFacturasProformaDataTableRules.SetPAISValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasProformaPAIS].AsString := aValue;
end;
function TFacturasProformaDataTableRules.GetPAISIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProformaPAIS].IsNull;
end;
procedure TFacturasProformaDataTableRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProformaPAIS].AsVariant := Null;
end; end;

290
Source/Modulos/Facturas proforma/Model/schFacturasProformaServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{B56B2864-B139-4368-9643-757950948319}'; RID_ListaAnosFacturasDelta = '{AD113743-D9AE-49D3-AEA2-12056CFA317B}';
RID_FacturasProformaDelta = '{6517D416-A2B8-40EF-BE1A-056BBC8D08BE}'; RID_FacturasProformaDelta = '{6961A790-8A15-45AE-BD06-5160176D59D3}';
RID_FacturasProforma_DetallesDelta = '{88B55B8E-BF8A-49C0-B26F-6BDDDFD872DD}'; RID_FacturasProforma_DetallesDelta = '{6A56A056-8788-4A5F-8C3E-3517B9192B20}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{B56B2864-B139-4368-9643-757950948319}'] ['{AD113743-D9AE-49D3-AEA2-12056CFA317B}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasProformaDelta } { IFacturasProformaDelta }
IFacturasProformaDelta = interface(IFacturasProforma) IFacturasProformaDelta = interface(IFacturasProforma)
['{6517D416-A2B8-40EF-BE1A-056BBC8D08BE}'] ['{6961A790-8A15-45AE-BD06-5160176D59D3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -87,11 +87,13 @@ type
function GetOldNUM_COPIASValue : SmallInt; function GetOldNUM_COPIASValue : SmallInt;
function GetOldNUM_CORREOSValue : SmallInt; function GetOldNUM_CORREOSValue : SmallInt;
function GetOldDATOS_BANCARIOSValue : String; function GetOldDATOS_BANCARIOSValue : String;
function GetOldID_PRESUPUESTOValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIA_PEDIDO_CLIENTEValue : String; function GetOldREF_PRE_CLIENTEValue : String;
function GetOldREFERENCIA_DEL_CLIENTEValue : String; function GetOldREF_PRE_DEL_CLIENTEValue : String;
function GetOldID_FACTURA_FINALValue : Integer; function GetOldREF_PED_CLIENTEValue : String;
function GetOldREFERENCIA_FACTURA_FINALValue : String; function GetOldREF_PED_DEL_CLIENTEValue : String;
function GetOldPAISValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -129,11 +131,13 @@ type
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue; property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue; property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREFERENCIA_PEDIDO_CLIENTE : String read GetOldREFERENCIA_PEDIDO_CLIENTEValue; property OldREF_PRE_CLIENTE : String read GetOldREF_PRE_CLIENTEValue;
property OldREFERENCIA_DEL_CLIENTE : String read GetOldREFERENCIA_DEL_CLIENTEValue; property OldREF_PRE_DEL_CLIENTE : String read GetOldREF_PRE_DEL_CLIENTEValue;
property OldID_FACTURA_FINAL : Integer read GetOldID_FACTURA_FINALValue; property OldREF_PED_CLIENTE : String read GetOldREF_PED_CLIENTEValue;
property OldREFERENCIA_FACTURA_FINAL : String read GetOldREFERENCIA_FACTURA_FINALValue; property OldREF_PED_DEL_CLIENTE : String read GetOldREF_PED_DEL_CLIENTEValue;
property OldPAIS : String read GetOldPAISValue;
end; end;
{ TFacturasProformaBusinessProcessorRules } { TFacturasProformaBusinessProcessorRules }
@ -352,36 +356,48 @@ type
function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual; function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual; procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
function GetID_PRESUPUESTOValue: Integer; virtual;
function GetID_PRESUPUESTOIsNull: Boolean; virtual;
function GetOldID_PRESUPUESTOValue: Integer; virtual;
function GetOldID_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetID_PRESUPUESTOValue(const aValue: Integer); virtual;
procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetID_PEDIDOValue: Integer; virtual; function GetID_PEDIDOValue: Integer; virtual;
function GetID_PEDIDOIsNull: Boolean; virtual; function GetID_PEDIDOIsNull: Boolean; virtual;
function GetOldID_PEDIDOValue: Integer; virtual; function GetOldID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOIsNull: Boolean; virtual; function GetOldID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PEDIDO_CLIENTEValue: String; virtual; function GetREF_PRE_CLIENTEValue: String; virtual;
function GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; virtual; function GetREF_PRE_CLIENTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_PEDIDO_CLIENTEValue: String; virtual; function GetOldREF_PRE_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; virtual; function GetOldREF_PRE_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String); virtual; procedure SetREF_PRE_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetREF_PRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_DEL_CLIENTEValue: String; virtual; function GetREF_PRE_DEL_CLIENTEValue: String; virtual;
function GetREFERENCIA_DEL_CLIENTEIsNull: Boolean; virtual; function GetREF_PRE_DEL_CLIENTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_DEL_CLIENTEValue: String; virtual; function GetOldREF_PRE_DEL_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_DEL_CLIENTEIsNull: Boolean; virtual; function GetOldREF_PRE_DEL_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_DEL_CLIENTEValue(const aValue: String); virtual; procedure SetREF_PRE_DEL_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_DEL_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetREF_PRE_DEL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_FACTURA_FINALValue: Integer; virtual; function GetREF_PED_CLIENTEValue: String; virtual;
function GetID_FACTURA_FINALIsNull: Boolean; virtual; function GetREF_PED_CLIENTEIsNull: Boolean; virtual;
function GetOldID_FACTURA_FINALValue: Integer; virtual; function GetOldREF_PED_CLIENTEValue: String; virtual;
function GetOldID_FACTURA_FINALIsNull: Boolean; virtual; function GetOldREF_PED_CLIENTEIsNull: Boolean; virtual;
procedure SetID_FACTURA_FINALValue(const aValue: Integer); virtual; procedure SetREF_PED_CLIENTEValue(const aValue: String); virtual;
procedure SetID_FACTURA_FINALIsNull(const aValue: Boolean); virtual; procedure SetREF_PED_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FACTURA_FINALValue: String; virtual; function GetREF_PED_DEL_CLIENTEValue: String; virtual;
function GetREFERENCIA_FACTURA_FINALIsNull: Boolean; virtual; function GetREF_PED_DEL_CLIENTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_FACTURA_FINALValue: String; virtual; function GetOldREF_PED_DEL_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_FACTURA_FINALIsNull: Boolean; virtual; function GetOldREF_PED_DEL_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_FACTURA_FINALValue(const aValue: String); virtual; procedure SetREF_PED_DEL_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_FACTURA_FINALIsNull(const aValue: Boolean); virtual; procedure SetREF_PED_DEL_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
function GetPAISIsNull: Boolean; virtual;
function GetOldPAISValue: String; virtual;
function GetOldPAISIsNull: Boolean; virtual;
procedure SetPAISValue(const aValue: String); virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -524,26 +540,34 @@ type
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull; property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull;
property ID_PRESUPUESTO : Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue;
property ID_PRESUPUESTOIsNull : Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldID_PRESUPUESTOIsNull : Boolean read GetOldID_PRESUPUESTOIsNull;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
property REFERENCIA_PEDIDO_CLIENTE : String read GetREFERENCIA_PEDIDO_CLIENTEValue write SetREFERENCIA_PEDIDO_CLIENTEValue; property REF_PRE_CLIENTE : String read GetREF_PRE_CLIENTEValue write SetREF_PRE_CLIENTEValue;
property REFERENCIA_PEDIDO_CLIENTEIsNull : Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull; property REF_PRE_CLIENTEIsNull : Boolean read GetREF_PRE_CLIENTEIsNull write SetREF_PRE_CLIENTEIsNull;
property OldREFERENCIA_PEDIDO_CLIENTE : String read GetOldREFERENCIA_PEDIDO_CLIENTEValue; property OldREF_PRE_CLIENTE : String read GetOldREF_PRE_CLIENTEValue;
property OldREFERENCIA_PEDIDO_CLIENTEIsNull : Boolean read GetOldREFERENCIA_PEDIDO_CLIENTEIsNull; property OldREF_PRE_CLIENTEIsNull : Boolean read GetOldREF_PRE_CLIENTEIsNull;
property REFERENCIA_DEL_CLIENTE : String read GetREFERENCIA_DEL_CLIENTEValue write SetREFERENCIA_DEL_CLIENTEValue; property REF_PRE_DEL_CLIENTE : String read GetREF_PRE_DEL_CLIENTEValue write SetREF_PRE_DEL_CLIENTEValue;
property REFERENCIA_DEL_CLIENTEIsNull : Boolean read GetREFERENCIA_DEL_CLIENTEIsNull write SetREFERENCIA_DEL_CLIENTEIsNull; property REF_PRE_DEL_CLIENTEIsNull : Boolean read GetREF_PRE_DEL_CLIENTEIsNull write SetREF_PRE_DEL_CLIENTEIsNull;
property OldREFERENCIA_DEL_CLIENTE : String read GetOldREFERENCIA_DEL_CLIENTEValue; property OldREF_PRE_DEL_CLIENTE : String read GetOldREF_PRE_DEL_CLIENTEValue;
property OldREFERENCIA_DEL_CLIENTEIsNull : Boolean read GetOldREFERENCIA_DEL_CLIENTEIsNull; property OldREF_PRE_DEL_CLIENTEIsNull : Boolean read GetOldREF_PRE_DEL_CLIENTEIsNull;
property ID_FACTURA_FINAL : Integer read GetID_FACTURA_FINALValue write SetID_FACTURA_FINALValue; property REF_PED_CLIENTE : String read GetREF_PED_CLIENTEValue write SetREF_PED_CLIENTEValue;
property ID_FACTURA_FINALIsNull : Boolean read GetID_FACTURA_FINALIsNull write SetID_FACTURA_FINALIsNull; property REF_PED_CLIENTEIsNull : Boolean read GetREF_PED_CLIENTEIsNull write SetREF_PED_CLIENTEIsNull;
property OldID_FACTURA_FINAL : Integer read GetOldID_FACTURA_FINALValue; property OldREF_PED_CLIENTE : String read GetOldREF_PED_CLIENTEValue;
property OldID_FACTURA_FINALIsNull : Boolean read GetOldID_FACTURA_FINALIsNull; property OldREF_PED_CLIENTEIsNull : Boolean read GetOldREF_PED_CLIENTEIsNull;
property REFERENCIA_FACTURA_FINAL : String read GetREFERENCIA_FACTURA_FINALValue write SetREFERENCIA_FACTURA_FINALValue; property REF_PED_DEL_CLIENTE : String read GetREF_PED_DEL_CLIENTEValue write SetREF_PED_DEL_CLIENTEValue;
property REFERENCIA_FACTURA_FINALIsNull : Boolean read GetREFERENCIA_FACTURA_FINALIsNull write SetREFERENCIA_FACTURA_FINALIsNull; property REF_PED_DEL_CLIENTEIsNull : Boolean read GetREF_PED_DEL_CLIENTEIsNull write SetREF_PED_DEL_CLIENTEIsNull;
property OldREFERENCIA_FACTURA_FINAL : String read GetOldREFERENCIA_FACTURA_FINALValue; property OldREF_PED_DEL_CLIENTE : String read GetOldREF_PED_DEL_CLIENTEValue;
property OldREFERENCIA_FACTURA_FINALIsNull : Boolean read GetOldREFERENCIA_FACTURA_FINALIsNull; property OldREF_PED_DEL_CLIENTEIsNull : Boolean read GetOldREF_PED_DEL_CLIENTEIsNull;
property PAIS : String read GetPAISValue write SetPAISValue;
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
property OldPAIS : String read GetOldPAISValue;
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -553,7 +577,7 @@ type
{ IFacturasProforma_DetallesDelta } { IFacturasProforma_DetallesDelta }
IFacturasProforma_DetallesDelta = interface(IFacturasProforma_Detalles) IFacturasProforma_DetallesDelta = interface(IFacturasProforma_Detalles)
['{88B55B8E-BF8A-49C0-B26F-6BDDDFD872DD}'] ['{6A56A056-8788-4A5F-8C3E-3517B9192B20}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1905,6 +1929,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaDATOS_BANCARIOS] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaDATOS_BANCARIOS] := Null;
end; end;
function TFacturasProformaBusinessProcessorRules.GetID_PRESUPUESTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_PRESUPUESTO];
end;
function TFacturasProformaBusinessProcessorRules.GetID_PRESUPUESTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_PRESUPUESTO]);
end;
function TFacturasProformaBusinessProcessorRules.GetOldID_PRESUPUESTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaID_PRESUPUESTO];
end;
function TFacturasProformaBusinessProcessorRules.GetOldID_PRESUPUESTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaID_PRESUPUESTO]);
end;
procedure TFacturasProformaBusinessProcessorRules.SetID_PRESUPUESTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_PRESUPUESTO] := aValue;
end;
procedure TFacturasProformaBusinessProcessorRules.SetID_PRESUPUESTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_PRESUPUESTO] := Null;
end;
function TFacturasProformaBusinessProcessorRules.GetID_PEDIDOValue: Integer; function TFacturasProformaBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_PEDIDO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_PEDIDO];
@ -1936,128 +1991,159 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_PEDIDO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_PEDIDO] := Null;
end; end;
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_PEDIDO_CLIENTEValue: String; function TFacturasProformaBusinessProcessorRules.GetREF_PRE_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_CLIENTE];
end; end;
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; function TFacturasProformaBusinessProcessorRules.GetREF_PRE_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_CLIENTE]);
end; end;
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_PEDIDO_CLIENTEValue: String; function TFacturasProformaBusinessProcessorRules.GetOldREF_PRE_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PRE_CLIENTE];
end; end;
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; function TFacturasProformaBusinessProcessorRules.GetOldREF_PRE_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PRE_CLIENTE]);
end; end;
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String); procedure TFacturasProformaBusinessProcessorRules.SetREF_PRE_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_CLIENTE] := aValue;
end; end;
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean); procedure TFacturasProformaBusinessProcessorRules.SetREF_PRE_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_CLIENTE] := Null;
end; end;
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_DEL_CLIENTEValue: String; function TFacturasProformaBusinessProcessorRules.GetREF_PRE_DEL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE];
end; end;
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_DEL_CLIENTEIsNull: Boolean; function TFacturasProformaBusinessProcessorRules.GetREF_PRE_DEL_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE]);
end; end;
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_DEL_CLIENTEValue: String; function TFacturasProformaBusinessProcessorRules.GetOldREF_PRE_DEL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE];
end; end;
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_DEL_CLIENTEIsNull: Boolean; function TFacturasProformaBusinessProcessorRules.GetOldREF_PRE_DEL_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE]);
end; end;
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_DEL_CLIENTEValue(const aValue: String); procedure TFacturasProformaBusinessProcessorRules.SetREF_PRE_DEL_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE] := aValue;
end; end;
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_DEL_CLIENTEIsNull(const aValue: Boolean); procedure TFacturasProformaBusinessProcessorRules.SetREF_PRE_DEL_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE] := Null;
end; end;
function TFacturasProformaBusinessProcessorRules.GetID_FACTURA_FINALValue: Integer; function TFacturasProformaBusinessProcessorRules.GetREF_PED_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_FACTURA_FINAL]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_CLIENTE];
end; end;
function TFacturasProformaBusinessProcessorRules.GetID_FACTURA_FINALIsNull: Boolean; function TFacturasProformaBusinessProcessorRules.GetREF_PED_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_FACTURA_FINAL]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_CLIENTE]);
end; end;
function TFacturasProformaBusinessProcessorRules.GetOldID_FACTURA_FINALValue: Integer; function TFacturasProformaBusinessProcessorRules.GetOldREF_PED_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaID_FACTURA_FINAL]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PED_CLIENTE];
end; end;
function TFacturasProformaBusinessProcessorRules.GetOldID_FACTURA_FINALIsNull: Boolean; function TFacturasProformaBusinessProcessorRules.GetOldREF_PED_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaID_FACTURA_FINAL]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PED_CLIENTE]);
end; end;
procedure TFacturasProformaBusinessProcessorRules.SetID_FACTURA_FINALValue(const aValue: Integer); procedure TFacturasProformaBusinessProcessorRules.SetREF_PED_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_FACTURA_FINAL] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_CLIENTE] := aValue;
end; end;
procedure TFacturasProformaBusinessProcessorRules.SetID_FACTURA_FINALIsNull(const aValue: Boolean); procedure TFacturasProformaBusinessProcessorRules.SetREF_PED_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_FACTURA_FINAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_CLIENTE] := Null;
end; end;
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_FACTURA_FINALValue: String; function TFacturasProformaBusinessProcessorRules.GetREF_PED_DEL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_FACTURA_FINAL]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_DEL_CLIENTE];
end; end;
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_FACTURA_FINALIsNull: Boolean; function TFacturasProformaBusinessProcessorRules.GetREF_PED_DEL_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_FACTURA_FINAL]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_DEL_CLIENTE]);
end; end;
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_FACTURA_FINALValue: String; function TFacturasProformaBusinessProcessorRules.GetOldREF_PED_DEL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_FACTURA_FINAL]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PED_DEL_CLIENTE];
end; end;
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_FACTURA_FINALIsNull: Boolean; function TFacturasProformaBusinessProcessorRules.GetOldREF_PED_DEL_CLIENTEIsNull: Boolean;
begin begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_FACTURA_FINAL]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PED_DEL_CLIENTE]);
end; end;
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_FACTURA_FINALValue(const aValue: String); procedure TFacturasProformaBusinessProcessorRules.SetREF_PED_DEL_CLIENTEValue(const aValue: String);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_FACTURA_FINAL] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_DEL_CLIENTE] := aValue;
end; end;
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_FACTURA_FINALIsNull(const aValue: Boolean); procedure TFacturasProformaBusinessProcessorRules.SetREF_PED_DEL_CLIENTEIsNull(const aValue: Boolean);
begin begin
if aValue then if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_FACTURA_FINAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_DEL_CLIENTE] := Null;
end;
function TFacturasProformaBusinessProcessorRules.GetPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaPAIS];
end;
function TFacturasProformaBusinessProcessorRules.GetPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaPAIS]);
end;
function TFacturasProformaBusinessProcessorRules.GetOldPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaPAIS];
end;
function TFacturasProformaBusinessProcessorRules.GetOldPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaPAIS]);
end;
procedure TFacturasProformaBusinessProcessorRules.SetPAISValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaPAIS] := aValue;
end;
procedure TFacturasProformaBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaPAIS] := Null;
end; end;

1
Source/Modulos/Facturas proforma/Model/uBizFacturasProforma.pas
View File

@ -297,6 +297,7 @@ begin
CODIGO_POSTAL := FCliente.CODIGO_POSTAL; CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA; PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION; POBLACION := FCliente.POBLACION;
PAIS := FCliente.PAIS;
if FCliente.ID_FORMA_PAGO > 0 then if FCliente.ID_FORMA_PAGO > 0 then
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
if FCliente.ID_TIPO_IVA > 0 then if FCliente.ID_TIPO_IVA > 0 then

67
Source/Modulos/Facturas proforma/Reports/uRptFacturasProforma_Server.dfm
View File

@ -27,10 +27,12 @@ object RptFacturasProforma: TRptFacturasProforma
'ALLE, V.POBLACION, V.PROVINCIA,'#10' V.CODIGO_POSTAL, V.FECHA_ALT' + 'ALLE, V.POBLACION, V.PROVINCIA,'#10' V.CODIGO_POSTAL, V.FECHA_ALT' +
'A, V.FECHA_MODIFICACION, V.USUARIO,'#10' V.ID_FORMA_PAGO, V.RECAR' + 'A, V.FECHA_MODIFICACION, V.USUARIO,'#10' V.ID_FORMA_PAGO, V.RECAR' +
'GO_EQUIVALENCIA, V.ID_TIPO_IVA, V.IMPORTE_NETO,'#10' V.IMPORTE_PO' + 'GO_EQUIVALENCIA, V.ID_TIPO_IVA, V.IMPORTE_NETO,'#10' V.IMPORTE_PO' +
'RTE, V.NUM_COPIAS, V.NUM_CORREOS, V.DATOS_BANCARIOS,'#10' V.ID_PE' + 'RTE, V.NUM_COPIAS, V.NUM_CORREOS, V.DATOS_BANCARIOS,'#10' F.DESCR' +
'DIDO, V.REFERENCIA_DEL_CLIENTE, V.ID_FACTURA_FINAL,'#10' F.DESCRI' + 'IPCION as FORMA_PAGO,'#10' CONTACTOS.IDIOMA_ISO, V.PAIS,'#10#10' COA' +
'PCION as FORMA_PAGO'#10' FROM'#10' V_FACTURAS_PROFORMA V'#10'LEFT JOIN F' + 'LESCE(REF_PRE_DEL_CLIENTE, REF_PED_DEL_CLIENTE) as REFERENCIA_DE' +
'ORMAS_PAGO F ON (F.ID = V.ID_FORMA_PAGO)'#10'WHERE V.ID = :ID'#10 'L_CLIENTE'#10#10' FROM'#10' V_FACTURAS_PROFORMA V'#10'LEFT JOIN FORMAS_PAG' +
'O F ON (F.ID = V.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS ON (CONTACTO' +
'S.ID = V.ID_CLIENTE)'#10'WHERE V.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -173,22 +175,24 @@ object RptFacturasProforma: TRptFacturasProforma
DatasetField = 'DATOS_BANCARIOS' DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS' TableField = 'DATOS_BANCARIOS'
end end
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'REFERENCIA_DEL_CLIENTE'
TableField = 'REFERENCIA_DEL_CLIENTE'
end
item
DatasetField = 'ID_FACTURA_FINAL'
TableField = 'ID_FACTURA_FINAL'
end
item item
DatasetField = 'FORMA_PAGO' DatasetField = 'FORMA_PAGO'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'FORMA_PAGO' SQLOrigin = 'FORMA_PAGO'
end
item
DatasetField = 'IDIOMA_ISO'
TableField = '<unknown>'
SQLOrigin = 'IDIOMA_ISO'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end
item
DatasetField = 'REFERENCIA_DEL_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_DEL_CLIENTE'
end> end>
end> end>
Name = 'InformeFacturasProforma' Name = 'InformeFacturasProforma'
@ -345,20 +349,22 @@ object RptFacturasProforma: TRptFacturasProforma
Size = 255 Size = 255
end end
item item
Name = 'ID_PEDIDO' Name = 'FORMA_PAGO'
DataType = datInteger
end
item
Name = 'REFERENCIA_DEL_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item item
Name = 'ID_FACTURA_FINAL' Name = 'IDIOMA_ISO'
DataType = datInteger DataType = datString
Size = 2
end end
item item
Name = 'FORMA_PAGO' Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_DEL_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end> end>
@ -1386,20 +1392,17 @@ object RptFacturasProforma: TRptFacturasProforma
Size = 255 Size = 255
end end
item item
Name = 'ID_PEDIDO' Name = 'FORMA_PAGO'
DataType = datInteger
end
item
Name = 'REFERENCIA_DEL_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item item
Name = 'ID_FACTURA_FINAL' Name = 'IDIOMA_ISO'
DataType = datInteger DataType = datString
Size = 2
end end
item item
Name = 'FORMA_PAGO' Name = 'REFERENCIA_DEL_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end> end>

2
Source/Modulos/Facturas proforma/Reports/uRptFacturasProforma_Server.pas
View File

@ -207,7 +207,7 @@ begin
tbl_Cabecera.Active := True; tbl_Cabecera.Active := True;
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptFacturaProforma, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString); AInforme := DarRutaFichero(DarRutaInformes, rptFacturaProforma, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('IDIOMA_ISO').AsString);
if VarIsNull(AInforme) then if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaProforma)); raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaProforma));

96
Source/Modulos/Facturas proforma/Servidor/srvFacturasProforma_Impl.dfm
View File

@ -188,25 +188,33 @@ object srvFacturasProforma: TsrvFacturasProforma
DatasetField = 'DATOS_BANCARIOS' DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS' TableField = 'DATOS_BANCARIOS'
end end
item
DatasetField = 'ID_PRESUPUESTO'
TableField = 'ID_PRESUPUESTO'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end
item item
DatasetField = 'ID_PEDIDO' DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO' TableField = 'ID_PEDIDO'
end end
item item
DatasetField = 'ID_FACTURA_FINAL' DatasetField = 'REF_PRE_CLIENTE'
TableField = 'ID_FACTURA_FINAL' TableField = 'REF_PRE_CLIENTE'
end end
item item
DatasetField = 'REFERENCIA_PEDIDO_CLIENTE' DatasetField = 'REF_PRE_DEL_CLIENTE'
TableField = 'REFERENCIA_PEDIDO_CLIENTE' TableField = 'REF_PRE_DEL_CLIENTE'
end end
item item
DatasetField = 'REFERENCIA_FACTURA_FINAL' DatasetField = 'REF_PED_CLIENTE'
TableField = 'REFERENCIA_FACTURA_FINAL' TableField = 'REF_PED_CLIENTE'
end end
item item
DatasetField = 'REFERENCIA_DEL_CLIENTE' DatasetField = 'REF_PED_DEL_CLIENTE'
TableField = 'REFERENCIA_DEL_CLIENTE' TableField = 'REF_PED_DEL_CLIENTE'
end> end>
end> end>
Name = 'FacturasProforma' Name = 'FacturasProforma'
@ -400,28 +408,36 @@ object srvFacturasProforma: TsrvFacturasProforma
Size = 255 Size = 255
DictionaryEntry = 'FacturasProforma_DATOS_BANCARIOS' DictionaryEntry = 'FacturasProforma_DATOS_BANCARIOS'
end end
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasProforma_ID_PEDIDO'
end end
item item
Name = 'REFERENCIA_PEDIDO_CLIENTE' Name = 'REF_PRE_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item item
Name = 'REFERENCIA_DEL_CLIENTE' Name = 'REF_PRE_DEL_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item item
Name = 'ID_FACTURA_FINAL' Name = 'REF_PED_CLIENTE'
DataType = datInteger DataType = datString
DictionaryEntry = 'FacturasProforma_ID_FACTURA_FINAL' Size = 255
end end
item item
Name = 'REFERENCIA_FACTURA_FINAL' Name = 'REF_PED_DEL_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'PAIS'
DataType = datString DataType = datString
Size = 255 Size = 255
end> end>
@ -990,12 +1006,18 @@ object srvFacturasProforma: TsrvFacturasProforma
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO' Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FACTURA_FINAL' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end> end>
@ -1014,18 +1036,18 @@ object srvFacturasProforma: TsrvFacturasProforma
'N,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_M' + 'N,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_M' +
'ODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVAL' + 'ODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVAL' +
'ENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ' + 'ENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ' +
' DATOS_BANCARIOS,'#10' ID_PEDIDO,'#10' ID_FACTURA_FINAL'#10' )'#10' VA' + ' DATOS_BANCARIOS,'#10' PAIS,'#10' ID_PRESUPUESTO,'#10' ID_PEDIDO'#10' ' +
'LUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FAC' + ' )'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :F' +
'TURA,'#10' :FECHA_VENCIMIENTO,'#10' :SITUACION,'#10' :BASE_IMPONIBL' + 'ECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :SITUACION,'#10' :BASE_' +
'E,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :DESCRIPCION_DESC' + 'IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :DESCRIPC' +
'UENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' ' + 'ION_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE' +
' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_C' + '_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' ' +
'IF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :POBLACION,'#10 + ' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :POB' +
' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_' + 'LACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' ' +
'MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQU' + ' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :REC' +
'IVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_POR' + 'ARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMP' +
'TE,'#10' :DATOS_BANCARIOS,'#10' :ID_PEDIDO,'#10' :ID_FACTURA_FINAL)' + 'ORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :PAIS,'#10' :ID_PRESUPUESTO' +
';'#10 ','#10' :ID_PEDIDO);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1205,12 +1227,18 @@ object srvFacturasProforma: TsrvFacturasProforma
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO' Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FACTURA_FINAL' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
@ -1239,9 +1267,9 @@ object srvFacturasProforma: TsrvFacturasProforma
'IO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' RECARGO_E' + 'IO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' RECARGO_E' +
'QUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA = :ID_TIPO_' + 'QUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA = :ID_TIPO_' +
'IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPO' + 'IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPO' +
'RTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_BANCARIOS,'#10' ID_PEDIDO' + 'RTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_BANCARIOS,'#10' PAIS = :P' +
' = :ID_PEDIDO,'#10' ID_FACTURA_FINAL = :ID_FACTURA_FINAL'#10' WHERE'#10 + 'AIS,'#10' ID_PRESUPUESTO = :ID_PRESUPUESTO,'#10' ID_PEDIDO = :ID_P' +
' (ID = :OLD_ID);'#10 'EDIDO'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

4
Source/Modulos/Facturas proforma/Views/uEditorFacturasProforma.pas
View File

@ -146,8 +146,8 @@ begin
inherited; inherited;
(Sender as TAction).Enabled := HayDatos and (Sender as TAction).Enabled := HayDatos and
not (ViewGrid.NumSeleccionados > 1) and not (ViewGrid.NumSeleccionados > 1) and
ViewGrid.esSeleccionCeldaDatos and ViewGrid.esSeleccionCeldaDatos;
((FFacturas.ID_FACTURA_FINAL = 0)); // and ((FFacturas.ID_FACTURA_FINAL = 0));
end; end;

2
Source/Modulos/Facturas proforma/Views/uViewDatosYSeleccionClienteFacturaProforma.dfm
View File

@ -17,8 +17,6 @@ inherited frViewDatosYSeleccionClienteFacturaProforma: TfrViewDatosYSeleccionCli
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 467
ExplicitHeight = 234
DesignSize = ( DesignSize = (
609 609
272) 272)

6
Source/Modulos/Facturas proforma/Views/uViewDatosYSeleccionClienteFacturaProforma.pas
View File

@ -183,6 +183,7 @@ begin
FFactura.POBLACION := FDireccion.POBLACION; FFactura.POBLACION := FDireccion.POBLACION;
FFactura.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL; FFactura.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
FFactura.PROVINCIA := FDireccion.PROVINCIA; FFactura.PROVINCIA := FDireccion.PROVINCIA;
FFactura.PAIS := FDireccion.PAIS;
FFactura.IMPORTE_PORTE := FDireccion.PORTE; FFactura.IMPORTE_PORTE := FDireccion.PORTE;
end; end;
@ -247,9 +248,9 @@ begin
ACadena := ''; ACadena := '';
if Assigned(FDireccion) then if Assigned(FDireccion) then
ACadena := Format('%s %s %s %s', ACadena := Format('%s %s %s %s %s',
[FFactura.CALLE, FFactura.POBLACION, [FFactura.CALLE, FFactura.POBLACION,
FFactura.CODIGO_POSTAL, FFactura.PROVINCIA]); FFactura.CODIGO_POSTAL, FFactura.PROVINCIA, FFACTURA.PAIS]);
edtDireccion.Text := ACadena; edtDireccion.Text := ACadena;
end; end;
@ -309,6 +310,7 @@ begin
FFactura.ClearField('POBLACION'); FFactura.ClearField('POBLACION');
FFactura.ClearField('CODIGO_POSTAL'); FFactura.ClearField('CODIGO_POSTAL');
FFactura.ClearField('PROVINCIA'); FFactura.ClearField('PROVINCIA');
FFactura.ClearField('PAIS');
FFactura.ClearField('IMPORTE_PORTE'); FFactura.ClearField('IMPORTE_PORTE');
end; end;

20
Source/Modulos/Facturas proforma/Views/uViewFacturasProforma.dfm
View File

@ -166,20 +166,28 @@ inherited frViewFacturasProforma: TfrViewFacturasProforma
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 128 Width = 128
end end
object cxGridViewREFERENCIA_PEDIDO_CLIENTE: TcxGridDBColumn object cxGridViewREF_PRE_CLIENTE: TcxGridDBColumn
Caption = 'Ref. Pedido Cliente' Caption = 'Ref. Presupuesto Cliente'
DataBinding.FieldName = 'REFERENCIA_PEDIDO_CLIENTE' DataBinding.FieldName = 'REF_PRE_CLIENTE'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewREFERENCIA_DEL_CLIENTE: TcxGridDBColumn object cxGridViewREF_PRE_DEL_CLIENTE: TcxGridDBColumn
Caption = 'Ref. ped. del cliente' Caption = 'Ref. pre. del cliente'
DataBinding.FieldName = 'REFERENCIA_DEL_CLIENTE' DataBinding.FieldName = 'REF_PRE_DEL_CLIENTE'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn
Caption = 'Ref. pedido de cliente'
DataBinding.FieldName = 'REF_PED_CLIENTE'
end
object cxGridViewREF_PED_DEL_CLIENTE: TcxGridDBColumn
Caption = 'Ref. pedido del cliente'
DataBinding.FieldName = 'REF_PED_DEL_CLIENTE'
end
object cxGridViewREFERENCIA_FACTURA_FINAL: TcxGridDBColumn object cxGridViewREFERENCIA_FACTURA_FINAL: TcxGridDBColumn
Caption = 'Ref. factura cliente' Caption = 'Ref. factura cliente'
DataBinding.FieldName = 'REFERENCIA_FACTURA_FINAL' DataBinding.FieldName = 'REFERENCIA_FACTURA_FINAL'

6
Source/Modulos/Facturas proforma/Views/uViewFacturasProforma.pas
View File

@ -56,9 +56,11 @@ type
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn; cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewRE: TcxGridDBColumn; cxGridViewRE: TcxGridDBColumn;
cxGridViewIMPORTE_RE: TcxGridDBColumn; cxGridViewIMPORTE_RE: TcxGridDBColumn;
cxGridViewREFERENCIA_PEDIDO_CLIENTE: TcxGridDBColumn; cxGridViewREF_PRE_CLIENTE: TcxGridDBColumn;
cxGridViewREFERENCIA_FACTURA_FINAL: TcxGridDBColumn; cxGridViewREFERENCIA_FACTURA_FINAL: TcxGridDBColumn;
cxGridViewREFERENCIA_DEL_CLIENTE: TcxGridDBColumn; cxGridViewREF_PRE_DEL_CLIENTE: TcxGridDBColumn;
cxGridViewREF_PED_CLIENTE: TcxGridDBColumn;
cxGridViewREF_PED_DEL_CLIENTE: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

10
Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm
View File

@ -344,6 +344,16 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
Name = 'TIPO_PEDIDO' Name = 'TIPO_PEDIDO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FACTURA_PROFORMA'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

98
Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPedidos = '{0EEEB91E-B94E-492A-9B55-D9D69121A15D}'; RID_ListaAnosPedidos = '{A85291BA-5A29-4A14-AED9-72B405AF77AC}';
RID_PedidosProveedor = '{42F2265A-DFC1-486D-8B10-CE0B7882F99B}'; RID_PedidosProveedor = '{8C4E8A3B-6431-413D-A91B-455AE2356C23}';
RID_PedidosCliente = '{114B3685-0624-44E5-A2E8-9E41682B17D3}'; RID_PedidosCliente = '{54D057DB-E0FA-46EB-A72D-4A0AA490C6F1}';
RID_PedidosCliente_Detalles = '{79001C87-40EC-4A80-AAEC-469ABF51992A}'; RID_PedidosCliente_Detalles = '{CECCC206-BD3E-4FB0-B84B-E828C30D3198}';
RID_PedidosCliente_Articulos_Pendientes = '{3C095CF4-7C99-422E-9353-41457E08D356}'; RID_PedidosCliente_Articulos_Pendientes = '{528B86F4-EF6F-4CAB-9EA3-B1C821D8A8B2}';
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{0918991D-A6AF-43DB-BE3A-EF0BC296C52D}'; RID_PedidoCliente_ArticulosPendientesPedirAProv = '{AB008D6B-DA8E-426D-B250-18EC81540899}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{6AEA860C-3542-4087-9AC0-E9BBC0BE53A0}'; RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{F6F64067-1298-4E86-89EB-276107B2DAC6}';
{ Data table names } { Data table names }
nme_ListaAnosPedidos = 'ListaAnosPedidos'; nme_ListaAnosPedidos = 'ListaAnosPedidos';
@ -82,6 +82,8 @@ const
fld_PedidosClienteID_PRESUPUESTO = 'ID_PRESUPUESTO'; fld_PedidosClienteID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_PedidosClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO'; fld_PedidosClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
fld_PedidosClienteTIPO_PEDIDO = 'TIPO_PEDIDO'; fld_PedidosClienteTIPO_PEDIDO = 'TIPO_PEDIDO';
fld_PedidosClientePAIS = 'PAIS';
fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 'REFERENCIA_FACTURA_PROFORMA';
{ PedidosCliente field indexes } { PedidosCliente field indexes }
idx_PedidosClienteID = 0; idx_PedidosClienteID = 0;
@ -121,6 +123,8 @@ const
idx_PedidosClienteID_PRESUPUESTO = 34; idx_PedidosClienteID_PRESUPUESTO = 34;
idx_PedidosClienteREFERENCIA_PRESUPUESTO = 35; idx_PedidosClienteREFERENCIA_PRESUPUESTO = 35;
idx_PedidosClienteTIPO_PEDIDO = 36; idx_PedidosClienteTIPO_PEDIDO = 36;
idx_PedidosClientePAIS = 37;
idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 38;
{ PedidosCliente_Detalles fields } { PedidosCliente_Detalles fields }
fld_PedidosCliente_DetallesID = 'ID'; fld_PedidosCliente_DetallesID = 'ID';
@ -217,7 +221,7 @@ const
type type
{ IListaAnosPedidos } { IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable) IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{ECDA790C-408A-47C4-B0E9-F3E501591DCD}'] ['{FA87F5CB-4CE8-4662-8536-76ACB95F011A}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -252,7 +256,7 @@ type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{23013245-EFE7-4449-A38A-C01A1D8024D3}'] ['{37B57C33-2940-454E-866C-8BBDA32EACDE}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -323,7 +327,7 @@ type
{ IPedidosCliente } { IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable) IPedidosCliente = interface(IDAStronglyTypedDataTable)
['{685137A5-B5E4-4EB9-8268-7D49FAF6B111}'] ['{CC72F877-CED4-4E3C-B77F-698CD3F4F325}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -471,6 +475,14 @@ type
procedure SetTIPO_PEDIDOValue(const aValue: String); procedure SetTIPO_PEDIDOValue(const aValue: String);
function GetTIPO_PEDIDOIsNull: Boolean; function GetTIPO_PEDIDOIsNull: Boolean;
procedure SetTIPO_PEDIDOIsNull(const aValue: Boolean); procedure SetTIPO_PEDIDOIsNull(const aValue: Boolean);
function GetPAISValue: String;
procedure SetPAISValue(const aValue: String);
function GetPAISIsNull: Boolean;
procedure SetPAISIsNull(const aValue: Boolean);
function GetREFERENCIA_FACTURA_PROFORMAValue: String;
procedure SetREFERENCIA_FACTURA_PROFORMAValue(const aValue: String);
function GetREFERENCIA_FACTURA_PROFORMAIsNull: Boolean;
procedure SetREFERENCIA_FACTURA_PROFORMAIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -548,6 +560,10 @@ type
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
property TIPO_PEDIDO: String read GetTIPO_PEDIDOValue write SetTIPO_PEDIDOValue; property TIPO_PEDIDO: String read GetTIPO_PEDIDOValue write SetTIPO_PEDIDOValue;
property TIPO_PEDIDOIsNull: Boolean read GetTIPO_PEDIDOIsNull write SetTIPO_PEDIDOIsNull; property TIPO_PEDIDOIsNull: Boolean read GetTIPO_PEDIDOIsNull write SetTIPO_PEDIDOIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property REFERENCIA_FACTURA_PROFORMA: String read GetREFERENCIA_FACTURA_PROFORMAValue write SetREFERENCIA_FACTURA_PROFORMAValue;
property REFERENCIA_FACTURA_PROFORMAIsNull: Boolean read GetREFERENCIA_FACTURA_PROFORMAIsNull write SetREFERENCIA_FACTURA_PROFORMAIsNull;
end; end;
{ TPedidosClienteDataTableRules } { TPedidosClienteDataTableRules }
@ -705,6 +721,14 @@ type
procedure SetTIPO_PEDIDOValue(const aValue: String); virtual; procedure SetTIPO_PEDIDOValue(const aValue: String); virtual;
function GetTIPO_PEDIDOIsNull: Boolean; virtual; function GetTIPO_PEDIDOIsNull: Boolean; virtual;
procedure SetTIPO_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
procedure SetPAISValue(const aValue: String); virtual;
function GetPAISIsNull: Boolean; virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FACTURA_PROFORMAValue: String; virtual;
procedure SetREFERENCIA_FACTURA_PROFORMAValue(const aValue: String); virtual;
function GetREFERENCIA_FACTURA_PROFORMAIsNull: Boolean; virtual;
procedure SetREFERENCIA_FACTURA_PROFORMAIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -781,6 +805,10 @@ type
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull; property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
property TIPO_PEDIDO: String read GetTIPO_PEDIDOValue write SetTIPO_PEDIDOValue; property TIPO_PEDIDO: String read GetTIPO_PEDIDOValue write SetTIPO_PEDIDOValue;
property TIPO_PEDIDOIsNull: Boolean read GetTIPO_PEDIDOIsNull write SetTIPO_PEDIDOIsNull; property TIPO_PEDIDOIsNull: Boolean read GetTIPO_PEDIDOIsNull write SetTIPO_PEDIDOIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property REFERENCIA_FACTURA_PROFORMA: String read GetREFERENCIA_FACTURA_PROFORMAValue write SetREFERENCIA_FACTURA_PROFORMAValue;
property REFERENCIA_FACTURA_PROFORMAIsNull: Boolean read GetREFERENCIA_FACTURA_PROFORMAIsNull write SetREFERENCIA_FACTURA_PROFORMAIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -790,7 +818,7 @@ type
{ IPedidosCliente_Detalles } { IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{7B004CF5-7D51-44A7-837C-248351E59D5A}'] ['{004940A4-DCDC-40F8-AEEC-6DE5D347C698}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -981,7 +1009,7 @@ type
{ IPedidosCliente_Articulos_Pendientes } { IPedidosCliente_Articulos_Pendientes }
IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{0B5561A6-EC77-4F1A-9790-4D6FD000EA26}'] ['{4D4C2C08-64A6-4E0A-932F-26EC5DD23BB3}']
{ Property getters and setters } { Property getters and setters }
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
@ -1052,7 +1080,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProv } { IPedidoCliente_ArticulosPendientesPedirAProv }
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable) IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
['{3D4781F8-058F-449F-A40F-2D9D61A7546C}'] ['{5BF97010-EEB1-4CFF-918F-7F729948AD7F}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1195,7 +1223,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos } { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos }
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable) IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable)
['{3F66BB5C-DBB8-42E9-BEC7-1DE96E609CAD}'] ['{359ED626-4BCB-47EE-88DF-77695506634E}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -2269,6 +2297,48 @@ begin
DataTable.Fields[idx_PedidosClienteTIPO_PEDIDO].AsVariant := Null; DataTable.Fields[idx_PedidosClienteTIPO_PEDIDO].AsVariant := Null;
end; end;
function TPedidosClienteDataTableRules.GetPAISValue: String;
begin
result := DataTable.Fields[idx_PedidosClientePAIS].AsString;
end;
procedure TPedidosClienteDataTableRules.SetPAISValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClientePAIS].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetPAISIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosClientePAIS].IsNull;
end;
procedure TPedidosClienteDataTableRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosClientePAIS].AsVariant := Null;
end;
function TPedidosClienteDataTableRules.GetREFERENCIA_FACTURA_PROFORMAValue: String;
begin
result := DataTable.Fields[idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA].AsString;
end;
procedure TPedidosClienteDataTableRules.SetREFERENCIA_FACTURA_PROFORMAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA].AsString := aValue;
end;
function TPedidosClienteDataTableRules.GetREFERENCIA_FACTURA_PROFORMAIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA].IsNull;
end;
procedure TPedidosClienteDataTableRules.SetREFERENCIA_FACTURA_PROFORMAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA].AsVariant := Null;
end;
{ TPedidosCliente_DetallesDataTableRules } { TPedidosCliente_DetallesDataTableRules }
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

114
Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPedidosDelta = '{2DABA86C-B83B-47E8-AC84-4582BABA59DA}'; RID_ListaAnosPedidosDelta = '{944C551E-9F2E-4E78-81FF-7BDE4EA98EA4}';
RID_PedidosProveedorDelta = '{E6BDD968-AB7B-495D-96E5-84F8FB0923D0}'; RID_PedidosProveedorDelta = '{46C44298-709E-4A45-ACAA-E42FA52DB984}';
RID_PedidosClienteDelta = '{C42DF2D8-C429-4A99-8CFD-FD381E24C388}'; RID_PedidosClienteDelta = '{D4146576-FB6D-4914-8D56-CEF8A0FA6806}';
RID_PedidosCliente_DetallesDelta = '{729FD8AB-C4B8-4F8E-AFCD-2C6E926C0EB8}'; RID_PedidosCliente_DetallesDelta = '{8DF6053A-F2C4-4D43-A775-21D202290B16}';
RID_PedidosCliente_Articulos_PendientesDelta = '{599B5358-26CF-4318-ACE3-64EF8ACA44C0}'; RID_PedidosCliente_Articulos_PendientesDelta = '{570DCC8A-2BB2-423F-A19D-FB373C6477A2}';
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{C84B6802-337E-47D5-A769-8F54782202C4}'; RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{275E08F0-DF00-40DE-8CD5-988647CB5C41}';
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{26C4CE72-8E30-424C-9054-8E6BA023C82F}'; RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{90F4CB46-B3F9-465C-BCC8-071BD7653A4D}';
type type
{ IListaAnosPedidosDelta } { IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos) IListaAnosPedidosDelta = interface(IListaAnosPedidos)
['{2DABA86C-B83B-47E8-AC84-4582BABA59DA}'] ['{944C551E-9F2E-4E78-81FF-7BDE4EA98EA4}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -54,7 +54,7 @@ type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{E6BDD968-AB7B-495D-96E5-84F8FB0923D0}'] ['{46C44298-709E-4A45-ACAA-E42FA52DB984}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -124,7 +124,7 @@ type
{ IPedidosClienteDelta } { IPedidosClienteDelta }
IPedidosClienteDelta = interface(IPedidosCliente) IPedidosClienteDelta = interface(IPedidosCliente)
['{C42DF2D8-C429-4A99-8CFD-FD381E24C388}'] ['{D4146576-FB6D-4914-8D56-CEF8A0FA6806}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -163,6 +163,8 @@ type
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
function GetOldREFERENCIA_PRESUPUESTOValue : String; function GetOldREFERENCIA_PRESUPUESTOValue : String;
function GetOldTIPO_PEDIDOValue : String; function GetOldTIPO_PEDIDOValue : String;
function GetOldPAISValue : String;
function GetOldREFERENCIA_FACTURA_PROFORMAValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -202,6 +204,8 @@ type
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue; property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue; property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
property OldTIPO_PEDIDO : String read GetOldTIPO_PEDIDOValue; property OldTIPO_PEDIDO : String read GetOldTIPO_PEDIDOValue;
property OldPAIS : String read GetOldPAISValue;
property OldREFERENCIA_FACTURA_PROFORMA : String read GetOldREFERENCIA_FACTURA_PROFORMAValue;
end; end;
{ TPedidosClienteBusinessProcessorRules } { TPedidosClienteBusinessProcessorRules }
@ -433,6 +437,18 @@ type
function GetOldTIPO_PEDIDOIsNull: Boolean; virtual; function GetOldTIPO_PEDIDOIsNull: Boolean; virtual;
procedure SetTIPO_PEDIDOValue(const aValue: String); virtual; procedure SetTIPO_PEDIDOValue(const aValue: String); virtual;
procedure SetTIPO_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetTIPO_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
function GetPAISIsNull: Boolean; virtual;
function GetOldPAISValue: String; virtual;
function GetOldPAISIsNull: Boolean; virtual;
procedure SetPAISValue(const aValue: String); virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FACTURA_PROFORMAValue: String; virtual;
function GetREFERENCIA_FACTURA_PROFORMAIsNull: Boolean; virtual;
function GetOldREFERENCIA_FACTURA_PROFORMAValue: String; virtual;
function GetOldREFERENCIA_FACTURA_PROFORMAIsNull: Boolean; virtual;
procedure SetREFERENCIA_FACTURA_PROFORMAValue(const aValue: String); virtual;
procedure SetREFERENCIA_FACTURA_PROFORMAIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -583,6 +599,14 @@ type
property TIPO_PEDIDOIsNull : Boolean read GetTIPO_PEDIDOIsNull write SetTIPO_PEDIDOIsNull; property TIPO_PEDIDOIsNull : Boolean read GetTIPO_PEDIDOIsNull write SetTIPO_PEDIDOIsNull;
property OldTIPO_PEDIDO : String read GetOldTIPO_PEDIDOValue; property OldTIPO_PEDIDO : String read GetOldTIPO_PEDIDOValue;
property OldTIPO_PEDIDOIsNull : Boolean read GetOldTIPO_PEDIDOIsNull; property OldTIPO_PEDIDOIsNull : Boolean read GetOldTIPO_PEDIDOIsNull;
property PAIS : String read GetPAISValue write SetPAISValue;
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
property OldPAIS : String read GetOldPAISValue;
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
property REFERENCIA_FACTURA_PROFORMA : String read GetREFERENCIA_FACTURA_PROFORMAValue write SetREFERENCIA_FACTURA_PROFORMAValue;
property REFERENCIA_FACTURA_PROFORMAIsNull : Boolean read GetREFERENCIA_FACTURA_PROFORMAIsNull write SetREFERENCIA_FACTURA_PROFORMAIsNull;
property OldREFERENCIA_FACTURA_PROFORMA : String read GetOldREFERENCIA_FACTURA_PROFORMAValue;
property OldREFERENCIA_FACTURA_PROFORMAIsNull : Boolean read GetOldREFERENCIA_FACTURA_PROFORMAIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -592,7 +616,7 @@ type
{ IPedidosCliente_DetallesDelta } { IPedidosCliente_DetallesDelta }
IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles) IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
['{729FD8AB-C4B8-4F8E-AFCD-2C6E926C0EB8}'] ['{8DF6053A-F2C4-4D43-A775-21D202290B16}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -782,7 +806,7 @@ type
{ IPedidosCliente_Articulos_PendientesDelta } { IPedidosCliente_Articulos_PendientesDelta }
IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes) IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes)
['{599B5358-26CF-4318-ACE3-64EF8ACA44C0}'] ['{570DCC8A-2BB2-423F-A19D-FB373C6477A2}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldCANTIDAD_PEDValue : Currency; function GetOldCANTIDAD_PEDValue : Currency;
@ -852,7 +876,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvDelta } { IPedidoCliente_ArticulosPendientesPedirAProvDelta }
IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv) IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
['{C84B6802-337E-47D5-A769-8F54782202C4}'] ['{275E08F0-DF00-40DE-8CD5-988647CB5C41}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
@ -994,7 +1018,7 @@ type
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta } { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta }
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos) IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
['{26C4CE72-8E30-424C-9054-8E6BA023C82F}'] ['{90F4CB46-B3F9-465C-BCC8-071BD7653A4D}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
@ -2490,6 +2514,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTIPO_PEDIDO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTIPO_PEDIDO] := Null;
end; end;
function TPedidosClienteBusinessProcessorRules.GetPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePAIS];
end;
function TPedidosClienteBusinessProcessorRules.GetPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePAIS]);
end;
function TPedidosClienteBusinessProcessorRules.GetOldPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePAIS];
end;
function TPedidosClienteBusinessProcessorRules.GetOldPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePAIS]);
end;
procedure TPedidosClienteBusinessProcessorRules.SetPAISValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePAIS] := aValue;
end;
procedure TPedidosClienteBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePAIS] := Null;
end;
function TPedidosClienteBusinessProcessorRules.GetREFERENCIA_FACTURA_PROFORMAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA];
end;
function TPedidosClienteBusinessProcessorRules.GetREFERENCIA_FACTURA_PROFORMAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA]);
end;
function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROFORMAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA];
end;
function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROFORMAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA]);
end;
procedure TPedidosClienteBusinessProcessorRules.SetREFERENCIA_FACTURA_PROFORMAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA] := aValue;
end;
procedure TPedidosClienteBusinessProcessorRules.SetREFERENCIA_FACTURA_PROFORMAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA] := Null;
end;
{ TPedidosCliente_DetallesBusinessProcessorRules } { TPedidosCliente_DetallesBusinessProcessorRules }
constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

139
Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm
View File

@ -179,10 +179,11 @@ object RptPedidosCliente: TRptPedidosCliente
'_PEDIDOS_CLIENTE.IMPORTE_IVA,'#10' V_PEDIDOS_CLIENTE.IMPORTE_TOTAL,' + '_PEDIDOS_CLIENTE.IMPORTE_IVA,'#10' V_PEDIDOS_CLIENTE.IMPORTE_TOTAL,' +
#10' V_PEDIDOS_CLIENTE.ID_FORMA_PAGO,'#10' EMPRESAS.NOMBRE AS NOMBRE_' + #10' V_PEDIDOS_CLIENTE.ID_FORMA_PAGO,'#10' EMPRESAS.NOMBRE AS NOMBRE_' +
'EMPRESA,'#10' EMPRESAS.TELEFONO_1 as TELEFONO_1_EMPRESA,'#10' EMPRESAS' + 'EMPRESA,'#10' EMPRESAS.TELEFONO_1 as TELEFONO_1_EMPRESA,'#10' EMPRESAS' +
'.FAX as FAX_EMPRESA'#10'FROM'#10' V_PEDIDOS_CLIENTE'#10' LEFT OUTER JOIN E' + '.FAX as FAX_EMPRESA,'#10' V_CLIENTES.IDIOMA_ISO,'#10' V_PEDIDOS_CLIENT' +
'MPRESAS ON (V_PEDIDOS_CLIENTE.ID_EMPRESA = EMPRESAS.ID)'#10' LEFT O' + 'E.PAIS'#10'FROM'#10' V_PEDIDOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS ON (V' +
'UTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_PEDIDOS_CLIENTE.ID_CL' + '_PEDIDOS_CLIENTE.ID_EMPRESA = EMPRESAS.ID)'#10' LEFT OUTER JOIN V_C' +
'IENTE)'#10'WHERE'#10' V_PEDIDOS_CLIENTE.ID = :ID'#10#10#10#10 'LIENTES ON (V_CLIENTES.ID = V_PEDIDOS_CLIENTE.ID_CLIENTE)'#10'WHERE'#10 +
' V_PEDIDOS_CLIENTE.ID = :ID'#10#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -316,6 +317,14 @@ object RptPedidosCliente: TRptPedidosCliente
item item
DatasetField = 'FAX_EMPRESA' DatasetField = 'FAX_EMPRESA'
TableField = 'FAX_EMPRESA' TableField = 'FAX_EMPRESA'
end
item
DatasetField = 'IDIOMA_ISO'
TableField = 'IDIOMA_ISO'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -466,6 +475,16 @@ object RptPedidosCliente: TRptPedidosCliente
Name = 'FAX_EMPRESA' Name = 'FAX_EMPRESA'
DataType = datString DataType = datString
Size = 25 Size = 25
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
ReadOnly = True ReadOnly = True
end end
@ -684,23 +703,99 @@ object RptPedidosCliente: TRptPedidosCliente
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39840.822843958330000000 ReportOptions.LastChange = 41807.715566319440000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);' ''
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String;'
'begin' 'begin'
' if Engine.FinalPass then' ' ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;'
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
''
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
'O">;'
''
' DireccionEnvio.Lines.Add(ACadena);'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
''
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
''
' if (<frxDBCabecera."PAIS"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PAIS">);'
' '
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1));'
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin'
' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
'end;'
''
'procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <ImprimirPrecio> then'
' begin '
' eImporteUnidad.Visible := True; '
' lImporteUnidad.Visible := True; '
' eImporteTotal.Visible := True; '
' lImporteTotal.Visible := True; '
' ImporteUnidad.Visible := True; '
' ImporteTotal.Visible := True; '
' end'
' else'
' begin '
' eImporteUnidad.Visible := False; '
' lImporteUnidad.Visible := False; '
' eImporteTotal.Visible := False; '
' lImporteTotal.Visible := False; '
' ImporteUnidad.Visible := False; '
' ImporteTotal.Visible := False;'
' eConcepto.Width := eConcepto.Width + ImporteTotal.Width + I' +
'mporteUnidad.Width;'
' Concepto.Width :=eConcepto.Width - 10; '
' end'
'end;'
''
'procedure Overlay1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <ShowLogotipo> then'
' begin' ' begin'
' if (<Page#> = <TotalPages#>) then'
' begin ' ' Overlay1.Visible := True; ' +
' mContinua.Visible := False;' ' '
' end ' ' end'
' else' ' else'
' begin ' ' begin '
' mContinua.Visible := True;' ' Overlay1.Visible := False; '
' end ' ' end '
' end; '
'end;' 'end;'
'' ''
'begin' 'begin'
@ -1184,6 +1279,16 @@ object RptPedidosCliente: TRptPedidosCliente
Name = 'FAX_EMPRESA' Name = 'FAX_EMPRESA'
DataType = datString DataType = datString
Size = 25 Size = 25
end
item
Name = 'IDIOMA_ISO'
DataType = datString
Size = 2
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
Params = < Params = <
item item

2
Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas
View File

@ -268,7 +268,7 @@ begin
tbl_Cabecera.Active := True; tbl_Cabecera.Active := True;
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString); AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString, tbl_Cabecera.FieldByName('IDIOMA_ISO').AsString);
if VarIsNull(AInforme) then if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarPedido, no encuentra informe ' + rptInforme)); raise Exception.Create (('Error Servidor: _GenerarPedido, no encuentra informe ' + rptInforme));

53
Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
View File

@ -246,6 +246,14 @@ object srvPedidosCliente: TsrvPedidosCliente
item item
DatasetField = 'TIPO_PEDIDO' DatasetField = 'TIPO_PEDIDO'
TableField = 'TIPO_PEDIDO' TableField = 'TIPO_PEDIDO'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end
item
DatasetField = 'REFERENCIA_FACTURA_PROFORMA'
TableField = 'REFERENCIA_FACTURA_PROFORMA'
end> end>
end> end>
Name = 'PedidosCliente' Name = 'PedidosCliente'
@ -448,6 +456,16 @@ object srvPedidosCliente: TsrvPedidosCliente
Name = 'TIPO_PEDIDO' Name = 'TIPO_PEDIDO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FACTURA_PROFORMA'
DataType = datString
Size = 255
end> end>
end end
item item
@ -1058,6 +1076,12 @@ object srvPedidosCliente: TsrvPedidosCliente
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -1072,15 +1096,16 @@ object srvPedidosCliente: TsrvPedidosCliente
'AS_ACTIVAS, OBSERVACIONES, FECHA_ALTA, FECHA_MODIFICACION,'#10' ' + 'AS_ACTIVAS, OBSERVACIONES, FECHA_ALTA, FECHA_MODIFICACION,'#10' ' +
'IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO,'#10' IMPORTE_DESCUENTO, ' + 'IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO,'#10' IMPORTE_DESCUENTO, ' +
'BASE_IMPONIBLE, IVA, IMPORTE_IVA,'#10' ID_FORMA_PAGO, REF_TIENDA' + 'BASE_IMPONIBLE, IVA, IMPORTE_IVA,'#10' ID_FORMA_PAGO, REF_TIENDA' +
'_WEB, FECHA_PREVISTA_ENVIO, ID_PRESUPUESTO, TIPO_PEDIDO)'#10' VALUE' + '_WEB, FECHA_PREVISTA_ENVIO, ID_PRESUPUESTO, TIPO_PEDIDO, PAIS)'#10' ' +
'S'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_DIRECCION, :USUARIO, :' + ' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_DIRECCION, :USUA' +
'FECHA_PEDIDO,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCI' + 'RIO, :FECHA_PEDIDO,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PR' +
'A, :PERSONA_CONTACTO,'#10' :TELEFONO, :REFERENCIA, :REFERENCIA_C' + 'OVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :REFERENCIA, :REFERE' +
'LIENTE, :IMPORTE_TOTAL, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS,' + 'NCIA_CLIENTE, :IMPORTE_TOTAL, :INCIDENCIAS,'#10' :INCIDENCIAS_AC' +
' :OBSERVACIONES, :FECHA_ALTA,'#10' :FECHA_MODIFICACION, :IMPORTE' + 'TIVAS, :OBSERVACIONES, :FECHA_ALTA,'#10' :FECHA_MODIFICACION, :I' +
'_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BAS' + 'MPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO' +
'E_IMPONIBLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_PAGO, :REF_TIEND' + ', :BASE_IMPONIBLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_PAGO, :REF' +
'A_WEB, :FECHA_PREVISTA_ENVIO, :ID_PRESUPUESTO, :TIPO_PEDIDO)'#10 '_TIENDA_WEB, :FECHA_PREVISTA_ENVIO, :ID_PRESUPUESTO, :TIPO_PEDID' +
'O, :PAIS)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1271,6 +1296,12 @@ object srvPedidosCliente: TsrvPedidosCliente
Size = 255 Size = 255
Value = '' Value = ''
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1297,8 +1328,8 @@ object srvPedidosCliente: TsrvPedidosCliente
'E_IMPONIBLE,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' ' + 'E_IMPONIBLE,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' ' +
' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_TIEND' + ' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_TIEND' +
'A_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' ID_' + 'A_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' ID_' +
'PRESUPUESTO = :ID_PRESUPUESTO,'#10' TIPO_PEDIDO = :TIPO_PEDIDO'#10' ' + 'PRESUPUESTO = :ID_PRESUPUESTO,'#10' TIPO_PEDIDO = :TIPO_PEDIDO,'#10' ' +
'WHERE'#10' (ID = :OLD_ID)'#10 ' PAIS = :PAIS'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

27
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm
View File

@ -10,7 +10,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 956 Width = 956
Caption = 'Lista de pedidos de cliente' Caption = 'Lista de pedidos de cliente'
ExplicitWidth = 700 ExplicitWidth = 956
inherited Image1: TImage inherited Image1: TImage
Left = 929 Left = 929
Picture.Data = { Picture.Data = {
@ -42,7 +42,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 956 Width = 956
ExplicitWidth = 700 ExplicitWidth = 956
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 877 ExplicitWidth = 877
object TBXItem40: TTBXItem [13] object TBXItem40: TTBXItem [13]
@ -102,7 +102,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 956 Width = 956
ExplicitWidth = 700 ExplicitWidth = 956
end end
inline frViewPedidosCliente1: TfrViewPedidosCliente [3] inline frViewPedidosCliente1: TfrViewPedidosCliente [3]
Left = 0 Left = 0
@ -119,12 +119,12 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 102 ExplicitTop = 102
ExplicitWidth = 700 ExplicitWidth = 956
ExplicitHeight = 383 ExplicitHeight = 383
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 956 Width = 956
Height = 255 Height = 255
ExplicitWidth = 700 ExplicitWidth = 956
ExplicitHeight = 255 ExplicitHeight = 255
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -155,12 +155,12 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 956 Width = 956
ExplicitWidth = 700 ExplicitWidth = 956
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 700 ExplicitWidth = 956
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 956 Width = 956
ExplicitWidth = 700 ExplicitWidth = 956
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
@ -200,10 +200,10 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 956 Width = 956
ExplicitWidth = 700 ExplicitWidth = 956
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 946 Width = 946
ExplicitWidth = 690 ExplicitWidth = 946
end end
end end
end end
@ -211,13 +211,13 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 357 Top = 357
ExplicitTop = 357 ExplicitTop = 357
ExplicitWidth = 700 ExplicitWidth = 956
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 956 Width = 956
ExplicitWidth = 700 ExplicitWidth = 956
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 946 Width = 946
ExplicitWidth = 690 ExplicitWidth = 946
end end
end end
end end
@ -309,6 +309,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
Caption = 'Generar factura proforma' Caption = 'Generar factura proforma'
ImageIndex = 23 ImageIndex = 23
OnExecute = actGenerarFacturaProformaExecute OnExecute = actGenerarFacturaProformaExecute
OnUpdate = actGenerarFacturaProformaUpdate
end end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]

10
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas
View File

@ -61,6 +61,7 @@ type
procedure actGenerarAlbaranCliUpdate(Sender: TObject); procedure actGenerarAlbaranCliUpdate(Sender: TObject);
procedure actGenerarPedidoProvUpdate(Sender: TObject); procedure actGenerarPedidoProvUpdate(Sender: TObject);
procedure actGenerarFacturaProformaExecute(Sender: TObject); procedure actGenerarFacturaProformaExecute(Sender: TObject);
procedure actGenerarFacturaProformaUpdate(Sender: TObject);
protected protected
FPedidos: IBizPedidoCliente; FPedidos: IBizPedidoCliente;
@ -224,6 +225,15 @@ begin
GenerarFacturaProforma(FPedidos.ID); GenerarFacturaProforma(FPedidos.ID);
end; end;
procedure TfEditorPedidosCliente.actGenerarFacturaProformaUpdate(
Sender: TObject);
begin
(Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1)
and (FPedidos.REFERENCIA_FACTURA_PROFORMA = '')
and ViewGrid.esSeleccionCeldaDatos;
end;
procedure TfEditorPedidosCliente.actGenerarPedidoProvExecute(Sender: TObject); procedure TfEditorPedidosCliente.actGenerarPedidoProvExecute(Sender: TObject);
begin begin
inherited; inherited;

Some files were not shown because too many files have changed in this diff Show More