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

Meter un campo de referencia libre en pedidos proveedor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@644 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2016-06-01 10:06:28 +00:00
parent 4baad92b4d
commit 2b1d7f5eda
26 changed files with 1908 additions and 358 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
Database/scripts/factuges.sql
View File

@ -1313,7 +1313,8 @@ CREATE TABLE PEDIDOS_PROVEEDOR (
ID_FORMA_PAGO TIPO_ID,
FECHA_ENVIO DATE,
ID_TIENDA TIPO_ID,
DESCRIPCION_GENERAL VARCHAR(255) COLLATE ES_ES
DESCRIPCION_GENERAL VARCHAR(255) COLLATE ES_ES,
ID_DIRECCION_CLIENTE TIPO_ID
);
@ -2065,6 +2066,56 @@ SELECT CONTACTOS.ID,
LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTACTOS.ID_TIENDA)
;
/* View: V_CONTACTOS_DIRECCIONES */
create view V_CONTACTOS_DIRECCIONES (
ID_CONTACTO,
ID_DIRECCION,
NOMBRE,
NIF_CIF,
CALLE,
POBLACION,
PROVINCIA,
CODIGO_POSTAL,
TELEFONO,
MOVIL,
FAX,
EMAIL,
PERSONA_CONTACTO
)
as
select
CONTACTOS.ID AS ID_CONTACTO,
0 AS ID,
CONTACTOS.NOMBRE,
CONTACTOS.NIF_CIF,
CONTACTOS.CALLE,
CONTACTOS.POBLACION,
CONTACTOS.PROVINCIA,
CONTACTOS.CODIGO_POSTAL,
CONTACTOS.TELEFONO_1,
CONTACTOS.MOVIL_1,
CONTACTOS.FAX,
CONTACTOS.EMAIL_1,
CONTACTOS.PERSONA_CONTACTO
from CONTACTOS
union
select
CONTACTOS_DIRECCIONES.ID_CONTACTO,
CONTACTOS_DIRECCIONES.ID,
CONTACTOS_DIRECCIONES.NOMBRE,
CONTACTOS_DIRECCIONES.NIF_CIF,
CONTACTOS_DIRECCIONES.CALLE,
CONTACTOS_DIRECCIONES.POBLACION,
CONTACTOS_DIRECCIONES.PROVINCIA,
CONTACTOS_DIRECCIONES.CODIGO_POSTAL,
CONTACTOS_DIRECCIONES.TELEFONO,
CONTACTOS_DIRECCIONES.MOVIL,
CONTACTOS_DIRECCIONES.FAX,
CONTACTOS_DIRECCIONES.EMAIL,
CONTACTOS_DIRECCIONES.PERSONA_CONTACTO
from CONTACTOS_DIRECCIONES;
/* View: V_CONTACTOS_NOMBRES_DIRECCIONES */
create view V_CONTACTOS_NOMBRES_DIRECCIONES(
ID,
LISTA_NOMBRES)
@ -3783,7 +3834,8 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
ID_FORMA_PAGO,
ID_TIENDA,
TIENDA,
DESCRIPCION_GENERAL)
DESCRIPCION_GENERAL,
ID_DIRECCION_CLIENTE)
AS
SELECT
PEDIDOS_PROVEEDOR.ID,
@ -3826,7 +3878,8 @@ SELECT
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
PEDIDOS_PROVEEDOR.ID_TIENDA,
COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA,
PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL
PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL,
PEDIDOS_PROVEEDOR.ID_DIRECCION_CLIENTE
FROM
PEDIDOS_PROVEEDOR
INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)

96
Source/Base/Base.dproj
View File

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

3
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,8 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.7.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.7.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.7.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.7.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

2
Source/Cliente/FactuGES.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.7.2.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.7.2.0\0"
VALUE "ProductVersion", "2.7.3.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

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

11
Source/GUIBase/uEditorDBItem.dfm
View File

@ -21,7 +21,7 @@ inherited fEditorDBItem: TfEditorDBItem
Width = 650
ExplicitWidth = 650
inherited tbxMain: TTBXToolbar
ExplicitWidth = 605
ExplicitWidth = 650
inherited TBXItem26: TTBXItem
Visible = False
end
@ -77,14 +77,12 @@ inherited fEditorDBItem: TfEditorDBItem
object pgPaginas: TPageControl [3]
AlignWithMargins = True
Left = 3
Top = 109
Top = 118
Width = 644
Height = 328
Height = 319
ActivePage = pagGeneral
Align = alClient
TabOrder = 2
ExplicitTop = 118
ExplicitHeight = 319
object pagGeneral: TTabSheet
Caption = 'General'
ExplicitLeft = 0
@ -95,7 +93,7 @@ inherited fEditorDBItem: TfEditorDBItem
end
object PnlComentario: TPanel [4]
Left = 0
Top = 76
Top = 85
Width = 650
Height = 30
Align = alTop
@ -105,7 +103,6 @@ inherited fEditorDBItem: TfEditorDBItem
ParentBackground = False
TabOrder = 4
VerticalAlignment = taAlignTop
ExplicitTop = 85
object lbComentario: TLabel
AlignWithMargins = True
Left = 6

34
Source/Informes/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -9,21 +9,22 @@ 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_DarEmpresasContacto = '{09803035-EC1E-47D5-A44A-009646FD810D}';
RID_PersonalContacto = '{9189C512-E42F-4A70-8091-BCB24B5EBDB3}';
RID_DarTiendaDeUsuario = '{205D95B2-634E-4887-85A6-48C018B77CA7}';
RID_SubCuentasContacto = '{86A29408-F7FB-4C21-BEEA-95E6A6176398}';
RID_Contactos = '{95D8B1E2-A325-44C9-A3DC-F05D03116753}';
RID_GruposCliente = '{12CC2A2C-509B-4174-A817-B16E0B957461}';
RID_DatosBancarios = '{048A41E8-4348-4713-B083-FE719C79C9F4}';
RID_Clientes = '{1109FEE2-1CF8-43B7-9773-345F3C36E79F}';
RID_Proveedores = '{AA7D0872-D624-4727-A3C5-E0F1241A2FD6}';
RID_Vendedores = '{6A7D49D7-5C67-4FF9-B93D-EFB25F042DC3}';
RID_DireccionesContacto = '{453DA476-B83F-4A42-B884-B7F8D4F60349}';
RID_ClientesDescuentos = '{39BC1677-2432-4545-BF77-D0188412AA86}';
RID_ProcedenciasCliente = '{DC1F0246-260A-407D-BA81-7AF544932A02}';
RID_GruposProveedor = '{A887BBFA-2DFE-4770-9EB3-4681435D7634}';
RID_Contactos_Refresh = '{FDA7E99C-3497-43F5-85A6-EAEE0F1D54DE}';
RID_DarEmpresasContacto = '{472CACD6-0E6A-41FE-9ED2-537C64ACA52C}';
RID_PersonalContacto = '{E4677356-21EF-4ED1-8CB8-6E007EDC4768}';
RID_DarTiendaDeUsuario = '{F51C8AFF-D2D5-4027-B7F1-4F2F18EE55DA}';
RID_SubCuentasContacto = '{7386C05F-4BB8-4D5D-9840-421780DC9022}';
RID_Contactos = '{904DED01-45A4-45B9-BD55-F4259DD90889}';
RID_GruposCliente = '{6A6AF3F2-8FBC-40EE-BF53-F4FD0E8CD717}';
RID_DatosBancarios = '{A5772889-F9BD-4947-8932-6F7537464FCA}';
RID_ContactosDirecciones = '{1B5F181A-13BF-46E9-BAAE-0A86D07849F7}';
RID_Clientes = '{517433C7-D932-4116-A80B-5F3FEF6C70AA}';
RID_Proveedores = '{4A22961C-9423-43DF-A93F-46B2BD116C1B}';
RID_Vendedores = '{1CBABDE6-D012-4FB9-A474-9258FCA38D25}';
RID_DireccionesContacto = '{1E9A1687-E932-46C5-A964-59E06D2ADC6C}';
RID_ClientesDescuentos = '{596AA9EC-5E5B-4049-BB5C-BA3375D822AB}';
RID_ProcedenciasCliente = '{BD34109C-D29B-4E5B-8B19-BA583DF88C1A}';
RID_GruposProveedor = '{24E55CF0-80E1-4754-87E4-440DFCDE8732}';
RID_Contactos_Refresh = '{41366B21-52A6-4C32-82C7-A20158D2DDFC}';
{ Data table names }
nme_DarEmpresasContacto = 'DarEmpresasContacto';
@ -33,6 +34,7 @@ const
nme_Contactos = 'Contactos';
nme_GruposCliente = 'GruposCliente';
nme_DatosBancarios = 'DatosBancarios';
nme_ContactosDirecciones = 'ContactosDirecciones';
nme_Clientes = 'Clientes';
nme_Proveedores = 'Proveedores';
nme_Vendedores = 'Vendedores';
@ -178,6 +180,36 @@ const
idx_DatosBancariosFECHA_ALTA = 7;
idx_DatosBancariosFECHA_MODIFICACION = 8;
{ ContactosDirecciones fields }
fld_ContactosDireccionesID_CONTACTO = 'ID_CONTACTO';
fld_ContactosDireccionesID_DIRECCION = 'ID_DIRECCION';
fld_ContactosDireccionesNOMBRE = 'NOMBRE';
fld_ContactosDireccionesNIF_CIF = 'NIF_CIF';
fld_ContactosDireccionesCALLE = 'CALLE';
fld_ContactosDireccionesPOBLACION = 'POBLACION';
fld_ContactosDireccionesPROVINCIA = 'PROVINCIA';
fld_ContactosDireccionesCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_ContactosDireccionesTELEFONO = 'TELEFONO';
fld_ContactosDireccionesMOVIL = 'MOVIL';
fld_ContactosDireccionesFAX = 'FAX';
fld_ContactosDireccionesEMAIL = 'EMAIL';
fld_ContactosDireccionesPERSONA_CONTACTO = 'PERSONA_CONTACTO';
{ ContactosDirecciones field indexes }
idx_ContactosDireccionesID_CONTACTO = 0;
idx_ContactosDireccionesID_DIRECCION = 1;
idx_ContactosDireccionesNOMBRE = 2;
idx_ContactosDireccionesNIF_CIF = 3;
idx_ContactosDireccionesCALLE = 4;
idx_ContactosDireccionesPOBLACION = 5;
idx_ContactosDireccionesPROVINCIA = 6;
idx_ContactosDireccionesCODIGO_POSTAL = 7;
idx_ContactosDireccionesTELEFONO = 8;
idx_ContactosDireccionesMOVIL = 9;
idx_ContactosDireccionesFAX = 10;
idx_ContactosDireccionesEMAIL = 11;
idx_ContactosDireccionesPERSONA_CONTACTO = 12;
{ Clientes fields }
fld_ClientesID = 'ID';
fld_ClientesID_CATEGORIA = 'ID_CATEGORIA';
@ -529,7 +561,7 @@ const
type
{ IDarEmpresasContacto }
IDarEmpresasContacto = interface(IDAStronglyTypedDataTable)
['{15184075-B134-4220-9D05-92A49F766EEE}']
['{8BB5E061-F364-4E04-9A15-3AF7CD963D9A}']
{ Property getters and setters }
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
@ -564,7 +596,7 @@ type
{ IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{0859C40F-90F2-4929-8D50-2265CA86A830}']
['{751C15E3-B72F-45A3-ACA6-EE5536294AB2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -707,7 +739,7 @@ type
{ IDarTiendaDeUsuario }
IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable)
['{22E99E1B-0398-4E25-A39B-2957E583DB52}']
['{3FA2CF6E-3BD5-4061-8939-28C8FF90948F}']
{ Property getters and setters }
function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
@ -742,7 +774,7 @@ type
{ ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{63F82DF4-9976-41A1-8FF3-BAF5E027E3BF}']
['{9B286C57-728E-4B5D-B2B5-155391D6FFFD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -837,7 +869,7 @@ type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{B5B0B727-28C1-4323-836F-036FC3860F72}']
['{069DC5F3-C775-4E5D-8F1B-0AB17E4A0D95}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1160,7 +1192,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{03F52C3C-90E8-4BBD-9087-BB76E72521D3}']
['{ABBC4C99-5BB7-4AF5-A0E8-AC0330A292DB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1207,7 +1239,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{7B95F875-C61F-418B-B145-C0790E885DFF}']
['{E86958FB-3553-4826-92AD-E05BB763F327}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1336,9 +1368,188 @@ type
end;
{ IContactosDirecciones }
IContactosDirecciones = interface(IDAStronglyTypedDataTable)
['{7B0624ED-DAFE-4E73-8133-20B2F470DF6D}']
{ Property getters and setters }
function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer);
function GetID_CONTACTOIsNull: Boolean;
procedure SetID_CONTACTOIsNull(const aValue: Boolean);
function GetID_DIRECCIONValue: Integer;
procedure SetID_DIRECCIONValue(const aValue: Integer);
function GetID_DIRECCIONIsNull: Boolean;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
function GetNIF_CIFIsNull: Boolean;
procedure SetNIF_CIFIsNull(const aValue: Boolean);
function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String);
function GetCALLEIsNull: Boolean;
procedure SetCALLEIsNull(const aValue: Boolean);
function GetPOBLACIONValue: String;
procedure SetPOBLACIONValue(const aValue: String);
function GetPOBLACIONIsNull: Boolean;
procedure SetPOBLACIONIsNull(const aValue: Boolean);
function GetPROVINCIAValue: String;
procedure SetPROVINCIAValue(const aValue: String);
function GetPROVINCIAIsNull: Boolean;
procedure SetPROVINCIAIsNull(const aValue: Boolean);
function GetCODIGO_POSTALValue: String;
procedure SetCODIGO_POSTALValue(const aValue: String);
function GetCODIGO_POSTALIsNull: Boolean;
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
function GetTELEFONOValue: String;
procedure SetTELEFONOValue(const aValue: String);
function GetTELEFONOIsNull: Boolean;
procedure SetTELEFONOIsNull(const aValue: Boolean);
function GetMOVILValue: String;
procedure SetMOVILValue(const aValue: String);
function GetMOVILIsNull: Boolean;
procedure SetMOVILIsNull(const aValue: Boolean);
function GetFAXValue: String;
procedure SetFAXValue(const aValue: String);
function GetFAXIsNull: Boolean;
procedure SetFAXIsNull(const aValue: Boolean);
function GetEMAILValue: String;
procedure SetEMAILValue(const aValue: String);
function GetEMAILIsNull: Boolean;
procedure SetEMAILIsNull(const aValue: Boolean);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetPERSONA_CONTACTOIsNull: Boolean;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
{ Properties }
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property MOVIL: String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
property FAX: String read GetFAXValue write SetFAXValue;
property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL: String read GetEMAILValue write SetEMAILValue;
property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
end;
{ TContactosDireccionesDataTableRules }
TContactosDireccionesDataTableRules = class(TIntfObjectDADataTableRules, IContactosDirecciones)
private
protected
{ Property getters and setters }
function GetID_CONTACTOValue: Integer; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
function GetID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetCALLEIsNull: Boolean; virtual;
procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
function GetPOBLACIONIsNull: Boolean; virtual;
procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
function GetPROVINCIAIsNull: Boolean; virtual;
procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
function GetCODIGO_POSTALIsNull: Boolean; virtual;
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONOValue: String; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
function GetTELEFONOIsNull: Boolean; virtual;
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
function GetMOVILValue: String; virtual;
procedure SetMOVILValue(const aValue: String); virtual;
function GetMOVILIsNull: Boolean; virtual;
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
function GetFAXIsNull: Boolean; virtual;
procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAILValue: String; virtual;
procedure SetEMAILValue(const aValue: String); virtual;
function GetEMAILIsNull: Boolean; virtual;
procedure SetEMAILIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property MOVIL: String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
property FAX: String read GetFAXValue write SetFAXValue;
property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL: String read GetEMAILValue write SetEMAILValue;
property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{907442E0-5E45-4C9E-8C47-A97FA8009258}']
['{16982591-D076-457A-A0CF-96642B3A2A21}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1865,7 +2076,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{E1E5CFA4-89CC-438A-B220-4A140E5FE96D}']
['{6F8A315F-FC5F-44A3-AC1E-1179292FD039}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2392,7 +2603,7 @@ type
{ IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable)
['{DC80840F-D2B9-4F7A-9544-8A6903CAC9DC}']
['{CFAFE9D4-4031-4014-A6A2-8666FD35CBF0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2739,7 +2950,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{7D5F30E6-D2B7-4059-A9CC-9B91F1F8EC8F}']
['{C823E331-ED12-4669-B813-1C1F53612042}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2966,7 +3177,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{3FB8ABE8-0F32-4524-8CBF-5DA9A4660799}']
['{55FA6AE2-4570-49F3-8C7C-8AA2FB3E1ABA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3049,7 +3260,7 @@ type
{ IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{C22BEAD6-90E2-4476-84D8-5FC9FB8101CF}']
['{45E13CDC-38AE-4866-8BF1-3DEDEC2C0A0A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3096,7 +3307,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{02C2EFE2-2CD9-421A-86AD-4CFC9ABA08CF}']
['{931D5150-8A05-4D86-890A-45F275BEE459}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3143,7 +3354,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{E63F3A20-96A8-466F-AF91-59759697CC5A}']
['{47929F64-100A-45C5-A6CD-2A57178A1818}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -4645,6 +4856,291 @@ begin
end;
{ TContactosDireccionesDataTableRules }
constructor TContactosDireccionesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TContactosDireccionesDataTableRules.Destroy;
begin
inherited;
end;
function TContactosDireccionesDataTableRules.GetID_CONTACTOValue: Integer;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsInteger;
end;
procedure TContactosDireccionesDataTableRules.SetID_CONTACTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsInteger := aValue;
end;
function TContactosDireccionesDataTableRules.GetID_CONTACTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesID_CONTACTO].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetID_DIRECCIONValue: Integer;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsInteger;
end;
procedure TContactosDireccionesDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsInteger := aValue;
end;
function TContactosDireccionesDataTableRules.GetID_DIRECCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesID_DIRECCION].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesNOMBRE].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesNOMBRE].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetNIF_CIFIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesNIF_CIF].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesNIF_CIF].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetCALLEValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesCALLE].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetCALLEValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesCALLE].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetCALLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesCALLE].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetCALLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesCALLE].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetPOBLACIONValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetPOBLACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesPOBLACION].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesPOBLACION].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetPROVINCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetPROVINCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesPROVINCIA].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesPROVINCIA].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetCODIGO_POSTALIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesCODIGO_POSTAL].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetTELEFONOValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetTELEFONOValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetTELEFONOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesTELEFONO].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesTELEFONO].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetMOVILValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesMOVIL].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetMOVILValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesMOVIL].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetMOVILIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesMOVIL].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetMOVILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesMOVIL].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesFAX].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetFAXValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesFAX].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetFAXIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesFAX].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetFAXIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesFAX].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetEMAILValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesEMAIL].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetEMAILValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesEMAIL].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetEMAILIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesEMAIL].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetEMAILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesEMAIL].AsVariant := Null;
end;
function TContactosDireccionesDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
result := DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].AsString;
end;
procedure TContactosDireccionesDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].AsString := aValue;
end;
function TContactosDireccionesDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].IsNull;
end;
procedure TContactosDireccionesDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContactosDireccionesPERSONA_CONTACTO].AsVariant := Null;
end;
{ TClientesDataTableRules }
constructor TClientesDataTableRules.Create(aDataTable: TDADataTable);
var
@ -8102,6 +8598,7 @@ initialization
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules);
RegisterDataTableRules(RID_ContactosDirecciones, TContactosDireccionesDataTableRules);
RegisterDataTableRules(RID_Clientes, TClientesDataTableRules);
RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules);
RegisterDataTableRules(RID_Vendedores, TVendedoresDataTableRules);

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

@ -9,26 +9,27 @@ 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_DarEmpresasContactoDelta = '{A6433122-90DA-40E1-A8E3-B5153BDF9037}';
RID_PersonalContactoDelta = '{0F3905F8-664E-4284-A5FB-C7C298C4EE6D}';
RID_DarTiendaDeUsuarioDelta = '{F78868ED-F8C1-43B2-8954-448FD9605F08}';
RID_SubCuentasContactoDelta = '{68A1DB34-969D-4C55-BCF3-5BBDD649AE92}';
RID_ContactosDelta = '{80C193EA-B4F4-4D86-B164-4DA3ACFDAB55}';
RID_GruposClienteDelta = '{DDFB3C1B-E0C2-419C-8FC8-48D12D089F9E}';
RID_DatosBancariosDelta = '{889D270E-ED85-4856-9C7E-C499F12F76F4}';
RID_ClientesDelta = '{4DB9A1C2-1B72-4CE3-A940-46DCDE7F67E2}';
RID_ProveedoresDelta = '{63D99AC7-1B5F-42AE-91EC-107B40310F49}';
RID_VendedoresDelta = '{28D0D946-42EC-4A3F-9AFB-8C16BB22737E}';
RID_DireccionesContactoDelta = '{D47CBF20-38AE-4F7E-A6C7-44CBA5444C2D}';
RID_ClientesDescuentosDelta = '{475BA059-0898-4AC0-AAFD-5DEB00D99626}';
RID_ProcedenciasClienteDelta = '{14F77428-ACCF-4AF1-86C3-88A977F1C5E6}';
RID_GruposProveedorDelta = '{8B49F5CF-4C5A-4E6B-B66B-1A50F003E0CD}';
RID_Contactos_RefreshDelta = '{332B4E11-5924-4DE0-B89C-937B51D7E7A9}';
RID_DarEmpresasContactoDelta = '{CA69F10E-9B4E-4274-90F7-56E33D84418F}';
RID_PersonalContactoDelta = '{A14FBDB3-92F5-40ED-986A-D4461994FB85}';
RID_DarTiendaDeUsuarioDelta = '{5481F88A-73AA-4432-89D7-22FC3C3F3AE1}';
RID_SubCuentasContactoDelta = '{8DA04B44-EFAA-423F-AA30-ECCCDB94CFD1}';
RID_ContactosDelta = '{DC868481-1C6B-408A-B9D9-86DD141BEFD9}';
RID_GruposClienteDelta = '{47223648-73F6-483B-971C-00C1AC17E65F}';
RID_DatosBancariosDelta = '{777B1DE9-1D9B-4127-97C6-D605FDA37D0B}';
RID_ContactosDireccionesDelta = '{9C86AA9E-70BA-40CE-B5A5-38CF4A3B0735}';
RID_ClientesDelta = '{D7F24E5E-CD4A-4BC2-B98C-E0B8AA57835A}';
RID_ProveedoresDelta = '{D73D96B2-53E6-477D-82CB-B2A69AEEF86B}';
RID_VendedoresDelta = '{C12214F4-2ED0-4099-AECB-945D42A72EDC}';
RID_DireccionesContactoDelta = '{CFF3C192-A3B8-43FF-9F98-B29B4C4447BC}';
RID_ClientesDescuentosDelta = '{56F5AE71-33E1-4D3B-AE18-8C1F47582366}';
RID_ProcedenciasClienteDelta = '{47DFCD94-B340-485F-90B1-C9E217F3810D}';
RID_GruposProveedorDelta = '{7DBF3455-38E2-45DE-BABC-280D7B6309AF}';
RID_Contactos_RefreshDelta = '{7A25AA92-54F4-4D92-AD08-3382DDC351B6}';
type
{ IDarEmpresasContactoDelta }
IDarEmpresasContactoDelta = interface(IDarEmpresasContacto)
['{A6433122-90DA-40E1-A8E3-B5153BDF9037}']
['{CA69F10E-9B4E-4274-90F7-56E33D84418F}']
{ Property getters and setters }
function GetOldID_EMPRESAValue : Integer;
@ -62,7 +63,7 @@ type
{ IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto)
['{0F3905F8-664E-4284-A5FB-C7C298C4EE6D}']
['{A14FBDB3-92F5-40ED-986A-D4461994FB85}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -204,7 +205,7 @@ type
{ IDarTiendaDeUsuarioDelta }
IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario)
['{F78868ED-F8C1-43B2-8954-448FD9605F08}']
['{5481F88A-73AA-4432-89D7-22FC3C3F3AE1}']
{ Property getters and setters }
function GetOldID_TIENDAValue : Integer;
@ -238,7 +239,7 @@ type
{ ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{68A1DB34-969D-4C55-BCF3-5BBDD649AE92}']
['{8DA04B44-EFAA-423F-AA30-ECCCDB94CFD1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
@ -332,7 +333,7 @@ type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{80C193EA-B4F4-4D86-B164-4DA3ACFDAB55}']
['{DC868481-1C6B-408A-B9D9-86DD141BEFD9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -655,7 +656,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{DDFB3C1B-E0C2-419C-8FC8-48D12D089F9E}']
['{47223648-73F6-483B-971C-00C1AC17E65F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -701,7 +702,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{889D270E-ED85-4856-9C7E-C499F12F76F4}']
['{777B1DE9-1D9B-4127-97C6-D605FDA37D0B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -829,9 +830,187 @@ type
end;
{ IContactosDireccionesDelta }
IContactosDireccionesDelta = interface(IContactosDirecciones)
['{9C86AA9E-70BA-40CE-B5A5-38CF4A3B0735}']
{ Property getters and setters }
function GetOldID_CONTACTOValue : Integer;
function GetOldID_DIRECCIONValue : Integer;
function GetOldNOMBREValue : String;
function GetOldNIF_CIFValue : String;
function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldTELEFONOValue : String;
function GetOldMOVILValue : String;
function GetOldFAXValue : String;
function GetOldEMAILValue : String;
function GetOldPERSONA_CONTACTOValue : String;
{ Properties }
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldTELEFONO : String read GetOldTELEFONOValue;
property OldMOVIL : String read GetOldMOVILValue;
property OldFAX : String read GetOldFAXValue;
property OldEMAIL : String read GetOldEMAILValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
end;
{ TContactosDireccionesBusinessProcessorRules }
TContactosDireccionesBusinessProcessorRules = class(TDABusinessProcessorRules, IContactosDirecciones, IContactosDireccionesDelta)
private
protected
{ Property getters and setters }
function GetID_CONTACTOValue: Integer; virtual;
function GetID_CONTACTOIsNull: Boolean; virtual;
function GetOldID_CONTACTOValue: Integer; virtual;
function GetOldID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
function GetOldID_DIRECCIONValue: Integer; virtual;
function GetOldID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
function GetOldNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual;
function GetCALLEIsNull: Boolean; virtual;
function GetOldCALLEValue: String; virtual;
function GetOldCALLEIsNull: Boolean; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
function GetPOBLACIONIsNull: Boolean; virtual;
function GetOldPOBLACIONValue: String; virtual;
function GetOldPOBLACIONIsNull: Boolean; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
function GetPROVINCIAIsNull: Boolean; virtual;
function GetOldPROVINCIAValue: String; virtual;
function GetOldPROVINCIAIsNull: Boolean; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
function GetCODIGO_POSTALIsNull: Boolean; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONOValue: String; virtual;
function GetTELEFONOIsNull: Boolean; virtual;
function GetOldTELEFONOValue: String; virtual;
function GetOldTELEFONOIsNull: Boolean; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
function GetMOVILValue: String; virtual;
function GetMOVILIsNull: Boolean; virtual;
function GetOldMOVILValue: String; virtual;
function GetOldMOVILIsNull: Boolean; virtual;
procedure SetMOVILValue(const aValue: String); virtual;
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
function GetFAXIsNull: Boolean; virtual;
function GetOldFAXValue: String; virtual;
function GetOldFAXIsNull: Boolean; virtual;
procedure SetFAXValue(const aValue: String); virtual;
procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAILValue: String; virtual;
function GetEMAILIsNull: Boolean; virtual;
function GetOldEMAILValue: String; virtual;
function GetOldEMAILIsNull: Boolean; virtual;
procedure SetEMAILValue(const aValue: String); virtual;
procedure SetEMAILIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; virtual;
function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
property CALLE : String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
property OldCALLE : String read GetOldCALLEValue;
property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property OldTELEFONO : String read GetOldTELEFONOValue;
property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
property MOVIL : String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
property OldMOVIL : String read GetOldMOVILValue;
property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
property FAX : String read GetFAXValue write SetFAXValue;
property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
property OldFAX : String read GetOldFAXValue;
property OldFAXIsNull : Boolean read GetOldFAXIsNull;
property EMAIL : String read GetEMAILValue write SetEMAILValue;
property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull;
property OldEMAIL : String read GetOldEMAILValue;
property OldEMAILIsNull : Boolean read GetOldEMAILIsNull;
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{4DB9A1C2-1B72-4CE3-A940-46DCDE7F67E2}']
['{D7F24E5E-CD4A-4BC2-B98C-E0B8AA57835A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1358,7 +1537,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{63D99AC7-1B5F-42AE-91EC-107B40310F49}']
['{D73D96B2-53E6-477D-82CB-B2A69AEEF86B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1885,7 +2064,7 @@ type
{ IVendedoresDelta }
IVendedoresDelta = interface(IVendedores)
['{28D0D946-42EC-4A3F-9AFB-8C16BB22737E}']
['{C12214F4-2ED0-4099-AECB-945D42A72EDC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -2232,7 +2411,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{D47CBF20-38AE-4F7E-A6C7-44CBA5444C2D}']
['{CFF3C192-A3B8-43FF-9F98-B29B4C4447BC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2459,7 +2638,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{475BA059-0898-4AC0-AAFD-5DEB00D99626}']
['{56F5AE71-33E1-4D3B-AE18-8C1F47582366}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2541,7 +2720,7 @@ type
{ IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{14F77428-ACCF-4AF1-86C3-88A977F1C5E6}']
['{47DFCD94-B340-485F-90B1-C9E217F3810D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2587,7 +2766,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{8B49F5CF-4C5A-4E6B-B66B-1A50F003E0CD}']
['{7DBF3455-38E2-45DE-BABC-280D7B6309AF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2633,7 +2812,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{332B4E11-5924-4DE0-B89C-937B51D7E7A9}']
['{7A25AA92-54F4-4D92-AD08-3382DDC351B6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -4677,6 +4856,421 @@ begin
end;
{ TContactosDireccionesBusinessProcessorRules }
constructor TContactosDireccionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TContactosDireccionesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TContactosDireccionesBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO];
end;
function TContactosDireccionesBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_CONTACTO];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_CONTACTO]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_CONTACTO] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION];
end;
function TContactosDireccionesBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_DIRECCION];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesID_DIRECCION]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesID_DIRECCION] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE];
end;
function TContactosDireccionesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNOMBRE];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNOMBRE]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNOMBRE] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF];
end;
function TContactosDireccionesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNIF_CIF];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesNIF_CIF]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesNIF_CIF] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE];
end;
function TContactosDireccionesBusinessProcessorRules.GetCALLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCALLE];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCALLE]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCALLE] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION];
end;
function TContactosDireccionesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPOBLACION];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPOBLACION]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPOBLACION] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA];
end;
function TContactosDireccionesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPROVINCIA];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPROVINCIA]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPROVINCIA] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL];
end;
function TContactosDireccionesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCODIGO_POSTAL];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesCODIGO_POSTAL]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesCODIGO_POSTAL] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO];
end;
function TContactosDireccionesBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesTELEFONO];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesTELEFONO]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesTELEFONO] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL];
end;
function TContactosDireccionesBusinessProcessorRules.GetMOVILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesMOVIL];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesMOVIL]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetMOVILValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesMOVIL] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX];
end;
function TContactosDireccionesBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesFAX];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesFAX]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesFAX] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetEMAILValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL];
end;
function TContactosDireccionesBusinessProcessorRules.GetEMAILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldEMAILValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesEMAIL];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldEMAILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesEMAIL]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetEMAILValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesEMAIL] := Null;
end;
function TContactosDireccionesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO];
end;
function TContactosDireccionesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO]);
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPERSONA_CONTACTO];
end;
function TContactosDireccionesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosDireccionesPERSONA_CONTACTO]);
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO] := aValue;
end;
procedure TContactosDireccionesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosDireccionesPERSONA_CONTACTO] := Null;
end;
{ TClientesBusinessProcessorRules }
constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
@ -9719,6 +10313,7 @@ initialization
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContactosDireccionesDelta, TContactosDireccionesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_VendedoresDelta, TVendedoresBusinessProcessorRules);

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

@ -655,6 +655,151 @@ object srvContactos: TsrvContactos
DataType = datDateTime
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_CONTACTOS_DIRECCIONES'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID_CONTACTO'
TableField = 'ID_CONTACTO'
end
item
DatasetField = 'ID_DIRECCION'
TableField = 'ID_DIRECCION'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL'
TableField = 'EMAIL'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end>
end>
Name = 'ContactosDirecciones'
Fields = <
item
Name = 'ID_CONTACTO'
DataType = datInteger
DictionaryEntry = 'ContactosDirecciones_ID_CONTACTO'
InPrimaryKey = True
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
DictionaryEntry = 'ContactosDirecciones_ID_DIRECCION'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'ContactosDirecciones_NOMBRE'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'ContactosDirecciones_NIF_CIF'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'ContactosDirecciones_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'ContactosDirecciones_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'ContactosDirecciones_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'ContactosDirecciones_CODIGO_POSTAL'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DictionaryEntry = 'ContactosDirecciones_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DictionaryEntry = 'ContactosDirecciones_MOVIL'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DictionaryEntry = 'ContactosDirecciones_FAX'
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
DictionaryEntry = 'ContactosDirecciones_EMAIL'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'ContactosDirecciones_PERSONA_CONTACTO'
end>
ReadOnly = True
end
item
Params = <>
Statements = <
@ -4840,6 +4985,80 @@ object srvContactos: TsrvContactos
item
Name = 'PersonalContacto_FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'ContactosDirecciones_ID_CONTACTO'
DataType = datInteger
end
item
Name = 'ContactosDirecciones_ID_DIRECCION'
DataType = datInteger
end
item
Name = 'ContactosDirecciones_NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'Nombre'
end
item
Name = 'ContactosDirecciones_NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'NIF/CIF'
end
item
Name = 'ContactosDirecciones_CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Calle'
end
item
Name = 'ContactosDirecciones_POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
end
item
Name = 'ContactosDirecciones_PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
end
item
Name = 'ContactosDirecciones_CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo Postal'
end
item
Name = 'ContactosDirecciones_TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
end
item
Name = 'ContactosDirecciones_MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
end
item
Name = 'ContactosDirecciones_FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
end
item
Name = 'ContactosDirecciones_EMAIL'
DataType = datString
Size = 255
DisplayLabel = 'Email'
end
item
Name = 'ContactosDirecciones_PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
end>
Left = 126
Top = 14

4
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj
View File

@ -48,8 +48,8 @@
<DelphiCompile Include="PedidosProveedor_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Albaranes de proveedor\Base.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\PedidosProveedor_model.dcp" />
<DCCReference Include="..\..\Articulos\Views\Base.dcp" />
<DCCReference Include="..\..\Articulos\Views\PedidosProveedor_model.dcp" />
<DCCReference Include="uDataModulePedidosProveedor.pas">
<Form>DataModulePedidosProveedor</Form>
</DCCReference>

4
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
View File

@ -217,6 +217,10 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'DESCRIPCION_GENERAL'
DataType = datString
Size = 255
end
item
Name = 'ID_DIRECCION_CLIENTE'
DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

14
Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj
View File

@ -42,14 +42,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="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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PedidosProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -59,9 +51,9 @@
<DelphiCompile Include="PedidosProveedor_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="Data\uIDataModulePedidosProveedor.pas" />
<DCCReference Include="Data\uIDataModulePedidosProveedorReport.pas" />
<DCCReference Include="schPedidosProveedorClient_Intf.pas" />

43
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_PedidosProveedor = '{4E661347-2977-484B-A6B0-80499514DECB}';
RID_PedidosProveedor_Detalles = '{4C0745E8-E202-4453-B100-9488446601CE}';
RID_PedidosProveedor = '{F9A04E72-CC9B-404C-B543-59DC545248DE}';
RID_PedidosProveedor_Detalles = '{B001B59E-8710-467D-879E-63C7BE102CD6}';
{ Data table names }
nme_PedidosProveedor = 'PedidosProveedor';
@ -58,6 +58,7 @@ const
fld_PedidosProveedorID_VENDEDOR = 'ID_VENDEDOR';
fld_PedidosProveedorVENDEDOR = 'VENDEDOR';
fld_PedidosProveedorDESCRIPCION_GENERAL = 'DESCRIPCION_GENERAL';
fld_PedidosProveedorID_DIRECCION_CLIENTE = 'ID_DIRECCION_CLIENTE';
{ PedidosProveedor field indexes }
idx_PedidosProveedorID = 0;
@ -101,6 +102,7 @@ const
idx_PedidosProveedorID_VENDEDOR = 38;
idx_PedidosProveedorVENDEDOR = 39;
idx_PedidosProveedorDESCRIPCION_GENERAL = 40;
idx_PedidosProveedorID_DIRECCION_CLIENTE = 41;
{ PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID';
@ -133,7 +135,7 @@ const
type
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{F47C3279-7242-45E8-9365-036E76E6F64B}']
['{D09B45C4-717B-4D44-B535-0ABAAE743DBD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -297,6 +299,10 @@ type
procedure SetDESCRIPCION_GENERALValue(const aValue: String);
function GetDESCRIPCION_GENERALIsNull: Boolean;
procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean);
function GetID_DIRECCION_CLIENTEValue: Integer;
procedure SetID_DIRECCION_CLIENTEValue(const aValue: Integer);
function GetID_DIRECCION_CLIENTEIsNull: Boolean;
procedure SetID_DIRECCION_CLIENTEIsNull(const aValue: Boolean);
{ Properties }
@ -382,6 +388,8 @@ type
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
property ID_DIRECCION_CLIENTE: Integer read GetID_DIRECCION_CLIENTEValue write SetID_DIRECCION_CLIENTEValue;
property ID_DIRECCION_CLIENTEIsNull: Boolean read GetID_DIRECCION_CLIENTEIsNull write SetID_DIRECCION_CLIENTEIsNull;
end;
{ TPedidosProveedorDataTableRules }
@ -555,6 +563,10 @@ type
procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual;
function GetDESCRIPCION_GENERALIsNull: Boolean; virtual;
procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCION_CLIENTEValue: Integer; virtual;
procedure SetID_DIRECCION_CLIENTEValue(const aValue: Integer); virtual;
function GetID_DIRECCION_CLIENTEIsNull: Boolean; virtual;
procedure SetID_DIRECCION_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -639,6 +651,8 @@ type
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
property ID_DIRECCION_CLIENTE: Integer read GetID_DIRECCION_CLIENTEValue write SetID_DIRECCION_CLIENTEValue;
property ID_DIRECCION_CLIENTEIsNull: Boolean read GetID_DIRECCION_CLIENTEIsNull write SetID_DIRECCION_CLIENTEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -648,7 +662,7 @@ type
{ IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{B77F2CC6-6AAD-48DE-BF15-411FD2067FA1}']
['{64CF9676-7BE9-4830-A7C1-CB33770836E1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1701,6 +1715,27 @@ begin
DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsVariant := Null;
end;
function TPedidosProveedorDataTableRules.GetID_DIRECCION_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_PedidosProveedorID_DIRECCION_CLIENTE].AsInteger;
end;
procedure TPedidosProveedorDataTableRules.SetID_DIRECCION_CLIENTEValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosProveedorID_DIRECCION_CLIENTE].AsInteger := aValue;
end;
function TPedidosProveedorDataTableRules.GetID_DIRECCION_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorID_DIRECCION_CLIENTE].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetID_DIRECCION_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorID_DIRECCION_CLIENTE].AsVariant := Null;
end;
{ TPedidosProveedor_DetallesDataTableRules }
constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);

51
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_PedidosProveedorDelta = '{2B5BA176-7B75-49EB-80AB-ADC962C1A41D}';
RID_PedidosProveedor_DetallesDelta = '{F832D085-05C3-43CF-9354-9CC5A1A1CEF0}';
RID_PedidosProveedorDelta = '{89722FDC-B6E6-4109-8393-E2204281481F}';
RID_PedidosProveedor_DetallesDelta = '{F7F93BEC-E7C5-40A0-AD03-62DA49D17ABC}';
type
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
['{2B5BA176-7B75-49EB-80AB-ADC962C1A41D}']
['{89722FDC-B6E6-4109-8393-E2204281481F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -58,6 +58,7 @@ type
function GetOldID_VENDEDORValue : Integer;
function GetOldVENDEDORValue : String;
function GetOldDESCRIPCION_GENERALValue : String;
function GetOldID_DIRECCION_CLIENTEValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -101,6 +102,7 @@ type
property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue;
property OldID_DIRECCION_CLIENTE : Integer read GetOldID_DIRECCION_CLIENTEValue;
end;
{ TPedidosProveedorBusinessProcessorRules }
@ -356,6 +358,12 @@ type
function GetOldDESCRIPCION_GENERALIsNull: Boolean; virtual;
procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual;
procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCION_CLIENTEValue: Integer; virtual;
function GetID_DIRECCION_CLIENTEIsNull: Boolean; virtual;
function GetOldID_DIRECCION_CLIENTEValue: Integer; virtual;
function GetOldID_DIRECCION_CLIENTEIsNull: Boolean; virtual;
procedure SetID_DIRECCION_CLIENTEValue(const aValue: Integer); virtual;
procedure SetID_DIRECCION_CLIENTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -522,6 +530,10 @@ type
property DESCRIPCION_GENERALIsNull : Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue;
property OldDESCRIPCION_GENERALIsNull : Boolean read GetOldDESCRIPCION_GENERALIsNull;
property ID_DIRECCION_CLIENTE : Integer read GetID_DIRECCION_CLIENTEValue write SetID_DIRECCION_CLIENTEValue;
property ID_DIRECCION_CLIENTEIsNull : Boolean read GetID_DIRECCION_CLIENTEIsNull write SetID_DIRECCION_CLIENTEIsNull;
property OldID_DIRECCION_CLIENTE : Integer read GetOldID_DIRECCION_CLIENTEValue;
property OldID_DIRECCION_CLIENTEIsNull : Boolean read GetOldID_DIRECCION_CLIENTEIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -531,7 +543,7 @@ type
{ IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{F832D085-05C3-43CF-9354-9CC5A1A1CEF0}']
['{F7F93BEC-E7C5-40A0-AD03-62DA49D17ABC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
@ -1996,6 +2008,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL] := Null;
end;
function TPedidosProveedorBusinessProcessorRules.GetID_DIRECCION_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE];
end;
function TPedidosProveedorBusinessProcessorRules.GetID_DIRECCION_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldID_DIRECCION_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldID_DIRECCION_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetID_DIRECCION_CLIENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetID_DIRECCION_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_DIRECCION_CLIENTE] := Null;
end;
{ TPedidosProveedor_DetallesBusinessProcessorRules }
constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

58
Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
View File

@ -91,29 +91,30 @@ object RptPedidosProveedor: TRptPedidosProveedor
'SELECT'#10' PEDIDOS_PROVEEDOR.ID,'#10' PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' +
' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' +
#10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.FECHA_EN' +
'VIO,'#10' PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' VENDEDORES.NOMBRE as V' +
'ENDEDOR,'#10' PROVEEDOR.NOMBRE,'#10' PROVEEDOR.FAX,'#10#10' CONTRATOS_CLIEN' +
'TE.referencia as referencia_contrato,'#10' CONTRATOS_CLIENTE.refere' +
'ncia_CLIENTE,'#10' CLIENTES.NOMBRE AS NOMBRE_CLIENTE,'#10' '#10' PEDIDOS_' +
'PROVEEDOR.ID_ALMACEN,'#10' '#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = ' +
'0), PEDIDOS_PROVEEDOR.CALLE, ALMACENES.CALLE) AS CALLE,'#10' IIF ((' +
'PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.POBLACION, ' +
'ALMACENES.POBLACION) AS POBLACION,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_' +
'ALMACEN = 0), PEDIDOS_PROVEEDOR.PROVINCIA, ALMACENES.PROVINCIA) ' +
'AS PROVINCIA,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS' +
'_PROVEEDOR.CODIGO_POSTAL, ALMACENES.CODIGO_POSTAL) AS CODIGO_POS' +
'TAL,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDO' +
'R.PERSONA_CONTACTO, ALMACENES.PERSONA_CONTACTO) AS PERSONA_CONTA' +
'CTO,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDO' +
'R.TELEFONO, ALMACENES.TELEFONO) AS TELEFONO'#10#10'FROM'#10' PEDIDOS_PROV' +
'EEDOR'#10' LEFT OUTER JOIN CONTACTOS PROVEEDOR ON (PROVEEDOR .ID = ' +
'PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN CONTACTOS VEND' +
'EDORES ON (VENDEDORES.ID = PEDIDOS_PROVEEDOR.ID_VENDEDOR)'#10' LEFT' +
' OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PEDIDOS' +
'_PROVEEDOR.ID_CONTRATO_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS CLIE' +
'NTES ON (CLIENTES.ID = CONTRATOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTE' +
'R JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN' +
')'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10
'VIO,'#10' PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL,'#10' PEDIDOS_PROVEEDO' +
'R.OBSERVACIONES,'#10' VENDEDORES.NOMBRE as VENDEDOR,'#10' PROVEEDOR.NO' +
'MBRE,'#10' PROVEEDOR.FAX,'#10#10' CONTRATOS_CLIENTE.referencia as refere' +
'ncia_contrato,'#10' CONTRATOS_CLIENTE.referencia_CLIENTE,'#10' CLIENTE' +
'S.NOMBRE AS NOMBRE_CLIENTE,'#10' '#10' PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' ' +
' '#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.C' +
'ALLE, ALMACENES.CALLE) AS CALLE,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_AL' +
'MACEN = 0), PEDIDOS_PROVEEDOR.POBLACION, ALMACENES.POBLACION) AS' +
' POBLACION,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_P' +
'ROVEEDOR.PROVINCIA, ALMACENES.PROVINCIA) AS PROVINCIA,'#10' IIF ((P' +
'EDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.CODIGO_POSTA' +
'L, ALMACENES.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' IIF ((PEDIDOS_PR' +
'OVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.PERSONA_CONTACTO, ALM' +
'ACENES.PERSONA_CONTACTO) AS PERSONA_CONTACTO,'#10' IIF ((PEDIDOS_PR' +
'OVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.TELEFONO, ALMACENES.T' +
'ELEFONO) AS TELEFONO'#10#10'FROM'#10' PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOIN' +
' CONTACTOS PROVEEDOR ON (PROVEEDOR .ID = PEDIDOS_PROVEEDOR.ID_PR' +
'OVEEDOR)'#10' LEFT OUTER JOIN CONTACTOS VENDEDORES ON (VENDEDORES.I' +
'D = PEDIDOS_PROVEEDOR.ID_VENDEDOR)'#10' LEFT OUTER JOIN CONTRATOS_C' +
'LIENTE ON (CONTRATOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_CONTRATO_' +
'CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ' +
'CONTRATOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN ALMACENES ON (AL' +
'MACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PROVEED' +
'OR.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -201,6 +202,10 @@ object RptPedidosProveedor: TRptPedidosProveedor
item
DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN'
end
item
DatasetField = 'DESCRIPCION_GENERAL'
TableField = 'DESCRIPCION_GENERAL'
end>
end>
Name = 'Informe_Cabecera'
@ -230,6 +235,11 @@ object RptPedidosProveedor: TRptPedidosProveedor
Name = 'FECHA_ENVIO'
DataType = datDateTime
end
item
Name = 'DESCRIPCION_GENERAL'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
@ -455,7 +465,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 42300.581549502310000000
ReportOptions.LastChange = 42481.774581759260000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False

93
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

@ -183,6 +183,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
DatasetField = 'VENDEDOR'
TableField = 'VENDEDOR'
end
item
DatasetField = 'ID_DIRECCION_CLIENTE'
TableField = 'ID_DIRECCION_CLIENTE'
end>
end>
Name = 'PedidosProveedor'
@ -217,164 +221,206 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
DictionaryEntry = 'PedidosProveedor_SITUACION'
end
item
Name = 'FECHA_ENVIO'
DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO'
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO'
end
item
Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION'
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA'
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_ALMACEN'
end
item
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN'
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
DictionaryEntry = 'PedidosProveedor_OBSERVACIONES'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL'
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
DictionaryEntry = 'PedidosProveedor_INCIDENCIAS'
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DictionaryEntry = 'PedidosProveedor_TELEFONO'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
DictionaryEntry = 'PedidosProveedor_USUARIO'
end
item
Name = 'ID_CONTRATO_CLIENTE'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_CONTRATO_CLIENTE'
end
item
Name = 'REF_CON_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_REF_CON_CLIENTE'
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_NOMBRE_CLIENTE'
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'PedidosProveedor_DESCUENTO'
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO'
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE'
end
item
Name = 'IVA'
DataType = datFloat
DictionaryEntry = 'PedidosProveedor_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO'
end
item
Name = 'ID_TIENDA'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_TIENDA'
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_TIENDA'
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_VENDEDOR'
end
item
Name = 'VENDEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_VENDEDOR'
end
item
Name = 'DESCRIPCION_GENERAL'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_DESCRIPCION_GENERAL'
end
item
Name = 'ID_DIRECCION_CLIENTE'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_DIRECCION_CLIENTE'
end>
end
item
@ -1252,7 +1298,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Name = 'PedidosProveedor_INCIDENCIAS_ACTIVAS'
DataType = datInteger
DataType = datSmallInt
DisplayLabel = 'INCIDENCIAS_ACTIVAS'
end
item
@ -1268,7 +1314,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
Name = 'PedidosProveedor_USUARIO'
DataType = datString
Size = 20
Size = 30
DisplayLabel = 'USUARIO'
end
item
@ -1425,7 +1471,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
Name = 'PedidosProveedor_SITUACION'
DataType = datString
Size = 255
Size = 9
DisplayLabel = 'Situaci'#243'n'
end
item
@ -1458,6 +1504,47 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'PedidosProveedor_REF_PED_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'PedidosProveedor_ID_DIRECCION_CLIENTE'
DataType = datInteger
end
item
Name = 'PedidosProveedor_ID_CONTRATO_CLIENTE'
DataType = datInteger
end
item
Name = 'PedidosProveedor_REF_CON_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'PedidosProveedor_NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'PedidosProveedor_ID_TIENDA'
DataType = datInteger
end
item
Name = 'PedidosProveedor_TIENDA'
DataType = datString
Size = 255
end
item
Name = 'PedidosProveedor_ID_VENDEDOR'
DataType = datInteger
end
item
Name = 'PedidosProveedor_VENDEDOR'
DataType = datString
Size = 255
end
item
Name = 'PedidosProveedor_DESCRIPCION_GENERAL'
DataType = datString
Size = 255
end>
Left = 88
Top = 152

79
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm
View File

@ -23,15 +23,14 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Height = 17
Action = actLista
TabOrder = 0
TabStop = True
end
object rdxDestino2: TRadioButton
Left = 10
Top = 60
Top = 110
Width = 287
Height = 17
Action = actOtro
TabOrder = 2
TabOrder = 4
end
object cbLista: TcxDBLookupComboBox
Left = 25
@ -70,19 +69,61 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Width = 128
Height = 25
Caption = 'Modificar la direcci'#243'n...'
TabOrder = 4
TabOrder = 6
OnClick = bModificarClick
end
object txtDireccion: TStaticText
Left = 25
Top = 83
Top = 133
Width = 551
Height = 177
AutoSize = False
BevelKind = bkFlat
TabOrder = 3
TabOrder = 5
OnDblClick = txtDireccionDblClick
end
object rdxDestinoCliente: TRadioButton
Left = 10
Top = 60
Width = 566
Height = 17
Action = actLista
Caption = 'Enviar a esta direcci'#243'n del cliente:'
Enabled = False
TabOrder = 2
end
object cbListaDireccionesCliente: TcxDBLookupComboBox
Left = 25
Top = 83
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ID_DIRECCION_CLIENTE'
DataBinding.DataSource = dsPedido
Enabled = False
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'NOMBRE'
end>
Properties.ListOptions.AnsiSort = True
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsAlmacenes
Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 551
end
object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -101,6 +142,18 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Control = cbLista
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
ShowCaption = False
Control = rdxDestinoCliente
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
Offsets.Left = 15
ShowCaption = False
Control = cbListaDireccionesCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False
@ -129,8 +182,8 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
end
end
object ActionList1: TActionList
Left = 80
Top = 16
Left = 248
Top = 8
object actLista: TAction
Caption = 'Recibir el pedido en el almac'#233'n:'
Checked = True
@ -144,11 +197,15 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
end
end
object dsPedido: TDADataSource
Left = 40
Left = 280
Top = 8
end
object dsAlmacenes: TDADataSource
Left = 8
Top = 40
Left = 312
Top = 8
end
object dsDireccionesCliente: TDADataSource
Left = 344
Top = 8
end
end

34
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas
View File

@ -8,7 +8,8 @@ uses
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
ActnList, uBizAlmacenes, uAlmacenesController, uPedidosProveedorController,
Buttons, uDAInterfaces;
Buttons, uDAInterfaces, uClientesController, uDireccionesContactoController,
uBizDireccionesContacto;
type
IViewDireccionEntregaPedidoProv = interface(IViewBase)
@ -36,19 +37,29 @@ type
bModificar: TBitBtn;
txtDireccion: TStaticText;
dxLayoutControl1Item5: TdxLayoutItem;
dxLayoutControl1Item4: TdxLayoutItem;
rdxDestinoCliente: TRadioButton;
dxLayoutControl1Item6: TdxLayoutItem;
cbListaDireccionesCliente: TcxDBLookupComboBox;
dsDireccionesCliente: TDADataSource;
procedure actListaExecute(Sender: TObject);
procedure actOtroExecute(Sender: TObject);
procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cbListaDireccionesClientePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure bModificarClick(Sender: TObject);
procedure txtDireccionDblClick(Sender: TObject);
protected
FAlmacenesController : IAlmacenesController;
FAlmacenes: IBizAlmacen;
FClientesController: IClientesController;
FDireccionesClienteController : IDireccionesContactoController;
FDireccionesCliente : IBizDireccionesContacto;
FPedido : IBizPedidoProveedor;
FController : IPedidosProveedorController;
function GetPedidoProveedor: IBizPedidoProveedor;
procedure SetPedidoProveedor(const Value: IBizPedidoProveedor);
procedure CambioDireccionAlmacen;
procedure CambioDireccionCliente;
procedure RefrescarDireccion;
procedure SetReadOnly(Value: Boolean); override;
@ -112,6 +123,20 @@ begin
end;
end;
procedure TfrViewDireccionEntregaPedidoProv.CambioDireccionCliente;
begin
//
end;
procedure TfrViewDireccionEntregaPedidoProv.cbListaDireccionesClientePropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
if Assigned(FPedido) and Assigned(FDireccionesCliente)
and (FPedido.ID_DIRECCION_CLIENTE <> FDireccionesCliente.ID) then
CambioDireccionCliente;
end;
procedure TfrViewDireccionEntregaPedidoProv.cbListaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
@ -129,10 +154,15 @@ begin
FAlmacenes := FAlmacenesController.BuscarTodos;
FAlmacenes.DataTable.Active := True;
dsAlmacenes.DataTable := FAlmacenes.DataTable;
FDireccionesClienteController := TDireccionesContactoController.Create;
FDireccionesCliente := NIL;
// dsDireccionesCliente.DataTable := FDireccionesCliente.DataTable;
end;
destructor TfrViewDireccionEntregaPedidoProv.Destroy;
begin
cbListaDireccionesCliente.Properties.OnValidate := Nil;
cbLista.Properties.OnValidate := Nil;
FAlmacenesController := Nil;
FAlmacenes := Nil;
@ -178,12 +208,14 @@ procedure TfrViewDireccionEntregaPedidoProv.SetPedidoProveedor(
const Value: IBizPedidoProveedor);
begin
cbLista.Properties.OnValidate := NIL;
cbListaDireccionesCliente.Properties.OnValidate := NIL;
dsPedido.DataTable := nil;
FPedido := Value;
dsPedido.DataTable := FPedido.DataTable;
cbLista.Properties.OnValidate := cbListaPropertiesValidate;
cbListaDireccionesCliente.Properties.OnValidate := cbListaDireccionesClientePropertiesValidate;
if (FPedido.ID_ALMACEN < 1) then
actOtro.Checked := True

162
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
View File

@ -39,54 +39,30 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 357
Height = 215
Align = alClient
ExplicitWidth = 357
ExplicitWidth = 335
ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
inherited edtNIFCIF: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
inherited edtCalle: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
inherited edtPoblacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 176
Width = 176
end
inherited edtProvincia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 283
Width = 283
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 254
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 254
ExplicitWidth = 71
Width = 71
@ -99,7 +75,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
object edtFechaPedido: TcxDBDateEdit
Left = 158
Top = 55
Top = 82
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PEDIDO'
DataBinding.DataSource = DADataSource
@ -109,18 +85,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
TabOrder = 2
Width = 158
end
object edtFechaConfirmacion: TcxDBDateEdit
@ -135,23 +107,19 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
Width = 158
end
object edtFechaEntrega: TcxDBDateEdit
Left = 158
Top = 205
Top = 136
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENTREGA'
DataBinding.DataSource = DADataSource
@ -160,15 +128,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 158
end
@ -186,15 +150,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
Width = 158
end
@ -218,8 +178,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
inherited dxLayoutControl1: TdxLayoutControl
Width = 273
Height = 166
ExplicitWidth = 273
ExplicitHeight = 166
ExplicitWidth = 525
ExplicitHeight = 116
inherited rdxDestino1: TRadioButton
Width = 255
ExplicitWidth = 255
@ -233,10 +193,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 425
end
inherited bModificar: TBitBtn
Left = 370
Top = 109
ExplicitLeft = 370
ExplicitTop = 109
Left = 366
Top = 159
ExplicitLeft = 366
ExplicitTop = 159
end
inherited txtDireccion: TStaticText
Height = 177
ExplicitHeight = 177
end
end
inherited ActionList1: TActionList
@ -250,7 +214,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
object cbFormaPago: TcxDBLookupComboBox
Left = 158
Top = 259
Top = 163
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Enabled = False
@ -268,29 +232,25 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.HotTrack = False
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 = 6
TabOrder = 5
Width = 20
end
object bFormasPago: TButton
Left = 415
Top = 259
Top = 163
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
Enabled = False
TabOrder = 7
TabOrder = 6
OnClick = bFormasPagoClick
end
object edtFechaEnvio: TcxDBDateEdit
@ -305,23 +265,19 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
Width = 158
end
object eReferenciaContratoCli: TcxTextEdit
Left = 158
Top = 286
Top = 190
Anchors = [akLeft, akTop, akRight]
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
@ -331,27 +287,23 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
TabOrder = 7
Width = 20
end
object Button1: TButton
Left = 415
Top = 286
Top = 190
Width = 132
Height = 23
Action = actVerContratoCli
TabOrder = 9
TabOrder = 8
end
inline frViewTienda1: TfrViewTienda
Left = 577
@ -374,18 +326,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl
Width = 357
ExplicitWidth = 357
inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
ExplicitWidth = 335
end
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 158
Top = 109
Top = 246
Width = 422
Height = 90
Align = alClient
@ -396,16 +342,16 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 3
TabOrder = 10
ReadOnly = False
ExplicitLeft = 158
ExplicitTop = 109
ExplicitTop = 246
ExplicitWidth = 422
ExplicitHeight = 90
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
ExplicitWidth = 422
ExplicitWidth = 389
ExplicitHeight = 90
Height = 90
Width = 422
@ -413,7 +359,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
object edtlDescripcion: TcxDBTextEdit
Left = 158
Top = 232
Top = 55
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'DESCRIPCION_GENERAL'
@ -425,21 +371,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
TabOrder = 1
Height = 21
Width = 283
end
object edtFechaEnvio2: TcxDBDateEdit
Left = 158
Top = 82
Top = 109
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource
@ -449,23 +391,19 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
TabOrder = 3
Width = 257
end
object cbVendedor: TcxDBLookupComboBox
Left = 158
Top = 315
Top = 219
DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID'
@ -490,7 +428,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
TabOrder = 9
Width = 250
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
@ -513,6 +451,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Control = eReferencia
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
Caption = 'Referencia 2:'
Control = edtlDescripcion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha del pedido:'
Control = edtFechaPedido
@ -523,24 +466,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Control = edtFechaEnvio2
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient
Caption = 'Obervaciones:'
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Fecha de recepci'#243'n:'
Control = edtFechaEntrega
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
Caption = 'Descripci'#243'n:'
Control = edtlDescripcion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -596,6 +526,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Control = cbVendedor
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient
Caption = 'Observaciones:'
Control = frViewObservaciones1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end
end
@ -664,16 +602,16 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
end
object DADataSource: TDADataSource
Left = 24
Top = 40
Left = 88
Top = 8
end
object dsFormaPago: TDADataSource
Left = 56
Top = 8
end
object ActionList1: TActionList
Left = 24
Top = 72
Left = 120
Top = 8
object actVerContratoCli: TAction
Caption = 'Ver contrato de cliente...'
OnExecute = actVerContratoCliExecute

14
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
View File

@ -77,7 +77,7 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Width = 56
end
object cxGridViewDESCRIPCION_GENERAL: TcxGridDBColumn
Caption = 'Descripci'#243'n'
Caption = 'Referencia 2'
DataBinding.FieldName = 'DESCRIPCION_GENERAL'
PropertiesClassName = 'TcxTextEditProperties'
end
@ -197,27 +197,15 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Width = 596
ExplicitWidth = 596
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 251
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 251
ExplicitWidth = 294
Width = 294

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -86,8 +86,6 @@ uses
uBizAsientosServer in '..\Modulos\Contabilidad\Model\uBizAsientosServer.pas',
srvComisiones_Impl in '..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas' {srvComisiones: TDataAbstractService},
uBizComisionesServer in '..\Modulos\Comisiones\Model\uBizComisionesServer.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas',
schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas',
uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule},
@ -138,7 +136,9 @@ uses
uRptListadosContactos_Server in '..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas' {RptListadosContactos: TDataModule},
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.7.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.7.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 25 de enero de 2016 15:45</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.7.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.7.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 01 de junio de 2016 9:42</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,7,2,0
PRODUCTVERSION 2,7,2,0
FILEVERSION 2,7,3,0
PRODUCTVERSION 2,7,3,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.7.2.0\0"
VALUE "FileVersion", "2.7.3.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.7.2.0\0"
VALUE "CompileDate", "miércoles, 09 de marzo de 2016 18:07\0"
VALUE "ProductVersion", "2.7.3.0\0"
VALUE "CompileDate", "miércoles, 01 de junio de 2016 9:47\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.