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

Tarea #1425 -> Añadir una columna en la lista de clientes para mostrar los nombres de la pestaña 'Direcciones'

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@639 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2016-01-25 15:37:57 +00:00
parent 901997348a
commit d722478085
18 changed files with 425 additions and 164 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Database/scripts/factuges.sql
View File

@ -2065,6 +2065,13 @@ SELECT CONTACTOS.ID,
LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTACTOS.ID_TIENDA) LEFT JOIN TIENDAS ON (TIENDAS.ID = CONTACTOS.ID_TIENDA)
; ;
create view V_CONTACTOS_NOMBRES_DIRECCIONES(
ID,
LISTA_NOMBRES)
AS
select contactos_direcciones.id_contacto, LIST(contactos_direcciones.nombre, ', ') AS lista_nombres_direcciones
from contactos_direcciones
group by id_contacto;
/* View: V_CLIENTES */ /* View: V_CLIENTES */
@ -2109,7 +2116,8 @@ CREATE VIEW V_CLIENTES(
PROCEDENCIA_CLIENTE, PROCEDENCIA_CLIENTE,
VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_1,
VENCIMIENTO_FACTURAS_2, VENCIMIENTO_FACTURAS_2,
VENCIMIENTO_FACTURAS_3) VENCIMIENTO_FACTURAS_3,
LISTA_NOMBRES)
AS AS
SELECT SELECT
V_CONTACTOS.ID, V_CONTACTOS.ID,
@ -2152,10 +2160,12 @@ SELECT
CLIENTES_DATOS.PROCEDENCIA_CLIENTE, CLIENTES_DATOS.PROCEDENCIA_CLIENTE,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1, CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_2, CLIENTES_DATOS.VENCIMIENTO_FACTURAS_2,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_3 CLIENTES_DATOS.VENCIMIENTO_FACTURAS_3,
V_CONTACTOS_NOMBRES_DIRECCIONES.LISTA_NOMBRES
FROM V_CONTACTOS FROM V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
LEFT OUTER JOIN V_CONTACTOS_NOMBRES_DIRECCIONES ON (V_CONTACTOS.ID = V_CONTACTOS_NOMBRES_DIRECCIONES.ID)
WHERE WHERE
V_CONTACTOS.ID_CATEGORIA = 1 V_CONTACTOS.ID_CATEGORIA = 1
; ;

96
Source/Base/Base.dproj
View File

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

2
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">1</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.1.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.1.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">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>
<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>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,7,0,0 FILEVERSION 2,7,2,0
PRODUCTVERSION 2,7,0,0 PRODUCTVERSION 2,7,2,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.0.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.0.0\0" VALUE "ProductVersion", "2.7.2.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="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Modulos\Contactos\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" /> <DCCReference Include="..\Modulos\Contactos\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" /> <DCCReference Include="..\Modulos\Contactos\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" /> <DCCReference Include="..\Modulos\Contactos\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Contactos\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

2
Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk
View File

@ -65,6 +65,6 @@ contains
uEditorElegirSubCuentas in 'uEditorElegirSubCuentas.pas' {fEditorElegirSubCuentas: TfEditorEjercicios}, uEditorElegirSubCuentas in 'uEditorElegirSubCuentas.pas' {fEditorElegirSubCuentas: TfEditorEjercicios},
uViewListaSubCuentas in 'uViewListaSubCuentas.pas' {frViewListaSubcuentas: TFrame}, uViewListaSubCuentas in 'uViewListaSubCuentas.pas' {frViewListaSubcuentas: TFrame},
uViewExtractoMovimientos in 'uViewExtractoMovimientos.pas' {frViewExtractoMovimientos: TFrame}, uViewExtractoMovimientos in 'uViewExtractoMovimientos.pas' {frViewExtractoMovimientos: TFrame},
uEditorExtractoMovimientos in 'uEditorExtractoMovimientos.pas' {fEditorExtractoMovimientos: TfEditorExtractoMovimientos}; uEditorExtractoMovimientos in 'uEditorExtractoMovimientos.pas' {fEditorExtractoMovimientos: TfEditorExtractoMovimientos} ;
end. end.

10
Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj
View File

@ -48,11 +48,11 @@
<DelphiCompile Include="Contabilidad_view.dpk"> <DelphiCompile Include="Contabilidad_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Recibos de cliente\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Contabilidad_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Recibos de cliente\Contabilidad_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_model.dcp" />
<DCCReference Include="..\..\Recibos de cliente\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="uContabilidadViewRegister.pas"> <DCCReference Include="uContabilidadViewRegister.pas">
<Form>frViewEpigrafes</Form> <Form>frViewEpigrafes</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>

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

@ -281,6 +281,13 @@ inherited DataModuleClientes: TDataModuleClientes
item item
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datInteger DataType = datInteger
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
DictionaryEntry = 'Clientes_LISTA_NOMBRES'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -3,28 +3,30 @@ unit schContactosClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const 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_PersonalContacto = '{10850DAC-8A04-46B8-882A-D9D05178F533}'; RID_DarEmpresasContacto = '{09803035-EC1E-47D5-A44A-009646FD810D}';
RID_DarTiendaDeUsuario = '{4A3CFB9A-64F8-41D3-8B67-D3BD773EC6F0}'; RID_PersonalContacto = '{9189C512-E42F-4A70-8091-BCB24B5EBDB3}';
RID_SubCuentasContacto = '{98A05B2F-8C31-4012-A9C3-40E3FD982FEF}'; RID_DarTiendaDeUsuario = '{205D95B2-634E-4887-85A6-48C018B77CA7}';
RID_Contactos = '{EC034344-6F48-4962-B530-9C8590FFA881}'; RID_SubCuentasContacto = '{86A29408-F7FB-4C21-BEEA-95E6A6176398}';
RID_GruposCliente = '{0C0F2DE5-1C7D-42ED-AF00-57BB3F081EEA}'; RID_Contactos = '{95D8B1E2-A325-44C9-A3DC-F05D03116753}';
RID_DatosBancarios = '{8120C3EA-4394-4FA5-AA19-9DE1AABDABD6}'; RID_GruposCliente = '{12CC2A2C-509B-4174-A817-B16E0B957461}';
RID_Clientes = '{D01FA8E7-3AEC-4B37-9F26-015F3CD695CA}'; RID_DatosBancarios = '{048A41E8-4348-4713-B083-FE719C79C9F4}';
RID_Proveedores = '{510572A1-E390-401D-A8CE-007F4104350C}'; RID_Clientes = '{1109FEE2-1CF8-43B7-9773-345F3C36E79F}';
RID_Vendedores = '{DEDAD190-7EF1-42A4-BAED-CFFD9D5CED4D}'; RID_Proveedores = '{AA7D0872-D624-4727-A3C5-E0F1241A2FD6}';
RID_DireccionesContacto = '{58A83B78-7C3F-4742-87CD-CC211F2D553F}'; RID_Vendedores = '{6A7D49D7-5C67-4FF9-B93D-EFB25F042DC3}';
RID_ClientesDescuentos = '{BFBA6A41-1628-4808-B100-11561E0ED847}'; RID_DireccionesContacto = '{453DA476-B83F-4A42-B884-B7F8D4F60349}';
RID_ProcedenciasCliente = '{E65DD5CD-347E-4C08-BB87-DDF77C45AEE6}'; RID_ClientesDescuentos = '{39BC1677-2432-4545-BF77-D0188412AA86}';
RID_GruposProveedor = '{4A8B2052-F645-428F-92D7-E8897E201BEC}'; RID_ProcedenciasCliente = '{DC1F0246-260A-407D-BA81-7AF544932A02}';
RID_Contactos_Refresh = '{A7344712-243B-40A9-A854-7EB1096E03B0}'; RID_GruposProveedor = '{A887BBFA-2DFE-4770-9EB3-4681435D7634}';
RID_Contactos_Refresh = '{FDA7E99C-3497-43F5-85A6-EAEE0F1D54DE}';
{ Data table names } { Data table names }
nme_DarEmpresasContacto = 'DarEmpresasContacto';
nme_PersonalContacto = 'PersonalContacto'; nme_PersonalContacto = 'PersonalContacto';
nme_DarTiendaDeUsuario = 'DarTiendaDeUsuario'; nme_DarTiendaDeUsuario = 'DarTiendaDeUsuario';
nme_SubCuentasContacto = 'SubCuentasContacto'; nme_SubCuentasContacto = 'SubCuentasContacto';
@ -40,6 +42,12 @@ const
nme_GruposProveedor = 'GruposProveedor'; nme_GruposProveedor = 'GruposProveedor';
nme_Contactos_Refresh = 'Contactos_Refresh'; nme_Contactos_Refresh = 'Contactos_Refresh';
{ DarEmpresasContacto fields }
fld_DarEmpresasContactoID_EMPRESA = 'ID_EMPRESA';
{ DarEmpresasContacto field indexes }
idx_DarEmpresasContactoID_EMPRESA = 0;
{ PersonalContacto fields } { PersonalContacto fields }
fld_PersonalContactoID = 'ID'; fld_PersonalContactoID = 'ID';
fld_PersonalContactoID_CONTACTO = 'ID_CONTACTO'; fld_PersonalContactoID_CONTACTO = 'ID_CONTACTO';
@ -212,6 +220,7 @@ const
fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2';
fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3';
fld_ClientesLISTA_NOMBRES = 'LISTA_NOMBRES';
{ Clientes field indexes } { Clientes field indexes }
idx_ClientesID = 0; idx_ClientesID = 0;
@ -255,6 +264,7 @@ const
idx_ClientesVENCIMIENTO_FACTURAS_1 = 38; idx_ClientesVENCIMIENTO_FACTURAS_1 = 38;
idx_ClientesVENCIMIENTO_FACTURAS_2 = 39; idx_ClientesVENCIMIENTO_FACTURAS_2 = 39;
idx_ClientesVENCIMIENTO_FACTURAS_3 = 40; idx_ClientesVENCIMIENTO_FACTURAS_3 = 40;
idx_ClientesLISTA_NOMBRES = 41;
{ Proveedores fields } { Proveedores fields }
fld_ProveedoresID = 'ID'; fld_ProveedoresID = 'ID';
@ -517,9 +527,44 @@ const
idx_Contactos_RefreshPERSONA_CONTACTO = 20; idx_Contactos_RefreshPERSONA_CONTACTO = 20;
type type
{ IDarEmpresasContacto }
IDarEmpresasContacto = interface(IDAStronglyTypedDataTable)
['{15184075-B134-4220-9D05-92A49F766EEE}']
{ Property getters and setters }
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
{ Properties }
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
end;
{ TDarEmpresasContactoDataTableRules }
TDarEmpresasContactoDataTableRules = class(TIntfObjectDADataTableRules, IDarEmpresasContacto)
private
protected
{ Property getters and setters }
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{DEAA6039-614F-4B15-B4F2-F9C9B4DB3A15}'] ['{0859C40F-90F2-4929-8D50-2265CA86A830}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -662,7 +707,7 @@ type
{ IDarTiendaDeUsuario } { IDarTiendaDeUsuario }
IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable) IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable)
['{88F010C0-E12E-4427-8C13-90DCB2CBF53C}'] ['{22E99E1B-0398-4E25-A39B-2957E583DB52}']
{ 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);
@ -697,7 +742,7 @@ type
{ ISubCuentasContacto } { ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable) ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{835A0070-997F-416F-9718-CB82124338A8}'] ['{63F82DF4-9976-41A1-8FF3-BAF5E027E3BF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -792,7 +837,7 @@ type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{B479C112-135D-46D0-B72B-2A46C8D32A87}'] ['{B5B0B727-28C1-4323-836F-036FC3860F72}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1115,7 +1160,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{F4F42BF3-C319-4CAC-A11E-435ACF830CC5}'] ['{03F52C3C-90E8-4BBD-9087-BB76E72521D3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1162,7 +1207,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{5BC08B80-5030-40F7-92FB-59256E2C0E75}'] ['{7B95F875-C61F-418B-B145-C0790E885DFF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1293,7 +1338,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{48D18C28-B5EE-4C37-B313-A8AF373F3D64}'] ['{907442E0-5E45-4C9E-8C47-A97FA8009258}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1458,6 +1503,10 @@ type
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer);
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
function GetLISTA_NOMBRESValue: String;
procedure SetLISTA_NOMBRESValue(const aValue: String);
function GetLISTA_NOMBRESIsNull: Boolean;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -1543,6 +1592,8 @@ type
property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
end; end;
{ TClientesDataTableRules } { TClientesDataTableRules }
@ -1715,6 +1766,10 @@ type
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1799,6 +1854,8 @@ type
property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1808,7 +1865,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{A92DE88A-7E08-4CD2-9E99-757ECD192475}'] ['{E1E5CFA4-89CC-438A-B220-4A140E5FE96D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2335,7 +2392,7 @@ type
{ IVendedores } { IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable) IVendedores = interface(IDAStronglyTypedDataTable)
['{D1EF06EF-DA47-4324-AA3F-481CB71ACFDD}'] ['{DC80840F-D2B9-4F7A-9544-8A6903CAC9DC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2682,7 +2739,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{333D0482-701A-4BB6-AA51-1F1F34D6A8F1}'] ['{7D5F30E6-D2B7-4059-A9CC-9B91F1F8EC8F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2909,7 +2966,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{A1F86ADF-8673-4E8F-B3C4-F864F7A5FEBB}'] ['{3FB8ABE8-0F32-4524-8CBF-5DA9A4660799}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2992,7 +3049,7 @@ type
{ IProcedenciasCliente } { IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable) IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{9789278E-8F6D-427E-82D1-6386D8AB21AE}'] ['{C22BEAD6-90E2-4476-84D8-5FC9FB8101CF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3039,7 +3096,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{F0DACCCA-7AB3-4862-BD6D-6D9C401378AA}'] ['{02C2EFE2-2CD9-421A-86AD-4CFC9ABA08CF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3086,7 +3143,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{6041072A-9CB7-4096-88CF-5069C7EA0833}'] ['{E63F3A20-96A8-466F-AF91-59759697CC5A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3363,6 +3420,39 @@ implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
{ TDarEmpresasContactoDataTableRules }
constructor TDarEmpresasContactoDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDarEmpresasContactoDataTableRules.Destroy;
begin
inherited;
end;
function TDarEmpresasContactoDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].AsInteger;
end;
procedure TDarEmpresasContactoDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].AsInteger := aValue;
end;
function TDarEmpresasContactoDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].IsNull;
end;
procedure TDarEmpresasContactoDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DarEmpresasContactoID_EMPRESA].AsVariant := Null;
end;
{ TPersonalContactoDataTableRules } { TPersonalContactoDataTableRules }
constructor TPersonalContactoDataTableRules.Create(aDataTable: TDADataTable); constructor TPersonalContactoDataTableRules.Create(aDataTable: TDADataTable);
begin begin
@ -5434,6 +5524,27 @@ begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsVariant := Null; DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsVariant := Null;
end; end;
function TClientesDataTableRules.GetLISTA_NOMBRESValue: String;
begin
result := DataTable.Fields[idx_ClientesLISTA_NOMBRES].AsString;
end;
procedure TClientesDataTableRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesLISTA_NOMBRES].AsString := aValue;
end;
function TClientesDataTableRules.GetLISTA_NOMBRESIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesLISTA_NOMBRES].IsNull;
end;
procedure TClientesDataTableRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesLISTA_NOMBRES].AsVariant := Null;
end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable); constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);
@ -7984,6 +8095,7 @@ end;
initialization initialization
RegisterDataTableRules(RID_DarEmpresasContacto, TDarEmpresasContactoDataTableRules);
RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules); RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules);
RegisterDataTableRules(RID_DarTiendaDeUsuario, TDarTiendaDeUsuarioDataTableRules); RegisterDataTableRules(RID_DarTiendaDeUsuario, TDarTiendaDeUsuarioDataTableRules);
RegisterDataTableRules(RID_SubCuentasContacto, TSubCuentasContactoDataTableRules); RegisterDataTableRules(RID_SubCuentasContacto, TSubCuentasContactoDataTableRules);

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

@ -9,25 +9,60 @@ 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_PersonalContactoDelta = '{5E077D9B-D4D9-4B7D-B1F4-8236A79DC607}'; RID_DarEmpresasContactoDelta = '{A6433122-90DA-40E1-A8E3-B5153BDF9037}';
RID_DarTiendaDeUsuarioDelta = '{7AFE4420-13DD-420E-A8DE-93464EF93F59}'; RID_PersonalContactoDelta = '{0F3905F8-664E-4284-A5FB-C7C298C4EE6D}';
RID_SubCuentasContactoDelta = '{0FAD99B4-0F6F-43AB-A6A2-D05725700767}'; RID_DarTiendaDeUsuarioDelta = '{F78868ED-F8C1-43B2-8954-448FD9605F08}';
RID_ContactosDelta = '{29E47B8B-30E6-4B4E-B218-6E3CB867BDC8}'; RID_SubCuentasContactoDelta = '{68A1DB34-969D-4C55-BCF3-5BBDD649AE92}';
RID_GruposClienteDelta = '{8B15524D-83C1-4F38-ACCE-2A0CA45DBFEF}'; RID_ContactosDelta = '{80C193EA-B4F4-4D86-B164-4DA3ACFDAB55}';
RID_DatosBancariosDelta = '{AE0DA606-F1FC-4725-94C3-F1F22858DF25}'; RID_GruposClienteDelta = '{DDFB3C1B-E0C2-419C-8FC8-48D12D089F9E}';
RID_ClientesDelta = '{6CD74F52-43BA-4DDD-9626-374A140E486C}'; RID_DatosBancariosDelta = '{889D270E-ED85-4856-9C7E-C499F12F76F4}';
RID_ProveedoresDelta = '{45BEDF42-D57A-4B27-9A39-DAA56D0EFDAA}'; RID_ClientesDelta = '{4DB9A1C2-1B72-4CE3-A940-46DCDE7F67E2}';
RID_VendedoresDelta = '{365B6366-050C-443E-8A11-66EB0D7F9E0B}'; RID_ProveedoresDelta = '{63D99AC7-1B5F-42AE-91EC-107B40310F49}';
RID_DireccionesContactoDelta = '{BFBF154C-C62B-4DFC-B816-4C7649222909}'; RID_VendedoresDelta = '{28D0D946-42EC-4A3F-9AFB-8C16BB22737E}';
RID_ClientesDescuentosDelta = '{75E242C6-00BE-4179-AE7F-4393F5AE9B4A}'; RID_DireccionesContactoDelta = '{D47CBF20-38AE-4F7E-A6C7-44CBA5444C2D}';
RID_ProcedenciasClienteDelta = '{1D54F076-4D87-414E-B567-2052949AF687}'; RID_ClientesDescuentosDelta = '{475BA059-0898-4AC0-AAFD-5DEB00D99626}';
RID_GruposProveedorDelta = '{C3A6BA6F-15EC-486F-8212-0CEB2A66D6A1}'; RID_ProcedenciasClienteDelta = '{14F77428-ACCF-4AF1-86C3-88A977F1C5E6}';
RID_Contactos_RefreshDelta = '{F1DF7DB2-6FC0-43D6-B14B-E6E6DE744DE4}'; RID_GruposProveedorDelta = '{8B49F5CF-4C5A-4E6B-B66B-1A50F003E0CD}';
RID_Contactos_RefreshDelta = '{332B4E11-5924-4DE0-B89C-937B51D7E7A9}';
type type
{ IDarEmpresasContactoDelta }
IDarEmpresasContactoDelta = interface(IDarEmpresasContacto)
['{A6433122-90DA-40E1-A8E3-B5153BDF9037}']
{ Property getters and setters }
function GetOldID_EMPRESAValue : Integer;
{ Properties }
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
end;
{ TDarEmpresasContactoBusinessProcessorRules }
TDarEmpresasContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IDarEmpresasContacto, IDarEmpresasContactoDelta)
private
protected
{ Property getters and setters }
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{5E077D9B-D4D9-4B7D-B1F4-8236A79DC607}'] ['{0F3905F8-664E-4284-A5FB-C7C298C4EE6D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -169,7 +204,7 @@ type
{ IDarTiendaDeUsuarioDelta } { IDarTiendaDeUsuarioDelta }
IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario) IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario)
['{7AFE4420-13DD-420E-A8DE-93464EF93F59}'] ['{F78868ED-F8C1-43B2-8954-448FD9605F08}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_TIENDAValue : Integer; function GetOldID_TIENDAValue : Integer;
@ -203,7 +238,7 @@ type
{ ISubCuentasContactoDelta } { ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto) ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{0FAD99B4-0F6F-43AB-A6A2-D05725700767}'] ['{68A1DB34-969D-4C55-BCF3-5BBDD649AE92}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
@ -297,7 +332,7 @@ type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{29E47B8B-30E6-4B4E-B218-6E3CB867BDC8}'] ['{80C193EA-B4F4-4D86-B164-4DA3ACFDAB55}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -620,7 +655,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{8B15524D-83C1-4F38-ACCE-2A0CA45DBFEF}'] ['{DDFB3C1B-E0C2-419C-8FC8-48D12D089F9E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -666,7 +701,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{AE0DA606-F1FC-4725-94C3-F1F22858DF25}'] ['{889D270E-ED85-4856-9C7E-C499F12F76F4}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -796,7 +831,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{6CD74F52-43BA-4DDD-9626-374A140E486C}'] ['{4DB9A1C2-1B72-4CE3-A940-46DCDE7F67E2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -839,6 +874,7 @@ type
function GetOldVENCIMIENTO_FACTURAS_1Value : Integer; function GetOldVENCIMIENTO_FACTURAS_1Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_2Value : Integer; function GetOldVENCIMIENTO_FACTURAS_2Value : Integer;
function GetOldVENCIMIENTO_FACTURAS_3Value : Integer; function GetOldVENCIMIENTO_FACTURAS_3Value : Integer;
function GetOldLISTA_NOMBRESValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -882,6 +918,7 @@ type
property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value;
property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value; property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value;
property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
end; end;
{ TClientesBusinessProcessorRules } { TClientesBusinessProcessorRules }
@ -1136,6 +1173,12 @@ type
function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual; procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual;
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
function GetLISTA_NOMBRESValue: String; virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
function GetOldLISTA_NOMBRESValue: String; virtual;
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1302,6 +1345,10 @@ type
property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value;
property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull; property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
property LISTA_NOMBRES : String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1311,7 +1358,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{45BEDF42-D57A-4B27-9A39-DAA56D0EFDAA}'] ['{63D99AC7-1B5F-42AE-91EC-107B40310F49}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1838,7 +1885,7 @@ type
{ IVendedoresDelta } { IVendedoresDelta }
IVendedoresDelta = interface(IVendedores) IVendedoresDelta = interface(IVendedores)
['{365B6366-050C-443E-8A11-66EB0D7F9E0B}'] ['{28D0D946-42EC-4A3F-9AFB-8C16BB22737E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -2185,7 +2232,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{BFBF154C-C62B-4DFC-B816-4C7649222909}'] ['{D47CBF20-38AE-4F7E-A6C7-44CBA5444C2D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2412,7 +2459,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{75E242C6-00BE-4179-AE7F-4393F5AE9B4A}'] ['{475BA059-0898-4AC0-AAFD-5DEB00D99626}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2494,7 +2541,7 @@ type
{ IProcedenciasClienteDelta } { IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente) IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{1D54F076-4D87-414E-B567-2052949AF687}'] ['{14F77428-ACCF-4AF1-86C3-88A977F1C5E6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2540,7 +2587,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{C3A6BA6F-15EC-486F-8212-0CEB2A66D6A1}'] ['{8B49F5CF-4C5A-4E6B-B66B-1A50F003E0CD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2586,7 +2633,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{F1DF7DB2-6FC0-43D6-B14B-E6E6DE744DE4}'] ['{332B4E11-5924-4DE0-B89C-937B51D7E7A9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2864,6 +2911,49 @@ implementation
uses uses
Variants, uROBinaryHelpers, uDAInterfaces; Variants, uROBinaryHelpers, uDAInterfaces;
{ TDarEmpresasContactoBusinessProcessorRules }
constructor TDarEmpresasContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDarEmpresasContactoBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDarEmpresasContactoBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA];
end;
function TDarEmpresasContactoBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA]);
end;
function TDarEmpresasContactoBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarEmpresasContactoID_EMPRESA];
end;
function TDarEmpresasContactoBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarEmpresasContactoID_EMPRESA]);
end;
procedure TDarEmpresasContactoBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA] := aValue;
end;
procedure TDarEmpresasContactoBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DarEmpresasContactoID_EMPRESA] := Null;
end;
{ TPersonalContactoBusinessProcessorRules } { TPersonalContactoBusinessProcessorRules }
constructor TPersonalContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPersonalContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin begin
@ -5877,6 +5967,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := Null;
end; end;
function TClientesBusinessProcessorRules.GetLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES];
end;
function TClientesBusinessProcessorRules.GetLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES]);
end;
function TClientesBusinessProcessorRules.GetOldLISTA_NOMBRESValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesLISTA_NOMBRES];
end;
function TClientesBusinessProcessorRules.GetOldLISTA_NOMBRESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesLISTA_NOMBRES]);
end;
procedure TClientesBusinessProcessorRules.SetLISTA_NOMBRESValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetLISTA_NOMBRESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesLISTA_NOMBRES] := Null;
end;
{ TProveedoresBusinessProcessorRules } { TProveedoresBusinessProcessorRules }
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -9591,6 +9712,7 @@ end;
initialization initialization
RegisterBusinessProcessorRules(RID_DarEmpresasContactoDelta, TDarEmpresasContactoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules); RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DarTiendaDeUsuarioDelta, TDarTiendaDeUsuarioBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DarTiendaDeUsuarioDelta, TDarTiendaDeUsuarioBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_SubCuentasContactoDelta, TSubCuentasContactoBusinessProcessorRules); RegisterBusinessProcessorRules(RID_SubCuentasContactoDelta, TSubCuentasContactoBusinessProcessorRules);

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

@ -826,6 +826,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'VENCIMIENTO_FACTURAS_3' DatasetField = 'VENCIMIENTO_FACTURAS_3'
TableField = 'VENCIMIENTO_FACTURAS_3' TableField = 'VENCIMIENTO_FACTURAS_3'
end
item
DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES'
end> end>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -1059,6 +1063,12 @@ object srvContactos: TsrvContactos
item item
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datInteger DataType = datInteger
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_LISTA_NOMBRES'
end> end>
end end
item item
@ -4184,6 +4194,12 @@ object srvContactos: TsrvContactos
end end
object DataDictionary: TDADataDictionary object DataDictionary: TDADataDictionary
Fields = < Fields = <
item
Name = 'Clientes_LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
end
item item
Name = 'DatosBancarios_ID' Name = 'DatosBancarios_ID'
DataType = datAutoInc DataType = datAutoInc

17
Source/Modulos/Contactos/Views/uViewClientes.dfm
View File

@ -59,6 +59,11 @@ inherited frViewClientes: TfrViewClientes
Caption = 'Persona contacto' Caption = 'Persona contacto'
DataBinding.FieldName = 'PERSONA_CONTACTO' DataBinding.FieldName = 'PERSONA_CONTACTO'
end end
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
DataBinding.FieldName = 'LISTA_NOMBRES'
BestFitMaxWidth = 60
Width = 90
end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
@ -70,27 +75,15 @@ inherited frViewClientes: TfrViewClientes
Width = 633 Width = 633
ExplicitWidth = 633 ExplicitWidth = 633
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 661 ExplicitWidth = 661
Width = 661 Width = 661
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 271 Left = 271
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 271 ExplicitLeft = 271
ExplicitWidth = 427 ExplicitWidth = 427
Width = 427 Width = 427

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

@ -27,6 +27,7 @@ type
cxGridViewTiendaWeb: TcxGridDBColumn; cxGridViewTiendaWeb: TcxGridDBColumn;
cxGridViewPERSONA_CONTACTO: TcxGridDBColumn; cxGridViewPERSONA_CONTACTO: TcxGridDBColumn;
cxGridViewFECHA_ALTA: TcxGridDBColumn; cxGridViewFECHA_ALTA: TcxGridDBColumn;
cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean); var ADone: Boolean);

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">6</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.6.9.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.6.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 22 de octubre de 2015 19:37</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">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>
<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,6,9,0 FILEVERSION 2,7,2,0
PRODUCTVERSION 2,6,9,0 PRODUCTVERSION 2,7,2,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.6.9.0\0" VALUE "FileVersion", "2.7.2.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.6.9.0\0" VALUE "ProductVersion", "2.7.2.0\0"
VALUE "CompileDate", "martes, 27 de octubre de 2015 10:49\0" VALUE "CompileDate", "lunes, 25 de enero de 2016 15:56\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.

BIN
Tools/Firebird/Firebird-2.1.7.18553_0_Win32.exe Normal file
View File

Binary file not shown.