Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Primer acercamiento a pedidos de proveedor y logistica

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@152 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2020-12-28 16:54:17 +00:00
parent 6197a81873
commit f58c7f90b3
62 changed files with 2468 additions and 549 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

4
Build/Build.fbpInf
View File

@ -14,8 +14,8 @@
<Notes> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:03:11</LastBuildRun> <LastBuildRun>00:03:15</LastBuildRun>
<LastBuildStart>14/02/2020 13:22:06</LastBuildStart> <LastBuildStart>28/12/2020 17:37:37</LastBuildStart>
<LastBuildState>True</LastBuildState> <LastBuildState>True</LastBuildState>
</properties> </properties>
</project> </project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

96
Source/Base/Base.dproj
View File

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

2
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,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">9</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.9.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.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><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">9</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.9.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.9.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>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -273,8 +273,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
object actMenuLogistica: TAction object actMenuLogistica: TAction
Category = 'Menus' Category = 'Menus'
Caption = 'Log'#237'stica' Caption = 'Log'#237'stica'
Enabled = False
Visible = False
OnExecute = actMenuLogisticaExecute OnExecute = actMenuLogisticaExecute
OnUpdate = actMenuComprasUpdate OnUpdate = actMenuComprasUpdate
end end

2
Source/FactuGES.inc
View File

@ -1,4 +1,4 @@
{$DEFINE MULTIEMPRESA} {$DEFINE MULTIEMPRESA}
{$DEFINE ALMACEN} {$DEFINE ALMACEN}
{DEFINE PEDIDOSPROVEEDOR} {$DEFINE PEDIDOSPROVEEDOR}
{$DEFINE CONTABILIDAD} {$DEFINE CONTABILIDAD}

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\Albaranes de proveedor\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

28
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

36
Source/Informes/1/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -316,6 +316,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
DisplayLabel = 'AlbaranesCliente_TIENDA' DisplayLabel = 'AlbaranesCliente_TIENDA'
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_TIENDA' DictionaryEntry = 'AlbaranesCliente_TIENDA'
end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{5392573B-B6A0-49DE-ACCD-1B04E1684DCC}'; RID_ListaAnosAlbaranes = '{B517DFB7-B260-4DD7-B59F-D0C79D930D9A}';
RID_AlbaranesCliente = '{2B6F227E-8173-4A9A-A666-BAA270EAEA1A}'; RID_AlbaranesCliente = '{FCE2B205-1ADB-4A2F-A57A-BB4978B0C22D}';
RID_AlbaranesCliente_Detalles = '{FE404448-507F-47B3-ADD1-1D5821AF7506}'; RID_AlbaranesCliente_Detalles = '{E456B282-7E51-41D3-9214-4A96CEF784F8}';
{ Data table names } { Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -70,6 +70,7 @@ const
fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION'; fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA'; fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA';
fld_AlbaranesClienteTIENDA = 'TIENDA'; fld_AlbaranesClienteTIENDA = 'TIENDA';
fld_AlbaranesClienteNOTAS_ENVIO = 'NOTAS_ENVIO';
{ AlbaranesCliente field indexes } { AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0; idx_AlbaranesClienteID = 0;
@ -117,6 +118,7 @@ const
idx_AlbaranesClienteFECHA_RECEPCION = 42; idx_AlbaranesClienteFECHA_RECEPCION = 42;
idx_AlbaranesClienteID_TIENDA = 43; idx_AlbaranesClienteID_TIENDA = 43;
idx_AlbaranesClienteTIENDA = 44; idx_AlbaranesClienteTIENDA = 44;
idx_AlbaranesClienteNOTAS_ENVIO = 45;
{ AlbaranesCliente_Detalles fields } { AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID'; fld_AlbaranesCliente_DetallesID = 'ID';
@ -155,7 +157,7 @@ const
type type
{ IListaAnosAlbaranes } { IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{9E537DDB-8E64-4969-8E68-8892E1235B3B}'] ['{3DFD3F5E-DB3F-4FB7-9F95-80091A69254A}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -190,7 +192,7 @@ type
{ IAlbaranesCliente } { IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable) IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{657314CF-9B6C-48E9-9BA7-B2475D33165E}'] ['{C45B8E2D-036A-48F5-BE78-0E9922D58F85}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -370,6 +372,10 @@ type
procedure SetTIENDAValue(const aValue: String); procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean; function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean); procedure SetTIENDAIsNull(const aValue: Boolean);
function GetNOTAS_ENVIOValue: String;
procedure SetNOTAS_ENVIOValue(const aValue: String);
function GetNOTAS_ENVIOIsNull: Boolean;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -463,6 +469,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull: Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
end; end;
{ TAlbaranesClienteDataTableRules } { TAlbaranesClienteDataTableRules }
@ -652,6 +660,10 @@ type
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual; function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetNOTAS_ENVIOValue: String; virtual;
procedure SetNOTAS_ENVIOValue(const aValue: String); virtual;
function GetNOTAS_ENVIOIsNull: Boolean; virtual;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -744,6 +756,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue; property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property NOTAS_ENVIO: String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull: Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -753,7 +767,7 @@ type
{ IAlbaranesCliente_Detalles } { IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{E97BA8BC-8EC8-441E-8A6F-E53552B75E94}'] ['{40165756-12BF-4C0D-8107-BEE438314BC2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1959,6 +1973,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteTIENDA].AsVariant := Null; DataTable.Fields[idx_AlbaranesClienteTIENDA].AsVariant := Null;
end; end;
function TAlbaranesClienteDataTableRules.GetNOTAS_ENVIOValue: String;
begin
result := DataTable.Fields[idx_AlbaranesClienteNOTAS_ENVIO].AsString;
end;
procedure TAlbaranesClienteDataTableRules.SetNOTAS_ENVIOValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesClienteNOTAS_ENVIO].AsString := aValue;
end;
function TAlbaranesClienteDataTableRules.GetNOTAS_ENVIOIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteNOTAS_ENVIO].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetNOTAS_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteNOTAS_ENVIO].AsVariant := Null;
end;
{ TAlbaranesCliente_DetallesDataTableRules } { TAlbaranesCliente_DetallesDataTableRules }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{42769BFF-45B2-4BC5-8B65-09F00716E000}'; RID_ListaAnosAlbaranesDelta = '{0B01B3F1-FD0A-41E2-9AC8-DF2FE6427AC9}';
RID_AlbaranesClienteDelta = '{A1937C90-7059-43D4-BE8C-C471DD3F2D7C}'; RID_AlbaranesClienteDelta = '{15937719-1382-4F28-B013-5ED650D7FD2B}';
RID_AlbaranesCliente_DetallesDelta = '{0D156B8D-7951-4154-A33A-0A13B7228A09}'; RID_AlbaranesCliente_DetallesDelta = '{6E38A603-223E-4266-AB5E-8ECFB13DFFC3}';
type type
{ IListaAnosAlbaranesDelta } { IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{42769BFF-45B2-4BC5-8B65-09F00716E000}'] ['{0B01B3F1-FD0A-41E2-9AC8-DF2FE6427AC9}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta } { IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente) IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{A1937C90-7059-43D4-BE8C-C471DD3F2D7C}'] ['{15937719-1382-4F28-B013-5ED650D7FD2B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -97,6 +97,7 @@ type
function GetOldFECHA_RECEPCIONValue : DateTime; function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldID_TIENDAValue : Integer; function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String; function GetOldTIENDAValue : String;
function GetOldNOTAS_ENVIOValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -144,6 +145,7 @@ type
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
end; end;
{ TAlbaranesClienteBusinessProcessorRules } { TAlbaranesClienteBusinessProcessorRules }
@ -423,6 +425,12 @@ type
function GetOldTIENDAIsNull: Boolean; virtual; function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetNOTAS_ENVIOValue: String; virtual;
function GetNOTAS_ENVIOIsNull: Boolean; virtual;
function GetOldNOTAS_ENVIOValue: String; virtual;
function GetOldNOTAS_ENVIOIsNull: Boolean; virtual;
procedure SetNOTAS_ENVIOValue(const aValue: String); virtual;
procedure SetNOTAS_ENVIOIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -605,6 +613,10 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull; property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
property NOTAS_ENVIO : String read GetNOTAS_ENVIOValue write SetNOTAS_ENVIOValue;
property NOTAS_ENVIOIsNull : Boolean read GetNOTAS_ENVIOIsNull write SetNOTAS_ENVIOIsNull;
property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
property OldNOTAS_ENVIOIsNull : Boolean read GetOldNOTAS_ENVIOIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -614,7 +626,7 @@ type
{ IAlbaranesCliente_DetallesDelta } { IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{0D156B8D-7951-4154-A33A-0A13B7228A09}'] ['{6E38A603-223E-4266-AB5E-8ECFB13DFFC3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -2282,6 +2294,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTIENDA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTIENDA] := Null;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetNOTAS_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOTAS_ENVIO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetNOTAS_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOTAS_ENVIO]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldNOTAS_ENVIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNOTAS_ENVIO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldNOTAS_ENVIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNOTAS_ENVIO]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetNOTAS_ENVIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOTAS_ENVIO] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetNOTAS_ENVIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOTAS_ENVIO] := Null;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules } { TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -63,6 +63,36 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'CALLE_FISCAL'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_FISCAL'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_FISCAL'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_FISCAL'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_POSTAL_FISCAL'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_FISCAL'
DataType = datString
Size = 25
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
@ -98,6 +128,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo
@ -340,34 +375,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
' ALBARANES_CLIENTE.ID_TIENDA,'#10' ALBARANES_CLIENTE.ID_CLIENTE,'#10' ' + ' ALBARANES_CLIENTE.ID_TIENDA,'#10' ALBARANES_CLIENTE.ID_CLIENTE,'#10' ' +
'CONTACTOS.NOMBRE,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE,'#10' ALBAR' + 'CONTACTOS.NOMBRE,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE,'#10' ALBAR' +
'ANES_CLIENTE.REFERENCIA_CLIENTE,'#10' CONTACTOS.NIF_CIF,'#10' ALBARANE' + 'ANES_CLIENTE.REFERENCIA_CLIENTE,'#10' CONTACTOS.NIF_CIF,'#10' ALBARANE' +
'S_CLIENTE.FECHA_ALBARAN,'#10' ALBARANES_CLIENTE.REFERENCIA,'#10' COALE' + 'S_CLIENTE.FECHA_ALBARAN,'#10' ALBARANES_CLIENTE.REFERENCIA,'#10' CONTA' +
'SCE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' CO' + 'CTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTOS.POBLACION AS POBLACION_F' +
'ALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS ' + 'ISCAL,'#10' CONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS.CO' +
'POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS' + 'DIGO_POSTAL AS CODIGO_POSTAL_FISCAL,'#10' CONTACTOS.TELEFONO_1 AS T' +
'.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIG' + 'ELEFONO_POSTAL_FISCAL,'#10' CONTACTOS.MOVIL_1 AS MOVIL_FISCAL,'#10' AL' +
'O_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' COALESCE(' + 'BARANES_CLIENTE.CALLE,'#10' ALBARANES_CLIENTE.POBLACION,'#10' ALBARANE' +
'CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS TELEFON' + 'S_CLIENTE.PROVINCIA,'#10' ALBARANES_CLIENTE.CODIGO_POSTAL,'#10' ALBARA' +
'O,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MOVIL_1) AS' + 'NES_CLIENTE.TELEFONO,'#10' ALBARANES_CLIENTE.MOVIL,'#10' ALBARANES_CLI' +
' MOVIL,'#10' ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' ALBARANES_CLIENT' + 'ENTE.PERSONA_CONTACTO,'#10' ALBARANES_CLIENTE.NOTAS_ENVIO,'#10' ALBARA' +
'E.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_NETO,'#10' ALBARANES_C' + 'NES_CLIENTE.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_NETO,'#10' A' +
'LIENTE.DESCUENTO,'#10' ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' ALBAR' + 'LBARANES_CLIENTE.DESCUENTO,'#10' ALBARANES_CLIENTE.IMPORTE_DESCUENT' +
'ANES_CLIENTE.BASE_IMPONIBLE,'#10' ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10 + 'O,'#10' ALBARANES_CLIENTE.BASE_IMPONIBLE,'#10' ALBARANES_CLIENTE.IMPOR' +
' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' CONTRATOS_CLIENTE.RE' + 'TE_TOTAL,'#10' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' CONTRATOS_' +
'FERENCIA AS REF_CONTRATO,'#10' CONTRATOS_CLIENTE.FECHA_CONTRATO,'#10' ' + 'CLIENTE.REFERENCIA AS REF_CONTRATO,'#10' CONTRATOS_CLIENTE.FECHA_CO' +
'EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE' + 'NTRATO,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE' +
'_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMP' + ' AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPR' +
'RESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO' + 'ESA,'#10' EMPRESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL' +
'_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EM' + ' AS CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMP' +
'PRESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS ' + 'RESA,'#10' EMPRESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELE' +
'TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MO' + 'FONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' E' +
'VIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,' + 'MPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_' +
#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CL' + '1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' AL' +
'IENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.' + 'BARANES_CLIENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANE' +
'ID_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_' + 'S_CLIENTE.ID_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ' +
'CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONT' + 'ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTRATOS_CLIENT' +
'RATOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)'#10' LEFT OUTER JOI' + 'E ON (CONTRATOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)'#10'/* LE' +
'N CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ALBARANES' + 'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
'_CLIENTE.ID_DIRECCION)'#10'WHERE ALBARANES_CLIENTE.ID = :ID'#10 ' = ALBARANES_CLIENTE.ID_DIRECCION)*/'#10'WHERE ALBARANES_CLIENTE.ID ' +
'= :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -526,6 +562,40 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'FECHA_CONTRATO' DatasetField = 'FECHA_CONTRATO'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'FECHA_CONTRATO' SQLOrigin = 'FECHA_CONTRATO'
end
item
DatasetField = 'CALLE_FISCAL'
TableField = '<unknown>'
SQLOrigin = 'CALLE_FISCAL'
end
item
DatasetField = 'POBLACION_FISCAL'
TableField = '<unknown>'
SQLOrigin = 'POBLACION_FISCAL'
end
item
DatasetField = 'PROVINCIA_FISCAL'
TableField = '<unknown>'
SQLOrigin = 'PROVINCIA_FISCAL'
end
item
DatasetField = 'CODIGO_POSTAL_FISCAL'
TableField = '<unknown>'
SQLOrigin = 'CODIGO_POSTAL_FISCAL'
end
item
DatasetField = 'TELEFONO_POSTAL_FISCAL'
TableField = '<unknown>'
SQLOrigin = 'TELEFONO_POSTAL_FISCAL'
end
item
DatasetField = 'MOVIL_FISCAL'
TableField = '<unknown>'
SQLOrigin = 'MOVIL_FISCAL'
end
item
DatasetField = 'NOTAS_ENVIO'
TableField = 'NOTAS_ENVIO'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -575,6 +645,36 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'CALLE_FISCAL'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_FISCAL'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_FISCAL'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_FISCAL'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_POSTAL_FISCAL'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_FISCAL'
DataType = datString
Size = 25
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
@ -610,6 +710,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo
@ -1173,16 +1278,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 41544.473509386570000000 ReportOptions.LastChange = 44183.517020532410000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False

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

@ -227,6 +227,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
DatasetField = 'FECHA_CONTRATO' DatasetField = 'FECHA_CONTRATO'
TableField = 'FECHA_CONTRATO' TableField = 'FECHA_CONTRATO'
end
item
DatasetField = 'NOTAS_ENVIO'
TableField = 'NOTAS_ENVIO'
end> end>
end> end>
Name = 'AlbaranesCliente' Name = 'AlbaranesCliente'
@ -481,6 +485,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Size = 255 Size = 255
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_TIENDA' DictionaryEntry = 'AlbaranesCliente_TIENDA'
end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end> end>
end end
item item
@ -847,6 +856,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'ID_TIENDA' Name = 'ID_TIENDA'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -862,16 +877,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIO' + ' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIO' +
'NES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_M' + 'NES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_M' +
'ODIFICACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO,' + 'ODIFICACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO,' +
' FECHA_ENVIO, '#10' FECHA_RECEPCION, ID_TIENDA)'#10' VALUES'#10' (:I' + ' FECHA_ENVIO, '#10' FECHA_RECEPCION, ID_TIENDA, NOTAS_ENVIO)'#10' V' +
'D, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,' + 'ALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO,' +
#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA,' + ' :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO,' +
' :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVIN' + ' :ID_FACTURA, :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLA' +
'CIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :MOVIL, :IMPORTE_NETO, :' + 'CION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :MOVIL, :IM' +
'IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONI' + 'PORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' ' +
'BLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :I' + ' :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACI' +
'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP, :FECHA_MODI' + 'ONES,'#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP' +
'FICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, ' + ', :FECHA_MODIFICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PRE' +
':FECHA_ENVIO, :FECHA_RECEPCION,'#10' :ID_TIENDA)'#10' '#10' '#10#10 'VISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION,'#10' :ID_TIENDA, :N' +
'OTAS_ENVIO)'#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1077,6 +1093,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1105,8 +1127,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'ACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO, '#10' ID_FORMA' + 'ACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO, '#10' ID_FORMA' +
'_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVI' + '_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVI' +
'STA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION' + 'STA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION' +
' = :FECHA_RECEPCION,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID ' + ' = :FECHA_RECEPCION,'#10' ID_TIENDA = :ID_TIENDA,'#10' NOTAS_ENVIO' +
'= :OLD_ID)'#10 ' = :NOTAS_ENVIO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -19,8 +19,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
1057 1057
671) 671)
object Label1: TLabel object Label1: TLabel
Left = 437 Left = 412
Top = 622 Top = 678
Width = 299 Width = 299
Height = 26 Height = 26
Caption = Caption =
@ -81,7 +81,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284 Width = 284
end end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran inline frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
Left = 437 Left = 412
Top = 28 Top = 28
Width = 442 Width = 442
Height = 221 Height = 221
@ -93,7 +93,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ParentFont = False ParentFont = False
TabOrder = 10 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 437 ExplicitLeft = 412
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 442 ExplicitWidth = 442
ExplicitHeight = 221 ExplicitHeight = 221
@ -102,10 +102,36 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Height = 221 Height = 221
ExplicitWidth = 442 ExplicitWidth = 442
ExplicitHeight = 221 ExplicitHeight = 221
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 103
Width = 103
end
inherited bVerFichaCliente: TBitBtn
Left = 402
ExplicitLeft = 402
end
inherited edtDireccion: TcxMemo
ExplicitWidth = 437
Width = 437
end
inherited bElegirDireccion: TButton
Left = 571
ExplicitLeft = 571
end
inherited edtTelefonos: TcxTextEdit inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193 ExplicitWidth = 193
Width = 193 Width = 193
end end
inherited edtReferencia: TcxDBTextEdit
Left = 362
ExplicitLeft = 362
ExplicitWidth = 103
Width = 103
end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Left = 306 Left = 306
@ -114,28 +140,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Left = 280 Left = 280
end end
end end
object eCalle: TcxDBTextEdit
Left = 531
Top = 396
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14
Width = 284
end
object ePoblacion: TcxDBTextEdit object ePoblacion: TcxDBTextEdit
Left = 531 Left = 506
Top = 423 Top = 452
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -154,7 +161,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 951 Left = 951
Top = 423 Top = 452
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -172,8 +179,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 65 Width = 65
end end
object eProvincia: TcxDBTextEdit object eProvincia: TcxDBTextEdit
Left = 531 Left = 506
Top = 450 Top = 479
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -191,8 +198,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 406 Width = 406
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 531 Left = 506
Top = 477 Top = 506
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -211,8 +218,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284 Width = 284
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 531 Left = 506
Top = 504 Top = 533
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -229,17 +236,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 19 TabOrder = 19
Width = 284 Width = 284
end end
object bElegirDireccion: TBitBtn
Left = 844
Top = 531
Width = 172
Height = 23
Action = actModificarDireccion
Caption = 'Modificar la direcci'#243'n'
TabOrder = 20
end
object Button1: TButton object Button1: TButton
Left = 275 Left = 250
Top = 138 Top = 138
Width = 132 Width = 132
Height = 23 Height = 23
@ -301,7 +299,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 146 Width = 146
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 275 Left = 250
Top = 109 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
@ -310,7 +308,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eFechaRecepcion: TcxDBDateEdit object eFechaRecepcion: TcxDBDateEdit
Left = 571 Left = 546
Top = 339 Top = 339
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataField = 'FECHA_RECEPCION'
@ -335,8 +333,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 239 Width = 239
end end
object cbConAlmacen: TCheckBox object cbConAlmacen: TCheckBox
Left = 447 Left = 422
Top = 590 Top = 646
Width = 179 Width = 179
Height = 21 Height = 21
Caption = 'Asociar este albar'#225'n al almac'#233'n:' Caption = 'Asociar este albar'#225'n al almac'#233'n:'
@ -344,8 +342,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = cbConAlmacenClick OnClick = cbConAlmacenClick
end end
object cbAlmacen: TcxDBLookupComboBox object cbAlmacen: TcxDBLookupComboBox
Left = 632 Left = 607
Top = 590 Top = 646
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -400,7 +398,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284 Width = 284
end end
object eFechaPrevista: TcxDBDateEdit object eFechaPrevista: TcxDBDateEdit
Left = 571 Left = 546
Top = 285 Top = 285
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
@ -451,7 +449,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 284 Width = 284
end end
object eFechaEnvio: TcxDBDateEdit object eFechaEnvio: TcxDBDateEdit
Left = 571 Left = 546
Top = 312 Top = 312
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataField = 'FECHA_ENVIO'
@ -524,6 +522,50 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Height = 228 Height = 228
end end
end end
object eCalle: TcxDBMemo
Left = 506
Top = 396
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14
Height = 50
Width = 772
end
object eNotasEnvio: TcxDBMemo
Left = 506
Top = 560
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'NOTAS_ENVIO'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 20
Height = 50
Width = 510
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -683,8 +725,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Direcci'#243'n de entrega / obra' Caption = 'Direcci'#243'n de entrega'
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item14: TdxLayoutItem
Caption = 'Calle:' Caption = 'Calle:'
Control = eCalle Control = eCalle
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -728,11 +770,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Control = eTlfTrabajo Control = eTlfTrabajo
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item14: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical] Caption = 'Notas env'#237'o:'
AlignHorz = ahRight Control = eNotasEnvio
ShowCaption = False
Control = bElegirDireccion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
@ -785,6 +825,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object actVerPedidoCli: TAction object actVerPedidoCli: TAction
Caption = 'Ver el pedido de cliente...' Caption = 'Ver el pedido de cliente...'
Enabled = False
Visible = False
OnExecute = actVerPedidoCliExecute OnExecute = actVerPedidoCliExecute
OnUpdate = actVerPedidoCliUpdate OnUpdate = actVerPedidoCliUpdate
end end

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

@ -45,8 +45,6 @@ type
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item1: TdxLayoutItem; dxLayoutControl1Item1: TdxLayoutItem;
frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran; frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran;
dxLayoutControl1Item8: TdxLayoutItem;
eCalle: TcxDBTextEdit;
dxLayoutControl1Item9: TdxLayoutItem; dxLayoutControl1Item9: TdxLayoutItem;
ePoblacion: TcxDBTextEdit; ePoblacion: TcxDBTextEdit;
dxLayoutControl1Item10: TdxLayoutItem; dxLayoutControl1Item10: TdxLayoutItem;
@ -59,8 +57,6 @@ type
eTlfTrabajo: TcxDBTextEdit; eTlfTrabajo: TcxDBTextEdit;
dxLayoutControl1Group4: TdxLayoutGroup; dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Item14: TdxLayoutItem;
bElegirDireccion: TBitBtn;
ActionList1: TActionList; ActionList1: TActionList;
actModificarDireccion: TAction; actModificarDireccion: TAction;
Button1: TButton; Button1: TButton;
@ -102,6 +98,10 @@ type
dxLayoutControl1Item17: TdxLayoutItem; dxLayoutControl1Item17: TdxLayoutItem;
frViewObservaciones1: TfrViewObservaciones; frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item6: TdxLayoutItem; dxLayoutControl1Item6: TdxLayoutItem;
dxLayoutControl1Item14: TdxLayoutItem;
eCalle: TcxDBMemo;
dxLayoutControl1Item8: TdxLayoutItem;
eNotasEnvio: TcxDBMemo;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actVerPedidoCliExecute(Sender: TObject); procedure actVerPedidoCliExecute(Sender: TObject);

26
Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.dfm
View File

@ -1,13 +1,13 @@
inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
Width = 579 Width = 598
Height = 220 Height = 299
ExplicitWidth = 579 ExplicitWidth = 598
ExplicitHeight = 220 ExplicitHeight = 299
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 579 Width = 598
Height = 220 Height = 299
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
@ -17,11 +17,11 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 447 ExplicitWidth = 579
ExplicitHeight = 224 ExplicitHeight = 220
DesignSize = ( DesignSize = (
579 598
220) 299)
object edtlNombre: TcxDBTextEdit object edtlNombre: TcxDBTextEdit
Left = 66 Left = 66
Top = 41 Top = 41
@ -155,7 +155,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00} FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
end end
object bVerFichaCliente: TBitBtn object bVerFichaCliente: TBitBtn
Left = 377 Left = 396
Top = 181 Top = 181
Width = 192 Width = 192
Height = 25 Height = 25
@ -218,7 +218,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
Width = 437 Width = 437
end end
object bElegirDireccion: TButton object bElegirDireccion: TButton
Left = 546 Left = 565
Top = 95 Top = 95
Width = 23 Width = 23
Height = 25 Height = 25
@ -244,7 +244,7 @@ inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlba
Width = 302 Width = 302
end end
object edtReferencia: TcxDBTextEdit object edtReferencia: TcxDBTextEdit
Left = 349 Left = 359
Top = 68 Top = 68
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
AutoSize = False AutoSize = False

11
Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas
View File

@ -265,8 +265,7 @@ begin
if Assigned(FAlbaran) then if Assigned(FAlbaran) then
ACadena := Format('%s %s %s %s', ACadena := Format('%s %s %s %s',
[FAlbaran.CALLE, FAlbaran.POBLACION, [FAlbaran.CLIENTE.CALLE, FAlbaran.CLIENTE.POBLACION, FAlbaran.CLIENTE.CODIGO_POSTAL, FAlbaran.CLIENTE.PROVINCIA]);
FAlbaran.CODIGO_POSTAL, FAlbaran.PROVINCIA]);
edtDireccion.Text := ACadena; edtDireccion.Text := ACadena;
end; end;
@ -337,14 +336,14 @@ var
begin begin
ACadena := ''; ACadena := '';
if not FAlbaran.TELEFONOIsNull then if not FAlbaran.Cliente.TELEFONO_1IsNull then
ACadena := FAlbaran.TELEFONO; ACadena := FAlbaran.Cliente.TELEFONO_1;
if not FAlbaran.MOVILIsNull then if not FAlbaran.Cliente.MOVIL_1IsNull then
begin begin
if ACadena <> '' then if ACadena <> '' then
ACadena := ACadena + ' / '; ACadena := ACadena + ' / ';
ACadena := ACadena + FAlbaran.MOVIL; ACadena := ACadena + FAlbaran.Cliente.MOVIL_1;
end; end;
edtTelefonos.Text := ACadena; edtTelefonos.Text := ACadena;

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

@ -1,42 +1,25 @@
inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCliente inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCliente
Width = 420 Width = 846
Height = 156 Height = 157
ExplicitWidth = 420 ExplicitWidth = 846
ExplicitHeight = 156 ExplicitHeight = 157
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 420 Width = 846
Height = 156 Height = 157
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 337 ExplicitHeight = 266
ExplicitHeight = 129 DesignSize = (
object eCalle: TcxDBTextEdit 846
Left = 64 157)
Top = 10
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 281
end
object ePoblacion: TcxDBTextEdit object ePoblacion: TcxDBTextEdit
Left = 64 Left = 64
Top = 37 Top = 66
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsAlbaran DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -55,7 +38,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
end end
object eProvincia: TcxDBTextEdit object eProvincia: TcxDBTextEdit
Left = 64 Left = 64
Top = 64 Top = 93
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = dsAlbaran DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -73,8 +56,8 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
Width = 281 Width = 281
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 345 Left = 771
Top = 37 Top = 66
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsAlbaran DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -92,8 +75,8 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
Width = 65 Width = 65
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 288 Left = 714
Top = 91 Top = 120
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = dsAlbaran DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -112,7 +95,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 64 Left = 64
Top = 91 Top = 120
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsAlbaran DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -130,11 +113,33 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
TabOrder = 4 TabOrder = 4
Width = 281 Width = 281
end end
object eCalle: TcxDBMemo
Left = 64
Top = 10
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = dsAlbaran
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Height = 50
Width = 886
end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Calle:' Caption = 'Calle:'
Control = eCalle Control = eCalle
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -197,11 +202,9 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
end end
end end
object dsAlbaran: TDADataSource object dsAlbaran: TDADataSource
Left = 8 Left = 96
Top = 8
end end
object dsAlmacenes: TDADataSource object dsAlmacenes: TDADataSource
Left = 8 Left = 168
Top = 40
end end
end end

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

@ -23,8 +23,6 @@ type
dxLayoutGroup1: TdxLayoutGroup; dxLayoutGroup1: TdxLayoutGroup;
dsAlbaran: TDADataSource; dsAlbaran: TDADataSource;
dsAlmacenes: TDADataSource; dsAlmacenes: TDADataSource;
dxLayoutControl1Item1: TdxLayoutItem;
eCalle: TcxDBTextEdit;
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;
ePoblacion: TcxDBTextEdit; ePoblacion: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
@ -39,6 +37,8 @@ type
dxLayoutControl1Group1: TdxLayoutGroup; dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Group5: TdxLayoutGroup; dxLayoutControl1Group5: TdxLayoutGroup;
dxLayoutControl1Group4: TdxLayoutGroup; dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Item7: TdxLayoutItem;
eCalle: TcxDBMemo;
protected protected
FAlbaran : IBizAlbaranCliente; FAlbaran : IBizAlbaranCliente;
FController : IAlbaranesClienteController; FController : IAlbaranesClienteController;

20
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -149,15 +149,27 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
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 = 292 Left = 292
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 292 ExplicitLeft = 292
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
@ -203,9 +215,6 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited cxStyleRepository1: TcxStyleRepository
Left = 248
end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Left = 392 Left = 392
Top = 448 Top = 448
@ -220,10 +229,13 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
OnUpdate = actAlmacenUpdate OnUpdate = actAlmacenUpdate
end end
end end
inherited PngImageList10: TPngImageList inherited GridPNGImageList: TPngImageList
Left = 352 Left = 352
Top = 448 Top = 448
end end
inherited cxStyleRepository1: TcxStyleRepository
Left = 248
end
object PngImageList: TPngImageList object PngImageList: TPngImageList
PngImages = < PngImages = <
item item

2
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
View File

@ -12,7 +12,7 @@ uses
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes, uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
cxGrid, uBizAlbaranesProveedor, cxCurrencyEdit, Forms, uViewFiltroBase, cxGrid, uBizAlbaranesProveedor, cxCurrencyEdit, Forms, uViewFiltroBase,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxTextEdit, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxTextEdit,
uDAInterfaces; uDAInterfaces, uCustomView, uViewBase;
type type
IViewAlbaranesProveedor = interface(IViewGrid) IViewAlbaranesProveedor = interface(IViewGrid)

24
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -329,7 +329,7 @@ end;
function TArticulosController.BuscarTodos: IBizArticulo; function TArticulosController.BuscarTodos: IBizArticulo;
begin begin
Result := FDataModule.GetItems; Result := FDataModule.GetItems(txArticulo);
//LOS ARTICULOS PASAN A SER COMUNES PARA LAS EMPRESAS //LOS ARTICULOS PASAN A SER COMUNES PARA LAS EMPRESAS
// FiltrarEmpresa(Result); // FiltrarEmpresa(Result);
@ -431,6 +431,10 @@ begin
if (AArticulo.DataTable.State in dsEditModes) then if (AArticulo.DataTable.State in dsEditModes) then
AArticulo.DataTable.Post; AArticulo.DataTable.Post;
//Tambien hacemos post de sus tablas hija
if (AArticulo.Proveedores.DataTable.State in dsEditModes) then
AArticulo.Proveedores.DataTable.Post;
if Length(AArticulo.DESCRIPCION) = 0 then if Length(AArticulo.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar al menos la descripción de este artículo.'); raise Exception.Create('Debe indicar al menos la descripción de este artículo.');
@ -649,8 +653,6 @@ begin
end; end;
function TArticulosController.Guardar(AArticulo: IBizArticulo): Boolean; function TArticulosController.Guardar(AArticulo: IBizArticulo): Boolean;
var
NuevoID: Integer;
begin begin
Result := False; Result := False;
@ -658,10 +660,22 @@ begin
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
//Para que no salten los eventos de calculo de PVP que daría un pete importante
AArticulo.DataTable.DisableControls;
AArticulo.Proveedores.DataTable.DisableControls;
AArticulo.DataTable.DisableEventHandlers;
AArticulo.Proveedores.DataTable.DisableEventHandlers;
AArticulo.DataTable.ApplyUpdates; AArticulo.DataTable.ApplyUpdates;
Result := True; Result := True;
finally finally
//Para que no salten los eventos de calculo de PVP que daría un pete importante
AArticulo.DataTable.EnableControls;
AArticulo.DataTable.EnableEventHandlers;
AArticulo.Proveedores.Datatable.EnableControls;
AArticulo.Proveedores.Datatable.EnableEventHandlers;
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;

75
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -1,7 +1,7 @@
inherited DataModuleArticulos: TDataModuleArticulos inherited DataModuleArticulos: TDataModuleArticulos
OnCreate = DAClientDataModuleCreate OnCreate = DAClientDataModuleCreate
Height = 219 Height = 365
Width = 518 Width = 547
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel Channel = dmConexion.ROChannel
@ -274,4 +274,75 @@ inherited DataModuleArticulos: TDataModuleArticulos
Left = 400 Left = 400
Top = 32 Top = 32
end end
object tbl_Articulos_Proveedores: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_PROVEEDORES_ID'
Required = True
ServerAutoRefresh = True
InPrimaryKey = True
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency
end
item
Name = 'FECHA_ACTUALIZACION'
DataType = datDateTime
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
MasterSource = ds_Articulos
MasterFields = 'ID'
DetailFields = 'ID_ARTICULO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch]
LogicalName = 'Articulos_Proveedores'
IndexDefs = <>
Left = 232
Top = 240
end
object ds_Articulos_Proveedores: TDADataSource
DataSet = tbl_Articulos_Proveedores.Dataset
DataTable = tbl_Articulos_Proveedores
Left = 232
Top = 176
end
end end

43
Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
View File

@ -8,7 +8,8 @@ uses
uRORemoteService, uROClient, uROBinMessage, uRORemoteService, uROClient, uROBinMessage,
uDADesigntimeCall, uDADesigntimeCall,
uIDataModuleArticulos, uBizArticulos, uDataModuleBase, uDARemoteDataAdapter, uIDataModuleArticulos, uBizArticulos, uDataModuleBase, uDARemoteDataAdapter,
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable; uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable,
uBizArticulosProveedores;
type type
TDataModuleArticulos = class(TDataModuleBase, IDataModuleArticulos) TDataModuleArticulos = class(TDataModuleBase, IDataModuleArticulos)
@ -19,13 +20,17 @@ type
ds_Articulos: TDADataSource; ds_Articulos: TDADataSource;
tbl_ArticulosParaCliente: TDAMemDataTable; tbl_ArticulosParaCliente: TDAMemDataTable;
ds_ArticulosParaCliente: TDADataSource; ds_ArticulosParaCliente: TDADataSource;
tbl_Articulos_Proveedores: TDAMemDataTable;
ds_Articulos_Proveedores: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
private
function _GetProveedores : IBizArticulosProveedores;
protected protected
procedure AsignarClaseNegocio(AArticulo: TDADataTable); virtual; procedure AsignarClaseNegocio(AArticulo: TDADataTable); virtual;
public public
function GetItems : IBizArticulo; overload; function GetItems (const Tipo: TEnumArticulos): IBizArticulo; overload;
function GetItems (IDCliente: Integer) : IBizArticulo; overload; function GetItems (IDCliente: Integer) : IBizArticulo; overload;
function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo; function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo;
function NewItem : IBizArticulo; function NewItem : IBizArticulo;
@ -57,6 +62,24 @@ begin
Result := GetItem(ID_NULO) Result := GetItem(ID_NULO)
end; end;
function TDataModuleArticulos._GetProveedores: IBizArticulosProveedores;
var
AProveedores : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AProveedores := CloneDataTable(tbl_Articulos_Proveedores);
with AProveedores do
begin
BusinessRulesID := BIZ_CLIENT_ARTICULOS_PROVEEDORES;
DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
end;
Result := (AProveedores as IBizArticulosProveedores);
finally
HideHourglassCursor;
end;
end;
function TDataModuleArticulos.GetItem(const ID: Integer; AClienteID: Integer = -1): IBizArticulo; function TDataModuleArticulos.GetItem(const ID: Integer; AClienteID: Integer = -1): IBizArticulo;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;
@ -64,7 +87,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
if (AClienteID = -1) then if (AClienteID = -1) then
Result := Self.GetItems Result := Self.GetItems(txArticulo)
else else
Result := Self.GetItems(AClienteID); Result := Self.GetItems(AClienteID);
@ -104,21 +127,31 @@ begin
end; end;
function TDataModuleArticulos.GetItems: IBizArticulo; function TDataModuleArticulos.GetItems (const Tipo: TEnumArticulos): IBizArticulo;
var var
AArticulo : TDAMemDataTable; AArticulo : TDAMemDataTable;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AArticulo := CloneDataTable(tbl_Articulos); case Tipo of
txArticulo: AArticulo := CloneDataTable(tbl_Articulos);
// txProveedor: AArticulo := CloneDataTable(tbl_ArticulosParaCompra); En el caso de tener varios proveedores para un mismo artículo
txProveedor: AArticulo := CloneDataTable(tbl_Articulos);
end;
AsignarClaseNegocio(AArticulo); AsignarClaseNegocio(AArticulo);
case Tipo of
txArticulo: TBizArticulo(AArticulo.BusinessEventsObj).Proveedores := _GetProveedores;
end;
Result := (AArticulo as IBizArticulo); Result := (AArticulo as IBizArticulo);
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;

BIN
Source/Modulos/Articulos/Model/Articulos_model.dpk
View File

Binary file not shown.

12
Source/Modulos/Articulos/Model/Articulos_model.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{e4f81792-84cf-4900-a6ab-18f6dd2c7ada}</ProjectGuid> <ProjectGuid>{e4f81792-84cf-4900-a6ab-18f6dd2c7ada}</ProjectGuid>
<MainSource>Articulos_model.dpk</MainSource> <MainSource>Articulos_model.dpk</MainSource>
@ -54,12 +55,21 @@
<DelphiCompile Include="Articulos_model.dpk"> <DelphiCompile Include="Articulos_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\uIDataModuleArticulos.pas" /> <DCCReference Include="Data\uIDataModuleArticulos.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schArticulosClient_Intf.pas" /> <DCCReference Include="schArticulosClient_Intf.pas" />
<DCCReference Include="schArticulosServer_Intf.pas" /> <DCCReference Include="schArticulosServer_Intf.pas" />
<DCCReference Include="uBizArticulos.pas" /> <DCCReference Include="uBizArticulos.pas" />
<DCCReference Include="uBizArticulosProveedores.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

4
Source/Modulos/Articulos/Model/Data/uIDataModuleArticulos.pas
View File

@ -6,9 +6,11 @@ uses
uBizArticulos; uBizArticulos;
type type
TEnumArticulos = (txArticulo, txProveedor);
IDataModuleArticulos = interface IDataModuleArticulos = interface
['{9047C468-78DE-404E-9047-1125B382FE3B}'] ['{9047C468-78DE-404E-9047-1125B382FE3B}']
function GetItems: IBizArticulo; overload; function GetItems (const Tipo: TEnumArticulos): IBizArticulo; overload;
function GetItems (IDCliente: Integer) : IBizArticulo; overload; function GetItems (IDCliente: Integer) : IBizArticulo; overload;
function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo; function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo;
function NewItem : IBizArticulo; function NewItem : IBizArticulo;

435
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

@ -9,13 +9,41 @@ 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_Articulos = '{FCE45B58-C93D-4D11-B79C-5863414119A8}'; RID_Articulos_Proveedores = '{C5780643-07B3-43DB-AE8D-87EB67D8EF76}';
RID_ArticulosParaCliente = '{322AB9AB-809C-498B-9AF3-064681559994}'; RID_Articulos = '{23B9E2E3-C018-498B-9C15-F38523806F4B}';
RID_ArticulosParaCliente = '{20C78EE3-9096-485B-8636-E22AA92407CB}';
{ Data table names } { Data table names }
nme_Articulos_Proveedores = 'Articulos_Proveedores';
nme_Articulos = 'Articulos'; nme_Articulos = 'Articulos';
nme_ArticulosParaCliente = 'ArticulosParaCliente'; nme_ArticulosParaCliente = 'ArticulosParaCliente';
{ Articulos_Proveedores fields }
fld_Articulos_ProveedoresID = 'ID';
fld_Articulos_ProveedoresID_ARTICULO = 'ID_ARTICULO';
fld_Articulos_ProveedoresID_PROVEEDOR = 'ID_PROVEEDOR';
fld_Articulos_ProveedoresREFERENCIA_PROV = 'REFERENCIA_PROV';
fld_Articulos_ProveedoresPRECIO_COSTE = 'PRECIO_COSTE';
fld_Articulos_ProveedoresDESCUENTO = 'DESCUENTO';
fld_Articulos_ProveedoresPRECIO_NETO = 'PRECIO_NETO';
fld_Articulos_ProveedoresPRECIO_PORTE = 'PRECIO_PORTE';
fld_Articulos_ProveedoresPRECIO_PVP_VENTA = 'PRECIO_PVP_VENTA';
fld_Articulos_ProveedoresPRECIO_PVP_TOTAL = 'PRECIO_PVP_TOTAL';
fld_Articulos_ProveedoresFECHA_ACTUALIZACION = 'FECHA_ACTUALIZACION';
{ Articulos_Proveedores field indexes }
idx_Articulos_ProveedoresID = 0;
idx_Articulos_ProveedoresID_ARTICULO = 1;
idx_Articulos_ProveedoresID_PROVEEDOR = 2;
idx_Articulos_ProveedoresREFERENCIA_PROV = 3;
idx_Articulos_ProveedoresPRECIO_COSTE = 4;
idx_Articulos_ProveedoresDESCUENTO = 5;
idx_Articulos_ProveedoresPRECIO_NETO = 6;
idx_Articulos_ProveedoresPRECIO_PORTE = 7;
idx_Articulos_ProveedoresPRECIO_PVP_VENTA = 8;
idx_Articulos_ProveedoresPRECIO_PVP_TOTAL = 9;
idx_Articulos_ProveedoresFECHA_ACTUALIZACION = 10;
{ Articulos fields } { Articulos fields }
fld_ArticulosID = 'ID'; fld_ArticulosID = 'ID';
fld_ArticulosID_EMPRESA = 'ID_EMPRESA'; fld_ArticulosID_EMPRESA = 'ID_EMPRESA';
@ -107,9 +135,164 @@ const
idx_ArticulosParaClienteTARIFA = 19; idx_ArticulosParaClienteTARIFA = 19;
type type
{ IArticulos_Proveedores }
IArticulos_Proveedores = interface(IDAStronglyTypedDataTable)
['{95289CBA-8254-4279-951E-80895F8DDA18}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVValue: String;
procedure SetREFERENCIA_PROVValue(const aValue: String);
function GetREFERENCIA_PROVIsNull: Boolean;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
function GetPRECIO_COSTEValue: Currency;
procedure SetPRECIO_COSTEValue(const aValue: Currency);
function GetPRECIO_COSTEIsNull: Boolean;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetPRECIO_NETOValue: Currency;
procedure SetPRECIO_NETOValue(const aValue: Currency);
function GetPRECIO_NETOIsNull: Boolean;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
function GetPRECIO_PORTEValue: Currency;
procedure SetPRECIO_PORTEValue(const aValue: Currency);
function GetPRECIO_PORTEIsNull: Boolean;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean);
function GetPRECIO_PVP_VENTAValue: Currency;
procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency);
function GetPRECIO_PVP_VENTAIsNull: Boolean;
procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
function GetPRECIO_PVP_TOTALValue: Currency;
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency);
function GetPRECIO_PVP_TOTALIsNull: Boolean;
procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
function GetFECHA_ACTUALIZACIONValue: DateTime;
procedure SetFECHA_ACTUALIZACIONValue(const aValue: DateTime);
function GetFECHA_ACTUALIZACIONIsNull: Boolean;
procedure SetFECHA_ACTUALIZACIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
property FECHA_ACTUALIZACION: DateTime read GetFECHA_ACTUALIZACIONValue write SetFECHA_ACTUALIZACIONValue;
property FECHA_ACTUALIZACIONIsNull: Boolean read GetFECHA_ACTUALIZACIONIsNull write SetFECHA_ACTUALIZACIONIsNull;
end;
{ TArticulos_ProveedoresDataTableRules }
TArticulos_ProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IArticulos_Proveedores)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Currency; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVP_VENTAValue: Currency; virtual;
procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency); virtual;
function GetPRECIO_PVP_VENTAIsNull: Boolean; virtual;
procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVP_TOTALValue: Currency; virtual;
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
function GetFECHA_ACTUALIZACIONValue: DateTime; virtual;
procedure SetFECHA_ACTUALIZACIONValue(const aValue: DateTime); virtual;
function GetFECHA_ACTUALIZACIONIsNull: Boolean; virtual;
procedure SetFECHA_ACTUALIZACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property PRECIO_PVP_VENTA: Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
property PRECIO_PVP_VENTAIsNull: Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
property FECHA_ACTUALIZACION: DateTime read GetFECHA_ACTUALIZACIONValue write SetFECHA_ACTUALIZACIONValue;
property FECHA_ACTUALIZACIONIsNull: Boolean read GetFECHA_ACTUALIZACIONIsNull write SetFECHA_ACTUALIZACIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IArticulos } { IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable) IArticulos = interface(IDAStronglyTypedDataTable)
['{4F856619-6BFA-4796-847B-9A11D27924BB}'] ['{6B2ED42E-1276-40FA-B43D-7DC0D9780E91}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -384,7 +567,7 @@ type
{ IArticulosParaCliente } { IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable) IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{E7E5C59D-B62B-4977-BC27-2152122F9007}'] ['{80294455-447E-47D3-93A3-40F4627FE9DC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -649,6 +832,249 @@ implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
{ TArticulos_ProveedoresDataTableRules }
constructor TArticulos_ProveedoresDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TArticulos_ProveedoresDataTableRules.Destroy;
begin
inherited;
end;
function TArticulos_ProveedoresDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresID].AsInteger;
end;
procedure TArticulos_ProveedoresDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_Articulos_ProveedoresID].AsInteger := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresID].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresID].AsVariant := Null;
end;
function TArticulos_ProveedoresDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresID_ARTICULO].AsInteger;
end;
procedure TArticulos_ProveedoresDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
DataTable.Fields[idx_Articulos_ProveedoresID_ARTICULO].AsInteger := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresID_ARTICULO].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresID_ARTICULO].AsVariant := Null;
end;
function TArticulos_ProveedoresDataTableRules.GetID_PROVEEDORValue: Integer;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresID_PROVEEDOR].AsInteger;
end;
procedure TArticulos_ProveedoresDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
DataTable.Fields[idx_Articulos_ProveedoresID_PROVEEDOR].AsInteger := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetID_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresID_PROVEEDOR].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresID_PROVEEDOR].AsVariant := Null;
end;
function TArticulos_ProveedoresDataTableRules.GetREFERENCIA_PROVValue: String;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresREFERENCIA_PROV].AsString;
end;
procedure TArticulos_ProveedoresDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
DataTable.Fields[idx_Articulos_ProveedoresREFERENCIA_PROV].AsString := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresREFERENCIA_PROV].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresREFERENCIA_PROV].AsVariant := Null;
end;
function TArticulos_ProveedoresDataTableRules.GetPRECIO_COSTEValue: Currency;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_COSTE].AsCurrency;
end;
procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_Articulos_ProveedoresPRECIO_COSTE].AsCurrency := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetPRECIO_COSTEIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_COSTE].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresPRECIO_COSTE].AsVariant := Null;
end;
function TArticulos_ProveedoresDataTableRules.GetDESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresDESCUENTO].AsFloat;
end;
procedure TArticulos_ProveedoresDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_Articulos_ProveedoresDESCUENTO].AsFloat := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetDESCUENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresDESCUENTO].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresDESCUENTO].AsVariant := Null;
end;
function TArticulos_ProveedoresDataTableRules.GetPRECIO_NETOValue: Currency;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_NETO].AsCurrency;
end;
procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
DataTable.Fields[idx_Articulos_ProveedoresPRECIO_NETO].AsCurrency := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetPRECIO_NETOIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_NETO].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresPRECIO_NETO].AsVariant := Null;
end;
function TArticulos_ProveedoresDataTableRules.GetPRECIO_PORTEValue: Currency;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PORTE].AsCurrency;
end;
procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PORTE].AsCurrency := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetPRECIO_PORTEIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PORTE].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PORTE].AsVariant := Null;
end;
function TArticulos_ProveedoresDataTableRules.GetPRECIO_PVP_VENTAValue: Currency;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_VENTA].AsCurrency;
end;
procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
begin
DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_VENTA].AsCurrency := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetPRECIO_PVP_VENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_VENTA].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_VENTA].AsVariant := Null;
end;
function TArticulos_ProveedoresDataTableRules.GetPRECIO_PVP_TOTALValue: Currency;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_TOTAL].AsCurrency;
end;
procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
begin
DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_TOTAL].AsCurrency := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetPRECIO_PVP_TOTALIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_TOTAL].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresPRECIO_PVP_TOTAL].AsVariant := Null;
end;
function TArticulos_ProveedoresDataTableRules.GetFECHA_ACTUALIZACIONValue: DateTime;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresFECHA_ACTUALIZACION].AsDateTime;
end;
procedure TArticulos_ProveedoresDataTableRules.SetFECHA_ACTUALIZACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_Articulos_ProveedoresFECHA_ACTUALIZACION].AsDateTime := aValue;
end;
function TArticulos_ProveedoresDataTableRules.GetFECHA_ACTUALIZACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_Articulos_ProveedoresFECHA_ACTUALIZACION].IsNull;
end;
procedure TArticulos_ProveedoresDataTableRules.SetFECHA_ACTUALIZACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_Articulos_ProveedoresFECHA_ACTUALIZACION].AsVariant := Null;
end;
{ TArticulosDataTableRules } { TArticulosDataTableRules }
constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable); constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable);
var var
@ -1557,6 +1983,7 @@ end;
initialization initialization
RegisterDataTableRules(RID_Articulos_Proveedores, TArticulos_ProveedoresDataTableRules);
RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules); RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules); RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules);

517
Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
View File

@ -9,13 +9,168 @@ 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_ArticulosDelta = '{E937FC30-1124-40F5-8DD5-7F7A875BF0BD}'; RID_Articulos_ProveedoresDelta = '{A704FC08-6C83-4283-8A72-04B5DEEA7A51}';
RID_ArticulosParaClienteDelta = '{36B39661-C6E3-499D-8165-84207792A7CA}'; RID_ArticulosDelta = '{E0C64E85-E327-4040-9253-FB6BBE5EB266}';
RID_ArticulosParaClienteDelta = '{709BD8E4-082A-4C55-9FE0-545D263CAF3A}';
type type
{ IArticulos_ProveedoresDelta }
IArticulos_ProveedoresDelta = interface(IArticulos_Proveedores)
['{A704FC08-6C83-4283-8A72-04B5DEEA7A51}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ARTICULOValue : Integer;
function GetOldID_PROVEEDORValue : Integer;
function GetOldREFERENCIA_PROVValue : String;
function GetOldPRECIO_COSTEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldPRECIO_NETOValue : Currency;
function GetOldPRECIO_PORTEValue : Currency;
function GetOldPRECIO_PVP_VENTAValue : Currency;
function GetOldPRECIO_PVP_TOTALValue : Currency;
function GetOldFECHA_ACTUALIZACIONValue : DateTime;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldPRECIO_PVP_VENTA : Currency read GetOldPRECIO_PVP_VENTAValue;
property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
property OldFECHA_ACTUALIZACION : DateTime read GetOldFECHA_ACTUALIZACIONValue;
end;
{ TArticulos_ProveedoresBusinessProcessorRules }
TArticulos_ProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulos_Proveedores, IArticulos_ProveedoresDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
function GetOldID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual;
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVValue: String; virtual;
function GetOldREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
function GetOldPRECIO_COSTEValue: Currency; virtual;
function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
function GetOldPRECIO_NETOValue: Currency; virtual;
function GetOldPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Currency; virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual;
function GetOldPRECIO_PORTEValue: Currency; virtual;
function GetOldPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVP_VENTAValue: Currency; virtual;
function GetPRECIO_PVP_VENTAIsNull: Boolean; virtual;
function GetOldPRECIO_PVP_VENTAValue: Currency; virtual;
function GetOldPRECIO_PVP_VENTAIsNull: Boolean; virtual;
procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVP_TOTALValue: Currency; virtual;
function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
function GetOldPRECIO_PVP_TOTALValue: Currency; virtual;
function GetOldPRECIO_PVP_TOTALIsNull: Boolean; virtual;
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
function GetFECHA_ACTUALIZACIONValue: DateTime; virtual;
function GetFECHA_ACTUALIZACIONIsNull: Boolean; virtual;
function GetOldFECHA_ACTUALIZACIONValue: DateTime; virtual;
function GetOldFECHA_ACTUALIZACIONIsNull: Boolean; virtual;
procedure SetFECHA_ACTUALIZACIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_ACTUALIZACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull;
property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull;
property PRECIO_PVP_VENTA : Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
property PRECIO_PVP_VENTAIsNull : Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
property OldPRECIO_PVP_VENTA : Currency read GetOldPRECIO_PVP_VENTAValue;
property OldPRECIO_PVP_VENTAIsNull : Boolean read GetOldPRECIO_PVP_VENTAIsNull;
property PRECIO_PVP_TOTAL : Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
property PRECIO_PVP_TOTALIsNull : Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
property OldPRECIO_PVP_TOTALIsNull : Boolean read GetOldPRECIO_PVP_TOTALIsNull;
property FECHA_ACTUALIZACION : DateTime read GetFECHA_ACTUALIZACIONValue write SetFECHA_ACTUALIZACIONValue;
property FECHA_ACTUALIZACIONIsNull : Boolean read GetFECHA_ACTUALIZACIONIsNull write SetFECHA_ACTUALIZACIONIsNull;
property OldFECHA_ACTUALIZACION : DateTime read GetOldFECHA_ACTUALIZACIONValue;
property OldFECHA_ACTUALIZACIONIsNull : Boolean read GetOldFECHA_ACTUALIZACIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IArticulosDelta } { IArticulosDelta }
IArticulosDelta = interface(IArticulos) IArticulosDelta = interface(IArticulos)
['{E937FC30-1124-40F5-8DD5-7F7A875BF0BD}'] ['{E0C64E85-E327-4040-9253-FB6BBE5EB266}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -290,7 +445,7 @@ type
{ IArticulosParaClienteDelta } { IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente) IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{36B39661-C6E3-499D-8165-84207792A7CA}'] ['{709BD8E4-082A-4C55-9FE0-545D263CAF3A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -556,6 +711,359 @@ implementation
uses uses
Variants, uROBinaryHelpers, uDAInterfaces; Variants, uROBinaryHelpers, uDAInterfaces;
{ TArticulos_ProveedoresBusinessProcessorRules }
constructor TArticulos_ProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TArticulos_ProveedoresBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_ARTICULO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_ARTICULO]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_PROVEEDOR];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_PROVEEDOR]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_COSTE];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_COSTE]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresDESCUENTO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresDESCUENTO]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_NETO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_NETO]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PORTE];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PORTE]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_VENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_VENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetFECHA_ACTUALIZACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetFECHA_ACTUALIZACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldFECHA_ACTUALIZACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldFECHA_ACTUALIZACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetFECHA_ACTUALIZACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetFECHA_ACTUALIZACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION] := Null;
end;
{ TArticulosBusinessProcessorRules } { TArticulosBusinessProcessorRules }
constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var var
@ -1876,6 +2384,7 @@ end;
initialization initialization
RegisterBusinessProcessorRules(RID_Articulos_ProveedoresDelta, TArticulos_ProveedoresBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules);

34
Source/Modulos/Articulos/Model/uBizArticulos.pas
View File

@ -3,7 +3,8 @@ unit uBizArticulos;
interface interface
uses uses
uDAInterfaces, uDADataTable, schArticulosClient_Intf, uDBSelectionListUtils; uDAInterfaces, uDADataTable, schArticulosClient_Intf, uDBSelectionListUtils,
uBizArticulosProveedores;
const const
BIZ_CLIENT_ARTICULO = 'Client.Articulo'; BIZ_CLIENT_ARTICULO = 'Client.Articulo';
@ -16,14 +17,23 @@ type
procedure SalvarImagen(const AFileName: String); procedure SalvarImagen(const AFileName: String);
procedure CargarImagen(const AFileName: String); procedure CargarImagen(const AFileName: String);
procedure QuitarImagen; procedure QuitarImagen;
function GetProveedores: IBizArticulosProveedores;
procedure SetProveedores(Value: IBizArticulosProveedores);
property Proveedores: IBizArticulosProveedores read GetProveedores write SetProveedores;
end; end;
TBizArticulo = class(TArticulosDataTableRules, IBizArticulo, ISeleccionable) TBizArticulo = class(TArticulosDataTableRules, IBizArticulo, ISeleccionable)
protected protected
FProveedores : IBizArticulosProveedores;
FProveedoresLink : TDADataSource;
FSeleccionableInterface : ISeleccionable; FSeleccionableInterface : ISeleccionable;
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
function GetProveedores: IBizArticulosProveedores;
procedure SetProveedores(Value: IBizArticulosProveedores);
public public
procedure IniciarValoresArticuloNuevo; virtual; procedure IniciarValoresArticuloNuevo; virtual;
function HayImagen: Boolean; function HayImagen: Boolean;
procedure SalvarImagen(const AFileName: String); procedure SalvarImagen(const AFileName: String);
procedure CargarImagen(const AFileName: String); procedure CargarImagen(const AFileName: String);
@ -33,6 +43,7 @@ type
destructor Destroy; override; destructor Destroy; override;
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
write FSeleccionableInterface implements ISeleccionable; write FSeleccionableInterface implements ISeleccionable;
property Proveedores: IBizArticulosProveedores read GetProveedores write SetProveedores;
end; end;
implementation implementation
@ -53,12 +64,20 @@ end;
constructor TBizArticulo.Create(aDataTable: TDADataTable); constructor TBizArticulo.Create(aDataTable: TDADataTable);
begin begin
inherited; inherited;
FProveedoresLink := TDADataSource.Create(NIL);
FProveedoresLink.DataTable := aDataTable;
FSeleccionableInterface := TSeleccionable.Create(aDataTable); FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end; end;
destructor TBizArticulo.Destroy; destructor TBizArticulo.Destroy;
begin begin
FProveedores := NIL;
FProveedoresLink.Free;
FSeleccionableInterface := NIL; FSeleccionableInterface := NIL;
inherited; inherited;
end; end;
@ -67,6 +86,11 @@ begin
Result := (ID < 0); Result := (ID < 0);
end; end;
function TBizArticulo.GetProveedores: IBizArticulosProveedores;
begin
Result := FProveedores;
end;
function TBizArticulo.HayImagen: Boolean; function TBizArticulo.HayImagen: Boolean;
{var {var
AStream : TMemoryStream; AStream : TMemoryStream;
@ -115,6 +139,12 @@ begin
// DataTable.FieldByName(fld_ArticulosIMAGEN).SaveToFile(AFileName); // DataTable.FieldByName(fld_ArticulosIMAGEN).SaveToFile(AFileName);
end; end;
procedure TBizArticulo.SetProveedores(Value: IBizArticulosProveedores);
begin
FProveedores := Value;
EnlazarMaestroDetalle(FProveedoresLink, FProveedores);
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_ARTICULO, TBizArticulo); RegisterDataTableRules(BIZ_CLIENT_ARTICULO, TBizArticulo);

320
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -120,6 +120,113 @@ object srvArticulos: TsrvArticulos
DataDictionary = DataDictionary DataDictionary = DataDictionary
Diagrams = Diagrams Diagrams = Diagrams
Datasets = < Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
TargetTable = 'ARTICULOS_PROVEEDORES'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'REFERENCIA_PROV'
TableField = 'REFERENCIA_PROV'
end
item
DatasetField = 'PRECIO_COSTE'
TableField = 'PRECIO_COSTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO'
end
item
DatasetField = 'PRECIO_PORTE'
TableField = 'PRECIO_PORTE'
end
item
DatasetField = 'PRECIO_PVP_VENTA'
TableField = 'PRECIO_PVP_VENTA'
end
item
DatasetField = 'PRECIO_PVP_TOTAL'
TableField = 'PRECIO_PVP_TOTAL'
end
item
DatasetField = 'FECHA_ACTUALIZACION'
TableField = 'FECHA_ACTUALIZACION'
end>
end>
Name = 'Articulos_Proveedores'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_PROVEEDORES_ID'
Required = True
ServerAutoRefresh = True
InPrimaryKey = True
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency
end
item
Name = 'FECHA_ACTUALIZACION'
DataType = datDateTime
end>
end
item item
Params = <> Params = <>
Statements = < Statements = <
@ -805,8 +912,187 @@ object srvArticulos: TsrvArticulos
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'Update_Articulos' Name = 'Update_Articulos'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_PROVEEDORES_ID'
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'FECHA_ACTUALIZACION'
DataType = datDateTime
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'ARTICULOS_PROVEEDORES'
SQL =
'INSERT'#10' INTO ARTICULOS_PROVEEDORES'#10' (ID, ID_ARTICULO, ID_PRO' +
'VEEDOR, REFERENCIA_PROV, PRECIO_COSTE,'#10' DESCUENTO, PRECIO_NE' +
'TO, PRECIO_PORTE, PRECIO_PVP_VENTA, PRECIO_PVP_TOTAL,'#10' FECHA' +
'_ACTUALIZACION)'#10' VALUES'#10' (:ID, :ID_ARTICULO, :ID_PROVEEDOR, ' +
':REFERENCIA_PROV,'#10' :PRECIO_COSTE, :DESCUENTO, :PRECIO_NETO, ' +
':PRECIO_PORTE,'#10' :PRECIO_PVP_VENTA, :PRECIO_PVP_TOTAL, :FECHA' +
'_ACTUALIZACION)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Articulos_Proveedores'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'ARTICULOS_PROVEEDORES'
SQL =
'DELETE '#10' FROM'#10' ARTICULOS_PROVEEDORES'#10' WHERE'#10' (ID = :OLD_' +
'ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Articulos_Proveedores'
end
item
Params = <
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
Value = ''
end
item
Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'ARTICULOS_PROVEEDORES'
SQL =
'UPDATE ARTICULOS_PROVEEDORES'#10' SET '#10' ID_ARTICULO = :ID_ARTICU' +
'LO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' REFERENCIA_PROV = :R' +
'EFERENCIA_PROV, '#10' PRECIO_COSTE = :PRECIO_COSTE, '#10' DESCUENT' +
'O = :DESCUENTO, '#10' PRECIO_NETO = :PRECIO_NETO, '#10' PRECIO_POR' +
'TE = :PRECIO_PORTE, '#10' PRECIO_PVP_VENTA = :PRECIO_PVP_VENTA, '#10 +
' PRECIO_PVP_TOTAL = :PRECIO_PVP_TOTAL'#10' WHERE'#10' (ID = :OLD_' +
'ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Articulos_Proveedores'
end>
RelationShips = <
item
Name = 'FK_Articulos_Proveedor1'
MasterDatasetName = 'Articulos'
MasterFields = 'ID'
DetailDatasetName = 'Articulos_Proveedores'
DetailFields = 'ID_ARTICULO'
RelationshipType = rtForeignKey
end> end>
RelationShips = <>
UpdateRules = < UpdateRules = <
item item
Name = 'Insert Articulos' Name = 'Insert Articulos'
@ -815,6 +1101,20 @@ object srvArticulos: TsrvArticulos
DatasetName = 'Articulos' DatasetName = 'Articulos'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item
Name = 'Insert Articulos_Proveedores'
DoUpdate = False
DoDelete = False
DatasetName = 'Articulos_Proveedores'
FailureBehavior = fbRaiseException
end
item
Name = 'Update Articulos_Proveedores'
DoInsert = False
DoDelete = False
DatasetName = 'Articulos_Proveedores'
FailureBehavior = fbRaiseException
end
item item
Name = 'Update Articulos' Name = 'Update Articulos'
DoInsert = False DoInsert = False
@ -822,6 +1122,13 @@ object srvArticulos: TsrvArticulos
DatasetName = 'Articulos' DatasetName = 'Articulos'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item
Name = 'Delete Articulos_Proveedores'
DoUpdate = False
DoInsert = False
DatasetName = 'Articulos_Proveedores'
FailureBehavior = fbRaiseException
end
item item
Name = 'Delete Articulos' Name = 'Delete Articulos'
DoUpdate = False DoUpdate = False
@ -848,4 +1155,15 @@ object srvArticulos: TsrvArticulos
Left = 264 Left = 264
Top = 24 Top = 24
end end
object bpArticulos_Proveedores: TDABusinessProcessor
Schema = schArticulos
InsertCommandName = 'Insert_Articulos_Proveedores'
DeleteCommandName = 'Delete_Articulos_Proveedores'
UpdateCommandName = 'Update_Articulos_Proveedores'
ReferencedDataset = 'Articulos_Proveedores'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 264
Top = 88
end
end end

1
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas
View File

@ -24,6 +24,7 @@ type
Diagrams: TDADiagrams; Diagrams: TDADiagrams;
bpArticulos: TDABusinessProcessor; bpArticulos: TDABusinessProcessor;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
bpArticulos_Proveedores: TDABusinessProcessor;
schArticulos: TDASchema; schArticulos: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;

BIN
Source/Modulos/Articulos/Views/Articulos_view.dpk
View File

Binary file not shown.

41
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -55,13 +55,31 @@
<DelphiCompile Include="Articulos_view.dpk"> <DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\..\Lib\Articulos_model.dcp" /> <DCCReference Include="Articulos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" /> <DCCReference Include="Articulos_model.dcp" />
<DCCReference Include="..\..\Lib\Familias_controller.dcp" /> <DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\SubFamilias_controller.dcp" /> <DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\Tarifas_controller.dcp" /> <DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="Familias_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="SubFamilias_controller.dcp" />
<DCCReference Include="Tarifas_controller.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" /> <DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas"> <DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form> <Form>fEditorArticulo</Form>
@ -87,6 +105,15 @@
<Form>frViewDetallesArticulos</Form> <Form>frViewDetallesArticulos</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewProveedoresArticulo.pas">
<Form>frViewProveedoresArticulos</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

42
Source/Modulos/Articulos/Views/uEditorArticulo.dfm
View File

@ -9,12 +9,13 @@ inherited fEditorArticulo: TfEditorArticulo
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 632 ExplicitWidth = 632
ExplicitHeight = 514 ExplicitHeight = 518
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 624 Width = 624
Caption = 'Art'#237'culo' Caption = 'Art'#237'culo'
ExplicitTop = 52
ExplicitWidth = 624 ExplicitWidth = 624
inherited Image1: TImage inherited Image1: TImage
Left = 597 Left = 597
@ -39,7 +40,7 @@ inherited fEditorArticulo: TfEditorArticulo
Width = 624 Width = 624
ExplicitWidth = 624 ExplicitWidth = 624
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 480 ExplicitWidth = 543
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -111,18 +112,49 @@ inherited fEditorArticulo: TfEditorArticulo
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 618 Width = 618
Height = 349 Height = 346
ActivePage = pagPrecios
ExplicitTop = 112
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 349 ExplicitHeight = 346
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 610 ExplicitWidth = 610
ExplicitHeight = 321 ExplicitHeight = 318
end
object pagPrecios: TTabSheet
Caption = 'Precios'
ImageIndex = 1
inline frViewProveedoresArticulo1: TfrViewProveedoresArticulo
Left = 0
Top = 0
Width = 610
Height = 318
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitLeft = -164
ExplicitTop = -195
inherited cxGrid: TcxGrid
Width = 610
Height = 293
end
inherited ToolBar1: TToolBar
Width = 610
end
end
end end
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 624 Width = 624
ExplicitTop = 79
ExplicitWidth = 624 ExplicitWidth = 624
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 614 Width = 614

11
Source/Modulos/Articulos/Views/uEditorArticulo.pas
View File

@ -13,7 +13,8 @@ uses
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
uViewArticulos, uIEditorArticulo, uArticulosController, JvExComCtrls, uViewArticulos, uIEditorArticulo, uArticulosController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces; JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, uViewDetallesGenerico,
uViewProveedoresArticulo;
type type
TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo) TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo)
@ -24,6 +25,8 @@ type
TBXSeparatorItem6: TTBXSeparatorItem; TBXSeparatorItem6: TTBXSeparatorItem;
actSubFamilias: TAction; actSubFamilias: TAction;
TBXItem7: TTBXItem; TBXItem7: TTBXItem;
pagPrecios: TTabSheet;
frViewProveedoresArticulo1: TfrViewProveedoresArticulo;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -110,14 +113,20 @@ begin
dsDataTable.DataTable := FArticulo.DataTable; dsDataTable.DataTable := FArticulo.DataTable;
if Assigned(FViewArticulo) and Assigned(Articulo) then if Assigned(FViewArticulo) and Assigned(Articulo) then
begin
FViewArticulo.Articulo := Articulo; FViewArticulo.Articulo := Articulo;
frViewProveedoresArticulo1.Articulo := Articulo;
end;
end; end;
procedure TfEditorArticulo.SetController(const Value: IArticulosController); procedure TfEditorArticulo.SetController(const Value: IArticulosController);
begin begin
FController := Value; FController := Value;
if Assigned(FController) then if Assigned(FController) then
begin
(ViewArticulo as IViewArticulo).Controller := (FController as IArticulosController); (ViewArticulo as IViewArticulo).Controller := (FController as IArticulosController);
frViewProveedoresArticulo1.Controller := (FController as IArticulosController);
end;
end; end;
procedure TfEditorArticulo.SetViewArticulo(const Value: IViewArticulo); procedure TfEditorArticulo.SetViewArticulo(const Value: IViewArticulo);

28
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{98AF2F15-AC1C-4F59-991B-34089BDDC840}'; RID_Valores = '{00950C9F-3C0E-4384-8F5F-8D5B986FFD3C}';
RID_Propiedades = '{0DB1A888-E1A8-4A65-AB62-3C7EFEAB8F69}'; RID_Propiedades = '{FD2B8573-731E-425A-AFCD-43695556F4F9}';
RID_ListaAnosContratos = '{0E2B9164-2FB9-4B39-8FBC-6BE3D336B48C}'; RID_ListaAnosContratos = '{D12AE8AC-742F-4849-8CDB-1DFBDF17CB3E}';
RID_ContratosClienteBeneficios = '{5E784AF4-01EC-4DF6-8ADC-73278CAE3BF8}'; RID_ContratosClienteBeneficios = '{BFD9857D-FFF0-4664-8ABF-742B1783C4F5}';
RID_ContratosCliente = '{EB63D7F9-FAFD-4229-82FB-2D186699CA34}'; RID_ContratosCliente = '{B04C1A81-6448-4F1C-94BF-3799E0433F6D}';
RID_TiposCapitulos = '{67FCFC6C-9C96-4AC1-9F7A-DBEE94850F21}'; RID_TiposCapitulos = '{1928D386-F965-4F72-9277-50CBFEF81572}';
RID_ContratosCliente_Detalles = '{D725D49A-4F2C-4F00-8096-0D5F8B154ED0}'; RID_ContratosCliente_Detalles = '{3FC0F387-A276-49DC-85A1-7970110566CE}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -261,7 +261,7 @@ const
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{CAC51712-8DE1-46A2-AA4D-4AF8BB9C0CBD}'] ['{5D9011E6-D896-4A0E-A54D-4EEBBDCDCB2D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -320,7 +320,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{F3CF2F1F-2B05-40E6-B2FF-68123C0565E4}'] ['{67303838-FB10-4B4D-93AC-7AE3E8DFF959}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -379,7 +379,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{2DB80898-DEE3-4EA1-9BAA-04A1CBD9CB04}'] ['{C04F03C6-E41E-406B-BCC7-21F80327A0CE}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -414,7 +414,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{6AC20789-FF7D-4A25-803D-2AD9D912D314}'] ['{310BF2BD-F3AB-49EB-B1AD-95EB739E4084}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -617,7 +617,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{9AD248D1-FF4C-4511-AEA7-8FD929DCC8B4}'] ['{17F07CFD-CE56-41C1-ABA3-84A2003212C5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1327,7 +1327,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{66A7A333-E4FE-45F5-81DB-5DDEA7E959D2}'] ['{92B0A9C9-D2F7-45F7-888B-FEB043E3FB23}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1422,7 +1422,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{BD95350A-17BA-4064-B69D-71BD4D5EE1A2}'] ['{C7692BDF-2B09-4581-A624-AD101BAF3417}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

28
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{DF9F3249-76D6-47EB-8059-2FB7B3D10819}'; RID_ValoresDelta = '{A722C059-2F12-41F9-A113-93534ABBC807}';
RID_PropiedadesDelta = '{A8C14BD7-96F7-4FC7-989D-D32E96E5BF48}'; RID_PropiedadesDelta = '{68873676-2EA3-47C8-B322-707CD8A8B7D3}';
RID_ListaAnosContratosDelta = '{2F375EE3-7643-43E8-8802-1791D5CE327E}'; RID_ListaAnosContratosDelta = '{A56B54B6-30F0-4BA4-927A-8C6E54F746CA}';
RID_ContratosClienteBeneficiosDelta = '{54524D5A-69D5-4BFB-B1B3-7B9EB30EF864}'; RID_ContratosClienteBeneficiosDelta = '{21A88120-1D73-4516-8DDB-C7075C1FFD8D}';
RID_ContratosClienteDelta = '{3334F1BC-133A-4AAC-B21F-36EA02ABBB1B}'; RID_ContratosClienteDelta = '{124CFEA1-C11A-4838-93D3-83F30385BD57}';
RID_TiposCapitulosDelta = '{9DA01C84-68F5-4229-A448-1FE4ADE133CD}'; RID_TiposCapitulosDelta = '{8A04F5B4-9934-4228-B499-05697F987ED3}';
RID_ContratosCliente_DetallesDelta = '{F6F1854C-A1B7-4012-B2AC-BC1674E0C469}'; RID_ContratosCliente_DetallesDelta = '{5C443914-A231-4D30-840D-BA25D9E47768}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{DF9F3249-76D6-47EB-8059-2FB7B3D10819}'] ['{A722C059-2F12-41F9-A113-93534ABBC807}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{A8C14BD7-96F7-4FC7-989D-D32E96E5BF48}'] ['{68873676-2EA3-47C8-B322-707CD8A8B7D3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{2F375EE3-7643-43E8-8802-1791D5CE327E}'] ['{A56B54B6-30F0-4BA4-927A-8C6E54F746CA}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{54524D5A-69D5-4BFB-B1B3-7B9EB30EF864}'] ['{21A88120-1D73-4516-8DDB-C7075C1FFD8D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{3334F1BC-133A-4AAC-B21F-36EA02ABBB1B}'] ['{124CFEA1-C11A-4838-93D3-83F30385BD57}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -1082,7 +1082,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{9DA01C84-68F5-4229-A448-1FE4ADE133CD}'] ['{8A04F5B4-9934-4228-B499-05697F987ED3}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1176,7 +1176,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{F6F1854C-A1B7-4012-B2AC-BC1674E0C469}'] ['{5C443914-A231-4D30-840D-BA25D9E47768}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;

41
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
View File

@ -934,7 +934,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 44175.744154942130000000 ReportOptions.LastChange = 44182.457662893520000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -1094,6 +1094,45 @@ object RptContratosCliente: TRptContratosCliente
Name = 'VENDEDOR' Name = 'VENDEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'ID_DIRECCION_ENVIO'
DataType = datInteger
end
item
Name = 'CALLE_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'PERS_CONTACTO_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'TLFS_ENVIO'
DataType = datString
Size = 30
end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end> end>
Params = < Params = <
item item

10
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
View File

@ -1641,6 +1641,12 @@ object srvContratosCliente: TsrvContratosCliente
Size = 30 Size = 30
Value = '' Value = ''
end end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1675,8 +1681,8 @@ object srvContratosCliente: TsrvContratosCliente
'IO,'#10' POBLACION_ENVIO = :POBLACION_ENVIO,'#10' PROVINCIA_ENVIO ' + 'IO,'#10' POBLACION_ENVIO = :POBLACION_ENVIO,'#10' PROVINCIA_ENVIO ' +
'= :PROVINCIA_ENVIO,'#10' CODIGO_POSTAL_ENVIO = :CODIGO_POSTAL_ENV' + '= :PROVINCIA_ENVIO,'#10' CODIGO_POSTAL_ENVIO = :CODIGO_POSTAL_ENV' +
'IO,'#10' PERS_CONTACTO_ENVIO = :PERS_CONTACTO_ENVIO,'#10' TLFS_ENV' + 'IO,'#10' PERS_CONTACTO_ENVIO = :PERS_CONTACTO_ENVIO,'#10' TLFS_ENV' +
'IO = :TLFS_ENVIO,'#10' NOTAS_ENVIO = NOTAS_ENVIO'#10#10' WHERE'#10' (ID' + 'IO = :TLFS_ENVIO,'#10' NOTAS_ENVIO = :NOTAS_ENVIO'#10#10' WHERE'#10' (I' +
' = :OLD_ID)'#10#10 'D = :OLD_ID)'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

97
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -341,13 +341,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitHeight = 239 ExplicitHeight = 239
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 831 Width = 831
ExplicitWidth = 834 ExplicitWidth = 831
end end
inherited ListView1: TListView inherited ListView1: TListView
Width = 831 Width = 831
Height = 213 Height = 213
ExplicitWidth = 834 ExplicitTop = 26
ExplicitHeight = 300 ExplicitWidth = 831
ExplicitHeight = 213
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
Left = 8 Left = 8
@ -386,95 +387,129 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 845 Width = 845
ExplicitWidth = 845 ExplicitWidth = 845
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 480 Left = 398
Height = 122 Height = 122
ExplicitLeft = 480 ExplicitLeft = 398
ExplicitHeight = 122 ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 592 Left = 510
ExplicitLeft = 592 Width = 210
ExplicitLeft = 510
ExplicitWidth = 210
end
inherited Bevel2: TBevel
Width = 333
ExplicitWidth = 333
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 499 Left = 417
ExplicitLeft = 499 Width = 332
ExplicitLeft = 417
ExplicitWidth = 332
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 93
Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 663 Left = 581
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 663 ExplicitLeft = 581
ExplicitWidth = 137
Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 593 Left = 511
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 593 ExplicitLeft = 511
ExplicitWidth = 137
Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 592 Left = 510
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 592 ExplicitLeft = 510
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 592 Left = 510
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 592 ExplicitLeft = 510
ExplicitWidth = 92
Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 592 Left = 510
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 592 ExplicitLeft = 510
end end
inherited edtIRPF: TcxDBSpinEdit inherited edtIRPF: TcxDBSpinEdit
Left = 592 Left = 510
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 592 ExplicitLeft = 510
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 663 Left = 581
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 663 ExplicitLeft = 581
ExplicitWidth = 56
Width = 56
end end
inherited ImporteIRPF: TcxDBCurrencyEdit inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 663 Left = 581
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 663 ExplicitLeft = 581
ExplicitWidth = 56
Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk Style.Color = clInfoBk
ExplicitWidth = 81
Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 332 Left = 250
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 332 ExplicitLeft = 250
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219
Width = 219
end end
inherited edtRetencion: TcxDBSpinEdit inherited edtRetencion: TcxDBSpinEdit
Left = 592 Left = 510
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 592 ExplicitLeft = 510
end end
inherited edtImporteRetencion: TcxDBCurrencyEdit inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 663 Left = 581
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 663 ExplicitLeft = 581
ExplicitWidth = 342
Width = 342
end end
inherited edtFechaRetencion: TcxDBDateEdit inherited edtFechaRetencion: TcxDBDateEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 333
Width = 333
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup

103
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
View File

@ -1,23 +1,26 @@
inherited frViewContratoCliente: TfrViewContratoCliente inherited frViewContratoCliente: TfrViewContratoCliente
Width = 1123 Width = 976
Height = 796 Height = 538
Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 1123 ExplicitWidth = 451
ExplicitHeight = 796 ExplicitHeight = 304
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1123 Width = 976
Height = 796 Height = 538
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
1123 976
796) 538)
object edtFechaContrato: TcxDBDateEdit object edtFechaContrato: TcxDBDateEdit
Left = 117 Left = 117
Top = 82 Top = 82
@ -42,7 +45,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 129 Width = 129
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 534 Left = 537
Top = 289 Top = 289
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
@ -90,7 +93,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 117 Left = 117
Top = 429 Top = 504
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -121,8 +124,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 122 Width = 122
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 372 Left = 375
Top = 429 Top = 504
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
@ -156,7 +159,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 260 Width = 260
end end
inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
Left = 534 Left = 537
Top = 28 Top = 28
Width = 127 Width = 127
Height = 225 Height = 225
@ -168,7 +171,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
ParentFont = False ParentFont = False
TabOrder = 11 TabOrder = 11
ReadOnly = False ReadOnly = False
ExplicitLeft = 534 ExplicitLeft = 537
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 127 ExplicitWidth = 127
ExplicitHeight = 225 ExplicitHeight = 225
@ -177,27 +180,41 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Height = 225 Height = 225
ExplicitWidth = 127 ExplicitWidth = 127
ExplicitHeight = 225 ExplicitHeight = 225
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 103
Width = 103
end
inherited bVerFichaCliente: TBitBtn inherited bVerFichaCliente: TBitBtn
Left = 365 Left = 196
ExplicitLeft = 365 ExplicitLeft = 196
end end
inherited edtDireccion: TcxMemo inherited edtDireccion: TcxMemo
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited bElegirDireccion: TButton inherited bElegirDireccion: TButton
Left = 534 Left = 365
ExplicitLeft = 534 ExplicitLeft = 365
end
inherited edtTelefonos: TcxTextEdit
ExplicitWidth = 193
Width = 193
end end
inherited edtReferencia: TcxDBTextEdit inherited edtReferencia: TcxDBTextEdit
Left = 343 Left = 260
ExplicitLeft = 343 ExplicitLeft = 260
ExplicitWidth = 103
Width = 103
end end
end end
end end
object memFormaPago: TcxDBMemo object memFormaPago: TcxDBMemo
Left = 22 Left = 22
Top = 456 Top = 531
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO' DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -214,12 +231,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 9
Height = 100 Height = 60
Width = 396 Width = 546
end end
object memPlazoEntrega: TcxDBMemo object memPlazoEntrega: TcxDBMemo
Left = 22 Left = 22
Top = 637 Top = 587
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA' DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -236,8 +253,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 10
Height = 100 Height = 60
Width = 396 Width = 616
end end
object cbVendedor: TcxDBLookupComboBox object cbVendedor: TcxDBLookupComboBox
Left = 117 Left = 117
@ -270,7 +287,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 27 Width = 27
end end
object cbTipoContrato: TcxDBComboBox object cbTipoContrato: TcxDBComboBox
Left = 361 Left = 363
Top = 82 Top = 82
DataBinding.DataField = 'TIPO_CONTRATO' DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -318,10 +335,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente
inline frViewDireccionEntregaContratoCli1: TfrViewDireccionEntregaContratoCli inline frViewDireccionEntregaContratoCli1: TfrViewDireccionEntregaContratoCli
Left = 22 Left = 22
Top = 193 Top = 193
Width = 400 Width = 594
Height = 200 Height = 275
Align = alClient Align = alClient
AutoSize = True
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -332,13 +348,13 @@ inherited frViewContratoCliente: TfrViewContratoCliente
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 193 ExplicitTop = 193
ExplicitWidth = 400 ExplicitWidth = 594
ExplicitHeight = 200 ExplicitHeight = 275
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 400 Width = 594
Height = 200 Height = 275
ExplicitWidth = 400 ExplicitWidth = 594
ExplicitHeight = 200 ExplicitHeight = 275
inherited rdxDestino1: TRadioButton inherited rdxDestino1: TRadioButton
Width = 255 Width = 255
ExplicitWidth = 255 ExplicitWidth = 255
@ -352,10 +368,10 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 425 Width = 425
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 292 Left = 295
Top = 165 Top = 166
ExplicitLeft = 292 ExplicitLeft = 295
ExplicitTop = 165 ExplicitTop = 166
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
Width = 551 Width = 551
@ -371,6 +387,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
ExplicitWidth = 551 ExplicitWidth = 551
Width = 551 Width = 551
end end
inherited notasEnvio: TcxDBMemo
Top = 215
DataBinding.DataSource = DADataSource
ExplicitTop = 215
end
end end
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
@ -435,6 +456,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end end
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Direcci'#243'n entrega / obra' Caption = 'Direcci'#243'n entrega / obra'
object dxLayoutControl1Item13: TdxLayoutItem object dxLayoutControl1Item13: TdxLayoutItem
Control = frViewDireccionEntregaContratoCli1 Control = frViewDireccionEntregaContratoCli1

46
Source/Modulos/Contratos de cliente/Views/uViewDireccionEntregaContratoCli.dfm
View File

@ -1,21 +1,22 @@
inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
Width = 906 Width = 906
Height = 551 Height = 350
ExplicitWidth = 906 ExplicitWidth = 906
ExplicitHeight = 551 ExplicitHeight = 350
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 906 Width = 906
Height = 551 Height = 350
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 638
DesignSize = ( DesignSize = (
906 906
551) 350)
object rdxDestino1: TRadioButton object rdxDestino1: TRadioButton
Left = 10 Left = 10
Top = 10 Top = 10
@ -24,6 +25,7 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
Action = actLista Action = actLista
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
TabStop = True
end end
object rdxDestino2: TRadioButton object rdxDestino2: TRadioButton
Left = 10 Left = 10
@ -66,7 +68,7 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
end end
object bModificar: TBitBtn object bModificar: TBitBtn
Left = 716 Left = 716
Top = 516 Top = 241
Width = 180 Width = 180
Height = 25 Height = 25
Caption = 'Modificar la direcci'#243'n...' Caption = 'Modificar la direcci'#243'n...'
@ -76,8 +78,8 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
object txtDireccion: TStaticText object txtDireccion: TStaticText
Left = 25 Left = 25
Top = 133 Top = 133
Width = 551 Width = 871
Height = 177 Height = 200
AutoSize = False AutoSize = False
BevelKind = bkFlat BevelKind = bkFlat
TabOrder = 5 TabOrder = 5
@ -89,9 +91,7 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
Width = 566 Width = 566
Height = 17 Height = 17
Action = actListaCliente Action = actListaCliente
Checked = True
TabOrder = 2 TabOrder = 2
TabStop = True
end end
object cbListaDireccionesCliente: TcxDBLookupComboBox object cbListaDireccionesCliente: TcxDBLookupComboBox
Left = 25 Left = 25
@ -133,6 +133,28 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
TabOrder = 3 TabOrder = 3
Width = 551 Width = 551
end end
object notasEnvio: TcxDBMemo
Left = 10
Top = 290
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'NOTAS_ENVIO'
DataBinding.DataSource = dsContrato
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Height = 50
Width = 886
end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -192,6 +214,12 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
Control = bModificar Control = bModificar
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Notas env'#237'o:'
CaptionOptions.Layout = clTop
Control = notasEnvio
ControlOptions.ShowBorder = False
end
end end
end end
object ActionList1: TActionList object ActionList1: TActionList

6
Source/Modulos/Contratos de cliente/Views/uViewDireccionEntregaContratoCli.pas
View File

@ -8,7 +8,7 @@ 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, uContratosClienteController, Buttons, uDAInterfaces, uClientesController, ActnList, uContratosClienteController, Buttons, uDAInterfaces, uClientesController,
uDireccionesContactoController, uBizContactosDirecciones; uDireccionesContactoController, uBizContactosDirecciones, cxDBEdit;
// uBizAlmacenes, uAlmacenesController; // uBizAlmacenes, uAlmacenesController;
type type
@ -45,6 +45,8 @@ type
cbListaDireccionesCliente: TcxDBLookupComboBox; cbListaDireccionesCliente: TcxDBLookupComboBox;
dsDireccionesCliente: TDADataSource; dsDireccionesCliente: TDADataSource;
actListaCliente: TAction; actListaCliente: TAction;
dxLayoutControl1Item7: TdxLayoutItem;
notasEnvio: TcxDBMemo;
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);
@ -150,7 +152,7 @@ begin
if Assigned(FContrato) and Assigned(FDireccionesCliente) then if Assigned(FContrato) and Assigned(FDireccionesCliente) then
begin begin
FContrato.Edit; FContrato.Edit;
FContrato.CALLE_ENVIO := FDireccionesCliente.NOMBRE + #10#13 + FDireccionesCliente.CALLE; FContrato.CALLE_ENVIO := FDireccionesCliente.NOMBRE + #13 + FDireccionesCliente.CALLE;
FContrato.POBLACION_ENVIO := FDireccionesCliente.POBLACION; FContrato.POBLACION_ENVIO := FDireccionesCliente.POBLACION;
FContrato.PROVINCIA_ENVIO := FDireccionesCliente.PROVINCIA; FContrato.PROVINCIA_ENVIO := FDireccionesCliente.PROVINCIA;
FContrato.CODIGO_POSTAL_ENVIO := FDireccionesCliente.CODIGO_POSTAL; FContrato.CODIGO_POSTAL_ENVIO := FDireccionesCliente.CODIGO_POSTAL;

58
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm
View File

@ -26,7 +26,6 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
end> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.GroupBySorting = True OptionsCustomize.GroupBySorting = True
OptionsView.GroupRowStyle = grsOffice11
object cxGridViewID_ALMACEN: TcxGridDBColumn object cxGridViewID_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'ID_ALMACEN' DataBinding.FieldName = 'ID_ALMACEN'
Visible = False Visible = False
@ -37,7 +36,6 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
object cxGridViewTIPO_MOVIMIENTO: TcxGridDBColumn object cxGridViewTIPO_MOVIMIENTO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_MOVIMIENTO' DataBinding.FieldName = 'TIPO_MOVIMIENTO'
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = PngImageList10
Properties.Items = < Properties.Items = <
item item
Description = 'Entrada' Description = 'Entrada'
@ -92,14 +90,26 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
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
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
@ -112,31 +122,7 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited cxStyleRepository1: TcxStyleRepository inherited GridPNGImageList: TPngImageList
inherited cxStyleEven: TcxStyle
AssignedValues = [svFont]
end
inherited cxStyleOdd: TcxStyle
AssignedValues = [svColor, svFont]
end
inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
end
object cxStyleEntrada: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
TextColor = clNavy
end
object cxStyleSalida: TcxStyle
AssignedValues = [svTextColor]
TextColor = clGreen
end
end
inherited PngImageList10: TPngImageList
PngImages = < PngImages = <
item item
PngImage.Data = { PngImage.Data = {
@ -343,6 +329,24 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
end> end>
Bitmap = {} Bitmap = {}
end end
inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
end
object cxStyleEntrada: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
TextColor = clNavy
end
object cxStyleSalida: TcxStyle
AssignedValues = [svTextColor]
TextColor = clGreen
end
end
object PngImageList: TPngImageList object PngImageList: TPngImageList
PngImages = < PngImages = <
item item

BIN
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas
View File

Binary file not shown.

52
Source/Modulos/Inventario/Data/uDataModuleInventario.dfm
View File

@ -144,121 +144,121 @@ inherited DataModuleInventario: TDataModuleInventario
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_ALMACEN' DictionaryEntry = 'Inventario_ID_ALMACEN'
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_ARTICULO' DictionaryEntry = 'Inventario_ID_ARTICULO'
end end
item item
Name = 'ALMACEN' Name = 'ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'INVENTARIO_ALMACEN' DictionaryEntry = 'Inventario_ALMACEN'
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_EMPRESA' DictionaryEntry = 'Inventario_ID_EMPRESA'
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'INVENTARIO_REFERENCIA' DisplayLabel = 'INVENTARIO_REFERENCIA'
DictionaryEntry = 'INVENTARIO_REFERENCIA' DictionaryEntry = 'Inventario_REFERENCIA'
end end
item item
Name = 'FAMILIA' Name = 'FAMILIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'INVENTARIO_FAMILIA' DictionaryEntry = 'Inventario_FAMILIA'
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'INVENTARIO_DESCRIPCION' DictionaryEntry = 'Inventario_DESCRIPCION'
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'INVENTARIO_REFERENCIA_PROVEEDOR' DictionaryEntry = 'Inventario_REFERENCIA_PROVEEDOR'
end end
item item
Name = 'PRECIO_NETO' Name = 'PRECIO_NETO'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Precio unidad' DisplayLabel = 'Precio unidad'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'INVENTARIO_PRECIO_NETO' DictionaryEntry = 'Inventario_PRECIO_NETO'
end end
item item
Name = 'STOCK' Name = 'STOCK'
DataType = datLargeInt DataType = datFloat
DisplayLabel = 'Stock disponible' DisplayLabel = 'Stock disponible'
DictionaryEntry = 'INVENTARIO_STOCK' DictionaryEntry = 'Inventario_STOCK'
end end
item item
Name = 'UNIDADES_ALMACEN' Name = 'UNIDADES_ALMACEN'
DataType = datLargeInt DataType = datFloat
DisplayLabel = 'U. Almac'#195#169'n' DisplayLabel = 'U. Almac'#233'n'
DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN' DictionaryEntry = 'Inventario_UNIDADES_ALMACEN'
end end
item item
Name = 'COSTE_UNIDADES' Name = 'COSTE_UNIDADES'
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'Coste unidades' DisplayLabel = 'Coste unidades'
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'INVENTARIO_COSTE_UNIDADES' DictionaryEntry = 'Inventario_COSTE_UNIDADES'
end end
item item
Name = 'RESERVA' Name = 'RESERVA'
DataType = datLargeInt DataType = datFloat
DisplayLabel = 'Reservado' DisplayLabel = 'Reservado'
DictionaryEntry = 'INVENTARIO_RESERVA' DictionaryEntry = 'Inventario_RESERVA'
end end
item item
Name = 'PENDIENTE_RECEPCION' Name = 'PENDIENTE_RECEPCION'
DataType = datLargeInt DataType = datFloat
DisplayLabel = 'Pendiente de recibir' DisplayLabel = 'Pendiente de recibir'
DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION' DictionaryEntry = 'Inventario_PENDIENTE_RECEPCION'
end end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
LogChanges = False LogChanges = False
DisplayLabel = 'INVENTARIO_ID' DisplayLabel = 'INVENTARIO_ID'
DictionaryEntry = 'INVENTARIO_ID' DictionaryEntry = 'Inventario_ID'
InPrimaryKey = True InPrimaryKey = True
Calculated = True Calculated = True
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datFloat
DisplayLabel = 'INVENTARIO_CANTIDAD' DisplayLabel = 'INVENTARIO_CANTIDAD'
DictionaryEntry = 'INVENTARIO_CANTIDAD' DictionaryEntry = 'Inventario_CANTIDAD'
end end
item item
Name = 'FECHA_MOVIMIENTO' Name = 'FECHA_MOVIMIENTO'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'INVENTARIO_FECHA_MOVIMIENTO' DisplayLabel = 'INVENTARIO_FECHA_MOVIMIENTO'
DictionaryEntry = 'INVENTARIO_FECHA_MOVIMIENTO' DictionaryEntry = 'Inventario_FECHA_MOVIMIENTO'
end end
item item
Name = 'CAUSA' Name = 'CAUSA'
DataType = datString DataType = datString
Size = 255 Size = 1
DisplayLabel = 'INVENTARIO_CAUSA' DisplayLabel = 'INVENTARIO_CAUSA'
DictionaryEntry = 'INVENTARIO_CAUSA' DictionaryEntry = 'Inventario_CAUSA'
end end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString DataType = datString
Size = 1 Size = 1
DisplayLabel = 'INVENTARIO_TIPO' DisplayLabel = 'INVENTARIO_TIPO'
DictionaryEntry = 'INVENTARIO_TIPO' DictionaryEntry = 'Inventario_TIPO'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

24
Source/Modulos/Inventario/Views/uViewInventario.dfm
View File

@ -9,7 +9,7 @@ inherited frViewInventario: TfrViewInventario
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridViewCOSTE_UNIDADES Column = cxGridViewCOSTE_UNIDADES
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -48,7 +48,6 @@ inherited frViewInventario: TfrViewInventario
end> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.GroupBySorting = True OptionsCustomize.GroupBySorting = True
OptionsView.GroupRowStyle = grsOffice11
object cxGridViewID_ALMACEN: TcxGridDBColumn object cxGridViewID_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'ID_ALMACEN' DataBinding.FieldName = 'ID_ALMACEN'
Visible = False Visible = False
@ -147,14 +146,26 @@ inherited frViewInventario: TfrViewInventario
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
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
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
@ -167,13 +178,12 @@ inherited frViewInventario: TfrViewInventario
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleRepositoryInforme: TcxStyleRepository
inherited cxStyleEven: TcxStyle inherited cxStyleContentInforme: TcxStyle
AssignedValues = [svFont]
end
inherited cxStyleOdd: TcxStyle
AssignedValues = [svColor, svFont] AssignedValues = [svColor, svFont]
end end
end
inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleSelection: TcxStyle inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]
end end

BIN
Source/Modulos/Inventario/Views/uViewInventario.pas
View File

Binary file not shown.

14
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj
View File

@ -49,13 +49,13 @@
<DelphiCompile Include="PedidosProveedor_view.dpk"> <DelphiCompile Include="PedidosProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="Almacenes_controller.dcp" /> <DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="Almacenes_model.dcp" /> <DCCReference Include="..\Almacenes_model.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="Contactos_view.dcp" /> <DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="PedidosProveedor_controller.dcp" /> <DCCReference Include="..\PedidosProveedor_controller.dcp" />
<DCCReference Include="PedidosProveedor_model.dcp" /> <DCCReference Include="..\PedidosProveedor_model.dcp" />
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas"> <DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
<Form>fEditorDireccionEntregaPedidoProveedor </Form> <Form>fEditorDireccionEntregaPedidoProveedor </Form>
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass> <DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>

34
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
ClientWidth = 700 ClientWidth = 700
Position = poDesigned Position = poDesigned
ExplicitWidth = 708 ExplicitWidth = 708
ExplicitHeight = 471 ExplicitHeight = 482
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -45,14 +45,14 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Width = 700 Width = 700
ExplicitWidth = 700 ExplicitWidth = 700
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 632 ExplicitWidth = 700
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 700 ExplicitWidth = 700
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Visible = True Visible = True
ExplicitWidth = 119 ExplicitWidth = 133
object TBXItem39: TTBXItem object TBXItem39: TTBXItem
Action = actRecibirPedido Action = actRecibirPedido
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -65,9 +65,9 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
end end
inline frViewPedidosProveedor1: TfrViewPedidosProveedor [3] inline frViewPedidosProveedor1: TfrViewPedidosProveedor [3]
Left = 0 Left = 0
Top = 102 Top = 106
Width = 700 Width = 700
Height = 323 Height = 319
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -77,14 +77,14 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 102 ExplicitTop = 106
ExplicitWidth = 700 ExplicitWidth = 700
ExplicitHeight = 323 ExplicitHeight = 319
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 700 Width = 700
Height = 195 Height = 191
ExplicitWidth = 700 ExplicitWidth = 700
ExplicitHeight = 195 ExplicitHeight = 191
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -118,15 +118,27 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Width = 700 Width = 700
ExplicitWidth = 700 ExplicitWidth = 700
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 457 ExplicitWidth = 457
Width = 457 Width = 457
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 240 ExplicitWidth = 240
Width = 240 Width = 240
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 371 Left = 371
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 371 ExplicitLeft = 371
ExplicitWidth = 294 ExplicitWidth = 294
Width = 294 Width = 294
@ -146,8 +158,8 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 297 Top = 293
ExplicitTop = 297 ExplicitTop = 293
ExplicitWidth = 700 ExplicitWidth = 700
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 700 Width = 700

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

@ -166,15 +166,27 @@ 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
@ -220,19 +232,6 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited cxStyleRepository1: TcxStyleRepository
Left = 248
object cxStylePendientes: TcxStyle
AssignedValues = [svTextColor]
TextColor = clGreen
end
object cxStyleParciales: TcxStyle
AssignedValues = [svTextColor]
TextColor = clBlue
end
object cxStyleRecibidos: TcxStyle
end
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
Left = 288 Left = 288
end end
@ -250,10 +249,23 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
OnUpdate = actAlmacenUpdate OnUpdate = actAlmacenUpdate
end end
end end
inherited PngImageList10: TPngImageList inherited GridPNGImageList: TPngImageList
Left = 360 Left = 360
Top = 440 Top = 440
end end
inherited cxStyleRepository1: TcxStyleRepository
Left = 248
object cxStylePendientes: TcxStyle
AssignedValues = [svTextColor]
TextColor = clGreen
end
object cxStyleParciales: TcxStyle
AssignedValues = [svTextColor]
TextColor = clBlue
end
object cxStyleRecibidos: TcxStyle
end
end
object PngImageList: TPngImageList object PngImageList: TPngImageList
PngImages = < PngImages = <
item item

3
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
View File

@ -12,7 +12,8 @@ uses
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes, uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
cxGrid, cxGrid,
uBizPedidosProveedor, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, uBizPedidosProveedor, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList,
TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces; TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces,
uCustomView, uViewBase;
type type
IViewPedidosProveedor = interface(IViewGrid) IViewPedidosProveedor = interface(IViewGrid)

1
Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
View File

@ -55,6 +55,7 @@ begin
AAlbaran.PROVINCIA := AContrato.PROVINCIA_ENVIO; AAlbaran.PROVINCIA := AContrato.PROVINCIA_ENVIO;
AAlbaran.PERSONA_CONTACTO := AContrato.PERS_CONTACTO_ENVIO; AAlbaran.PERSONA_CONTACTO := AContrato.PERS_CONTACTO_ENVIO;
AAlbaran.TELEFONO := AContrato.TLFS_ENVIO; AAlbaran.TELEFONO := AContrato.TLFS_ENVIO;
AAlbaran.NOTAS_ENVIO := AContrato.NOTAS_ENVIO;
AAlbaran.MOVIL := AContrato.MOVIL; AAlbaran.MOVIL := AContrato.MOVIL;
AAlbaran.IMPORTE_NETO := AContrato.IMPORTE_NETO; AAlbaran.IMPORTE_NETO := AContrato.IMPORTE_NETO;
AAlbaran.IMPORTE_PORTE := AContrato.IMPORTE_PORTE; AAlbaran.IMPORTE_PORTE := AContrato.IMPORTE_PORTE;

BIN
Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu
View File

Binary file not shown.

12
Source/Servidor/FactuGES_Server.dpr
View File

@ -139,14 +139,14 @@ uses
srvTarifas_Impl in '..\Modulos\Tarifas\Servidor\srvTarifas_Impl.pas' {srvTarifas: TDataAbstractService}, srvTarifas_Impl in '..\Modulos\Tarifas\Servidor\srvTarifas_Impl.pas' {srvTarifas: TDataAbstractService},
schTarifasClient_Intf in '..\Modulos\Tarifas\Model\schTarifasClient_Intf.pas', schTarifasClient_Intf in '..\Modulos\Tarifas\Model\schTarifasClient_Intf.pas',
schTarifasServer_Intf in '..\Modulos\Tarifas\Model\schTarifasServer_Intf.pas', schTarifasServer_Intf in '..\Modulos\Tarifas\Model\schTarifasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_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">9</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.9.0.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.9.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 10 de diciembre de 2020 16:23</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">9</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.9.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.9.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 18 de diciembre de 2020 12:07</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>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.