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>
<![CDATA[]]>
</Notes>
<LastBuildRun>00:03:11</LastBuildRun>
<LastBuildStart>14/02/2020 13:22:06</LastBuildStart>
<LastBuildRun>00:03:15</LastBuildRun>
<LastBuildStart>28/12/2020 17:37:37</LastBuildStart>
<LastBuildState>True</LastBuildState>
</properties>
</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">
<MainSource>MainSource</MainSource>
</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="..\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">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

2
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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><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
Category = 'Menus'
Caption = 'Log'#237'stica'
Enabled = False
Visible = False
OnExecute = actMenuLogisticaExecute
OnUpdate = actMenuComprasUpdate
end

2
Source/FactuGES.inc
View File

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

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Base.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\frx11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\frxe11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\fs11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</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'
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_TIENDA'
end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{5392573B-B6A0-49DE-ACCD-1B04E1684DCC}';
RID_AlbaranesCliente = '{2B6F227E-8173-4A9A-A666-BAA270EAEA1A}';
RID_AlbaranesCliente_Detalles = '{FE404448-507F-47B3-ADD1-1D5821AF7506}';
RID_ListaAnosAlbaranes = '{B517DFB7-B260-4DD7-B59F-D0C79D930D9A}';
RID_AlbaranesCliente = '{FCE2B205-1ADB-4A2F-A57A-BB4978B0C22D}';
RID_AlbaranesCliente_Detalles = '{E456B282-7E51-41D3-9214-4A96CEF784F8}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -70,6 +70,7 @@ const
fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA';
fld_AlbaranesClienteTIENDA = 'TIENDA';
fld_AlbaranesClienteNOTAS_ENVIO = 'NOTAS_ENVIO';
{ AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0;
@ -117,6 +118,7 @@ const
idx_AlbaranesClienteFECHA_RECEPCION = 42;
idx_AlbaranesClienteID_TIENDA = 43;
idx_AlbaranesClienteTIENDA = 44;
idx_AlbaranesClienteNOTAS_ENVIO = 45;
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
@ -155,7 +157,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{9E537DDB-8E64-4969-8E68-8892E1235B3B}']
['{3DFD3F5E-DB3F-4FB7-9F95-80091A69254A}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -190,7 +192,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{657314CF-9B6C-48E9-9BA7-B2475D33165E}']
['{C45B8E2D-036A-48F5-BE78-0E9922D58F85}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -370,6 +372,10 @@ type
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: 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 }
@ -463,6 +469,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
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;
{ TAlbaranesClienteDataTableRules }
@ -652,6 +660,10 @@ type
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -744,6 +756,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
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
constructor Create(aDataTable: TDADataTable); override;
@ -753,7 +767,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{E97BA8BC-8EC8-441E-8A6F-E53552B75E94}']
['{40165756-12BF-4C0D-8107-BEE438314BC2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1959,6 +1973,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteTIENDA].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{42769BFF-45B2-4BC5-8B65-09F00716E000}';
RID_AlbaranesClienteDelta = '{A1937C90-7059-43D4-BE8C-C471DD3F2D7C}';
RID_AlbaranesCliente_DetallesDelta = '{0D156B8D-7951-4154-A33A-0A13B7228A09}';
RID_ListaAnosAlbaranesDelta = '{0B01B3F1-FD0A-41E2-9AC8-DF2FE6427AC9}';
RID_AlbaranesClienteDelta = '{15937719-1382-4F28-B013-5ED650D7FD2B}';
RID_AlbaranesCliente_DetallesDelta = '{6E38A603-223E-4266-AB5E-8ECFB13DFFC3}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{42769BFF-45B2-4BC5-8B65-09F00716E000}']
['{0B01B3F1-FD0A-41E2-9AC8-DF2FE6427AC9}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{A1937C90-7059-43D4-BE8C-C471DD3F2D7C}']
['{15937719-1382-4F28-B013-5ED650D7FD2B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -97,6 +97,7 @@ type
function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
function GetOldNOTAS_ENVIOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -144,6 +145,7 @@ type
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
end;
{ TAlbaranesClienteBusinessProcessorRules }
@ -423,6 +425,12 @@ type
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -605,6 +613,10 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -614,7 +626,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{0D156B8D-7951-4154-A33A-0A13B7228A09}']
['{6E38A603-223E-4266-AB5E-8ECFB13DFFC3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -2282,6 +2294,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTIENDA] := Null;
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 }
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
Size = 255
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
Name = 'CALLE'
DataType = datString
@ -98,6 +128,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 255
end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
@ -340,34 +375,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
' ALBARANES_CLIENTE.ID_TIENDA,'#10' ALBARANES_CLIENTE.ID_CLIENTE,'#10' ' +
'CONTACTOS.NOMBRE,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE,'#10' ALBAR' +
'ANES_CLIENTE.REFERENCIA_CLIENTE,'#10' CONTACTOS.NIF_CIF,'#10' ALBARANE' +
'S_CLIENTE.FECHA_ALBARAN,'#10' ALBARANES_CLIENTE.REFERENCIA,'#10' COALE' +
'SCE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' CO' +
'ALESCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS ' +
'POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS' +
'.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIG' +
'O_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' COALESCE(' +
'CONTACTOS_DIRECCIONES.TELEFONO, CONTACTOS.TELEFONO_1) AS TELEFON' +
'O,'#10' COALESCE(CONTACTOS_DIRECCIONES.MOVIL, CONTACTOS.MOVIL_1) AS' +
' MOVIL,'#10' ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' ALBARANES_CLIENT' +
'E.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_NETO,'#10' ALBARANES_C' +
'LIENTE.DESCUENTO,'#10' ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' ALBAR' +
'ANES_CLIENTE.BASE_IMPONIBLE,'#10' ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10 +
' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' CONTRATOS_CLIENTE.RE' +
'FERENCIA AS REF_CONTRATO,'#10' CONTRATOS_CLIENTE.FECHA_CONTRATO,'#10' ' +
'EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE' +
'_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMP' +
'RESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO' +
'_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EM' +
'PRESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS ' +
'TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MO' +
'VIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,' +
#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CL' +
'IENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.' +
'ID_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_' +
'CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONT' +
'RATOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)'#10' LEFT OUTER JOI' +
'N CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ALBARANES' +
'_CLIENTE.ID_DIRECCION)'#10'WHERE ALBARANES_CLIENTE.ID = :ID'#10
'S_CLIENTE.FECHA_ALBARAN,'#10' ALBARANES_CLIENTE.REFERENCIA,'#10' CONTA' +
'CTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTOS.POBLACION AS POBLACION_F' +
'ISCAL,'#10' CONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS.CO' +
'DIGO_POSTAL AS CODIGO_POSTAL_FISCAL,'#10' CONTACTOS.TELEFONO_1 AS T' +
'ELEFONO_POSTAL_FISCAL,'#10' CONTACTOS.MOVIL_1 AS MOVIL_FISCAL,'#10' AL' +
'BARANES_CLIENTE.CALLE,'#10' ALBARANES_CLIENTE.POBLACION,'#10' ALBARANE' +
'S_CLIENTE.PROVINCIA,'#10' ALBARANES_CLIENTE.CODIGO_POSTAL,'#10' ALBARA' +
'NES_CLIENTE.TELEFONO,'#10' ALBARANES_CLIENTE.MOVIL,'#10' ALBARANES_CLI' +
'ENTE.PERSONA_CONTACTO,'#10' ALBARANES_CLIENTE.NOTAS_ENVIO,'#10' ALBARA' +
'NES_CLIENTE.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_NETO,'#10' A' +
'LBARANES_CLIENTE.DESCUENTO,'#10' ALBARANES_CLIENTE.IMPORTE_DESCUENT' +
'O,'#10' ALBARANES_CLIENTE.BASE_IMPONIBLE,'#10' ALBARANES_CLIENTE.IMPOR' +
'TE_TOTAL,'#10' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' CONTRATOS_' +
'CLIENTE.REFERENCIA AS REF_CONTRATO,'#10' CONTRATOS_CLIENTE.FECHA_CO' +
'NTRATO,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE' +
' AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPR' +
'ESA,'#10' EMPRESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL' +
' AS CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMP' +
'RESA,'#10' EMPRESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELE' +
'FONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' E' +
'MPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_' +
'1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' AL' +
'BARANES_CLIENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANE' +
'S_CLIENTE.ID_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ' +
'ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTRATOS_CLIENT' +
'E ON (CONTRATOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)'#10'/* LE' +
'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
' = ALBARANES_CLIENTE.ID_DIRECCION)*/'#10'WHERE ALBARANES_CLIENTE.ID ' +
'= :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -526,6 +562,40 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'FECHA_CONTRATO'
TableField = '<unknown>'
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>
Name = 'Informe_Cabecera'
@ -575,6 +645,36 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 255
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
Name = 'CALLE'
DataType = datString
@ -610,6 +710,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DataType = datString
Size = 255
end
item
Name = 'NOTAS_ENVIO'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
@ -1173,16 +1278,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 41544.473509386570000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1'
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 44183.517020532410000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False

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

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

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

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

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

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

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

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

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

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

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

@ -1,42 +1,25 @@
inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCliente
Width = 420
Height = 156
ExplicitWidth = 420
ExplicitHeight = 156
Width = 846
Height = 157
ExplicitWidth = 846
ExplicitHeight = 157
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 420
Height = 156
Width = 846
Height = 157
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 337
ExplicitHeight = 129
object eCalle: TcxDBTextEdit
Left = 64
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
ExplicitHeight = 266
DesignSize = (
846
157)
object ePoblacion: TcxDBTextEdit
Left = 64
Top = 37
Top = 66
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
@ -55,7 +38,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
end
object eProvincia: TcxDBTextEdit
Left = 64
Top = 64
Top = 93
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
@ -73,8 +56,8 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
Width = 281
end
object eCodigoPostal: TcxDBTextEdit
Left = 345
Top = 37
Left = 771
Top = 66
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
@ -92,8 +75,8 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
Width = 65
end
object eTlfTrabajo: TcxDBTextEdit
Left = 288
Top = 91
Left = 714
Top = 120
DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
@ -112,7 +95,7 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
end
object ePersonaContacto: TcxDBTextEdit
Left = 64
Top = 91
Top = 120
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsAlbaran
Style.BorderColor = clWindowFrame
@ -130,11 +113,33 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
TabOrder = 4
Width = 281
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
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Calle:'
Control = eCalle
ControlOptions.ShowBorder = False
@ -197,11 +202,9 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
end
end
object dsAlbaran: TDADataSource
Left = 8
Top = 8
Left = 96
end
object dsAlmacenes: TDADataSource
Left = 8
Top = 40
Left = 168
end
end

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

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

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

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

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

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

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

@ -329,7 +329,7 @@ end;
function TArticulosController.BuscarTodos: IBizArticulo;
begin
Result := FDataModule.GetItems;
Result := FDataModule.GetItems(txArticulo);
//LOS ARTICULOS PASAN A SER COMUNES PARA LAS EMPRESAS
// FiltrarEmpresa(Result);
@ -431,6 +431,10 @@ begin
if (AArticulo.DataTable.State in dsEditModes) then
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
raise Exception.Create('Debe indicar al menos la descripción de este artículo.');
@ -649,8 +653,6 @@ begin
end;
function TArticulosController.Guardar(AArticulo: IBizArticulo): Boolean;
var
NuevoID: Integer;
begin
Result := False;
@ -658,10 +660,22 @@ begin
begin
ShowHourglassCursor;
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;
Result := True;
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;
end;
end;

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

@ -1,7 +1,7 @@
inherited DataModuleArticulos: TDataModuleArticulos
OnCreate = DAClientDataModuleCreate
Height = 219
Width = 518
Height = 365
Width = 547
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
@ -274,4 +274,75 @@ inherited DataModuleArticulos: TDataModuleArticulos
Left = 400
Top = 32
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

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

@ -8,7 +8,8 @@ uses
uRORemoteService, uROClient, uROBinMessage,
uDADesigntimeCall,
uIDataModuleArticulos, uBizArticulos, uDataModuleBase, uDARemoteDataAdapter,
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable;
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable,
uBizArticulosProveedores;
type
TDataModuleArticulos = class(TDataModuleBase, IDataModuleArticulos)
@ -19,13 +20,17 @@ type
ds_Articulos: TDADataSource;
tbl_ArticulosParaCliente: TDAMemDataTable;
ds_ArticulosParaCliente: TDADataSource;
tbl_Articulos_Proveedores: TDAMemDataTable;
ds_Articulos_Proveedores: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
function _GetProveedores : IBizArticulosProveedores;
protected
procedure AsignarClaseNegocio(AArticulo: TDADataTable); virtual;
public
function GetItems : IBizArticulo; overload;
function GetItems (const Tipo: TEnumArticulos): IBizArticulo; overload;
function GetItems (IDCliente: Integer) : IBizArticulo; overload;
function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo;
function NewItem : IBizArticulo;
@ -57,6 +62,24 @@ begin
Result := GetItem(ID_NULO)
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;
var
Condicion: TDAWhereExpression;
@ -64,7 +87,7 @@ begin
ShowHourglassCursor;
try
if (AClienteID = -1) then
Result := Self.GetItems
Result := Self.GetItems(txArticulo)
else
Result := Self.GetItems(AClienteID);
@ -104,21 +127,31 @@ begin
end;
function TDataModuleArticulos.GetItems: IBizArticulo;
function TDataModuleArticulos.GetItems (const Tipo: TEnumArticulos): IBizArticulo;
var
AArticulo : TDAMemDataTable;
begin
ShowHourglassCursor;
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);
case Tipo of
txArticulo: TBizArticulo(AArticulo.BusinessEventsObj).Proveedores := _GetProveedores;
end;
Result := (AArticulo as IBizArticulo);
finally
HideHourglassCursor;
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>
<ProjectGuid>{e4f81792-84cf-4900-a6ab-18f6dd2c7ada}</ProjectGuid>
<MainSource>Articulos_model.dpk</MainSource>
@ -54,12 +55,21 @@
<DelphiCompile Include="Articulos_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<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="schArticulosServer_Intf.pas" />
<DCCReference Include="uBizArticulos.pas" />
<DCCReference Include="uBizArticulosProveedores.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

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

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

@ -9,13 +9,41 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Articulos = '{FCE45B58-C93D-4D11-B79C-5863414119A8}';
RID_ArticulosParaCliente = '{322AB9AB-809C-498B-9AF3-064681559994}';
RID_Articulos_Proveedores = '{C5780643-07B3-43DB-AE8D-87EB67D8EF76}';
RID_Articulos = '{23B9E2E3-C018-498B-9C15-F38523806F4B}';
RID_ArticulosParaCliente = '{20C78EE3-9096-485B-8636-E22AA92407CB}';
{ Data table names }
nme_Articulos_Proveedores = 'Articulos_Proveedores';
nme_Articulos = 'Articulos';
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 }
fld_ArticulosID = 'ID';
fld_ArticulosID_EMPRESA = 'ID_EMPRESA';
@ -107,9 +135,164 @@ const
idx_ArticulosParaClienteTARIFA = 19;
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 = interface(IDAStronglyTypedDataTable)
['{4F856619-6BFA-4796-847B-9A11D27924BB}']
['{6B2ED42E-1276-40FA-B43D-7DC0D9780E91}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -384,7 +567,7 @@ type
{ IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{E7E5C59D-B62B-4977-BC27-2152122F9007}']
['{80294455-447E-47D3-93A3-40F4627FE9DC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -649,6 +832,249 @@ implementation
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 }
constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable);
var
@ -1557,6 +1983,7 @@ end;
initialization
RegisterDataTableRules(RID_Articulos_Proveedores, TArticulos_ProveedoresDataTableRules);
RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules);

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

@ -9,13 +9,168 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ArticulosDelta = '{E937FC30-1124-40F5-8DD5-7F7A875BF0BD}';
RID_ArticulosParaClienteDelta = '{36B39661-C6E3-499D-8165-84207792A7CA}';
RID_Articulos_ProveedoresDelta = '{A704FC08-6C83-4283-8A72-04B5DEEA7A51}';
RID_ArticulosDelta = '{E0C64E85-E327-4040-9253-FB6BBE5EB266}';
RID_ArticulosParaClienteDelta = '{709BD8E4-082A-4C55-9FE0-545D263CAF3A}';
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 = interface(IArticulos)
['{E937FC30-1124-40F5-8DD5-7F7A875BF0BD}']
['{E0C64E85-E327-4040-9253-FB6BBE5EB266}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -290,7 +445,7 @@ type
{ IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{36B39661-C6E3-499D-8165-84207792A7CA}']
['{709BD8E4-082A-4C55-9FE0-545D263CAF3A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -556,6 +711,359 @@ implementation
uses
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 }
constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
@ -1876,6 +2384,7 @@ end;
initialization
RegisterBusinessProcessorRules(RID_Articulos_ProveedoresDelta, TArticulos_ProveedoresBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules);

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

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

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

@ -120,6 +120,113 @@ object srvArticulos: TsrvArticulos
DataDictionary = DataDictionary
Diagrams = Diagrams
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
Params = <>
Statements = <
@ -805,8 +912,187 @@ object srvArticulos: TsrvArticulos
ColumnMappings = <>
end>
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>
RelationShips = <>
UpdateRules = <
item
Name = 'Insert Articulos'
@ -815,6 +1101,20 @@ object srvArticulos: TsrvArticulos
DatasetName = 'Articulos'
FailureBehavior = fbRaiseException
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
Name = 'Update Articulos'
DoInsert = False
@ -822,6 +1122,13 @@ object srvArticulos: TsrvArticulos
DatasetName = 'Articulos'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete Articulos_Proveedores'
DoUpdate = False
DoInsert = False
DatasetName = 'Articulos_Proveedores'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete Articulos'
DoUpdate = False
@ -848,4 +1155,15 @@ object srvArticulos: TsrvArticulos
Left = 264
Top = 24
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

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

@ -24,6 +24,7 @@ type
Diagrams: TDADiagrams;
bpArticulos: TDABusinessProcessor;
Bin2DataStreamer: TDABin2DataStreamer;
bpArticulos_Proveedores: TDABusinessProcessor;
schArticulos: TDASchema;
DataDictionary: TDADataDictionary;
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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
<DCCReference Include="..\..\Lib\Articulos_model.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\Familias_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\SubFamilias_controller.dcp" />
<DCCReference Include="..\..\Lib\Tarifas_controller.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Articulos_controller.dcp" />
<DCCReference Include="Articulos_model.dcp" />
<DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.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="uEditorArticulo.pas">
<Form>fEditorArticulo</Form>
@ -87,6 +105,15 @@
<Form>frViewDetallesArticulos</Form>
<DesignClass>TFrame</DesignClass>
</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>
</Project>
<!-- EurekaLog First Line

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

@ -9,12 +9,13 @@ inherited fEditorArticulo: TfEditorArticulo
Scaled = False
OnClose = CustomEditorClose
ExplicitWidth = 632
ExplicitHeight = 514
ExplicitHeight = 518
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 624
Caption = 'Art'#237'culo'
ExplicitTop = 52
ExplicitWidth = 624
inherited Image1: TImage
Left = 597
@ -39,7 +40,7 @@ inherited fEditorArticulo: TfEditorArticulo
Width = 624
ExplicitWidth = 624
inherited tbxMain: TTBXToolbar
ExplicitWidth = 480
ExplicitWidth = 543
inherited TBXItem2: TTBXItem
Visible = False
end
@ -111,18 +112,49 @@ inherited fEditorArticulo: TfEditorArticulo
end
inherited pgPaginas: TPageControl
Width = 618
Height = 349
Height = 346
ActivePage = pagPrecios
ExplicitTop = 112
ExplicitWidth = 618
ExplicitHeight = 349
ExplicitHeight = 346
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
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
inherited PnlComentario: TPanel
Width = 624
ExplicitTop = 79
ExplicitWidth = 624
inherited lbComentario: TLabel
Width = 614

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

@ -13,7 +13,8 @@ uses
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
uViewArticulos, uIEditorArticulo, uArticulosController, JvExComCtrls,
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces;
JvStatusBar, dxLayoutLookAndFeels, uDAInterfaces, uViewDetallesGenerico,
uViewProveedoresArticulo;
type
TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo)
@ -24,6 +25,8 @@ type
TBXSeparatorItem6: TTBXSeparatorItem;
actSubFamilias: TAction;
TBXItem7: TTBXItem;
pagPrecios: TTabSheet;
frViewProveedoresArticulo1: TfrViewProveedoresArticulo;
procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -110,14 +113,20 @@ begin
dsDataTable.DataTable := FArticulo.DataTable;
if Assigned(FViewArticulo) and Assigned(Articulo) then
begin
FViewArticulo.Articulo := Articulo;
frViewProveedoresArticulo1.Articulo := Articulo;
end;
end;
procedure TfEditorArticulo.SetController(const Value: IArticulosController);
begin
FController := Value;
if Assigned(FController) then
begin
(ViewArticulo as IViewArticulo).Controller := (FController as IArticulosController);
frViewProveedoresArticulo1.Controller := (FController as IArticulosController);
end;
end;
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{98AF2F15-AC1C-4F59-991B-34089BDDC840}';
RID_Propiedades = '{0DB1A888-E1A8-4A65-AB62-3C7EFEAB8F69}';
RID_ListaAnosContratos = '{0E2B9164-2FB9-4B39-8FBC-6BE3D336B48C}';
RID_ContratosClienteBeneficios = '{5E784AF4-01EC-4DF6-8ADC-73278CAE3BF8}';
RID_ContratosCliente = '{EB63D7F9-FAFD-4229-82FB-2D186699CA34}';
RID_TiposCapitulos = '{67FCFC6C-9C96-4AC1-9F7A-DBEE94850F21}';
RID_ContratosCliente_Detalles = '{D725D49A-4F2C-4F00-8096-0D5F8B154ED0}';
RID_Valores = '{00950C9F-3C0E-4384-8F5F-8D5B986FFD3C}';
RID_Propiedades = '{FD2B8573-731E-425A-AFCD-43695556F4F9}';
RID_ListaAnosContratos = '{D12AE8AC-742F-4849-8CDB-1DFBDF17CB3E}';
RID_ContratosClienteBeneficios = '{BFD9857D-FFF0-4664-8ABF-742B1783C4F5}';
RID_ContratosCliente = '{B04C1A81-6448-4F1C-94BF-3799E0433F6D}';
RID_TiposCapitulos = '{1928D386-F965-4F72-9277-50CBFEF81572}';
RID_ContratosCliente_Detalles = '{3FC0F387-A276-49DC-85A1-7970110566CE}';
{ Data table names }
nme_Valores = 'Valores';
@ -261,7 +261,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{CAC51712-8DE1-46A2-AA4D-4AF8BB9C0CBD}']
['{5D9011E6-D896-4A0E-A54D-4EEBBDCDCB2D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -320,7 +320,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{F3CF2F1F-2B05-40E6-B2FF-68123C0565E4}']
['{67303838-FB10-4B4D-93AC-7AE3E8DFF959}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -379,7 +379,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{2DB80898-DEE3-4EA1-9BAA-04A1CBD9CB04}']
['{C04F03C6-E41E-406B-BCC7-21F80327A0CE}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -414,7 +414,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{6AC20789-FF7D-4A25-803D-2AD9D912D314}']
['{310BF2BD-F3AB-49EB-B1AD-95EB739E4084}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -617,7 +617,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{9AD248D1-FF4C-4511-AEA7-8FD929DCC8B4}']
['{17F07CFD-CE56-41C1-ABA3-84A2003212C5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1327,7 +1327,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{66A7A333-E4FE-45F5-81DB-5DDEA7E959D2}']
['{92B0A9C9-D2F7-45F7-888B-FEB043E3FB23}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1422,7 +1422,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{BD95350A-17BA-4064-B69D-71BD4D5EE1A2}']
['{C7692BDF-2B09-4581-A624-AD101BAF3417}']
{ Property getters and setters }
function GetIDValue: 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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{DF9F3249-76D6-47EB-8059-2FB7B3D10819}';
RID_PropiedadesDelta = '{A8C14BD7-96F7-4FC7-989D-D32E96E5BF48}';
RID_ListaAnosContratosDelta = '{2F375EE3-7643-43E8-8802-1791D5CE327E}';
RID_ContratosClienteBeneficiosDelta = '{54524D5A-69D5-4BFB-B1B3-7B9EB30EF864}';
RID_ContratosClienteDelta = '{3334F1BC-133A-4AAC-B21F-36EA02ABBB1B}';
RID_TiposCapitulosDelta = '{9DA01C84-68F5-4229-A448-1FE4ADE133CD}';
RID_ContratosCliente_DetallesDelta = '{F6F1854C-A1B7-4012-B2AC-BC1674E0C469}';
RID_ValoresDelta = '{A722C059-2F12-41F9-A113-93534ABBC807}';
RID_PropiedadesDelta = '{68873676-2EA3-47C8-B322-707CD8A8B7D3}';
RID_ListaAnosContratosDelta = '{A56B54B6-30F0-4BA4-927A-8C6E54F746CA}';
RID_ContratosClienteBeneficiosDelta = '{21A88120-1D73-4516-8DDB-C7075C1FFD8D}';
RID_ContratosClienteDelta = '{124CFEA1-C11A-4838-93D3-83F30385BD57}';
RID_TiposCapitulosDelta = '{8A04F5B4-9934-4228-B499-05697F987ED3}';
RID_ContratosCliente_DetallesDelta = '{5C443914-A231-4D30-840D-BA25D9E47768}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{DF9F3249-76D6-47EB-8059-2FB7B3D10819}']
['{A722C059-2F12-41F9-A113-93534ABBC807}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{A8C14BD7-96F7-4FC7-989D-D32E96E5BF48}']
['{68873676-2EA3-47C8-B322-707CD8A8B7D3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{2F375EE3-7643-43E8-8802-1791D5CE327E}']
['{A56B54B6-30F0-4BA4-927A-8C6E54F746CA}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{54524D5A-69D5-4BFB-B1B3-7B9EB30EF864}']
['{21A88120-1D73-4516-8DDB-C7075C1FFD8D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{3334F1BC-133A-4AAC-B21F-36EA02ABBB1B}']
['{124CFEA1-C11A-4838-93D3-83F30385BD57}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -1082,7 +1082,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{9DA01C84-68F5-4229-A448-1FE4ADE133CD}']
['{8A04F5B4-9934-4228-B499-05697F987ED3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -1176,7 +1176,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{F6F1854C-A1B7-4012-B2AC-BC1674E0C469}']
['{5C443914-A231-4D30-840D-BA25D9E47768}']
{ Property getters and setters }
function GetOldIDValue : 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.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 44175.744154942130000000
ReportOptions.LastChange = 44182.457662893520000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False
@ -1094,6 +1094,45 @@ object RptContratosCliente: TRptContratosCliente
Name = 'VENDEDOR'
DataType = datString
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>
Params = <
item

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

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

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

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

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

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

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

@ -1,21 +1,22 @@
inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
Width = 906
Height = 551
Height = 350
ExplicitWidth = 906
ExplicitHeight = 551
ExplicitHeight = 350
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 906
Height = 551
Height = 350
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 638
DesignSize = (
906
551)
350)
object rdxDestino1: TRadioButton
Left = 10
Top = 10
@ -24,6 +25,7 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
Action = actLista
Enabled = False
TabOrder = 0
TabStop = True
end
object rdxDestino2: TRadioButton
Left = 10
@ -66,7 +68,7 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
end
object bModificar: TBitBtn
Left = 716
Top = 516
Top = 241
Width = 180
Height = 25
Caption = 'Modificar la direcci'#243'n...'
@ -76,8 +78,8 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
object txtDireccion: TStaticText
Left = 25
Top = 133
Width = 551
Height = 177
Width = 871
Height = 200
AutoSize = False
BevelKind = bkFlat
TabOrder = 5
@ -89,9 +91,7 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
Width = 566
Height = 17
Action = actListaCliente
Checked = True
TabOrder = 2
TabStop = True
end
object cbListaDireccionesCliente: TcxDBLookupComboBox
Left = 25
@ -133,6 +133,28 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
TabOrder = 3
Width = 551
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
ShowCaption = False
Hidden = True
@ -192,6 +214,12 @@ inherited frViewDireccionEntregaContratoCli: TfrViewDireccionEntregaContratoCli
Control = bModificar
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Notas env'#237'o:'
CaptionOptions.Layout = clTop
Control = notasEnvio
ControlOptions.ShowBorder = False
end
end
end
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,
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
ActnList, uContratosClienteController, Buttons, uDAInterfaces, uClientesController,
uDireccionesContactoController, uBizContactosDirecciones;
uDireccionesContactoController, uBizContactosDirecciones, cxDBEdit;
// uBizAlmacenes, uAlmacenesController;
type
@ -45,6 +45,8 @@ type
cbListaDireccionesCliente: TcxDBLookupComboBox;
dsDireccionesCliente: TDADataSource;
actListaCliente: TAction;
dxLayoutControl1Item7: TdxLayoutItem;
notasEnvio: TcxDBMemo;
procedure actListaExecute(Sender: TObject);
procedure actOtroExecute(Sender: TObject);
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
begin
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.PROVINCIA_ENVIO := FDireccionesCliente.PROVINCIA;
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>
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.GroupBySorting = True
OptionsView.GroupRowStyle = grsOffice11
object cxGridViewID_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'ID_ALMACEN'
Visible = False
@ -37,7 +36,6 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
object cxGridViewTIPO_MOVIMIENTO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_MOVIMIENTO'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = PngImageList10
Properties.Items = <
item
Description = 'Entrada'
@ -92,14 +90,26 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
@ -112,31 +122,7 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
BuiltInReportLink = True
end
end
inherited cxStyleRepository1: TcxStyleRepository
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
inherited GridPNGImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
@ -343,6 +329,24 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
end>
Bitmap = {}
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
PngImages = <
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
Name = 'ID_ALMACEN'
DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_ALMACEN'
DictionaryEntry = 'Inventario_ID_ALMACEN'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_ARTICULO'
DictionaryEntry = 'Inventario_ID_ARTICULO'
end
item
Name = 'ALMACEN'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_ALMACEN'
DictionaryEntry = 'Inventario_ALMACEN'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID_EMPRESA'
DictionaryEntry = 'Inventario_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'INVENTARIO_REFERENCIA'
DictionaryEntry = 'INVENTARIO_REFERENCIA'
DictionaryEntry = 'Inventario_REFERENCIA'
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_FAMILIA'
DictionaryEntry = 'Inventario_FAMILIA'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_DESCRIPCION'
DictionaryEntry = 'Inventario_DESCRIPCION'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_REFERENCIA_PROVEEDOR'
DictionaryEntry = 'Inventario_REFERENCIA_PROVEEDOR'
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
DisplayLabel = 'Precio unidad'
Alignment = taRightJustify
DictionaryEntry = 'INVENTARIO_PRECIO_NETO'
DictionaryEntry = 'Inventario_PRECIO_NETO'
end
item
Name = 'STOCK'
DataType = datLargeInt
DataType = datFloat
DisplayLabel = 'Stock disponible'
DictionaryEntry = 'INVENTARIO_STOCK'
DictionaryEntry = 'Inventario_STOCK'
end
item
Name = 'UNIDADES_ALMACEN'
DataType = datLargeInt
DisplayLabel = 'U. Almac'#195#169'n'
DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
DataType = datFloat
DisplayLabel = 'U. Almac'#233'n'
DictionaryEntry = 'Inventario_UNIDADES_ALMACEN'
end
item
Name = 'COSTE_UNIDADES'
DataType = datCurrency
DisplayLabel = 'Coste unidades'
Alignment = taRightJustify
DictionaryEntry = 'INVENTARIO_COSTE_UNIDADES'
DictionaryEntry = 'Inventario_COSTE_UNIDADES'
end
item
Name = 'RESERVA'
DataType = datLargeInt
DataType = datFloat
DisplayLabel = 'Reservado'
DictionaryEntry = 'INVENTARIO_RESERVA'
DictionaryEntry = 'Inventario_RESERVA'
end
item
Name = 'PENDIENTE_RECEPCION'
DataType = datLargeInt
DataType = datFloat
DisplayLabel = 'Pendiente de recibir'
DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
DictionaryEntry = 'Inventario_PENDIENTE_RECEPCION'
end
item
Name = 'ID'
DataType = datInteger
LogChanges = False
DisplayLabel = 'INVENTARIO_ID'
DictionaryEntry = 'INVENTARIO_ID'
DictionaryEntry = 'Inventario_ID'
InPrimaryKey = True
Calculated = True
end
item
Name = 'CANTIDAD'
DataType = datInteger
DataType = datFloat
DisplayLabel = 'INVENTARIO_CANTIDAD'
DictionaryEntry = 'INVENTARIO_CANTIDAD'
DictionaryEntry = 'Inventario_CANTIDAD'
end
item
Name = 'FECHA_MOVIMIENTO'
DataType = datDateTime
DisplayLabel = 'INVENTARIO_FECHA_MOVIMIENTO'
DictionaryEntry = 'INVENTARIO_FECHA_MOVIMIENTO'
DictionaryEntry = 'Inventario_FECHA_MOVIMIENTO'
end
item
Name = 'CAUSA'
DataType = datString
Size = 255
Size = 1
DisplayLabel = 'INVENTARIO_CAUSA'
DictionaryEntry = 'INVENTARIO_CAUSA'
DictionaryEntry = 'Inventario_CAUSA'
end
item
Name = 'TIPO'
DataType = datString
Size = 1
DisplayLabel = 'INVENTARIO_TIPO'
DictionaryEntry = 'INVENTARIO_TIPO'
DictionaryEntry = 'Inventario_TIPO'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -48,7 +48,6 @@ inherited frViewInventario: TfrViewInventario
end>
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.GroupBySorting = True
OptionsView.GroupRowStyle = grsOffice11
object cxGridViewID_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'ID_ALMACEN'
Visible = False
@ -147,14 +146,26 @@ inherited frViewInventario: TfrViewInventario
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
@ -167,13 +178,12 @@ inherited frViewInventario: TfrViewInventario
BuiltInReportLink = True
end
end
inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleEven: TcxStyle
AssignedValues = [svFont]
end
inherited cxStyleOdd: TcxStyle
inherited cxStyleRepositoryInforme: TcxStyleRepository
inherited cxStyleContentInforme: TcxStyle
AssignedValues = [svColor, svFont]
end
end
inherited cxStyleRepository1: TcxStyleRepository
inherited cxStyleSelection: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="Almacenes_model.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="PedidosProveedor_controller.dcp" />
<DCCReference Include="PedidosProveedor_model.dcp" />
<DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\Almacenes_model.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\PedidosProveedor_model.dcp" />
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
<Form>fEditorDireccionEntregaPedidoProveedor </Form>
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>

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

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

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

@ -166,15 +166,27 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Width = 596
ExplicitWidth = 596
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 251
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 251
ExplicitWidth = 294
Width = 294
@ -220,19 +232,6 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
BuiltInReportLink = True
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
Left = 288
end
@ -250,10 +249,23 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
OnUpdate = actAlmacenUpdate
end
end
inherited PngImageList10: TPngImageList
inherited GridPNGImageList: TPngImageList
Left = 360
Top = 440
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
PngImages = <
item

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

@ -12,7 +12,8 @@ uses
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
cxGrid,
uBizPedidosProveedor, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList,
TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces,
uCustomView, uViewBase;
type
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.PERSONA_CONTACTO := AContrato.PERS_CONTACTO_ENVIO;
AAlbaran.TELEFONO := AContrato.TLFS_ENVIO;
AAlbaran.NOTAS_ENVIO := AContrato.NOTAS_ENVIO;
AAlbaran.MOVIL := AContrato.MOVIL;
AAlbaran.IMPORTE_NETO := AContrato.IMPORTE_NETO;
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},
schTarifasClient_Intf in '..\Modulos\Tarifas\Model\schTarifasClient_Intf.pas',
schTarifasServer_Intf in '..\Modulos\Tarifas\Model\schTarifasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_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',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

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

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.