Tareas #1349: Se arregla descuadre de centimos para la generación de varios recibos de una factura
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@226 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
456e4348e2
commit
a9dfac9b18
@ -570,6 +570,7 @@ CREATE TABLE CONTACTOS (
|
||||
POBLACION VARCHAR(255),
|
||||
PROVINCIA VARCHAR(255),
|
||||
CODIGO_POSTAL VARCHAR(10),
|
||||
PAIS VARCHAR(255),
|
||||
TELEFONO_1 VARCHAR(25),
|
||||
TELEFONO_2 VARCHAR(25),
|
||||
MOVIL_1 VARCHAR(25),
|
||||
|
||||
BIN
Resources/Logotipo-K-ingles.jpg
Normal file
BIN
Resources/Logotipo-K-ingles.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 38 KiB |
BIN
Resources/logotipo-cmc.jpg
Normal file
BIN
Resources/logotipo-cmc.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 102 KiB |
@ -55,10 +55,10 @@
|
||||
<DelphiCompile Include="ApplicationBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\JvJansD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Views\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
|
||||
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
|
||||
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
|
||||
|
||||
@ -97,7 +97,7 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
|
||||
Width = 78
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
Caption = 'BIC:'
|
||||
Caption = 'BIC / SWIFT:'
|
||||
end
|
||||
object eNombre: TDBEdit
|
||||
Left = 109
|
||||
|
||||
@ -10,6 +10,7 @@ uses
|
||||
type
|
||||
IProvinciasPoblacionesController = interface(IControllerBase)
|
||||
['{777EDE6C-DAB6-4D96-BA57-AE3DAF8A3F78}']
|
||||
function DarListaPaises : TStringList;
|
||||
function DarListaProvincias : TStringList;
|
||||
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
|
||||
end;
|
||||
@ -18,6 +19,7 @@ type
|
||||
protected
|
||||
FDataModule : IDataModuleProvinciasPoblaciones;
|
||||
public
|
||||
function DarListaPaises : TStringList;
|
||||
function DarListaProvincias : TStringList;
|
||||
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
|
||||
destructor Destroy; override;
|
||||
@ -37,6 +39,16 @@ begin
|
||||
FDataModule := TDataModuleProvinciasPoblaciones.Create(NIL);
|
||||
end;
|
||||
|
||||
function TProvinciasPoblacionesController.DarListaPaises: TStringList;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := FDataModule.DarListaPaises;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TProvinciasPoblacionesController.DarListaPoblaciones(
|
||||
const AID_Provincia: Integer): TStringList;
|
||||
begin
|
||||
|
||||
@ -1,7 +1,5 @@
|
||||
object DataModuleProvinciasPoblaciones: TDataModuleProvinciasPoblaciones
|
||||
inherited DataModuleProvinciasPoblaciones: TDataModuleProvinciasPoblaciones
|
||||
OldCreateOrder = False
|
||||
Height = 150
|
||||
Width = 215
|
||||
object RORemoteService: TRORemoteService
|
||||
Message = dmConexion.ROMessage
|
||||
Channel = dmConexion.ROChannel
|
||||
|
||||
@ -8,6 +8,7 @@ uses
|
||||
type
|
||||
IDataModuleProvinciasPoblaciones = interface
|
||||
['{E73DB3C4-BC57-44E8-A64B-F86AE2DCB7D6}']
|
||||
function DarListaPaises : TStringList;
|
||||
function DarListaProvincias : TStringList;
|
||||
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
|
||||
end;
|
||||
@ -15,6 +16,7 @@ type
|
||||
TDataModuleProvinciasPoblaciones = class(TDataModuleBase, IDataModuleProvinciasPoblaciones)
|
||||
RORemoteService: TRORemoteService;
|
||||
public
|
||||
function DarListaPaises : TStringList;
|
||||
function DarListaProvincias : TStringList;
|
||||
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
|
||||
end;
|
||||
@ -28,6 +30,15 @@ uses
|
||||
|
||||
{ TDataModuleProvinciasPoblaciones }
|
||||
|
||||
function TDataModuleProvinciasPoblaciones.DarListaPaises: TStringList;
|
||||
var
|
||||
ABinary : Binary;
|
||||
begin
|
||||
ABinary := (RORemoteService as IsrvProvinciasPoblaciones).DarListaPaises;
|
||||
Result := TStringList.Create;
|
||||
Result.LoadFromStream(ABinary);
|
||||
end;
|
||||
|
||||
function TDataModuleProvinciasPoblaciones.DarListaPoblaciones(
|
||||
const AID_Provincia: Integer): TStringList;
|
||||
var
|
||||
|
||||
@ -5,6 +5,80 @@ object srvProvinciasPoblaciones: TsrvProvinciasPoblaciones
|
||||
object schProvinciasPoblaciones: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
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
|
||||
IsPublic = False
|
||||
Params = <>
|
||||
|
||||
@ -26,6 +26,7 @@ type
|
||||
private
|
||||
protected
|
||||
{ IsrvProvinciasPoblaciones methods }
|
||||
function DarListaPaises: Binary;
|
||||
function DarListaProvincias: Binary;
|
||||
function DarListaPoblaciones(const ID_Provincia: Integer): Binary;
|
||||
end;
|
||||
@ -80,6 +81,42 @@ begin
|
||||
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;
|
||||
var
|
||||
ASchema : TDASchema;
|
||||
|
||||
@ -45,8 +45,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">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\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>
|
||||
@ -60,63 +58,63 @@
|
||||
<Form>DataModuleImpresiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</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">
|
||||
<Form>DataModuleRegistroCorreos</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<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">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -28,12 +28,27 @@ interface
|
||||
Function IntToLetras(Numero:LongInt):String;
|
||||
Function xxIntToLetras(Valor:LongInt):String;
|
||||
Function CifraToLetras(Cifra: Double): String;
|
||||
function RoundCurrency(const Value: Currency): Currency;
|
||||
|
||||
implementation
|
||||
|
||||
uses SysUtils, Dialogs;
|
||||
// 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;
|
||||
const
|
||||
aUnitat : array[1..15] of String = ('UNO','DOS','TRES','CUATRO','CINCO','SEIS',
|
||||
|
||||
@ -53,7 +53,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 4,3,9,0
|
||||
PRODUCTVERSION 4,3,9,0
|
||||
FILEVERSION 4,4,0,0
|
||||
PRODUCTVERSION 4,4,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
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 "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "4.3.9.0\0"
|
||||
VALUE "ProductVersion", "4.4.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
63
Source/Informes/6/en/InfAlbaranCliente.fr3
Normal file
63
Source/Informes/6/en/InfAlbaranCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
70
Source/Informes/6/en/InfFacturaCliente.fr3
Normal file
70
Source/Informes/6/en/InfFacturaCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
66
Source/Informes/6/en/InfFacturaProforma.fr3
Normal file
66
Source/Informes/6/en/InfFacturaProforma.fr3
Normal file
File diff suppressed because one or more lines are too long
51
Source/Informes/6/en/InfPedidoCliente.fr3
Normal file
51
Source/Informes/6/en/InfPedidoCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
59
Source/Informes/6/en/InfPresupuestoCliente.fr3
Normal file
59
Source/Informes/6/en/InfPresupuestoCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -423,6 +423,7 @@ begin
|
||||
AAlbaran.POBLACION := ADireccionEnvio.POBLACION;
|
||||
AAlbaran.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
|
||||
AAlbaran.PROVINCIA := ADireccionEnvio.PROVINCIA;
|
||||
AAlbaran.PAIS := ADireccionEnvio.PAIS;
|
||||
AAlbaran.TELEFONO := ADireccionEnvio.TELEFONO;
|
||||
AAlbaran.PERSONA_CONTACTO := ADireccionEnvio.PERSONA_CONTACTO;
|
||||
|
||||
@ -1200,6 +1201,7 @@ begin
|
||||
AAlbaran.DataTable.FieldByName(fld_AlbaranesClientePOBLACION).Clear;
|
||||
AAlbaran.DataTable.FieldByName(fld_AlbaranesClienteCODIGO_POSTAL).Clear;
|
||||
AAlbaran.DataTable.FieldByName(fld_AlbaranesClientePROVINCIA).Clear;
|
||||
AAlbaran.DataTable.FieldByName(fld_AlbaranesClientePAIS).Clear;
|
||||
AAlbaran.DataTable.FieldByName(fld_AlbaranesClienteTELEFONO).Clear;
|
||||
|
||||
if not bEnEdicion then
|
||||
|
||||
@ -326,6 +326,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
item
|
||||
Name = 'BLOQUEADO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosAlbaranes = '{97E74705-E58C-4C35-8BD8-4FB92B071A41}';
|
||||
RID_AlbaranesCliente = '{C7D38181-D27A-4E22-8F3C-A75AC30C5415}';
|
||||
RID_AlbaranesCliente_Detalles = '{CD08D967-9833-4D28-85E1-44C419A73C09}';
|
||||
RID_ListaAnosAlbaranes = '{03DAEDC7-C84E-4A87-A22E-9DAD97D43FCF}';
|
||||
RID_AlbaranesCliente = '{EE2C2D99-4B20-4384-BADD-AD7D67C97868}';
|
||||
RID_AlbaranesCliente_Detalles = '{67AC6DA8-13FF-41B0-B4ED-91A0414CFA2D}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
|
||||
@ -74,6 +74,7 @@ const
|
||||
fld_AlbaranesClienteNUM_COPIAS = 'NUM_COPIAS';
|
||||
fld_AlbaranesClienteNUM_CORREOS = 'NUM_CORREOS';
|
||||
fld_AlbaranesClienteBLOQUEADO = 'BLOQUEADO';
|
||||
fld_AlbaranesClientePAIS = 'PAIS';
|
||||
|
||||
{ AlbaranesCliente field indexes }
|
||||
idx_AlbaranesClienteID = 0;
|
||||
@ -125,6 +126,7 @@ const
|
||||
idx_AlbaranesClienteNUM_COPIAS = 46;
|
||||
idx_AlbaranesClienteNUM_CORREOS = 47;
|
||||
idx_AlbaranesClienteBLOQUEADO = 48;
|
||||
idx_AlbaranesClientePAIS = 49;
|
||||
|
||||
{ AlbaranesCliente_Detalles fields }
|
||||
fld_AlbaranesCliente_DetallesID = 'ID';
|
||||
@ -165,7 +167,7 @@ const
|
||||
type
|
||||
{ IListaAnosAlbaranes }
|
||||
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
|
||||
['{7BF69765-6C17-4529-8B77-AE37159DABE2}']
|
||||
['{8E4D7304-1E61-4D01-B63C-88061AE62045}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -200,7 +202,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente }
|
||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{BD3E70CF-6C9E-4DEF-B2C5-111B4354674D}']
|
||||
['{BAF2587E-A293-4C76-9392-32A6DC8D09E9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -396,6 +398,10 @@ type
|
||||
procedure SetBLOQUEADOValue(const aValue: SmallInt);
|
||||
function GetBLOQUEADOIsNull: Boolean;
|
||||
procedure SetBLOQUEADOIsNull(const aValue: Boolean);
|
||||
function GetPAISValue: String;
|
||||
procedure SetPAISValue(const aValue: String);
|
||||
function GetPAISIsNull: Boolean;
|
||||
procedure SetPAISIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -497,6 +503,8 @@ type
|
||||
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
|
||||
property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
|
||||
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
|
||||
property PAIS: String read GetPAISValue write SetPAISValue;
|
||||
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
|
||||
end;
|
||||
|
||||
{ TAlbaranesClienteDataTableRules }
|
||||
@ -702,6 +710,10 @@ type
|
||||
procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
|
||||
function GetBLOQUEADOIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -802,6 +814,8 @@ type
|
||||
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
|
||||
property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
|
||||
property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
|
||||
property PAIS: String read GetPAISValue write SetPAISValue;
|
||||
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -811,7 +825,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles }
|
||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{C04F5C39-EDA5-480C-8A9D-AE3C282D097D}']
|
||||
['{FD39F0DD-9D93-41C2-A10E-AE78DDB72EA0}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2113,6 +2127,27 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesClienteBLOQUEADO].AsVariant := Null;
|
||||
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 }
|
||||
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosAlbaranesDelta = '{9E9C7882-2EDF-423A-8B9F-22368EA2C950}';
|
||||
RID_AlbaranesClienteDelta = '{C0D2EB08-F338-466A-BF04-1A86B1F4DB68}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{A979524D-4C7B-4853-9AE2-EF0FEB0F920B}';
|
||||
RID_ListaAnosAlbaranesDelta = '{716CDFC8-9A78-48CE-A9EA-9D18F891CB8E}';
|
||||
RID_AlbaranesClienteDelta = '{C2C37F78-792A-4EB7-A9DA-2C2095DFDB6F}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{F4ADE8A0-DE1F-41FF-96C0-F9E986830529}';
|
||||
|
||||
type
|
||||
{ IListaAnosAlbaranesDelta }
|
||||
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
|
||||
['{9E9C7882-2EDF-423A-8B9F-22368EA2C950}']
|
||||
['{716CDFC8-9A78-48CE-A9EA-9D18F891CB8E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -50,7 +50,7 @@ type
|
||||
|
||||
{ IAlbaranesClienteDelta }
|
||||
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
||||
['{C0D2EB08-F338-466A-BF04-1A86B1F4DB68}']
|
||||
['{C2C37F78-792A-4EB7-A9DA-2C2095DFDB6F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -101,6 +101,7 @@ type
|
||||
function GetOldNUM_COPIASValue : SmallInt;
|
||||
function GetOldNUM_CORREOSValue : SmallInt;
|
||||
function GetOldBLOQUEADOValue : SmallInt;
|
||||
function GetOldPAISValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -152,6 +153,7 @@ type
|
||||
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
|
||||
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
|
||||
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
|
||||
property OldPAIS : String read GetOldPAISValue;
|
||||
end;
|
||||
|
||||
{ TAlbaranesClienteBusinessProcessorRules }
|
||||
@ -455,6 +457,12 @@ type
|
||||
function GetOldBLOQUEADOIsNull: Boolean; virtual;
|
||||
procedure SetBLOQUEADOValue(const aValue: SmallInt); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -653,6 +661,10 @@ type
|
||||
property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
|
||||
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -662,7 +674,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_DetallesDelta }
|
||||
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
||||
['{A979524D-4C7B-4853-9AE2-EF0FEB0F920B}']
|
||||
['{F4ADE8A0-DE1F-41FF-96C0-F9E986830529}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -2466,6 +2478,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteBLOQUEADO] := Null;
|
||||
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 }
|
||||
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -746,11 +746,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
'SAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TEL' +
|
||||
'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' ' +
|
||||
'EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARANES_C' +
|
||||
'LIENTE'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARA' +
|
||||
'NES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.' +
|
||||
'ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIENTE.I' +
|
||||
'D = :ID'#10
|
||||
'EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA,'#10' V_CLIENTES.IDIOMA_I' +
|
||||
'SO,'#10' V_ALBARANES_CLIENTE.PAIS'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' LE' +
|
||||
'FT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_ALBARANES_CLIENTE' +
|
||||
'.ID_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBA' +
|
||||
'RANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -880,6 +880,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'PAGINA_WEB_EMPRESA'
|
||||
TableField = 'PAGINA_WEB_EMPRESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IDIOMA_ISO'
|
||||
TableField = 'IDIOMA_ISO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PAIS'
|
||||
TableField = 'PAIS'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -1034,6 +1042,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Name = 'PAGINA_WEB_EMPRESA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IDIOMA_ISO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -2635,15 +2653,169 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
object frxReport: TfrxReport
|
||||
Version = '4.7.71'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 41478.551891354170000000
|
||||
ReportOptions.LastChange = 41478.553933067130000000
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 41807.752059861110000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
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'
|
||||
''
|
||||
@ -2651,6 +2823,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
OnGetValue = frxReportGetValue
|
||||
OnStartReport = 'frxReportOnStartReport'
|
||||
Left = 145
|
||||
Top = 16
|
||||
end
|
||||
@ -3032,6 +3205,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Name = 'PAGINA_WEB_EMPRESA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IDIOMA_ISO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
|
||||
@ -246,7 +246,7 @@ begin
|
||||
tbl_Cabecera.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
|
||||
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptInforme));
|
||||
|
||||
|
||||
@ -243,6 +243,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'BLOQUEADO'
|
||||
TableField = 'BLOQUEADO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PAIS'
|
||||
TableField = 'PAIS'
|
||||
end>
|
||||
end>
|
||||
Name = 'AlbaranesCliente'
|
||||
@ -510,6 +514,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
Name = 'BLOQUEADO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -870,6 +879,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Name = 'ID_ALBARAN_DEV'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -885,16 +900,16 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 +
|
||||
' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' +
|
||||
'ACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' +
|
||||
'_ENVIO, '#10' FECHA_RECEPCION, ID_ALBARAN_DEV)'#10' VALUES'#10' (:ID' +
|
||||
', :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10 +
|
||||
' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, ' +
|
||||
':ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINC' +
|
||||
'IA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IMPORTE_P' +
|
||||
'ORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :IVA' +
|
||||
', :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCIDENCIA' +
|
||||
'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP,'#10' ' +
|
||||
' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVI' +
|
||||
'O,'#10' :FECHA_RECEPCION, :ID_ALBARAN_DEV)'#10#10
|
||||
'_ENVIO, '#10' FECHA_RECEPCION, ID_ALBARAN_DEV, PAIS)'#10' VALUES'#10' ' +
|
||||
' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERE' +
|
||||
'NCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FAC' +
|
||||
'TURA, :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :P' +
|
||||
'ROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IMP' +
|
||||
'ORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE' +
|
||||
', :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCI' +
|
||||
'DENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, CURRENT_TIMEST' +
|
||||
'AMP,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECH' +
|
||||
'A_ENVIO,'#10' :FECHA_RECEPCION, :ID_ALBARAN_DEV, :PAIS)'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1094,6 +1109,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1122,8 +1143,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
'STAMP,'#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PA' +
|
||||
'GO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECH' +
|
||||
'A_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,' +
|
||||
#10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV'#10' WHERE'#10' (ID = :OLD_ID)' +
|
||||
#10
|
||||
#10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV,'#10' PAIS = :PAIS'#10' WHERE'#10 +
|
||||
' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -198,9 +198,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
ExplicitHeight = 378
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 751
|
||||
Height = 51
|
||||
Height = 78
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 51
|
||||
ExplicitHeight = 78
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
@ -223,83 +223,84 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
ExplicitLeft = 399
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
inherited ToolButton13: TToolButton [6]
|
||||
Left = 544
|
||||
Top = 0
|
||||
Width = 186
|
||||
Wrap = True
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 186
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 730
|
||||
inherited ToolButton6: TToolButton [7]
|
||||
Left = 552
|
||||
Top = 0
|
||||
ExplicitLeft = 730
|
||||
ExplicitLeft = 552
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
inherited ToolButton7: TToolButton [8]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Top = 22
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton8: TToolButton [9]
|
||||
Left = 0
|
||||
Enabled = True
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton12: TToolButton [10]
|
||||
Left = 0
|
||||
Top = 66
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 66
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
inherited UpDown1: TUpDown [11]
|
||||
Left = 0
|
||||
Top = 27
|
||||
Top = 93
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 27
|
||||
ExplicitTop = 93
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 66
|
||||
Top = 27
|
||||
ExplicitLeft = 66
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 133
|
||||
Top = 27
|
||||
ExplicitLeft = 133
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 216
|
||||
Top = 27
|
||||
ExplicitLeft = 216
|
||||
ExplicitTop = 27
|
||||
inherited FontSize: TEdit [12]
|
||||
Left = 17
|
||||
Top = 93
|
||||
Width = 186
|
||||
ExplicitLeft = 17
|
||||
ExplicitTop = 93
|
||||
ExplicitWidth = 186
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 224
|
||||
Top = 27
|
||||
ExplicitLeft = 224
|
||||
ExplicitTop = 27
|
||||
Left = 203
|
||||
Top = 93
|
||||
ExplicitLeft = 203
|
||||
ExplicitTop = 93
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 369
|
||||
Top = 27
|
||||
ExplicitLeft = 369
|
||||
ExplicitTop = 27
|
||||
Left = 348
|
||||
Top = 93
|
||||
ExplicitLeft = 348
|
||||
ExplicitTop = 93
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 494
|
||||
Top = 27
|
||||
ExplicitLeft = 494
|
||||
ExplicitTop = 27
|
||||
Left = 473
|
||||
Top = 93
|
||||
ExplicitLeft = 473
|
||||
ExplicitTop = 93
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 77
|
||||
Top = 104
|
||||
Width = 751
|
||||
Height = 301
|
||||
ExplicitTop = 77
|
||||
Height = 274
|
||||
ExplicitTop = 104
|
||||
ExplicitWidth = 751
|
||||
ExplicitHeight = 301
|
||||
ExplicitHeight = 274
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 51
|
||||
Top = 78
|
||||
Width = 751
|
||||
ExplicitTop = 51
|
||||
ExplicitTop = 78
|
||||
ExplicitWidth = 751
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 566
|
||||
@ -392,52 +393,52 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
ExplicitHeight = 78
|
||||
inherited Bevel3: TBevel
|
||||
Left = 428
|
||||
Top = -129
|
||||
Top = 11
|
||||
Width = 7
|
||||
Height = 54
|
||||
ExplicitLeft = 428
|
||||
ExplicitTop = -129
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 7
|
||||
ExplicitHeight = 54
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 544
|
||||
Top = -87
|
||||
Top = 53
|
||||
Width = 192
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = -87
|
||||
ExplicitTop = 53
|
||||
ExplicitWidth = 192
|
||||
end
|
||||
inherited Bevel1: TBevel
|
||||
Left = 544
|
||||
Top = 29
|
||||
Top = 169
|
||||
Width = 73
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = 29
|
||||
ExplicitTop = 169
|
||||
ExplicitWidth = 73
|
||||
end
|
||||
inherited Bevel2: TBevel
|
||||
Left = 120
|
||||
Top = 31
|
||||
Top = 171
|
||||
Width = 368
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = 31
|
||||
ExplicitTop = 171
|
||||
ExplicitWidth = 368
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Left = 191
|
||||
Top = -102
|
||||
Top = 38
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 191
|
||||
ExplicitTop = -102
|
||||
ExplicitTop = 38
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 615
|
||||
Top = -52
|
||||
Top = 88
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
@ -445,37 +446,37 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 615
|
||||
ExplicitTop = -52
|
||||
ExplicitTop = 88
|
||||
ExplicitWidth = 182
|
||||
Width = 182
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 545
|
||||
Top = 2
|
||||
Top = 142
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 545
|
||||
ExplicitTop = 2
|
||||
ExplicitTop = 142
|
||||
ExplicitWidth = 252
|
||||
Width = 252
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Left = 120
|
||||
Top = -102
|
||||
Top = 38
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = -102
|
||||
ExplicitTop = 38
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 544
|
||||
Top = -52
|
||||
Top = 88
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
@ -483,24 +484,24 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = -52
|
||||
ExplicitTop = 88
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 544
|
||||
Top = -129
|
||||
Top = 11
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = -129
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 544
|
||||
Top = -25
|
||||
Top = 115
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
@ -508,11 +509,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = -25
|
||||
ExplicitTop = 115
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 615
|
||||
Top = -25
|
||||
Top = 115
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
@ -520,13 +521,13 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 615
|
||||
ExplicitTop = -25
|
||||
ExplicitTop = 115
|
||||
ExplicitWidth = 182
|
||||
Width = 182
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Left = 120
|
||||
Top = -129
|
||||
Top = 11
|
||||
Enabled = False
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
@ -534,11 +535,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = -129
|
||||
ExplicitTop = 11
|
||||
end
|
||||
inherited ePorte: TcxDBCurrencyEdit
|
||||
Left = 120
|
||||
Top = -75
|
||||
Top = 65
|
||||
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
@ -546,28 +547,28 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = -75
|
||||
ExplicitTop = 65
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Left = 120
|
||||
Top = -48
|
||||
Top = 92
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = -48
|
||||
ExplicitTop = 92
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 280
|
||||
Top = -48
|
||||
Top = 92
|
||||
ExplicitLeft = 280
|
||||
ExplicitTop = -48
|
||||
ExplicitTop = 92
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Left = 120
|
||||
Top = -21
|
||||
Top = 119
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -575,43 +576,43 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = -21
|
||||
ExplicitTop = 119
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited edtRetencion: TcxDBSpinEdit
|
||||
Left = 544
|
||||
Top = 49
|
||||
Top = 189
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = 49
|
||||
ExplicitTop = 189
|
||||
end
|
||||
inherited edtImporteRetencion: TcxDBCurrencyEdit
|
||||
Left = 615
|
||||
Top = 49
|
||||
Top = 189
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 615
|
||||
ExplicitTop = 49
|
||||
ExplicitTop = 189
|
||||
ExplicitWidth = 180
|
||||
Width = 180
|
||||
end
|
||||
inherited edtFechaRetencion: TcxDBDateEdit
|
||||
Left = 120
|
||||
Top = 51
|
||||
Top = 191
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 120
|
||||
ExplicitTop = 51
|
||||
ExplicitTop = 191
|
||||
ExplicitWidth = 280
|
||||
Width = 280
|
||||
end
|
||||
|
||||
@ -20,7 +20,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
591)
|
||||
object Label1: TLabel
|
||||
Left = 22
|
||||
Top = 450
|
||||
Top = 477
|
||||
Width = 299
|
||||
Height = 26
|
||||
Caption =
|
||||
@ -76,7 +76,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 21
|
||||
TabOrder = 22
|
||||
Height = 69
|
||||
Width = 403
|
||||
end
|
||||
@ -158,7 +158,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object ePersonaContacto: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 305
|
||||
Top = 332
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -177,12 +177,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 12
|
||||
TabOrder = 13
|
||||
Width = 336
|
||||
end
|
||||
object eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 332
|
||||
Top = 359
|
||||
DataBinding.DataField = 'TELEFONO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -200,18 +200,18 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 13
|
||||
TabOrder = 14
|
||||
Width = 336
|
||||
end
|
||||
object bElegirDireccion: TBitBtn
|
||||
Left = 278
|
||||
Top = 359
|
||||
Top = 386
|
||||
Width = 172
|
||||
Height = 23
|
||||
Action = actElegirDireccion
|
||||
Caption = 'Elegir una direcci'#243'n de env'#237'o...'
|
||||
Enabled = False
|
||||
TabOrder = 14
|
||||
TabOrder = 15
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 318
|
||||
@ -317,21 +317,21 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 20
|
||||
TabOrder = 21
|
||||
Width = 265
|
||||
end
|
||||
object cbConAlmacen: TCheckBox
|
||||
Left = 32
|
||||
Top = 418
|
||||
Top = 445
|
||||
Width = 179
|
||||
Height = 21
|
||||
Caption = 'Asociar este albar'#225'n al almac'#233'n:'
|
||||
TabOrder = 15
|
||||
TabOrder = 16
|
||||
OnClick = cbConAlmacenClick
|
||||
end
|
||||
object cbAlmacen: TcxDBLookupComboBox
|
||||
Left = 217
|
||||
Top = 418
|
||||
Top = 445
|
||||
DataBinding.DataField = 'ID_ALMACEN'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
@ -360,7 +360,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 16
|
||||
TabOrder = 17
|
||||
Width = 235
|
||||
end
|
||||
object eRefFacturaCli: TcxDBTextEdit
|
||||
@ -421,7 +421,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 18
|
||||
TabOrder = 19
|
||||
Width = 265
|
||||
end
|
||||
object eRefCliente: TcxDBTextEdit
|
||||
@ -479,7 +479,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 19
|
||||
TabOrder = 20
|
||||
Width = 265
|
||||
end
|
||||
object cbProvincia: TcxDBComboBox
|
||||
@ -551,7 +551,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 17
|
||||
TabOrder = 18
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 480
|
||||
ExplicitTop = 28
|
||||
@ -647,6 +647,35 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Top = 32
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -773,6 +802,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Control = cbPoblacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item17: TdxLayoutItem
|
||||
Caption = 'Pa'#237's:'
|
||||
Control = cbPais
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item12: TdxLayoutItem
|
||||
Caption = 'Pers. de contacto:'
|
||||
Control = ePersonaContacto
|
||||
|
||||
@ -103,6 +103,8 @@ type
|
||||
dxLayoutControl1Group9: TdxLayoutGroup;
|
||||
frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
dxLayoutControl1Item17: TdxLayoutItem;
|
||||
cbPais: TcxDBComboBox;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
@ -122,6 +124,7 @@ type
|
||||
procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
|
||||
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||
procedure cbPaisPropertiesInitPopup(Sender: TObject);
|
||||
|
||||
protected
|
||||
FController : IAlbaranesClienteController;
|
||||
@ -133,12 +136,14 @@ type
|
||||
FViewClienteAlbaran : IViewDatosYSeleccionClienteAlbaran;
|
||||
FFormasPago : IBizFormaPago;
|
||||
FFormasPagoController : IFormasPagoController;
|
||||
FPaises : TStringList;
|
||||
FProvincias : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FPoblaciones : TStringList;
|
||||
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
procedure CargarPaises;
|
||||
|
||||
function GetAlbaran: IBizAlbaranCliente;
|
||||
procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual;
|
||||
@ -225,6 +230,30 @@ begin
|
||||
FFormasPagoController.VerTodos(FFormasPago);
|
||||
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;
|
||||
var
|
||||
i : integer;
|
||||
@ -297,6 +326,17 @@ begin
|
||||
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);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -1,18 +1,19 @@
|
||||
inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCliente
|
||||
Width = 337
|
||||
Height = 126
|
||||
Height = 163
|
||||
ExplicitWidth = 337
|
||||
ExplicitHeight = 126
|
||||
ExplicitHeight = 163
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 337
|
||||
Height = 126
|
||||
Height = 163
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitHeight = 126
|
||||
object eCalle: TcxDBTextEdit
|
||||
Left = 64
|
||||
Top = 10
|
||||
@ -53,7 +54,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
|
||||
end
|
||||
object eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 205
|
||||
Top = 91
|
||||
Top = 118
|
||||
DataBinding.DataField = 'TELEFONO'
|
||||
DataBinding.DataSource = dsAlbaran
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -67,12 +68,12 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
Width = 122
|
||||
end
|
||||
object ePersonaContacto: TcxDBTextEdit
|
||||
Left = 64
|
||||
Top = 91
|
||||
Top = 118
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
DataBinding.DataSource = dsAlbaran
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -87,7 +88,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
Width = 84
|
||||
end
|
||||
object cbProvincia: TcxDBComboBox
|
||||
@ -140,6 +141,34 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
|
||||
TabOrder = 3
|
||||
Width = 263
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -182,6 +211,11 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
|
||||
Control = cbPoblacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item7: TdxLayoutItem
|
||||
Caption = 'Pa'#237's:'
|
||||
Control = cbPais
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
|
||||
@ -38,17 +38,22 @@ type
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
cbPoblacion: TcxDBComboBox;
|
||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
cbPais: TcxDBComboBox;
|
||||
procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||
procedure cbPaisPropertiesInitPopup(Sender: TObject);
|
||||
protected
|
||||
// FAlmacenesController : IAlmacenesController;
|
||||
// FAlmacenes: IBizAlmacen;
|
||||
FAlbaran : IBizAlbaranCliente;
|
||||
FController : IAlbaranesClienteController;
|
||||
FPaises : TStringList;
|
||||
FProvincias : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FPoblaciones : TStringList;
|
||||
procedure CargarPaises;
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
function GetAlbaranCliente: IBizAlbaranCliente;
|
||||
@ -69,6 +74,30 @@ uses
|
||||
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;
|
||||
var
|
||||
i : integer;
|
||||
@ -140,6 +169,18 @@ begin
|
||||
end;}
|
||||
end;
|
||||
|
||||
procedure TfrViewDireccionEntregaAlbaranCliente.cbPaisPropertiesInitPopup(
|
||||
Sender: TObject);
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if not Assigned(FPaises) then
|
||||
CargarPaises;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDireccionEntregaAlbaranCliente.cbPoblacionPropertiesInitPopup(
|
||||
Sender: TObject);
|
||||
begin
|
||||
|
||||
@ -6,13 +6,14 @@ interface
|
||||
uses
|
||||
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
|
||||
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
|
||||
uControllerBase, uBizContactosPersonal;
|
||||
uControllerBase, uBizContactosPersonal, uBizIdiomas;
|
||||
|
||||
type
|
||||
IContactosController = interface(IControllerBase)
|
||||
['{43F9A4ED-6563-4F95-9A56-330CF9C66731}']
|
||||
function Buscar(const ID: Integer): IBizContacto;
|
||||
function BuscarTodos: IBizContacto;
|
||||
function BuscarIdiomas: IBizIdiomas;
|
||||
procedure Ver(AContacto : IBizContacto);
|
||||
procedure VerTodos(AContactos: IBizContacto);
|
||||
function Nuevo : IBizContacto;
|
||||
@ -56,6 +57,7 @@ type
|
||||
// Se implementa en los controladores hijos
|
||||
function Buscar(const ID: Integer): IBizContacto; virtual; abstract;
|
||||
function BuscarTodos: IBizContacto; virtual; abstract;
|
||||
function BuscarIdiomas: IBizIdiomas;
|
||||
function Nuevo : IBizContacto; virtual; abstract;
|
||||
procedure Ver(AContacto : IBizContacto); virtual; abstract;
|
||||
procedure VerTodos(AContactos: IBizContacto); virtual; abstract;
|
||||
@ -105,6 +107,11 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TContactosController.BuscarIdiomas: IBizIdiomas;
|
||||
begin
|
||||
Result := (FDataModule as IDataModuleContactos).GetIdiomas;
|
||||
end;
|
||||
|
||||
constructor TContactosController.Create;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -79,6 +79,7 @@ begin
|
||||
POBLACION := AContacto.POBLACION;
|
||||
PROVINCIA := AContacto.PROVINCIA;
|
||||
CODIGO_POSTAL := AContacto.CODIGO_POSTAL;
|
||||
PAIS := AContacto.PAIS;
|
||||
TELEFONO := AContacto.TELEFONO_1;
|
||||
FAX := AContacto.FAX;
|
||||
MOVIL := AContacto.MOVIL_1;
|
||||
|
||||
@ -86,6 +86,21 @@ inherited DataModuleAgentes: TDataModuleAgentes
|
||||
DisplayLabel = 'C'#243'digo postal'
|
||||
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
|
||||
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
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
|
||||
@ -32,7 +32,7 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Left = 184
|
||||
Top = 288
|
||||
end
|
||||
object tbl_Clientes: TDAMemDataTable
|
||||
object tbl_Clientes: TDAMemDataTable [13]
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -98,6 +98,21 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
DisplayLabel = 'C'#243'digo postal'
|
||||
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
|
||||
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
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
@ -164,10 +179,14 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Clientes_FECHA_ALTA'
|
||||
DictionaryEntry = 'Clientes_FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Clientes_FECHA_MODIFICACION'
|
||||
DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
@ -191,6 +210,7 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Clientes_ID_AGENTE'
|
||||
end
|
||||
item
|
||||
Name = 'GRUPO_CLIENTE'
|
||||
@ -209,14 +229,20 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_1'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_1'
|
||||
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_1'
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_2'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_2'
|
||||
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_2'
|
||||
end
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'Clientes_VENCIMIENTO_FACTURAS_3'
|
||||
DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS_3'
|
||||
end
|
||||
item
|
||||
Name = 'BLOQUEADO'
|
||||
@ -228,15 +254,21 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Clientes_AGENTE'
|
||||
DictionaryEntry = 'Clientes_AGENTE'
|
||||
end
|
||||
item
|
||||
Name = 'RAPEL'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'Clientes_RAPEL'
|
||||
DictionaryEntry = 'Clientes_RAPEL'
|
||||
end
|
||||
item
|
||||
Name = 'EMAIL_ADMINISTRACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Clientes_EMAIL_ADMINISTRACION'
|
||||
DictionaryEntry = 'Clientes_EMAIL_ADMINISTRACION'
|
||||
end
|
||||
item
|
||||
Name = 'REGIMEN_IVA'
|
||||
@ -277,10 +309,14 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Name = 'CODIGO_ASIGNADO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Clientes_CODIGO_ASIGNADO'
|
||||
DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Clientes_DESCUENTO'
|
||||
DictionaryEntry = 'Clientes_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'FELICITACION'
|
||||
@ -292,14 +328,19 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Name = 'TIPO_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Clientes_TIPO_CLIENTE'
|
||||
DictionaryEntry = 'Clientes_TIPO_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'SEPA'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'Clientes_SEPA'
|
||||
DictionaryEntry = 'Clientes_SEPA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CENTRAL'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Clientes_ID_CENTRAL'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
@ -310,13 +351,13 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Left = 296
|
||||
Top = 168
|
||||
end
|
||||
object ds_Clientes: TDADataSource
|
||||
object ds_Clientes: TDADataSource [14]
|
||||
DataSet = tbl_Clientes.Dataset
|
||||
DataTable = tbl_Clientes
|
||||
Left = 296
|
||||
Top = 232
|
||||
end
|
||||
object tbl_ClientesDescuentos: TDAMemDataTable
|
||||
object tbl_ClientesDescuentos: TDAMemDataTable [15]
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -365,13 +406,13 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Left = 448
|
||||
Top = 168
|
||||
end
|
||||
object ds_ClientesDescuentos: TDADataSource
|
||||
object ds_ClientesDescuentos: TDADataSource [16]
|
||||
DataSet = tbl_ClientesDescuentos.Dataset
|
||||
DataTable = tbl_ClientesDescuentos
|
||||
Left = 448
|
||||
Top = 224
|
||||
end
|
||||
object tbl_GruposCliente: TDAMemDataTable
|
||||
object tbl_GruposCliente: TDAMemDataTable [17]
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -398,13 +439,13 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Left = 552
|
||||
Top = 168
|
||||
end
|
||||
object ds_GruposCliente: TDADataSource
|
||||
object ds_GruposCliente: TDADataSource [18]
|
||||
DataSet = tbl_GruposCliente.Dataset
|
||||
DataTable = tbl_GruposCliente
|
||||
Left = 552
|
||||
Top = 224
|
||||
end
|
||||
object tbl_ClientesDescuentosArticulos: TDAMemDataTable
|
||||
object tbl_ClientesDescuentosArticulos: TDAMemDataTable [19]
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -479,13 +520,13 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Left = 448
|
||||
Top = 280
|
||||
end
|
||||
object ds_ClientesDescuentosArticulos: TDADataSource
|
||||
object ds_ClientesDescuentosArticulos: TDADataSource [20]
|
||||
DataSet = tbl_ClientesDescuentosArticulos.Dataset
|
||||
DataTable = tbl_ClientesDescuentosArticulos
|
||||
Left = 448
|
||||
Top = 336
|
||||
end
|
||||
object tbl_TiposCliente: TDAMemDataTable
|
||||
object tbl_TiposCliente: TDAMemDataTable [21]
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -511,13 +552,13 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Left = 560
|
||||
Top = 80
|
||||
end
|
||||
object ds_TiposCliente: TDADataSource
|
||||
object ds_TiposCliente: TDADataSource [22]
|
||||
DataSet = tbl_TiposCliente.Dataset
|
||||
DataTable = tbl_TiposCliente
|
||||
Left = 560
|
||||
Top = 32
|
||||
end
|
||||
object tbl_ClientesSucursales: TDAMemDataTable
|
||||
object tbl_ClientesSucursales: TDAMemDataTable [23]
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
@ -822,7 +863,7 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
Left = 296
|
||||
Top = 288
|
||||
end
|
||||
object dsClientesSucursales: TDADataSource
|
||||
object dsClientesSucursales: TDADataSource [24]
|
||||
DataSet = tbl_ClientesSucursales.Dataset
|
||||
DataTable = tbl_ClientesSucursales
|
||||
Left = 296
|
||||
|
||||
@ -88,6 +88,21 @@ inherited DataModuleContactos: TDataModuleContactos
|
||||
DisplayLabel = 'C'#243'digo postal'
|
||||
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
|
||||
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
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
@ -302,6 +317,11 @@ inherited DataModuleContactos: TDataModuleContactos
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
@ -534,4 +554,39 @@ inherited DataModuleContactos: TDataModuleContactos
|
||||
Left = 352
|
||||
Top = 144
|
||||
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
|
||||
|
||||
@ -7,12 +7,12 @@ uses
|
||||
uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel,
|
||||
uRORemoteService, uROClient, uROBinMessage,
|
||||
uBizContactos, uBizContactosDatosBancarios,
|
||||
uBizContactos, uBizContactosDatosBancarios,
|
||||
uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport,
|
||||
uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
|
||||
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
|
||||
uDAMemDataTable, uDataModuleBase, uBizContactosPersonal,
|
||||
uIntegerListUtils;
|
||||
uIntegerListUtils, uBizIdiomas;
|
||||
|
||||
type
|
||||
TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport)
|
||||
@ -29,6 +29,8 @@ type
|
||||
ds_PersonalContacto: TDADataSource;
|
||||
tbl_ListaAnosObjetivosAlb: TDAMemDataTable;
|
||||
ds_ListaAnosObjetivosAlb: TDADataSource;
|
||||
tbl_Idiomas: TDAMemDataTable;
|
||||
ds_Idiomas: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
public
|
||||
@ -36,7 +38,8 @@ type
|
||||
function _GetDirecciones: IBizDireccionesContacto;
|
||||
function _GetItems (IDCategoria : Integer): IBizContacto; virtual;
|
||||
function _GetPersonal: IBizContactoPersonal;
|
||||
function NewDireccion : IBizDireccionesContacto;
|
||||
function GetIdiomas : IBizIdiomas;
|
||||
function NewDireccion : IBizDireccionesContacto;
|
||||
|
||||
// Report
|
||||
function GetReport(const ListaID: TIntegerList): Binary;
|
||||
@ -63,6 +66,20 @@ begin
|
||||
//
|
||||
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;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
|
||||
@ -1,164 +1,6 @@
|
||||
inherited DataModuleEmpleados: TDataModuleEmpleados
|
||||
Height = 302
|
||||
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
|
||||
DataSet = tbl_Contactos.Dataset
|
||||
end
|
||||
@ -171,6 +13,9 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
|
||||
inherited ds_PersonalContacto: TDADataSource
|
||||
DataSet = tbl_PersonalContacto.Dataset
|
||||
end
|
||||
inherited ds_ListaAnosObjetivosAlb: TDADataSource
|
||||
DataSet = tbl_ListaAnosObjetivosAlb.Dataset
|
||||
end
|
||||
object tbl_Empleados: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
@ -237,6 +82,21 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
|
||||
DisplayLabel = 'C'#243'digo postal'
|
||||
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
|
||||
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
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
@ -400,8 +260,6 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Contactos
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'Empleados'
|
||||
IndexDefs = <>
|
||||
Left = 296
|
||||
@ -435,8 +293,6 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Contactos
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'GruposEmpleado'
|
||||
IndexDefs = <>
|
||||
Left = 448
|
||||
|
||||
@ -19,6 +19,9 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
Left = 408
|
||||
Top = 240
|
||||
end
|
||||
inherited ds_ListaAnosObjetivosAlb: TDADataSource
|
||||
DataSet = tbl_ListaAnosObjetivosAlb.Dataset
|
||||
end
|
||||
object tbl_GruposProveedor: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
@ -118,6 +121,21 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
DisplayLabel = 'C'#243'digo postal'
|
||||
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
|
||||
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
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
@ -296,11 +314,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -60,6 +60,7 @@ contains
|
||||
uBizClientesDescuentos in 'uBizClientesDescuentos.pas',
|
||||
uBizAgentesObjetivosFacturas in 'uBizAgentesObjetivosFacturas.pas',
|
||||
uBizAgentesObjetivosAlbaranes in 'uBizAgentesObjetivosAlbaranes.pas',
|
||||
uBizTiposCliente in 'uBizTiposCliente.pas';
|
||||
uBizTiposCliente in 'uBizTiposCliente.pas',
|
||||
uBizIdiomas in 'uBizIdiomas.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -50,17 +50,10 @@
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\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="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleAgentes.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleClientes.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleContactos.pas" />
|
||||
@ -68,6 +61,11 @@
|
||||
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.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="schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="uBizAgentesComisiones.pas" />
|
||||
@ -82,7 +80,10 @@
|
||||
<DCCReference Include="uBizGruposCliente.pas" />
|
||||
<DCCReference Include="uBizGruposEmpleado.pas" />
|
||||
<DCCReference Include="uBizGruposProveedor.pas" />
|
||||
<DCCReference Include="uBizIdiomas.pas" />
|
||||
<DCCReference Include="uBizTiposCliente.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
Binary file not shown.
@ -5,7 +5,7 @@ interface
|
||||
uses
|
||||
SysUtils, Classes,
|
||||
uBizContactos, uBizContactosDatosBancarios, uBizDireccionesContacto,
|
||||
uBizContactosPersonal;
|
||||
uBizContactosPersonal, uBizIdiomas;
|
||||
|
||||
type
|
||||
IDataModuleContactos = interface
|
||||
@ -15,6 +15,7 @@ type
|
||||
function _GetDirecciones: IBizDireccionesContacto;
|
||||
function _GetPersonal: IBizContactoPersonal;
|
||||
function NewDireccion : IBizDireccionesContacto;
|
||||
function GetIdiomas : IBizIdiomas;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -640,6 +640,7 @@ end;
|
||||
procedure TBizContacto.IniciarValoresContactoNuevo;
|
||||
begin
|
||||
USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
||||
IDIOMA_ISO := 'es';
|
||||
end;
|
||||
|
||||
procedure TBizContacto.OnNewRecord(Sender: TDADataTable);
|
||||
|
||||
@ -23,7 +23,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
uDataModuleServer, uDAClasses,
|
||||
uDataModuleServer, uDAClasses,
|
||||
schContactosClient_Intf, uBusinessUtils;
|
||||
|
||||
const
|
||||
|
||||
37
Source/Modulos/Contactos/Model/uBizIdiomas.pas
Normal file
37
Source/Modulos/Contactos/Model/uBizIdiomas.pas
Normal 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.
|
||||
|
||||
@ -95,7 +95,6 @@ begin
|
||||
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_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
|
||||
ParamByName('PAIS').Value := aChange.NewValueByName[fld_ProveedoresPAIS];
|
||||
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
|
||||
|
||||
Execute;
|
||||
@ -138,7 +137,6 @@ begin
|
||||
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_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
|
||||
ParamByName('PAIS').Value := aChange.NewValueByName[fld_ProveedoresPAIS];
|
||||
ParamByName('EMAIL_ADMINISTRACION').Value := aChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
|
||||
|
||||
Execute;
|
||||
|
||||
@ -112,6 +112,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = '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>
|
||||
Name = 'Contactos'
|
||||
@ -170,6 +182,21 @@ object srvContactos: TsrvContactos
|
||||
Size = 10
|
||||
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
|
||||
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
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
@ -593,6 +620,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = '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>
|
||||
Name = 'Clientes'
|
||||
@ -652,6 +691,21 @@ object srvContactos: TsrvContactos
|
||||
Size = 10
|
||||
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
|
||||
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
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
@ -1016,6 +1070,14 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = 'PAIS'
|
||||
TableField = 'PAIS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IDIOMA_ISO'
|
||||
TableField = 'IDIOMA_ISO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IDIOMA'
|
||||
TableField = 'IDIOMA'
|
||||
end>
|
||||
end>
|
||||
Name = 'Proveedores'
|
||||
@ -1075,6 +1137,21 @@ object srvContactos: TsrvContactos
|
||||
Size = 10
|
||||
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
|
||||
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
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
@ -1232,11 +1309,6 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1382,6 +1454,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = '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>
|
||||
Name = 'Empleados'
|
||||
@ -1441,6 +1525,21 @@ object srvContactos: TsrvContactos
|
||||
Size = 10
|
||||
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
|
||||
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
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
@ -1651,6 +1750,10 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = 'FECHA_MODIFICACION'
|
||||
TableField = 'FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PAIS'
|
||||
TableField = 'PAIS'
|
||||
end>
|
||||
end>
|
||||
Name = 'DireccionesContacto'
|
||||
@ -1745,6 +1848,11 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -2477,6 +2585,18 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = '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>
|
||||
Name = 'Agentes'
|
||||
@ -2535,6 +2655,21 @@ object srvContactos: TsrvContactos
|
||||
Size = 10
|
||||
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
|
||||
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
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
@ -2934,6 +3069,50 @@ object srvContactos: TsrvContactos
|
||||
DataType = datSmallInt
|
||||
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
|
||||
Params = <>
|
||||
Statements = <
|
||||
@ -3421,132 +3600,125 @@ object srvContactos: TsrvContactos
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONTACTOS_ID'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IDIOMA_ISO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO_2'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL_1'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL_2'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FAX'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'EMAIL_1'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'EMAIL_2'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PAGINA_WEB'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOTAS'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
Size = 30
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -3554,13 +3726,14 @@ object srvContactos: TsrvContactos
|
||||
TargetTable = 'CONTACTOS'
|
||||
SQL =
|
||||
'INSERT'#10' INTO CONTACTOS'#10' (ID, NIF_CIF, NOMBRE, PERSONA_CONTAC' +
|
||||
'TO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' TELEFONO_1,' +
|
||||
' TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, '#10' EMAIL_2, PAGI' +
|
||||
'NA_WEB, NOTAS, USUARIO, REFERENCIA, FECHA_ALTA)'#10' VALUES'#10' (:I' +
|
||||
'D, :NIF_CIF, :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POBLACION, :PR' +
|
||||
'OVINCIA,'#10' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1' +
|
||||
', '#10' :MOVIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS,' +
|
||||
' '#10' :USUARIO, :REFERENCIA, CURRENT_TIMESTAMP)'#10
|
||||
'TO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' PAIS, IDIOM' +
|
||||
'A_ISO, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1,'#10' ' +
|
||||
' EMAIL_2, PAGINA_WEB, NOTAS, USUARIO, REFERENCIA, FECHA_ALTA)' +
|
||||
#10' VALUES'#10' (:ID, :NIF_CIF, :NOMBRE, :PERSONA_CONTACTO, :CALLE' +
|
||||
', :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :PAIS, :IDIOMA_IS' +
|
||||
'O, :TELEFONO_1, :TELEFONO_2, :MOVIL_1,'#10' :MOVIL_2, :FAX, :EMA' +
|
||||
'IL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS, '#10' :USUARIO, :REFERENCIA' +
|
||||
', CURRENT_TIMESTAMP)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3591,131 +3764,123 @@ object srvContactos: TsrvContactos
|
||||
DataType = datString
|
||||
Size = 15
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IDIOMA_ISO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO_1'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO_2'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL_1'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL_2'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FAX'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'EMAIL_1'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'EMAIL_2'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PAGINA_WEB'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOTAS'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
Size = 30
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -3725,13 +3890,13 @@ object srvContactos: TsrvContactos
|
||||
'UPDATE CONTACTOS'#10' SET '#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NO' +
|
||||
'MBRE, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' CALLE = :CA' +
|
||||
'LLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10 +
|
||||
' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' TELEFONO_1 = :TELEFONO_' +
|
||||
'1, '#10' TELEFONO_2 = :TELEFONO_2, '#10' MOVIL_1 = :MOVIL_1, '#10' ' +
|
||||
'MOVIL_2 = :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' ' +
|
||||
' EMAIL_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS' +
|
||||
' = :NOTAS, '#10' USUARIO = :USUARIO,'#10' REFERENCIA = :REFERENCIA' +
|
||||
','#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :' +
|
||||
'OLD_ID)'#10
|
||||
' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PAIS = :PAIS,'#10' IDIOM' +
|
||||
'A_ISO = :IDIOMA_ISO,'#10' TELEFONO_1 = :TELEFONO_1, '#10' TELEFONO' +
|
||||
'_2 = :TELEFONO_2, '#10' MOVIL_1 = :MOVIL_1, '#10' MOVIL_2 = :MOVIL' +
|
||||
'_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' EMAIL_2 = :EM' +
|
||||
'AIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS = :NOTAS, '#10' ' +
|
||||
'USUARIO = :USUARIO,'#10' REFERENCIA = :REFERENCIA,'#10' FECHA_MODI' +
|
||||
'FICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -4477,12 +4642,6 @@ object srvContactos: TsrvContactos
|
||||
Name = 'VENCIMIENTO_FACTURAS_3'
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -4493,13 +4652,12 @@ object srvContactos: TsrvContactos
|
||||
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
|
||||
'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' +
|
||||
'IFICACION, GRUPO_PROVEEDOR, EMAIL_ADMINISTRACION,'#10' VENCIMIENT' +
|
||||
'O_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3, PA' +
|
||||
'IS)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESC' +
|
||||
'RIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTR' +
|
||||
'ATA, :ID_FORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFICACIO' +
|
||||
'N, :GRUPO_PROVEEDOR, :EMAIL_ADMINISTRACION,'#10' :VENCIMIENTO_FAC' +
|
||||
'TURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3, :PAIS' +
|
||||
')'#10' '#10' '#10#10
|
||||
'O_FACTURAS_1, VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' ' +
|
||||
'VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCIO' +
|
||||
'N_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTRATA, :' +
|
||||
'ID_FORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFICACION, :GR' +
|
||||
'UPO_PROVEEDOR, :EMAIL_ADMINISTRACION,'#10' :VENCIMIENTO_FACTURAS_' +
|
||||
'1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'#10' '#10' '#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -4613,12 +4771,6 @@ object srvContactos: TsrvContactos
|
||||
DataType = datSmallInt
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID_PROVEEDOR'
|
||||
Value = ''
|
||||
@ -4638,8 +4790,8 @@ object srvContactos: TsrvContactos
|
||||
'TRATA,'#10' EMAIL_ADMINISTRACION = :EMAIL_ADMINISTRACION,'#10' VEN' +
|
||||
'CIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_F' +
|
||||
'ACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 ' +
|
||||
'= :VENCIMIENTO_FACTURAS_3,'#10' PAIS = :PAIS'#10' WHERE'#10' (ID_PROV' +
|
||||
'EEDOR = :OLD_ID_PROVEEDOR)'#10
|
||||
'= :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PR' +
|
||||
'OVEEDOR)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -4652,95 +4804,87 @@ object srvContactos: TsrvContactos
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONTACTOS_DIR_ID'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FAX'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'EMAIL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOTAS'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PORTE'
|
||||
DataType = datFloat
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -4749,10 +4893,10 @@ object srvContactos: TsrvContactos
|
||||
SQL =
|
||||
'INSERT'#10' INTO CONTACTOS_DIRECCIONES'#10' (ID, ID_CONTACTO, NOMBRE' +
|
||||
', CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' PERSONA_CONTA' +
|
||||
'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE)'#10' VALUES'#10' (:I' +
|
||||
'D, :ID_CONTACTO, :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIG' +
|
||||
'O_POSTAL,'#10' :PERSONA_CONTACTO, :TELEFONO, :MOVIL, :FAX, :EMAI' +
|
||||
'L, :NOTAS, :PORTE)'
|
||||
'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE, PAIS)'#10' VALUES'#10' ' +
|
||||
' (:ID, :ID_CONTACTO, :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, ' +
|
||||
':CODIGO_POSTAL,'#10' :PERSONA_CONTACTO, :TELEFONO, :MOVIL, :FAX,' +
|
||||
' :EMAIL, :NOTAS, :PORTE, :PAIS)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -4784,95 +4928,86 @@ object srvContactos: TsrvContactos
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FAX'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'EMAIL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'NOTAS'
|
||||
DataType = datMemo
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'PORTE'
|
||||
DataType = datFloat
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -4884,8 +5019,8 @@ object srvContactos: TsrvContactos
|
||||
'POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CO' +
|
||||
'DIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELE' +
|
||||
'FONO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' FAX = :FAX,'#10' EMAIL ' +
|
||||
'= :EMAIL,'#10' NOTAS = :NOTAS,'#10' PORTE = :PORTE'#10' WHERE'#10' (ID' +
|
||||
' = :OLD_ID)'
|
||||
'= :EMAIL,'#10' NOTAS = :NOTAS,'#10' PORTE = :PORTE,'#10' PAIS = :PA' +
|
||||
'IS'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -132,6 +132,7 @@ inherited fEditorAgente: TfEditorAgente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 864
|
||||
Height = 614
|
||||
ActivePage = pagGeneral
|
||||
ExplicitWidth = 864
|
||||
ExplicitHeight = 614
|
||||
inherited pagGeneral: TTabSheet
|
||||
@ -300,6 +301,14 @@ inherited fEditorAgente: TfEditorAgente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited cbPais: TcxDBComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 155
|
||||
Width = 155
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -319,19 +328,33 @@ inherited fEditorAgente: TfEditorAgente
|
||||
Width = 114
|
||||
end
|
||||
inherited eSucursal: TcxDBTextEdit
|
||||
Left = 528
|
||||
ExplicitLeft = 528
|
||||
Left = 335
|
||||
ExplicitLeft = 335
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited eCuenta: TcxDBTextEdit
|
||||
Left = 615
|
||||
ExplicitLeft = 615
|
||||
ExplicitWidth = 194
|
||||
Width = 194
|
||||
end
|
||||
inherited eDC: TcxDBTextEdit
|
||||
Left = 494
|
||||
ExplicitLeft = 494
|
||||
end
|
||||
inherited eTitular: TcxDBTextEdit
|
||||
ExplicitWidth = 194
|
||||
Width = 194
|
||||
end
|
||||
inherited eSWIFT: TcxDBTextEdit
|
||||
ExplicitWidth = 348
|
||||
Width = 348
|
||||
end
|
||||
inherited eIBAN: TcxDBTextEdit
|
||||
ExplicitWidth = 348
|
||||
Width = 348
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -363,6 +386,18 @@ inherited fEditorAgente: TfEditorAgente
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 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
|
||||
@ -444,6 +479,18 @@ inherited fEditorAgente: TfEditorAgente
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 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
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Width = 856
|
||||
@ -498,6 +545,18 @@ inherited fEditorAgente: TfEditorAgente
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 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
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Width = 856
|
||||
|
||||
@ -2,18 +2,18 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Left = 387
|
||||
Top = 297
|
||||
Caption = 'Ficha de cliente'
|
||||
ClientHeight = 715
|
||||
ClientWidth = 870
|
||||
ExplicitWidth = 878
|
||||
ExplicitHeight = 749
|
||||
ClientHeight = 855
|
||||
ClientWidth = 1050
|
||||
ExplicitWidth = 1058
|
||||
ExplicitHeight = 889
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 870
|
||||
Width = 1050
|
||||
Caption = 'Ficha de cliente'
|
||||
ExplicitWidth = 870
|
||||
ExplicitWidth = 890
|
||||
inherited Image1: TImage
|
||||
Left = 843
|
||||
Left = 1023
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -48,15 +48,15 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitLeft = 565
|
||||
end
|
||||
inherited lblDesbloquear: TcxLabel
|
||||
Left = 745
|
||||
ExplicitLeft = 745
|
||||
AnchorX = 790
|
||||
Left = 925
|
||||
ExplicitLeft = 765
|
||||
AnchorX = 970
|
||||
AnchorY = 14
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 870
|
||||
ExplicitWidth = 870
|
||||
Width = 1050
|
||||
ExplicitWidth = 890
|
||||
inherited tbxMain: TTBXToolbar
|
||||
Left = 3
|
||||
DockPos = 3
|
||||
@ -96,7 +96,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 870
|
||||
ExplicitWidth = 1050
|
||||
object TBXSubmenuItem2: TTBXSubmenuItem [4]
|
||||
Caption = 'A&cciones'
|
||||
object TBXItem33: TTBXItem
|
||||
@ -124,19 +124,19 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 864
|
||||
Height = 614
|
||||
ActivePage = pagDescuentos
|
||||
ExplicitWidth = 864
|
||||
ExplicitHeight = 614
|
||||
Width = 1044
|
||||
Height = 754
|
||||
ActivePage = pagGeneral
|
||||
ExplicitWidth = 884
|
||||
ExplicitHeight = 719
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 586
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inline frViewCliente1: TfrViewCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 856
|
||||
Height = 586
|
||||
Width = 1036
|
||||
Height = 726
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -146,71 +146,71 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 586
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 856
|
||||
Height = 586
|
||||
Width = 1036
|
||||
Height = 726
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 586
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 794
|
||||
Left = 991
|
||||
Top = 218
|
||||
ExplicitLeft = 794
|
||||
ExplicitLeft = 991
|
||||
ExplicitTop = 218
|
||||
end
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 794
|
||||
Left = 991
|
||||
Top = 190
|
||||
ExplicitLeft = 794
|
||||
ExplicitLeft = 991
|
||||
ExplicitTop = 190
|
||||
end
|
||||
inherited PngSpeedButton3: TPngSpeedButton
|
||||
Left = 794
|
||||
Left = 991
|
||||
Top = 162
|
||||
ExplicitLeft = 794
|
||||
ExplicitLeft = 991
|
||||
ExplicitTop = 162
|
||||
end
|
||||
inherited Label1: TLabel
|
||||
Left = 598
|
||||
Left = 736
|
||||
Top = 418
|
||||
Width = 269
|
||||
ExplicitLeft = 598
|
||||
ExplicitLeft = 736
|
||||
ExplicitTop = 418
|
||||
ExplicitWidth = 269
|
||||
end
|
||||
inherited Label2: TLabel
|
||||
Left = 598
|
||||
Left = 736
|
||||
Top = 321
|
||||
Width = 271
|
||||
ExplicitLeft = 598
|
||||
ExplicitLeft = 736
|
||||
ExplicitTop = 321
|
||||
ExplicitWidth = 271
|
||||
end
|
||||
inherited PngSpeedButton4: TPngSpeedButton
|
||||
Left = 794
|
||||
Left = 991
|
||||
Top = 366
|
||||
ExplicitLeft = 794
|
||||
ExplicitLeft = 991
|
||||
ExplicitTop = 366
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Top = 451
|
||||
Top = 397
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 451
|
||||
ExplicitTop = 397
|
||||
ExplicitWidth = 246
|
||||
Width = 246
|
||||
end
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Top = 478
|
||||
Top = 424
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 478
|
||||
ExplicitTop = 424
|
||||
ExplicitWidth = 145
|
||||
Width = 145
|
||||
end
|
||||
@ -225,12 +225,12 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 246
|
||||
end
|
||||
inherited cbClienteBloqueado: TcxDBCheckBox
|
||||
Top = 373
|
||||
Top = 346
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 373
|
||||
ExplicitTop = 346
|
||||
ExplicitWidth = 356
|
||||
Width = 356
|
||||
end
|
||||
@ -244,16 +244,6 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitWidth = 246
|
||||
Width = 246
|
||||
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
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -265,53 +255,52 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 246
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Top = 505
|
||||
Top = 451
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 505
|
||||
ExplicitTop = 451
|
||||
ExplicitWidth = 246
|
||||
Width = 246
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 505
|
||||
Top = 478
|
||||
Left = 643
|
||||
Top = 424
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 505
|
||||
ExplicitTop = 478
|
||||
ExplicitLeft = 643
|
||||
ExplicitTop = 424
|
||||
end
|
||||
inherited cbFelicitacion: TcxDBCheckBox
|
||||
Left = 598
|
||||
Left = 736
|
||||
Top = 270
|
||||
ExplicitLeft = 598
|
||||
ExplicitLeft = 736
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 370
|
||||
Width = 370
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 598
|
||||
Left = 736
|
||||
Top = 463
|
||||
ExplicitLeft = 598
|
||||
ExplicitLeft = 736
|
||||
ExplicitTop = 463
|
||||
ExplicitWidth = 219
|
||||
ExplicitHeight = 34
|
||||
Width = 219
|
||||
ExplicitWidth = 258
|
||||
Width = 258
|
||||
end
|
||||
inherited cbRapel: TcxDBCheckBox
|
||||
Top = 192
|
||||
ExplicitTop = 192
|
||||
Top = 165
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 308
|
||||
Width = 308
|
||||
end
|
||||
inherited eMailAdministracion: TcxDBHyperLinkEdit
|
||||
Left = 710
|
||||
Left = 848
|
||||
Top = 366
|
||||
Properties.Prefix = 'mailto:'
|
||||
ExplicitLeft = 710
|
||||
ExplicitLeft = 848
|
||||
ExplicitTop = 366
|
||||
ExplicitWidth = 133
|
||||
Width = 133
|
||||
@ -329,23 +318,23 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 656
|
||||
end
|
||||
inherited cbTipoCliente: TcxDBComboBox
|
||||
Top = 165
|
||||
ExplicitTop = 165
|
||||
Top = 138
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 332
|
||||
Width = 332
|
||||
end
|
||||
inherited cbSEPA: TcxDBCheckBox
|
||||
Left = 280
|
||||
Top = 192
|
||||
ExplicitLeft = 280
|
||||
ExplicitTop = 192
|
||||
Left = 344
|
||||
Top = 165
|
||||
ExplicitLeft = 344
|
||||
ExplicitTop = 165
|
||||
ExplicitWidth = 481
|
||||
Width = 481
|
||||
end
|
||||
inherited frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral
|
||||
Top = 243
|
||||
Top = 216
|
||||
Width = 235
|
||||
ExplicitTop = 243
|
||||
ExplicitTop = 216
|
||||
ExplicitWidth = 235
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 235
|
||||
@ -358,30 +347,29 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 591
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 458
|
||||
Left = 596
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 458
|
||||
ExplicitLeft = 596
|
||||
end
|
||||
end
|
||||
inherited Panel1: TPanel
|
||||
Width = 235
|
||||
ExplicitWidth = 548
|
||||
inherited bVerFicha: TBitBtn
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 710
|
||||
Left = 848
|
||||
Top = 217
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 710
|
||||
ExplicitLeft = 848
|
||||
ExplicitTop = 217
|
||||
ExplicitWidth = 148
|
||||
Width = 148
|
||||
@ -407,63 +395,63 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 246
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 293
|
||||
Left = 349
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 293
|
||||
ExplicitLeft = 349
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 162
|
||||
Width = 162
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 710
|
||||
Left = 848
|
||||
Top = 162
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 710
|
||||
ExplicitLeft = 848
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 148
|
||||
Width = 148
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 710
|
||||
Left = 848
|
||||
Top = 190
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 710
|
||||
ExplicitLeft = 848
|
||||
ExplicitTop = 190
|
||||
ExplicitWidth = 148
|
||||
Width = 148
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 710
|
||||
Left = 848
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 710
|
||||
ExplicitLeft = 848
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 710
|
||||
Left = 848
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 710
|
||||
ExplicitLeft = 848
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
@ -479,29 +467,53 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 246
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 710
|
||||
Left = 848
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 710
|
||||
ExplicitLeft = 848
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 710
|
||||
Left = 848
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 710
|
||||
ExplicitLeft = 848
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
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
|
||||
inherited dsContacto: TDADataSource
|
||||
Left = 24
|
||||
@ -509,35 +521,35 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited pagDatosBancarios: TTabSheet
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 586
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inherited frViewClienteDatosBancarios1: TfrViewClienteDatosBancarios
|
||||
Width = 856
|
||||
Height = 586
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 586
|
||||
Width = 1036
|
||||
Height = 726
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 856
|
||||
ExplicitWidth = 856
|
||||
Width = 1036
|
||||
ExplicitWidth = 876
|
||||
inherited eEntidad: TcxDBTextEdit
|
||||
ExplicitWidth = 114
|
||||
Width = 114
|
||||
end
|
||||
inherited eSucursal: TcxDBTextEdit
|
||||
Left = 335
|
||||
ExplicitLeft = 335
|
||||
Left = 392
|
||||
ExplicitLeft = 392
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited eCuenta: TcxDBTextEdit
|
||||
Left = 615
|
||||
ExplicitLeft = 615
|
||||
Left = 723
|
||||
ExplicitLeft = 723
|
||||
ExplicitWidth = 194
|
||||
Width = 194
|
||||
end
|
||||
inherited eDC: TcxDBTextEdit
|
||||
Left = 494
|
||||
ExplicitLeft = 494
|
||||
Left = 602
|
||||
ExplicitLeft = 602
|
||||
end
|
||||
inherited eTitular: TcxDBTextEdit
|
||||
ExplicitWidth = 194
|
||||
@ -557,10 +569,12 @@ inherited fEditorCliente: TfEditorCliente
|
||||
object pagDatosComerciales: TTabSheet [2]
|
||||
Caption = 'Datos comerciales'
|
||||
ImageIndex = 4
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 856
|
||||
Width = 1036
|
||||
Height = 193
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -571,17 +585,17 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 856
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 193
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 856
|
||||
Width = 1036
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 856
|
||||
ExplicitWidth = 876
|
||||
inherited Label1: TLabel
|
||||
Left = 575
|
||||
Left = 694
|
||||
Top = 30
|
||||
Width = 193
|
||||
ExplicitLeft = 575
|
||||
ExplicitLeft = 694
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 193
|
||||
end
|
||||
@ -592,13 +606,13 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitWidth = 263
|
||||
end
|
||||
inherited eDiasVencimiento1: TcxDBSpinEdit
|
||||
Left = 647
|
||||
Left = 766
|
||||
Top = 62
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 647
|
||||
ExplicitLeft = 766
|
||||
ExplicitTop = 62
|
||||
end
|
||||
inherited cbRegimenIVA: TcxDBComboBox
|
||||
@ -632,9 +646,9 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 169
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 415
|
||||
Left = 534
|
||||
Top = 57
|
||||
ExplicitLeft = 415
|
||||
ExplicitLeft = 534
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
@ -648,9 +662,9 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 169
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 415
|
||||
Left = 534
|
||||
Top = 84
|
||||
ExplicitLeft = 415
|
||||
ExplicitLeft = 534
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited eDescuento: TcxDBSpinEdit
|
||||
@ -662,23 +676,23 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitTop = 149
|
||||
end
|
||||
inherited eDiasVencimiento2: TcxDBSpinEdit
|
||||
Left = 647
|
||||
Left = 766
|
||||
Top = 89
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 647
|
||||
ExplicitLeft = 766
|
||||
ExplicitTop = 89
|
||||
end
|
||||
inherited eDiasVencimiento3: TcxDBSpinEdit
|
||||
Left = 647
|
||||
Left = 766
|
||||
Top = 116
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 647
|
||||
ExplicitLeft = 766
|
||||
ExplicitTop = 116
|
||||
end
|
||||
inherited eAgente: TcxDBLookupComboBox
|
||||
@ -693,11 +707,13 @@ inherited fEditorCliente: TfEditorCliente
|
||||
object pagDirecciones: TTabSheet [3]
|
||||
Caption = 'Direcciones'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 856
|
||||
Height = 586
|
||||
Width = 1036
|
||||
Height = 726
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -707,11 +723,11 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 586
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 856
|
||||
Height = 561
|
||||
Width = 1036
|
||||
Height = 701
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 561
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
@ -722,7 +738,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 856
|
||||
Width = 1036
|
||||
ExplicitWidth = 856
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
@ -742,11 +758,13 @@ inherited fEditorCliente: TfEditorCliente
|
||||
object pagDescuentos: TTabSheet [4]
|
||||
Caption = 'Descuentos'
|
||||
ImageIndex = 2
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inline frViewClienteDescuentos1: TfrViewClienteDescuentos
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 856
|
||||
Height = 386
|
||||
Width = 1036
|
||||
Height = 526
|
||||
HelpContext = 150
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -757,23 +775,35 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 386
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 491
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 856
|
||||
Height = 361
|
||||
Width = 1036
|
||||
Height = 501
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 361
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 856
|
||||
Width = 1036
|
||||
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
|
||||
inline frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos
|
||||
Left = 0
|
||||
Top = 386
|
||||
Width = 856
|
||||
Top = 526
|
||||
Width = 1036
|
||||
Height = 200
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -784,38 +814,50 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitTop = 386
|
||||
ExplicitWidth = 856
|
||||
ExplicitTop = 491
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 200
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 856
|
||||
Width = 1036
|
||||
Height = 175
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 175
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 856
|
||||
Width = 1036
|
||||
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
|
||||
inherited pagPersonal: TTabSheet
|
||||
Caption = 'Personas contacto'
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 586
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
||||
Width = 856
|
||||
Height = 586
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 586
|
||||
Width = 1036
|
||||
Height = 726
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 856
|
||||
Height = 561
|
||||
Width = 1036
|
||||
Height = 701
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 561
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 856
|
||||
Width = 1036
|
||||
ExplicitWidth = 856
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 62
|
||||
@ -835,11 +877,13 @@ inherited fEditorCliente: TfEditorCliente
|
||||
object tabSucursales: TTabSheet
|
||||
Caption = 'Sucursales'
|
||||
ImageIndex = 6
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inline frViewSucursalesContacto1: TfrViewSucursalesContacto
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 856
|
||||
Height = 586
|
||||
Width = 1036
|
||||
Height = 726
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -849,26 +893,38 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 586
|
||||
ExplicitWidth = 876
|
||||
ExplicitHeight = 691
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 856
|
||||
Height = 561
|
||||
Width = 1036
|
||||
Height = 701
|
||||
ExplicitWidth = 856
|
||||
ExplicitHeight = 561
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 856
|
||||
Width = 1036
|
||||
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
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 696
|
||||
Width = 870
|
||||
ExplicitTop = 696
|
||||
ExplicitWidth = 870
|
||||
Top = 836
|
||||
Width = 1050
|
||||
ExplicitTop = 801
|
||||
ExplicitWidth = 890
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Top = 208
|
||||
|
||||
@ -17,7 +17,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
TextHeight = 13
|
||||
object Bevel1: TBevel
|
||||
Left = 8
|
||||
Top = 8
|
||||
Top = 26
|
||||
Width = 357
|
||||
Height = 521
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
@ -65,7 +65,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 20
|
||||
Top = 227
|
||||
Top = 247
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -73,7 +73,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 21
|
||||
Top = 251
|
||||
Top = 269
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -81,7 +81,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object PngSpeedButton3: TPngSpeedButton
|
||||
Left = 304
|
||||
Top = 320
|
||||
Top = 338
|
||||
Width = 23
|
||||
Height = 22
|
||||
OnClick = PngSpeedButton3Click
|
||||
@ -106,7 +106,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 21
|
||||
Top = 323
|
||||
Top = 341
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -114,7 +114,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 21
|
||||
Top = 363
|
||||
Top = 381
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -122,7 +122,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 21
|
||||
Top = 275
|
||||
Top = 293
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -130,7 +130,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object Label12: TLabel
|
||||
Left = 21
|
||||
Top = 299
|
||||
Top = 317
|
||||
Width = 109
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
@ -151,6 +151,14 @@ object fEditorDireccion: TfEditorDireccion
|
||||
Height = 14
|
||||
Shape = bsTopLine
|
||||
end
|
||||
object Label13: TLabel
|
||||
Left = 20
|
||||
Top = 212
|
||||
Width = 110
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
Caption = 'Pa'#237's:'
|
||||
end
|
||||
object OKBtn: TButton
|
||||
Left = 371
|
||||
Top = 7
|
||||
@ -160,7 +168,6 @@ object fEditorDireccion: TfEditorDireccion
|
||||
Caption = '&Aceptar'
|
||||
ModalResult = 1
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 343
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 371
|
||||
@ -172,7 +179,6 @@ object fEditorDireccion: TfEditorDireccion
|
||||
Caption = '&Cancelar'
|
||||
ModalResult = 2
|
||||
TabOrder = 1
|
||||
ExplicitLeft = 343
|
||||
end
|
||||
object eDireccion: TDBEdit
|
||||
Left = 135
|
||||
@ -223,7 +229,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object ePersonaContacto: TDBEdit
|
||||
Left = 135
|
||||
Top = 224
|
||||
Top = 242
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'PERSONA_CONTACTO'
|
||||
@ -232,7 +238,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eTelefono: TDBEdit
|
||||
Left = 136
|
||||
Top = 248
|
||||
Top = 266
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'TELEFONO'
|
||||
@ -241,7 +247,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eMail: TcxDBHyperLinkEdit
|
||||
Left = 136
|
||||
Top = 320
|
||||
Top = 338
|
||||
DataBinding.DataField = 'EMAIL'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
Properties.OnEditValueChanged = eMailPropertiesEditValueChanged
|
||||
@ -263,7 +269,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eNotas: TDBMemo
|
||||
Left = 136
|
||||
Top = 360
|
||||
Top = 378
|
||||
Width = 190
|
||||
Height = 94
|
||||
DataField = 'NOTAS'
|
||||
@ -273,7 +279,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eMovil: TDBEdit
|
||||
Left = 136
|
||||
Top = 272
|
||||
Top = 290
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'MOVIL'
|
||||
@ -282,7 +288,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
end
|
||||
object eFax: TDBEdit
|
||||
Left = 136
|
||||
Top = 296
|
||||
Top = 314
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'FAX'
|
||||
@ -306,6 +312,15 @@ object fEditorDireccion: TfEditorDireccion
|
||||
TabOrder = 13
|
||||
Width = 132
|
||||
end
|
||||
object ePais: TDBEdit
|
||||
Left = 135
|
||||
Top = 209
|
||||
Width = 191
|
||||
Height = 21
|
||||
DataField = 'PAIS'
|
||||
DataSource = dsDireccion
|
||||
TabOrder = 14
|
||||
end
|
||||
object dsDireccion: TDADataSource
|
||||
Left = 352
|
||||
Top = 72
|
||||
|
||||
@ -40,6 +40,8 @@ type
|
||||
Label10: TLabel;
|
||||
ePortes: TcxDBCurrencyEdit;
|
||||
Bevel2: TBevel;
|
||||
ePais: TDBEdit;
|
||||
Label13: TLabel;
|
||||
procedure PngSpeedButton3Click(Sender: TObject);
|
||||
procedure eMailPropertiesEditValueChanged(Sender: TObject);
|
||||
procedure eMailPropertiesValidate(Sender: TObject;
|
||||
|
||||
@ -116,7 +116,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 824
|
||||
Height = 519
|
||||
ActivePage = pagDatosComerciales
|
||||
ActivePage = pagGeneral
|
||||
ExplicitWidth = 824
|
||||
ExplicitHeight = 519
|
||||
inherited pagGeneral: TTabSheet
|
||||
@ -163,10 +163,10 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitTop = 162
|
||||
end
|
||||
inherited Label1: TLabel
|
||||
Left = 484
|
||||
Left = 475
|
||||
Top = 251
|
||||
Width = 342
|
||||
ExplicitLeft = 484
|
||||
ExplicitLeft = 475
|
||||
ExplicitTop = 251
|
||||
ExplicitWidth = 342
|
||||
end
|
||||
@ -177,9 +177,9 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitWidth = 324
|
||||
end
|
||||
inherited PngSpeedButton4: TPngSpeedButton
|
||||
Left = 444
|
||||
Left = 435
|
||||
Top = 471
|
||||
ExplicitLeft = 444
|
||||
ExplicitLeft = 435
|
||||
ExplicitTop = 471
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
@ -270,13 +270,13 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 366
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 402
|
||||
Left = 393
|
||||
Top = 294
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 402
|
||||
ExplicitLeft = 393
|
||||
ExplicitTop = 294
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
@ -292,13 +292,13 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 772
|
||||
end
|
||||
inherited cxDBCheckBox3: TcxDBCheckBox
|
||||
Left = 384
|
||||
Left = 375
|
||||
Top = 138
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 384
|
||||
ExplicitLeft = 375
|
||||
ExplicitTop = 138
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
@ -310,53 +310,52 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 283
|
||||
ExplicitWidth = 236
|
||||
Width = 236
|
||||
ExplicitHeight = 21
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 590
|
||||
Left = 581
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 590
|
||||
ExplicitLeft = 581
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 590
|
||||
Left = 581
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 590
|
||||
ExplicitLeft = 581
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 590
|
||||
Left = 581
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 590
|
||||
ExplicitLeft = 581
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 590
|
||||
Left = 581
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 590
|
||||
ExplicitLeft = 581
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
@ -372,61 +371,51 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 366
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 238
|
||||
Left = 235
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 238
|
||||
ExplicitLeft = 235
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 229
|
||||
Width = 229
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 590
|
||||
Left = 581
|
||||
Top = 162
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 590
|
||||
ExplicitLeft = 581
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 590
|
||||
Left = 581
|
||||
Top = 190
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 590
|
||||
ExplicitLeft = 581
|
||||
ExplicitTop = 190
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
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
|
||||
Left = 590
|
||||
Left = 581
|
||||
Top = 217
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 590
|
||||
ExplicitLeft = 581
|
||||
ExplicitTop = 217
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
@ -451,6 +440,16 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
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
|
||||
@ -470,19 +469,33 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Width = 114
|
||||
end
|
||||
inherited eSucursal: TcxDBTextEdit
|
||||
Left = 507
|
||||
ExplicitLeft = 507
|
||||
Left = 322
|
||||
ExplicitLeft = 322
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited eCuenta: TcxDBTextEdit
|
||||
Left = 591
|
||||
ExplicitLeft = 591
|
||||
ExplicitWidth = 194
|
||||
Width = 194
|
||||
end
|
||||
inherited eDC: TcxDBTextEdit
|
||||
Left = 470
|
||||
ExplicitLeft = 470
|
||||
end
|
||||
inherited eTitular: TcxDBTextEdit
|
||||
ExplicitWidth = 194
|
||||
Width = 194
|
||||
end
|
||||
inherited eSWIFT: TcxDBTextEdit
|
||||
ExplicitWidth = 348
|
||||
Width = 348
|
||||
end
|
||||
inherited eIBAN: TcxDBTextEdit
|
||||
ExplicitWidth = 348
|
||||
Width = 348
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -639,6 +652,18 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 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
|
||||
|
||||
@ -21,6 +21,19 @@ inherited frViewAgente: TfrViewAgente
|
||||
ExplicitLeft = 628
|
||||
end
|
||||
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
|
||||
Top = 193
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -30,54 +43,41 @@ inherited frViewAgente: TfrViewAgente
|
||||
TabOrder = 6
|
||||
ExplicitLeft = 121
|
||||
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
|
||||
Width = 138
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 8
|
||||
ExplicitLeft = 295
|
||||
ExplicitLeft = 121
|
||||
ExplicitTop = 220
|
||||
ExplicitWidth = 239
|
||||
Width = 239
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 331
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 295
|
||||
Top = 193
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 18
|
||||
ExplicitTop = 331
|
||||
TabOrder = 7
|
||||
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
|
||||
ExplicitHeight = 38
|
||||
Height = 38
|
||||
@ -97,34 +97,12 @@ inherited frViewAgente: TfrViewAgente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
TabOrder = 20
|
||||
Width = 239
|
||||
end
|
||||
inherited eTlfParticular: 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 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]
|
||||
object eFechaBaja: TcxDBDateEdit [9]
|
||||
Left = 121
|
||||
Top = 109
|
||||
Top = 82
|
||||
DataBinding.DataField = 'FECHA_BAJA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -136,12 +114,12 @@ inherited frViewAgente: TfrViewAgente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
TabOrder = 3
|
||||
Width = 229
|
||||
end
|
||||
object eCausaBaja: TcxDBTextEdit [12]
|
||||
object eCausaBaja: TcxDBTextEdit [10]
|
||||
Left = 121
|
||||
Top = 136
|
||||
Top = 109
|
||||
DataBinding.DataField = 'CAUSA_BAJA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -156,10 +134,10 @@ inherited frViewAgente: TfrViewAgente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 4
|
||||
Width = 229
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 485
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -170,7 +148,18 @@ inherited frViewAgente: TfrViewAgente
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
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
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -181,6 +170,17 @@ inherited frViewAgente: TfrViewAgente
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
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
|
||||
Left = 121
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -208,7 +208,7 @@ inherited frViewAgente: TfrViewAgente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 15
|
||||
TabOrder = 16
|
||||
ExplicitLeft = 485
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
@ -220,7 +220,7 @@ inherited frViewAgente: TfrViewAgente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 16
|
||||
TabOrder = 17
|
||||
ExplicitLeft = 485
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
@ -231,7 +231,7 @@ inherited frViewAgente: TfrViewAgente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 17
|
||||
TabOrder = 18
|
||||
ExplicitLeft = 485
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
@ -249,16 +249,38 @@ inherited frViewAgente: TfrViewAgente
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Left = 121
|
||||
Top = 274
|
||||
Top = 301
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.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
|
||||
ExplicitLeft = 121
|
||||
ExplicitTop = 274
|
||||
ExplicitWidth = 239
|
||||
Width = 239
|
||||
ExplicitWidth = 145
|
||||
Width = 145
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
|
||||
@ -272,13 +294,6 @@ inherited frViewAgente: TfrViewAgente
|
||||
inherited dxLayoutControlContactoItem13: TdxLayoutItem
|
||||
Caption = 'Nombre y apellidos:'
|
||||
end
|
||||
object dxLayoutControlContactoItem19: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Fecha de alta:'
|
||||
Control = eFechaAltaEmpresa
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem23: TdxLayoutItem
|
||||
Caption = 'Fecha de baja:'
|
||||
Control = eFechaBaja
|
||||
@ -291,6 +306,9 @@ inherited frViewAgente: TfrViewAgente
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoItem19: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControlContactoItem167: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
|
||||
@ -8,7 +8,7 @@ uses
|
||||
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
|
||||
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
|
||||
Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics,
|
||||
uDAInterfaces;
|
||||
uDAInterfaces, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
|
||||
|
||||
type
|
||||
IViewAgente = interface(IViewContacto)
|
||||
@ -16,7 +16,6 @@ type
|
||||
end;
|
||||
|
||||
TfrViewAgente = class(TfrViewContacto, IViewAgente)
|
||||
dxLayoutControlContactoItem19: TdxLayoutItem;
|
||||
eFechaAltaEmpresa: TcxDBDateEdit;
|
||||
dxLayoutControlContactoItem23: TdxLayoutItem;
|
||||
eFechaBaja: TcxDBDateEdit;
|
||||
|
||||
@ -1,15 +1,15 @@
|
||||
inherited frViewCliente: TfrViewCliente
|
||||
Width = 951
|
||||
Height = 698
|
||||
Height = 789
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 951
|
||||
ExplicitHeight = 698
|
||||
ExplicitHeight = 789
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 951
|
||||
Height = 698
|
||||
Height = 789
|
||||
ExplicitWidth = 951
|
||||
ExplicitHeight = 698
|
||||
ExplicitHeight = 789
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 906
|
||||
ExplicitLeft = 906
|
||||
@ -72,27 +72,27 @@ inherited frViewCliente: TfrViewCliente
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Left = 132
|
||||
Top = 467
|
||||
Top = 440
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 12
|
||||
ExplicitLeft = 132
|
||||
ExplicitTop = 467
|
||||
ExplicitTop = 440
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Left = 132
|
||||
Top = 494
|
||||
Top = 467
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 13
|
||||
ExplicitLeft = 132
|
||||
ExplicitTop = 494
|
||||
ExplicitTop = 467
|
||||
ExplicitWidth = 159
|
||||
Width = 159
|
||||
end
|
||||
@ -138,52 +138,9 @@ inherited frViewCliente: TfrViewCliente
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
Width = 370
|
||||
Width = 163
|
||||
end
|
||||
object cbGrupoCliente: TcxDBComboBox [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]
|
||||
object eCodigoAsignado: TcxDBTextEdit [10]
|
||||
Left = 132
|
||||
Top = 109
|
||||
DataBinding.DataField = 'CODIGO_ASIGNADO'
|
||||
@ -205,29 +162,29 @@ inherited frViewCliente: TfrViewCliente
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Left = 132
|
||||
Top = 521
|
||||
Top = 494
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 15
|
||||
ExplicitLeft = 132
|
||||
ExplicitTop = 521
|
||||
ExplicitTop = 494
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 436
|
||||
Top = 494
|
||||
Top = 467
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 14
|
||||
ExplicitLeft = 436
|
||||
ExplicitTop = 494
|
||||
ExplicitTop = 467
|
||||
end
|
||||
object cbFelicitacion: TcxDBCheckBox [15]
|
||||
object cbFelicitacion: TcxDBCheckBox [13]
|
||||
Left = 531
|
||||
Top = 280
|
||||
Caption = 'Mandar felicitaci'#243'n navide'#241'a a este cliente'
|
||||
@ -248,10 +205,10 @@ inherited frViewCliente: TfrViewCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 24
|
||||
TabOrder = 26
|
||||
Width = 370
|
||||
end
|
||||
object cxDBCheckBox1: TcxDBCheckBox [16]
|
||||
object cxDBCheckBox1: TcxDBCheckBox [14]
|
||||
Left = 531
|
||||
Top = 485
|
||||
Caption = 'Permitir el acceso de este cliente a la tienda web'
|
||||
@ -273,10 +230,10 @@ inherited frViewCliente: TfrViewCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 26
|
||||
TabOrder = 28
|
||||
Width = 266
|
||||
end
|
||||
object cbRapel: TcxDBCheckBox [17]
|
||||
object cbRapel: TcxDBCheckBox [15]
|
||||
Left = 132
|
||||
Top = 190
|
||||
Caption = 'Este cliente tiene rapel'
|
||||
@ -301,7 +258,7 @@ inherited frViewCliente: TfrViewCliente
|
||||
OnClick = actBloqueoClienteExecute
|
||||
Width = 148
|
||||
end
|
||||
object eMailAdministracion: TcxDBHyperLinkEdit [18]
|
||||
object eMailAdministracion: TcxDBHyperLinkEdit [16]
|
||||
Left = 643
|
||||
Top = 382
|
||||
DataBinding.DataField = 'EMAIL_ADMINISTRACION'
|
||||
@ -320,23 +277,23 @@ inherited frViewCliente: TfrViewCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 25
|
||||
TabOrder = 27
|
||||
Width = 133
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 605
|
||||
Top = 632
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 27
|
||||
ExplicitTop = 605
|
||||
TabOrder = 29
|
||||
ExplicitTop = 632
|
||||
ExplicitWidth = 733
|
||||
ExplicitHeight = 69
|
||||
Height = 69
|
||||
Width = 733
|
||||
end
|
||||
object cbTipoCliente: TcxDBComboBox [20]
|
||||
object cbTipoCliente: TcxDBComboBox [18]
|
||||
Left = 132
|
||||
Top = 163
|
||||
DataBinding.DataField = 'TIPO_CLIENTE'
|
||||
@ -360,7 +317,7 @@ inherited frViewCliente: TfrViewCliente
|
||||
TabOrder = 6
|
||||
Width = 332
|
||||
end
|
||||
object cbSEPA: TcxDBCheckBox [21]
|
||||
object cbSEPA: TcxDBCheckBox [19]
|
||||
Left = 306
|
||||
Top = 190
|
||||
Action = actBloqueoCliente
|
||||
@ -385,7 +342,7 @@ inherited frViewCliente: TfrViewCliente
|
||||
TabOrder = 8
|
||||
Width = 181
|
||||
end
|
||||
inline frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral [22]
|
||||
inline frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral [20]
|
||||
Left = 22
|
||||
Top = 247
|
||||
Width = 235
|
||||
@ -429,40 +386,39 @@ inherited frViewCliente: TfrViewCliente
|
||||
ExplicitWidth = 235
|
||||
end
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit [23]
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit [21]
|
||||
Left = 643
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 23
|
||||
TabOrder = 25
|
||||
ExplicitLeft = 643
|
||||
ExplicitWidth = 209
|
||||
Width = 209
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit [24]
|
||||
inherited eReferencia: TcxDBTextEdit [22]
|
||||
Left = 132
|
||||
Enabled = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 132
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit [25]
|
||||
inherited ePersonaContacto: TcxDBTextEdit [23]
|
||||
Left = 132
|
||||
Top = 548
|
||||
Top = 575
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 16
|
||||
TabOrder = 18
|
||||
ExplicitLeft = 132
|
||||
ExplicitTop = 548
|
||||
ExplicitTop = 575
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit [26]
|
||||
inherited eNIFCIF: TcxDBTextEdit [24]
|
||||
Left = 360
|
||||
Properties.OnValidate = eNIFCIFPropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -473,42 +429,63 @@ inherited frViewCliente: TfrViewCliente
|
||||
ExplicitWidth = 91
|
||||
Width = 91
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit [27]
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit [25]
|
||||
Left = 643
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.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
|
||||
ExplicitLeft = 643
|
||||
ExplicitWidth = 209
|
||||
Width = 209
|
||||
ExplicitWidth = 238
|
||||
Width = 238
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit [28]
|
||||
inherited eFax: TcxDBTextEdit [28]
|
||||
Left = 643
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 22
|
||||
ExplicitLeft = 643
|
||||
ExplicitWidth = 209
|
||||
Width = 209
|
||||
ExplicitWidth = 238
|
||||
Width = 238
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit [29]
|
||||
Left = 643
|
||||
inherited eNombre: TcxDBTextEdit [29]
|
||||
Left = 132
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 19
|
||||
ExplicitLeft = 643
|
||||
ExplicitWidth = 238
|
||||
Width = 238
|
||||
ExplicitLeft = 132
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit [30]
|
||||
inherited eTlfParticular: TcxDBTextEdit [30]
|
||||
Left = 643
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -519,37 +496,81 @@ inherited frViewCliente: TfrViewCliente
|
||||
ExplicitWidth = 238
|
||||
Width = 238
|
||||
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
|
||||
Top = 521
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 16
|
||||
ExplicitLeft = 132
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
ExplicitTop = 521
|
||||
ExplicitWidth = 155
|
||||
Width = 155
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit [32]
|
||||
Left = 643
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
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 = ''
|
||||
inherited cbIdioma: TcxDBLookupComboBox [33]
|
||||
Left = 132
|
||||
Top = 548
|
||||
TabOrder = 17
|
||||
ExplicitLeft = 643
|
||||
ExplicitWidth = 238
|
||||
Width = 238
|
||||
ExplicitLeft = 132
|
||||
ExplicitTop = 548
|
||||
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
|
||||
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
@ -568,10 +589,8 @@ inherited frViewCliente: TfrViewCliente
|
||||
Control = eCodigoAsignado
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem19: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Marcas:'
|
||||
object dxLayoutControlContactoItem34: TdxLayoutItem
|
||||
Caption = 'Marca:'
|
||||
Control = cbGrupoCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
@ -613,16 +632,17 @@ inherited frViewCliente: TfrViewCliente
|
||||
end
|
||||
object dxLayoutControlContactoGroup18: TdxLayoutGroup [2]
|
||||
Caption = 'Bloqueo'
|
||||
LayoutDirection = ldHorizontal
|
||||
object dxLayoutControlContactoItem26: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = ' '
|
||||
ShowCaption = False
|
||||
Control = cbClienteBloqueado
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem16: TdxLayoutItem
|
||||
Caption = 'Motivo del bloqueo:'
|
||||
object dxLayoutControlContactoItem33: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Control = eBloqueo
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
|
||||
@ -25,10 +25,6 @@ type
|
||||
dxLayoutControlContactoItem26: TdxLayoutItem;
|
||||
cbClienteBloqueado: TcxDBCheckBox;
|
||||
dxLayoutControlContactoGroup18: TdxLayoutGroup;
|
||||
dxLayoutControlContactoItem19: TdxLayoutItem;
|
||||
cbGrupoCliente: TcxDBComboBox;
|
||||
dxLayoutControlContactoItem16: TdxLayoutItem;
|
||||
eBloqueo: TcxDBTextEdit;
|
||||
actBloqueoCliente: TAction;
|
||||
dxLayoutControlContactoItem22: TdxLayoutItem;
|
||||
eCodigoAsignado: TcxDBTextEdit;
|
||||
@ -53,6 +49,10 @@ type
|
||||
dxLayoutControlContactoGroup19: TdxLayoutGroup;
|
||||
dxLayoutControlContactoItem32: TdxLayoutItem;
|
||||
frViewDatosYSeleccionCentral1: TfrViewDatosYSeleccionCentral;
|
||||
dxLayoutControlContactoItem33: TdxLayoutItem;
|
||||
eBloqueo: TcxDBTextEdit;
|
||||
dxLayoutControlContactoItem34: TdxLayoutItem;
|
||||
cbGrupoCliente: TcxDBComboBox;
|
||||
|
||||
procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
|
||||
procedure cbGrupoClientePropertiesValidate(Sender: TObject;
|
||||
|
||||
@ -105,7 +105,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
end
|
||||
object eCalle: TcxDBTextEdit
|
||||
Left = 115
|
||||
Top = 142
|
||||
Top = 112
|
||||
DataBinding.DataField = 'CALLE'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -127,7 +127,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
end
|
||||
object cbProvincia: TcxDBComboBox
|
||||
Left = 115
|
||||
Top = 169
|
||||
Top = 139
|
||||
DataBinding.DataField = 'PROVINCIA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Properties.ImmediatePost = True
|
||||
@ -155,7 +155,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
end
|
||||
object cbPoblacion: TcxDBComboBox
|
||||
Left = 115
|
||||
Top = 196
|
||||
Top = 166
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Properties.ImmediatePost = True
|
||||
@ -183,7 +183,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
end
|
||||
object eCodigoPostal: TcxDBTextEdit
|
||||
Left = 306
|
||||
Top = 169
|
||||
Top = 139
|
||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -205,7 +205,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
end
|
||||
object eObservaciones: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 280
|
||||
Top = 304
|
||||
DataBinding.DataField = 'NOTAS'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Properties.ScrollBars = ssVertical
|
||||
@ -223,7 +223,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 15
|
||||
TabOrder = 17
|
||||
Height = 86
|
||||
Width = 630
|
||||
end
|
||||
@ -246,7 +246,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 9
|
||||
TabOrder = 11
|
||||
Width = 156
|
||||
end
|
||||
object eTlfTrabajo: TcxDBTextEdit
|
||||
@ -268,7 +268,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 8
|
||||
TabOrder = 10
|
||||
Width = 156
|
||||
end
|
||||
object eTlfMovil: TcxDBTextEdit
|
||||
@ -290,7 +290,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 10
|
||||
TabOrder = 12
|
||||
Width = 156
|
||||
end
|
||||
object eFax: TcxDBTextEdit
|
||||
@ -312,7 +312,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 11
|
||||
TabOrder = 13
|
||||
Width = 156
|
||||
end
|
||||
object eNombre: TcxDBTextEdit
|
||||
@ -385,7 +385,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 12
|
||||
TabOrder = 14
|
||||
Width = 127
|
||||
end
|
||||
object eMailParticular: TcxDBHyperLinkEdit
|
||||
@ -411,7 +411,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 13
|
||||
TabOrder = 15
|
||||
Width = 127
|
||||
end
|
||||
object ePaginaWeb: TcxDBHyperLinkEdit
|
||||
@ -437,7 +437,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 14
|
||||
TabOrder = 16
|
||||
Width = 127
|
||||
end
|
||||
object eReferencia: TcxDBTextEdit
|
||||
@ -445,7 +445,6 @@ inherited frViewContacto: TfrViewContacto
|
||||
Top = 28
|
||||
DataBinding.DataField = 'REFERENCIA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Enabled = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clWindow
|
||||
@ -468,7 +467,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
end
|
||||
object ePersonaContacto: TcxDBTextEdit
|
||||
Left = 115
|
||||
Top = 223
|
||||
Top = 247
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -486,9 +485,56 @@ inherited frViewContacto: TfrViewContacto
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 7
|
||||
TabOrder = 9
|
||||
Width = 256
|
||||
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
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -569,6 +615,16 @@ inherited frViewContacto: TfrViewContacto
|
||||
Control = cbPoblacion
|
||||
ControlOptions.ShowBorder = False
|
||||
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
|
||||
Caption = 'Persona contacto:'
|
||||
Control = ePersonaContacto
|
||||
@ -725,4 +781,8 @@ inherited frViewContacto: TfrViewContacto
|
||||
Left = 64
|
||||
Top = 176
|
||||
end
|
||||
object dsIdiomas: TDADataSource
|
||||
Left = 72
|
||||
Top = 216
|
||||
end
|
||||
end
|
||||
|
||||
@ -5,11 +5,12 @@ interface
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
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,
|
||||
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxHyperLinkEdit,
|
||||
ImgList, ActnList, PngImageList, PngSpeedButton, uDAInterfaces, uContactosController,
|
||||
cxGraphics, cxMaskEdit, cxDropDownEdit;
|
||||
cxGraphics, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
|
||||
cxDBLookupComboBox;
|
||||
|
||||
type
|
||||
IViewContacto = interface(IViewBase)
|
||||
@ -85,6 +86,11 @@ type
|
||||
dxLayoutControlContactoItem167: TdxLayoutItem;
|
||||
ePersonaContacto: TcxDBTextEdit;
|
||||
dxLayoutControlContactoGroup10: TdxLayoutGroup;
|
||||
dxLayoutControlContactoItem16: TdxLayoutItem;
|
||||
cbPais: TcxDBComboBox;
|
||||
cbIdioma: TcxDBLookupComboBox;
|
||||
dxLayoutControlContactoItem19: TdxLayoutItem;
|
||||
dsIdiomas: TDADataSource;
|
||||
procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
|
||||
procedure actMandarCorreoParticularExecute(Sender: TObject);
|
||||
procedure actMandarCorreoTrabajoExecute(Sender: TObject);
|
||||
@ -95,13 +101,17 @@ type
|
||||
procedure eMailTrabajoPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure eProvinciaPropertiesInitPopup(Sender: TObject);
|
||||
procedure ePaisPropertiesInitPopup(Sender: TObject);
|
||||
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||
protected
|
||||
FContacto: IBizContacto;
|
||||
FController : IContactosController;
|
||||
FPaises : TStringList;
|
||||
FIdiomas : IBizIdiomas;
|
||||
FProvincias : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FPoblaciones : TStringList;
|
||||
procedure CargarPaises;
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
function GetContacto: IBizContacto; virtual;
|
||||
@ -166,6 +176,30 @@ begin
|
||||
(Sender as TAction).Enabled := (Length(ePaginaWeb.Text) > 0)
|
||||
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;
|
||||
var
|
||||
i : integer;
|
||||
@ -242,6 +276,7 @@ begin
|
||||
FIDProvincia := 0;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
FIdiomas := Nil;
|
||||
end;
|
||||
|
||||
destructor TfrViewContacto.Destroy;
|
||||
@ -252,6 +287,8 @@ begin
|
||||
if Assigned(FPoblaciones) then
|
||||
FreeANDNIL(FPoblaciones);
|
||||
|
||||
FIdiomas := Nil;
|
||||
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -270,6 +307,17 @@ begin
|
||||
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
|
||||
end;
|
||||
|
||||
procedure TfrViewContacto.ePaisPropertiesInitPopup(Sender: TObject);
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if not Assigned(FPaises) then
|
||||
CargarPaises;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewContacto.eProvinciaPropertiesInitPopup(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
@ -307,6 +355,13 @@ end;
|
||||
procedure TfrViewContacto.SetController(const Value: IContactosController);
|
||||
begin
|
||||
FController := Value;
|
||||
|
||||
if Assigned(FController) then
|
||||
begin
|
||||
FIdiomas := FController.BuscarIdiomas;
|
||||
dsIdiomas.DataTable := FIdiomas.DataTable;
|
||||
dsIdiomas.DataTable.Active := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
@ -48,6 +48,10 @@ inherited frViewDireccionesEntrega: TfrViewDireccionesEntrega
|
||||
BestFitMaxWidth = 64
|
||||
Width = 213
|
||||
end
|
||||
object cxGridViewPAIS: TcxGridDBColumn
|
||||
Caption = 'Pa'#237's'
|
||||
DataBinding.FieldName = 'PAIS'
|
||||
end
|
||||
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
|
||||
Caption = 'Persona de contacto'
|
||||
DataBinding.FieldName = 'PERSONA_CONTACTO'
|
||||
|
||||
@ -23,6 +23,7 @@ type
|
||||
cxGridViewTELEFONO: TcxGridDBColumn;
|
||||
cxGridViewEMAIL: TcxGridDBColumn;
|
||||
cxGridViewPORTE: TcxGridDBColumn;
|
||||
cxGridViewPAIS: TcxGridDBColumn;
|
||||
procedure cxGridViewDblClick(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
protected
|
||||
|
||||
@ -1,63 +1,83 @@
|
||||
inherited frViewEmpleado: TfrViewEmpleado
|
||||
Width = 673
|
||||
Height = 424
|
||||
Width = 738
|
||||
Height = 445
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 673
|
||||
ExplicitHeight = 424
|
||||
ExplicitWidth = 738
|
||||
ExplicitHeight = 445
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 673
|
||||
Height = 424
|
||||
ExplicitWidth = 673
|
||||
ExplicitHeight = 424
|
||||
Width = 738
|
||||
Height = 445
|
||||
ExplicitWidth = 738
|
||||
ExplicitHeight = 445
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 611
|
||||
ExplicitLeft = 611
|
||||
Left = 693
|
||||
ExplicitLeft = 693
|
||||
end
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 611
|
||||
ExplicitLeft = 611
|
||||
Left = 693
|
||||
ExplicitLeft = 693
|
||||
end
|
||||
inherited PngSpeedButton3: TPngSpeedButton
|
||||
Left = 611
|
||||
ExplicitLeft = 611
|
||||
Left = 693
|
||||
ExplicitLeft = 693
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Left = 121
|
||||
Top = 247
|
||||
TabOrder = 8
|
||||
Top = 193
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 6
|
||||
ExplicitLeft = 121
|
||||
ExplicitTop = 247
|
||||
ExplicitTop = 193
|
||||
ExplicitWidth = 239
|
||||
Width = 239
|
||||
end
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Left = 121
|
||||
Top = 274
|
||||
TabOrder = 9
|
||||
Top = 220
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 7
|
||||
ExplicitLeft = 121
|
||||
ExplicitTop = 274
|
||||
ExplicitTop = 220
|
||||
ExplicitWidth = 138
|
||||
Width = 138
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Left = 121
|
||||
Top = 301
|
||||
TabOrder = 11
|
||||
Top = 247
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 9
|
||||
ExplicitLeft = 121
|
||||
ExplicitTop = 301
|
||||
ExplicitTop = 247
|
||||
ExplicitWidth = 239
|
||||
Width = 239
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 285
|
||||
Top = 274
|
||||
TabOrder = 10
|
||||
ExplicitLeft = 285
|
||||
ExplicitTop = 274
|
||||
Left = 331
|
||||
Top = 220
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 8
|
||||
ExplicitLeft = 331
|
||||
ExplicitTop = 220
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 385
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 22
|
||||
ExplicitTop = 385
|
||||
ExplicitWidth = 629
|
||||
@ -79,12 +99,12 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
TabOrder = 24
|
||||
Width = 239
|
||||
end
|
||||
object eFechaAltaEmpresa: TcxDBDateEdit [9]
|
||||
Left = 121
|
||||
Top = 109
|
||||
Top = 82
|
||||
DataBinding.DataField = 'FECHA_ALTA_EMPRESA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -96,12 +116,12 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
TabOrder = 23
|
||||
Width = 239
|
||||
end
|
||||
object cbCategoria: TcxDBComboBox [10]
|
||||
Left = 121
|
||||
Top = 136
|
||||
Top = 82
|
||||
DataBinding.DataField = 'CATEGORIA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Properties.ImmediatePost = True
|
||||
@ -120,11 +140,11 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 3
|
||||
Width = 239
|
||||
end
|
||||
object cbContrato: TcxDBComboBox [11]
|
||||
Left = 475
|
||||
Left = 521
|
||||
Top = 280
|
||||
DataBinding.DataField = 'CONTRATO'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -148,7 +168,7 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
Width = 166
|
||||
end
|
||||
object eDuracionContrato: TcxDBTextEdit [12]
|
||||
Left = 475
|
||||
Left = 521
|
||||
Top = 307
|
||||
DataBinding.DataField = 'DURACION'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -166,86 +186,30 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
Width = 166
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 475
|
||||
Left = 521
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 14
|
||||
ExplicitLeft = 475
|
||||
ExplicitLeft = 521
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 475
|
||||
Left = 521
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 13
|
||||
ExplicitLeft = 475
|
||||
ExplicitLeft = 521
|
||||
ExplicitWidth = 166
|
||||
Width = 166
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
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
|
||||
object eFechaBaja: TcxDBDateEdit [15]
|
||||
Left = 121
|
||||
ExplicitLeft = 121
|
||||
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
|
||||
Top = 109
|
||||
DataBinding.DataField = 'FECHA_BAJA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -257,12 +221,12 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 6
|
||||
TabOrder = 4
|
||||
Width = 229
|
||||
end
|
||||
object eCausaBaja: TcxDBTextEdit [25]
|
||||
object eCausaBaja: TcxDBTextEdit [16]
|
||||
Left = 121
|
||||
Top = 190
|
||||
Top = 136
|
||||
DataBinding.DataField = 'CAUSA_BAJA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -277,9 +241,131 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 5
|
||||
Width = 229
|
||||
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 dxLayoutControlContactoGroup9: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
|
||||
@ -292,20 +378,6 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
inherited dxLayoutControlContactoItem13: TdxLayoutItem
|
||||
Caption = 'Nombre y apellidos:'
|
||||
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
|
||||
Caption = 'Categor'#237'a:'
|
||||
Control = cbCategoria
|
||||
@ -323,6 +395,9 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoItem19: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControlContactoItem167: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
|
||||
@ -8,7 +8,7 @@ uses
|
||||
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
|
||||
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
|
||||
Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics, uGruposEmpleadoController,
|
||||
uDAInterfaces;
|
||||
uDAInterfaces, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
|
||||
|
||||
type
|
||||
IViewEmpleado = interface(IViewContacto)
|
||||
@ -17,8 +17,6 @@ type
|
||||
|
||||
TfrViewEmpleado = class(TfrViewContacto, IViewEmpleado)
|
||||
eFechaNacimiento: TcxDBDateEdit;
|
||||
dxLayoutControlContactoItem16: TdxLayoutItem;
|
||||
dxLayoutControlContactoItem19: TdxLayoutItem;
|
||||
eFechaAltaEmpresa: TcxDBDateEdit;
|
||||
dxLayoutControlContactoItem20: TdxLayoutItem;
|
||||
cbCategoria: TcxDBComboBox;
|
||||
|
||||
@ -1,40 +1,30 @@
|
||||
inherited frViewProveedor: TfrViewProveedor
|
||||
Width = 917
|
||||
Height = 629
|
||||
Width = 777
|
||||
Height = 651
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 917
|
||||
ExplicitHeight = 629
|
||||
ExplicitWidth = 777
|
||||
ExplicitHeight = 651
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 917
|
||||
Height = 629
|
||||
Width = 777
|
||||
Height = 651
|
||||
ExplicitWidth = 917
|
||||
ExplicitHeight = 629
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 872
|
||||
ExplicitLeft = 872
|
||||
Left = 732
|
||||
ExplicitLeft = 732
|
||||
end
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 872
|
||||
ExplicitLeft = 872
|
||||
Left = 732
|
||||
ExplicitLeft = 732
|
||||
end
|
||||
inherited PngSpeedButton3: TPngSpeedButton
|
||||
Left = 872
|
||||
ExplicitLeft = 872
|
||||
Left = 732
|
||||
ExplicitLeft = 732
|
||||
end
|
||||
object Label1: 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]
|
||||
object Label2: TLabel [3]
|
||||
Left = 22
|
||||
Top = 442
|
||||
Top = 469
|
||||
Width = 324
|
||||
Height = 39
|
||||
Margins.Bottom = 0
|
||||
@ -44,9 +34,9 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
'or e-mail.'
|
||||
WordWrap = True
|
||||
end
|
||||
object PngSpeedButton4: TPngSpeedButton [5]
|
||||
Left = 528
|
||||
Top = 487
|
||||
object PngSpeedButton4: TPngSpeedButton [4]
|
||||
Left = 235
|
||||
Top = 514
|
||||
Width = 23
|
||||
Height = 22
|
||||
Action = actMandarCorreoTrabajo
|
||||
@ -69,6 +59,16 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
AE426082}
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
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
|
||||
Left = 134
|
||||
Top = 277
|
||||
@ -197,7 +197,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
object eMailAdministracion: TcxDBHyperLinkEdit [13]
|
||||
Left = 134
|
||||
Top = 487
|
||||
Top = 514
|
||||
DataBinding.DataField = 'EMAIL_ADMINISTRACION'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Properties.OnEditValueChanged = eMailAdministracionPropertiesEditValueChanged
|
||||
@ -214,7 +214,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 15
|
||||
TabOrder = 16
|
||||
Width = 186
|
||||
end
|
||||
object eCodigoAsignado: TcxDBTextEdit [14]
|
||||
@ -237,29 +237,29 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
Width = 330
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 486
|
||||
Left = 193
|
||||
Top = 304
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 11
|
||||
ExplicitLeft = 486
|
||||
ExplicitLeft = 193
|
||||
ExplicitTop = 304
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 545
|
||||
Top = 572
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 24
|
||||
ExplicitTop = 545
|
||||
ExplicitHeight = 55
|
||||
Height = 55
|
||||
TabOrder = 25
|
||||
ExplicitTop = 572
|
||||
ExplicitHeight = 35
|
||||
Height = 35
|
||||
end
|
||||
object cxDBCheckBox3: TcxDBCheckBox [17]
|
||||
Left = 468
|
||||
Left = 175
|
||||
Top = 136
|
||||
Caption = 'Subcontrata'
|
||||
DataBinding.DataField = 'SUBCONTRATA'
|
||||
@ -282,9 +282,154 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
TabOrder = 6
|
||||
Width = 83
|
||||
end
|
||||
object cxDBCheckBox1: TcxDBCheckBox [18]
|
||||
Left = 569
|
||||
Top = 294
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 383
|
||||
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'
|
||||
DataBinding.DataField = 'TIENDA_WEB'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -304,154 +449,9 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 23
|
||||
TabOrder = 24
|
||||
Width = 236
|
||||
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 dxLayoutControlContactoGroup9: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
|
||||
@ -506,13 +506,6 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
|
||||
object dxLayoutControlContactoItem27: TdxLayoutItem [3]
|
||||
Caption = 'Pa'#237's:'
|
||||
Control = ePais
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControlContactoGroup24: TdxLayoutGroup
|
||||
Caption = 'Correo electr'#243'nico de administraci'#243'n'
|
||||
object dxLayoutControlContactoItem33: TdxLayoutItem
|
||||
@ -549,17 +542,17 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControlContactoItem19: TdxLayoutItem
|
||||
object dxLayoutControlContactoItem27: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = cxDBCheckBox1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem28: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = Label1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem16: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = cxDBCheckBox1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -8,7 +8,8 @@ uses
|
||||
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
|
||||
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
|
||||
Buttons, PngSpeedButton, StdCtrls, cxCheckBox, cxGraphics, cxDropDownEdit,
|
||||
uGruposProveedorController, uDAInterfaces;
|
||||
uGruposProveedorController, uDAInterfaces, cxLookupEdit, cxDBLookupEdit,
|
||||
cxDBLookupComboBox;
|
||||
|
||||
type
|
||||
IViewProveedor = interface(IViewContacto)
|
||||
@ -30,17 +31,15 @@ type
|
||||
dxLayoutControlContactoItem26: TdxLayoutItem;
|
||||
cxDBCheckBox3: TcxDBCheckBox;
|
||||
dxLayoutControlContactoGroup15: TdxLayoutGroup;
|
||||
dxLayoutControlContactoItem16: TdxLayoutItem;
|
||||
cxDBCheckBox1: TcxDBCheckBox;
|
||||
dxLayoutControlContactoItem19: TdxLayoutItem;
|
||||
Label1: TLabel;
|
||||
|
||||
Label2: TLabel;
|
||||
eMailAdministracion: TcxDBHyperLinkEdit;
|
||||
PngSpeedButton4: TPngSpeedButton;
|
||||
actMandarCorreoAdministrativo: TAction;
|
||||
dxLayoutControlContactoItem27: TdxLayoutItem;
|
||||
ePais: TcxDBTextEdit;
|
||||
cxDBCheckBox1: TcxDBCheckBox;
|
||||
dxLayoutControlContactoItem28: TdxLayoutItem;
|
||||
Label1: TLabel;
|
||||
procedure actMandarCorreoAdministrativoExecute(Sender: TObject);
|
||||
procedure actMandarCorreoAdministrativoUpdate(Sender: TObject);
|
||||
procedure eMailAdministracionPropertiesEditValueChanged(Sender: TObject);
|
||||
|
||||
@ -1267,6 +1267,7 @@ var
|
||||
ADiasMas: Integer;
|
||||
BSemaforo: Boolean;
|
||||
AImporteTotal: Double;
|
||||
AImporteAcumulado : Double;
|
||||
|
||||
begin
|
||||
if not Assigned(AFactura) then
|
||||
@ -1294,6 +1295,7 @@ begin
|
||||
With AFormaPago.Plazos.DataTable do
|
||||
begin
|
||||
i := 1;
|
||||
AImporteAcumulado := 0;
|
||||
First;
|
||||
repeat
|
||||
ARecibos := ARecibosClienteController.Nuevo;
|
||||
@ -1306,6 +1308,7 @@ begin
|
||||
begin
|
||||
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
|
||||
ARecibos.IMPORTE := AImporteTotal;
|
||||
AImporteAcumulado := AImporteAcumulado + ARecibos.IMPORTE;
|
||||
end
|
||||
else
|
||||
begin
|
||||
@ -1344,7 +1347,17 @@ begin
|
||||
end;
|
||||
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);
|
||||
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;
|
||||
|
||||
if (AFactura.TIPO = CTE_TIPO_FACTURA) then
|
||||
|
||||
@ -288,6 +288,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,10 +9,10 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturas = '{158AF0A8-C3A4-40EB-A097-56E8ECC2C1E9}';
|
||||
RID_FacturasCliente = '{C2F2E897-305A-4B9F-8161-EE9547B005CC}';
|
||||
RID_FacturasCliente_Detalles = '{5BA594FB-120B-4024-B0C2-7F65FDE424AF}';
|
||||
RID_FacturasClienteDeAlbaran = '{FDAE579B-A63B-4212-A664-EC212398429E}';
|
||||
RID_ListaAnosFacturas = '{6464C43C-D41E-4702-BE3D-00E3AD993A8F}';
|
||||
RID_FacturasCliente = '{A5D73F73-E266-432C-9410-3F993A3E9275}';
|
||||
RID_FacturasCliente_Detalles = '{8FEC9095-3334-4400-9F3D-B3CF200B0AC9}';
|
||||
RID_FacturasClienteDeAlbaran = '{D4867ECE-B4F0-491D-A7FE-FB2487A2FC0A}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
||||
@ -71,6 +71,7 @@ const
|
||||
fld_FacturasClienteNUM_COPIAS = 'NUM_COPIAS';
|
||||
fld_FacturasClienteNUM_CORREOS = 'NUM_CORREOS';
|
||||
fld_FacturasClienteID_ALBARAN = 'ID_ALBARAN';
|
||||
fld_FacturasClientePAIS = 'PAIS';
|
||||
|
||||
{ FacturasCliente field indexes }
|
||||
idx_FacturasClienteID = 0;
|
||||
@ -117,6 +118,7 @@ const
|
||||
idx_FacturasClienteNUM_COPIAS = 41;
|
||||
idx_FacturasClienteNUM_CORREOS = 42;
|
||||
idx_FacturasClienteID_ALBARAN = 43;
|
||||
idx_FacturasClientePAIS = 44;
|
||||
|
||||
{ FacturasCliente_Detalles fields }
|
||||
fld_FacturasCliente_DetallesID = 'ID';
|
||||
@ -247,7 +249,7 @@ const
|
||||
type
|
||||
{ IListaAnosFacturas }
|
||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||
['{BA4155F6-0B4F-4E7C-ADE7-D433F75CC46D}']
|
||||
['{C80A5F15-8C2B-44B8-ADE6-45178C1874DA}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -282,7 +284,7 @@ type
|
||||
|
||||
{ IFacturasCliente }
|
||||
IFacturasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{DFFD561A-D78E-424E-8764-F596F7292FE7}']
|
||||
['{E362AA1E-2094-47CB-8BB6-DBA30D8FE86F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -459,6 +461,10 @@ type
|
||||
procedure SetID_ALBARANValue(const aValue: String);
|
||||
function GetID_ALBARANIsNull: Boolean;
|
||||
procedure SetID_ALBARANIsNull(const aValue: Boolean);
|
||||
function GetPAISValue: String;
|
||||
procedure SetPAISValue(const aValue: String);
|
||||
function GetPAISIsNull: Boolean;
|
||||
procedure SetPAISIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -550,6 +556,8 @@ type
|
||||
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
|
||||
property ID_ALBARAN: String read GetID_ALBARANValue write SetID_ALBARANValue;
|
||||
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;
|
||||
|
||||
{ TFacturasClienteDataTableRules }
|
||||
@ -734,6 +742,10 @@ type
|
||||
procedure SetID_ALBARANValue(const aValue: String); virtual;
|
||||
function GetID_ALBARANIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -824,6 +836,8 @@ type
|
||||
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
|
||||
property ID_ALBARAN: String read GetID_ALBARANValue write SetID_ALBARANValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -833,7 +847,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Detalles }
|
||||
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{585F3BF9-FF9E-4820-B78A-7C26822085AD}']
|
||||
['{8D90FFD2-DC7F-47B8-A135-95E518144895}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1036,7 +1050,7 @@ type
|
||||
|
||||
{ IFacturasClienteDeAlbaran }
|
||||
IFacturasClienteDeAlbaran = interface(IDAStronglyTypedDataTable)
|
||||
['{B1A3161C-8DDD-48DE-B171-9CC6B57F00C1}']
|
||||
['{5CCCE1E1-44D0-42EA-AB42-710BDEC93D50}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2564,6 +2578,27 @@ begin
|
||||
DataTable.Fields[idx_FacturasClienteID_ALBARAN].AsVariant := Null;
|
||||
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 }
|
||||
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,15 +9,15 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturasDelta = '{1D5899EA-EF29-453E-888B-650EBE24A0DE}';
|
||||
RID_FacturasClienteDelta = '{29AB02C4-5FDD-41C9-8FFF-CAD3DDB27D1B}';
|
||||
RID_FacturasCliente_DetallesDelta = '{1596313B-2A40-4DAB-8C48-2674F04AE51B}';
|
||||
RID_FacturasClienteDeAlbaranDelta = '{5B4F4ED1-D5F8-4F29-AB3C-89D0592C8360}';
|
||||
RID_ListaAnosFacturasDelta = '{2E8D1188-764C-466A-B408-068244CC9C98}';
|
||||
RID_FacturasClienteDelta = '{94A24AA8-418C-491F-BF5F-ABD52B147760}';
|
||||
RID_FacturasCliente_DetallesDelta = '{D846509F-6943-4DA5-82A6-BD02C2519385}';
|
||||
RID_FacturasClienteDeAlbaranDelta = '{5943336E-2EF5-4713-B44A-ED5CD0466FE0}';
|
||||
|
||||
type
|
||||
{ IListaAnosFacturasDelta }
|
||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||
['{1D5899EA-EF29-453E-888B-650EBE24A0DE}']
|
||||
['{2E8D1188-764C-466A-B408-068244CC9C98}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -51,7 +51,7 @@ type
|
||||
|
||||
{ IFacturasClienteDelta }
|
||||
IFacturasClienteDelta = interface(IFacturasCliente)
|
||||
['{29AB02C4-5FDD-41C9-8FFF-CAD3DDB27D1B}']
|
||||
['{94A24AA8-418C-491F-BF5F-ABD52B147760}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -97,6 +97,7 @@ type
|
||||
function GetOldNUM_COPIASValue : SmallInt;
|
||||
function GetOldNUM_CORREOSValue : SmallInt;
|
||||
function GetOldID_ALBARANValue : String;
|
||||
function GetOldPAISValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -143,6 +144,7 @@ type
|
||||
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
|
||||
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
|
||||
property OldID_ALBARAN : String read GetOldID_ALBARANValue;
|
||||
property OldPAIS : String read GetOldPAISValue;
|
||||
end;
|
||||
|
||||
{ TFacturasClienteBusinessProcessorRules }
|
||||
@ -415,6 +417,12 @@ type
|
||||
function GetOldID_ALBARANIsNull: Boolean; virtual;
|
||||
procedure SetID_ALBARANValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -593,6 +601,10 @@ type
|
||||
property ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
|
||||
property OldID_ALBARAN : String read GetOldID_ALBARANValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -602,7 +614,7 @@ type
|
||||
|
||||
{ IFacturasCliente_DetallesDelta }
|
||||
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
|
||||
['{1596313B-2A40-4DAB-8C48-2674F04AE51B}']
|
||||
['{D846509F-6943-4DA5-82A6-BD02C2519385}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -804,7 +816,7 @@ type
|
||||
|
||||
{ IFacturasClienteDeAlbaranDelta }
|
||||
IFacturasClienteDeAlbaranDelta = interface(IFacturasClienteDeAlbaran)
|
||||
['{5B4F4ED1-D5F8-4F29-AB3C-89D0592C8360}']
|
||||
['{5943336E-2EF5-4713-B44A-ED5CD0466FE0}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -2784,6 +2796,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_ALBARAN] := Null;
|
||||
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 }
|
||||
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -321,6 +321,7 @@ begin
|
||||
CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
|
||||
PROVINCIA := FCliente.PROVINCIA;
|
||||
POBLACION := FCliente.POBLACION;
|
||||
PAIS := FCliente.PAIS;
|
||||
if FCliente.ID_FORMA_PAGO > 0 then
|
||||
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
|
||||
if FCliente.ID_TIPO_IVA > 0 then
|
||||
|
||||
@ -626,11 +626,13 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
' PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPR' +
|
||||
'ESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EM' +
|
||||
'PRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCA' +
|
||||
'NTIL, EMPRESAS.LOGOTIPO'#10#10'FROM FACTURAS_CLIENTE'#10#10'LEFT JOIN EMPRES' +
|
||||
'AS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_' +
|
||||
'PAGO.ID = FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DA' +
|
||||
'TOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = FACTURAS_CLIEN' +
|
||||
'TE.ID_CLIENTE)'#10#10'WHERE FACTURAS_CLIENTE.ID = :ID'#10#10
|
||||
'NTIL, EMPRESAS.LOGOTIPO,'#10' CONTACTOS.IDIOMA_ISO,'#10' FACTURAS_' +
|
||||
'CLIENTE.PAIS'#10#10'FROM FACTURAS_CLIENTE'#10#10'LEFT JOIN EMPRESAS ON EMPRE' +
|
||||
'SAS.ID = ID_EMPRESA'#10'LEFT JOIN CONTACTOS ON CONTACTOS.ID = ID_CLI' +
|
||||
'ENTE'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = FACTURAS_CLIENTE' +
|
||||
'.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
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -792,6 +794,14 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
DatasetField = 'LOGOTIPO'
|
||||
TableField = 'LOGOTIPO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IDIOMA_ISO'
|
||||
TableField = 'IDIOMA_ISO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PAIS'
|
||||
TableField = 'PAIS'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeFacturasCliente'
|
||||
@ -1000,6 +1010,16 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
Name = 'LOGOTIPO'
|
||||
DataType = datBlob
|
||||
end
|
||||
item
|
||||
Name = 'IDIOMA_ISO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
ReadOnly = True
|
||||
end
|
||||
@ -3965,6 +3985,16 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
Name = 'LOGOTIPO'
|
||||
DataType = datBlob
|
||||
end
|
||||
item
|
||||
Name = 'IDIOMA_ISO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
@ -4022,7 +4052,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.LastChange = 41474.500467106500000000
|
||||
ReportOptions.LastChange = 41807.760751527780000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
@ -4030,6 +4060,8 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
|
||||
'var'
|
||||
' ACadena : String; '
|
||||
'begin'
|
||||
' DatosCliente.Lines.Clear;'
|
||||
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
|
||||
@ -4040,8 +4072,14 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' +
|
||||
' '#39' + <frxDBCabecera."POBLACION">);'
|
||||
''
|
||||
' ACadena := '#39#39';'
|
||||
' 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;'
|
||||
''
|
||||
'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
|
||||
@ -4052,8 +4090,8 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
' MemCantidad.Style := '#39'Concepto normal'#39';'
|
||||
' MemImpTotal.Style := '#39'Concepto normal'#39';'
|
||||
' RichConcepto.Visible := True;'
|
||||
' MemImpTotal.HideZeros := True;'
|
||||
' '
|
||||
' MemImpTotal.HideZeros := True; '
|
||||
''
|
||||
' case <frxDBDetalles."TIPO_DETALLE"> of'
|
||||
' '#39'Salto'#39': begin'
|
||||
' BandaDetalles.StartNewPage := True;'
|
||||
@ -4073,9 +4111,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
' MemPrecio.Style := '#39'Concepto subtotal'#39';'
|
||||
' MemCantidad.Style := '#39'Concepto subtotal'#39';'
|
||||
' MemImpTotal.Style := '#39'Concepto subtotal'#39';'
|
||||
|
||||
' MemImpTotal.HideZeros := False; ' +
|
||||
' '
|
||||
' MemImpTotal.HideZeros := False; '
|
||||
' end;'
|
||||
' '#39'Descuento'#39': begin'
|
||||
' BandaDetalles.Visible := False;'
|
||||
@ -4094,46 +4130,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
'.Height - 1;'
|
||||
'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);'
|
||||
'begin'
|
||||
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
|
||||
@ -4141,20 +4137,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
' Memo21.Lines.Clear;'
|
||||
' Memo29.Lines.Clear;'
|
||||
' 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;'
|
||||
''
|
||||
'procedure Band2OnBeforePrint(Sender: TfrxComponent);'
|
||||
@ -4172,38 +4154,20 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
' Set('#39'TotalPaginas'#39', 0);'
|
||||
'end;'
|
||||
''
|
||||
'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'procedure Overlay1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if <ShowLogotipo> then'
|
||||
' begin '
|
||||
' Picture1.Visible := True; '
|
||||
'// Picture2.Visible := True; '
|
||||
'// Picture3.Visible := True; '
|
||||
'// Picture4.Visible := True; '
|
||||
'// Picture5.Visible := True; '
|
||||
'// Picture6.Visible := True; '
|
||||
' Memo12.Visible := True;'
|
||||
' begin'
|
||||
|
||||
' Memo14.Visible := True; ' +
|
||||
' '
|
||||
' Overlay1.Visible := True; ' +
|
||||
' '
|
||||
' end'
|
||||
' else'
|
||||
' begin '
|
||||
' Picture1.Visible := False;'
|
||||
'// Picture2.Visible := False;'
|
||||
'// Picture3.Visible := False;'
|
||||
'// Picture4.Visible := False;'
|
||||
'// Picture5.Visible := False;'
|
||||
'// Picture6.Visible := False;'
|
||||
' Memo12.Visible := False;'
|
||||
|
||||
' Memo14.Visible := False; ' +
|
||||
' '
|
||||
' end'
|
||||
' Overlay1.Visible := False; '
|
||||
' end '
|
||||
'end;'
|
||||
''
|
||||
''
|
||||
''
|
||||
'begin'
|
||||
''
|
||||
'end.')
|
||||
|
||||
@ -1065,7 +1065,7 @@ begin
|
||||
tbl_Detalles.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
|
||||
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente));
|
||||
|
||||
|
||||
@ -223,6 +223,10 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
DatasetField = 'ID_ALBARAN'
|
||||
TableField = 'ID_ALBARAN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PAIS'
|
||||
TableField = 'PAIS'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasCliente'
|
||||
@ -455,6 +459,11 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1433,6 +1442,12 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Name = 'IMPORTE_RETENCION'
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1450,17 +1465,18 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
'CHA_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQ' +
|
||||
'UIVALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE' +
|
||||
','#10' DATOS_BANCARIOS,'#10' CLIENTE_FINAL,'#10' RETENCION,'#10' IMP' +
|
||||
'ORTE_RETENCION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERE' +
|
||||
'NCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :FECHA_RET' +
|
||||
'ENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUE' +
|
||||
'NTO,'#10' :DESCRIPCION_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' ' +
|
||||
' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' ' +
|
||||
' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' ' +
|
||||
' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' ' +
|
||||
' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FO' +
|
||||
'RMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPO' +
|
||||
'RTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIENTE' +
|
||||
'_FINAL,'#10' :RETENCION,'#10' :IMPORTE_RETENCION);'#10
|
||||
'ORTE_RETENCION,'#10' PAIS)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' ' +
|
||||
' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' ' +
|
||||
':FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPO' +
|
||||
'RTE_DESCUENTO,'#10' :DESCRIPCION_DESCUENTO,'#10' :IVA,'#10' :IMPORT' +
|
||||
'E_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERV' +
|
||||
'ACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIR' +
|
||||
'ECCION,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_' +
|
||||
'POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10 +
|
||||
' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,' +
|
||||
#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' ' +
|
||||
' :CLIENTE_FINAL,'#10' :RETENCION,'#10' :IMPORTE_RETENCION,'#10' :P' +
|
||||
'AIS);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1654,6 +1670,12 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
DataType = datCurrency
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1681,8 +1703,8 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
'= :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PO' +
|
||||
'RTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_BANCARIOS,'#10' ' +
|
||||
' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :RETENCION,'#10' ' +
|
||||
' IMPORTE_RETENCION = :IMPORTE_RETENCION'#10' WHERE'#10' (ID = :OLD_ID' +
|
||||
');'#10
|
||||
' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' PAIS = :PAIS'#10' WHE' +
|
||||
'RE'#10' (ID = :OLD_ID);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -17,8 +17,6 @@ inherited frViewDatosYSeleccionClienteFacturaCliente: TfrViewDatosYSeleccionClie
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 505
|
||||
ExplicitHeight = 186
|
||||
DesignSize = (
|
||||
467
|
||||
234)
|
||||
|
||||
@ -187,6 +187,7 @@ begin
|
||||
FFactura.POBLACION := FDireccion.POBLACION;
|
||||
FFactura.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
|
||||
FFactura.PROVINCIA := FDireccion.PROVINCIA;
|
||||
FFactura.PAIS := FDireccion.PAIS;
|
||||
|
||||
FFactura.IMPORTE_PORTE := FDireccion.PORTE;
|
||||
end;
|
||||
@ -251,9 +252,9 @@ begin
|
||||
ACadena := '';
|
||||
|
||||
if Assigned(FDireccion) then
|
||||
ACadena := Format('%s %s %s %s',
|
||||
ACadena := Format('%s %s %s %s %s',
|
||||
[FFactura.CALLE, FFactura.POBLACION,
|
||||
FFactura.CODIGO_POSTAL, FFactura.PROVINCIA]);
|
||||
FFactura.CODIGO_POSTAL, FFactura.PROVINCIA, FFactura.PAIS]);
|
||||
|
||||
edtDireccion.Text := ACadena;
|
||||
end;
|
||||
@ -313,6 +314,7 @@ begin
|
||||
FFactura.ClearField('POBLACION');
|
||||
FFactura.ClearField('CODIGO_POSTAL');
|
||||
FFactura.ClearField('PROVINCIA');
|
||||
FFactura.ClearField('PAIS');
|
||||
FFactura.ClearField('IMPORTE_PORTE');
|
||||
end;
|
||||
|
||||
|
||||
@ -247,30 +247,36 @@ inherited DataModuleFacturasProforma: TDataModuleFacturasProforma
|
||||
DisplayLabel = 'FacturasProforma_DATOS_BANCARIOS'
|
||||
DictionaryEntry = 'FacturasProforma_DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'FacturasProforma_ID_PEDIDO'
|
||||
DictionaryEntry = 'FacturasProforma_ID_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PEDIDO_CLIENTE'
|
||||
Name = 'REF_PRE_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_DEL_CLIENTE'
|
||||
Name = 'REF_PRE_DEL_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA_FINAL'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'FacturasProforma_ID_FACTURA_FINAL'
|
||||
DictionaryEntry = 'FacturasProforma_ID_FACTURA_FINAL'
|
||||
Name = 'REF_PED_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_FACTURA_FINAL'
|
||||
Name = 'REF_PED_DEL_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
|
||||
@ -19,6 +19,8 @@
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.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="Controller\FacturasProforma_controller.dproj" />
|
||||
<Projects Include="Data\FacturasProforma_data.dproj" />
|
||||
@ -221,14 +223,32 @@
|
||||
<Target Name="PedidosCliente_view:Make">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
|
||||
</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">
|
||||
<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 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 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>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturas = '{6ABA008D-4E27-4110-A22A-B4BDFF577548}';
|
||||
RID_FacturasProforma = '{2F1B80A0-CF55-49A8-8B2B-9801332B05EC}';
|
||||
RID_FacturasProforma_Detalles = '{23C2166C-8FBB-4EEC-A206-FEB0089D74DC}';
|
||||
RID_ListaAnosFacturas = '{31F8BCB0-2BC6-4297-8F45-C4B217F56AAE}';
|
||||
RID_FacturasProforma = '{2D2B0415-8CD2-4555-86D9-AF79E9D1F1FB}';
|
||||
RID_FacturasProforma_Detalles = '{2DD39878-271E-4EB0-B8AB-A42D50E7B4F4}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosFacturas = 'ListaAnosFacturas';
|
||||
@ -60,11 +60,13 @@ const
|
||||
fld_FacturasProformaNUM_COPIAS = 'NUM_COPIAS';
|
||||
fld_FacturasProformaNUM_CORREOS = 'NUM_CORREOS';
|
||||
fld_FacturasProformaDATOS_BANCARIOS = 'DATOS_BANCARIOS';
|
||||
fld_FacturasProformaID_PRESUPUESTO = 'ID_PRESUPUESTO';
|
||||
fld_FacturasProformaID_PEDIDO = 'ID_PEDIDO';
|
||||
fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE = 'REFERENCIA_PEDIDO_CLIENTE';
|
||||
fld_FacturasProformaREFERENCIA_DEL_CLIENTE = 'REFERENCIA_DEL_CLIENTE';
|
||||
fld_FacturasProformaID_FACTURA_FINAL = 'ID_FACTURA_FINAL';
|
||||
fld_FacturasProformaREFERENCIA_FACTURA_FINAL = 'REFERENCIA_FACTURA_FINAL';
|
||||
fld_FacturasProformaREF_PRE_CLIENTE = 'REF_PRE_CLIENTE';
|
||||
fld_FacturasProformaREF_PRE_DEL_CLIENTE = 'REF_PRE_DEL_CLIENTE';
|
||||
fld_FacturasProformaREF_PED_CLIENTE = 'REF_PED_CLIENTE';
|
||||
fld_FacturasProformaREF_PED_DEL_CLIENTE = 'REF_PED_DEL_CLIENTE';
|
||||
fld_FacturasProformaPAIS = 'PAIS';
|
||||
|
||||
{ FacturasProforma field indexes }
|
||||
idx_FacturasProformaID = 0;
|
||||
@ -102,11 +104,13 @@ const
|
||||
idx_FacturasProformaNUM_COPIAS = 32;
|
||||
idx_FacturasProformaNUM_CORREOS = 33;
|
||||
idx_FacturasProformaDATOS_BANCARIOS = 34;
|
||||
idx_FacturasProformaID_PEDIDO = 35;
|
||||
idx_FacturasProformaREFERENCIA_PEDIDO_CLIENTE = 36;
|
||||
idx_FacturasProformaREFERENCIA_DEL_CLIENTE = 37;
|
||||
idx_FacturasProformaID_FACTURA_FINAL = 38;
|
||||
idx_FacturasProformaREFERENCIA_FACTURA_FINAL = 39;
|
||||
idx_FacturasProformaID_PRESUPUESTO = 35;
|
||||
idx_FacturasProformaID_PEDIDO = 36;
|
||||
idx_FacturasProformaREF_PRE_CLIENTE = 37;
|
||||
idx_FacturasProformaREF_PRE_DEL_CLIENTE = 38;
|
||||
idx_FacturasProformaREF_PED_CLIENTE = 39;
|
||||
idx_FacturasProformaREF_PED_DEL_CLIENTE = 40;
|
||||
idx_FacturasProformaPAIS = 41;
|
||||
|
||||
{ FacturasProforma_Detalles fields }
|
||||
fld_FacturasProforma_DetallesID = 'ID';
|
||||
@ -145,7 +149,7 @@ const
|
||||
type
|
||||
{ IListaAnosFacturas }
|
||||
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
|
||||
['{5D8535C3-D8CF-446F-B6DF-02127DD9F379}']
|
||||
['{9CA99185-FDE8-41CF-A326-883134732D83}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -180,7 +184,7 @@ type
|
||||
|
||||
{ IFacturasProforma }
|
||||
IFacturasProforma = interface(IDAStronglyTypedDataTable)
|
||||
['{77B940CF-32F0-43A2-A22E-A3611F90EE9C}']
|
||||
['{2717FC1C-C9A6-47F6-BCF5-41F09A541928}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -321,26 +325,34 @@ type
|
||||
procedure SetDATOS_BANCARIOSValue(const aValue: String);
|
||||
function GetDATOS_BANCARIOSIsNull: 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;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
function GetID_PEDIDOIsNull: Boolean;
|
||||
procedure SetID_PEDIDOIsNull(const aValue: Boolean);
|
||||
function GetREFERENCIA_PEDIDO_CLIENTEValue: String;
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String);
|
||||
function GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean;
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean);
|
||||
function GetREFERENCIA_DEL_CLIENTEValue: String;
|
||||
procedure SetREFERENCIA_DEL_CLIENTEValue(const aValue: String);
|
||||
function GetREFERENCIA_DEL_CLIENTEIsNull: Boolean;
|
||||
procedure SetREFERENCIA_DEL_CLIENTEIsNull(const aValue: Boolean);
|
||||
function GetID_FACTURA_FINALValue: Integer;
|
||||
procedure SetID_FACTURA_FINALValue(const aValue: Integer);
|
||||
function GetID_FACTURA_FINALIsNull: Boolean;
|
||||
procedure SetID_FACTURA_FINALIsNull(const aValue: Boolean);
|
||||
function GetREFERENCIA_FACTURA_FINALValue: String;
|
||||
procedure SetREFERENCIA_FACTURA_FINALValue(const aValue: String);
|
||||
function GetREFERENCIA_FACTURA_FINALIsNull: Boolean;
|
||||
procedure SetREFERENCIA_FACTURA_FINALIsNull(const aValue: Boolean);
|
||||
function GetREF_PRE_CLIENTEValue: String;
|
||||
procedure SetREF_PRE_CLIENTEValue(const aValue: String);
|
||||
function GetREF_PRE_CLIENTEIsNull: Boolean;
|
||||
procedure SetREF_PRE_CLIENTEIsNull(const aValue: Boolean);
|
||||
function GetREF_PRE_DEL_CLIENTEValue: String;
|
||||
procedure SetREF_PRE_DEL_CLIENTEValue(const aValue: String);
|
||||
function GetREF_PRE_DEL_CLIENTEIsNull: Boolean;
|
||||
procedure SetREF_PRE_DEL_CLIENTEIsNull(const aValue: Boolean);
|
||||
function GetREF_PED_CLIENTEValue: String;
|
||||
procedure SetREF_PED_CLIENTEValue(const aValue: String);
|
||||
function GetREF_PED_CLIENTEIsNull: Boolean;
|
||||
procedure SetREF_PED_CLIENTEIsNull(const aValue: Boolean);
|
||||
function GetREF_PED_DEL_CLIENTEValue: String;
|
||||
procedure SetREF_PED_DEL_CLIENTEValue(const aValue: String);
|
||||
function GetREF_PED_DEL_CLIENTEIsNull: 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 }
|
||||
@ -414,16 +426,20 @@ type
|
||||
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
|
||||
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
|
||||
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_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property REFERENCIA_PEDIDO_CLIENTE: String read GetREFERENCIA_PEDIDO_CLIENTEValue write SetREFERENCIA_PEDIDO_CLIENTEValue;
|
||||
property REFERENCIA_PEDIDO_CLIENTEIsNull: Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull;
|
||||
property REFERENCIA_DEL_CLIENTE: String read GetREFERENCIA_DEL_CLIENTEValue write SetREFERENCIA_DEL_CLIENTEValue;
|
||||
property REFERENCIA_DEL_CLIENTEIsNull: Boolean read GetREFERENCIA_DEL_CLIENTEIsNull write SetREFERENCIA_DEL_CLIENTEIsNull;
|
||||
property ID_FACTURA_FINAL: Integer read GetID_FACTURA_FINALValue write SetID_FACTURA_FINALValue;
|
||||
property ID_FACTURA_FINALIsNull: Boolean read GetID_FACTURA_FINALIsNull write SetID_FACTURA_FINALIsNull;
|
||||
property REFERENCIA_FACTURA_FINAL: String read GetREFERENCIA_FACTURA_FINALValue write SetREFERENCIA_FACTURA_FINALValue;
|
||||
property REFERENCIA_FACTURA_FINALIsNull: Boolean read GetREFERENCIA_FACTURA_FINALIsNull write SetREFERENCIA_FACTURA_FINALIsNull;
|
||||
property REF_PRE_CLIENTE: String read GetREF_PRE_CLIENTEValue write SetREF_PRE_CLIENTEValue;
|
||||
property REF_PRE_CLIENTEIsNull: Boolean read GetREF_PRE_CLIENTEIsNull write SetREF_PRE_CLIENTEIsNull;
|
||||
property REF_PRE_DEL_CLIENTE: String read GetREF_PRE_DEL_CLIENTEValue write SetREF_PRE_DEL_CLIENTEValue;
|
||||
property REF_PRE_DEL_CLIENTEIsNull: Boolean read GetREF_PRE_DEL_CLIENTEIsNull write SetREF_PRE_DEL_CLIENTEIsNull;
|
||||
property REF_PED_CLIENTE: String read GetREF_PED_CLIENTEValue write SetREF_PED_CLIENTEValue;
|
||||
property REF_PED_CLIENTEIsNull: Boolean read GetREF_PED_CLIENTEIsNull write SetREF_PED_CLIENTEIsNull;
|
||||
property REF_PED_DEL_CLIENTE: String read GetREF_PED_DEL_CLIENTEValue write SetREF_PED_DEL_CLIENTEValue;
|
||||
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;
|
||||
|
||||
{ TFacturasProformaDataTableRules }
|
||||
@ -572,26 +588,34 @@ type
|
||||
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
|
||||
function GetDATOS_BANCARIOSIsNull: 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;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
|
||||
function GetID_PEDIDOIsNull: Boolean; virtual;
|
||||
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIA_PEDIDO_CLIENTEValue: String; virtual;
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIA_DEL_CLIENTEValue: String; virtual;
|
||||
procedure SetREFERENCIA_DEL_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_DEL_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_DEL_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_FACTURA_FINALValue: Integer; virtual;
|
||||
procedure SetID_FACTURA_FINALValue(const aValue: Integer); virtual;
|
||||
function GetID_FACTURA_FINALIsNull: Boolean; virtual;
|
||||
procedure SetID_FACTURA_FINALIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIA_FACTURA_FINALValue: String; virtual;
|
||||
procedure SetREFERENCIA_FACTURA_FINALValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_FACTURA_FINALIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_FACTURA_FINALIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_PRE_CLIENTEValue: String; virtual;
|
||||
procedure SetREF_PRE_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetREF_PRE_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREF_PRE_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_PRE_DEL_CLIENTEValue: String; virtual;
|
||||
procedure SetREF_PRE_DEL_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetREF_PRE_DEL_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREF_PRE_DEL_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_PED_CLIENTEValue: String; virtual;
|
||||
procedure SetREF_PED_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetREF_PED_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREF_PED_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_PED_DEL_CLIENTEValue: String; virtual;
|
||||
procedure SetREF_PED_DEL_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetREF_PED_DEL_CLIENTEIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -664,16 +688,20 @@ type
|
||||
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
|
||||
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
|
||||
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_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property REFERENCIA_PEDIDO_CLIENTE: String read GetREFERENCIA_PEDIDO_CLIENTEValue write SetREFERENCIA_PEDIDO_CLIENTEValue;
|
||||
property REFERENCIA_PEDIDO_CLIENTEIsNull: Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull;
|
||||
property REFERENCIA_DEL_CLIENTE: String read GetREFERENCIA_DEL_CLIENTEValue write SetREFERENCIA_DEL_CLIENTEValue;
|
||||
property REFERENCIA_DEL_CLIENTEIsNull: Boolean read GetREFERENCIA_DEL_CLIENTEIsNull write SetREFERENCIA_DEL_CLIENTEIsNull;
|
||||
property ID_FACTURA_FINAL: Integer read GetID_FACTURA_FINALValue write SetID_FACTURA_FINALValue;
|
||||
property ID_FACTURA_FINALIsNull: Boolean read GetID_FACTURA_FINALIsNull write SetID_FACTURA_FINALIsNull;
|
||||
property REFERENCIA_FACTURA_FINAL: String read GetREFERENCIA_FACTURA_FINALValue write SetREFERENCIA_FACTURA_FINALValue;
|
||||
property REFERENCIA_FACTURA_FINALIsNull: Boolean read GetREFERENCIA_FACTURA_FINALIsNull write SetREFERENCIA_FACTURA_FINALIsNull;
|
||||
property REF_PRE_CLIENTE: String read GetREF_PRE_CLIENTEValue write SetREF_PRE_CLIENTEValue;
|
||||
property REF_PRE_CLIENTEIsNull: Boolean read GetREF_PRE_CLIENTEIsNull write SetREF_PRE_CLIENTEIsNull;
|
||||
property REF_PRE_DEL_CLIENTE: String read GetREF_PRE_DEL_CLIENTEValue write SetREF_PRE_DEL_CLIENTEValue;
|
||||
property REF_PRE_DEL_CLIENTEIsNull: Boolean read GetREF_PRE_DEL_CLIENTEIsNull write SetREF_PRE_DEL_CLIENTEIsNull;
|
||||
property REF_PED_CLIENTE: String read GetREF_PED_CLIENTEValue write SetREF_PED_CLIENTEValue;
|
||||
property REF_PED_CLIENTEIsNull: Boolean read GetREF_PED_CLIENTEIsNull write SetREF_PED_CLIENTEIsNull;
|
||||
property REF_PED_DEL_CLIENTE: String read GetREF_PED_DEL_CLIENTEValue write SetREF_PED_DEL_CLIENTEValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -683,7 +711,7 @@ type
|
||||
|
||||
{ IFacturasProforma_Detalles }
|
||||
IFacturasProforma_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{3A9B54FE-6094-4A20-A8CC-C3E186530F62}']
|
||||
['{9A004E54-50AF-4329-8CE8-609B019C6A57}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1674,6 +1702,27 @@ begin
|
||||
DataTable.Fields[idx_FacturasProformaDATOS_BANCARIOS].AsVariant := Null;
|
||||
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;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProformaID_PEDIDO].AsInteger;
|
||||
@ -1695,88 +1744,109 @@ begin
|
||||
DataTable.Fields[idx_FacturasProformaID_PEDIDO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProformaDataTableRules.GetREFERENCIA_PEDIDO_CLIENTEValue: String;
|
||||
function TFacturasProformaDataTableRules.GetREF_PRE_CLIENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_PEDIDO_CLIENTE].AsString;
|
||||
result := DataTable.Fields[idx_FacturasProformaREF_PRE_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaDataTableRules.SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String);
|
||||
procedure TFacturasProformaDataTableRules.SetREF_PRE_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasProformaREFERENCIA_PEDIDO_CLIENTE].AsString := aValue;
|
||||
DataTable.Fields[idx_FacturasProformaREF_PRE_CLIENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasProformaDataTableRules.GetREFERENCIA_PEDIDO_CLIENTEIsNull: boolean;
|
||||
function TFacturasProformaDataTableRules.GetREF_PRE_CLIENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_PEDIDO_CLIENTE].IsNull;
|
||||
result := DataTable.Fields[idx_FacturasProformaREF_PRE_CLIENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaDataTableRules.SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean);
|
||||
procedure TFacturasProformaDataTableRules.SetREF_PRE_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasProformaREFERENCIA_PEDIDO_CLIENTE].AsVariant := Null;
|
||||
DataTable.Fields[idx_FacturasProformaREF_PRE_CLIENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProformaDataTableRules.GetREFERENCIA_DEL_CLIENTEValue: String;
|
||||
function TFacturasProformaDataTableRules.GetREF_PRE_DEL_CLIENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_DEL_CLIENTE].AsString;
|
||||
result := DataTable.Fields[idx_FacturasProformaREF_PRE_DEL_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaDataTableRules.SetREFERENCIA_DEL_CLIENTEValue(const aValue: String);
|
||||
procedure TFacturasProformaDataTableRules.SetREF_PRE_DEL_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasProformaREFERENCIA_DEL_CLIENTE].AsString := aValue;
|
||||
DataTable.Fields[idx_FacturasProformaREF_PRE_DEL_CLIENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasProformaDataTableRules.GetREFERENCIA_DEL_CLIENTEIsNull: boolean;
|
||||
function TFacturasProformaDataTableRules.GetREF_PRE_DEL_CLIENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_DEL_CLIENTE].IsNull;
|
||||
result := DataTable.Fields[idx_FacturasProformaREF_PRE_DEL_CLIENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaDataTableRules.SetREFERENCIA_DEL_CLIENTEIsNull(const aValue: Boolean);
|
||||
procedure TFacturasProformaDataTableRules.SetREF_PRE_DEL_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasProformaREFERENCIA_DEL_CLIENTE].AsVariant := Null;
|
||||
DataTable.Fields[idx_FacturasProformaREF_PRE_DEL_CLIENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProformaDataTableRules.GetID_FACTURA_FINALValue: Integer;
|
||||
function TFacturasProformaDataTableRules.GetREF_PED_CLIENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProformaID_FACTURA_FINAL].AsInteger;
|
||||
result := DataTable.Fields[idx_FacturasProformaREF_PED_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaDataTableRules.SetID_FACTURA_FINALValue(const aValue: Integer);
|
||||
procedure TFacturasProformaDataTableRules.SetREF_PED_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasProformaID_FACTURA_FINAL].AsInteger := aValue;
|
||||
DataTable.Fields[idx_FacturasProformaREF_PED_CLIENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasProformaDataTableRules.GetID_FACTURA_FINALIsNull: boolean;
|
||||
function TFacturasProformaDataTableRules.GetREF_PED_CLIENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProformaID_FACTURA_FINAL].IsNull;
|
||||
result := DataTable.Fields[idx_FacturasProformaREF_PED_CLIENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaDataTableRules.SetID_FACTURA_FINALIsNull(const aValue: Boolean);
|
||||
procedure TFacturasProformaDataTableRules.SetREF_PED_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasProformaID_FACTURA_FINAL].AsVariant := Null;
|
||||
DataTable.Fields[idx_FacturasProformaREF_PED_CLIENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProformaDataTableRules.GetREFERENCIA_FACTURA_FINALValue: String;
|
||||
function TFacturasProformaDataTableRules.GetREF_PED_DEL_CLIENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_FACTURA_FINAL].AsString;
|
||||
result := DataTable.Fields[idx_FacturasProformaREF_PED_DEL_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaDataTableRules.SetREFERENCIA_FACTURA_FINALValue(const aValue: String);
|
||||
procedure TFacturasProformaDataTableRules.SetREF_PED_DEL_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasProformaREFERENCIA_FACTURA_FINAL].AsString := aValue;
|
||||
DataTable.Fields[idx_FacturasProformaREF_PED_DEL_CLIENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasProformaDataTableRules.GetREFERENCIA_FACTURA_FINALIsNull: boolean;
|
||||
function TFacturasProformaDataTableRules.GetREF_PED_DEL_CLIENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasProformaREFERENCIA_FACTURA_FINAL].IsNull;
|
||||
result := DataTable.Fields[idx_FacturasProformaREF_PED_DEL_CLIENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaDataTableRules.SetREFERENCIA_FACTURA_FINALIsNull(const aValue: Boolean);
|
||||
procedure TFacturasProformaDataTableRules.SetREF_PED_DEL_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
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;
|
||||
|
||||
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosFacturasDelta = '{B56B2864-B139-4368-9643-757950948319}';
|
||||
RID_FacturasProformaDelta = '{6517D416-A2B8-40EF-BE1A-056BBC8D08BE}';
|
||||
RID_FacturasProforma_DetallesDelta = '{88B55B8E-BF8A-49C0-B26F-6BDDDFD872DD}';
|
||||
RID_ListaAnosFacturasDelta = '{AD113743-D9AE-49D3-AEA2-12056CFA317B}';
|
||||
RID_FacturasProformaDelta = '{6961A790-8A15-45AE-BD06-5160176D59D3}';
|
||||
RID_FacturasProforma_DetallesDelta = '{6A56A056-8788-4A5F-8C3E-3517B9192B20}';
|
||||
|
||||
type
|
||||
{ IListaAnosFacturasDelta }
|
||||
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
|
||||
['{B56B2864-B139-4368-9643-757950948319}']
|
||||
['{AD113743-D9AE-49D3-AEA2-12056CFA317B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -50,7 +50,7 @@ type
|
||||
|
||||
{ IFacturasProformaDelta }
|
||||
IFacturasProformaDelta = interface(IFacturasProforma)
|
||||
['{6517D416-A2B8-40EF-BE1A-056BBC8D08BE}']
|
||||
['{6961A790-8A15-45AE-BD06-5160176D59D3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -87,11 +87,13 @@ type
|
||||
function GetOldNUM_COPIASValue : SmallInt;
|
||||
function GetOldNUM_CORREOSValue : SmallInt;
|
||||
function GetOldDATOS_BANCARIOSValue : String;
|
||||
function GetOldID_PRESUPUESTOValue : Integer;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldREFERENCIA_PEDIDO_CLIENTEValue : String;
|
||||
function GetOldREFERENCIA_DEL_CLIENTEValue : String;
|
||||
function GetOldID_FACTURA_FINALValue : Integer;
|
||||
function GetOldREFERENCIA_FACTURA_FINALValue : String;
|
||||
function GetOldREF_PRE_CLIENTEValue : String;
|
||||
function GetOldREF_PRE_DEL_CLIENTEValue : String;
|
||||
function GetOldREF_PED_CLIENTEValue : String;
|
||||
function GetOldREF_PED_DEL_CLIENTEValue : String;
|
||||
function GetOldPAISValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -129,11 +131,13 @@ type
|
||||
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
|
||||
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
|
||||
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
|
||||
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
property OldREFERENCIA_PEDIDO_CLIENTE : String read GetOldREFERENCIA_PEDIDO_CLIENTEValue;
|
||||
property OldREFERENCIA_DEL_CLIENTE : String read GetOldREFERENCIA_DEL_CLIENTEValue;
|
||||
property OldID_FACTURA_FINAL : Integer read GetOldID_FACTURA_FINALValue;
|
||||
property OldREFERENCIA_FACTURA_FINAL : String read GetOldREFERENCIA_FACTURA_FINALValue;
|
||||
property OldREF_PRE_CLIENTE : String read GetOldREF_PRE_CLIENTEValue;
|
||||
property OldREF_PRE_DEL_CLIENTE : String read GetOldREF_PRE_DEL_CLIENTEValue;
|
||||
property OldREF_PED_CLIENTE : String read GetOldREF_PED_CLIENTEValue;
|
||||
property OldREF_PED_DEL_CLIENTE : String read GetOldREF_PED_DEL_CLIENTEValue;
|
||||
property OldPAIS : String read GetOldPAISValue;
|
||||
end;
|
||||
|
||||
{ TFacturasProformaBusinessProcessorRules }
|
||||
@ -352,36 +356,48 @@ type
|
||||
function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
|
||||
procedure SetDATOS_BANCARIOSValue(const aValue: String); 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_PEDIDOIsNull: Boolean; virtual;
|
||||
function GetOldID_PEDIDOValue: Integer; virtual;
|
||||
function GetOldID_PEDIDOIsNull: Boolean; virtual;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIA_PEDIDO_CLIENTEValue: String; virtual;
|
||||
function GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldREFERENCIA_PEDIDO_CLIENTEValue: String; virtual;
|
||||
function GetOldREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String); virtual;
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIA_DEL_CLIENTEValue: String; virtual;
|
||||
function GetREFERENCIA_DEL_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldREFERENCIA_DEL_CLIENTEValue: String; virtual;
|
||||
function GetOldREFERENCIA_DEL_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_DEL_CLIENTEValue(const aValue: String); virtual;
|
||||
procedure SetREFERENCIA_DEL_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_FACTURA_FINALValue: Integer; virtual;
|
||||
function GetID_FACTURA_FINALIsNull: Boolean; virtual;
|
||||
function GetOldID_FACTURA_FINALValue: Integer; virtual;
|
||||
function GetOldID_FACTURA_FINALIsNull: Boolean; virtual;
|
||||
procedure SetID_FACTURA_FINALValue(const aValue: Integer); virtual;
|
||||
procedure SetID_FACTURA_FINALIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIA_FACTURA_FINALValue: String; virtual;
|
||||
function GetREFERENCIA_FACTURA_FINALIsNull: Boolean; virtual;
|
||||
function GetOldREFERENCIA_FACTURA_FINALValue: String; virtual;
|
||||
function GetOldREFERENCIA_FACTURA_FINALIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_FACTURA_FINALValue(const aValue: String); virtual;
|
||||
procedure SetREFERENCIA_FACTURA_FINALIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_PRE_CLIENTEValue: String; virtual;
|
||||
function GetREF_PRE_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldREF_PRE_CLIENTEValue: String; virtual;
|
||||
function GetOldREF_PRE_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREF_PRE_CLIENTEValue(const aValue: String); virtual;
|
||||
procedure SetREF_PRE_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_PRE_DEL_CLIENTEValue: String; virtual;
|
||||
function GetREF_PRE_DEL_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldREF_PRE_DEL_CLIENTEValue: String; virtual;
|
||||
function GetOldREF_PRE_DEL_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREF_PRE_DEL_CLIENTEValue(const aValue: String); virtual;
|
||||
procedure SetREF_PRE_DEL_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_PED_CLIENTEValue: String; virtual;
|
||||
function GetREF_PED_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldREF_PED_CLIENTEValue: String; virtual;
|
||||
function GetOldREF_PED_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREF_PED_CLIENTEValue(const aValue: String); virtual;
|
||||
procedure SetREF_PED_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_PED_DEL_CLIENTEValue: String; virtual;
|
||||
function GetREF_PED_DEL_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldREF_PED_DEL_CLIENTEValue: String; virtual;
|
||||
function GetOldREF_PED_DEL_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREF_PED_DEL_CLIENTEValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -524,26 +540,34 @@ type
|
||||
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
|
||||
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
|
||||
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_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
|
||||
property REFERENCIA_PEDIDO_CLIENTE : String read GetREFERENCIA_PEDIDO_CLIENTEValue write SetREFERENCIA_PEDIDO_CLIENTEValue;
|
||||
property REFERENCIA_PEDIDO_CLIENTEIsNull : Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull;
|
||||
property OldREFERENCIA_PEDIDO_CLIENTE : String read GetOldREFERENCIA_PEDIDO_CLIENTEValue;
|
||||
property OldREFERENCIA_PEDIDO_CLIENTEIsNull : Boolean read GetOldREFERENCIA_PEDIDO_CLIENTEIsNull;
|
||||
property REFERENCIA_DEL_CLIENTE : String read GetREFERENCIA_DEL_CLIENTEValue write SetREFERENCIA_DEL_CLIENTEValue;
|
||||
property REFERENCIA_DEL_CLIENTEIsNull : Boolean read GetREFERENCIA_DEL_CLIENTEIsNull write SetREFERENCIA_DEL_CLIENTEIsNull;
|
||||
property OldREFERENCIA_DEL_CLIENTE : String read GetOldREFERENCIA_DEL_CLIENTEValue;
|
||||
property OldREFERENCIA_DEL_CLIENTEIsNull : Boolean read GetOldREFERENCIA_DEL_CLIENTEIsNull;
|
||||
property ID_FACTURA_FINAL : Integer read GetID_FACTURA_FINALValue write SetID_FACTURA_FINALValue;
|
||||
property ID_FACTURA_FINALIsNull : Boolean read GetID_FACTURA_FINALIsNull write SetID_FACTURA_FINALIsNull;
|
||||
property OldID_FACTURA_FINAL : Integer read GetOldID_FACTURA_FINALValue;
|
||||
property OldID_FACTURA_FINALIsNull : Boolean read GetOldID_FACTURA_FINALIsNull;
|
||||
property REFERENCIA_FACTURA_FINAL : String read GetREFERENCIA_FACTURA_FINALValue write SetREFERENCIA_FACTURA_FINALValue;
|
||||
property REFERENCIA_FACTURA_FINALIsNull : Boolean read GetREFERENCIA_FACTURA_FINALIsNull write SetREFERENCIA_FACTURA_FINALIsNull;
|
||||
property OldREFERENCIA_FACTURA_FINAL : String read GetOldREFERENCIA_FACTURA_FINALValue;
|
||||
property OldREFERENCIA_FACTURA_FINALIsNull : Boolean read GetOldREFERENCIA_FACTURA_FINALIsNull;
|
||||
property REF_PRE_CLIENTE : String read GetREF_PRE_CLIENTEValue write SetREF_PRE_CLIENTEValue;
|
||||
property REF_PRE_CLIENTEIsNull : Boolean read GetREF_PRE_CLIENTEIsNull write SetREF_PRE_CLIENTEIsNull;
|
||||
property OldREF_PRE_CLIENTE : String read GetOldREF_PRE_CLIENTEValue;
|
||||
property OldREF_PRE_CLIENTEIsNull : Boolean read GetOldREF_PRE_CLIENTEIsNull;
|
||||
property REF_PRE_DEL_CLIENTE : String read GetREF_PRE_DEL_CLIENTEValue write SetREF_PRE_DEL_CLIENTEValue;
|
||||
property REF_PRE_DEL_CLIENTEIsNull : Boolean read GetREF_PRE_DEL_CLIENTEIsNull write SetREF_PRE_DEL_CLIENTEIsNull;
|
||||
property OldREF_PRE_DEL_CLIENTE : String read GetOldREF_PRE_DEL_CLIENTEValue;
|
||||
property OldREF_PRE_DEL_CLIENTEIsNull : Boolean read GetOldREF_PRE_DEL_CLIENTEIsNull;
|
||||
property REF_PED_CLIENTE : String read GetREF_PED_CLIENTEValue write SetREF_PED_CLIENTEValue;
|
||||
property REF_PED_CLIENTEIsNull : Boolean read GetREF_PED_CLIENTEIsNull write SetREF_PED_CLIENTEIsNull;
|
||||
property OldREF_PED_CLIENTE : String read GetOldREF_PED_CLIENTEValue;
|
||||
property OldREF_PED_CLIENTEIsNull : Boolean read GetOldREF_PED_CLIENTEIsNull;
|
||||
property REF_PED_DEL_CLIENTE : String read GetREF_PED_DEL_CLIENTEValue write SetREF_PED_DEL_CLIENTEValue;
|
||||
property REF_PED_DEL_CLIENTEIsNull : Boolean read GetREF_PED_DEL_CLIENTEIsNull write SetREF_PED_DEL_CLIENTEIsNull;
|
||||
property OldREF_PED_DEL_CLIENTE : String read GetOldREF_PED_DEL_CLIENTEValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -553,7 +577,7 @@ type
|
||||
|
||||
{ IFacturasProforma_DetallesDelta }
|
||||
IFacturasProforma_DetallesDelta = interface(IFacturasProforma_Detalles)
|
||||
['{88B55B8E-BF8A-49C0-B26F-6BDDDFD872DD}']
|
||||
['{6A56A056-8788-4A5F-8C3E-3517B9192B20}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -1905,6 +1929,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaDATOS_BANCARIOS] := Null;
|
||||
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;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_PEDIDO];
|
||||
@ -1936,128 +1991,159 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_PEDIDO] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_PEDIDO_CLIENTEValue: String;
|
||||
function TFacturasProformaBusinessProcessorRules.GetREF_PRE_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean;
|
||||
function TFacturasProformaBusinessProcessorRules.GetREF_PRE_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_CLIENTE]);
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_PEDIDO_CLIENTEValue: String;
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREF_PRE_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PRE_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean;
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREF_PRE_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PRE_CLIENTE]);
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String);
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREF_PRE_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean);
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREF_PRE_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_PEDIDO_CLIENTE] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_CLIENTE] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_DEL_CLIENTEValue: String;
|
||||
function TFacturasProformaBusinessProcessorRules.GetREF_PRE_DEL_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_DEL_CLIENTEIsNull: Boolean;
|
||||
function TFacturasProformaBusinessProcessorRules.GetREF_PRE_DEL_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE]);
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_DEL_CLIENTEValue: String;
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREF_PRE_DEL_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_DEL_CLIENTEIsNull: Boolean;
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREF_PRE_DEL_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE]);
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_DEL_CLIENTEValue(const aValue: String);
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREF_PRE_DEL_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_DEL_CLIENTEIsNull(const aValue: Boolean);
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREF_PRE_DEL_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_DEL_CLIENTE] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PRE_DEL_CLIENTE] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetID_FACTURA_FINALValue: Integer;
|
||||
function TFacturasProformaBusinessProcessorRules.GetREF_PED_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_FACTURA_FINAL];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetID_FACTURA_FINALIsNull: Boolean;
|
||||
function TFacturasProformaBusinessProcessorRules.GetREF_PED_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_FACTURA_FINAL]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_CLIENTE]);
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldID_FACTURA_FINALValue: Integer;
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREF_PED_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaID_FACTURA_FINAL];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PED_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldID_FACTURA_FINALIsNull: Boolean;
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREF_PED_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaID_FACTURA_FINAL]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PED_CLIENTE]);
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetID_FACTURA_FINALValue(const aValue: Integer);
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREF_PED_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_FACTURA_FINAL] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetID_FACTURA_FINALIsNull(const aValue: Boolean);
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREF_PED_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaID_FACTURA_FINAL] := Null;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_CLIENTE] := Null;
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_FACTURA_FINALValue: String;
|
||||
function TFacturasProformaBusinessProcessorRules.GetREF_PED_DEL_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_FACTURA_FINAL];
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_DEL_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetREFERENCIA_FACTURA_FINALIsNull: Boolean;
|
||||
function TFacturasProformaBusinessProcessorRules.GetREF_PED_DEL_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_FACTURA_FINAL]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_DEL_CLIENTE]);
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_FACTURA_FINALValue: String;
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREF_PED_DEL_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_FACTURA_FINAL];
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PED_DEL_CLIENTE];
|
||||
end;
|
||||
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREFERENCIA_FACTURA_FINALIsNull: Boolean;
|
||||
function TFacturasProformaBusinessProcessorRules.GetOldREF_PED_DEL_CLIENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREFERENCIA_FACTURA_FINAL]);
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProformaREF_PED_DEL_CLIENTE]);
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_FACTURA_FINALValue(const aValue: String);
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREF_PED_DEL_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREFERENCIA_FACTURA_FINAL] := aValue;
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProformaREF_PED_DEL_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREFERENCIA_FACTURA_FINALIsNull(const aValue: Boolean);
|
||||
procedure TFacturasProformaBusinessProcessorRules.SetREF_PED_DEL_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
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;
|
||||
|
||||
|
||||
|
||||
@ -297,6 +297,7 @@ begin
|
||||
CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
|
||||
PROVINCIA := FCliente.PROVINCIA;
|
||||
POBLACION := FCliente.POBLACION;
|
||||
PAIS := FCliente.PAIS;
|
||||
if FCliente.ID_FORMA_PAGO > 0 then
|
||||
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
|
||||
if FCliente.ID_TIPO_IVA > 0 then
|
||||
|
||||
@ -27,10 +27,12 @@ object RptFacturasProforma: TRptFacturasProforma
|
||||
'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' +
|
||||
'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' +
|
||||
'DIDO, V.REFERENCIA_DEL_CLIENTE, V.ID_FACTURA_FINAL,'#10' F.DESCRI' +
|
||||
'PCION as FORMA_PAGO'#10' FROM'#10' V_FACTURAS_PROFORMA V'#10'LEFT JOIN F' +
|
||||
'ORMAS_PAGO F ON (F.ID = V.ID_FORMA_PAGO)'#10'WHERE V.ID = :ID'#10
|
||||
'RTE, V.NUM_COPIAS, V.NUM_CORREOS, V.DATOS_BANCARIOS,'#10' F.DESCR' +
|
||||
'IPCION as FORMA_PAGO,'#10' CONTACTOS.IDIOMA_ISO, V.PAIS,'#10#10' COA' +
|
||||
'LESCE(REF_PRE_DEL_CLIENTE, REF_PED_DEL_CLIENTE) as REFERENCIA_DE' +
|
||||
'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
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -173,22 +175,24 @@ object RptFacturasProforma: TRptFacturasProforma
|
||||
DatasetField = 'DATOS_BANCARIOS'
|
||||
TableField = 'DATOS_BANCARIOS'
|
||||
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
|
||||
DatasetField = 'FORMA_PAGO'
|
||||
TableField = '<unknown>'
|
||||
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>
|
||||
Name = 'InformeFacturasProforma'
|
||||
@ -345,20 +349,22 @@ object RptFacturasProforma: TRptFacturasProforma
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_DEL_CLIENTE'
|
||||
Name = 'FORMA_PAGO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA_FINAL'
|
||||
DataType = datInteger
|
||||
Name = 'IDIOMA_ISO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'FORMA_PAGO'
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_DEL_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
@ -1386,20 +1392,17 @@ object RptFacturasProforma: TRptFacturasProforma
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_DEL_CLIENTE'
|
||||
Name = 'FORMA_PAGO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA_FINAL'
|
||||
DataType = datInteger
|
||||
Name = 'IDIOMA_ISO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'FORMA_PAGO'
|
||||
Name = 'REFERENCIA_DEL_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
|
||||
@ -207,7 +207,7 @@ begin
|
||||
tbl_Cabecera.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
|
||||
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaProforma));
|
||||
|
||||
|
||||
@ -188,25 +188,33 @@ object srvFacturasProforma: TsrvFacturasProforma
|
||||
DatasetField = 'DATOS_BANCARIOS'
|
||||
TableField = 'DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PRESUPUESTO'
|
||||
TableField = 'ID_PRESUPUESTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PAIS'
|
||||
TableField = 'PAIS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PEDIDO'
|
||||
TableField = 'ID_PEDIDO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_FACTURA_FINAL'
|
||||
TableField = 'ID_FACTURA_FINAL'
|
||||
DatasetField = 'REF_PRE_CLIENTE'
|
||||
TableField = 'REF_PRE_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_PEDIDO_CLIENTE'
|
||||
TableField = 'REFERENCIA_PEDIDO_CLIENTE'
|
||||
DatasetField = 'REF_PRE_DEL_CLIENTE'
|
||||
TableField = 'REF_PRE_DEL_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_FACTURA_FINAL'
|
||||
TableField = 'REFERENCIA_FACTURA_FINAL'
|
||||
DatasetField = 'REF_PED_CLIENTE'
|
||||
TableField = 'REF_PED_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_DEL_CLIENTE'
|
||||
TableField = 'REFERENCIA_DEL_CLIENTE'
|
||||
DatasetField = 'REF_PED_DEL_CLIENTE'
|
||||
TableField = 'REF_PED_DEL_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasProforma'
|
||||
@ -400,28 +408,36 @@ object srvFacturasProforma: TsrvFacturasProforma
|
||||
Size = 255
|
||||
DictionaryEntry = 'FacturasProforma_DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasProforma_ID_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PEDIDO_CLIENTE'
|
||||
Name = 'REF_PRE_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_DEL_CLIENTE'
|
||||
Name = 'REF_PRE_DEL_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA_FINAL'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasProforma_ID_FACTURA_FINAL'
|
||||
Name = 'REF_PED_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_FACTURA_FINAL'
|
||||
Name = 'REF_PED_DEL_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
@ -990,12 +1006,18 @@ object srvFacturasProforma: TsrvFacturasProforma
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA_FINAL'
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end>
|
||||
@ -1014,18 +1036,18 @@ object srvFacturasProforma: TsrvFacturasProforma
|
||||
'N,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_M' +
|
||||
'ODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVAL' +
|
||||
'ENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ' +
|
||||
' DATOS_BANCARIOS,'#10' ID_PEDIDO,'#10' ID_FACTURA_FINAL'#10' )'#10' VA' +
|
||||
'LUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FAC' +
|
||||
'TURA,'#10' :FECHA_VENCIMIENTO,'#10' :SITUACION,'#10' :BASE_IMPONIBL' +
|
||||
'E,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :DESCRIPCION_DESC' +
|
||||
'UENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' ' +
|
||||
' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_C' +
|
||||
'IF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :POBLACION,'#10 +
|
||||
' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_' +
|
||||
'MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQU' +
|
||||
'IVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_POR' +
|
||||
'TE,'#10' :DATOS_BANCARIOS,'#10' :ID_PEDIDO,'#10' :ID_FACTURA_FINAL)' +
|
||||
';'#10
|
||||
' DATOS_BANCARIOS,'#10' PAIS,'#10' ID_PRESUPUESTO,'#10' ID_PEDIDO'#10' ' +
|
||||
' )'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :F' +
|
||||
'ECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :SITUACION,'#10' :BASE_' +
|
||||
'IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :DESCRIPC' +
|
||||
'ION_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE' +
|
||||
'_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' ' +
|
||||
' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :POB' +
|
||||
'LACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' ' +
|
||||
' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :REC' +
|
||||
'ARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMP' +
|
||||
'ORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :PAIS,'#10' :ID_PRESUPUESTO' +
|
||||
','#10' :ID_PEDIDO);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1205,12 +1227,18 @@ object srvFacturasProforma: TsrvFacturasProforma
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA_FINAL'
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
end
|
||||
@ -1239,9 +1267,9 @@ object srvFacturasProforma: TsrvFacturasProforma
|
||||
'IO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' RECARGO_E' +
|
||||
'QUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA = :ID_TIPO_' +
|
||||
'IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPO' +
|
||||
'RTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_BANCARIOS,'#10' ID_PEDIDO' +
|
||||
' = :ID_PEDIDO,'#10' ID_FACTURA_FINAL = :ID_FACTURA_FINAL'#10' WHERE'#10 +
|
||||
' (ID = :OLD_ID);'#10
|
||||
'RTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_BANCARIOS,'#10' PAIS = :P' +
|
||||
'AIS,'#10' ID_PRESUPUESTO = :ID_PRESUPUESTO,'#10' ID_PEDIDO = :ID_P' +
|
||||
'EDIDO'#10' WHERE'#10' (ID = :OLD_ID);'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -146,8 +146,8 @@ begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos and
|
||||
not (ViewGrid.NumSeleccionados > 1) and
|
||||
ViewGrid.esSeleccionCeldaDatos and
|
||||
((FFacturas.ID_FACTURA_FINAL = 0));
|
||||
ViewGrid.esSeleccionCeldaDatos;
|
||||
// and ((FFacturas.ID_FACTURA_FINAL = 0));
|
||||
|
||||
end;
|
||||
|
||||
|
||||
@ -17,8 +17,6 @@ inherited frViewDatosYSeleccionClienteFacturaProforma: TfrViewDatosYSeleccionCli
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 467
|
||||
ExplicitHeight = 234
|
||||
DesignSize = (
|
||||
609
|
||||
272)
|
||||
|
||||
@ -183,6 +183,7 @@ begin
|
||||
FFactura.POBLACION := FDireccion.POBLACION;
|
||||
FFactura.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
|
||||
FFactura.PROVINCIA := FDireccion.PROVINCIA;
|
||||
FFactura.PAIS := FDireccion.PAIS;
|
||||
|
||||
FFactura.IMPORTE_PORTE := FDireccion.PORTE;
|
||||
end;
|
||||
@ -247,9 +248,9 @@ begin
|
||||
ACadena := '';
|
||||
|
||||
if Assigned(FDireccion) then
|
||||
ACadena := Format('%s %s %s %s',
|
||||
ACadena := Format('%s %s %s %s %s',
|
||||
[FFactura.CALLE, FFactura.POBLACION,
|
||||
FFactura.CODIGO_POSTAL, FFactura.PROVINCIA]);
|
||||
FFactura.CODIGO_POSTAL, FFactura.PROVINCIA, FFACTURA.PAIS]);
|
||||
|
||||
edtDireccion.Text := ACadena;
|
||||
end;
|
||||
@ -309,6 +310,7 @@ begin
|
||||
FFactura.ClearField('POBLACION');
|
||||
FFactura.ClearField('CODIGO_POSTAL');
|
||||
FFactura.ClearField('PROVINCIA');
|
||||
FFactura.ClearField('PAIS');
|
||||
FFactura.ClearField('IMPORTE_PORTE');
|
||||
end;
|
||||
|
||||
|
||||
@ -166,20 +166,28 @@ inherited frViewFacturasProforma: TfrViewFacturasProforma
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
Width = 128
|
||||
end
|
||||
object cxGridViewREFERENCIA_PEDIDO_CLIENTE: TcxGridDBColumn
|
||||
Caption = 'Ref. Pedido Cliente'
|
||||
DataBinding.FieldName = 'REFERENCIA_PEDIDO_CLIENTE'
|
||||
object cxGridViewREF_PRE_CLIENTE: TcxGridDBColumn
|
||||
Caption = 'Ref. Presupuesto Cliente'
|
||||
DataBinding.FieldName = 'REF_PRE_CLIENTE'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
end
|
||||
object cxGridViewREFERENCIA_DEL_CLIENTE: TcxGridDBColumn
|
||||
Caption = 'Ref. ped. del cliente'
|
||||
DataBinding.FieldName = 'REFERENCIA_DEL_CLIENTE'
|
||||
object cxGridViewREF_PRE_DEL_CLIENTE: TcxGridDBColumn
|
||||
Caption = 'Ref. pre. del cliente'
|
||||
DataBinding.FieldName = 'REF_PRE_DEL_CLIENTE'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
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
|
||||
Caption = 'Ref. factura cliente'
|
||||
DataBinding.FieldName = 'REFERENCIA_FACTURA_FINAL'
|
||||
|
||||
@ -56,9 +56,11 @@ type
|
||||
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
|
||||
cxGridViewRE: TcxGridDBColumn;
|
||||
cxGridViewIMPORTE_RE: TcxGridDBColumn;
|
||||
cxGridViewREFERENCIA_PEDIDO_CLIENTE: TcxGridDBColumn;
|
||||
cxGridViewREF_PRE_CLIENTE: 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;
|
||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
|
||||
out AStyle: TcxStyle);
|
||||
|
||||
@ -344,6 +344,16 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Name = 'TIPO_PEDIDO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_FACTURA_PROFORMA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,13 +9,13 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosPedidos = '{0EEEB91E-B94E-492A-9B55-D9D69121A15D}';
|
||||
RID_PedidosProveedor = '{42F2265A-DFC1-486D-8B10-CE0B7882F99B}';
|
||||
RID_PedidosCliente = '{114B3685-0624-44E5-A2E8-9E41682B17D3}';
|
||||
RID_PedidosCliente_Detalles = '{79001C87-40EC-4A80-AAEC-469ABF51992A}';
|
||||
RID_PedidosCliente_Articulos_Pendientes = '{3C095CF4-7C99-422E-9353-41457E08D356}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{0918991D-A6AF-43DB-BE3A-EF0BC296C52D}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{6AEA860C-3542-4087-9AC0-E9BBC0BE53A0}';
|
||||
RID_ListaAnosPedidos = '{A85291BA-5A29-4A14-AED9-72B405AF77AC}';
|
||||
RID_PedidosProveedor = '{8C4E8A3B-6431-413D-A91B-455AE2356C23}';
|
||||
RID_PedidosCliente = '{54D057DB-E0FA-46EB-A72D-4A0AA490C6F1}';
|
||||
RID_PedidosCliente_Detalles = '{CECCC206-BD3E-4FB0-B84B-E828C30D3198}';
|
||||
RID_PedidosCliente_Articulos_Pendientes = '{528B86F4-EF6F-4CAB-9EA3-B1C821D8A8B2}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{AB008D6B-DA8E-426D-B250-18EC81540899}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{F6F64067-1298-4E86-89EB-276107B2DAC6}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosPedidos = 'ListaAnosPedidos';
|
||||
@ -82,6 +82,8 @@ const
|
||||
fld_PedidosClienteID_PRESUPUESTO = 'ID_PRESUPUESTO';
|
||||
fld_PedidosClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
|
||||
fld_PedidosClienteTIPO_PEDIDO = 'TIPO_PEDIDO';
|
||||
fld_PedidosClientePAIS = 'PAIS';
|
||||
fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 'REFERENCIA_FACTURA_PROFORMA';
|
||||
|
||||
{ PedidosCliente field indexes }
|
||||
idx_PedidosClienteID = 0;
|
||||
@ -121,6 +123,8 @@ const
|
||||
idx_PedidosClienteID_PRESUPUESTO = 34;
|
||||
idx_PedidosClienteREFERENCIA_PRESUPUESTO = 35;
|
||||
idx_PedidosClienteTIPO_PEDIDO = 36;
|
||||
idx_PedidosClientePAIS = 37;
|
||||
idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 38;
|
||||
|
||||
{ PedidosCliente_Detalles fields }
|
||||
fld_PedidosCliente_DetallesID = 'ID';
|
||||
@ -217,7 +221,7 @@ const
|
||||
type
|
||||
{ IListaAnosPedidos }
|
||||
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
|
||||
['{ECDA790C-408A-47C4-B0E9-F3E501591DCD}']
|
||||
['{FA87F5CB-4CE8-4662-8536-76ACB95F011A}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -252,7 +256,7 @@ type
|
||||
|
||||
{ IPedidosProveedor }
|
||||
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{23013245-EFE7-4449-A38A-C01A1D8024D3}']
|
||||
['{37B57C33-2940-454E-866C-8BBDA32EACDE}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -323,7 +327,7 @@ type
|
||||
|
||||
{ IPedidosCliente }
|
||||
IPedidosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{685137A5-B5E4-4EB9-8268-7D49FAF6B111}']
|
||||
['{CC72F877-CED4-4E3C-B77F-698CD3F4F325}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -471,6 +475,14 @@ type
|
||||
procedure SetTIPO_PEDIDOValue(const aValue: String);
|
||||
function GetTIPO_PEDIDOIsNull: 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 }
|
||||
@ -548,6 +560,10 @@ type
|
||||
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
|
||||
property TIPO_PEDIDO: String read GetTIPO_PEDIDOValue write SetTIPO_PEDIDOValue;
|
||||
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;
|
||||
|
||||
{ TPedidosClienteDataTableRules }
|
||||
@ -705,6 +721,14 @@ type
|
||||
procedure SetTIPO_PEDIDOValue(const aValue: String); virtual;
|
||||
function GetTIPO_PEDIDOIsNull: 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 }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -781,6 +805,10 @@ type
|
||||
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
|
||||
property TIPO_PEDIDO: String read GetTIPO_PEDIDOValue write SetTIPO_PEDIDOValue;
|
||||
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
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -790,7 +818,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalles }
|
||||
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{7B004CF5-7D51-44A7-837C-248351E59D5A}']
|
||||
['{004940A4-DCDC-40F8-AEEC-6DE5D347C698}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -981,7 +1009,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Articulos_Pendientes }
|
||||
IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{0B5561A6-EC77-4F1A-9790-4D6FD000EA26}']
|
||||
['{4D4C2C08-64A6-4E0A-932F-26EC5DD23BB3}']
|
||||
{ Property getters and setters }
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
@ -1052,7 +1080,7 @@ type
|
||||
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProv }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
|
||||
['{3D4781F8-058F-449F-A40F-2D9D61A7546C}']
|
||||
['{5BF97010-EEB1-4CFF-918F-7F729948AD7F}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
@ -1195,7 +1223,7 @@ type
|
||||
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable)
|
||||
['{3F66BB5C-DBB8-42E9-BEC7-1DE96E609CAD}']
|
||||
['{359ED626-4BCB-47EE-88DF-77695506634E}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
@ -2269,6 +2297,48 @@ begin
|
||||
DataTable.Fields[idx_PedidosClienteTIPO_PEDIDO].AsVariant := Null;
|
||||
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 }
|
||||
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,18 +9,18 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosPedidosDelta = '{2DABA86C-B83B-47E8-AC84-4582BABA59DA}';
|
||||
RID_PedidosProveedorDelta = '{E6BDD968-AB7B-495D-96E5-84F8FB0923D0}';
|
||||
RID_PedidosClienteDelta = '{C42DF2D8-C429-4A99-8CFD-FD381E24C388}';
|
||||
RID_PedidosCliente_DetallesDelta = '{729FD8AB-C4B8-4F8E-AFCD-2C6E926C0EB8}';
|
||||
RID_PedidosCliente_Articulos_PendientesDelta = '{599B5358-26CF-4318-ACE3-64EF8ACA44C0}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{C84B6802-337E-47D5-A769-8F54782202C4}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{26C4CE72-8E30-424C-9054-8E6BA023C82F}';
|
||||
RID_ListaAnosPedidosDelta = '{944C551E-9F2E-4E78-81FF-7BDE4EA98EA4}';
|
||||
RID_PedidosProveedorDelta = '{46C44298-709E-4A45-ACAA-E42FA52DB984}';
|
||||
RID_PedidosClienteDelta = '{D4146576-FB6D-4914-8D56-CEF8A0FA6806}';
|
||||
RID_PedidosCliente_DetallesDelta = '{8DF6053A-F2C4-4D43-A775-21D202290B16}';
|
||||
RID_PedidosCliente_Articulos_PendientesDelta = '{570DCC8A-2BB2-423F-A19D-FB373C6477A2}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{275E08F0-DF00-40DE-8CD5-988647CB5C41}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{90F4CB46-B3F9-465C-BCC8-071BD7653A4D}';
|
||||
|
||||
type
|
||||
{ IListaAnosPedidosDelta }
|
||||
IListaAnosPedidosDelta = interface(IListaAnosPedidos)
|
||||
['{2DABA86C-B83B-47E8-AC84-4582BABA59DA}']
|
||||
['{944C551E-9F2E-4E78-81FF-7BDE4EA98EA4}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -54,7 +54,7 @@ type
|
||||
|
||||
{ IPedidosProveedorDelta }
|
||||
IPedidosProveedorDelta = interface(IPedidosProveedor)
|
||||
['{E6BDD968-AB7B-495D-96E5-84F8FB0923D0}']
|
||||
['{46C44298-709E-4A45-ACAA-E42FA52DB984}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -124,7 +124,7 @@ type
|
||||
|
||||
{ IPedidosClienteDelta }
|
||||
IPedidosClienteDelta = interface(IPedidosCliente)
|
||||
['{C42DF2D8-C429-4A99-8CFD-FD381E24C388}']
|
||||
['{D4146576-FB6D-4914-8D56-CEF8A0FA6806}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -163,6 +163,8 @@ type
|
||||
function GetOldID_PRESUPUESTOValue : Integer;
|
||||
function GetOldREFERENCIA_PRESUPUESTOValue : String;
|
||||
function GetOldTIPO_PEDIDOValue : String;
|
||||
function GetOldPAISValue : String;
|
||||
function GetOldREFERENCIA_FACTURA_PROFORMAValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -202,6 +204,8 @@ type
|
||||
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
|
||||
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
|
||||
property OldTIPO_PEDIDO : String read GetOldTIPO_PEDIDOValue;
|
||||
property OldPAIS : String read GetOldPAISValue;
|
||||
property OldREFERENCIA_FACTURA_PROFORMA : String read GetOldREFERENCIA_FACTURA_PROFORMAValue;
|
||||
end;
|
||||
|
||||
{ TPedidosClienteBusinessProcessorRules }
|
||||
@ -433,6 +437,18 @@ type
|
||||
function GetOldTIPO_PEDIDOIsNull: Boolean; virtual;
|
||||
procedure SetTIPO_PEDIDOValue(const aValue: String); 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 }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -583,6 +599,14 @@ type
|
||||
property TIPO_PEDIDOIsNull : Boolean read GetTIPO_PEDIDOIsNull write SetTIPO_PEDIDOIsNull;
|
||||
property OldTIPO_PEDIDO : String read GetOldTIPO_PEDIDOValue;
|
||||
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
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -592,7 +616,7 @@ type
|
||||
|
||||
{ IPedidosCliente_DetallesDelta }
|
||||
IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
|
||||
['{729FD8AB-C4B8-4F8E-AFCD-2C6E926C0EB8}']
|
||||
['{8DF6053A-F2C4-4D43-A775-21D202290B16}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
@ -782,7 +806,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Articulos_PendientesDelta }
|
||||
IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes)
|
||||
['{599B5358-26CF-4318-ACE3-64EF8ACA44C0}']
|
||||
['{570DCC8A-2BB2-423F-A19D-FB373C6477A2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_ARTICULOValue : Integer;
|
||||
function GetOldCANTIDAD_PEDValue : Currency;
|
||||
@ -852,7 +876,7 @@ type
|
||||
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProvDelta }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
|
||||
['{C84B6802-337E-47D5-A769-8F54782202C4}']
|
||||
['{275E08F0-DF00-40DE-8CD5-988647CB5C41}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldID_ARTICULOValue : Integer;
|
||||
@ -994,7 +1018,7 @@ type
|
||||
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
|
||||
['{26C4CE72-8E30-424C-9054-8E6BA023C82F}']
|
||||
['{90F4CB46-B3F9-465C-BCC8-071BD7653A4D}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldID_ARTICULOValue : Integer;
|
||||
@ -2490,6 +2514,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTIPO_PEDIDO] := Null;
|
||||
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 }
|
||||
constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -179,10 +179,11 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
'_PEDIDOS_CLIENTE.IMPORTE_IVA,'#10' V_PEDIDOS_CLIENTE.IMPORTE_TOTAL,' +
|
||||
#10' V_PEDIDOS_CLIENTE.ID_FORMA_PAGO,'#10' EMPRESAS.NOMBRE AS NOMBRE_' +
|
||||
'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' +
|
||||
'MPRESAS ON (V_PEDIDOS_CLIENTE.ID_EMPRESA = EMPRESAS.ID)'#10' LEFT O' +
|
||||
'UTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_PEDIDOS_CLIENTE.ID_CL' +
|
||||
'IENTE)'#10'WHERE'#10' V_PEDIDOS_CLIENTE.ID = :ID'#10#10#10#10
|
||||
'.FAX as FAX_EMPRESA,'#10' V_CLIENTES.IDIOMA_ISO,'#10' V_PEDIDOS_CLIENT' +
|
||||
'E.PAIS'#10'FROM'#10' V_PEDIDOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS ON (V' +
|
||||
'_PEDIDOS_CLIENTE.ID_EMPRESA = EMPRESAS.ID)'#10' LEFT OUTER JOIN V_C' +
|
||||
'LIENTES ON (V_CLIENTES.ID = V_PEDIDOS_CLIENTE.ID_CLIENTE)'#10'WHERE'#10 +
|
||||
' V_PEDIDOS_CLIENTE.ID = :ID'#10#10#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -316,6 +317,14 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
item
|
||||
DatasetField = 'FAX_EMPRESA'
|
||||
TableField = 'FAX_EMPRESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IDIOMA_ISO'
|
||||
TableField = 'IDIOMA_ISO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PAIS'
|
||||
TableField = 'PAIS'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -466,6 +475,16 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
Name = 'FAX_EMPRESA'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'IDIOMA_ISO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
ReadOnly = True
|
||||
end
|
||||
@ -684,23 +703,99 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37800.807714351900000000
|
||||
ReportOptions.LastChange = 39840.822843958330000000
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 41807.715566319440000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
|
||||
''
|
||||
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
|
||||
'var'
|
||||
' ACadena : String;'
|
||||
'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'
|
||||
' if (<Page#> = <TotalPages#>) then'
|
||||
' begin '
|
||||
' mContinua.Visible := False;'
|
||||
' end '
|
||||
' else'
|
||||
' begin '
|
||||
' mContinua.Visible := True;'
|
||||
' end '
|
||||
' end; '
|
||||
|
||||
' Overlay1.Visible := True; ' +
|
||||
' '
|
||||
' end'
|
||||
' else'
|
||||
' begin '
|
||||
' Overlay1.Visible := False; '
|
||||
' end '
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
@ -1184,6 +1279,16 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
Name = 'FAX_EMPRESA'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'IDIOMA_ISO'
|
||||
DataType = datString
|
||||
Size = 2
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
|
||||
@ -268,7 +268,7 @@ begin
|
||||
tbl_Cabecera.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
|
||||
raise Exception.Create (('Error Servidor: _GenerarPedido, no encuentra informe ' + rptInforme));
|
||||
|
||||
|
||||
@ -246,6 +246,14 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
item
|
||||
DatasetField = 'TIPO_PEDIDO'
|
||||
TableField = 'TIPO_PEDIDO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PAIS'
|
||||
TableField = 'PAIS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_FACTURA_PROFORMA'
|
||||
TableField = 'REFERENCIA_FACTURA_PROFORMA'
|
||||
end>
|
||||
end>
|
||||
Name = 'PedidosCliente'
|
||||
@ -448,6 +456,16 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Name = 'TIPO_PEDIDO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_FACTURA_PROFORMA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1058,6 +1076,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -1072,15 +1096,16 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
'AS_ACTIVAS, OBSERVACIONES, FECHA_ALTA, FECHA_MODIFICACION,'#10' ' +
|
||||
'IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO,'#10' IMPORTE_DESCUENTO, ' +
|
||||
'BASE_IMPONIBLE, IVA, IMPORTE_IVA,'#10' ID_FORMA_PAGO, REF_TIENDA' +
|
||||
'_WEB, FECHA_PREVISTA_ENVIO, ID_PRESUPUESTO, TIPO_PEDIDO)'#10' VALUE' +
|
||||
'S'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_DIRECCION, :USUARIO, :' +
|
||||
'FECHA_PEDIDO,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCI' +
|
||||
'A, :PERSONA_CONTACTO,'#10' :TELEFONO, :REFERENCIA, :REFERENCIA_C' +
|
||||
'LIENTE, :IMPORTE_TOTAL, :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS,' +
|
||||
' :OBSERVACIONES, :FECHA_ALTA,'#10' :FECHA_MODIFICACION, :IMPORTE' +
|
||||
'_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BAS' +
|
||||
'E_IMPONIBLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_PAGO, :REF_TIEND' +
|
||||
'A_WEB, :FECHA_PREVISTA_ENVIO, :ID_PRESUPUESTO, :TIPO_PEDIDO)'#10
|
||||
'_WEB, FECHA_PREVISTA_ENVIO, ID_PRESUPUESTO, TIPO_PEDIDO, PAIS)'#10' ' +
|
||||
' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_DIRECCION, :USUA' +
|
||||
'RIO, :FECHA_PEDIDO,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PR' +
|
||||
'OVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :REFERENCIA, :REFERE' +
|
||||
'NCIA_CLIENTE, :IMPORTE_TOTAL, :INCIDENCIAS,'#10' :INCIDENCIAS_AC' +
|
||||
'TIVAS, :OBSERVACIONES, :FECHA_ALTA,'#10' :FECHA_MODIFICACION, :I' +
|
||||
'MPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO' +
|
||||
', :BASE_IMPONIBLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_PAGO, :REF' +
|
||||
'_TIENDA_WEB, :FECHA_PREVISTA_ENVIO, :ID_PRESUPUESTO, :TIPO_PEDID' +
|
||||
'O, :PAIS)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1271,6 +1296,12 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PAIS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -1297,8 +1328,8 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
'E_IMPONIBLE,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' ' +
|
||||
' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_TIEND' +
|
||||
'A_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' ID_' +
|
||||
'PRESUPUESTO = :ID_PRESUPUESTO,'#10' TIPO_PEDIDO = :TIPO_PEDIDO'#10' ' +
|
||||
'WHERE'#10' (ID = :OLD_ID)'#10
|
||||
'PRESUPUESTO = :ID_PRESUPUESTO,'#10' TIPO_PEDIDO = :TIPO_PEDIDO,'#10' ' +
|
||||
' PAIS = :PAIS'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -10,7 +10,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 956
|
||||
Caption = 'Lista de pedidos de cliente'
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 956
|
||||
inherited Image1: TImage
|
||||
Left = 929
|
||||
Picture.Data = {
|
||||
@ -42,7 +42,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 956
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 956
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 877
|
||||
object TBXItem40: TTBXItem [13]
|
||||
@ -102,7 +102,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Width = 956
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 956
|
||||
end
|
||||
inline frViewPedidosCliente1: TfrViewPedidosCliente [3]
|
||||
Left = 0
|
||||
@ -119,12 +119,12 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
TabOrder = 3
|
||||
ReadOnly = False
|
||||
ExplicitTop = 102
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 956
|
||||
ExplicitHeight = 383
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 956
|
||||
Height = 255
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 956
|
||||
ExplicitHeight = 255
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
@ -155,12 +155,12 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 956
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 956
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 956
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 956
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 956
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -200,10 +200,10 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 956
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 956
|
||||
inherited tbxBotones: TTBXToolbar
|
||||
Width = 946
|
||||
ExplicitWidth = 690
|
||||
ExplicitWidth = 946
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -211,13 +211,13 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 357
|
||||
ExplicitTop = 357
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 956
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 956
|
||||
ExplicitWidth = 700
|
||||
ExplicitWidth = 956
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
Width = 946
|
||||
ExplicitWidth = 690
|
||||
ExplicitWidth = 946
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -309,6 +309,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
|
||||
Caption = 'Generar factura proforma'
|
||||
ImageIndex = 23
|
||||
OnExecute = actGenerarFacturaProformaExecute
|
||||
OnUpdate = actGenerarFacturaProformaUpdate
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
|
||||
@ -61,6 +61,7 @@ type
|
||||
procedure actGenerarAlbaranCliUpdate(Sender: TObject);
|
||||
procedure actGenerarPedidoProvUpdate(Sender: TObject);
|
||||
procedure actGenerarFacturaProformaExecute(Sender: TObject);
|
||||
procedure actGenerarFacturaProformaUpdate(Sender: TObject);
|
||||
|
||||
protected
|
||||
FPedidos: IBizPedidoCliente;
|
||||
@ -224,6 +225,15 @@ begin
|
||||
GenerarFacturaProforma(FPedidos.ID);
|
||||
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);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user