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

Tarea #1198 -> Poder decidir si sale o no en el informe una linea detalle (VISIBLE)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@69 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
David Arranz 2013-05-30 14:11:35 +00:00
parent 1e00b7e1b0
commit 320ee8860f
85 changed files with 1623 additions and 636 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Database/scripts/factuges.sql
View File

@ -490,6 +490,7 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO, VISIBLE TIPO_BOOLEANO,
VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP FECHA_MODIFICACION TIMESTAMP
); );
@ -544,6 +545,7 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO, VISIBLE TIPO_BOOLEANO,
VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP FECHA_MODIFICACION TIMESTAMP
); );
@ -938,6 +940,7 @@ CREATE TABLE FACTURAS_CLIENTE_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO, VISIBLE TIPO_BOOLEANO,
VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP FECHA_MODIFICACION TIMESTAMP
); );
@ -993,6 +996,7 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO, VISIBLE TIPO_BOOLEANO,
VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP FECHA_MODIFICACION TIMESTAMP
); );
@ -1133,6 +1137,7 @@ CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO, VISIBLE TIPO_BOOLEANO,
VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP FECHA_MODIFICACION TIMESTAMP
); );
@ -1185,6 +1190,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO, VISIBLE TIPO_BOOLEANO,
VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP FECHA_MODIFICACION TIMESTAMP
); );
@ -1287,6 +1293,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO, VISIBLE TIPO_BOOLEANO,
VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP FECHA_MODIFICACION TIMESTAMP
); );
@ -1350,6 +1357,7 @@ CREATE TABLE CONTRATOS_CLIENTE_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO, VISIBLE TIPO_BOOLEANO,
VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP FECHA_MODIFICACION TIMESTAMP
); );

BIN
Resources/Iconos/Generales/16x16/Valorado.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.6 KiB

96
Source/Base/Base.dproj
View File

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

BIN
Source/Base/Base.res
View File

Binary file not shown.

92
Source/Base/Controladores/uControllerDetallesBase.pas
View File

@ -37,6 +37,9 @@ type
function DarListaTiposDetalle: TStringList; function DarListaTiposDetalle: TStringList;
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable; const AVisible: Integer; const Orden: Integer); // 1 Ascendente / 0 Descendente
procedure SetValorado(ADetalles: IDAStronglyTypedDataTable; const AValorado: Integer; const Orden: Integer); // 1 Ascendente / 0 Descendente
end; end;
TControllerDetallesBase = class (TSujeto, IControllerDetallesBase) TControllerDetallesBase = class (TSujeto, IControllerDetallesBase)
@ -95,6 +98,10 @@ type
// Comprueba que todos los detalles del documento tengan un tipo_detalle asignado, // Comprueba que todos los detalles del documento tengan un tipo_detalle asignado,
// además de que los capitulos tengan su subtotal de cierre // además de que los capitulos tengan su subtotal de cierre
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); virtual; procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); virtual;
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable; const AVisible: Integer; const Orden: Integer); virtual; // 1 Ascendente / 0 Descendente
procedure SetValorado(ADetalles: IDAStronglyTypedDataTable; const AValorado: Integer; const Orden: Integer); virtual; // 1 Ascendente / 0 Descendente
end; end;
@ -119,13 +126,14 @@ procedure TControllerDetallesBase.Add(ADataTable: IDAStronglyTypedDataTable; Tip
var var
AuxNumOrden : Integer; AuxNumOrden : Integer;
AuxVisible : Variant; AuxVisible : Variant;
AuxValorado : Variant;
begin begin
BeginUpdate(ADataTable); BeginUpdate(ADataTable);
try try
with ADataTable do with ADataTable do
begin begin
AuxVisible := DataTable.FieldByName(CAMPO_VISIBLE).AsVariant; AuxVisible := DataTable.FieldByName(CAMPO_VISIBLE).AsVariant;
AuxValorado := DataTable.FieldByName(CAMPO_VALORADO).AsVariant;
AuxNumOrden := desplazarNPosiciones(DataTable, DataTable.FieldByName(CAMPO_POSICION).AsVariant, 1); AuxNumOrden := desplazarNPosiciones(DataTable, DataTable.FieldByName(CAMPO_POSICION).AsVariant, 1);
DataTable.Insert; DataTable.Insert;
@ -133,6 +141,8 @@ begin
DataTable.FieldByName(CAMPO_TIPO).AsVariant := TipoConcepto; DataTable.FieldByName(CAMPO_TIPO).AsVariant := TipoConcepto;
if not VarIsNull(AuxVisible) then if not VarIsNull(AuxVisible) then
DataTable.FieldByName(CAMPO_VISIBLE).AsInteger := AuxVisible; DataTable.FieldByName(CAMPO_VISIBLE).AsInteger := AuxVisible;
if not VarIsNull(AuxValorado) then
DataTable.FieldByName(CAMPO_VALORADO).AsInteger := AuxValorado;
DataTable.post; DataTable.post;
end; end;
finally finally
@ -227,7 +237,7 @@ begin
begin begin
if Modificar then if Modificar then
TratamientoDetalleConcepto(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos TratamientoDetalleConcepto(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos
if DataTable.FieldByName(CAMPO_VISIBLE).AsBoolean then //Se usa para saber si el concepto se sumará o no como un concepto más del presupuesto if DataTable.FieldByName(CAMPO_VALORADO).AsBoolean then //Se usa para saber si el concepto se sumará o no como un concepto más del presupuesto
CalculoDetalleConcepto(DataTable, AuxImporteAcumulado, AuxImporteTotal, SemaforoOpcional); //Se podrá sobreescribir para posibles nuevos calculos de los hijos CalculoDetalleConcepto(DataTable, AuxImporteAcumulado, AuxImporteTotal, SemaforoOpcional); //Se podrá sobreescribir para posibles nuevos calculos de los hijos
end end
//HIJOS //HIJOS
@ -598,6 +608,84 @@ begin
end; end;
end; end;
procedure TControllerDetallesBase.SetValorado(
ADetalles: IDAStronglyTypedDataTable; const AValorado, Orden: Integer);
var
ABookmark : TBookmark;
AuxPosicion: Integer;
AuxEncontrado: Boolean;
begin
AuxPosicion := ADetalles.DataTable.FieldByName(CAMPO_POSICION).AsInteger;
ABookmark := ADetalles.DataTable.GetBookMark;
try
ADetalles.DataTable.DisableControls;
repeat
if (Orden > 0) then
Inc(AuxPosicion)
else
Dec(AuxPosicion);
ADetalles.First;
AuxEncontrado := ADetalles.Locate(CAMPO_POSICION, AuxPosicion, []);
if AuxEncontrado then
begin
ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(CAMPO_VALORADO).AsInteger := AValorado;
ADetalles.DataTable.Post;
end;
until (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL)
or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO)
or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO_OPCIONAL)
or (AuxEncontrado = False)
finally
ADetalles.DataTable.GotoBookmark(ABookmark);
ADetalles.DataTable.FreeBookmark(ABookmark);
ADetalles.DataTable.EnableControls;
end;
end;
procedure TControllerDetallesBase.SetVisible(
ADetalles: IDAStronglyTypedDataTable; const AVisible, Orden: Integer);
var
ABookmark : TBookmark;
AuxPosicion: Integer;
AuxEncontrado: Boolean;
begin
AuxPosicion := ADetalles.DataTable.FieldByName(CAMPO_POSICION).AsInteger;
ABookmark := ADetalles.DataTable.GetBookMark;
try
ADetalles.DataTable.DisableControls;
repeat
if (Orden > 0) then
Inc(AuxPosicion)
else
Dec(AuxPosicion);
ADetalles.First;
AuxEncontrado := ADetalles.Locate(CAMPO_POSICION, AuxPosicion, []);
if AuxEncontrado then
begin
ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(CAMPO_VISIBLE).AsInteger := AVisible;
ADetalles.DataTable.Post;
end;
until (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL)
or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO)
or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO_OPCIONAL)
or (AuxEncontrado = False)
finally
ADetalles.DataTable.GotoBookmark(ABookmark);
ADetalles.DataTable.FreeBookmark(ABookmark);
ADetalles.DataTable.EnableControls;
end;
end;
procedure TControllerDetallesBase.TratamientoDetalleConcepto(DataTable: TDADataTable); procedure TControllerDetallesBase.TratamientoDetalleConcepto(DataTable: TDADataTable);
begin begin
with DataTable do with DataTable do

3
Source/Base/Utiles/uCalculosUtils.pas
View File

@ -16,7 +16,8 @@ const
CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL'; CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL';
CAMPO_DESCUENTO = 'DESCUENTO'; CAMPO_DESCUENTO = 'DESCUENTO';
CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE'; CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE';
CAMPO_VISIBLE = 'VISIBLE'; //Se usará para saber si un concepto se debe sumar o no CAMPO_VISIBLE = 'VISIBLE';
CAMPO_VALORADO = 'VALORADO';
function CalcularLineaConcepto (const ADataTable : TDADataTable): Double; function CalcularLineaConcepto (const ADataTable : TDADataTable): Double;
procedure ValidarCamposLineaConcepto(DataTable: TDADataTable); procedure ValidarCamposLineaConcepto(DataTable: TDADataTable);

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

53
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -221,7 +221,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.Items = <> Properties.Items = <>
BestFitMaxWidth = 64 BestFitMaxWidth = 35
Width = 35 Width = 35
end end
object cxGridViewDESCRIPCION: TcxGridDBColumn object cxGridViewDESCRIPCION: TcxGridDBColumn
@ -267,6 +267,55 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Properties.Alignment = taCenter Properties.Alignment = taCenter
Properties.DisplayChecked = '1' Properties.DisplayChecked = '1'
Properties.DisplayUnchecked = '0' Properties.DisplayUnchecked = '0'
Properties.Glyph.Data = {
92030000424D9203000000000000920100002800000020000000100000000100
08000000000000020000120B0000120B0000570000005700000000000000FFFF
FF0040384000703840008048500090586000C0606000A0505000804040006030
30009050500070404000A060600090606000A0707000B0808000C09090004030
3000E0B0B000B0909000FFF0F000FF787000E0787000C0686000FF9890009048
4000A0585000D0888000E0989000E0706000FF80700080484000A0686000FFA0
9000FF887000B060500070484000FFB0A000C0989000D0A8A000E0B8B000FF98
8000A0605000FFC0B000F0C0B00080686000F0D8D000B0908000E0C8B000E0D8
D000FFE0C000FFF8F000F0E0C000FFF0D000FFF8E00020283000FEFEFE00FAFA
FA00F7F7F700F3F3F300F1F1F100F0F0F000EDEDED00EAEAEA00E7E7E700E6E6
E600E3E3E300E0E0E000DADADA00D7D7D700D3D3D300D0D0D000CDCDCD00C9C9
C900C6C6C600C4C4C400C3C3C300C0C0C000BEBEBE00BCBCBC00B9B9B900B7B7
B700B3B3B300AEAEAE00ACACAC00A6A6A600FFFFFF0056565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
5656565656565656565656565656565656565656565656565656404040444C4C
463D5656565656565656122830262D2D2F325656565644444444433E4145474A
50463B404456101010102734181D061A242F35122656564646443A3F434A544C
49493A3C4646560F0F10362C1507110A2320362E0F0F56564845394341535554
44473944484856560E13331C21023711161714260E0E5656564A3E403E38544A
4344464B4B565656560D31122B01111A1E1B0F050556565656564E49423F4343
434A4E4E565656565656040C2925221E1E2A04045656565656565650504F4D4F
50505056565656565656560B0B1F19080B0B0B56565656565656565652505151
505656565656565656565656090B03030B565656565656565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
5656565656565656565656565656565656565656565656565656565656565656
56565656565656565656565656565656565656565656}
Properties.GlyphCount = 2
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Visible = False
BestFitMaxWidth = 25
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 25
end
object cxGridViewVALORADO: TcxGridDBColumn
Caption = #191'Valorado?'
DataBinding.FieldName = 'VALORADO'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.Alignment = taCenter
Properties.DisplayChecked = '1'
Properties.DisplayUnchecked = '0'
Properties.Glyph.Data = { Properties.Glyph.Data = {
36060000424D3606000000000000360000002800000020000000100000000100 36060000424D3606000000000000360000002800000020000000100000000100
18000000000000060000120B0000120B00000000000000000000FFFFFFFFFFFF 18000000000000060000120B0000120B00000000000000000000FFFFFFFFFFFF
@ -324,8 +373,10 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Properties.ValueChecked = 1 Properties.ValueChecked = 1
Properties.ValueUnchecked = 0 Properties.ValueUnchecked = 0
Visible = False Visible = False
BestFitMaxWidth = 25
FooterAlignmentHorz = taCenter FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 25 Width = 25
end end
end end

58
Source/GUIBase/uViewDetallesBase.pas
View File

@ -108,6 +108,7 @@ type
TBXItem13: TTBXItem; TBXItem13: TTBXItem;
cxStyle_DESCUENTO: TcxStyle; cxStyle_DESCUENTO: TcxStyle;
cxStyleDesactivado: TcxStyle; cxStyleDesactivado: TcxStyle;
cxGridViewVALORADO: TcxGridDBColumn;
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
@ -125,6 +126,7 @@ type
procedure FontEdit1BeforeExecute(Sender: TObject); procedure FontEdit1BeforeExecute(Sender: TObject);
procedure FontEdit1Accept(Sender: TObject); procedure FontEdit1Accept(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure FontSizeChange(Sender: TObject); procedure FontSizeChange(Sender: TObject);
@ -161,6 +163,8 @@ type
function darListaSeleccionados: TIntegerArray; function darListaSeleccionados: TIntegerArray;
procedure TratamientoTeclas(Key: Word; Shift: TShiftState; AItem: TcxCustomGridTableItem = nil); procedure TratamientoTeclas(Key: Word; Shift: TShiftState; AItem: TcxCustomGridTableItem = nil);
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure OnVALORADOPropertiesEditValueChanged(Sender: TObject);
protected protected
function HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean; virtual; function HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean; virtual;
function EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; virtual; function EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; virtual;
@ -348,6 +352,16 @@ procedure TfrViewDetallesBase.CustomViewDestroy(Sender: TObject);
begin begin
inherited; inherited;
CurEdit := Nil; CurEdit := Nil;
cxGridViewVALORADO.Properties.OnEditValueChanged := NIL;
cxGridViewVISIBLE.Properties.OnEditValueChanged := NIL;
end;
procedure TfrViewDetallesBase.CustomViewShow(Sender: TObject);
begin
inherited;
cxGridViewVALORADO.Properties.OnEditValueChanged := OnVALORADOPropertiesEditValueChanged;
cxGridViewVISIBLE.Properties.OnEditValueChanged := OnVISIBLEPropertiesEditValueChanged;
end; end;
procedure TfrViewDetallesBase.cxGridViewEditing(Sender: TcxCustomGridTableView; procedure TfrViewDetallesBase.cxGridViewEditing(Sender: TcxCustomGridTableView;
@ -819,4 +833,48 @@ begin
end; end;
end; end;
procedure TfrViewDetallesBase.OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
var
Orden: Integer;
begin
inherited;
Orden := 1;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO_OPCIONAL)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
begin
cxGridView.BeginUpdate;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
Orden := 0;
Controller.SetVisible(Detalles, cxGridView.DataController.GetItemByFieldName(CAMPO_VISIBLE).EditValue, Orden);
cxGridView.EndUpdate;
end;
end;
procedure TfrViewDetallesBase.OnVALORADOPropertiesEditValueChanged(
Sender: TObject);
var
Orden: Integer;
begin
inherited;
Orden := 1;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO_OPCIONAL)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
begin
cxGridView.BeginUpdate;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
Orden := 0;
Controller.SetValorado(Detalles, cxGridView.DataController.GetItemByFieldName(CAMPO_VALORADO).EditValue, Orden);
cxGridView.EndUpdate;
end;
Controller.ActualizarTotales(Detalles);
end;
end. end.

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

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/2/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

2
Source/Informes/2/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/2/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/3/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

2
Source/Informes/3/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/3/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

2
Source/Informes/4/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/4/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -398,8 +398,15 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datInteger DataType = datInteger
DisplayLabel = #191'Visible?'
DictionaryEntry = 'AlbaranesCliente_Detalles_VISIBLE' DictionaryEntry = 'AlbaranesCliente_Detalles_VISIBLE'
end end
item
Name = 'VALORADO'
DataType = datSmallInt
DisplayLabel = #191'Valorado?'
DictionaryEntry = 'AlbaranesCliente_Detalles_VALORADO'
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger

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

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{B52C00C6-FE82-4F51-81FA-B4FF1B82A203}'; RID_ListaAnosAlbaranes = '{DB65F866-8E50-42B2-827F-521E6CFD9736}';
RID_AlbaranesCliente = '{34BC09FF-5B71-4550-8CB0-1DA569B133D7}'; RID_AlbaranesCliente = '{2F713114-4AE3-47F8-815B-6ED7EC03D5B4}';
RID_AlbaranesCliente_Detalles = '{86D6C469-278B-4655-A28C-3359D8812BB1}'; RID_AlbaranesCliente_Detalles = '{42ABF8C9-71ED-4ECD-8C0C-E8E0D332B5DD}';
{ Data table names } { Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -128,6 +128,7 @@ const
fld_AlbaranesCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_AlbaranesCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_AlbaranesCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_AlbaranesCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_AlbaranesCliente_DetallesVISIBLE = 'VISIBLE'; fld_AlbaranesCliente_DetallesVISIBLE = 'VISIBLE';
fld_AlbaranesCliente_DetallesVALORADO = 'VALORADO';
fld_AlbaranesCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_AlbaranesCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_AlbaranesCliente_DetallesREFERENCIA = 'REFERENCIA'; fld_AlbaranesCliente_DetallesREFERENCIA = 'REFERENCIA';
fld_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; fld_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
@ -144,14 +145,15 @@ const
idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 8; idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 8;
idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 9; idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 9;
idx_AlbaranesCliente_DetallesVISIBLE = 10; idx_AlbaranesCliente_DetallesVISIBLE = 10;
idx_AlbaranesCliente_DetallesID_ARTICULO = 11; idx_AlbaranesCliente_DetallesVALORADO = 11;
idx_AlbaranesCliente_DetallesREFERENCIA = 12; idx_AlbaranesCliente_DetallesID_ARTICULO = 12;
idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 13; idx_AlbaranesCliente_DetallesREFERENCIA = 13;
idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 14;
type type
{ IListaAnosAlbaranes } { IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{88848224-91B5-41B0-A2FC-54BCF8BF5AE8}'] ['{ABC86BBD-9620-4CC8-A034-528DED051BE9}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -186,7 +188,7 @@ type
{ IAlbaranesCliente } { IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable) IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{DFD09690-9B1D-4BE5-9101-46589DF1E88E}'] ['{E435B394-38E9-4AC4-A4D4-E1DC178C1FB4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -737,7 +739,7 @@ type
{ IAlbaranesCliente_Detalles } { IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{B45193BD-105D-44E3-AF4D-BB43F4A1D1CA}'] ['{D2940820-F9DD-42ED-ABF8-B5DF56546C12}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -783,6 +785,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer); procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean; function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean); procedure SetVISIBLEIsNull(const aValue: Boolean);
function GetVALORADOValue: SmallInt;
procedure SetVALORADOValue(const aValue: SmallInt);
function GetVALORADOIsNull: Boolean;
procedure SetVALORADOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean; function GetID_ARTICULOIsNull: Boolean;
@ -820,6 +826,8 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@ -877,6 +885,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer); virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
function GetVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
@ -913,6 +925,8 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@ -2153,6 +2167,27 @@ begin
DataTable.Fields[idx_AlbaranesCliente_DetallesVISIBLE].AsVariant := Null; DataTable.Fields[idx_AlbaranesCliente_DetallesVISIBLE].AsVariant := Null;
end; end;
function TAlbaranesCliente_DetallesDataTableRules.GetVALORADOValue: SmallInt;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesVALORADO].AsSmallInt;
end;
procedure TAlbaranesCliente_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_AlbaranesCliente_DetallesVALORADO].AsSmallInt := aValue;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetVALORADOIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesVALORADO].IsNull;
end;
procedure TAlbaranesCliente_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesCliente_DetallesVALORADO].AsVariant := Null;
end;
function TAlbaranesCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer; function TAlbaranesCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO].AsInteger; result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO].AsInteger;

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

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{D19A666D-8DA1-4DA3-9C5E-70934F26B596}'; RID_ListaAnosAlbaranesDelta = '{0602292C-AA68-424A-991B-04CE60D0A195}';
RID_AlbaranesClienteDelta = '{EC9EB4AE-4745-4CE3-83EB-C57CAA4CCFCD}'; RID_AlbaranesClienteDelta = '{74B6E7D9-BE60-45A7-B8FA-4865D7EE369D}';
RID_AlbaranesCliente_DetallesDelta = '{0B383F46-915A-4744-915D-0986E32003B3}'; RID_AlbaranesCliente_DetallesDelta = '{DCFA7477-810D-466A-9C22-B70882CA6F4B}';
type type
{ IListaAnosAlbaranesDelta } { IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{D19A666D-8DA1-4DA3-9C5E-70934F26B596}'] ['{0602292C-AA68-424A-991B-04CE60D0A195}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta } { IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente) IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{EC9EB4AE-4745-4CE3-83EB-C57CAA4CCFCD}'] ['{74B6E7D9-BE60-45A7-B8FA-4865D7EE369D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -602,7 +602,7 @@ type
{ IAlbaranesCliente_DetallesDelta } { IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{0B383F46-915A-4744-915D-0986E32003B3}'] ['{DCFA7477-810D-466A-9C22-B70882CA6F4B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -615,6 +615,7 @@ type
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : Integer; function GetOldVISIBLEValue : Integer;
function GetOldVALORADOValue : SmallInt;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldREFERENCIA_PROVEEDORValue : String;
@ -631,6 +632,7 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue; property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
@ -707,6 +709,12 @@ type
function GetOldVISIBLEIsNull: Boolean; virtual; function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
function GetVALORADOIsNull: Boolean; virtual;
function GetOldVALORADOValue: SmallInt; virtual;
function GetOldVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOValue: Integer; virtual;
@ -771,6 +779,10 @@ type
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue; property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
@ -2580,6 +2592,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVISIBLE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVISIBLE] := Null;
end; end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVALORADO];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVALORADO]);
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesVALORADO];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesVALORADO]);
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVALORADO] := aValue;
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVALORADO] := Null;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO];

1
Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas
View File

@ -41,6 +41,7 @@ procedure TBizDetallesAlbaranCliente.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
VISIBLE := 1; VISIBLE := 1;
VALORADO := 1;
end; end;
initialization initialization

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

@ -489,11 +489,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'LIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.DESCU' + 'LIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.DESCU' +
'ENTO,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_PORTE, ALBARANES_CL' + 'ENTO,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_PORTE, ALBARANES_CL' +
'IENTE_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VIS' + 'IENTE_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VIS' +
'IBLE,'#10' ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFE' + 'IBLE, ALBARANES_CLIENTE_DETALLES.VALORADO,'#10' ALBARANES_CLIENTE' +
'RENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ' + '_DETALLES.ID_ARTICULO, ARTICULOS.REFERENCIA, ARTICULOS.REFERENCI' +
'ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIE' + 'A_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10 +
'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY P' + 'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ' +
'OSICION;'#10#10 'ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -553,6 +553,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR' SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end> end>
end> end>
Name = 'AlbaranesCliente_Detalles' Name = 'AlbaranesCliente_Detalles'
@ -616,6 +620,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_Detalles_VISIBLE' DictionaryEntry = 'AlbaranesCliente_Detalles_VISIBLE'
end end
item
Name = 'VALORADO'
DataType = datSmallInt
DisplayLabel = #191'Valorado?'
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -625,11 +634,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'AlbaranesCliente_Detalles_REFERENCIA'
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'AlbaranesCliente_Detalles_REFERENCIA_PROVEEDOR'
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -1095,6 +1106,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -1139,6 +1155,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
@ -1153,10 +1170,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
SQL = SQL =
'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' + 'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' +
'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, D' + 'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, D' +
'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VISIBLE, ID_ARTICU' + 'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VISIBLE, VALORADO,' +
'LO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :POSICION, :TIPO_DETALLE, :C' + ' ID_ARTICULO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :POSICION, :TIPO_D' +
'ONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_P' + 'ETALLE, :CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :DESCUENTO, ' +
'ORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :ID_ARTICULO)'#10 ':IMPORTE_PORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :VALORADO, :ID_A' +
'RTICULO)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1184,6 +1202,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID' Name = 'ID'
Value = '' Value = ''
@ -1226,6 +1249,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
@ -1247,8 +1271,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'E = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :C' + 'E = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :C' +
'ANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO =' + 'ANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO =' +
' :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' IMPORTE_T' + ' :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' IMPORTE_T' +
'OTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO' + 'OTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' VALORADO = ' +
' = :ID_ARTICULO'#10' WHERE'#10' (ID = :OLD_ID)'#10 ':VALORADO,'#10' ID_ARTICULO = :ID_ARTICULO'#10' WHERE'#10' (ID = :OLD' +
'_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1685,6 +1710,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True ServerAutoRefresh = True
end
item
Name = 'AlbaranesCliente_Detalles_VALORADO'
DataType = datSmallInt
DisplayLabel = 'VALORADO'
end> end>
Left = 48 Left = 48
Top = 136 Top = 136

10
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -74,6 +74,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Ref. Cliente' Caption = 'Ref. Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE' DataBinding.FieldName = 'REFERENCIA_CLIENTE'
BestFitMaxWidth = 45
end end
object cxGridViewSITUACION: TcxGridDBColumn object cxGridViewSITUACION: TcxGridDBColumn
DataBinding.FieldName = 'SITUACION' DataBinding.FieldName = 'SITUACION'
@ -90,7 +91,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Cliente' Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
BestFitMaxWidth = 120
Width = 119 Width = 119
end end
object cxGridViewREF_PEDIDO: TcxGridDBColumn object cxGridViewREF_PEDIDO: TcxGridDBColumn
@ -129,28 +129,32 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_ALMACEN' DataBinding.FieldName = 'NOMBRE_ALMACEN'
Visible = False Visible = False
BestFitMaxWidth = 120
VisibleForCustomization = False VisibleForCustomization = False
Width = 63 Width = 63
end end
object cxGridViewCALLE: TcxGridDBColumn object cxGridViewCALLE: TcxGridDBColumn
DataBinding.FieldName = 'CALLE' DataBinding.FieldName = 'CALLE'
Visible = False Visible = False
BestFitMaxWidth = 120
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO_POSTAL' DataBinding.FieldName = 'CODIGO_POSTAL'
Visible = False Visible = False
BestFitMaxWidth = 45 BestFitMaxWidth = 35
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewPOBLACION: TcxGridDBColumn object cxGridViewPOBLACION: TcxGridDBColumn
DataBinding.FieldName = 'POBLACION' DataBinding.FieldName = 'POBLACION'
Visible = False Visible = False
BestFitMaxWidth = 45
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewPROVINCIA: TcxGridDBColumn object cxGridViewPROVINCIA: TcxGridDBColumn
DataBinding.FieldName = 'PROVINCIA' DataBinding.FieldName = 'PROVINCIA'
Visible = False Visible = False
BestFitMaxWidth = 35
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
@ -161,6 +165,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewTELEFONO: TcxGridDBColumn object cxGridViewTELEFONO: TcxGridDBColumn
DataBinding.FieldName = 'TELEFONO' DataBinding.FieldName = 'TELEFONO'
Visible = False Visible = False
BestFitMaxWidth = 25
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
@ -168,6 +173,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
BestFitMaxWidth = 65
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end

7
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -340,8 +340,15 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datInteger DataType = datInteger
DisplayLabel = #191'Visible?'
DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE' DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE'
end end
item
Name = 'VALORADO'
DataType = datSmallInt
DisplayLabel = #191'Valorado?'
DictionaryEntry = 'AlbaranesProveedor_Detalles_VALORADO'
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger

53
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_AlbaranesProveedor = '{FC51EA41-4822-47DC-9EA6-8A81B75EEBF0}'; RID_AlbaranesProveedor = '{1E801569-2CD6-4113-B218-09209700C928}';
RID_AlbaranesProveedor_Detalles = '{D33B5B6F-E114-4A97-B524-94872D62277C}'; RID_AlbaranesProveedor_Detalles = '{A5F2BEF7-E6DC-4967-9F2C-C51DEE97793F}';
{ Data table names } { Data table names }
nme_AlbaranesProveedor = 'AlbaranesProveedor'; nme_AlbaranesProveedor = 'AlbaranesProveedor';
@ -108,6 +108,7 @@ const
fld_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_AlbaranesProveedor_DetallesVISIBLE = 'VISIBLE'; fld_AlbaranesProveedor_DetallesVISIBLE = 'VISIBLE';
fld_AlbaranesProveedor_DetallesVALORADO = 'VALORADO';
fld_AlbaranesProveedor_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_AlbaranesProveedor_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_AlbaranesProveedor_DetallesDESCUENTO = 'DESCUENTO'; fld_AlbaranesProveedor_DetallesDESCUENTO = 'DESCUENTO';
fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
@ -124,16 +125,17 @@ const
idx_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 6; idx_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 6;
idx_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 7; idx_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 7;
idx_AlbaranesProveedor_DetallesVISIBLE = 8; idx_AlbaranesProveedor_DetallesVISIBLE = 8;
idx_AlbaranesProveedor_DetallesID_ARTICULO = 9; idx_AlbaranesProveedor_DetallesVALORADO = 9;
idx_AlbaranesProveedor_DetallesDESCUENTO = 10; idx_AlbaranesProveedor_DetallesID_ARTICULO = 10;
idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 11; idx_AlbaranesProveedor_DetallesDESCUENTO = 11;
idx_AlbaranesProveedor_DetallesREFERENCIA = 12; idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 12;
idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 13; idx_AlbaranesProveedor_DetallesREFERENCIA = 13;
idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
type type
{ IAlbaranesProveedor } { IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{5166113D-4E31-4A0E-9B2A-D95DE1724A0C}'] ['{EFC4EBE0-095B-4FBA-99C6-0287ED6D0BDA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -624,7 +626,7 @@ type
{ IAlbaranesProveedor_Detalles } { IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{4589DE0C-CDAD-4373-B7D2-D433C4DED5BF}'] ['{705D9343-91B7-4253-BDF1-36D4D961E8C0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -662,6 +664,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer); procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean; function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean); procedure SetVISIBLEIsNull(const aValue: Boolean);
function GetVALORADOValue: SmallInt;
procedure SetVALORADOValue(const aValue: SmallInt);
function GetVALORADOIsNull: Boolean;
procedure SetVALORADOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean; function GetID_ARTICULOIsNull: Boolean;
@ -703,6 +709,8 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@ -756,6 +764,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer); virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
function GetVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
@ -796,6 +808,8 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@ -1860,6 +1874,27 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsVariant := Null; DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsVariant := Null;
end; end;
function TAlbaranesProveedor_DetallesDataTableRules.GetVALORADOValue: SmallInt;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVALORADO].AsSmallInt;
end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesVALORADO].AsSmallInt := aValue;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetVALORADOIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVALORADO].IsNull;
end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedor_DetallesVALORADO].AsVariant := Null;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetID_ARTICULOValue: Integer; function TAlbaranesProveedor_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger; result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger;

51
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_AlbaranesProveedorDelta = '{C93949D2-C150-41AD-8520-FBC50DBA7ECD}'; RID_AlbaranesProveedorDelta = '{BA8F235B-7272-4906-8F91-BAADFA6E83F1}';
RID_AlbaranesProveedor_DetallesDelta = '{EC66A666-6CC9-4784-ABF0-3B63D981C24E}'; RID_AlbaranesProveedor_DetallesDelta = '{A16CF249-AB5E-4C53-B1FC-E20C7148D9C4}';
type type
{ IAlbaranesProveedorDelta } { IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor) IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{C93949D2-C150-41AD-8520-FBC50DBA7ECD}'] ['{BA8F235B-7272-4906-8F91-BAADFA6E83F1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -507,7 +507,7 @@ type
{ IAlbaranesProveedor_DetallesDelta } { IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles) IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{EC66A666-6CC9-4784-ABF0-3B63D981C24E}'] ['{A16CF249-AB5E-4C53-B1FC-E20C7148D9C4}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -518,6 +518,7 @@ type
function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : Integer; function GetOldVISIBLEValue : Integer;
function GetOldVALORADOValue : SmallInt;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
@ -534,6 +535,7 @@ type
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue; property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
@ -600,6 +602,12 @@ type
function GetOldVISIBLEIsNull: Boolean; virtual; function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
function GetVALORADOIsNull: Boolean; virtual;
function GetOldVALORADOValue: SmallInt; virtual;
function GetOldVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOValue: Integer; virtual;
@ -668,6 +676,10 @@ type
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue; property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
@ -2225,6 +2237,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := Null;
end; end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVALORADO];
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVALORADO]);
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVALORADO];
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVALORADO]);
end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVALORADO] := aValue;
end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVALORADO] := Null;
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO];

1
Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas
View File

@ -31,6 +31,7 @@ procedure TBizDetallesAlbaranProveedor.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
VISIBLE := 1; VISIBLE := 1;
VALORADO := 1;
end; end;
procedure TBizDetallesAlbaranProveedor.BeforeInsert(Sender: TDADataTable); procedure TBizDetallesAlbaranProveedor.BeforeInsert(Sender: TDADataTable);

105
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -404,12 +404,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'OR_DETALLES.CONCEPTO, ALBARANES_PROVEEDOR_DETALLES.CANTIDAD,'#10' ' + 'OR_DETALLES.CONCEPTO, ALBARANES_PROVEEDOR_DETALLES.CANTIDAD,'#10' ' +
' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, ALBARANES_PROVEEDO' + ' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, ALBARANES_PROVEEDO' +
'R_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_PROVEEDOR_DETALLES.VISIB' + 'R_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_PROVEEDOR_DETALLES.VISIB' +
'LE,'#10#10' ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PRO' + 'LE,'#10' ALBARANES_PROVEEDOR_DETALLES.VALORADO,'#10' ALBARANES_PRO' +
'VEEDOR_DETALLES.DESCUENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPO' + 'VEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESCUE' +
'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV a' + 'NTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICUL' +
's REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT J' + 'OS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR' +
'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' + #10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBAR' +
'CULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10 'ANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}' +
#10'ORDER BY POSICION;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -469,6 +470,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR' SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end> end>
end> end>
Name = 'AlbaranesProveedor_Detalles' Name = 'AlbaranesProveedor_Detalles'
@ -523,6 +528,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datInteger DataType = datInteger
DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE' DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE'
end end
item
Name = 'VALORADO'
DataType = datSmallInt
DictionaryEntry = 'AlbaranesProveedor_Detalles_VALORADO'
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -702,18 +712,18 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'IA,'#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' ' + 'IA,'#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' ' +
'DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' + 'DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' +
'IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCI' + 'IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCI' +
'AS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,' + 'AS_ACTIVAS,'#10' FECHA_ALTA,'#10' USUARIO,'#10' ID_ALMACEN,'#10' ID_' +
#10' ID_ALMACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORT' + 'FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ID_TIENDA)'#10 +
'E_PORTE,'#10' ID_TIENDA)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' ' + ' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' :FEC' +
' :ID_PROVEEDOR,'#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACT' + 'HA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,'#10' :REF' +
'URA,'#10' :TIPO,'#10' :REFERENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' ' + 'ERENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :' +
':REF_FACTURA_PROV,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACIO' + 'CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :' +
'N,'#10' :PROVINCIA,'#10' :PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BA' + 'PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCU' +
'SE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10 + 'ENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :I' +
' :IMPORTE_IVA,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :I' + 'MPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDEN' +
'NCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECH' + 'CIAS_ACTIVAS,'#10' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' :ID_ALMAC' +
'A_MODIFICACION,'#10' :USUARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAG' + 'EN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' ' +
'O,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :ID_TIENDA);'#10 ' :ID_TIENDA);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -835,14 +845,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
Value = '' Value = ''
end end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item item
Name = 'USUARIO' Name = 'USUARIO'
Value = '' Value = ''
@ -888,12 +890,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' ' + #10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' ' +
' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' + ' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' +
#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENC' + #10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENC' +
'IAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_A' + 'IAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_M' +
'LTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION,' + 'ODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' ID_' +
#10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FO' + 'ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' I' +
'RMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' + 'MPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,' +
' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ID_TIENDA = :ID_TIENDA'#10' WH' + #10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID);'#10
'ERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -901,6 +902,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
Value = '' Value = ''
@ -958,10 +964,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
SQL = SQL =
'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' + 'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' +
'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IMPORTE_TOT' + 'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IMPORTE_TOT' +
'AL, VISIBLE, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PO' + 'AL, VISIBLE, VALORADO, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, ' +
'RTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CO' + 'IMPORTE_PORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DE' +
'NCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_ALBA' + 'TALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE' +
'RAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10 ', :VALORADO, :ID_ALBARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORT' +
'E_PORTE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -987,6 +994,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
Value = '' Value = ''
@ -1048,9 +1060,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'DAD, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE' + 'DAD, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE' +
' = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD' + ' = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD' +
' = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VI' + ' = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VI' +
'SIBLE = :VISIBLE, '#10' ID_ALBARAN = :ID_ALBARAN,'#10' ID_ARTICULO' + 'SIBLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_ALBARAN = :I' +
' = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE =' + 'D_ALBARAN,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESC' +
' :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)' 'UENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD' +
'_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1471,6 +1484,20 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Ref. factura prov' DisplayLabel = 'Ref. factura prov'
end
item
Name = 'AlbaranesProveedor_Detalles_VALORADO'
DataType = datSmallInt
DisplayLabel = #191'Valorado?'
end
item
Name = 'POSICIONCONCEPTO'
DataType = datInteger
DisplayLabel = 'POSICION'
end
item
Name = 'CANTIDAD'
DataType = datCurrency
end> end>
Left = 48 Left = 48
Top = 128 Top = 128

BIN
Source/Modulos/Articulos/Controller/Articulos_controller.RES
View File

Binary file not shown.

BIN
Source/Modulos/Articulos/Data/Articulos_data.RES
View File

Binary file not shown.

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

Binary file not shown.

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.RES
View File

Binary file not shown.

BIN
Source/Modulos/Contactos/Data/Contactos_data.RES
View File

Binary file not shown.

BIN
Source/Modulos/Contactos/Model/Contactos_model.RES
View File

Binary file not shown.

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

BIN
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES
View File

Binary file not shown.

7
Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
View File

@ -17,7 +17,6 @@ type
function DarPropiedades: IBizPropiedades; function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; Const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable); procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; Const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end; end;
TDetallesContratoClienteController = class(TControllerDetallesArticulos, IDetallesContratoClienteController) TDetallesContratoClienteController = class(TControllerDetallesArticulos, IDetallesContratoClienteController)
@ -49,7 +48,6 @@ type
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override; procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end; end;
implementation implementation
@ -180,11 +178,6 @@ begin
end; end;
end; end;
procedure TDetallesContratoClienteController.SetVisible(ADetalles: IDAStronglyTypedDataTable; const AVisible, Orden: Integer);
begin
FDetallesPresupuestoCliente.SetVisible(ADetalles, AVisible, Orden);
end;
procedure TDetallesContratoClienteController.ValidarCampos(DataTable: TDADataTable); procedure TDetallesContratoClienteController.ValidarCampos(DataTable: TDADataTable);
begin begin
inherited; inherited;

5
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -388,6 +388,10 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
end end
item
Name = 'VALORADO'
DataType = datSmallInt
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -413,6 +417,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

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

@ -9,13 +9,13 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{48C5F21C-CB4D-4CFF-8F94-A1689B8A6F6A}'; RID_Valores = '{4E975748-969A-4FE9-BBD2-CC9D7B1CC40D}';
RID_Propiedades = '{785C1D59-7EA3-4BFD-8C1F-301A25C59E51}'; RID_Propiedades = '{D68E9D8E-0FE2-47A8-A050-ACB95BF5AFAF}';
RID_ListaAnosContratos = '{DD97448A-A305-401E-B6E0-856207BC471F}'; RID_ListaAnosContratos = '{7D999AE9-F346-450E-AF32-20F0F0F25228}';
RID_ContratosClienteBeneficios = '{670B05E3-9404-46E0-AB6C-9DE0712013DD}'; RID_ContratosClienteBeneficios = '{15AA6996-23F8-4883-B18C-43F5168D8F3B}';
RID_ContratosCliente = '{84D4574F-587F-4D70-A242-18B327F199D8}'; RID_ContratosCliente = '{D19AE467-7980-4CF4-B273-2BDB037E7D84}';
RID_TiposCapitulos = '{09B06749-719A-4B58-96B5-0B0AB2848D61}'; RID_TiposCapitulos = '{D18EC00D-ED0C-4BDD-BBC2-D2DE0794C1EF}';
RID_ContratosCliente_Detalles = '{8CDC36E9-9F1D-4CA1-8414-19CAB69BE649}'; RID_ContratosCliente_Detalles = '{B7F0780D-5DEE-44BB-91E4-9D7B39A77425}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -207,6 +207,7 @@ const
fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_ContratosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_ContratosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_ContratosCliente_DetallesVISIBLE = 'VISIBLE'; fld_ContratosCliente_DetallesVISIBLE = 'VISIBLE';
fld_ContratosCliente_DetallesVALORADO = 'VALORADO';
fld_ContratosCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_ContratosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_ContratosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO'; fld_ContratosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO';
fld_ContratosCliente_DetallesDESCUENTO = 'DESCUENTO'; fld_ContratosCliente_DetallesDESCUENTO = 'DESCUENTO';
@ -225,17 +226,18 @@ const
idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 7; idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_ContratosCliente_DetallesIMPORTE_TOTAL = 8; idx_ContratosCliente_DetallesIMPORTE_TOTAL = 8;
idx_ContratosCliente_DetallesVISIBLE = 9; idx_ContratosCliente_DetallesVISIBLE = 9;
idx_ContratosCliente_DetallesID_ARTICULO = 10; idx_ContratosCliente_DetallesVALORADO = 10;
idx_ContratosCliente_DetallesTIPO_ARTICULO = 11; idx_ContratosCliente_DetallesID_ARTICULO = 11;
idx_ContratosCliente_DetallesDESCUENTO = 12; idx_ContratosCliente_DetallesTIPO_ARTICULO = 12;
idx_ContratosCliente_DetallesIMPORTE_PORTE = 13; idx_ContratosCliente_DetallesDESCUENTO = 13;
idx_ContratosCliente_DetallesREFERENCIA = 14; idx_ContratosCliente_DetallesIMPORTE_PORTE = 14;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 15; idx_ContratosCliente_DetallesREFERENCIA = 15;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 16;
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{01FF5BDE-97A6-44F3-8450-05A5C0C110FA}'] ['{E8AD85FE-0E64-418E-BA2A-9787E4F4F489}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -294,7 +296,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{3523B802-0EB2-46D4-A045-082CE868881C}'] ['{69C96C55-8229-43B6-8D8C-5B5AD61C3165}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -353,7 +355,7 @@ type
{ IListaAnosContratos } { IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable) IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{65EAAFC7-0128-4505-A7E6-2479CB33B7B4}'] ['{F7CDB162-A98F-4A06-9412-29DC6A122C9E}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -388,7 +390,7 @@ type
{ IContratosClienteBeneficios } { IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{43C1EDD7-AAC2-4DA4-9AF4-E8CCCADD7F1D}'] ['{01F28039-DF8B-4839-B3B0-8EE2E53D91E4}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -579,7 +581,7 @@ type
{ IContratosCliente } { IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable) IContratosCliente = interface(IDAStronglyTypedDataTable)
['{F2CA3305-5D91-4993-B9C0-294615C6EBF0}'] ['{4960869A-BFBB-4CC7-85E1-86B6918D188F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1157,7 +1159,7 @@ type
} }
{ ITiposCapitulos } { ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable) ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{DFC9723A-23C2-4736-A3FE-E2F8F2CF1E92}'] ['{BEF6D716-8772-4793-8AA9-E7C4C6426AFC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1252,7 +1254,7 @@ type
{ IContratosCliente_Detalles } { IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{0764F573-7ABD-416B-BD7F-1DF9BA0059AE}'] ['{3EBE8691-1080-4B52-A2FC-67A44C2ACC76}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1294,6 +1296,10 @@ type
procedure SetVISIBLEValue(const aValue: SmallInt); procedure SetVISIBLEValue(const aValue: SmallInt);
function GetVISIBLEIsNull: Boolean; function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean); procedure SetVISIBLEIsNull(const aValue: Boolean);
function GetVALORADOValue: SmallInt;
procedure SetVALORADOValue(const aValue: SmallInt);
function GetVALORADOIsNull: Boolean;
procedure SetVALORADOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean; function GetID_ARTICULOIsNull: Boolean;
@ -1341,6 +1347,8 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue; property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
@ -1400,6 +1408,10 @@ type
procedure SetVISIBLEValue(const aValue: SmallInt); virtual; procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
function GetVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
@ -1446,6 +1458,8 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue; property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
@ -3317,6 +3331,27 @@ begin
DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsVariant := Null; DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsVariant := Null;
end; end;
function TContratosCliente_DetallesDataTableRules.GetVALORADOValue: SmallInt;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesVALORADO].AsSmallInt;
end;
procedure TContratosCliente_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ContratosCliente_DetallesVALORADO].AsSmallInt := aValue;
end;
function TContratosCliente_DetallesDataTableRules.GetVALORADOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesVALORADO].IsNull;
end;
procedure TContratosCliente_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosCliente_DetallesVALORADO].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer; function TContratosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin begin
result := DataTable.Fields[idx_ContratosCliente_DetallesID_ARTICULO].AsInteger; result := DataTable.Fields[idx_ContratosCliente_DetallesID_ARTICULO].AsInteger;

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

@ -9,18 +9,18 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{D7B7A752-F645-440A-89BD-638862C7819A}'; RID_ValoresDelta = '{C34332AC-76CB-4E0E-8515-D9BBDFF2E1BF}';
RID_PropiedadesDelta = '{CF729826-631C-4E85-9467-924596E8706B}'; RID_PropiedadesDelta = '{C04FC4AE-3189-44DA-9D7D-4F61DCE51BA1}';
RID_ListaAnosContratosDelta = '{8DBE8D17-4504-4F6A-81CC-3A9BBB221DBA}'; RID_ListaAnosContratosDelta = '{2C0E2A20-BA28-41BE-92AD-EE946662BCE6}';
RID_ContratosClienteBeneficiosDelta = '{00DC7FCA-CE1A-41C2-ACB2-DA5ED5EBFA14}'; RID_ContratosClienteBeneficiosDelta = '{686A9966-2BF0-4D3B-A11D-77E9DEED5396}';
RID_ContratosClienteDelta = '{28AAF6A0-991C-4D31-950A-9BD8168FB4C5}'; RID_ContratosClienteDelta = '{A741E047-68D3-42B4-9C3D-F4B84A2FD5A8}';
RID_TiposCapitulosDelta = '{5000E4FA-010F-4828-A493-3E642B69A10A}'; RID_TiposCapitulosDelta = '{4C4B88B8-967F-457E-BB65-9B3406F31242}';
RID_ContratosCliente_DetallesDelta = '{318EAB4A-8BBB-4BCF-92FD-8CB1B40E1956}'; RID_ContratosCliente_DetallesDelta = '{336EDADB-89CC-4ABD-9861-C3441FA348C5}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{D7B7A752-F645-440A-89BD-638862C7819A}'] ['{C34332AC-76CB-4E0E-8515-D9BBDFF2E1BF}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer; function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{CF729826-631C-4E85-9467-924596E8706B}'] ['{C04FC4AE-3189-44DA-9D7D-4F61DCE51BA1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta } { IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos) IListaAnosContratosDelta = interface(IListaAnosContratos)
['{8DBE8D17-4504-4F6A-81CC-3A9BBB221DBA}'] ['{2C0E2A20-BA28-41BE-92AD-EE946662BCE6}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta } { IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{00DC7FCA-CE1A-41C2-ACB2-DA5ED5EBFA14}'] ['{686A9966-2BF0-4D3B-A11D-77E9DEED5396}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -360,7 +360,7 @@ type
{ IContratosClienteDelta } { IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente) IContratosClienteDelta = interface(IContratosCliente)
['{28AAF6A0-991C-4D31-950A-9BD8168FB4C5}'] ['{A741E047-68D3-42B4-9C3D-F4B84A2FD5A8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -938,7 +938,7 @@ type
{ ITiposCapitulosDelta } { ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos) ITiposCapitulosDelta = interface(ITiposCapitulos)
['{5000E4FA-010F-4828-A493-3E642B69A10A}'] ['{4C4B88B8-967F-457E-BB65-9B3406F31242}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -1032,7 +1032,7 @@ type
{ IContratosCliente_DetallesDelta } { IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{318EAB4A-8BBB-4BCF-92FD-8CB1B40E1956}'] ['{336EDADB-89CC-4ABD-9861-C3441FA348C5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
@ -1044,6 +1044,7 @@ type
function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : SmallInt; function GetOldVISIBLEValue : SmallInt;
function GetOldVALORADOValue : SmallInt;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldTIPO_ARTICULOValue : String; function GetOldTIPO_ARTICULOValue : String;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
@ -1062,6 +1063,7 @@ type
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue; property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
@ -1135,6 +1137,12 @@ type
function GetOldVISIBLEIsNull: Boolean; virtual; function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual; procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
function GetVALORADOIsNull: Boolean; virtual;
function GetOldVALORADOValue: SmallInt; virtual;
function GetOldVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOValue: Integer; virtual;
@ -1213,6 +1221,10 @@ type
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
@ -3931,6 +3943,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE] := Null;
end; end;
function TContratosCliente_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVALORADO];
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVALORADO]);
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesVALORADO];
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesVALORADO]);
end;
procedure TContratosCliente_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVALORADO] := aValue;
end;
procedure TContratosCliente_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVALORADO] := Null;
end;
function TContratosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; function TContratosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesID_ARTICULO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesID_ARTICULO];

1
Source/Modulos/Contratos de cliente/Model/uBizDetallesContratoCliente.pas
View File

@ -41,6 +41,7 @@ procedure TBizDetallesContratoCliente.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
VISIBLE := 1; VISIBLE := 1;
VALORADO := 1;
end; end;
initialization initialization

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

@ -630,6 +630,10 @@ object RptContratosCliente: TRptContratosCliente
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'VALORADO'
DataType = datSmallInt
end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
@ -641,7 +645,7 @@ object RptContratosCliente: TRptContratosCliente
item item
Name = 'ID_PRE_CON' Name = 'ID_PRE_CON'
DataType = datInteger DataType = datInteger
Value = '' Value = '232'
end> end>
Statements = < Statements = <
item item
@ -692,10 +696,18 @@ object RptContratosCliente: TRptContratosCliente
item item
DatasetField = 'IMPORTE_DESCUENTO' DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO' TableField = 'IMPORTE_DESCUENTO'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end> end>
end> end>
Name = 'Informe_Capitulos' Name = 'Informe_Capitulos'
Fields = < Fields = <
item
Name = 'VALORADO'
DataType = datSmallInt
end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger

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

@ -797,15 +797,15 @@ object srvContratosCliente: TsrvContratosCliente
'ES.PROPIEDAD, CONTRATOS_CLIENTE_DETALLES.CONCEPTO, CONTRATOS_CLI' + 'ES.PROPIEDAD, CONTRATOS_CLIENTE_DETALLES.CONCEPTO, CONTRATOS_CLI' +
'ENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_U' + 'ENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_U' +
'NIDAD, CONTRATOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' CONTRATOS_C' + 'NIDAD, CONTRATOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' CONTRATOS_C' +
'LIENTE_DETALLES.VISIBLE,'#10#10' CONTRATOS_CLIENTE_DETALLES.ID_ARTI' + 'LIENTE_DETALLES.VISIBLE,'#10' CONTRATOS_CLIENTE_DETALLES.VALORADO' +
'CULO, CONTRATOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' CONTRATOS_CL' + ','#10#10' CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO, CONTRATOS_CLIENTE' +
'IENTE_DETALLES.DESCUENTO,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE' + '_DETALLES.TIPO_ARTICULO,'#10' CONTRATOS_CLIENTE_DETALLES.DESCUENT' +
'_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*E' + 'O,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFER' +
's necesario para que no fallen los detalles porque los detalles ' + 'ENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para que no' +
'son comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTR' + ' fallen los detalles porque los detalles son comunes para la ram' +
'ATOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON CONTRATOS_CLIENTE_D' + 'a de cliente y de proveedor*/'#10#10'FROM CONTRATOS_CLIENTE_DETALLES'#10'L' +
'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICI' + 'EFT JOIN ARTICULOS ON CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO = A' +
'ON;'#10 'RTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -873,6 +873,10 @@ object srvContratosCliente: TsrvContratosCliente
item item
DatasetField = 'PROPIEDAD' DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD' TableField = 'PROPIEDAD'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end> end>
end> end>
Name = 'ContratosCliente_Detalles' Name = 'ContratosCliente_Detalles'
@ -922,6 +926,10 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
end end
item
Name = 'VALORADO'
DataType = datSmallInt
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -947,6 +955,7 @@ object srvContratosCliente: TsrvContratosCliente
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -1509,6 +1518,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datCurrency DataType = datCurrency
Value = '' Value = ''
end end
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
@ -1543,12 +1557,12 @@ object srvContratosCliente: TsrvContratosCliente
SQL = SQL =
'INSERT'#10' INTO CONTRATOS_CLIENTE_DETALLES'#10' (ID, ID_CONTRATO, P' + 'INSERT'#10' INTO CONTRATOS_CLIENTE_DETALLES'#10' (ID, ID_CONTRATO, P' +
'OSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' IMPOR' + 'OSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' IMPOR' +
'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' ' + 'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, VALORADO, ID_ARTICULO, TIPO_A' +
' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID' + 'RTICULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' ' +
'_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCEPTO,'#10' ' + ' (:ID, :ID_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONC' +
' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_' + 'EPTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,' +
'ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TI' + ' :VALORADO,'#10' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPO' +
'MESTAMP)'#10 'RTE_PORTE, CURRENT_TIMESTAMP)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1576,6 +1590,11 @@ object srvContratosCliente: TsrvContratosCliente
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
@ -1665,10 +1684,10 @@ object srvContratosCliente: TsrvContratosCliente
'LE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' CONCEPTO = ' + 'LE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' CONCEPTO = ' +
':CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMP' + ':CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMP' +
'ORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = ' + 'ORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = ' +
':VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = ' + ':VISIBLE,'#10' VALORADO = :VALORADO,'#10' ID_ARTICULO = :ID_ARTICU' +
':TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE =' + 'LO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUE' +
' :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WH' + 'NTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION' +
'ERE'#10' (ID = :OLD_ID)'#10 ' = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

1
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -71,6 +71,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Ref. Cliente' Caption = 'Ref. Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE' DataBinding.FieldName = 'REFERENCIA_CLIENTE'
BestFitMaxWidth = 25
end end
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_CONTRATO' DataBinding.FieldName = 'TIPO_CONTRATO'

30
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
View File

@ -1,8 +1,5 @@
inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Width = 760
Height = 411
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 760
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
end end
@ -59,8 +56,6 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 760
Height = 339
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID_ARTICULO: TcxGridDBColumn inherited cxGridViewID_ARTICULO: TcxGridDBColumn
Width = 57 Width = 57
@ -73,7 +68,10 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
inherited cxGridViewVISIBLE: TcxGridDBColumn [5] inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Visible = True Visible = True
end end
object cxGridViewPROPIEDAD: TcxGridDBColumn [6] inherited cxGridViewVALORADO: TcxGridDBColumn [6]
Visible = True
end
object cxGridViewPROPIEDAD: TcxGridDBColumn [7]
DataBinding.FieldName = 'PROPIEDAD' DataBinding.FieldName = 'PROPIEDAD'
PropertiesClassName = 'TcxRichEditProperties' PropertiesClassName = 'TcxRichEditProperties'
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
@ -81,43 +79,41 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Width = 150 Width = 150
IsCaptionAssigned = True IsCaptionAssigned = True
end end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [7] inherited cxGridViewREFERENCIA: TcxGridDBColumn [8]
end end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [8] inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [9]
DataBinding.FieldName = '' DataBinding.FieldName = ''
end end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9] inherited cxGridViewDESCRIPCION: TcxGridDBColumn [10]
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
Width = 243 Width = 243
end end
inherited cxGridViewCANTIDAD: TcxGridDBColumn [10] inherited cxGridViewCANTIDAD: TcxGridDBColumn [11]
VisibleForCustomization = False VisibleForCustomization = False
Width = 25 Width = 25
end end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11] inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [12]
VisibleForCustomization = False VisibleForCustomization = False
Width = 34 Width = 34
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [12] inherited cxGridViewDESCUENTO: TcxGridDBColumn [13]
Width = 20 Width = 20
end end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13] inherited cxGridViewIMPORTENETO: TcxGridDBColumn [14]
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
Width = 29 Width = 29
end end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14] inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [15]
end end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15] inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16]
VisibleForCustomization = False VisibleForCustomization = False
Width = 29 Width = 29
end end
end end
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 760
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 665
object TBXSubmenuItem1: TTBXSubmenuItem [0] object TBXSubmenuItem1: TTBXSubmenuItem [0]
Caption = 'A'#241'adir cap'#237'tulo' Caption = 'A'#241'adir cap'#237'tulo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText

6
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -386,6 +386,12 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DisplayLabel = #191'Visible?' DisplayLabel = #191'Visible?'
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
end end
item
Name = 'VALORADO'
DataType = datSmallInt
DisplayLabel = #191'Valorado?'
DictionaryEntry = 'FacturasCliente_Detalles_VALORADO'
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger

57
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{9504B0C5-CF6C-47DF-9BF1-D6EE693A246B}'; RID_ListaAnosFacturas = '{D124C6A9-9125-41D5-8910-57FF495BF307}';
RID_FacturasCliente = '{E530BBA1-8BD8-4003-B11A-79C99E13E981}'; RID_FacturasCliente = '{1302F337-0DD8-4688-AE4A-BBEE072A6C3A}';
RID_FacturasCliente_Detalles = '{C963E80A-9A8F-4A71-82C8-4901A98FA7CC}'; RID_FacturasCliente_Detalles = '{94E66444-E0C2-400F-B529-B4CD1AA4B51F}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -134,6 +134,7 @@ const
fld_FacturasCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_FacturasCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_FacturasCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_FacturasCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_FacturasCliente_DetallesVISIBLE = 'VISIBLE'; fld_FacturasCliente_DetallesVISIBLE = 'VISIBLE';
fld_FacturasCliente_DetallesVALORADO = 'VALORADO';
fld_FacturasCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_FacturasCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_FacturasCliente_DetallesDESCUENTO = 'DESCUENTO'; fld_FacturasCliente_DetallesDESCUENTO = 'DESCUENTO';
fld_FacturasCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_FacturasCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
@ -150,16 +151,17 @@ const
idx_FacturasCliente_DetallesIMPORTE_UNIDAD = 6; idx_FacturasCliente_DetallesIMPORTE_UNIDAD = 6;
idx_FacturasCliente_DetallesIMPORTE_TOTAL = 7; idx_FacturasCliente_DetallesIMPORTE_TOTAL = 7;
idx_FacturasCliente_DetallesVISIBLE = 8; idx_FacturasCliente_DetallesVISIBLE = 8;
idx_FacturasCliente_DetallesID_ARTICULO = 9; idx_FacturasCliente_DetallesVALORADO = 9;
idx_FacturasCliente_DetallesDESCUENTO = 10; idx_FacturasCliente_DetallesID_ARTICULO = 10;
idx_FacturasCliente_DetallesIMPORTE_PORTE = 11; idx_FacturasCliente_DetallesDESCUENTO = 11;
idx_FacturasCliente_DetallesREFERENCIA = 12; idx_FacturasCliente_DetallesIMPORTE_PORTE = 12;
idx_FacturasCliente_DetallesREFERENCIA_PROVEEDOR = 13; idx_FacturasCliente_DetallesREFERENCIA = 13;
idx_FacturasCliente_DetallesREFERENCIA_PROVEEDOR = 14;
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{C9EB259F-ABF4-4646-BAE3-BDEED080DB84}'] ['{228D328D-5F59-4A81-BBE8-1CFF290D1369}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -194,7 +196,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{8A5FD641-EA95-4CD6-9EAC-618D177DF7C0}'] ['{5FE41CBB-BFCD-4D64-B2EB-95B093C9F387}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -793,7 +795,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{51E6D6A2-EFC9-404B-B0EA-454ED0E4FBA4}'] ['{1189A431-E8CB-4DF3-A668-E89F49C7A393}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -831,6 +833,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer); procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean; function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean); procedure SetVISIBLEIsNull(const aValue: Boolean);
function GetVALORADOValue: SmallInt;
procedure SetVALORADOValue(const aValue: SmallInt);
function GetVALORADOIsNull: Boolean;
procedure SetVALORADOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean; function GetID_ARTICULOIsNull: Boolean;
@ -872,6 +878,8 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@ -925,6 +933,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer); virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
function GetVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
@ -965,6 +977,8 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@ -2246,6 +2260,27 @@ begin
DataTable.Fields[idx_FacturasCliente_DetallesVISIBLE].AsVariant := Null; DataTable.Fields[idx_FacturasCliente_DetallesVISIBLE].AsVariant := Null;
end; end;
function TFacturasCliente_DetallesDataTableRules.GetVALORADOValue: SmallInt;
begin
result := DataTable.Fields[idx_FacturasCliente_DetallesVALORADO].AsSmallInt;
end;
procedure TFacturasCliente_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_FacturasCliente_DetallesVALORADO].AsSmallInt := aValue;
end;
function TFacturasCliente_DetallesDataTableRules.GetVALORADOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasCliente_DetallesVALORADO].IsNull;
end;
procedure TFacturasCliente_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasCliente_DetallesVALORADO].AsVariant := Null;
end;
function TFacturasCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer; function TFacturasCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin begin
result := DataTable.Fields[idx_FacturasCliente_DetallesID_ARTICULO].AsInteger; result := DataTable.Fields[idx_FacturasCliente_DetallesID_ARTICULO].AsInteger;

55
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{21A2ECEC-6B0B-464C-8545-1F8D439F3DCA}'; RID_ListaAnosFacturasDelta = '{A36E4AFD-23AD-421D-9A83-CF95673BC233}';
RID_FacturasClienteDelta = '{86F44C5A-7112-42F1-B15E-518660E2EAC2}'; RID_FacturasClienteDelta = '{7450A969-1ECA-4843-9A77-57181F6C539B}';
RID_FacturasCliente_DetallesDelta = '{4FF3AB78-99DC-4F0F-B163-1155D2698082}'; RID_FacturasCliente_DetallesDelta = '{AE9B5F97-D0B9-47C0-BAF0-05D4EF41ED06}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{21A2ECEC-6B0B-464C-8545-1F8D439F3DCA}'] ['{A36E4AFD-23AD-421D-9A83-CF95673BC233}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{86F44C5A-7112-42F1-B15E-518660E2EAC2}'] ['{7450A969-1ECA-4843-9A77-57181F6C539B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -649,7 +649,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{4FF3AB78-99DC-4F0F-B163-1155D2698082}'] ['{AE9B5F97-D0B9-47C0-BAF0-05D4EF41ED06}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -660,6 +660,7 @@ type
function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : Integer; function GetOldVISIBLEValue : Integer;
function GetOldVALORADOValue : SmallInt;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
@ -676,6 +677,7 @@ type
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue; property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
@ -742,6 +744,12 @@ type
function GetOldVISIBLEIsNull: Boolean; virtual; function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
function GetVALORADOIsNull: Boolean; virtual;
function GetOldVALORADOValue: SmallInt; virtual;
function GetOldVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOValue: Integer; virtual;
@ -810,6 +818,10 @@ type
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue; property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
@ -2683,6 +2695,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVISIBLE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVISIBLE] := Null;
end; end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVALORADO];
end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVALORADO]);
end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesVALORADO];
end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesVALORADO]);
end;
procedure TFacturasCliente_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVALORADO] := aValue;
end;
procedure TFacturasCliente_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVALORADO] := Null;
end;
function TFacturasCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; function TFacturasCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesID_ARTICULO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesID_ARTICULO];

1
Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas
View File

@ -42,6 +42,7 @@ procedure TBizDetallesFacturaCliente.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
VISIBLE := 1; VISIBLE := 1;
VALORADO := 1;
end; end;

14
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -1090,9 +1090,9 @@ object RptFacturasCliente: TRptFacturasCliente
SQL = SQL =
'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, F_RTFTOTEXT(C' + 'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, F_RTFTOTEXT(C' +
'ONCEPTO) AS CONCEPTO,'#10' CONCEPTO AS CONCEPTO_RTF, CANTIDAD,'#10' ' + 'ONCEPTO) AS CONCEPTO,'#10' CONCEPTO AS CONCEPTO_RTF, CANTIDAD,'#10' ' +
' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FROM FACTURA' + ' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE, VALORADO'#10'FR' +
'S_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDER BY POSIC' + 'OM FACTURAS_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDE' +
'ION;'#10 'R BY POSICION;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -1139,10 +1139,18 @@ object RptFacturasCliente: TRptFacturasCliente
DatasetField = 'CONCEPTO_RTF' DatasetField = 'CONCEPTO_RTF'
TableField = 'CONCEPTO' TableField = 'CONCEPTO'
SQLOrigin = 'CONCEPTO_RTF' SQLOrigin = 'CONCEPTO_RTF'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end> end>
end> end>
Name = 'InformeFacturasCliente_Detalles' Name = 'InformeFacturasCliente_Detalles'
Fields = < Fields = <
item
Name = 'VALORADO'
DataType = datSmallInt
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc

118
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -506,12 +506,13 @@ object srvFacturasCliente: TsrvFacturasCliente
'CLIENTE_DETALLES.TIPO_DETALLE,'#10' FACTURAS_CLIENTE_DETALLES.CON' + 'CLIENTE_DETALLES.TIPO_DETALLE,'#10' FACTURAS_CLIENTE_DETALLES.CON' +
'CEPTO, FACTURAS_CLIENTE_DETALLES.CANTIDAD,'#10' FACTURAS_CLIENTE_' + 'CEPTO, FACTURAS_CLIENTE_DETALLES.CANTIDAD,'#10' FACTURAS_CLIENTE_' +
'DETALLES.IMPORTE_UNIDAD, FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL' + 'DETALLES.IMPORTE_UNIDAD, FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL' +
','#10' FACTURAS_CLIENTE_DETALLES.VISIBLE,'#10#10' FACTURAS_CLIENTE_D' + ','#10' FACTURAS_CLIENTE_DETALLES.VISIBLE,'#10' FACTURAS_CLIENTE_DE' +
'ETALLES.ID_ARTICULO, FACTURAS_CLIENTE_DETALLES.DESCUENTO,'#10' FA' + 'TALLES.VALORADO,'#10#10' FACTURAS_CLIENTE_DETALLES.ID_ARTICULO, FAC' +
'CTURAS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' ' + 'TURAS_CLIENTE_DETALLES.DESCUENTO,'#10' FACTURAS_CLIENTE_DETALLES.' +
' ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM FACTURA' + 'IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' ARTICULOS.REFERENCIA_PR' +
'S_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON FACTURAS_CLIENTE_DETAL' + 'OV as REFERENCIA_PROVEEDOR'#10#10'FROM FACTURAS_CLIENTE_DETALLES'#10'LEFT ' +
'LES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10 'JOIN ARTICULOS ON FACTURAS_CLIENTE_DETALLES.ID_ARTICULO = ARTICU' +
'LOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -571,6 +572,10 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR' SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end> end>
end> end>
Name = 'FacturasCliente_Detalles' Name = 'FacturasCliente_Detalles'
@ -625,6 +630,11 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
end end
item
Name = 'VALORADO'
DataType = datSmallInt
DictionaryEntry = 'FacturasCliente_Detalles_VALORADO'
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -644,11 +654,13 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA'
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -720,6 +732,11 @@ object srvFacturasCliente: TsrvFacturasCliente
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -791,10 +808,11 @@ object srvFacturasCliente: TsrvFacturasCliente
SQL = SQL =
'INSERT'#10' INTO FACTURAS_CLIENTE_DETALLES'#10' (ID, CANTIDAD, POSIC' + 'INSERT'#10' INTO FACTURAS_CLIENTE_DETALLES'#10' (ID, CANTIDAD, POSIC' +
'ION, ID_FACTURA, TIPO_DETALLE, CONCEPTO,'#10' IMPORTE_UNIDAD, IM' + 'ION, ID_FACTURA, TIPO_DETALLE, CONCEPTO,'#10' IMPORTE_UNIDAD, IM' +
'PORTE_TOTAL, VISIBLE,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORTE' + 'PORTE_TOTAL, VISIBLE, VALORADO,'#10' ID_ARTICULO, DESCUENTO, IMP' +
')'#10' VALUES'#10' (:ID, :CANTIDAD, :POSICION, :ID_FACTURA, :TIPO_DE' + 'ORTE_PORTE)'#10' VALUES'#10' (:ID, :CANTIDAD, :POSICION, :ID_FACTURA' +
'TALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE' + ', :TIPO_DETALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL' +
','#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)' ', :VISIBLE, :VALORADO,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_P' +
'ORTE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -822,6 +840,11 @@ object srvFacturasCliente: TsrvFacturasCliente
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datCurrency DataType = datCurrency
@ -892,9 +915,9 @@ object srvFacturasCliente: TsrvFacturasCliente
', '#10' POSICION = :POSICION, '#10' ID_FACTURA = :ID_FACTURA, '#10' ' + ', '#10' POSICION = :POSICION, '#10' ID_FACTURA = :ID_FACTURA, '#10' ' +
' TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' I' + ' TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' I' +
'MPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_T' + 'MPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_T' +
'OTAL,'#10' VISIBLE = :VISIBLE,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' ' + 'OTAL,'#10' VISIBLE = :VISIBLE,'#10' VALORADO = :VALORADO,'#10' ID_A' +
' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' W' + 'RTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_' +
'HERE'#10' (ID = :OLD_ID)' 'PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1015,16 +1038,6 @@ object srvFacturasCliente: TsrvFacturasCliente
Size = 10 Size = 10
Value = '' Value = ''
end end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
@ -1093,21 +1106,20 @@ object srvFacturasCliente: TsrvFacturasCliente
'BLE,'#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_' + 'BLE,'#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_' +
'IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVACIONE' + 'IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVACIONE' +
'S,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLA' + 'S,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLA' +
'CION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECH' + 'CION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' USUA' +
'A_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUI' + 'RIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' +
'VALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10 + 'A,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD' +
' IGNORAR_CONTABILIDAD,'#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SI' + ','#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SIN_COMISION,'#10' SITUACIO' +
'N_COMISION,'#10' SITUACION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10 + 'N)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FE' +
' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' ' + 'CHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE_IMPONIBLE,'#10' :D' +
' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :I' + 'ESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' ' +
'VA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOT' + ' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10 +
'AL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMB' + ' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :POB' +
'RE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POST' + 'LACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' CURRENT_TIMESTAM' +
'AL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' + 'P,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10 +
':ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' ' + ' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IG' +
' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' ' + 'NORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_C' +
' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :SITUACI' + 'OMISION,'#10' :SITUACION);'#10
'ON);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1222,16 +1234,6 @@ object srvFacturasCliente: TsrvFacturasCliente
Size = 10 Size = 10
Value = '' Value = ''
end end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
@ -1308,14 +1310,13 @@ object srvFacturasCliente: TsrvFacturasCliente
'ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :' + 'ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :' +
'NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :POBLACION,'#10' PROV' + 'NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :POBLACION,'#10' PROV' +
'INCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' FECH' + 'INCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' FECH' +
'A_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACI' + 'A_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' ' +
'ON,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 + 'ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECA' +
' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' + 'RGO_EQUIVALENCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NE' +
'A = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_' + 'TO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNO' +
'PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONT' + 'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TI' +
'ABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_CONTRATO = :ID_CONT' + 'ENDA,'#10' ID_CONTRATO = :ID_CONTRATO,'#10' SIN_COMISION = :SIN_CO' +
'RATO,'#10' SIN_COMISION = :SIN_COMISION,'#10' SITUACION = :SITUACI' + 'MISION,'#10' SITUACION = :SITUACION'#10' WHERE'#10' (ID = :OLD_ID);'#10
'ON'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1688,6 +1689,11 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
Name = 'FacturasCliente_IGNORAR_CONTABILIDAD' Name = 'FacturasCliente_IGNORAR_CONTABILIDAD'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'FacturasCliente_Detalles_VALORADO'
DataType = datSmallInt
DisplayLabel = #191'Valorado?'
end> end>
Left = 150 Left = 150
Top = 22 Top = 22

6
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -400,6 +400,12 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR' DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR'
end
item
Name = 'VALORADO'
DataType = datSmallInt
DisplayLabel = #191'Valorado?'
DictionaryEntry = 'FacturasProveedor_Detalles_VALORADO'
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere

57
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -9,11 +9,11 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{772E3A80-73F5-425A-8F80-2DA4BA6889CE}'; RID_ListaAnosFacturas = '{FC5567A2-A1E2-4B04-80E1-78F054593A8A}';
RID_FacturasProveedor_Contratos = '{DE5C1077-9860-424E-895B-C6348ACCA4DB}'; RID_FacturasProveedor_Contratos = '{29528EAE-BE56-4F11-9BA7-4D564DFB73A2}';
RID_TiposFacturaProveedor = '{67B410B2-667E-4EB4-B78D-CBD675A717BD}'; RID_TiposFacturaProveedor = '{EBFAFA25-E1DF-41CC-9478-0D55BDAF4A29}';
RID_FacturasProveedor = '{D4BA7205-7758-40CB-934A-3DD2238AC1B1}'; RID_FacturasProveedor = '{05571997-AE29-4125-AC89-464BD8B0CF1A}';
RID_FacturasProveedor_Detalles = '{01304CD4-713A-442B-A701-8B37BA847E7C}'; RID_FacturasProveedor_Detalles = '{B58D95A3-885C-4D7C-BE98-F1BA7442318B}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -162,6 +162,7 @@ const
fld_FacturasProveedor_DetallesDESCUENTO = 'DESCUENTO'; fld_FacturasProveedor_DetallesDESCUENTO = 'DESCUENTO';
fld_FacturasProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_FacturasProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasProveedor_DetallesREFERENCIA = 'REFERENCIA'; fld_FacturasProveedor_DetallesREFERENCIA = 'REFERENCIA';
fld_FacturasProveedor_DetallesVALORADO = 'VALORADO';
fld_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; fld_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
{ FacturasProveedor_Detalles field indexes } { FacturasProveedor_Detalles field indexes }
@ -178,12 +179,13 @@ const
idx_FacturasProveedor_DetallesDESCUENTO = 10; idx_FacturasProveedor_DetallesDESCUENTO = 10;
idx_FacturasProveedor_DetallesIMPORTE_PORTE = 11; idx_FacturasProveedor_DetallesIMPORTE_PORTE = 11;
idx_FacturasProveedor_DetallesREFERENCIA = 12; idx_FacturasProveedor_DetallesREFERENCIA = 12;
idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 13; idx_FacturasProveedor_DetallesVALORADO = 13;
idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{B368FF8D-1FFD-47E0-AE16-C42B17DDFAA1}'] ['{1B98F922-02A4-4E37-A61E-97750DAEEE50}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -218,7 +220,7 @@ type
{ IFacturasProveedor_Contratos } { IFacturasProveedor_Contratos }
IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
['{D2ECFD06-1A26-4A80-8334-1DF7DBB1824B}'] ['{C52F44CF-0329-48CB-B738-0BB46696BA62}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -325,7 +327,7 @@ type
{ ITiposFacturaProveedor } { ITiposFacturaProveedor }
ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable) ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable)
['{C16445EE-8D36-4166-97C6-045FE267548E}'] ['{67E81F9E-6FB3-4D91-B33A-0A8664936D2A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -372,7 +374,7 @@ type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{689FC1AA-5A56-4ABC-AFB2-984B5749E875}'] ['{8553E2B5-4113-4209-96F6-131CC708C68F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -935,7 +937,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{6001EDD7-2FD3-46B9-A5D4-7E90AD339EC0}'] ['{C2B60CD9-57CA-4576-BC3B-BDCECACA9F4C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -989,6 +991,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean; function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean); procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetVALORADOValue: SmallInt;
procedure SetVALORADOValue(const aValue: SmallInt);
function GetVALORADOIsNull: Boolean;
procedure SetVALORADOIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVEEDORValue: String; function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetREFERENCIA_PROVEEDORIsNull: Boolean; function GetREFERENCIA_PROVEEDORIsNull: Boolean;
@ -1022,6 +1028,8 @@ type
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
end; end;
@ -1083,6 +1091,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual; function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
function GetVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
@ -1115,6 +1127,8 @@ type
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
@ -2622,6 +2636,27 @@ begin
DataTable.Fields[idx_FacturasProveedor_DetallesREFERENCIA].AsVariant := Null; DataTable.Fields[idx_FacturasProveedor_DetallesREFERENCIA].AsVariant := Null;
end; end;
function TFacturasProveedor_DetallesDataTableRules.GetVALORADOValue: SmallInt;
begin
result := DataTable.Fields[idx_FacturasProveedor_DetallesVALORADO].AsSmallInt;
end;
procedure TFacturasProveedor_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_FacturasProveedor_DetallesVALORADO].AsSmallInt := aValue;
end;
function TFacturasProveedor_DetallesDataTableRules.GetVALORADOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedor_DetallesVALORADO].IsNull;
end;
procedure TFacturasProveedor_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedor_DetallesVALORADO].AsVariant := Null;
end;
function TFacturasProveedor_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String; function TFacturasProveedor_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
begin begin
result := DataTable.Fields[idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR].AsString; result := DataTable.Fields[idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR].AsString;

63
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,16 +9,16 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{5E2C03E7-40F8-4863-B08C-2946B58596A3}'; RID_ListaAnosFacturasDelta = '{F5649B1E-4A25-441C-A312-E5EB8EB2F301}';
RID_FacturasProveedor_ContratosDelta = '{62B5396F-4A08-443D-8B7F-974267E456A5}'; RID_FacturasProveedor_ContratosDelta = '{BB34419C-F523-4089-BD9A-6540AD02B8D7}';
RID_TiposFacturaProveedorDelta = '{EA8E5C49-5AE7-496F-B4FA-9680EAC18C03}'; RID_TiposFacturaProveedorDelta = '{00848D4E-29B2-4289-A7F7-C7B622BC4B2D}';
RID_FacturasProveedorDelta = '{64C30025-CE2E-4DDC-8684-E0E7B5552C00}'; RID_FacturasProveedorDelta = '{BA0CE5CA-E565-449C-92F0-1DF87535AE38}';
RID_FacturasProveedor_DetallesDelta = '{05C62271-95BD-4275-B16B-3E75CD24CB3F}'; RID_FacturasProveedor_DetallesDelta = '{C5CE21F0-19EA-4F8A-BEEC-07C801C4420D}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{5E2C03E7-40F8-4863-B08C-2946B58596A3}'] ['{F5649B1E-4A25-441C-A312-E5EB8EB2F301}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -52,7 +52,7 @@ type
{ IFacturasProveedor_ContratosDelta } { IFacturasProveedor_ContratosDelta }
IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos) IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
['{62B5396F-4A08-443D-8B7F-974267E456A5}'] ['{BB34419C-F523-4089-BD9A-6540AD02B8D7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -158,7 +158,7 @@ type
{ ITiposFacturaProveedorDelta } { ITiposFacturaProveedorDelta }
ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor) ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor)
['{EA8E5C49-5AE7-496F-B4FA-9680EAC18C03}'] ['{00848D4E-29B2-4289-A7F7-C7B622BC4B2D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -204,7 +204,7 @@ type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{64C30025-CE2E-4DDC-8684-E0E7B5552C00}'] ['{BA0CE5CA-E565-449C-92F0-1DF87535AE38}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -767,7 +767,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{05C62271-95BD-4275-B16B-3E75CD24CB3F}'] ['{C5CE21F0-19EA-4F8A-BEEC-07C801C4420D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -782,6 +782,7 @@ type
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldVALORADOValue : SmallInt;
function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldREFERENCIA_PROVEEDORValue : String;
{ Properties } { Properties }
@ -798,6 +799,7 @@ type
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
end; end;
@ -884,6 +886,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
function GetVALORADOIsNull: Boolean; virtual;
function GetOldVALORADOValue: SmallInt; virtual;
function GetOldVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual; function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
@ -944,6 +952,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
@ -3135,6 +3147,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesREFERENCIA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesREFERENCIA] := Null;
end; end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVALORADO];
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVALORADO]);
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesVALORADO];
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesVALORADO]);
end;
procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVALORADO] := aValue;
end;
procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVALORADO] := Null;
end;
function TFacturasProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; function TFacturasProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR];

1
Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas
View File

@ -52,6 +52,7 @@ procedure TBizDetallesFacturaProveedor.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
VISIBLE := 1; VISIBLE := 1;
VALORADO := 1;
end; end;
{ TBizContratosFacturaProveedor } { TBizContratosFacturaProveedor }

115
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -607,13 +607,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'TURAS_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' FACTURAS_PROVEEDOR_DE' + 'TURAS_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' FACTURAS_PROVEEDOR_DE' +
'TALLES.CONCEPTO, FACTURAS_PROVEEDOR_DETALLES.CANTIDAD,'#10' FACTU' + 'TALLES.CONCEPTO, FACTURAS_PROVEEDOR_DETALLES.CANTIDAD,'#10' FACTU' +
'RAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, FACTURAS_PROVEEDOR_DETALL' + 'RAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, FACTURAS_PROVEEDOR_DETALL' +
'ES.IMPORTE_TOTAL,'#10' FACTURAS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' ' + 'ES.IMPORTE_TOTAL,'#10' FACTURAS_PROVEEDOR_DETALLES.VISIBLE,'#10' F' +
'FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO, FACTURAS_PROVEEDOR_DETA' + 'ACTURAS_PROVEEDOR_DETALLES.VALORADO,'#10' FACTURAS_PROVEEDOR_DETA' +
'LLES.DESCUENTO,'#10' FACTURAS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ' + 'LLES.ID_ARTICULO, FACTURAS_PROVEEDOR_DETALLES.DESCUENTO,'#10' FAC' +
' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA' + 'TURAS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA' +
'_PROVEEDOR'#10'FROM FACTURAS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ' + ', ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10'FROM FACTURA' +
'ON FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE ' + 'S_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON FACTURAS_PROVEEDOR_D' +
'{where}'#10'ORDER BY POSICION;'#10 'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICI' +
'ON;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -673,6 +674,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR' SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end> end>
end> end>
Name = 'FacturasProveedor_Detalles' Name = 'FacturasProveedor_Detalles'
@ -748,6 +753,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Size = 255 Size = 255
DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA' DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA'
end end
item
Name = 'VALORADO'
DataType = datSmallInt
DictionaryEntry = 'FacturasProveedor_Detalles_VALORADO'
end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
@ -953,16 +963,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Size = 10 Size = 10
Value = '' Value = ''
end end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
@ -1020,19 +1020,18 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'ASE_IMPONIBLE, DESCUENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_I' + 'ASE_IMPONIBLE, DESCUENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_I' +
'VA, IRPF, IMPORTE_IRPF, RE, IMPORTE_RE,'#10' IMPORTE_TOTAL, OBSE' + 'VA, IRPF, IMPORTE_IRPF, RE, IMPORTE_RE,'#10' IMPORTE_TOTAL, OBSE' +
'RVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' NOMBRE, CALLE, POBLACION' + 'RVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' NOMBRE, CALLE, POBLACION' +
', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION' + ', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, USUARIO, ID_FORMA_' +
', USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IV' + 'PAGO,'#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPO' +
'A, IMPORTE_NETO, IMPORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TI' + 'RTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TIENDA, ID_TIPO_FACTURA' +
'ENDA, ID_TIPO_FACTURA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENC' + ')'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVE' +
'IA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIEN' + 'EDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIENTO, :BASE_IMPONIBLE, ' +
'TO, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, ' + ':DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :IRPF, ' +
':IMPORTE_IVA, :IRPF, :IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPO' + ':IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPORTE_TOTAL, :OBSERVACI' +
'RTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE' + 'ONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE, :CALLE, :POBLACION,' +
', :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_A' + ' :PROVINCIA, :CODIGO_POSTAL, '#10' CURRENT_TIMESTAMP, :USUARIO, ' +
'LTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECAR' + ':ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPOR' +
'GO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_POR' + 'TE_NETO, '#10' :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_TIENDA' +
'TE, :IGNORAR_CONTABILIDAD, :ID_TIENDA, :ID_TIPO_FACTURA)'#10' '#10' ' + ', :ID_TIPO_FACTURA)'#10' '#10' '#10#10
' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1187,16 +1186,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Size = 10 Size = 10
Value = '' Value = ''
end end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
@ -1265,13 +1254,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' NIF_CIF = :NIF_CIF, '#10' NOM' + ' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' NIF_CIF = :NIF_CIF, '#10' NOM' +
'BRE = :NOMBRE, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION,' + 'BRE = :NOMBRE, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION,' +
' '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTA' + ' '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTA' +
'L, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FEC' + 'L, '#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :U' +
'HA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :' + 'SUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQUIVA' +
'ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA' + 'LENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_IVA,' +
', '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NETO = :IMPORTE_' + ' '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORT' +
'NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILI' + 'E_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' I' +
'DAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_' + 'D_TIENDA = :ID_TIENDA,'#10' ID_TIPO_FACTURA = :ID_TIPO_FACTURA'#10' ' +
'TIPO_FACTURA = :ID_TIPO_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10 'WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1279,6 +1268,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -1350,11 +1344,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
SQL = SQL =
'INSERT'#10' INTO FACTURAS_PROVEEDOR_DETALLES'#10' (ID, ID_FACTURA, P' + 'INSERT'#10' INTO FACTURAS_PROVEEDOR_DETALLES'#10' (ID, ID_FACTURA, P' +
'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, ' + 'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, ' +
'IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10' DESCUENTO, IMPORTE_PO' + 'IMPORTE_TOTAL, VISIBLE, VALORADO, ID_ARTICULO,'#10' DESCUENTO, I' +
'RTE)'#10' VALUES'#10' (:ID, :ID_FACTURA, :POSICION, :TIPO_DETALLE, :' + 'MPORTE_PORTE)'#10' VALUES'#10' (:ID, :ID_FACTURA, :POSICION, :TIPO_D' +
'CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISI' + 'ETALLE, :CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOT' +
'BLE, :ID_ARTICULO, '#10' :DESCUENTO, :IMPORTE_PORTE)'#10' '#10' ' + 'AL, :VISIBLE, :VALORADO, :ID_ARTICULO,'#10' :DESCUENTO, :IMPORTE' +
#10#10 '_PORTE)'#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1381,6 +1375,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
@ -1457,9 +1456,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'ACTURA = :ID_FACTURA, '#10' POSICION = :POSICION, '#10' TIPO_DETAL' + 'ACTURA = :ID_FACTURA, '#10' POSICION = :POSICION, '#10' TIPO_DETAL' +
'LE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :' + 'LE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :' +
'CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TO' + 'CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TO' +
'TAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO ' + 'TAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' VALORADO = :' +
'= :ID_ARTICULO, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE ' + 'VALORADO,'#10' ID_ARTICULO = :ID_ARTICULO, '#10' DESCUENTO = :DESC' +
'= :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 'UENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OL' +
'D_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1973,6 +1973,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datFloat DataType = datFloat
DisplayLabel = 'IRPF' DisplayLabel = 'IRPF'
Alignment = taRightJustify Alignment = taRightJustify
end
item
Name = 'FacturasProveedor_Detalles_VALORADO'
DataType = datSmallInt
DisplayLabel = #191'Valorado?'
end> end>
Left = 150 Left = 150
Top = 22 Top = 22

BIN
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.RES
View File

Binary file not shown.

BIN
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.RES
View File

Binary file not shown.

BIN
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.RES
View File

Binary file not shown.

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

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedor = '{E91640D3-98FE-4E09-A47E-DDB8DEF91010}'; RID_PedidosProveedor = '{890EC46F-966E-43BC-9C88-AA547D4462BC}';
RID_PedidosProveedor_Detalles = '{8E5080FE-7C58-4F98-A7F4-9D7FCF9E21F9}'; RID_PedidosProveedor_Detalles = '{1892BC6B-9347-428F-BA16-C346BD83F7E4}';
RID_PedidosProveedor_Articulos_Pendientes = '{A37CB497-DB53-43F6-8A3B-8D511DA79A43}'; RID_PedidosProveedor_Articulos_Pendientes = '{395AC8C7-EDE1-4BB8-8993-CA81BAAAB70C}';
{ Data table names } { Data table names }
nme_PedidosProveedor = 'PedidosProveedor'; nme_PedidosProveedor = 'PedidosProveedor';
@ -106,6 +106,7 @@ const
fld_PedidosProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_PedidosProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_PedidosProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_PedidosProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PedidosProveedor_DetallesVISIBLE = 'VISIBLE'; fld_PedidosProveedor_DetallesVISIBLE = 'VISIBLE';
fld_PedidosProveedor_DetallesVALORADO = 'VALORADO';
fld_PedidosProveedor_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_PedidosProveedor_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_PedidosProveedor_DetallesDESCUENTO = 'DESCUENTO'; fld_PedidosProveedor_DetallesDESCUENTO = 'DESCUENTO';
fld_PedidosProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_PedidosProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
@ -122,11 +123,12 @@ const
idx_PedidosProveedor_DetallesIMPORTE_UNIDAD = 6; idx_PedidosProveedor_DetallesIMPORTE_UNIDAD = 6;
idx_PedidosProveedor_DetallesIMPORTE_TOTAL = 7; idx_PedidosProveedor_DetallesIMPORTE_TOTAL = 7;
idx_PedidosProveedor_DetallesVISIBLE = 8; idx_PedidosProveedor_DetallesVISIBLE = 8;
idx_PedidosProveedor_DetallesID_ARTICULO = 9; idx_PedidosProveedor_DetallesVALORADO = 9;
idx_PedidosProveedor_DetallesDESCUENTO = 10; idx_PedidosProveedor_DetallesID_ARTICULO = 10;
idx_PedidosProveedor_DetallesIMPORTE_PORTE = 11; idx_PedidosProveedor_DetallesDESCUENTO = 11;
idx_PedidosProveedor_DetallesREFERENCIA = 12; idx_PedidosProveedor_DetallesIMPORTE_PORTE = 12;
idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 13; idx_PedidosProveedor_DetallesREFERENCIA = 13;
idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
{ PedidosProveedor_Articulos_Pendientes fields } { PedidosProveedor_Articulos_Pendientes fields }
fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO'; fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO';
@ -147,7 +149,7 @@ const
type type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{72630E6B-BABA-47E8-AECF-364D3A9E8F7C}'] ['{94AB8272-3485-46C4-8DD1-2ECDA6EA4205}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -614,7 +616,7 @@ type
{ IPedidosProveedor_Detalles } { IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{75167B38-5DCF-48A0-A0DB-D9B20EEB227A}'] ['{F2B458AB-B149-4238-92D1-3F307A35126B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -648,10 +650,14 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean; function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetVISIBLEValue: SmallInt; function GetVISIBLEValue: Integer;
procedure SetVISIBLEValue(const aValue: SmallInt); procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean; function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean); procedure SetVISIBLEIsNull(const aValue: Boolean);
function GetVALORADOValue: SmallInt;
procedure SetVALORADOValue(const aValue: SmallInt);
function GetVALORADOIsNull: Boolean;
procedure SetVALORADOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean; function GetID_ARTICULOIsNull: Boolean;
@ -691,8 +697,10 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@ -742,10 +750,14 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual; function GetVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
function GetVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
@ -784,8 +796,10 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@ -805,7 +819,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes } { IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{9D55B3FD-88B7-44FA-9380-CAE6DAD5B7CA}'] ['{956B0790-97C4-4C83-99FF-965FF90D1815}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1882,14 +1896,14 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_TOTAL].AsVariant := Null; DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_TOTAL].AsVariant := Null;
end; end;
function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEValue: SmallInt; function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEValue: Integer;
begin begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsSmallInt; result := DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsInteger;
end; end;
procedure TPedidosProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: SmallInt); procedure TPedidosProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsSmallInt := aValue; DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsInteger := aValue;
end; end;
function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean; function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean;
@ -1903,6 +1917,27 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsVariant := Null; DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsVariant := Null;
end; end;
function TPedidosProveedor_DetallesDataTableRules.GetVALORADOValue: SmallInt;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesVALORADO].AsSmallInt;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_PedidosProveedor_DetallesVALORADO].AsSmallInt := aValue;
end;
function TPedidosProveedor_DetallesDataTableRules.GetVALORADOIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesVALORADO].IsNull;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedor_DetallesVALORADO].AsVariant := Null;
end;
function TPedidosProveedor_DetallesDataTableRules.GetID_ARTICULOValue: Integer; function TPedidosProveedor_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesID_ARTICULO].AsInteger; result := DataTable.Fields[idx_PedidosProveedor_DetallesID_ARTICULO].AsInteger;

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

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedorDelta = '{EA735EC9-0277-4D0F-8843-4A6F66360099}'; RID_PedidosProveedorDelta = '{5997064D-F0FF-4FB9-AD7E-A668B603BC5B}';
RID_PedidosProveedor_DetallesDelta = '{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}'; RID_PedidosProveedor_DetallesDelta = '{0AD7F862-4E6A-4950-8EDD-0A6AA663420B}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}'; RID_PedidosProveedor_Articulos_PendientesDelta = '{948C7FA3-A6E5-45F6-93C2-731544474830}';
type type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{EA735EC9-0277-4D0F-8843-4A6F66360099}'] ['{5997064D-F0FF-4FB9-AD7E-A668B603BC5B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -484,7 +484,7 @@ type
{ IPedidosProveedor_DetallesDelta } { IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}'] ['{0AD7F862-4E6A-4950-8EDD-0A6AA663420B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -494,7 +494,8 @@ type
function GetOldCANTIDADValue : Float; function GetOldCANTIDADValue : Float;
function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : SmallInt; function GetOldVISIBLEValue : Integer;
function GetOldVALORADOValue : SmallInt;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
@ -510,7 +511,8 @@ type
property OldCANTIDAD : Float read GetOldCANTIDADValue; property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
@ -571,12 +573,18 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual; function GetVISIBLEValue: Integer; virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: SmallInt; virtual; function GetOldVISIBLEValue: Integer; virtual;
function GetOldVISIBLEIsNull: Boolean; virtual; function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
function GetVALORADOIsNull: Boolean; virtual;
function GetOldVALORADOValue: SmallInt; virtual;
function GetOldVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual; function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOValue: Integer; virtual;
@ -641,10 +649,14 @@ type
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
@ -674,7 +686,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta } { IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}'] ['{948C7FA3-A6E5-45F6-93C2-731544474830}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -2203,7 +2215,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL] := Null;
end; end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt; function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE];
end; end;
@ -2213,7 +2225,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE]);
end; end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: SmallInt; function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE];
end; end;
@ -2223,7 +2235,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE]);
end; end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: SmallInt); procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := aValue;
end; end;
@ -2234,6 +2246,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := Null;
end; end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO];
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO]);
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVALORADO];
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVALORADO]);
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO] := aValue;
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO] := Null;
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; function TPedidosProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO];

1
Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas
View File

@ -51,6 +51,7 @@ procedure TBizDetallesPedidoProveedor.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
VISIBLE := 1; VISIBLE := 1;
VALORADO := 1;
end; end;
initialization initialization

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

@ -383,13 +383,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_PROVEEDOR_DETALLES' + '_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_PROVEEDOR_DETALLES' +
'.CONCEPTO, PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD,'#10' PEDIDOS_PROV' + '.CONCEPTO, PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD,'#10' PEDIDOS_PROV' +
'EEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORT' + 'EEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORT' +
'E_TOTAL,'#10' PEDIDOS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' PEDIDOS_PR' + 'E_TOTAL,'#10' PEDIDOS_PROVEEDOR_DETALLES.VISIBLE,'#10' PEDIDOS_PRO' +
'OVEEDOR_DETALLES.ID_ARTICULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUEN' + 'VEEDOR_DETALLES.VALORADO,'#10' PEDIDOS_PROVEEDOR_DETALLES.ID_ARTI' +
'TO,'#10' PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.' + 'CULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUENTO,'#10' PEDIDOS_PROVEEDO' +
'REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'F' + 'R_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.RE' +
'ROM PEDIDOS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON PEDIDOS_PR' + 'FERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PEDIDOS_PROVEEDOR_DE' +
'OVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER ' + 'TALLES'#10'LEFT JOIN ARTICULOS ON PEDIDOS_PROVEEDOR_DETALLES.ID_ARTI' +
'BY POSICION;'#10 'CULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -449,6 +449,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR' SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end> end>
end> end>
Name = 'PedidosProveedor_Detalles' Name = 'PedidosProveedor_Detalles'
@ -464,6 +468,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO'
end end
item item
Name = 'POSICION' Name = 'POSICION'
@ -474,11 +479,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 10
DictionaryEntry = 'PedidosProveedor_Detalles_TIPO_DETALLE'
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
Size = 2000 Size = 2000
DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO'
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
@ -488,36 +495,49 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_UNIDAD'
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_TOTAL'
end end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_VISIBLE'
end
item
Name = 'VALORADO'
DataType = datSmallInt DataType = datSmallInt
DisplayLabel = #191'Valorado?'
end end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO'
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
DictionaryEntry = 'PedidosProveedor_Detalles_DESCUENTO'
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_PORTE'
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA'
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR'
end> end>
end end
item item
@ -618,6 +638,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datCurrency DataType = datCurrency
@ -688,10 +713,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
SQL = SQL =
'INSERT'#10' INTO PEDIDOS_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICION' + 'INSERT'#10' INTO PEDIDOS_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICION' +
', ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TOTA' + ', ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TOTA' +
'L, VISIBLE, ID_PEDIDO,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORT' + 'L, VISIBLE, VALORADO, ID_PEDIDO,'#10' ID_ARTICULO, DESCUENTO, IM' +
'E)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CONC' + 'PORTE_PORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETA' +
'EPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_PEDID' + 'LLE, :CONCEPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,' +
'O, '#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)' ' :VALORADO, :ID_PEDIDO,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_' +
'PORTE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -717,6 +743,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datCurrency DataType = datCurrency
@ -792,9 +823,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'D, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE =' + 'D, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE =' +
' :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD =' + ' :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD =' +
' :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISI' + ' :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISI' +
'BLE = :VISIBLE, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ARTICULO = ' + 'BLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_PEDIDO = :ID_P' +
':ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :I' + 'EDIDO, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESCUEN' +
'MPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)' 'TO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID' +
')'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -824,14 +856,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
Value = '' Value = ''
end end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
Value = '' Value = ''
@ -946,13 +970,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_I' + '_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_I' +
'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA)'#10' VA' + 'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA)'#10' VA' +
'LUES'#10' (:USUARIO, :OBSERVACIONES, :REFERENCIA, :ID,'#10' :ID_E' + 'LUES'#10' (:USUARIO, :OBSERVACIONES, :REFERENCIA, :ID,'#10' :ID_E' +
'MPRESA, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :ID_PROVEEDOR, :F' + 'MPRESA, CURRENT_TIMESTAMP,'#10' :ID_PROVEEDOR, :FECHA_ENVIO, :FE' +
'ECHA_ENVIO, :FECHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTR' + 'CHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTREGA, :INCIDENCI' +
'EGA, :INCIDENCIAS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :' + 'AS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :ID_ALMACEN, :CA' +
'ID_ALMACEN, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' ' + 'LLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :PERSONA_CONT' +
' :PERSONA_CONTACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NET' + 'ACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, '#10' :IMPOR' +
'O, '#10' :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_I' + 'TE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, '#10' ' +
'MPONIBLE, '#10' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO, :ID_TIENDA)'#10 ' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO, :ID_TIENDA)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -980,14 +1004,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
Value = '' Value = ''
end end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
Value = '' Value = ''
@ -1099,22 +1115,22 @@ object srvPedidosProveedor: TsrvPedidosProveedor
SQL = SQL =
'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' USUARIO = :USU' + 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' USUARIO = :USU' +
'ARIO, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :RE' + 'ARIO, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :RE' +
'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_' + 'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_MODIFICACION =' +
'ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROV' + ' CURRENT_TIMESTAMP,'#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' FECHA' +
'EEDOR = :ID_PROVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECH' + '_ENVIO = :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FECHA_PEDIDO, '#10' FE' +
'A_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFI' + 'CHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' FECHA_ENTREGA = :FE' +
'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS =' + 'CHA_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' IMPORTE_TOTAL' +
' :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDEN' + ' = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIV' +
'CIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMAC' + 'AS, '#10' ID_ALMACEN = :ID_ALMACEN, '#10' CALLE = :CALLE, '#10' POB' +
'EN, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVI' + 'LACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_PO' +
'NCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PER' + 'STAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO' +
'SONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ' + ', '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_CLIENTE = :ID_PEDIDO' +
' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :' + '_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE ' +
'IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENT' + '= :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESC' +
'O = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' ' + 'UENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBL' +
' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORT' + 'E, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ID_FOR' +
'E_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' I' + 'MA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' ' +
'D_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10 ' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1480,6 +1496,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'PedidosProveedor_REF_PED_CLIENTE' Name = 'PedidosProveedor_REF_PED_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'PedidosProveedor_Detalles_VALORADO'
DataType = datSmallInt
DisplayLabel = 'VALORADO'
end> end>
Left = 88 Left = 88
Top = 152 Top = 152

BIN
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES
View File

Binary file not shown.

40
Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
View File

@ -19,7 +19,6 @@ type
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable); procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
function BuscarCapitulo (const Tipo: String): IBizCapitulo; function BuscarCapitulo (const Tipo: String): IBizCapitulo;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end; end;
TDetallesPresupuestoClienteController = class(TControllerDetallesArticulos, IDetallesPresupuestoClienteController) TDetallesPresupuestoClienteController = class(TControllerDetallesArticulos, IDetallesPresupuestoClienteController)
@ -54,7 +53,6 @@ type
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override; procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end; end;
implementation implementation
@ -260,44 +258,6 @@ begin
end; end;
end; end;
procedure TDetallesPresupuestoClienteController.SetVisible(ADetalles: IDAStronglyTypedDataTable; const AVisible, Orden: Integer);
var
ABookmark : TBookmark;
AuxPosicion: Integer;
AuxEncontrado: Boolean;
begin
AuxPosicion := ADetalles.DataTable.FieldByName(CAMPO_POSICION).AsInteger;
ABookmark := ADetalles.DataTable.GetBookMark;
try
ADetalles.DataTable.DisableControls;
repeat
if (Orden > 0) then
Inc(AuxPosicion)
else
Dec(AuxPosicion);
ADetalles.First;
AuxEncontrado := ADetalles.Locate(CAMPO_POSICION, AuxPosicion, []);
if AuxEncontrado then
begin
ADetalles.DataTable.Edit;
ADetalles.DataTable.FieldByName(CAMPO_VISIBLE).AsInteger := AVisible;
ADetalles.DataTable.Post;
end;
until (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL)
or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO)
or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO_OPCIONAL)
or (AuxEncontrado = False)
finally
ADetalles.DataTable.GotoBookmark(ABookmark);
ADetalles.DataTable.FreeBookmark(ABookmark);
ADetalles.DataTable.EnableControls;
end;
end;
procedure TDetallesPresupuestoClienteController.ValidarCampos(DataTable: TDADataTable); procedure TDetallesPresupuestoClienteController.ValidarCampos(DataTable: TDADataTable);
begin begin
inherited; inherited;

BIN
Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES
View File

Binary file not shown.

11
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -323,6 +323,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
end end
item
Name = 'VALORADO'
DataType = datSmallInt
end
item item
Name = 'ID_ARTICULO' Name = 'ID_ARTICULO'
DataType = datInteger DataType = datInteger
@ -348,6 +352,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255
end> end>
Params = <> Params = <>
MasterMappingMode = mmWhere MasterMappingMode = mmWhere
@ -469,6 +474,12 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datInteger DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_VISIBLE' DisplayLabel = 'CapitulosPresupuesto_VISIBLE'
DictionaryEntry = 'CapitulosPresupuesto_VISIBLE' DictionaryEntry = 'CapitulosPresupuesto_VISIBLE'
end
item
Name = 'VALORADO'
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_VALORADO'
DictionaryEntry = 'CapitulosPresupuesto_VALORADO'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

BIN
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.RES
View File

Binary file not shown.

124
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -3,18 +3,18 @@ unit schPresupuestosClienteClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Valores = '{E16B10D1-C266-4C34-B6B3-F1989F42A69D}'; RID_Valores = '{57C9E146-05FF-4C0B-A29E-9C476B04D60A}';
RID_Propiedades = '{32C1DC73-81A3-4292-9235-BED9E72241DD}'; RID_Propiedades = '{4BE10F7B-91E6-403A-820A-8FE3436FFF07}';
RID_ListaAnosPresupuestos = '{34090E28-8CDD-4F94-8CFE-C253CAC9406C}'; RID_ListaAnosPresupuestos = '{6C734448-3C27-4A94-B5AF-D35DA8B624E9}';
RID_PresupuestosCliente = '{50970F54-A011-4019-9A0B-83FBD7822F82}'; RID_PresupuestosCliente = '{FA8B3E42-3B3B-4A2D-9B62-457CC1471E4D}';
RID_CapitulosPresupuesto = '{0CAADB7F-FAA0-444A-AA5A-D2596E74F088}'; RID_CapitulosPresupuesto = '{BF9749E2-1C81-400F-B33F-218045066EB4}';
RID_PresupuestosCliente_Detalles = '{51062533-EB77-4CF6-ACC4-1FA88E21C0D0}'; RID_PresupuestosCliente_Detalles = '{044A74E5-A3DB-43C5-AC20-3AFB0270950E}';
{ Data table names } { Data table names }
nme_Valores = 'Valores'; nme_Valores = 'Valores';
@ -153,6 +153,7 @@ const
fld_CapitulosPresupuestoIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_CapitulosPresupuestoIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_CapitulosPresupuestoDESCUENTO = 'DESCUENTO'; fld_CapitulosPresupuestoDESCUENTO = 'DESCUENTO';
fld_CapitulosPresupuestoIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_CapitulosPresupuestoIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_CapitulosPresupuestoVALORADO = 'VALORADO';
fld_CapitulosPresupuestoVISIBLE = 'VISIBLE'; fld_CapitulosPresupuestoVISIBLE = 'VISIBLE';
{ CapitulosPresupuesto field indexes } { CapitulosPresupuesto field indexes }
@ -166,7 +167,8 @@ const
idx_CapitulosPresupuestoIMPORTE_TOTAL = 7; idx_CapitulosPresupuestoIMPORTE_TOTAL = 7;
idx_CapitulosPresupuestoDESCUENTO = 8; idx_CapitulosPresupuestoDESCUENTO = 8;
idx_CapitulosPresupuestoIMPORTE_PORTE = 9; idx_CapitulosPresupuestoIMPORTE_PORTE = 9;
idx_CapitulosPresupuestoVISIBLE = 10; idx_CapitulosPresupuestoVALORADO = 10;
idx_CapitulosPresupuestoVISIBLE = 11;
{ PresupuestosCliente_Detalles fields } { PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID'; fld_PresupuestosCliente_DetallesID = 'ID';
@ -178,6 +180,7 @@ const
fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD'; fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PresupuestosCliente_DetallesVALORADO = 'VALORADO';
fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE'; fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE';
fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_PresupuestosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO'; fld_PresupuestosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO';
@ -196,18 +199,19 @@ const
idx_PresupuestosCliente_DetallesCANTIDAD = 6; idx_PresupuestosCliente_DetallesCANTIDAD = 6;
idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7; idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8; idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8;
idx_PresupuestosCliente_DetallesVISIBLE = 9; idx_PresupuestosCliente_DetallesVALORADO = 9;
idx_PresupuestosCliente_DetallesID_ARTICULO = 10; idx_PresupuestosCliente_DetallesVISIBLE = 10;
idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 11; idx_PresupuestosCliente_DetallesID_ARTICULO = 11;
idx_PresupuestosCliente_DetallesDESCUENTO = 12; idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 12;
idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 13; idx_PresupuestosCliente_DetallesDESCUENTO = 13;
idx_PresupuestosCliente_DetallesREFERENCIA = 14; idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 14;
idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 15; idx_PresupuestosCliente_DetallesREFERENCIA = 15;
idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 16;
type type
{ IValores } { IValores }
IValores = interface(IDAStronglyTypedDataTable) IValores = interface(IDAStronglyTypedDataTable)
['{D5CB76A1-9B62-4056-9F89-730A4F31838D}'] ['{462EADE1-2E42-45FD-8E3D-02E41B35A94A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -251,7 +255,7 @@ type
end; end;
{ TValoresDataTableRules } { TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) TValoresDataTableRules = class(TDADataTableRules, IValores)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -302,7 +306,7 @@ type
{ IPropiedades } { IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable) IPropiedades = interface(IDAStronglyTypedDataTable)
['{A512708D-39DE-45D9-A514-EFD79C6FD584}'] ['{A2A973F8-1D1D-4C8F-9371-9B72435227EA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -322,7 +326,7 @@ type
end; end;
{ TPropiedadesDataTableRules } { TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -349,7 +353,7 @@ type
{ IListaAnosPresupuestos } { IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{18B6359D-D371-4068-8A84-3DE897B7E7B8}'] ['{A0D991B4-D303-41B0-BA06-C99C6913390D}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -363,7 +367,7 @@ type
end; end;
{ TListaAnosPresupuestosDataTableRules } { TListaAnosPresupuestosDataTableRules }
TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos) TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -384,7 +388,7 @@ type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{1F9AD51F-1911-49A2-82BE-37DF2D4B2A11}'] ['{722C48BC-8220-4F31-A68C-2FA7552D025C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -640,7 +644,7 @@ type
end; end;
{ TPresupuestosClienteDataTableRules } { TPresupuestosClienteDataTableRules }
TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente) TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
private private
f_FORMA_PAGO: IROStrings; f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings; f_PLAZO_ENTREGA: IROStrings;
@ -911,7 +915,7 @@ type
{ ICapitulosPresupuesto } { ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
['{0D499AEC-C74B-495F-84F1-3FBADEC47C7E}'] ['{409391D9-20DD-496C-8271-7AB8983EA3EF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -953,6 +957,10 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Integer); procedure SetIMPORTE_PORTEValue(const aValue: Integer);
function GetIMPORTE_PORTEIsNull: Boolean; function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
function GetVALORADOValue: Integer;
procedure SetVALORADOValue(const aValue: Integer);
function GetVALORADOIsNull: Boolean;
procedure SetVALORADOIsNull(const aValue: Boolean);
function GetVISIBLEValue: Integer; function GetVISIBLEValue: Integer;
procedure SetVISIBLEValue(const aValue: Integer); procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean; function GetVISIBLEIsNull: Boolean;
@ -980,12 +988,14 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property VALORADO: Integer read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
end; end;
{ TCapitulosPresupuestoDataTableRules } { TCapitulosPresupuestoDataTableRules }
TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto) TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1029,6 +1039,10 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: Integer; virtual;
procedure SetVALORADOValue(const aValue: Integer); virtual;
function GetVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual; function GetVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
@ -1055,6 +1069,8 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property VALORADO: Integer read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
@ -1066,7 +1082,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{AF58312B-DFCD-4038-8B41-696C909BD857}'] ['{E06194DA-C67C-4012-9645-4D98FBD1A65F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1104,6 +1120,10 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean; function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetVALORADOValue: SmallInt;
procedure SetVALORADOValue(const aValue: SmallInt);
function GetVALORADOIsNull: Boolean;
procedure SetVALORADOIsNull(const aValue: Boolean);
function GetVISIBLEValue: SmallInt; function GetVISIBLEValue: SmallInt;
procedure SetVISIBLEValue(const aValue: SmallInt); procedure SetVISIBLEValue(const aValue: SmallInt);
function GetVISIBLEIsNull: Boolean; function GetVISIBLEIsNull: Boolean;
@ -1153,6 +1173,8 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
@ -1170,7 +1192,7 @@ type
end; end;
{ TPresupuestosCliente_DetallesDataTableRules } { TPresupuestosCliente_DetallesDataTableRules }
TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles) TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1210,6 +1232,10 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
function GetVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual; function GetVISIBLEValue: SmallInt; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual; procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
@ -1258,6 +1284,8 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
@ -2645,6 +2673,27 @@ begin
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsVariant := Null; DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsVariant := Null;
end; end;
function TCapitulosPresupuestoDataTableRules.GetVALORADOValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoVALORADO].AsInteger;
end;
procedure TCapitulosPresupuestoDataTableRules.SetVALORADOValue(const aValue: Integer);
begin
DataTable.Fields[idx_CapitulosPresupuestoVALORADO].AsInteger := aValue;
end;
function TCapitulosPresupuestoDataTableRules.GetVALORADOIsNull: boolean;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoVALORADO].IsNull;
end;
procedure TCapitulosPresupuestoDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_CapitulosPresupuestoVALORADO].AsVariant := Null;
end;
function TCapitulosPresupuestoDataTableRules.GetVISIBLEValue: Integer; function TCapitulosPresupuestoDataTableRules.GetVISIBLEValue: Integer;
begin begin
result := DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsInteger; result := DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsInteger;
@ -2867,6 +2916,27 @@ begin
DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null; DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null;
end; end;
function TPresupuestosCliente_DetallesDataTableRules.GetVALORADOValue: SmallInt;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsSmallInt;
end;
procedure TPresupuestosCliente_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsSmallInt := aValue;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetVALORADOIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].IsNull;
end;
procedure TPresupuestosCliente_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsVariant := Null;
end;
function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt; function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
begin begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsSmallInt; result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsSmallInt;

110
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ValoresDelta = '{C002A600-D743-41AD-AB05-509A3CFA752B}'; RID_ValoresDelta = '{0DFF292A-C0F6-4340-B980-2E384A813763}';
RID_PropiedadesDelta = '{F6E80F06-3BE5-4098-929E-88D75164E91E}'; RID_PropiedadesDelta = '{348BD315-BA9C-45E0-A524-85591A47838A}';
RID_ListaAnosPresupuestosDelta = '{B32D0ECD-A7F9-44BC-8F71-68F699493E80}'; RID_ListaAnosPresupuestosDelta = '{CCFE0D8C-377A-4D72-96E7-475EDA12309D}';
RID_PresupuestosClienteDelta = '{4589E19A-FBF6-40BF-8EDC-CDC6CF01A657}'; RID_PresupuestosClienteDelta = '{E6D86574-0DF3-402A-832E-F3706341F88B}';
RID_CapitulosPresupuestoDelta = '{CD65BC24-6D66-463B-8A39-2E83D02E7025}'; RID_CapitulosPresupuestoDelta = '{06A01999-D2F4-4C61-8036-3EB77B4BF57B}';
RID_PresupuestosCliente_DetallesDelta = '{99470627-E8C7-466D-B7C9-2AB76DD558FC}'; RID_PresupuestosCliente_DetallesDelta = '{2820C6A3-C1CB-47CF-94FD-2580C9CE734E}';
type type
{ IValoresDelta } { IValoresDelta }
IValoresDelta = interface(IValores) IValoresDelta = interface(IValores)
['{C002A600-D743-41AD-AB05-509A3CFA752B}'] ['{0DFF292A-C0F6-4340-B980-2E384A813763}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -113,7 +113,7 @@ type
{ IPropiedadesDelta } { IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades) IPropiedadesDelta = interface(IPropiedades)
['{F6E80F06-3BE5-4098-929E-88D75164E91E}'] ['{348BD315-BA9C-45E0-A524-85591A47838A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -159,7 +159,7 @@ type
{ IListaAnosPresupuestosDelta } { IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{B32D0ECD-A7F9-44BC-8F71-68F699493E80}'] ['{CCFE0D8C-377A-4D72-96E7-475EDA12309D}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -193,7 +193,7 @@ type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{4589E19A-FBF6-40BF-8EDC-CDC6CF01A657}'] ['{E6D86574-0DF3-402A-832E-F3706341F88B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -723,7 +723,7 @@ type
{ ICapitulosPresupuestoDelta } { ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
['{CD65BC24-6D66-463B-8A39-2E83D02E7025}'] ['{06A01999-D2F4-4C61-8036-3EB77B4BF57B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer; function GetOldPOSICIONValue : Integer;
@ -735,6 +735,7 @@ type
function GetOldIMPORTE_TOTALValue : Integer; function GetOldIMPORTE_TOTALValue : Integer;
function GetOldDESCUENTOValue : Integer; function GetOldDESCUENTOValue : Integer;
function GetOldIMPORTE_PORTEValue : Integer; function GetOldIMPORTE_PORTEValue : Integer;
function GetOldVALORADOValue : Integer;
function GetOldVISIBLEValue : Integer; function GetOldVISIBLEValue : Integer;
{ Properties } { Properties }
@ -748,6 +749,7 @@ type
property OldIMPORTE_TOTAL : Integer read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Integer read GetOldIMPORTE_TOTALValue;
property OldDESCUENTO : Integer read GetOldDESCUENTOValue; property OldDESCUENTO : Integer read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue;
property OldVALORADO : Integer read GetOldVALORADOValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue; property OldVISIBLE : Integer read GetOldVISIBLEValue;
end; end;
@ -816,6 +818,12 @@ type
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: Integer; virtual;
function GetVALORADOIsNull: Boolean; virtual;
function GetOldVALORADOValue: Integer; virtual;
function GetOldVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOValue(const aValue: Integer); virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual; function GetVISIBLEValue: Integer; virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: Integer; virtual; function GetOldVISIBLEValue: Integer; virtual;
@ -864,6 +872,10 @@ type
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property VALORADO : Integer read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property OldVALORADO : Integer read GetOldVALORADOValue;
property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue; property OldVISIBLE : Integer read GetOldVISIBLEValue;
@ -877,7 +889,7 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{99470627-E8C7-466D-B7C9-2AB76DD558FC}'] ['{2820C6A3-C1CB-47CF-94FD-2580C9CE734E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
@ -888,6 +900,7 @@ type
function GetOldCANTIDADValue : Currency; function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVALORADOValue : SmallInt;
function GetOldVISIBLEValue : SmallInt; function GetOldVISIBLEValue : SmallInt;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldTIPO_ARTICULOValue : String; function GetOldTIPO_ARTICULOValue : String;
@ -906,6 +919,7 @@ type
property OldCANTIDAD : Currency read GetOldCANTIDADValue; property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue; property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
@ -974,6 +988,12 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVALORADOValue: SmallInt; virtual;
function GetVALORADOIsNull: Boolean; virtual;
function GetOldVALORADOValue: SmallInt; virtual;
function GetOldVALORADOIsNull: Boolean; virtual;
procedure SetVALORADOValue(const aValue: SmallInt); virtual;
procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual; function GetVISIBLEValue: SmallInt; virtual;
function GetVISIBLEIsNull: Boolean; virtual; function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: SmallInt; virtual; function GetOldVISIBLEValue: SmallInt; virtual;
@ -1054,6 +1074,10 @@ type
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue; property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
@ -3070,6 +3094,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE] := Null;
end; end;
function TCapitulosPresupuestoBusinessProcessorRules.GetVALORADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVALORADO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVALORADO]);
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldVALORADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoVALORADO];
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoVALORADO]);
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetVALORADOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVALORADO] := aValue;
end;
procedure TCapitulosPresupuestoBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVALORADO] := Null;
end;
function TCapitulosPresupuestoBusinessProcessorRules.GetVISIBLEValue: Integer; function TCapitulosPresupuestoBusinessProcessorRules.GetVISIBLEValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE];
@ -3392,6 +3447,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL] := Null;
end; end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO];
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO]);
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVALORADO];
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVALORADO]);
end;
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO] := aValue;
end;
procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO] := Null;
end;
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt; function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE];

5
Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
View File

@ -98,11 +98,12 @@ begin
end; end;
procedure TBizDetallesPresupuestoCliente.OnNewRecord(Sender: TDADataTable); procedure TBizDetallesPresupuestoCliente.OnNewRecord(Sender: TDADataTable);
var //var
AMasterTable : TDADataTable; // AMasterTable : TDADataTable;
begin begin
inherited; inherited;
VALORADO := 1;
VISIBLE := 1; VISIBLE := 1;
{AMasterTable := DataTable.GetMasterDataTable; {AMasterTable := DataTable.GetMasterDataTable;

BIN
Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.RES
View File

Binary file not shown.

18
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -524,7 +524,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item item
Name = 'ID_PRE_CON' Name = 'ID_PRE_CON'
DataType = datInteger DataType = datInteger
Value = '' Value = '7023'
end> end>
Statements = < Statements = <
item item
@ -595,6 +595,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item item
DatasetField = 'VISIBLE' DatasetField = 'VISIBLE'
TableField = 'VISIBLE' TableField = 'VISIBLE'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end> end>
end> end>
Name = 'Informe_Capitulos_Detalles' Name = 'Informe_Capitulos_Detalles'
@ -660,6 +664,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'VALORADO'
DataType = datSmallInt
end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
@ -1403,6 +1411,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency DataType = datCurrency
end
item
Name = 'VALORADO'
DataType = datSmallInt
end> end>
Params = < Params = <
item item
@ -1624,6 +1636,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
end
item
Name = 'VALORADO'
DataType = datSmallInt
end> end>
Params = < Params = <
item item

79
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -546,9 +546,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
SQL = SQL =
'SELECT'#10' ID, POSICION, TIPO_DETALLE, TIPO_ARTICULO, CONCEPTO,'#10 + 'SELECT'#10' ID, POSICION, TIPO_DETALLE, TIPO_ARTICULO, CONCEPTO,'#10 +
' 1 as CANTIDAD, 0 as IMPORTE_UNIDAD, 0 as IMPORTE_TOTAL, 0 as' + ' 1 as CANTIDAD, 0 as IMPORTE_UNIDAD, 0 as IMPORTE_TOTAL, 0 as' +
' DESCUENTO,'#10' 0 as IMPORTE_PORTE,'#10' 1 as VISIBLE'#10' FROM'#10' ' + ' DESCUENTO,'#10' 0 as IMPORTE_PORTE,'#10' 1 as VISIBLE,'#10' 1 as V' +
'PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE {Where}'#10' order by posici' + 'ALORADO'#10' FROM'#10' PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE {Where' +
'on'#10 '}'#10' order by posicion'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -600,6 +600,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DatasetField = 'VISIBLE' DatasetField = 'VISIBLE'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'VISIBLE' SQLOrigin = 'VISIBLE'
end
item
DatasetField = 'VALORADO'
TableField = '<unknown>'
SQLOrigin = 'VALORADO'
end> end>
end> end>
Name = 'CapitulosPresupuesto' Name = 'CapitulosPresupuesto'
@ -659,6 +664,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_PORTE' DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_PORTE'
end end
item
Name = 'VALORADO'
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_VALORADO'
end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datInteger DataType = datInteger
@ -679,15 +689,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'TOS_CLIENTE_DETALLES.PROPIEDAD, PRESUPUESTOS_CLIENTE_DETALLES.CO' + 'TOS_CLIENTE_DETALLES.PROPIEDAD, PRESUPUESTOS_CLIENTE_DETALLES.CO' +
'NCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CANTIDAD,'#10' PRESUPUESTOS' + 'NCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CANTIDAD,'#10' PRESUPUESTOS' +
'_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_DETALLES.' + '_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_DETALLES.' +
'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE,'#10#10' P' + 'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE,'#10' PR' +
'RESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_D' + 'ESUPUESTOS_CLIENTE_DETALLES.VALORADO,'#10' PRESUPUESTOS_CLIENTE_D' +
'ETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.DESCUEN' + 'ETALLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_ARTICULO' +
'TO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.R' + ','#10' PRESUPUESTOS_CLIENTE_DETALLES.DESCUENTO,'#10' PRESUPUESTOS_' +
'EFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para qu' + 'CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as ' +
'e no fallen los detalles porque los detalles son comunes para la' + 'REFERENCIA_PROVEEDOR /*Es necesario para que no fallen los detal' +
' rama de cliente y de proveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DET' + 'les porque los detalles son comunes para la rama de cliente y de' +
'ALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_AR' + ' proveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTIC' +
'TICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10 'ULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID' +
#10'where {where}'#10'ORDER BY POSICION;'#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -755,6 +766,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
DatasetField = 'PROPIEDAD' DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD' TableField = 'PROPIEDAD'
end
item
DatasetField = 'VALORADO'
TableField = 'VALORADO'
end> end>
end> end>
Name = 'PresupuestosCliente_Detalles' Name = 'PresupuestosCliente_Detalles'
@ -800,6 +815,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'VALORADO'
DataType = datSmallInt
end
item item
Name = 'VISIBLE' Name = 'VISIBLE'
DataType = datSmallInt DataType = datSmallInt
@ -829,6 +848,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -1253,7 +1273,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE' TargetTable = 'PRESUPUESTOS_CLIENTE'
SQL = SQL =
'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' FECHA_PRESU' + 'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' FECHA_PRESU' +
@ -1283,6 +1302,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -1366,12 +1390,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
SQL = SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' + 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' +
'STO, POSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' ' + 'STO, POSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' ' +
' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTIC' + ' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, VALORADO, ID_ARTICULO, ' +
'ULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:I' + 'TIPO_ARTICULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALU' +
'D, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCE' + 'ES'#10' (:ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIED' +
'PTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10 + 'AD, :CONCEPTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, ' +
' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, C' + ':VISIBLE, :VALORADO,'#10' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUEN' +
'URRENT_TIMESTAMP)'#10 'TO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1399,6 +1423,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end end
item item
Params = < Params = <
item
Name = 'VALORADO'
DataType = datSmallInt
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
@ -1488,10 +1517,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'TIPO_DETALLE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' C' + 'TIPO_DETALLE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' C' +
'ONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNI' + 'ONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNI' +
'DAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' + 'DAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_A' + 'VISIBLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_ARTICULO =' +
'RTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPOR' + ' :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENT' +
'TE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIME' + 'O = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_M' +
'STAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10 'ODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1975,6 +2004,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item item
Name = 'CapitulosPresupuesto_VISIBLE' Name = 'CapitulosPresupuesto_VISIBLE'
DataType = datInteger DataType = datInteger
end
item
Name = 'CapitulosPresupuesto_VALORADO'
DataType = datInteger
end> end>
Left = 48 Left = 48
Top = 152 Top = 152

29
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -70,46 +70,47 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
VisibleForCustomization = False VisibleForCustomization = False
end end
inherited cxGridViewVISIBLE: TcxGridDBColumn [5] inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Caption = #191'Valorado?'
Visible = True Visible = True
Width = 30
end end
object cxGridViewPROPIEDAD: TcxGridDBColumn [6] inherited cxGridViewVALORADO: TcxGridDBColumn [6]
Visible = True
end
object cxGridViewPROPIEDAD: TcxGridDBColumn [7]
DataBinding.FieldName = 'PROPIEDAD' DataBinding.FieldName = 'PROPIEDAD'
PropertiesClassName = 'TcxRichEditProperties' PropertiesClassName = 'TcxRichEditProperties'
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
BestFitMaxWidth = 150 BestFitMaxWidth = 64
Width = 29 Width = 64
IsCaptionAssigned = True IsCaptionAssigned = True
end end
inherited cxGridViewREFERENCIA: TcxGridDBColumn [7] inherited cxGridViewREFERENCIA: TcxGridDBColumn [8]
end end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [8] inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [9]
DataBinding.FieldName = '' DataBinding.FieldName = ''
end end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9] inherited cxGridViewDESCRIPCION: TcxGridDBColumn [10]
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
Width = 403 Width = 403
end end
inherited cxGridViewCANTIDAD: TcxGridDBColumn [10] inherited cxGridViewCANTIDAD: TcxGridDBColumn [11]
VisibleForCustomization = False VisibleForCustomization = False
Width = 41 Width = 41
end end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11] inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [12]
VisibleForCustomization = False VisibleForCustomization = False
Width = 56 Width = 56
end end
inherited cxGridViewDESCUENTO: TcxGridDBColumn [12] inherited cxGridViewDESCUENTO: TcxGridDBColumn [13]
Width = 33 Width = 33
end end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13] inherited cxGridViewIMPORTENETO: TcxGridDBColumn [14]
Visible = False Visible = False
VisibleForCustomization = False VisibleForCustomization = False
Width = 29 Width = 29
end end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14] inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [15]
end end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15] inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16]
VisibleForCustomization = False VisibleForCustomization = False
Width = 48 Width = 48
end end

25
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -69,7 +69,6 @@ type
procedure actCapituloVariosExecute(Sender: TObject); procedure actCapituloVariosExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actCapituloImportesExecute(Sender: TObject); procedure actCapituloImportesExecute(Sender: TObject);
procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cxGridViewPROPIEDADGetPropertiesForEdit( procedure cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
@ -240,6 +239,7 @@ end;
procedure TfrViewDetallesPresupuestoCliente.CustomViewDestroy(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.CustomViewDestroy(Sender: TObject);
begin begin
cxGridViewVALORADO.Properties.OnEditValueChanged := Nil;
cxGridViewVISIBLE.Properties.OnEditValueChanged := Nil; cxGridViewVISIBLE.Properties.OnEditValueChanged := Nil;
inherited; inherited;
end; end;
@ -253,8 +253,6 @@ begin
// FPropiedades.DataTable.Active := True; // FPropiedades.DataTable.Active := True;
DAPropiedades.DataTable := FPropiedades.DataTable; DAPropiedades.DataTable := FPropiedades.DataTable;
DAValores.DataTable := FPropiedades.Valores.DataTable; DAValores.DataTable := FPropiedades.Valores.DataTable;
cxGridViewVISIBLE.Properties.OnEditValueChanged := OnVISIBLEPropertiesEditValueChanged;
end; end;
end; end;
@ -300,27 +298,6 @@ begin
AProperties := cxRichEdit1.Properties; AProperties := cxRichEdit1.Properties;
end; end;
procedure TfrViewDetallesPresupuestoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
var
Orden: Integer;
begin
inherited;
Orden := 1;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO_OPCIONAL)
or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
begin
cxGridView.BeginUpdate;
if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
Orden := 0;
(Controller as IDetallesPresupuestoClienteController).SetVisible(Detalles, cxGridView.DataController.GetItemByFieldName(CAMPO_VISIBLE).EditValue, Orden);
cxGridView.EndUpdate;
end;
(Controller as IDetallesPresupuestoClienteController).ActualizarTotales(Detalles);
end;
function TfrViewDetallesPresupuestoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; function TfrViewDetallesPresupuestoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean;
var var
IndiceCol : Integer; IndiceCol : Integer;

BIN
Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/PreCli_ConCli_relation.RES
View File

Binary file not shown.

7
Source/Servidor/Configuracion/srvConfiguracion_Impl.pas
View File

@ -141,8 +141,8 @@ procedure TsrvConfiguracion.GuardarValor(const CODIGO: AnsiString; const Valor:
var var
ACurrentConn : IDAConnection; ACurrentConn : IDAConnection;
ACommand : IDASQLCommand; ACommand : IDASQLCommand;
st: TStringStream; // st: TStringStream;
st2: IROStream; // st2: IROStream;
begin begin
//Creamos la variable de configuración con su valor por defecto //Creamos la variable de configuración con su valor por defecto
@ -181,9 +181,6 @@ procedure TsrvConfiguracion.guardarValorParaEmpresa(const CODIGO: AnsiString;
var var
ACurrentConn : IDAConnection; ACurrentConn : IDAConnection;
ACommand : IDASQLCommand; ACommand : IDASQLCommand;
st: TStringStream;
st2: IROStream;
begin begin
//Creamos la variable de configuración con su valor por defecto //Creamos la variable de configuración con su valor por defecto
ACurrentConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); ACurrentConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);

26
Source/Servidor/FactuGES_Server.dpr
View File

@ -113,20 +113,10 @@ uses
srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService}, srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas', uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente}, uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
@ -136,10 +126,20 @@ uses
schSubfamiliasServer_Intf in '..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas', schSubfamiliasServer_Intf in '..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas'; schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.