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, ID_FORMA_PAGO TIPO_ID,
FECHA_ENVIO DATE, FECHA_ENVIO DATE,
ID_TIENDA TIPO_ID, 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) 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( create view V_CONTACTOS_NOMBRES_DIRECCIONES(
ID, ID,
LISTA_NOMBRES) LISTA_NOMBRES)
@ -3783,7 +3834,8 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
ID_FORMA_PAGO, ID_FORMA_PAGO,
ID_TIENDA, ID_TIENDA,
TIENDA, TIENDA,
DESCRIPCION_GENERAL) DESCRIPCION_GENERAL,
ID_DIRECCION_CLIENTE)
AS AS
SELECT SELECT
PEDIDOS_PROVEEDOR.ID, PEDIDOS_PROVEEDOR.ID,
@ -3826,7 +3878,8 @@ SELECT
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO, PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
PEDIDOS_PROVEEDOR.ID_TIENDA, PEDIDOS_PROVEEDOR.ID_TIENDA,
COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA, COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA,
PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL,
PEDIDOS_PROVEEDOR.ID_DIRECCION_CLIENTE
FROM FROM
PEDIDOS_PROVEEDOR PEDIDOS_PROVEEDOR
INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_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"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Articulos\Views\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

3
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,8 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">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 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> </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 "FileVersion", "2.7.2.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.7.2.0\0" VALUE "ProductVersion", "2.7.3.0\0"
END END
END END
BLOCK "VarFileInfo" 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"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de proveedor\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\ccpackD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxExportD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxCommonD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\frx11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\frxe11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\fs11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvAppFrmD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvGlobusD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\PngComponentsD10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\PNG_D10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\tb2k_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\tbx_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

11
Source/GUIBase/uEditorDBItem.dfm
View File

@ -21,7 +21,7 @@ inherited fEditorDBItem: TfEditorDBItem
Width = 650 Width = 650
ExplicitWidth = 650 ExplicitWidth = 650
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 605 ExplicitWidth = 650
inherited TBXItem26: TTBXItem inherited TBXItem26: TTBXItem
Visible = False Visible = False
end end
@ -77,14 +77,12 @@ inherited fEditorDBItem: TfEditorDBItem
object pgPaginas: TPageControl [3] object pgPaginas: TPageControl [3]
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 109 Top = 118
Width = 644 Width = 644
Height = 328 Height = 319
ActivePage = pagGeneral ActivePage = pagGeneral
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 118
ExplicitHeight = 319
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0 ExplicitLeft = 0
@ -95,7 +93,7 @@ inherited fEditorDBItem: TfEditorDBItem
end end
object PnlComentario: TPanel [4] object PnlComentario: TPanel [4]
Left = 0 Left = 0
Top = 76 Top = 85
Width = 650 Width = 650
Height = 30 Height = 30
Align = alTop Align = alTop
@ -105,7 +103,6 @@ inherited fEditorDBItem: TfEditorDBItem
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
VerticalAlignment = taAlignTop VerticalAlignment = taAlignTop
ExplicitTop = 85
object lbComentario: TLabel object lbComentario: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 6 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 { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarEmpresasContacto = '{09803035-EC1E-47D5-A44A-009646FD810D}'; RID_DarEmpresasContacto = '{472CACD6-0E6A-41FE-9ED2-537C64ACA52C}';
RID_PersonalContacto = '{9189C512-E42F-4A70-8091-BCB24B5EBDB3}'; RID_PersonalContacto = '{E4677356-21EF-4ED1-8CB8-6E007EDC4768}';
RID_DarTiendaDeUsuario = '{205D95B2-634E-4887-85A6-48C018B77CA7}'; RID_DarTiendaDeUsuario = '{F51C8AFF-D2D5-4027-B7F1-4F2F18EE55DA}';
RID_SubCuentasContacto = '{86A29408-F7FB-4C21-BEEA-95E6A6176398}'; RID_SubCuentasContacto = '{7386C05F-4BB8-4D5D-9840-421780DC9022}';
RID_Contactos = '{95D8B1E2-A325-44C9-A3DC-F05D03116753}'; RID_Contactos = '{904DED01-45A4-45B9-BD55-F4259DD90889}';
RID_GruposCliente = '{12CC2A2C-509B-4174-A817-B16E0B957461}'; RID_GruposCliente = '{6A6AF3F2-8FBC-40EE-BF53-F4FD0E8CD717}';
RID_DatosBancarios = '{048A41E8-4348-4713-B083-FE719C79C9F4}'; RID_DatosBancarios = '{A5772889-F9BD-4947-8932-6F7537464FCA}';
RID_Clientes = '{1109FEE2-1CF8-43B7-9773-345F3C36E79F}'; RID_ContactosDirecciones = '{1B5F181A-13BF-46E9-BAAE-0A86D07849F7}';
RID_Proveedores = '{AA7D0872-D624-4727-A3C5-E0F1241A2FD6}'; RID_Clientes = '{517433C7-D932-4116-A80B-5F3FEF6C70AA}';
RID_Vendedores = '{6A7D49D7-5C67-4FF9-B93D-EFB25F042DC3}'; RID_Proveedores = '{4A22961C-9423-43DF-A93F-46B2BD116C1B}';
RID_DireccionesContacto = '{453DA476-B83F-4A42-B884-B7F8D4F60349}'; RID_Vendedores = '{1CBABDE6-D012-4FB9-A474-9258FCA38D25}';
RID_ClientesDescuentos = '{39BC1677-2432-4545-BF77-D0188412AA86}'; RID_DireccionesContacto = '{1E9A1687-E932-46C5-A964-59E06D2ADC6C}';
RID_ProcedenciasCliente = '{DC1F0246-260A-407D-BA81-7AF544932A02}'; RID_ClientesDescuentos = '{596AA9EC-5E5B-4049-BB5C-BA3375D822AB}';
RID_GruposProveedor = '{A887BBFA-2DFE-4770-9EB3-4681435D7634}'; RID_ProcedenciasCliente = '{BD34109C-D29B-4E5B-8B19-BA583DF88C1A}';
RID_Contactos_Refresh = '{FDA7E99C-3497-43F5-85A6-EAEE0F1D54DE}'; RID_GruposProveedor = '{24E55CF0-80E1-4754-87E4-440DFCDE8732}';
RID_Contactos_Refresh = '{41366B21-52A6-4C32-82C7-A20158D2DDFC}';
{ Data table names } { Data table names }
nme_DarEmpresasContacto = 'DarEmpresasContacto'; nme_DarEmpresasContacto = 'DarEmpresasContacto';
@ -33,6 +34,7 @@ const
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
nme_GruposCliente = 'GruposCliente'; nme_GruposCliente = 'GruposCliente';
nme_DatosBancarios = 'DatosBancarios'; nme_DatosBancarios = 'DatosBancarios';
nme_ContactosDirecciones = 'ContactosDirecciones';
nme_Clientes = 'Clientes'; nme_Clientes = 'Clientes';
nme_Proveedores = 'Proveedores'; nme_Proveedores = 'Proveedores';
nme_Vendedores = 'Vendedores'; nme_Vendedores = 'Vendedores';
@ -178,6 +180,36 @@ const
idx_DatosBancariosFECHA_ALTA = 7; idx_DatosBancariosFECHA_ALTA = 7;
idx_DatosBancariosFECHA_MODIFICACION = 8; 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 } { Clientes fields }
fld_ClientesID = 'ID'; fld_ClientesID = 'ID';
fld_ClientesID_CATEGORIA = 'ID_CATEGORIA'; fld_ClientesID_CATEGORIA = 'ID_CATEGORIA';
@ -529,7 +561,7 @@ const
type type
{ IDarEmpresasContacto } { IDarEmpresasContacto }
IDarEmpresasContacto = interface(IDAStronglyTypedDataTable) IDarEmpresasContacto = interface(IDAStronglyTypedDataTable)
['{15184075-B134-4220-9D05-92A49F766EEE}'] ['{8BB5E061-F364-4E04-9A15-3AF7CD963D9A}']
{ Property getters and setters } { Property getters and setters }
function GetID_EMPRESAValue: Integer; function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
@ -564,7 +596,7 @@ type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{0859C40F-90F2-4929-8D50-2265CA86A830}'] ['{751C15E3-B72F-45A3-ACA6-EE5536294AB2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -707,7 +739,7 @@ type
{ IDarTiendaDeUsuario } { IDarTiendaDeUsuario }
IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable) IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable)
['{22E99E1B-0398-4E25-A39B-2957E583DB52}'] ['{3FA2CF6E-3BD5-4061-8939-28C8FF90948F}']
{ Property getters and setters } { Property getters and setters }
function GetID_TIENDAValue: Integer; function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer); procedure SetID_TIENDAValue(const aValue: Integer);
@ -742,7 +774,7 @@ type
{ ISubCuentasContacto } { ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable) ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{63F82DF4-9976-41A1-8FF3-BAF5E027E3BF}'] ['{9B286C57-728E-4B5D-B2B5-155391D6FFFD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -837,7 +869,7 @@ type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{B5B0B727-28C1-4323-836F-036FC3860F72}'] ['{069DC5F3-C775-4E5D-8F1B-0AB17E4A0D95}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1160,7 +1192,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{03F52C3C-90E8-4BBD-9087-BB76E72521D3}'] ['{ABBC4C99-5BB7-4AF5-A0E8-AC0330A292DB}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1207,7 +1239,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{7B95F875-C61F-418B-B145-C0790E885DFF}'] ['{E86958FB-3553-4826-92AD-E05BB763F327}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1336,9 +1368,188 @@ type
end; 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 }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{907442E0-5E45-4C9E-8C47-A97FA8009258}'] ['{16982591-D076-457A-A0CF-96642B3A2A21}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1865,7 +2076,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{E1E5CFA4-89CC-438A-B220-4A140E5FE96D}'] ['{6F8A315F-FC5F-44A3-AC1E-1179292FD039}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2392,7 +2603,7 @@ type
{ IVendedores } { IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable) IVendedores = interface(IDAStronglyTypedDataTable)
['{DC80840F-D2B9-4F7A-9544-8A6903CAC9DC}'] ['{CFAFE9D4-4031-4014-A6A2-8666FD35CBF0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2739,7 +2950,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{7D5F30E6-D2B7-4059-A9CC-9B91F1F8EC8F}'] ['{C823E331-ED12-4669-B813-1C1F53612042}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2966,7 +3177,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{3FB8ABE8-0F32-4524-8CBF-5DA9A4660799}'] ['{55FA6AE2-4570-49F3-8C7C-8AA2FB3E1ABA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3049,7 +3260,7 @@ type
{ IProcedenciasCliente } { IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable) IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{C22BEAD6-90E2-4476-84D8-5FC9FB8101CF}'] ['{45E13CDC-38AE-4866-8BF1-3DEDEC2C0A0A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3096,7 +3307,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{02C2EFE2-2CD9-421A-86AD-4CFC9ABA08CF}'] ['{931D5150-8A05-4D86-890A-45F275BEE459}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3143,7 +3354,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{E63F3A20-96A8-466F-AF91-59759697CC5A}'] ['{47929F64-100A-45C5-A6CD-2A57178A1818}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4645,6 +4856,291 @@ begin
end; 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 } { TClientesDataTableRules }
constructor TClientesDataTableRules.Create(aDataTable: TDADataTable); constructor TClientesDataTableRules.Create(aDataTable: TDADataTable);
var var
@ -8102,6 +8598,7 @@ initialization
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules); RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules); RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules); RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules);
RegisterDataTableRules(RID_ContactosDirecciones, TContactosDireccionesDataTableRules);
RegisterDataTableRules(RID_Clientes, TClientesDataTableRules); RegisterDataTableRules(RID_Clientes, TClientesDataTableRules);
RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules); RegisterDataTableRules(RID_Proveedores, TProveedoresDataTableRules);
RegisterDataTableRules(RID_Vendedores, TVendedoresDataTableRules); RegisterDataTableRules(RID_Vendedores, TVendedoresDataTableRules);

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

@ -9,26 +9,27 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_DarEmpresasContactoDelta = '{A6433122-90DA-40E1-A8E3-B5153BDF9037}'; RID_DarEmpresasContactoDelta = '{CA69F10E-9B4E-4274-90F7-56E33D84418F}';
RID_PersonalContactoDelta = '{0F3905F8-664E-4284-A5FB-C7C298C4EE6D}'; RID_PersonalContactoDelta = '{A14FBDB3-92F5-40ED-986A-D4461994FB85}';
RID_DarTiendaDeUsuarioDelta = '{F78868ED-F8C1-43B2-8954-448FD9605F08}'; RID_DarTiendaDeUsuarioDelta = '{5481F88A-73AA-4432-89D7-22FC3C3F3AE1}';
RID_SubCuentasContactoDelta = '{68A1DB34-969D-4C55-BCF3-5BBDD649AE92}'; RID_SubCuentasContactoDelta = '{8DA04B44-EFAA-423F-AA30-ECCCDB94CFD1}';
RID_ContactosDelta = '{80C193EA-B4F4-4D86-B164-4DA3ACFDAB55}'; RID_ContactosDelta = '{DC868481-1C6B-408A-B9D9-86DD141BEFD9}';
RID_GruposClienteDelta = '{DDFB3C1B-E0C2-419C-8FC8-48D12D089F9E}'; RID_GruposClienteDelta = '{47223648-73F6-483B-971C-00C1AC17E65F}';
RID_DatosBancariosDelta = '{889D270E-ED85-4856-9C7E-C499F12F76F4}'; RID_DatosBancariosDelta = '{777B1DE9-1D9B-4127-97C6-D605FDA37D0B}';
RID_ClientesDelta = '{4DB9A1C2-1B72-4CE3-A940-46DCDE7F67E2}'; RID_ContactosDireccionesDelta = '{9C86AA9E-70BA-40CE-B5A5-38CF4A3B0735}';
RID_ProveedoresDelta = '{63D99AC7-1B5F-42AE-91EC-107B40310F49}'; RID_ClientesDelta = '{D7F24E5E-CD4A-4BC2-B98C-E0B8AA57835A}';
RID_VendedoresDelta = '{28D0D946-42EC-4A3F-9AFB-8C16BB22737E}'; RID_ProveedoresDelta = '{D73D96B2-53E6-477D-82CB-B2A69AEEF86B}';
RID_DireccionesContactoDelta = '{D47CBF20-38AE-4F7E-A6C7-44CBA5444C2D}'; RID_VendedoresDelta = '{C12214F4-2ED0-4099-AECB-945D42A72EDC}';
RID_ClientesDescuentosDelta = '{475BA059-0898-4AC0-AAFD-5DEB00D99626}'; RID_DireccionesContactoDelta = '{CFF3C192-A3B8-43FF-9F98-B29B4C4447BC}';
RID_ProcedenciasClienteDelta = '{14F77428-ACCF-4AF1-86C3-88A977F1C5E6}'; RID_ClientesDescuentosDelta = '{56F5AE71-33E1-4D3B-AE18-8C1F47582366}';
RID_GruposProveedorDelta = '{8B49F5CF-4C5A-4E6B-B66B-1A50F003E0CD}'; RID_ProcedenciasClienteDelta = '{47DFCD94-B340-485F-90B1-C9E217F3810D}';
RID_Contactos_RefreshDelta = '{332B4E11-5924-4DE0-B89C-937B51D7E7A9}'; RID_GruposProveedorDelta = '{7DBF3455-38E2-45DE-BABC-280D7B6309AF}';
RID_Contactos_RefreshDelta = '{7A25AA92-54F4-4D92-AD08-3382DDC351B6}';
type type
{ IDarEmpresasContactoDelta } { IDarEmpresasContactoDelta }
IDarEmpresasContactoDelta = interface(IDarEmpresasContacto) IDarEmpresasContactoDelta = interface(IDarEmpresasContacto)
['{A6433122-90DA-40E1-A8E3-B5153BDF9037}'] ['{CA69F10E-9B4E-4274-90F7-56E33D84418F}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -62,7 +63,7 @@ type
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{0F3905F8-664E-4284-A5FB-C7C298C4EE6D}'] ['{A14FBDB3-92F5-40ED-986A-D4461994FB85}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -204,7 +205,7 @@ type
{ IDarTiendaDeUsuarioDelta } { IDarTiendaDeUsuarioDelta }
IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario) IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario)
['{F78868ED-F8C1-43B2-8954-448FD9605F08}'] ['{5481F88A-73AA-4432-89D7-22FC3C3F3AE1}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_TIENDAValue : Integer; function GetOldID_TIENDAValue : Integer;
@ -238,7 +239,7 @@ type
{ ISubCuentasContactoDelta } { ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto) ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{68A1DB34-969D-4C55-BCF3-5BBDD649AE92}'] ['{8DA04B44-EFAA-423F-AA30-ECCCDB94CFD1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
@ -332,7 +333,7 @@ type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{80C193EA-B4F4-4D86-B164-4DA3ACFDAB55}'] ['{DC868481-1C6B-408A-B9D9-86DD141BEFD9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -655,7 +656,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{DDFB3C1B-E0C2-419C-8FC8-48D12D089F9E}'] ['{47223648-73F6-483B-971C-00C1AC17E65F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -701,7 +702,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{889D270E-ED85-4856-9C7E-C499F12F76F4}'] ['{777B1DE9-1D9B-4127-97C6-D605FDA37D0B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -829,9 +830,187 @@ type
end; 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 }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{4DB9A1C2-1B72-4CE3-A940-46DCDE7F67E2}'] ['{D7F24E5E-CD4A-4BC2-B98C-E0B8AA57835A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1358,7 +1537,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{63D99AC7-1B5F-42AE-91EC-107B40310F49}'] ['{D73D96B2-53E6-477D-82CB-B2A69AEEF86B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1885,7 +2064,7 @@ type
{ IVendedoresDelta } { IVendedoresDelta }
IVendedoresDelta = interface(IVendedores) IVendedoresDelta = interface(IVendedores)
['{28D0D946-42EC-4A3F-9AFB-8C16BB22737E}'] ['{C12214F4-2ED0-4099-AECB-945D42A72EDC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -2232,7 +2411,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{D47CBF20-38AE-4F7E-A6C7-44CBA5444C2D}'] ['{CFF3C192-A3B8-43FF-9F98-B29B4C4447BC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2459,7 +2638,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{475BA059-0898-4AC0-AAFD-5DEB00D99626}'] ['{56F5AE71-33E1-4D3B-AE18-8C1F47582366}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2541,7 +2720,7 @@ type
{ IProcedenciasClienteDelta } { IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente) IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{14F77428-ACCF-4AF1-86C3-88A977F1C5E6}'] ['{47DFCD94-B340-485F-90B1-C9E217F3810D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2587,7 +2766,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{8B49F5CF-4C5A-4E6B-B66B-1A50F003E0CD}'] ['{7DBF3455-38E2-45DE-BABC-280D7B6309AF}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2633,7 +2812,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{332B4E11-5924-4DE0-B89C-937B51D7E7A9}'] ['{7A25AA92-54F4-4D92-AD08-3382DDC351B6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -4677,6 +4856,421 @@ begin
end; 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 } { TClientesBusinessProcessorRules }
constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var var
@ -9719,6 +10313,7 @@ initialization
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContactosDireccionesDelta, TContactosDireccionesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_VendedoresDelta, TVendedoresBusinessProcessorRules); RegisterBusinessProcessorRules(RID_VendedoresDelta, TVendedoresBusinessProcessorRules);

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

@ -655,6 +655,151 @@ object srvContactos: TsrvContactos
DataType = datDateTime DataType = datDateTime
end> end>
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 item
Params = <> Params = <>
Statements = < Statements = <
@ -4840,6 +4985,80 @@ object srvContactos: TsrvContactos
item item
Name = 'PersonalContacto_FECHA_MODIFICACION' Name = 'PersonalContacto_FECHA_MODIFICACION'
DataType = datDateTime 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> end>
Left = 126 Left = 126
Top = 14 Top = 14

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

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

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

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

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

@ -42,14 +42,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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> <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\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 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> </Excluded_Packages><Source><Source Name="MainSource">PedidosProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -59,9 +51,9 @@
<DelphiCompile Include="PedidosProveedor_model.dpk"> <DelphiCompile Include="PedidosProveedor_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" /> <DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" /> <DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="Data\uIDataModulePedidosProveedor.pas" /> <DCCReference Include="Data\uIDataModulePedidosProveedor.pas" />
<DCCReference Include="Data\uIDataModulePedidosProveedorReport.pas" /> <DCCReference Include="Data\uIDataModulePedidosProveedorReport.pas" />
<DCCReference Include="schPedidosProveedorClient_Intf.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 { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedor = '{4E661347-2977-484B-A6B0-80499514DECB}'; RID_PedidosProveedor = '{F9A04E72-CC9B-404C-B543-59DC545248DE}';
RID_PedidosProveedor_Detalles = '{4C0745E8-E202-4453-B100-9488446601CE}'; RID_PedidosProveedor_Detalles = '{B001B59E-8710-467D-879E-63C7BE102CD6}';
{ Data table names } { Data table names }
nme_PedidosProveedor = 'PedidosProveedor'; nme_PedidosProveedor = 'PedidosProveedor';
@ -58,6 +58,7 @@ const
fld_PedidosProveedorID_VENDEDOR = 'ID_VENDEDOR'; fld_PedidosProveedorID_VENDEDOR = 'ID_VENDEDOR';
fld_PedidosProveedorVENDEDOR = 'VENDEDOR'; fld_PedidosProveedorVENDEDOR = 'VENDEDOR';
fld_PedidosProveedorDESCRIPCION_GENERAL = 'DESCRIPCION_GENERAL'; fld_PedidosProveedorDESCRIPCION_GENERAL = 'DESCRIPCION_GENERAL';
fld_PedidosProveedorID_DIRECCION_CLIENTE = 'ID_DIRECCION_CLIENTE';
{ PedidosProveedor field indexes } { PedidosProveedor field indexes }
idx_PedidosProveedorID = 0; idx_PedidosProveedorID = 0;
@ -101,6 +102,7 @@ const
idx_PedidosProveedorID_VENDEDOR = 38; idx_PedidosProveedorID_VENDEDOR = 38;
idx_PedidosProveedorVENDEDOR = 39; idx_PedidosProveedorVENDEDOR = 39;
idx_PedidosProveedorDESCRIPCION_GENERAL = 40; idx_PedidosProveedorDESCRIPCION_GENERAL = 40;
idx_PedidosProveedorID_DIRECCION_CLIENTE = 41;
{ PedidosProveedor_Detalles fields } { PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID'; fld_PedidosProveedor_DetallesID = 'ID';
@ -133,7 +135,7 @@ const
type type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{F47C3279-7242-45E8-9365-036E76E6F64B}'] ['{D09B45C4-717B-4D44-B535-0ABAAE743DBD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -297,6 +299,10 @@ type
procedure SetDESCRIPCION_GENERALValue(const aValue: String); procedure SetDESCRIPCION_GENERALValue(const aValue: String);
function GetDESCRIPCION_GENERALIsNull: Boolean; function GetDESCRIPCION_GENERALIsNull: Boolean;
procedure SetDESCRIPCION_GENERALIsNull(const aValue: 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 } { Properties }
@ -382,6 +388,8 @@ type
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue; property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull; 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; end;
{ TPedidosProveedorDataTableRules } { TPedidosProveedorDataTableRules }
@ -555,6 +563,10 @@ type
procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual; procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual;
function GetDESCRIPCION_GENERALIsNull: Boolean; virtual; function GetDESCRIPCION_GENERALIsNull: Boolean; virtual;
procedure SetDESCRIPCION_GENERALIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -639,6 +651,8 @@ type
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue; property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -648,7 +662,7 @@ type
{ IPedidosProveedor_Detalles } { IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{B77F2CC6-6AAD-48DE-BF15-411FD2067FA1}'] ['{64CF9676-7BE9-4830-A7C1-CB33770836E1}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1701,6 +1715,27 @@ begin
DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsVariant := Null; DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsVariant := Null;
end; 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 } { TPedidosProveedor_DetallesDataTableRules }
constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedorDelta = '{2B5BA176-7B75-49EB-80AB-ADC962C1A41D}'; RID_PedidosProveedorDelta = '{89722FDC-B6E6-4109-8393-E2204281481F}';
RID_PedidosProveedor_DetallesDelta = '{F832D085-05C3-43CF-9354-9CC5A1A1CEF0}'; RID_PedidosProveedor_DetallesDelta = '{F7F93BEC-E7C5-40A0-AD03-62DA49D17ABC}';
type type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{2B5BA176-7B75-49EB-80AB-ADC962C1A41D}'] ['{89722FDC-B6E6-4109-8393-E2204281481F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -58,6 +58,7 @@ type
function GetOldID_VENDEDORValue : Integer; function GetOldID_VENDEDORValue : Integer;
function GetOldVENDEDORValue : String; function GetOldVENDEDORValue : String;
function GetOldDESCRIPCION_GENERALValue : String; function GetOldDESCRIPCION_GENERALValue : String;
function GetOldID_DIRECCION_CLIENTEValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -101,6 +102,7 @@ type
property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue; property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
property OldVENDEDOR : String read GetOldVENDEDORValue; property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue; property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue;
property OldID_DIRECCION_CLIENTE : Integer read GetOldID_DIRECCION_CLIENTEValue;
end; end;
{ TPedidosProveedorBusinessProcessorRules } { TPedidosProveedorBusinessProcessorRules }
@ -356,6 +358,12 @@ type
function GetOldDESCRIPCION_GENERALIsNull: Boolean; virtual; function GetOldDESCRIPCION_GENERALIsNull: Boolean; virtual;
procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual; procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual;
procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -522,6 +530,10 @@ type
property DESCRIPCION_GENERALIsNull : Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull; property DESCRIPCION_GENERALIsNull : Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue; property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue;
property OldDESCRIPCION_GENERALIsNull : Boolean read GetOldDESCRIPCION_GENERALIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -531,7 +543,7 @@ type
{ IPedidosProveedor_DetallesDelta } { IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{F832D085-05C3-43CF-9354-9CC5A1A1CEF0}'] ['{F7F93BEC-E7C5-40A0-AD03-62DA49D17ABC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -1996,6 +2008,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL] := Null;
end; 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 } { TPedidosProveedor_DetallesBusinessProcessorRules }
constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); 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' ' + 'SELECT'#10' PEDIDOS_PROVEEDOR.ID,'#10' PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' +
' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' + ' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' +
#10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.FECHA_EN' + #10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.FECHA_EN' +
'VIO,'#10' PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' VENDEDORES.NOMBRE as V' + 'VIO,'#10' PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL,'#10' PEDIDOS_PROVEEDO' +
'ENDEDOR,'#10' PROVEEDOR.NOMBRE,'#10' PROVEEDOR.FAX,'#10#10' CONTRATOS_CLIEN' + 'R.OBSERVACIONES,'#10' VENDEDORES.NOMBRE as VENDEDOR,'#10' PROVEEDOR.NO' +
'TE.referencia as referencia_contrato,'#10' CONTRATOS_CLIENTE.refere' + 'MBRE,'#10' PROVEEDOR.FAX,'#10#10' CONTRATOS_CLIENTE.referencia as refere' +
'ncia_CLIENTE,'#10' CLIENTES.NOMBRE AS NOMBRE_CLIENTE,'#10' '#10' PEDIDOS_' + 'ncia_contrato,'#10' CONTRATOS_CLIENTE.referencia_CLIENTE,'#10' CLIENTE' +
'PROVEEDOR.ID_ALMACEN,'#10' '#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = ' + 'S.NOMBRE AS NOMBRE_CLIENTE,'#10' '#10' PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' ' +
'0), PEDIDOS_PROVEEDOR.CALLE, ALMACENES.CALLE) AS CALLE,'#10' IIF ((' + ' '#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.C' +
'PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.POBLACION, ' + 'ALLE, ALMACENES.CALLE) AS CALLE,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_AL' +
'ALMACENES.POBLACION) AS POBLACION,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_' + 'MACEN = 0), PEDIDOS_PROVEEDOR.POBLACION, ALMACENES.POBLACION) AS' +
'ALMACEN = 0), PEDIDOS_PROVEEDOR.PROVINCIA, ALMACENES.PROVINCIA) ' + ' POBLACION,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_P' +
'AS PROVINCIA,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS' + 'ROVEEDOR.PROVINCIA, ALMACENES.PROVINCIA) AS PROVINCIA,'#10' IIF ((P' +
'_PROVEEDOR.CODIGO_POSTAL, ALMACENES.CODIGO_POSTAL) AS CODIGO_POS' + 'EDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.CODIGO_POSTA' +
'TAL,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDO' + 'L, ALMACENES.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' IIF ((PEDIDOS_PR' +
'R.PERSONA_CONTACTO, ALMACENES.PERSONA_CONTACTO) AS PERSONA_CONTA' + 'OVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.PERSONA_CONTACTO, ALM' +
'CTO,'#10' IIF ((PEDIDOS_PROVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDO' + 'ACENES.PERSONA_CONTACTO) AS PERSONA_CONTACTO,'#10' IIF ((PEDIDOS_PR' +
'R.TELEFONO, ALMACENES.TELEFONO) AS TELEFONO'#10#10'FROM'#10' PEDIDOS_PROV' + 'OVEEDOR.ID_ALMACEN = 0), PEDIDOS_PROVEEDOR.TELEFONO, ALMACENES.T' +
'EEDOR'#10' LEFT OUTER JOIN CONTACTOS PROVEEDOR ON (PROVEEDOR .ID = ' + 'ELEFONO) AS TELEFONO'#10#10'FROM'#10' PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOIN' +
'PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN CONTACTOS VEND' + ' CONTACTOS PROVEEDOR ON (PROVEEDOR .ID = PEDIDOS_PROVEEDOR.ID_PR' +
'EDORES ON (VENDEDORES.ID = PEDIDOS_PROVEEDOR.ID_VENDEDOR)'#10' LEFT' + 'OVEEDOR)'#10' LEFT OUTER JOIN CONTACTOS VENDEDORES ON (VENDEDORES.I' +
' OUTER JOIN CONTRATOS_CLIENTE ON (CONTRATOS_CLIENTE.ID = PEDIDOS' + 'D = PEDIDOS_PROVEEDOR.ID_VENDEDOR)'#10' LEFT OUTER JOIN CONTRATOS_C' +
'_PROVEEDOR.ID_CONTRATO_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS CLIE' + 'LIENTE ON (CONTRATOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_CONTRATO_' +
'NTES ON (CLIENTES.ID = CONTRATOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTE' + 'CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ' +
'R JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN' + 'CONTRATOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN ALMACENES ON (AL' +
')'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10 'MACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PROVEED' +
'OR.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -201,6 +202,10 @@ object RptPedidosProveedor: TRptPedidosProveedor
item item
DatasetField = 'ID_ALMACEN' DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN' TableField = 'ID_ALMACEN'
end
item
DatasetField = 'DESCRIPCION_GENERAL'
TableField = 'DESCRIPCION_GENERAL'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -230,6 +235,11 @@ object RptPedidosProveedor: TRptPedidosProveedor
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime DataType = datDateTime
end end
item
Name = 'DESCRIPCION_GENERAL'
DataType = datString
Size = 255
end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo
@ -455,7 +465,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 42300.581549502310000000 ReportOptions.LastChange = 42481.774581759260000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False

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

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

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

@ -23,15 +23,14 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Height = 17 Height = 17
Action = actLista Action = actLista
TabOrder = 0 TabOrder = 0
TabStop = True
end end
object rdxDestino2: TRadioButton object rdxDestino2: TRadioButton
Left = 10 Left = 10
Top = 60 Top = 110
Width = 287 Width = 287
Height = 17 Height = 17
Action = actOtro Action = actOtro
TabOrder = 2 TabOrder = 4
end end
object cbLista: TcxDBLookupComboBox object cbLista: TcxDBLookupComboBox
Left = 25 Left = 25
@ -70,19 +69,61 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Width = 128 Width = 128
Height = 25 Height = 25
Caption = 'Modificar la direcci'#243'n...' Caption = 'Modificar la direcci'#243'n...'
TabOrder = 4 TabOrder = 6
OnClick = bModificarClick OnClick = bModificarClick
end end
object txtDireccion: TStaticText object txtDireccion: TStaticText
Left = 25 Left = 25
Top = 83 Top = 133
Width = 551 Width = 551
Height = 177 Height = 177
AutoSize = False AutoSize = False
BevelKind = bkFlat BevelKind = bkFlat
TabOrder = 3 TabOrder = 5
OnDblClick = txtDireccionDblClick OnDblClick = txtDireccionDblClick
end 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 object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -101,6 +142,18 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Control = cbLista Control = cbLista
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end 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 object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'New Item' Caption = 'New Item'
ShowCaption = False ShowCaption = False
@ -129,8 +182,8 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
end end
end end
object ActionList1: TActionList object ActionList1: TActionList
Left = 80 Left = 248
Top = 16 Top = 8
object actLista: TAction object actLista: TAction
Caption = 'Recibir el pedido en el almac'#233'n:' Caption = 'Recibir el pedido en el almac'#233'n:'
Checked = True Checked = True
@ -144,11 +197,15 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
end end
end end
object dsPedido: TDADataSource object dsPedido: TDADataSource
Left = 40 Left = 280
Top = 8 Top = 8
end end
object dsAlmacenes: TDADataSource object dsAlmacenes: TDADataSource
Left = 8 Left = 312
Top = 40 Top = 8
end
object dsDireccionesCliente: TDADataSource
Left = 344
Top = 8
end end
end end

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

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

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

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

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

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

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -86,8 +86,6 @@ uses
uBizAsientosServer in '..\Modulos\Contabilidad\Model\uBizAsientosServer.pas', uBizAsientosServer in '..\Modulos\Contabilidad\Model\uBizAsientosServer.pas',
srvComisiones_Impl in '..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas' {srvComisiones: TDataAbstractService}, srvComisiones_Impl in '..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas' {srvComisiones: TDataAbstractService},
uBizComisionesServer in '..\Modulos\Comisiones\Model\uBizComisionesServer.pas', 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', schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas',
schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas', schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas',
uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule}, 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}, uRptListadosContactos_Server in '..\Modulos\Contactos\Reports\uRptListadosContactos_Server.pas' {RptListadosContactos: TDataModule},
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: 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', 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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

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

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.