From 320ee8860fdeda5c6fa24e4f3e512004010c4d8b Mon Sep 17 00:00:00 2001 From: david Date: Thu, 30 May 2013 14:11:35 +0000 Subject: [PATCH] Tarea #1198 -> Poder decidir si sale o no en el informe una linea detalle (VISIBLE) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@69 93f398dd-4eb6-7a46-baf6-13f46f578da2 --- Database/scripts/factuges.sql | 8 ++ Resources/Iconos/Generales/16x16/Valorado.bmp | Bin 0 -> 1590 bytes Source/Base/Base.dproj | 96 ++++++------- Source/Base/Base.res | Bin 4748 -> 384 bytes .../Controladores/uControllerDetallesBase.pas | 92 ++++++++++++- Source/Base/Utiles/uCalculosUtils.pas | 3 +- Source/Cliente/FactuGES.res | Bin 171984 -> 171984 bytes Source/GUIBase/GUIBase.res | Bin 4748 -> 384 bytes Source/GUIBase/uViewDetallesBase.dfm | 53 +++++++- Source/GUIBase/uViewDetallesBase.pas | 58 ++++++++ Source/Informes/1/InfContratoCliente.fr3 | 4 +- Source/Informes/1/InfFacturaCliente.fr3 | 4 +- Source/Informes/1/InfPresupuestoCliente.fr3 | 4 +- Source/Informes/2/InfContratoCliente.fr3 | 8 +- Source/Informes/2/InfFacturaCliente.fr3 | 2 +- Source/Informes/2/InfPresupuestoCliente.fr3 | 4 +- Source/Informes/3/InfContratoCliente.fr3 | 4 +- Source/Informes/3/InfFacturaCliente.fr3 | 2 +- Source/Informes/3/InfPresupuestoCliente.fr3 | 4 +- Source/Informes/4/InfContratoCliente.fr3 | 4 +- Source/Informes/4/InfFacturaCliente.fr3 | 2 +- Source/Informes/4/InfPresupuestoCliente.fr3 | 4 +- .../Data/uDataModuleAlbaranesCliente.dfm | 7 + .../Model/schAlbaranesClienteClient_Intf.pas | 53 ++++++-- .../Model/schAlbaranesClienteServer_Intf.pas | 55 +++++++- .../Model/uBizDetallesAlbaranCliente.pas | 1 + .../Servidor/srvAlbaranesCliente_Impl.dfm | 52 +++++-- .../Views/uViewAlbaranesCliente.dfm | 10 +- .../Data/uDataModuleAlbaranesProveedor.dfm | 7 + .../schAlbaranesProveedorClient_Intf.pas | 53 ++++++-- .../schAlbaranesProveedorServer_Intf.pas | 51 ++++++- .../Model/uBizDetallesAlbaranProveedor.pas | 1 + .../Servidor/srvAlbaranesProveedor_Impl.dfm | 105 +++++++++------ .../Controller/Articulos_controller.RES | Bin 4748 -> 384 bytes .../Modulos/Articulos/Data/Articulos_data.RES | Bin 4748 -> 384 bytes .../Articulos/Views/Articulos_view.RES | Bin 4748 -> 384 bytes .../Controller/Contactos_controller.RES | Bin 4748 -> 384 bytes .../Modulos/Contactos/Data/Contactos_data.RES | Bin 4748 -> 384 bytes .../Contactos/Model/Contactos_model.RES | Bin 4748 -> 384 bytes .../Contactos/Views/Contactos_view.res | Bin 4748 -> 384 bytes .../ContratosCliente_controller.RES | Bin 4748 -> 384 bytes .../uDetallesContratoClienteController.pas | 7 - .../Data/uDataModuleContratosCliente.dfm | 5 + .../Model/schContratosClienteClient_Intf.pas | 75 ++++++++--- .../Model/schContratosClienteServer_Intf.pas | 71 ++++++++-- .../Model/uBizDetallesContratoCliente.pas | 1 + .../Reports/uRptContratosCliente_Server.dfm | 14 +- .../Servidor/srvContratosCliente_Impl.dfm | 57 +++++--- .../Views/uViewContratosCliente.dfm | 1 + .../Views/uViewDetallesContratoCliente.dfm | 30 ++--- .../Data/uDataModuleFacturasCliente.dfm | 6 + .../Model/schFacturasClienteClient_Intf.pas | 57 ++++++-- .../Model/schFacturasClienteServer_Intf.pas | 55 +++++++- .../Model/uBizDetallesFacturaCliente.pas | 1 + .../Reports/uRptFacturasCliente_Server.dfm | 14 +- .../Servidor/srvFacturasCliente_Impl.dfm | 118 ++++++++-------- .../Data/uDataModuleFacturasProveedor.dfm | 6 + .../Model/schFacturasProveedorClient_Intf.pas | 57 ++++++-- .../Model/schFacturasProveedorServer_Intf.pas | 63 +++++++-- .../Model/uBizDetallesFacturaProveedor.pas | 1 + .../Servidor/srvFacturasProveedor_Impl.dfm | 115 ++++++++-------- .../GestorDocumentos_controller.RES | Bin 4748 -> 384 bytes .../Data/GestorDocumentos_data.RES | Bin 4748 -> 384 bytes .../Controller/GestorInformes_controller.RES | Bin 4748 -> 384 bytes .../Model/schPedidosProveedorClient_Intf.pas | 77 ++++++++--- .../Model/schPedidosProveedorServer_Intf.pas | 75 ++++++++--- .../Model/uBizDetallesPedidoProveedor.pas | 1 + .../Servidor/srvPedidosProveedor_Impl.dfm | 127 ++++++++++-------- .../PresupuestosCliente_controller.RES | Bin 4748 -> 384 bytes .../uDetallesPresupuestoClienteController.pas | 40 ------ .../Data/PresupuestosCliente_data.RES | Bin 4748 -> 384 bytes .../Data/uDataModulePresupuestosCliente.dfm | 11 ++ .../Model/PresupuestosCliente_model.RES | Bin 4748 -> 384 bytes .../schPresupuestosClienteClient_Intf.pas | 124 +++++++++++++---- .../schPresupuestosClienteServer_Intf.pas | 110 +++++++++++++-- .../Model/uBizDetallesPresupuestoCliente.pas | 5 +- .../Plugin/PresupuestosCliente_plugin.RES | Bin 4748 -> 384 bytes .../uRptPresupuestosCliente_Server.dfm | 18 ++- .../Servidor/srvPresupuestosCliente_Impl.dfm | 79 +++++++---- .../Views/uViewDetallesPresupuestoCliente.dfm | 29 ++-- .../Views/uViewDetallesPresupuestoCliente.pas | 25 +--- .../PreCli_ConCli_relation.RES | Bin 4748 -> 384 bytes .../Configuracion/srvConfiguracion_Impl.pas | 7 +- Source/Servidor/FactuGES_Server.dpr | 26 ++-- Source/Servidor/FactuGES_Server.res | Bin 23548 -> 23344 bytes 85 files changed, 1623 insertions(+), 636 deletions(-) create mode 100644 Resources/Iconos/Generales/16x16/Valorado.bmp diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 36fc6da..a3b66ec 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -490,6 +490,7 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES ( IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE, VISIBLE TIPO_BOOLEANO, + VALORADO TIPO_BOOLEANO, FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP ); @@ -544,6 +545,7 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES ( IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE, VISIBLE TIPO_BOOLEANO, + VALORADO TIPO_BOOLEANO, FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP ); @@ -938,6 +940,7 @@ CREATE TABLE FACTURAS_CLIENTE_DETALLES ( IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE, VISIBLE TIPO_BOOLEANO, + VALORADO TIPO_BOOLEANO, FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP ); @@ -993,6 +996,7 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES ( IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE, VISIBLE TIPO_BOOLEANO, + VALORADO TIPO_BOOLEANO, FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP ); @@ -1133,6 +1137,7 @@ CREATE TABLE PEDIDOS_CLIENTE_DETALLES ( IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE, VISIBLE TIPO_BOOLEANO, + VALORADO TIPO_BOOLEANO, FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP ); @@ -1185,6 +1190,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES ( IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE, VISIBLE TIPO_BOOLEANO, + VALORADO TIPO_BOOLEANO, FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP ); @@ -1287,6 +1293,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES ( IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE, VISIBLE TIPO_BOOLEANO, + VALORADO TIPO_BOOLEANO, FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP ); @@ -1350,6 +1357,7 @@ CREATE TABLE CONTRATOS_CLIENTE_DETALLES ( IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_TOTAL TIPO_IMPORTE, VISIBLE TIPO_BOOLEANO, + VALORADO TIPO_BOOLEANO, FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP ); diff --git a/Resources/Iconos/Generales/16x16/Valorado.bmp b/Resources/Iconos/Generales/16x16/Valorado.bmp new file mode 100644 index 0000000000000000000000000000000000000000..7c25b304ff3fdd4451f7e6603b0730623bbfb9a0 GIT binary patch literal 1590 zcmdT@YfM^q6lWi{HQSeMNwa-v)9%A;+I};dXkv_e*v71x)n;~X6OE0a_;$mn6BW@Y zRn$2r3=kDtDG-E~pp=b=_~0c7_i`^!2cp4EH?c8nCMI{M`pvBUxMU~yoZNfv`Jcz{ z{Qe)_N`H-XBI#hSfL;Q93-lGzdtgD}|2uD<>ZyZ7BK~u+TCM&4{jII7RaI3L6&2Id z(=Ts9>fEjwp8A}{&1xP>tsU)usC{|7P$=Bq-VOu;TCG;0P?VRKudS_x!{Ha5`cfLu z6NLDfC<_vwt`isPW>%aC{%h<-@%#Jxd_KRiv9Y$cwyv(Ol&F4pmtqWN&f=F_)Yn*#3sB-SmKfpz1P+JO($dn=(b3h_#bh!8^M;0o zzP`S}!9nnhkB@&{W@1fB5P~YP%$RYWX99D{XY? zrYw}w^y5X^*lltZ@7od_$B&MVHa0f4wzdHC)z#IJkrA0pHa0d!qtOZq3Q9{$<#IWf z%N-aPfThQ=^}mjjt^;2%5nkJMYh#ZKB}3ndmWbE?2iQB&rS7(SKj*-it z1cO0`!@=Y6=yW=?2dlJLEMQkwR`hzk(P%6xDgtC+F11?S+uNJKFzuH4iwOIQi=1Y- zyRc&rxD%W>(HjeSte7Fnn>$KeH=;$Hte;PAi za27L`*bq-rlCn&hX-ikrb=S$3JLlDJl-Y}!`unf)UVr2kYS?V(89)HGOioTh!$6+B zy**$~cXzkb>4aH;nL3?LDwT@GV#vRPtj}(!^+}ZO84@B7(0xbz?@iVw~y=`9*+lBU^1EPb~~&9=mg9Mg4t{~nB@S+ z7yoe9#DBUOYR`7i)PK5Ehpw5#B7aZwC}9?Ds#7$d+_K-xF&EBnFUY$(035H^3ujRj zg_q^!WwY4~%LReC0Dq_mwV)6%VPaw;>@Y`hrv)?m0}d>_ruS-pM&^yE&V=f8>rZq} zl^?S#+to`} MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Base/Controladores/uControllerDetallesBase.pas b/Source/Base/Controladores/uControllerDetallesBase.pas index 61eea82..f54b946 100644 --- a/Source/Base/Controladores/uControllerDetallesBase.pas +++ b/Source/Base/Controladores/uControllerDetallesBase.pas @@ -37,6 +37,9 @@ type function DarListaTiposDetalle: TStringList; 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; TControllerDetallesBase = class (TSujeto, IControllerDetallesBase) @@ -95,6 +98,10 @@ type // Comprueba que todos los detalles del documento tengan un tipo_detalle asignado, // además de que los capitulos tengan su subtotal de cierre 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; @@ -119,13 +126,14 @@ procedure TControllerDetallesBase.Add(ADataTable: IDAStronglyTypedDataTable; Tip var AuxNumOrden : Integer; AuxVisible : Variant; - + AuxValorado : Variant; begin BeginUpdate(ADataTable); try with ADataTable do begin AuxVisible := DataTable.FieldByName(CAMPO_VISIBLE).AsVariant; + AuxValorado := DataTable.FieldByName(CAMPO_VALORADO).AsVariant; AuxNumOrden := desplazarNPosiciones(DataTable, DataTable.FieldByName(CAMPO_POSICION).AsVariant, 1); DataTable.Insert; @@ -133,6 +141,8 @@ begin DataTable.FieldByName(CAMPO_TIPO).AsVariant := TipoConcepto; if not VarIsNull(AuxVisible) then DataTable.FieldByName(CAMPO_VISIBLE).AsInteger := AuxVisible; + if not VarIsNull(AuxValorado) then + DataTable.FieldByName(CAMPO_VALORADO).AsInteger := AuxValorado; DataTable.post; end; finally @@ -227,7 +237,7 @@ begin begin if Modificar then 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 end //HIJOS @@ -598,6 +608,84 @@ begin 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); begin with DataTable do diff --git a/Source/Base/Utiles/uCalculosUtils.pas b/Source/Base/Utiles/uCalculosUtils.pas index 303d473..728cdd2 100644 --- a/Source/Base/Utiles/uCalculosUtils.pas +++ b/Source/Base/Utiles/uCalculosUtils.pas @@ -16,7 +16,8 @@ const CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL'; CAMPO_DESCUENTO = 'DESCUENTO'; 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; procedure ValidarCamposLineaConcepto(DataTable: TDADataTable); diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index bccd6fc3239be1faeb43198aee0fca748e62f0f5..92ce79f972111dbf317ad79fbb837b9bbed7a35c 100644 GIT binary patch delta 42 xcmcbxpXYrJf_(|s&zh-Hvk_c4H5tV diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/GUIBase/uViewDetallesBase.dfm b/Source/GUIBase/uViewDetallesBase.dfm index 9046ff5..e84bc37 100644 --- a/Source/GUIBase/uViewDetallesBase.dfm +++ b/Source/GUIBase/uViewDetallesBase.dfm @@ -221,7 +221,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase PropertiesClassName = 'TcxImageComboBoxProperties' Properties.ImmediatePost = True Properties.Items = <> - BestFitMaxWidth = 64 + BestFitMaxWidth = 35 Width = 35 end object cxGridViewDESCRIPCION: TcxGridDBColumn @@ -267,6 +267,55 @@ inherited frViewDetallesBase: TfrViewDetallesBase Properties.Alignment = taCenter Properties.DisplayChecked = '1' 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 = { 36060000424D3606000000000000360000002800000020000000100000000100 18000000000000060000120B0000120B00000000000000000000FFFFFFFFFFFF @@ -324,8 +373,10 @@ inherited frViewDetallesBase: TfrViewDetallesBase Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 Visible = False + BestFitMaxWidth = 25 FooterAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter + VisibleForCustomization = False Width = 25 end end diff --git a/Source/GUIBase/uViewDetallesBase.pas b/Source/GUIBase/uViewDetallesBase.pas index 35caeea..589e74c 100644 --- a/Source/GUIBase/uViewDetallesBase.pas +++ b/Source/GUIBase/uViewDetallesBase.pas @@ -108,6 +108,7 @@ type TBXItem13: TTBXItem; cxStyle_DESCUENTO: TcxStyle; cxStyleDesactivado: TcxStyle; + cxGridViewVALORADO: TcxGridDBColumn; procedure actAnadirExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject); @@ -125,6 +126,7 @@ type procedure FontEdit1BeforeExecute(Sender: TObject); procedure FontEdit1Accept(Sender: TObject); + procedure CustomViewShow(Sender: TObject); procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure FontSizeChange(Sender: TObject); @@ -161,6 +163,8 @@ type function darListaSeleccionados: TIntegerArray; procedure TratamientoTeclas(Key: Word; Shift: TShiftState; AItem: TcxCustomGridTableItem = nil); + procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject); + procedure OnVALORADOPropertiesEditValueChanged(Sender: TObject); protected function HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean; virtual; function EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; virtual; @@ -348,6 +352,16 @@ procedure TfrViewDetallesBase.CustomViewDestroy(Sender: TObject); begin inherited; 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; procedure TfrViewDetallesBase.cxGridViewEditing(Sender: TcxCustomGridTableView; @@ -819,4 +833,48 @@ begin 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. diff --git a/Source/Informes/1/InfContratoCliente.fr3 b/Source/Informes/1/InfContratoCliente.fr3 index 0817ed3..47727c5 100644 --- a/Source/Informes/1/InfContratoCliente.fr3 +++ b/Source/Informes/1/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -16,7 +16,7 @@ - + diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3 index 4ab4cda..4b419d9 100644 --- a/Source/Informes/1/InfFacturaCliente.fr3 +++ b/Source/Informes/1/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -66,7 +66,7 @@ - + diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3 index 98ee709..8932bf0 100644 --- a/Source/Informes/1/InfPresupuestoCliente.fr3 +++ b/Source/Informes/1/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -16,7 +16,7 @@ - + diff --git a/Source/Informes/2/InfContratoCliente.fr3 b/Source/Informes/2/InfContratoCliente.fr3 index 9ec7209..72f819b 100644 --- a/Source/Informes/2/InfContratoCliente.fr3 +++ b/Source/Informes/2/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -18,7 +18,7 @@ - + @@ -65,13 +65,13 @@ - + - + diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3 index 36c5815..aa31135 100644 --- a/Source/Informes/2/InfFacturaCliente.fr3 +++ b/Source/Informes/2/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + diff --git a/Source/Informes/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3 index eb54b34..9b0bcc6 100644 --- a/Source/Informes/2/InfPresupuestoCliente.fr3 +++ b/Source/Informes/2/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -18,7 +18,7 @@ - + diff --git a/Source/Informes/3/InfContratoCliente.fr3 b/Source/Informes/3/InfContratoCliente.fr3 index 3a0f808..6ca214e 100644 --- a/Source/Informes/3/InfContratoCliente.fr3 +++ b/Source/Informes/3/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -18,7 +18,7 @@ - + diff --git a/Source/Informes/3/InfFacturaCliente.fr3 b/Source/Informes/3/InfFacturaCliente.fr3 index 545036b..58af16c 100644 --- a/Source/Informes/3/InfFacturaCliente.fr3 +++ b/Source/Informes/3/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + diff --git a/Source/Informes/3/InfPresupuestoCliente.fr3 b/Source/Informes/3/InfPresupuestoCliente.fr3 index eb54b34..3d0e5fd 100644 --- a/Source/Informes/3/InfPresupuestoCliente.fr3 +++ b/Source/Informes/3/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -18,7 +18,7 @@ - + diff --git a/Source/Informes/4/InfContratoCliente.fr3 b/Source/Informes/4/InfContratoCliente.fr3 index b13f60d..1795779 100644 --- a/Source/Informes/4/InfContratoCliente.fr3 +++ b/Source/Informes/4/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -16,7 +16,7 @@ - + diff --git a/Source/Informes/4/InfFacturaCliente.fr3 b/Source/Informes/4/InfFacturaCliente.fr3 index 6f26fae..89e8ce0 100644 --- a/Source/Informes/4/InfFacturaCliente.fr3 +++ b/Source/Informes/4/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + diff --git a/Source/Informes/4/InfPresupuestoCliente.fr3 b/Source/Informes/4/InfPresupuestoCliente.fr3 index a3618c4..7439ec8 100644 --- a/Source/Informes/4/InfPresupuestoCliente.fr3 +++ b/Source/Informes/4/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -16,7 +16,7 @@ - + diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm index c49c729..27c894d 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm @@ -398,8 +398,15 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente item Name = 'VISIBLE' DataType = datInteger + DisplayLabel = #191'Visible?' DictionaryEntry = 'AlbaranesCliente_Detalles_VISIBLE' end + item + Name = 'VALORADO' + DataType = datSmallInt + DisplayLabel = #191'Valorado?' + DictionaryEntry = 'AlbaranesCliente_Detalles_VALORADO' + end item Name = 'ID_ARTICULO' DataType = datInteger diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas index 845a062..f479573 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas @@ -9,9 +9,9 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosAlbaranes = '{B52C00C6-FE82-4F51-81FA-B4FF1B82A203}'; - RID_AlbaranesCliente = '{34BC09FF-5B71-4550-8CB0-1DA569B133D7}'; - RID_AlbaranesCliente_Detalles = '{86D6C469-278B-4655-A28C-3359D8812BB1}'; + RID_ListaAnosAlbaranes = '{DB65F866-8E50-42B2-827F-521E6CFD9736}'; + RID_AlbaranesCliente = '{2F713114-4AE3-47F8-815B-6ED7EC03D5B4}'; + RID_AlbaranesCliente_Detalles = '{42ABF8C9-71ED-4ECD-8C0C-E8E0D332B5DD}'; { Data table names } nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; @@ -128,6 +128,7 @@ const fld_AlbaranesCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_AlbaranesCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_AlbaranesCliente_DetallesVISIBLE = 'VISIBLE'; + fld_AlbaranesCliente_DetallesVALORADO = 'VALORADO'; fld_AlbaranesCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_AlbaranesCliente_DetallesREFERENCIA = 'REFERENCIA'; fld_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; @@ -144,14 +145,15 @@ const idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 8; idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 9; idx_AlbaranesCliente_DetallesVISIBLE = 10; - idx_AlbaranesCliente_DetallesID_ARTICULO = 11; - idx_AlbaranesCliente_DetallesREFERENCIA = 12; - idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 13; + idx_AlbaranesCliente_DetallesVALORADO = 11; + idx_AlbaranesCliente_DetallesID_ARTICULO = 12; + idx_AlbaranesCliente_DetallesREFERENCIA = 13; + idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 14; type { IListaAnosAlbaranes } IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) - ['{88848224-91B5-41B0-A2FC-54BCF8BF5AE8}'] + ['{ABC86BBD-9620-4CC8-A034-528DED051BE9}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -186,7 +188,7 @@ type { IAlbaranesCliente } IAlbaranesCliente = interface(IDAStronglyTypedDataTable) - ['{DFD09690-9B1D-4BE5-9101-46589DF1E88E}'] + ['{E435B394-38E9-4AC4-A4D4-E1DC178C1FB4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -737,7 +739,7 @@ type { IAlbaranesCliente_Detalles } IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{B45193BD-105D-44E3-AF4D-BB43F4A1D1CA}'] + ['{D2940820-F9DD-42ED-ABF8-B5DF56546C12}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -783,6 +785,10 @@ type procedure SetVISIBLEValue(const aValue: Integer); function GetVISIBLEIsNull: 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; procedure SetID_ARTICULOValue(const aValue: Integer); function GetID_ARTICULOIsNull: Boolean; @@ -820,6 +826,8 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; 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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; @@ -877,6 +885,10 @@ type procedure SetVISIBLEValue(const aValue: Integer); virtual; function GetVISIBLEIsNull: 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; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetID_ARTICULOIsNull: Boolean; virtual; @@ -913,6 +925,8 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; 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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; @@ -2153,6 +2167,27 @@ begin DataTable.Fields[idx_AlbaranesCliente_DetallesVISIBLE].AsVariant := Null; 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; begin result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO].AsInteger; diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas index 5be1a8e..6046718 100644 --- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas +++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosAlbaranesDelta = '{D19A666D-8DA1-4DA3-9C5E-70934F26B596}'; - RID_AlbaranesClienteDelta = '{EC9EB4AE-4745-4CE3-83EB-C57CAA4CCFCD}'; - RID_AlbaranesCliente_DetallesDelta = '{0B383F46-915A-4744-915D-0986E32003B3}'; + RID_ListaAnosAlbaranesDelta = '{0602292C-AA68-424A-991B-04CE60D0A195}'; + RID_AlbaranesClienteDelta = '{74B6E7D9-BE60-45A7-B8FA-4865D7EE369D}'; + RID_AlbaranesCliente_DetallesDelta = '{DCFA7477-810D-466A-9C22-B70882CA6F4B}'; type { IListaAnosAlbaranesDelta } IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) - ['{D19A666D-8DA1-4DA3-9C5E-70934F26B596}'] + ['{0602292C-AA68-424A-991B-04CE60D0A195}'] { Property getters and setters } function GetOldANOValue : String; @@ -50,7 +50,7 @@ type { IAlbaranesClienteDelta } IAlbaranesClienteDelta = interface(IAlbaranesCliente) - ['{EC9EB4AE-4745-4CE3-83EB-C57CAA4CCFCD}'] + ['{74B6E7D9-BE60-45A7-B8FA-4865D7EE369D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -602,7 +602,7 @@ type { IAlbaranesCliente_DetallesDelta } IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) - ['{0B383F46-915A-4744-915D-0986E32003B3}'] + ['{DCFA7477-810D-466A-9C22-B70882CA6F4B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -615,6 +615,7 @@ type function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldVISIBLEValue : Integer; + function GetOldVALORADOValue : SmallInt; function GetOldID_ARTICULOValue : Integer; function GetOldREFERENCIAValue : String; function GetOldREFERENCIA_PROVEEDORValue : String; @@ -631,6 +632,7 @@ type property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldVISIBLE : Integer read GetOldVISIBLEValue; + property OldVALORADO : SmallInt read GetOldVALORADOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; @@ -707,6 +709,12 @@ type function GetOldVISIBLEIsNull: Boolean; virtual; procedure SetVISIBLEValue(const aValue: Integer); 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_ARTICULOIsNull: Boolean; virtual; function GetOldID_ARTICULOValue: Integer; virtual; @@ -771,6 +779,10 @@ type property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property OldVISIBLE : Integer read GetOldVISIBLEValue; 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_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; @@ -2580,6 +2592,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVISIBLE] := Null; 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; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO]; diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas index c8481bd..8130134 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas @@ -41,6 +41,7 @@ procedure TBizDetallesAlbaranCliente.OnNewRecord(Sender: TDADataTable); begin inherited; VISIBLE := 1; + VALORADO := 1; end; initialization diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index 434c5b4..0dd6fc0 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -489,11 +489,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente 'LIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.DESCU' + 'ENTO,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_PORTE, ALBARANES_CL' + 'IENTE_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VIS' + - 'IBLE,'#10' ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFE' + - 'RENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ' + - 'ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIE' + - 'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY P' + - 'OSICION;'#10#10 + 'IBLE, ALBARANES_CLIENTE_DETALLES.VALORADO,'#10' ALBARANES_CLIENTE' + + '_DETALLES.ID_ARTICULO, ARTICULOS.REFERENCIA, ARTICULOS.REFERENCI' + + 'A_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10 + + 'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ' + + 'ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10 StatementType = stSQL ColumnMappings = < item @@ -553,6 +553,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente DatasetField = 'REFERENCIA_PROVEEDOR' TableField = '' SQLOrigin = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'AlbaranesCliente_Detalles' @@ -616,6 +620,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente DataType = datInteger DictionaryEntry = 'AlbaranesCliente_Detalles_VISIBLE' end + item + Name = 'VALORADO' + DataType = datSmallInt + DisplayLabel = #191'Valorado?' + end item Name = 'ID_ARTICULO' DataType = datInteger @@ -625,11 +634,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Name = 'REFERENCIA' DataType = datString Size = 255 + DictionaryEntry = 'AlbaranesCliente_Detalles_REFERENCIA' end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 + DictionaryEntry = 'AlbaranesCliente_Detalles_REFERENCIA_PROVEEDOR' end> end> JoinDataTables = <> @@ -1095,6 +1106,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'ID' DataType = datAutoInc @@ -1139,6 +1155,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente end item Name = 'VISIBLE' + DataType = datSmallInt Value = '' end item @@ -1153,10 +1170,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente SQL = 'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' + 'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, D' + - 'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VISIBLE, ID_ARTICU' + - 'LO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :POSICION, :TIPO_DETALLE, :C' + - 'ONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_P' + - 'ORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :ID_ARTICULO)'#10 + 'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VISIBLE, VALORADO,' + + ' ID_ARTICULO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :POSICION, :TIPO_D' + + 'ETALLE, :CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :DESCUENTO, ' + + ':IMPORTE_PORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :VALORADO, :ID_A' + + 'RTICULO)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1184,6 +1202,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'ID' Value = '' @@ -1226,6 +1249,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente end item Name = 'VISIBLE' + DataType = datSmallInt Value = '' end item @@ -1247,8 +1271,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente 'E = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :C' + 'ANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO =' + ' :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' IMPORTE_T' + - 'OTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO' + - ' = :ID_ARTICULO'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'OTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' VALORADO = ' + + ':VALORADO,'#10' ID_ARTICULO = :ID_ARTICULO'#10' WHERE'#10' (ID = :OLD' + + '_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1685,6 +1710,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente DataType = datString Size = 255 ServerAutoRefresh = True + end + item + Name = 'AlbaranesCliente_Detalles_VALORADO' + DataType = datSmallInt + DisplayLabel = 'VALORADO' end> Left = 48 Top = 136 diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm index e7d51fe..aa05c48 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm @@ -74,6 +74,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn Caption = 'Ref. Cliente' DataBinding.FieldName = 'REFERENCIA_CLIENTE' + BestFitMaxWidth = 45 end object cxGridViewSITUACION: TcxGridDBColumn DataBinding.FieldName = 'SITUACION' @@ -90,7 +91,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente object cxGridViewNOMBRE: TcxGridDBColumn Caption = 'Cliente' DataBinding.FieldName = 'NOMBRE' - BestFitMaxWidth = 120 Width = 119 end object cxGridViewREF_PEDIDO: TcxGridDBColumn @@ -129,28 +129,32 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn DataBinding.FieldName = 'NOMBRE_ALMACEN' Visible = False + BestFitMaxWidth = 120 VisibleForCustomization = False Width = 63 end object cxGridViewCALLE: TcxGridDBColumn DataBinding.FieldName = 'CALLE' Visible = False + BestFitMaxWidth = 120 VisibleForCustomization = False end object cxGridViewCODIGO_POSTAL: TcxGridDBColumn DataBinding.FieldName = 'CODIGO_POSTAL' Visible = False - BestFitMaxWidth = 45 + BestFitMaxWidth = 35 VisibleForCustomization = False end object cxGridViewPOBLACION: TcxGridDBColumn DataBinding.FieldName = 'POBLACION' Visible = False + BestFitMaxWidth = 45 VisibleForCustomization = False end object cxGridViewPROVINCIA: TcxGridDBColumn DataBinding.FieldName = 'PROVINCIA' Visible = False + BestFitMaxWidth = 35 VisibleForCustomization = False end object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn @@ -161,6 +165,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente object cxGridViewTELEFONO: TcxGridDBColumn DataBinding.FieldName = 'TELEFONO' Visible = False + BestFitMaxWidth = 25 VisibleForCustomization = False end object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn @@ -168,6 +173,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente DataBinding.FieldName = 'IMPORTE_TOTAL' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify + BestFitMaxWidth = 65 FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify end diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm index ddb87fb..4a7dce2 100644 --- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm @@ -340,8 +340,15 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor item Name = 'VISIBLE' DataType = datInteger + DisplayLabel = #191'Visible?' DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE' end + item + Name = 'VALORADO' + DataType = datSmallInt + DisplayLabel = #191'Valorado?' + DictionaryEntry = 'AlbaranesProveedor_Detalles_VALORADO' + end item Name = 'ID_ARTICULO' DataType = datInteger diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas index 9f240ee..140745e 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas @@ -9,8 +9,8 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_AlbaranesProveedor = '{FC51EA41-4822-47DC-9EA6-8A81B75EEBF0}'; - RID_AlbaranesProveedor_Detalles = '{D33B5B6F-E114-4A97-B524-94872D62277C}'; + RID_AlbaranesProveedor = '{1E801569-2CD6-4113-B218-09209700C928}'; + RID_AlbaranesProveedor_Detalles = '{A5F2BEF7-E6DC-4967-9F2C-C51DEE97793F}'; { Data table names } nme_AlbaranesProveedor = 'AlbaranesProveedor'; @@ -108,6 +108,7 @@ const fld_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_AlbaranesProveedor_DetallesVISIBLE = 'VISIBLE'; + fld_AlbaranesProveedor_DetallesVALORADO = 'VALORADO'; fld_AlbaranesProveedor_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_AlbaranesProveedor_DetallesDESCUENTO = 'DESCUENTO'; fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; @@ -124,16 +125,17 @@ const idx_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 6; idx_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 7; idx_AlbaranesProveedor_DetallesVISIBLE = 8; - idx_AlbaranesProveedor_DetallesID_ARTICULO = 9; - idx_AlbaranesProveedor_DetallesDESCUENTO = 10; - idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 11; - idx_AlbaranesProveedor_DetallesREFERENCIA = 12; - idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 13; + idx_AlbaranesProveedor_DetallesVALORADO = 9; + idx_AlbaranesProveedor_DetallesID_ARTICULO = 10; + idx_AlbaranesProveedor_DetallesDESCUENTO = 11; + idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 12; + idx_AlbaranesProveedor_DetallesREFERENCIA = 13; + idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 14; type { IAlbaranesProveedor } IAlbaranesProveedor = interface(IDAStronglyTypedDataTable) - ['{5166113D-4E31-4A0E-9B2A-D95DE1724A0C}'] + ['{EFC4EBE0-095B-4FBA-99C6-0287ED6D0BDA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -624,7 +626,7 @@ type { IAlbaranesProveedor_Detalles } IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{4589DE0C-CDAD-4373-B7D2-D433C4DED5BF}'] + ['{705D9343-91B7-4253-BDF1-36D4D961E8C0}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -662,6 +664,10 @@ type procedure SetVISIBLEValue(const aValue: Integer); function GetVISIBLEIsNull: 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; procedure SetID_ARTICULOValue(const aValue: Integer); function GetID_ARTICULOIsNull: Boolean; @@ -703,6 +709,8 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; 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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; @@ -756,6 +764,10 @@ type procedure SetVISIBLEValue(const aValue: Integer); virtual; function GetVISIBLEIsNull: 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; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetID_ARTICULOIsNull: Boolean; virtual; @@ -796,6 +808,8 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; 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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; @@ -1860,6 +1874,27 @@ begin DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsVariant := Null; 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; begin result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger; diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas index 7e85495..bc35c41 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas @@ -9,13 +9,13 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_AlbaranesProveedorDelta = '{C93949D2-C150-41AD-8520-FBC50DBA7ECD}'; - RID_AlbaranesProveedor_DetallesDelta = '{EC66A666-6CC9-4784-ABF0-3B63D981C24E}'; + RID_AlbaranesProveedorDelta = '{BA8F235B-7272-4906-8F91-BAADFA6E83F1}'; + RID_AlbaranesProveedor_DetallesDelta = '{A16CF249-AB5E-4C53-B1FC-E20C7148D9C4}'; type { IAlbaranesProveedorDelta } IAlbaranesProveedorDelta = interface(IAlbaranesProveedor) - ['{C93949D2-C150-41AD-8520-FBC50DBA7ECD}'] + ['{BA8F235B-7272-4906-8F91-BAADFA6E83F1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -507,7 +507,7 @@ type { IAlbaranesProveedor_DetallesDelta } IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles) - ['{EC66A666-6CC9-4784-ABF0-3B63D981C24E}'] + ['{A16CF249-AB5E-4C53-B1FC-E20C7148D9C4}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; @@ -518,6 +518,7 @@ type function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldVISIBLEValue : Integer; + function GetOldVALORADOValue : SmallInt; function GetOldID_ARTICULOValue : Integer; function GetOldDESCUENTOValue : Float; function GetOldIMPORTE_PORTEValue : Currency; @@ -534,6 +535,7 @@ type property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldVISIBLE : Integer read GetOldVISIBLEValue; + property OldVALORADO : SmallInt read GetOldVALORADOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; @@ -600,6 +602,12 @@ type function GetOldVISIBLEIsNull: Boolean; virtual; procedure SetVISIBLEValue(const aValue: Integer); 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_ARTICULOIsNull: Boolean; virtual; function GetOldID_ARTICULOValue: Integer; virtual; @@ -668,6 +676,10 @@ type property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property OldVISIBLE : Integer read GetOldVISIBLEValue; 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_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; @@ -2225,6 +2237,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := Null; 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; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]; diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas index d801df7..8851c65 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas @@ -31,6 +31,7 @@ procedure TBizDetallesAlbaranProveedor.OnNewRecord(Sender: TDADataTable); begin inherited; VISIBLE := 1; + VALORADO := 1; end; procedure TBizDetallesAlbaranProveedor.BeforeInsert(Sender: TDADataTable); diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm index 3ee3242..97510e8 100644 --- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm +++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm @@ -404,12 +404,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor 'OR_DETALLES.CONCEPTO, ALBARANES_PROVEEDOR_DETALLES.CANTIDAD,'#10' ' + ' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, ALBARANES_PROVEEDO' + 'R_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_PROVEEDOR_DETALLES.VISIB' + - 'LE,'#10#10' ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PRO' + - 'VEEDOR_DETALLES.DESCUENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPO' + - 'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV a' + - 's REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT J' + - 'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' + - 'CULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10 + 'LE,'#10' ALBARANES_PROVEEDOR_DETALLES.VALORADO,'#10' ALBARANES_PRO' + + 'VEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESCUE' + + 'NTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICUL' + + 'OS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR' + + #10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBAR' + + 'ANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}' + + #10'ORDER BY POSICION;'#10 StatementType = stSQL ColumnMappings = < item @@ -469,6 +470,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DatasetField = 'REFERENCIA_PROVEEDOR' TableField = '' SQLOrigin = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'AlbaranesProveedor_Detalles' @@ -523,6 +528,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DataType = datInteger DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE' end + item + Name = 'VALORADO' + DataType = datSmallInt + DictionaryEntry = 'AlbaranesProveedor_Detalles_VALORADO' + end item Name = 'ID_ARTICULO' DataType = datInteger @@ -702,18 +712,18 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor 'IA,'#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' ' + 'DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' + 'IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCI' + - 'AS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,' + - #10' ID_ALMACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORT' + - 'E_PORTE,'#10' ID_TIENDA)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' ' + - ' :ID_PROVEEDOR,'#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACT' + - 'URA,'#10' :TIPO,'#10' :REFERENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' ' + - ':REF_FACTURA_PROV,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACIO' + - 'N,'#10' :PROVINCIA,'#10' :PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BA' + - 'SE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10 + - ' :IMPORTE_IVA,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :I' + - 'NCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECH' + - 'A_MODIFICACION,'#10' :USUARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAG' + - 'O,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :ID_TIENDA);'#10 + 'AS_ACTIVAS,'#10' FECHA_ALTA,'#10' USUARIO,'#10' ID_ALMACEN,'#10' ID_' + + 'FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ID_TIENDA)'#10 + + ' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' :FEC' + + 'HA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,'#10' :REF' + + 'ERENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :' + + 'CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :' + + 'PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCU' + + 'ENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :I' + + 'MPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDEN' + + 'CIAS_ACTIVAS,'#10' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' :ID_ALMAC' + + 'EN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' ' + + ' :ID_TIENDA);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -835,14 +845,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Name = 'INCIDENCIAS_ACTIVAS' Value = '' end - item - Name = 'FECHA_ALTA' - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - Value = '' - end item Name = 'USUARIO' Value = '' @@ -888,12 +890,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor #10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' ' + ' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' + #10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENC' + - 'IAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_A' + - 'LTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION,' + - #10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FO' + - 'RMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' + - ' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ID_TIENDA = :ID_TIENDA'#10' WH' + - 'ERE'#10' (ID = :OLD_ID);'#10 + 'IAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_M' + + 'ODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' ID_' + + 'ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' I' + + 'MPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,' + + #10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -901,6 +902,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'CANTIDAD' Value = '' @@ -958,10 +964,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor SQL = 'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' + 'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IMPORTE_TOT' + - 'AL, VISIBLE, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PO' + - 'RTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CO' + - 'NCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_ALBA' + - 'RAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10 + 'AL, VISIBLE, VALORADO, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, ' + + 'IMPORTE_PORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DE' + + 'TALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE' + + ', :VALORADO, :ID_ALBARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORT' + + 'E_PORTE)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -987,6 +994,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'CANTIDAD' Value = '' @@ -1048,9 +1060,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor 'DAD, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE' + ' = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD' + ' = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VI' + - 'SIBLE = :VISIBLE, '#10' ID_ALBARAN = :ID_ALBARAN,'#10' ID_ARTICULO' + - ' = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE =' + - ' :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)' + 'SIBLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_ALBARAN = :I' + + 'D_ALBARAN,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESC' + + 'UENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD' + + '_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1471,6 +1484,20 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DataType = datString Size = 255 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> Left = 48 Top = 128 diff --git a/Source/Modulos/Articulos/Controller/Articulos_controller.RES b/Source/Modulos/Articulos/Controller/Articulos_controller.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Articulos/Data/Articulos_data.RES b/Source/Modulos/Articulos/Data/Articulos_data.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Articulos/Views/Articulos_view.RES b/Source/Modulos/Articulos/Views/Articulos_view.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.RES b/Source/Modulos/Contactos/Controller/Contactos_controller.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Contactos/Data/Contactos_data.RES b/Source/Modulos/Contactos/Data/Contactos_data.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Contactos/Model/Contactos_model.RES b/Source/Modulos/Contactos/Model/Contactos_model.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas index 4cdf664..d8fa02e 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas +++ b/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas @@ -17,7 +17,6 @@ type function DarPropiedades: IBizPropiedades; procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; Const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable); procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); - procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente end; TDetallesContratoClienteController = class(TControllerDetallesArticulos, IDetallesContratoClienteController) @@ -49,7 +48,6 @@ type procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override; procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); - procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente end; implementation @@ -180,11 +178,6 @@ begin end; end; -procedure TDetallesContratoClienteController.SetVisible(ADetalles: IDAStronglyTypedDataTable; const AVisible, Orden: Integer); -begin - FDetallesPresupuestoCliente.SetVisible(ADetalles, AVisible, Orden); -end; - procedure TDetallesContratoClienteController.ValidarCampos(DataTable: TDADataTable); begin inherited; diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm index 2e86867..8c41e44 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm @@ -388,6 +388,10 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente Name = 'VISIBLE' DataType = datSmallInt end + item + Name = 'VALORADO' + DataType = datSmallInt + end item Name = 'ID_ARTICULO' DataType = datInteger @@ -413,6 +417,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente item Name = 'REFERENCIA_PROVEEDOR' DataType = datString + Size = 255 end> Params = <> MasterMappingMode = mmWhere diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas index a3ee6bd..32f3940 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas @@ -9,13 +9,13 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_Valores = '{48C5F21C-CB4D-4CFF-8F94-A1689B8A6F6A}'; - RID_Propiedades = '{785C1D59-7EA3-4BFD-8C1F-301A25C59E51}'; - RID_ListaAnosContratos = '{DD97448A-A305-401E-B6E0-856207BC471F}'; - RID_ContratosClienteBeneficios = '{670B05E3-9404-46E0-AB6C-9DE0712013DD}'; - RID_ContratosCliente = '{84D4574F-587F-4D70-A242-18B327F199D8}'; - RID_TiposCapitulos = '{09B06749-719A-4B58-96B5-0B0AB2848D61}'; - RID_ContratosCliente_Detalles = '{8CDC36E9-9F1D-4CA1-8414-19CAB69BE649}'; + RID_Valores = '{4E975748-969A-4FE9-BBD2-CC9D7B1CC40D}'; + RID_Propiedades = '{D68E9D8E-0FE2-47A8-A050-ACB95BF5AFAF}'; + RID_ListaAnosContratos = '{7D999AE9-F346-450E-AF32-20F0F0F25228}'; + RID_ContratosClienteBeneficios = '{15AA6996-23F8-4883-B18C-43F5168D8F3B}'; + RID_ContratosCliente = '{D19AE467-7980-4CF4-B273-2BDB037E7D84}'; + RID_TiposCapitulos = '{D18EC00D-ED0C-4BDD-BBC2-D2DE0794C1EF}'; + RID_ContratosCliente_Detalles = '{B7F0780D-5DEE-44BB-91E4-9D7B39A77425}'; { Data table names } nme_Valores = 'Valores'; @@ -207,6 +207,7 @@ const fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_ContratosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_ContratosCliente_DetallesVISIBLE = 'VISIBLE'; + fld_ContratosCliente_DetallesVALORADO = 'VALORADO'; fld_ContratosCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_ContratosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO'; fld_ContratosCliente_DetallesDESCUENTO = 'DESCUENTO'; @@ -225,17 +226,18 @@ const idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 7; idx_ContratosCliente_DetallesIMPORTE_TOTAL = 8; idx_ContratosCliente_DetallesVISIBLE = 9; - idx_ContratosCliente_DetallesID_ARTICULO = 10; - idx_ContratosCliente_DetallesTIPO_ARTICULO = 11; - idx_ContratosCliente_DetallesDESCUENTO = 12; - idx_ContratosCliente_DetallesIMPORTE_PORTE = 13; - idx_ContratosCliente_DetallesREFERENCIA = 14; - idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 15; + idx_ContratosCliente_DetallesVALORADO = 10; + idx_ContratosCliente_DetallesID_ARTICULO = 11; + idx_ContratosCliente_DetallesTIPO_ARTICULO = 12; + idx_ContratosCliente_DetallesDESCUENTO = 13; + idx_ContratosCliente_DetallesIMPORTE_PORTE = 14; + idx_ContratosCliente_DetallesREFERENCIA = 15; + idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 16; type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{01FF5BDE-97A6-44F3-8450-05A5C0C110FA}'] + ['{E8AD85FE-0E64-418E-BA2A-9787E4F4F489}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -294,7 +296,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{3523B802-0EB2-46D4-A045-082CE868881C}'] + ['{69C96C55-8229-43B6-8D8C-5B5AD61C3165}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -353,7 +355,7 @@ type { IListaAnosContratos } IListaAnosContratos = interface(IDAStronglyTypedDataTable) - ['{65EAAFC7-0128-4505-A7E6-2479CB33B7B4}'] + ['{F7CDB162-A98F-4A06-9412-29DC6A122C9E}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -388,7 +390,7 @@ type { IContratosClienteBeneficios } IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) - ['{43C1EDD7-AAC2-4DA4-9AF4-E8CCCADD7F1D}'] + ['{01F28039-DF8B-4839-B3B0-8EE2E53D91E4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -579,7 +581,7 @@ type { IContratosCliente } IContratosCliente = interface(IDAStronglyTypedDataTable) - ['{F2CA3305-5D91-4993-B9C0-294615C6EBF0}'] + ['{4960869A-BFBB-4CC7-85E1-86B6918D188F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1157,7 +1159,7 @@ type } { ITiposCapitulos } ITiposCapitulos = interface(IDAStronglyTypedDataTable) - ['{DFC9723A-23C2-4736-A3FE-E2F8F2CF1E92}'] + ['{BEF6D716-8772-4793-8AA9-E7C4C6426AFC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1252,7 +1254,7 @@ type { IContratosCliente_Detalles } IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{0764F573-7ABD-416B-BD7F-1DF9BA0059AE}'] + ['{3EBE8691-1080-4B52-A2FC-67A44C2ACC76}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1294,6 +1296,10 @@ type procedure SetVISIBLEValue(const aValue: SmallInt); function GetVISIBLEIsNull: 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; procedure SetID_ARTICULOValue(const aValue: Integer); function GetID_ARTICULOIsNull: Boolean; @@ -1341,6 +1347,8 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; 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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue; @@ -1400,6 +1408,10 @@ type procedure SetVISIBLEValue(const aValue: SmallInt); virtual; function GetVISIBLEIsNull: 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; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetID_ARTICULOIsNull: Boolean; virtual; @@ -1446,6 +1458,8 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; 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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue; @@ -3317,6 +3331,27 @@ begin DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsVariant := Null; 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; begin result := DataTable.Fields[idx_ContratosCliente_DetallesID_ARTICULO].AsInteger; diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas index 44a222e..b60c10c 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas @@ -9,18 +9,18 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ValoresDelta = '{D7B7A752-F645-440A-89BD-638862C7819A}'; - RID_PropiedadesDelta = '{CF729826-631C-4E85-9467-924596E8706B}'; - RID_ListaAnosContratosDelta = '{8DBE8D17-4504-4F6A-81CC-3A9BBB221DBA}'; - RID_ContratosClienteBeneficiosDelta = '{00DC7FCA-CE1A-41C2-ACB2-DA5ED5EBFA14}'; - RID_ContratosClienteDelta = '{28AAF6A0-991C-4D31-950A-9BD8168FB4C5}'; - RID_TiposCapitulosDelta = '{5000E4FA-010F-4828-A493-3E642B69A10A}'; - RID_ContratosCliente_DetallesDelta = '{318EAB4A-8BBB-4BCF-92FD-8CB1B40E1956}'; + RID_ValoresDelta = '{C34332AC-76CB-4E0E-8515-D9BBDFF2E1BF}'; + RID_PropiedadesDelta = '{C04FC4AE-3189-44DA-9D7D-4F61DCE51BA1}'; + RID_ListaAnosContratosDelta = '{2C0E2A20-BA28-41BE-92AD-EE946662BCE6}'; + RID_ContratosClienteBeneficiosDelta = '{686A9966-2BF0-4D3B-A11D-77E9DEED5396}'; + RID_ContratosClienteDelta = '{A741E047-68D3-42B4-9C3D-F4B84A2FD5A8}'; + RID_TiposCapitulosDelta = '{4C4B88B8-967F-457E-BB65-9B3406F31242}'; + RID_ContratosCliente_DetallesDelta = '{336EDADB-89CC-4ABD-9861-C3441FA348C5}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{D7B7A752-F645-440A-89BD-638862C7819A}'] + ['{C34332AC-76CB-4E0E-8515-D9BBDFF2E1BF}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PROPIEDADValue : Integer; @@ -78,7 +78,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{CF729826-631C-4E85-9467-924596E8706B}'] + ['{C04FC4AE-3189-44DA-9D7D-4F61DCE51BA1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -136,7 +136,7 @@ type { IListaAnosContratosDelta } IListaAnosContratosDelta = interface(IListaAnosContratos) - ['{8DBE8D17-4504-4F6A-81CC-3A9BBB221DBA}'] + ['{2C0E2A20-BA28-41BE-92AD-EE946662BCE6}'] { Property getters and setters } function GetOldANOValue : String; @@ -170,7 +170,7 @@ type { IContratosClienteBeneficiosDelta } IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) - ['{00DC7FCA-CE1A-41C2-ACB2-DA5ED5EBFA14}'] + ['{686A9966-2BF0-4D3B-A11D-77E9DEED5396}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -360,7 +360,7 @@ type { IContratosClienteDelta } IContratosClienteDelta = interface(IContratosCliente) - ['{28AAF6A0-991C-4D31-950A-9BD8168FB4C5}'] + ['{A741E047-68D3-42B4-9C3D-F4B84A2FD5A8}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -938,7 +938,7 @@ type { ITiposCapitulosDelta } ITiposCapitulosDelta = interface(ITiposCapitulos) - ['{5000E4FA-010F-4828-A493-3E642B69A10A}'] + ['{4C4B88B8-967F-457E-BB65-9B3406F31242}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -1032,7 +1032,7 @@ type { IContratosCliente_DetallesDelta } IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) - ['{318EAB4A-8BBB-4BCF-92FD-8CB1B40E1956}'] + ['{336EDADB-89CC-4ABD-9861-C3441FA348C5}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTRATOValue : Integer; @@ -1044,6 +1044,7 @@ type function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldVISIBLEValue : SmallInt; + function GetOldVALORADOValue : SmallInt; function GetOldID_ARTICULOValue : Integer; function GetOldTIPO_ARTICULOValue : String; function GetOldDESCUENTOValue : Float; @@ -1062,6 +1063,7 @@ type property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldVISIBLE : SmallInt read GetOldVISIBLEValue; + property OldVALORADO : SmallInt read GetOldVALORADOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; @@ -1135,6 +1137,12 @@ type function GetOldVISIBLEIsNull: Boolean; virtual; procedure SetVISIBLEValue(const aValue: SmallInt); 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_ARTICULOIsNull: Boolean; virtual; function GetOldID_ARTICULOValue: Integer; virtual; @@ -1213,6 +1221,10 @@ type property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property OldVISIBLE : SmallInt read GetOldVISIBLEValue; 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_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; @@ -3931,6 +3943,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE] := Null; 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; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesID_ARTICULO]; diff --git a/Source/Modulos/Contratos de cliente/Model/uBizDetallesContratoCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizDetallesContratoCliente.pas index 6ecc041..a166d0e 100644 --- a/Source/Modulos/Contratos de cliente/Model/uBizDetallesContratoCliente.pas +++ b/Source/Modulos/Contratos de cliente/Model/uBizDetallesContratoCliente.pas @@ -41,6 +41,7 @@ procedure TBizDetallesContratoCliente.OnNewRecord(Sender: TDADataTable); begin inherited; VISIBLE := 1; + VALORADO := 1; end; initialization diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm index 3a2ce5d..53d79e8 100644 --- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm +++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm @@ -630,6 +630,10 @@ object RptContratosCliente: TRptContratosCliente Name = 'IMPORTE_TOTAL' DataType = datCurrency end + item + Name = 'VALORADO' + DataType = datSmallInt + end item Name = 'VISIBLE' DataType = datSmallInt @@ -641,7 +645,7 @@ object RptContratosCliente: TRptContratosCliente item Name = 'ID_PRE_CON' DataType = datInteger - Value = '' + Value = '232' end> Statements = < item @@ -692,10 +696,18 @@ object RptContratosCliente: TRptContratosCliente item DatasetField = 'IMPORTE_DESCUENTO' TableField = 'IMPORTE_DESCUENTO' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'Informe_Capitulos' Fields = < + item + Name = 'VALORADO' + DataType = datSmallInt + end item Name = 'ID' DataType = datInteger diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm index 3026a61..038016f 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm +++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm @@ -797,15 +797,15 @@ object srvContratosCliente: TsrvContratosCliente 'ES.PROPIEDAD, CONTRATOS_CLIENTE_DETALLES.CONCEPTO, CONTRATOS_CLI' + 'ENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_U' + 'NIDAD, CONTRATOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' CONTRATOS_C' + - 'LIENTE_DETALLES.VISIBLE,'#10#10' CONTRATOS_CLIENTE_DETALLES.ID_ARTI' + - 'CULO, CONTRATOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' CONTRATOS_CL' + - 'IENTE_DETALLES.DESCUENTO,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE' + - '_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*E' + - 's necesario para que no fallen los detalles porque los detalles ' + - 'son comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTR' + - 'ATOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON CONTRATOS_CLIENTE_D' + - 'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICI' + - 'ON;'#10 + 'LIENTE_DETALLES.VISIBLE,'#10' CONTRATOS_CLIENTE_DETALLES.VALORADO' + + ','#10#10' CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO, CONTRATOS_CLIENTE' + + '_DETALLES.TIPO_ARTICULO,'#10' CONTRATOS_CLIENTE_DETALLES.DESCUENT' + + 'O,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFER' + + 'ENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para que no' + + ' fallen los detalles porque los detalles son comunes para la ram' + + 'a de cliente y de proveedor*/'#10#10'FROM CONTRATOS_CLIENTE_DETALLES'#10'L' + + 'EFT JOIN ARTICULOS ON CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO = A' + + 'RTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10 StatementType = stSQL ColumnMappings = < item @@ -873,6 +873,10 @@ object srvContratosCliente: TsrvContratosCliente item DatasetField = 'PROPIEDAD' TableField = 'PROPIEDAD' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'ContratosCliente_Detalles' @@ -922,6 +926,10 @@ object srvContratosCliente: TsrvContratosCliente Name = 'VISIBLE' DataType = datSmallInt end + item + Name = 'VALORADO' + DataType = datSmallInt + end item Name = 'ID_ARTICULO' DataType = datInteger @@ -947,6 +955,7 @@ object srvContratosCliente: TsrvContratosCliente item Name = 'REFERENCIA_PROVEEDOR' DataType = datString + Size = 255 end> end> JoinDataTables = <> @@ -1509,6 +1518,11 @@ object srvContratosCliente: TsrvContratosCliente DataType = datCurrency Value = '' end + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'VISIBLE' DataType = datSmallInt @@ -1543,12 +1557,12 @@ object srvContratosCliente: TsrvContratosCliente SQL = 'INSERT'#10' INTO CONTRATOS_CLIENTE_DETALLES'#10' (ID, ID_CONTRATO, P' + 'OSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' IMPOR' + - 'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' ' + - ' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID' + - '_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCEPTO,'#10' ' + - ' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_' + - 'ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TI' + - 'MESTAMP)'#10 + 'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, VALORADO, ID_ARTICULO, TIPO_A' + + 'RTICULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' ' + + ' (:ID, :ID_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONC' + + 'EPTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,' + + ' :VALORADO,'#10' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPO' + + 'RTE_PORTE, CURRENT_TIMESTAMP)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1576,6 +1590,11 @@ object srvContratosCliente: TsrvContratosCliente end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'ID' DataType = datInteger @@ -1665,10 +1684,10 @@ object srvContratosCliente: TsrvContratosCliente 'LE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' CONCEPTO = ' + ':CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMP' + 'ORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = ' + - ':VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = ' + - ':TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE =' + - ' :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WH' + - 'ERE'#10' (ID = :OLD_ID)'#10 + ':VISIBLE,'#10' VALORADO = :VALORADO,'#10' ID_ARTICULO = :ID_ARTICU' + + 'LO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUE' + + 'NTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION' + + ' = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm index 77266ec..22d0c0e 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm @@ -71,6 +71,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn Caption = 'Ref. Cliente' DataBinding.FieldName = 'REFERENCIA_CLIENTE' + BestFitMaxWidth = 25 end object cxGridViewTIPO_CONTRATO: TcxGridDBColumn DataBinding.FieldName = 'TIPO_CONTRATO' diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm index 40ec798..eb511f9 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm @@ -1,8 +1,5 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente - Width = 760 - Height = 411 inherited ToolBar1: TToolBar - Width = 760 inherited ToolButton4: TToolButton Wrap = False end @@ -59,8 +56,6 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente end end inherited cxGrid: TcxGrid - Width = 760 - Height = 339 inherited cxGridView: TcxGridDBTableView inherited cxGridViewID_ARTICULO: TcxGridDBColumn Width = 57 @@ -73,7 +68,10 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente inherited cxGridViewVISIBLE: TcxGridDBColumn [5] Visible = True end - object cxGridViewPROPIEDAD: TcxGridDBColumn [6] + inherited cxGridViewVALORADO: TcxGridDBColumn [6] + Visible = True + end + object cxGridViewPROPIEDAD: TcxGridDBColumn [7] DataBinding.FieldName = 'PROPIEDAD' PropertiesClassName = 'TcxRichEditProperties' OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit @@ -81,43 +79,41 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente Width = 150 IsCaptionAssigned = True end - inherited cxGridViewREFERENCIA: TcxGridDBColumn [7] + inherited cxGridViewREFERENCIA: TcxGridDBColumn [8] end - inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [8] + inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [9] DataBinding.FieldName = '' end - inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9] + inherited cxGridViewDESCRIPCION: TcxGridDBColumn [10] OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit Width = 243 end - inherited cxGridViewCANTIDAD: TcxGridDBColumn [10] + inherited cxGridViewCANTIDAD: TcxGridDBColumn [11] VisibleForCustomization = False Width = 25 end - inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11] + inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [12] VisibleForCustomization = False Width = 34 end - inherited cxGridViewDESCUENTO: TcxGridDBColumn [12] + inherited cxGridViewDESCUENTO: TcxGridDBColumn [13] Width = 20 end - inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13] + inherited cxGridViewIMPORTENETO: TcxGridDBColumn [14] Visible = False VisibleForCustomization = False Width = 29 end - inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14] + inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [15] end - inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15] + inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16] VisibleForCustomization = False Width = 29 end end end inherited TBXDock1: TTBXDock - Width = 760 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 665 object TBXSubmenuItem1: TTBXSubmenuItem [0] Caption = 'A'#241'adir cap'#237'tulo' DisplayMode = nbdmImageAndText diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm index 7b7cdae..db5041f 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm @@ -386,6 +386,12 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente DisplayLabel = #191'Visible?' DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' end + item + Name = 'VALORADO' + DataType = datSmallInt + DisplayLabel = #191'Valorado?' + DictionaryEntry = 'FacturasCliente_Detalles_VALORADO' + end item Name = 'ID_ARTICULO' DataType = datInteger diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index c3ce569..24b02d5 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -9,9 +9,9 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturas = '{9504B0C5-CF6C-47DF-9BF1-D6EE693A246B}'; - RID_FacturasCliente = '{E530BBA1-8BD8-4003-B11A-79C99E13E981}'; - RID_FacturasCliente_Detalles = '{C963E80A-9A8F-4A71-82C8-4901A98FA7CC}'; + RID_ListaAnosFacturas = '{D124C6A9-9125-41D5-8910-57FF495BF307}'; + RID_FacturasCliente = '{1302F337-0DD8-4688-AE4A-BBEE072A6C3A}'; + RID_FacturasCliente_Detalles = '{94E66444-E0C2-400F-B529-B4CD1AA4B51F}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; @@ -134,6 +134,7 @@ const fld_FacturasCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_FacturasCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_FacturasCliente_DetallesVISIBLE = 'VISIBLE'; + fld_FacturasCliente_DetallesVALORADO = 'VALORADO'; fld_FacturasCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_FacturasCliente_DetallesDESCUENTO = 'DESCUENTO'; fld_FacturasCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; @@ -150,16 +151,17 @@ const idx_FacturasCliente_DetallesIMPORTE_UNIDAD = 6; idx_FacturasCliente_DetallesIMPORTE_TOTAL = 7; idx_FacturasCliente_DetallesVISIBLE = 8; - idx_FacturasCliente_DetallesID_ARTICULO = 9; - idx_FacturasCliente_DetallesDESCUENTO = 10; - idx_FacturasCliente_DetallesIMPORTE_PORTE = 11; - idx_FacturasCliente_DetallesREFERENCIA = 12; - idx_FacturasCliente_DetallesREFERENCIA_PROVEEDOR = 13; + idx_FacturasCliente_DetallesVALORADO = 9; + idx_FacturasCliente_DetallesID_ARTICULO = 10; + idx_FacturasCliente_DetallesDESCUENTO = 11; + idx_FacturasCliente_DetallesIMPORTE_PORTE = 12; + idx_FacturasCliente_DetallesREFERENCIA = 13; + idx_FacturasCliente_DetallesREFERENCIA_PROVEEDOR = 14; type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{C9EB259F-ABF4-4646-BAE3-BDEED080DB84}'] + ['{228D328D-5F59-4A81-BBE8-1CFF290D1369}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -194,7 +196,7 @@ type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{8A5FD641-EA95-4CD6-9EAC-618D177DF7C0}'] + ['{5FE41CBB-BFCD-4D64-B2EB-95B093C9F387}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -793,7 +795,7 @@ type { IFacturasCliente_Detalles } IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{51E6D6A2-EFC9-404B-B0EA-454ED0E4FBA4}'] + ['{1189A431-E8CB-4DF3-A668-E89F49C7A393}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -831,6 +833,10 @@ type procedure SetVISIBLEValue(const aValue: Integer); function GetVISIBLEIsNull: 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; procedure SetID_ARTICULOValue(const aValue: Integer); function GetID_ARTICULOIsNull: Boolean; @@ -872,6 +878,8 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; 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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; @@ -925,6 +933,10 @@ type procedure SetVISIBLEValue(const aValue: Integer); virtual; function GetVISIBLEIsNull: 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; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetID_ARTICULOIsNull: Boolean; virtual; @@ -965,6 +977,8 @@ type property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; 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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; @@ -2246,6 +2260,27 @@ begin DataTable.Fields[idx_FacturasCliente_DetallesVISIBLE].AsVariant := Null; 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; begin result := DataTable.Fields[idx_FacturasCliente_DetallesID_ARTICULO].AsInteger; diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index 6047301..04b019b 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturasDelta = '{21A2ECEC-6B0B-464C-8545-1F8D439F3DCA}'; - RID_FacturasClienteDelta = '{86F44C5A-7112-42F1-B15E-518660E2EAC2}'; - RID_FacturasCliente_DetallesDelta = '{4FF3AB78-99DC-4F0F-B163-1155D2698082}'; + RID_ListaAnosFacturasDelta = '{A36E4AFD-23AD-421D-9A83-CF95673BC233}'; + RID_FacturasClienteDelta = '{7450A969-1ECA-4843-9A77-57181F6C539B}'; + RID_FacturasCliente_DetallesDelta = '{AE9B5F97-D0B9-47C0-BAF0-05D4EF41ED06}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{21A2ECEC-6B0B-464C-8545-1F8D439F3DCA}'] + ['{A36E4AFD-23AD-421D-9A83-CF95673BC233}'] { Property getters and setters } function GetOldANOValue : String; @@ -50,7 +50,7 @@ type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{86F44C5A-7112-42F1-B15E-518660E2EAC2}'] + ['{7450A969-1ECA-4843-9A77-57181F6C539B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -649,7 +649,7 @@ type { IFacturasCliente_DetallesDelta } IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) - ['{4FF3AB78-99DC-4F0F-B163-1155D2698082}'] + ['{AE9B5F97-D0B9-47C0-BAF0-05D4EF41ED06}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -660,6 +660,7 @@ type function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldVISIBLEValue : Integer; + function GetOldVALORADOValue : SmallInt; function GetOldID_ARTICULOValue : Integer; function GetOldDESCUENTOValue : Float; function GetOldIMPORTE_PORTEValue : Currency; @@ -676,6 +677,7 @@ type property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldVISIBLE : Integer read GetOldVISIBLEValue; + property OldVALORADO : SmallInt read GetOldVALORADOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; @@ -742,6 +744,12 @@ type function GetOldVISIBLEIsNull: Boolean; virtual; procedure SetVISIBLEValue(const aValue: Integer); 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_ARTICULOIsNull: Boolean; virtual; function GetOldID_ARTICULOValue: Integer; virtual; @@ -810,6 +818,10 @@ type property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property OldVISIBLE : Integer read GetOldVISIBLEValue; 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_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; @@ -2683,6 +2695,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVISIBLE] := Null; 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; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesID_ARTICULO]; diff --git a/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas index dab4f95..a946934 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas @@ -42,6 +42,7 @@ procedure TBizDetallesFacturaCliente.OnNewRecord(Sender: TDADataTable); begin inherited; VISIBLE := 1; + VALORADO := 1; end; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 3e30fde..2c44334 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -1090,9 +1090,9 @@ object RptFacturasCliente: TRptFacturasCliente SQL = 'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, F_RTFTOTEXT(C' + 'ONCEPTO) AS CONCEPTO,'#10' CONCEPTO AS CONCEPTO_RTF, CANTIDAD,'#10' ' + - ' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FROM FACTURA' + - 'S_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDER BY POSIC' + - 'ION;'#10 + ' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE, VALORADO'#10'FR' + + 'OM FACTURAS_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDE' + + 'R BY POSICION;'#10 StatementType = stSQL ColumnMappings = < item @@ -1139,10 +1139,18 @@ object RptFacturasCliente: TRptFacturasCliente DatasetField = 'CONCEPTO_RTF' TableField = 'CONCEPTO' SQLOrigin = 'CONCEPTO_RTF' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'InformeFacturasCliente_Detalles' Fields = < + item + Name = 'VALORADO' + DataType = datSmallInt + end item Name = 'ID' DataType = datAutoInc diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index 72c7254..6d26ac1 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -506,12 +506,13 @@ object srvFacturasCliente: TsrvFacturasCliente 'CLIENTE_DETALLES.TIPO_DETALLE,'#10' FACTURAS_CLIENTE_DETALLES.CON' + 'CEPTO, FACTURAS_CLIENTE_DETALLES.CANTIDAD,'#10' FACTURAS_CLIENTE_' + 'DETALLES.IMPORTE_UNIDAD, FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL' + - ','#10' FACTURAS_CLIENTE_DETALLES.VISIBLE,'#10#10' FACTURAS_CLIENTE_D' + - 'ETALLES.ID_ARTICULO, FACTURAS_CLIENTE_DETALLES.DESCUENTO,'#10' FA' + - 'CTURAS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' ' + - ' ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM FACTURA' + - 'S_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON FACTURAS_CLIENTE_DETAL' + - 'LES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10 + ','#10' FACTURAS_CLIENTE_DETALLES.VISIBLE,'#10' FACTURAS_CLIENTE_DE' + + 'TALLES.VALORADO,'#10#10' FACTURAS_CLIENTE_DETALLES.ID_ARTICULO, FAC' + + 'TURAS_CLIENTE_DETALLES.DESCUENTO,'#10' FACTURAS_CLIENTE_DETALLES.' + + 'IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' ARTICULOS.REFERENCIA_PR' + + 'OV as REFERENCIA_PROVEEDOR'#10#10'FROM FACTURAS_CLIENTE_DETALLES'#10'LEFT ' + + 'JOIN ARTICULOS ON FACTURAS_CLIENTE_DETALLES.ID_ARTICULO = ARTICU' + + 'LOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10 StatementType = stSQL ColumnMappings = < item @@ -571,6 +572,10 @@ object srvFacturasCliente: TsrvFacturasCliente DatasetField = 'REFERENCIA_PROVEEDOR' TableField = '' SQLOrigin = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'FacturasCliente_Detalles' @@ -625,6 +630,11 @@ object srvFacturasCliente: TsrvFacturasCliente DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' end + item + Name = 'VALORADO' + DataType = datSmallInt + DictionaryEntry = 'FacturasCliente_Detalles_VALORADO' + end item Name = 'ID_ARTICULO' DataType = datInteger @@ -644,11 +654,13 @@ object srvFacturasCliente: TsrvFacturasCliente Name = 'REFERENCIA' DataType = datString Size = 255 + DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA' end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 + DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR' end> end> JoinDataTables = <> @@ -720,6 +732,11 @@ object srvFacturasCliente: TsrvFacturasCliente end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'ID' DataType = datAutoInc @@ -791,10 +808,11 @@ object srvFacturasCliente: TsrvFacturasCliente SQL = 'INSERT'#10' INTO FACTURAS_CLIENTE_DETALLES'#10' (ID, CANTIDAD, POSIC' + 'ION, ID_FACTURA, TIPO_DETALLE, CONCEPTO,'#10' IMPORTE_UNIDAD, IM' + - 'PORTE_TOTAL, VISIBLE,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORTE' + - ')'#10' VALUES'#10' (:ID, :CANTIDAD, :POSICION, :ID_FACTURA, :TIPO_DE' + - 'TALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE' + - ','#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)' + 'PORTE_TOTAL, VISIBLE, VALORADO,'#10' ID_ARTICULO, DESCUENTO, IMP' + + 'ORTE_PORTE)'#10' VALUES'#10' (:ID, :CANTIDAD, :POSICION, :ID_FACTURA' + + ', :TIPO_DETALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL' + + ', :VISIBLE, :VALORADO,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_P' + + 'ORTE)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -822,6 +840,11 @@ object srvFacturasCliente: TsrvFacturasCliente end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'CANTIDAD' DataType = datCurrency @@ -892,9 +915,9 @@ object srvFacturasCliente: TsrvFacturasCliente ', '#10' POSICION = :POSICION, '#10' ID_FACTURA = :ID_FACTURA, '#10' ' + ' TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' I' + 'MPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_T' + - 'OTAL,'#10' VISIBLE = :VISIBLE,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' ' + - ' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' W' + - 'HERE'#10' (ID = :OLD_ID)' + 'OTAL,'#10' VISIBLE = :VISIBLE,'#10' VALORADO = :VALORADO,'#10' ID_A' + + 'RTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_' + + 'PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1015,16 +1038,6 @@ object srvFacturasCliente: TsrvFacturasCliente Size = 10 Value = '' end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - end item Name = 'USUARIO' DataType = datString @@ -1093,21 +1106,20 @@ object srvFacturasCliente: TsrvFacturasCliente 'BLE,'#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_' + 'IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVACIONE' + 'S,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLA' + - 'CION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECH' + - 'A_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUI' + - 'VALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10 + - ' IGNORAR_CONTABILIDAD,'#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SI' + - 'N_COMISION,'#10' SITUACION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10 + - ' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' ' + - ' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :I' + - 'VA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOT' + - 'AL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMB' + - 'RE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POST' + - 'AL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' + - ':ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' ' + - ' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' ' + - ' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :SITUACI' + - 'ON);'#10 + 'CION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' USUA' + + 'RIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' + + 'A,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD' + + ','#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SIN_COMISION,'#10' SITUACIO' + + 'N)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FE' + + 'CHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE_IMPONIBLE,'#10' :D' + + 'ESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' ' + + ' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10 + + ' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :POB' + + 'LACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' CURRENT_TIMESTAM' + + 'P,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10 + + ' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IG' + + 'NORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_C' + + 'OMISION,'#10' :SITUACION);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1222,16 +1234,6 @@ object srvFacturasCliente: TsrvFacturasCliente Size = 10 Value = '' end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - end item Name = 'USUARIO' DataType = datString @@ -1308,14 +1310,13 @@ object srvFacturasCliente: TsrvFacturasCliente 'ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :' + 'NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :POBLACION,'#10' PROV' + 'INCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' FECH' + - 'A_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACI' + - 'ON,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 + - ' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' + - 'A = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_' + - 'PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONT' + - 'ABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_CONTRATO = :ID_CONT' + - 'RATO,'#10' SIN_COMISION = :SIN_COMISION,'#10' SITUACION = :SITUACI' + - 'ON'#10' WHERE'#10' (ID = :OLD_ID);'#10 + 'A_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' ' + + 'ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECA' + + 'RGO_EQUIVALENCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NE' + + 'TO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNO' + + 'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TI' + + 'ENDA,'#10' ID_CONTRATO = :ID_CONTRATO,'#10' SIN_COMISION = :SIN_CO' + + 'MISION,'#10' SITUACION = :SITUACION'#10' WHERE'#10' (ID = :OLD_ID);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1688,6 +1689,11 @@ object srvFacturasCliente: TsrvFacturasCliente item Name = 'FacturasCliente_IGNORAR_CONTABILIDAD' DataType = datSmallInt + end + item + Name = 'FacturasCliente_Detalles_VALORADO' + DataType = datSmallInt + DisplayLabel = #191'Valorado?' end> Left = 150 Top = 22 diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm index c4b0c70..219881d 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm @@ -400,6 +400,12 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor DataType = datString Size = 255 DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR' + end + item + Name = 'VALORADO' + DataType = datSmallInt + DisplayLabel = #191'Valorado?' + DictionaryEntry = 'FacturasProveedor_Detalles_VALORADO' end> Params = <> MasterMappingMode = mmWhere diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas index 182a177..88eb725 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas @@ -9,11 +9,11 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturas = '{772E3A80-73F5-425A-8F80-2DA4BA6889CE}'; - RID_FacturasProveedor_Contratos = '{DE5C1077-9860-424E-895B-C6348ACCA4DB}'; - RID_TiposFacturaProveedor = '{67B410B2-667E-4EB4-B78D-CBD675A717BD}'; - RID_FacturasProveedor = '{D4BA7205-7758-40CB-934A-3DD2238AC1B1}'; - RID_FacturasProveedor_Detalles = '{01304CD4-713A-442B-A701-8B37BA847E7C}'; + RID_ListaAnosFacturas = '{FC5567A2-A1E2-4B04-80E1-78F054593A8A}'; + RID_FacturasProveedor_Contratos = '{29528EAE-BE56-4F11-9BA7-4D564DFB73A2}'; + RID_TiposFacturaProveedor = '{EBFAFA25-E1DF-41CC-9478-0D55BDAF4A29}'; + RID_FacturasProveedor = '{05571997-AE29-4125-AC89-464BD8B0CF1A}'; + RID_FacturasProveedor_Detalles = '{B58D95A3-885C-4D7C-BE98-F1BA7442318B}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; @@ -162,6 +162,7 @@ const fld_FacturasProveedor_DetallesDESCUENTO = 'DESCUENTO'; fld_FacturasProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_FacturasProveedor_DetallesREFERENCIA = 'REFERENCIA'; + fld_FacturasProveedor_DetallesVALORADO = 'VALORADO'; fld_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; { FacturasProveedor_Detalles field indexes } @@ -178,12 +179,13 @@ const idx_FacturasProveedor_DetallesDESCUENTO = 10; idx_FacturasProveedor_DetallesIMPORTE_PORTE = 11; idx_FacturasProveedor_DetallesREFERENCIA = 12; - idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 13; + idx_FacturasProveedor_DetallesVALORADO = 13; + idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 14; type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{B368FF8D-1FFD-47E0-AE16-C42B17DDFAA1}'] + ['{1B98F922-02A4-4E37-A61E-97750DAEEE50}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -218,7 +220,7 @@ type { IFacturasProveedor_Contratos } IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable) - ['{D2ECFD06-1A26-4A80-8334-1DF7DBB1824B}'] + ['{C52F44CF-0329-48CB-B738-0BB46696BA62}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -325,7 +327,7 @@ type { ITiposFacturaProveedor } ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable) - ['{C16445EE-8D36-4166-97C6-045FE267548E}'] + ['{67E81F9E-6FB3-4D91-B33A-0A8664936D2A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -372,7 +374,7 @@ type { IFacturasProveedor } IFacturasProveedor = interface(IDAStronglyTypedDataTable) - ['{689FC1AA-5A56-4ABC-AFB2-984B5749E875}'] + ['{8553E2B5-4113-4209-96F6-131CC708C68F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -935,7 +937,7 @@ type { IFacturasProveedor_Detalles } IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{6001EDD7-2FD3-46B9-A5D4-7E90AD339EC0}'] + ['{C2B60CD9-57CA-4576-BC3B-BDCECACA9F4C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -989,6 +991,10 @@ type procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: 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; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); function GetREFERENCIA_PROVEEDORIsNull: Boolean; @@ -1022,6 +1028,8 @@ type property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; end; @@ -1083,6 +1091,10 @@ type procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: 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; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; @@ -1115,6 +1127,8 @@ type property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; @@ -2622,6 +2636,27 @@ begin DataTable.Fields[idx_FacturasProveedor_DetallesREFERENCIA].AsVariant := Null; 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; begin result := DataTable.Fields[idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR].AsString; diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas index 06985ac..333c872 100644 --- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas +++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas @@ -9,16 +9,16 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturasDelta = '{5E2C03E7-40F8-4863-B08C-2946B58596A3}'; - RID_FacturasProveedor_ContratosDelta = '{62B5396F-4A08-443D-8B7F-974267E456A5}'; - RID_TiposFacturaProveedorDelta = '{EA8E5C49-5AE7-496F-B4FA-9680EAC18C03}'; - RID_FacturasProveedorDelta = '{64C30025-CE2E-4DDC-8684-E0E7B5552C00}'; - RID_FacturasProveedor_DetallesDelta = '{05C62271-95BD-4275-B16B-3E75CD24CB3F}'; + RID_ListaAnosFacturasDelta = '{F5649B1E-4A25-441C-A312-E5EB8EB2F301}'; + RID_FacturasProveedor_ContratosDelta = '{BB34419C-F523-4089-BD9A-6540AD02B8D7}'; + RID_TiposFacturaProveedorDelta = '{00848D4E-29B2-4289-A7F7-C7B622BC4B2D}'; + RID_FacturasProveedorDelta = '{BA0CE5CA-E565-449C-92F0-1DF87535AE38}'; + RID_FacturasProveedor_DetallesDelta = '{C5CE21F0-19EA-4F8A-BEEC-07C801C4420D}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{5E2C03E7-40F8-4863-B08C-2946B58596A3}'] + ['{F5649B1E-4A25-441C-A312-E5EB8EB2F301}'] { Property getters and setters } function GetOldANOValue : String; @@ -52,7 +52,7 @@ type { IFacturasProveedor_ContratosDelta } IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos) - ['{62B5396F-4A08-443D-8B7F-974267E456A5}'] + ['{BB34419C-F523-4089-BD9A-6540AD02B8D7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -158,7 +158,7 @@ type { ITiposFacturaProveedorDelta } ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor) - ['{EA8E5C49-5AE7-496F-B4FA-9680EAC18C03}'] + ['{00848D4E-29B2-4289-A7F7-C7B622BC4B2D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -204,7 +204,7 @@ type { IFacturasProveedorDelta } IFacturasProveedorDelta = interface(IFacturasProveedor) - ['{64C30025-CE2E-4DDC-8684-E0E7B5552C00}'] + ['{BA0CE5CA-E565-449C-92F0-1DF87535AE38}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -767,7 +767,7 @@ type { IFacturasProveedor_DetallesDelta } IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) - ['{05C62271-95BD-4275-B16B-3E75CD24CB3F}'] + ['{C5CE21F0-19EA-4F8A-BEEC-07C801C4420D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -782,6 +782,7 @@ type function GetOldDESCUENTOValue : Float; function GetOldIMPORTE_PORTEValue : Currency; function GetOldREFERENCIAValue : String; + function GetOldVALORADOValue : SmallInt; function GetOldREFERENCIA_PROVEEDORValue : String; { Properties } @@ -798,6 +799,7 @@ type property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldVALORADO : SmallInt read GetOldVALORADOValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; end; @@ -884,6 +886,12 @@ type function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); 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_PROVEEDORIsNull: Boolean; virtual; function GetOldREFERENCIA_PROVEEDORValue: String; virtual; @@ -944,6 +952,10 @@ type property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; 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_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; @@ -3135,6 +3147,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesREFERENCIA] := Null; 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; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR]; diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas index b189fde..989fda7 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas @@ -52,6 +52,7 @@ procedure TBizDetallesFacturaProveedor.OnNewRecord(Sender: TDADataTable); begin inherited; VISIBLE := 1; + VALORADO := 1; end; { TBizContratosFacturaProveedor } diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm index 96d427a..ac9a310 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm @@ -607,13 +607,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor 'TURAS_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' FACTURAS_PROVEEDOR_DE' + 'TALLES.CONCEPTO, FACTURAS_PROVEEDOR_DETALLES.CANTIDAD,'#10' FACTU' + 'RAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, FACTURAS_PROVEEDOR_DETALL' + - 'ES.IMPORTE_TOTAL,'#10' FACTURAS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' ' + - 'FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO, FACTURAS_PROVEEDOR_DETA' + - 'LLES.DESCUENTO,'#10' FACTURAS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ' + - ' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA' + - '_PROVEEDOR'#10'FROM FACTURAS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ' + - 'ON FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE ' + - '{where}'#10'ORDER BY POSICION;'#10 + 'ES.IMPORTE_TOTAL,'#10' FACTURAS_PROVEEDOR_DETALLES.VISIBLE,'#10' F' + + 'ACTURAS_PROVEEDOR_DETALLES.VALORADO,'#10' FACTURAS_PROVEEDOR_DETA' + + 'LLES.ID_ARTICULO, FACTURAS_PROVEEDOR_DETALLES.DESCUENTO,'#10' FAC' + + 'TURAS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA' + + ', ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10'FROM FACTURA' + + 'S_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON FACTURAS_PROVEEDOR_D' + + 'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICI' + + 'ON;'#10 StatementType = stSQL ColumnMappings = < item @@ -673,6 +674,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor DatasetField = 'REFERENCIA_PROVEEDOR' TableField = '' SQLOrigin = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'FacturasProveedor_Detalles' @@ -748,6 +753,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor Size = 255 DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA' end + item + Name = 'VALORADO' + DataType = datSmallInt + DictionaryEntry = 'FacturasProveedor_Detalles_VALORADO' + end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString @@ -953,16 +963,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor Size = 10 Value = '' end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - end item Name = 'USUARIO' DataType = datString @@ -1020,19 +1020,18 @@ object srvFacturasProveedor: TsrvFacturasProveedor 'ASE_IMPONIBLE, DESCUENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_I' + 'VA, IRPF, IMPORTE_IRPF, RE, IMPORTE_RE,'#10' IMPORTE_TOTAL, OBSE' + 'RVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' NOMBRE, CALLE, POBLACION' + - ', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION' + - ', USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IV' + - 'A, IMPORTE_NETO, IMPORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TI' + - 'ENDA, ID_TIPO_FACTURA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENC' + - 'IA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIEN' + - 'TO, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, ' + - ':IMPORTE_IVA, :IRPF, :IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPO' + - 'RTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE' + - ', :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_A' + - 'LTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECAR' + - 'GO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_POR' + - 'TE, :IGNORAR_CONTABILIDAD, :ID_TIENDA, :ID_TIPO_FACTURA)'#10' '#10' ' + - ' '#10#10 + ', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, USUARIO, ID_FORMA_' + + 'PAGO,'#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPO' + + 'RTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TIENDA, ID_TIPO_FACTURA' + + ')'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVE' + + 'EDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIENTO, :BASE_IMPONIBLE, ' + + ':DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :IRPF, ' + + ':IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPORTE_TOTAL, :OBSERVACI' + + 'ONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE, :CALLE, :POBLACION,' + + ' :PROVINCIA, :CODIGO_POSTAL, '#10' CURRENT_TIMESTAMP, :USUARIO, ' + + ':ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPOR' + + 'TE_NETO, '#10' :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_TIENDA' + + ', :ID_TIPO_FACTURA)'#10' '#10' '#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -1187,16 +1186,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor Size = 10 Value = '' end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - end item Name = 'USUARIO' DataType = datString @@ -1265,13 +1254,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor ' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' NIF_CIF = :NIF_CIF, '#10' NOM' + 'BRE = :NOMBRE, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION,' + ' '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTA' + - 'L, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FEC' + - 'HA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :' + - 'ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA' + - ', '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NETO = :IMPORTE_' + - 'NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILI' + - 'DAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_' + - 'TIPO_FACTURA = :ID_TIPO_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'L, '#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :U' + + 'SUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQUIVA' + + 'LENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_IVA,' + + ' '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORT' + + 'E_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' I' + + 'D_TIENDA = :ID_TIENDA,'#10' ID_TIPO_FACTURA = :ID_TIPO_FACTURA'#10' ' + + 'WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1279,6 +1268,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'ID' DataType = datAutoInc @@ -1350,11 +1344,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor SQL = 'INSERT'#10' INTO FACTURAS_PROVEEDOR_DETALLES'#10' (ID, ID_FACTURA, P' + 'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, ' + - 'IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10' DESCUENTO, IMPORTE_PO' + - 'RTE)'#10' VALUES'#10' (:ID, :ID_FACTURA, :POSICION, :TIPO_DETALLE, :' + - 'CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISI' + - 'BLE, :ID_ARTICULO, '#10' :DESCUENTO, :IMPORTE_PORTE)'#10' '#10' ' + - #10#10 + 'IMPORTE_TOTAL, VISIBLE, VALORADO, ID_ARTICULO,'#10' DESCUENTO, I' + + 'MPORTE_PORTE)'#10' VALUES'#10' (:ID, :ID_FACTURA, :POSICION, :TIPO_D' + + 'ETALLE, :CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOT' + + 'AL, :VISIBLE, :VALORADO, :ID_ARTICULO,'#10' :DESCUENTO, :IMPORTE' + + '_PORTE)'#10' '#10' '#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -1381,6 +1375,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'ID' DataType = datInteger @@ -1457,9 +1456,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor 'ACTURA = :ID_FACTURA, '#10' POSICION = :POSICION, '#10' TIPO_DETAL' + 'LE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :' + 'CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TO' + - 'TAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO ' + - '= :ID_ARTICULO, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE ' + - '= :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'TAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' VALORADO = :' + + 'VALORADO,'#10' ID_ARTICULO = :ID_ARTICULO, '#10' DESCUENTO = :DESC' + + 'UENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OL' + + 'D_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1973,6 +1973,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor DataType = datFloat DisplayLabel = 'IRPF' Alignment = taRightJustify + end + item + Name = 'FacturasProveedor_Detalles_VALORADO' + DataType = datSmallInt + DisplayLabel = #191'Valorado?' end> Left = 150 Top = 22 diff --git a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.RES b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.RES b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.RES b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas index 7fd1e36..46daae9 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas @@ -9,9 +9,9 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_PedidosProveedor = '{E91640D3-98FE-4E09-A47E-DDB8DEF91010}'; - RID_PedidosProveedor_Detalles = '{8E5080FE-7C58-4F98-A7F4-9D7FCF9E21F9}'; - RID_PedidosProveedor_Articulos_Pendientes = '{A37CB497-DB53-43F6-8A3B-8D511DA79A43}'; + RID_PedidosProveedor = '{890EC46F-966E-43BC-9C88-AA547D4462BC}'; + RID_PedidosProveedor_Detalles = '{1892BC6B-9347-428F-BA16-C346BD83F7E4}'; + RID_PedidosProveedor_Articulos_Pendientes = '{395AC8C7-EDE1-4BB8-8993-CA81BAAAB70C}'; { Data table names } nme_PedidosProveedor = 'PedidosProveedor'; @@ -106,6 +106,7 @@ const fld_PedidosProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_PedidosProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_PedidosProveedor_DetallesVISIBLE = 'VISIBLE'; + fld_PedidosProveedor_DetallesVALORADO = 'VALORADO'; fld_PedidosProveedor_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_PedidosProveedor_DetallesDESCUENTO = 'DESCUENTO'; fld_PedidosProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; @@ -122,11 +123,12 @@ const idx_PedidosProveedor_DetallesIMPORTE_UNIDAD = 6; idx_PedidosProveedor_DetallesIMPORTE_TOTAL = 7; idx_PedidosProveedor_DetallesVISIBLE = 8; - idx_PedidosProveedor_DetallesID_ARTICULO = 9; - idx_PedidosProveedor_DetallesDESCUENTO = 10; - idx_PedidosProveedor_DetallesIMPORTE_PORTE = 11; - idx_PedidosProveedor_DetallesREFERENCIA = 12; - idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 13; + idx_PedidosProveedor_DetallesVALORADO = 9; + idx_PedidosProveedor_DetallesID_ARTICULO = 10; + idx_PedidosProveedor_DetallesDESCUENTO = 11; + idx_PedidosProveedor_DetallesIMPORTE_PORTE = 12; + idx_PedidosProveedor_DetallesREFERENCIA = 13; + idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 14; { PedidosProveedor_Articulos_Pendientes fields } fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO'; @@ -147,7 +149,7 @@ const type { IPedidosProveedor } IPedidosProveedor = interface(IDAStronglyTypedDataTable) - ['{72630E6B-BABA-47E8-AECF-364D3A9E8F7C}'] + ['{94AB8272-3485-46C4-8DD1-2ECDA6EA4205}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -614,7 +616,7 @@ type { IPedidosProveedor_Detalles } IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{75167B38-5DCF-48A0-A0DB-D9B20EEB227A}'] + ['{F2B458AB-B149-4238-92D1-3F307A35126B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -648,10 +650,14 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); function GetIMPORTE_TOTALIsNull: Boolean; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); - function GetVISIBLEValue: SmallInt; - procedure SetVISIBLEValue(const aValue: SmallInt); + function GetVISIBLEValue: Integer; + procedure SetVISIBLEValue(const aValue: Integer); function GetVISIBLEIsNull: 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; procedure SetID_ARTICULOValue(const aValue: Integer); function GetID_ARTICULOIsNull: Boolean; @@ -691,8 +697,10 @@ type property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; 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 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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; @@ -742,10 +750,14 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetVISIBLEValue: SmallInt; virtual; - procedure SetVISIBLEValue(const aValue: SmallInt); virtual; + function GetVISIBLEValue: Integer; virtual; + procedure SetVISIBLEValue(const aValue: Integer); virtual; function GetVISIBLEIsNull: 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; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetID_ARTICULOIsNull: Boolean; virtual; @@ -784,8 +796,10 @@ type property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; 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 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_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; @@ -805,7 +819,7 @@ type { IPedidosProveedor_Articulos_Pendientes } IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) - ['{9D55B3FD-88B7-44FA-9380-CAE6DAD5B7CA}'] + ['{956B0790-97C4-4C83-99FF-965FF90D1815}'] { Property getters and setters } function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); @@ -1882,14 +1896,14 @@ begin DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_TOTAL].AsVariant := Null; end; -function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEValue: SmallInt; +function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEValue: Integer; begin - result := DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsSmallInt; + result := DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsInteger; end; -procedure TPedidosProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: SmallInt); +procedure TPedidosProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer); begin - DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsSmallInt := aValue; + DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsInteger := aValue; end; function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean; @@ -1903,6 +1917,27 @@ begin DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsVariant := Null; 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; begin result := DataTable.Fields[idx_PedidosProveedor_DetallesID_ARTICULO].AsInteger; diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas index c0e05e9..1bbfcfd 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_PedidosProveedorDelta = '{EA735EC9-0277-4D0F-8843-4A6F66360099}'; - RID_PedidosProveedor_DetallesDelta = '{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}'; - RID_PedidosProveedor_Articulos_PendientesDelta = '{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}'; + RID_PedidosProveedorDelta = '{5997064D-F0FF-4FB9-AD7E-A668B603BC5B}'; + RID_PedidosProveedor_DetallesDelta = '{0AD7F862-4E6A-4950-8EDD-0A6AA663420B}'; + RID_PedidosProveedor_Articulos_PendientesDelta = '{948C7FA3-A6E5-45F6-93C2-731544474830}'; type { IPedidosProveedorDelta } IPedidosProveedorDelta = interface(IPedidosProveedor) - ['{EA735EC9-0277-4D0F-8843-4A6F66360099}'] + ['{5997064D-F0FF-4FB9-AD7E-A668B603BC5B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -484,7 +484,7 @@ type { IPedidosProveedor_DetallesDelta } IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) - ['{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}'] + ['{0AD7F862-4E6A-4950-8EDD-0A6AA663420B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; @@ -494,7 +494,8 @@ type function GetOldCANTIDADValue : Float; function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; - function GetOldVISIBLEValue : SmallInt; + function GetOldVISIBLEValue : Integer; + function GetOldVALORADOValue : SmallInt; function GetOldID_ARTICULOValue : Integer; function GetOldDESCUENTOValue : Float; function GetOldIMPORTE_PORTEValue : Currency; @@ -510,7 +511,8 @@ type property OldCANTIDAD : Float read GetOldCANTIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; 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 OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; @@ -571,12 +573,18 @@ type function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetVISIBLEValue: SmallInt; virtual; + function GetVISIBLEValue: Integer; virtual; function GetVISIBLEIsNull: Boolean; virtual; - function GetOldVISIBLEValue: SmallInt; virtual; + function GetOldVISIBLEValue: Integer; virtual; function GetOldVISIBLEIsNull: Boolean; virtual; - procedure SetVISIBLEValue(const aValue: SmallInt); virtual; + procedure SetVISIBLEValue(const aValue: Integer); 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_ARTICULOIsNull: Boolean; virtual; function GetOldID_ARTICULOValue: Integer; virtual; @@ -641,10 +649,14 @@ type property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; 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 OldVISIBLE : SmallInt read GetOldVISIBLEValue; + property OldVISIBLE : Integer read GetOldVISIBLEValue; 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_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; @@ -674,7 +686,7 @@ type { IPedidosProveedor_Articulos_PendientesDelta } IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) - ['{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}'] + ['{948C7FA3-A6E5-45F6-93C2-731544474830}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; function GetOldREFERENCIAValue : String; @@ -2203,7 +2215,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL] := Null; end; -function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt; +function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE]; end; @@ -2213,7 +2225,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE]); end; -function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: SmallInt; +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE]; end; @@ -2223,7 +2235,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE]); end; -procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: SmallInt); +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := aValue; end; @@ -2234,6 +2246,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := Null; 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; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO]; diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas index 36d3441..360fd5f 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas @@ -51,6 +51,7 @@ procedure TBizDetallesPedidoProveedor.OnNewRecord(Sender: TDADataTable); begin inherited; VISIBLE := 1; + VALORADO := 1; end; initialization diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm index 4a57d40..dc9a47a 100644 --- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm @@ -383,13 +383,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor '_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_PROVEEDOR_DETALLES' + '.CONCEPTO, PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD,'#10' PEDIDOS_PROV' + 'EEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORT' + - 'E_TOTAL,'#10' PEDIDOS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' PEDIDOS_PR' + - 'OVEEDOR_DETALLES.ID_ARTICULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUEN' + - 'TO,'#10' PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.' + - 'REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'F' + - 'ROM PEDIDOS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON PEDIDOS_PR' + - 'OVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER ' + - 'BY POSICION;'#10 + 'E_TOTAL,'#10' PEDIDOS_PROVEEDOR_DETALLES.VISIBLE,'#10' PEDIDOS_PRO' + + 'VEEDOR_DETALLES.VALORADO,'#10' PEDIDOS_PROVEEDOR_DETALLES.ID_ARTI' + + 'CULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUENTO,'#10' PEDIDOS_PROVEEDO' + + 'R_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.RE' + + 'FERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PEDIDOS_PROVEEDOR_DE' + + 'TALLES'#10'LEFT JOIN ARTICULOS ON PEDIDOS_PROVEEDOR_DETALLES.ID_ARTI' + + 'CULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10 StatementType = stSQL ColumnMappings = < item @@ -449,6 +449,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor DatasetField = 'REFERENCIA_PROVEEDOR' TableField = '' SQLOrigin = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'PedidosProveedor_Detalles' @@ -464,6 +468,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor item Name = 'ID_PEDIDO' DataType = datInteger + DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO' end item Name = 'POSICION' @@ -474,11 +479,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor Name = 'TIPO_DETALLE' DataType = datString Size = 10 + DictionaryEntry = 'PedidosProveedor_Detalles_TIPO_DETALLE' end item Name = 'CONCEPTO' DataType = datString Size = 2000 + DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO' end item Name = 'CANTIDAD' @@ -488,36 +495,49 @@ object srvPedidosProveedor: TsrvPedidosProveedor item Name = 'IMPORTE_UNIDAD' DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_UNIDAD' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_TOTAL' end item Name = 'VISIBLE' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_Detalles_VISIBLE' + end + item + Name = 'VALORADO' DataType = datSmallInt + DisplayLabel = #191'Valorado?' end item Name = 'ID_ARTICULO' DataType = datInteger + DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO' end item Name = 'DESCUENTO' DataType = datFloat + DictionaryEntry = 'PedidosProveedor_Detalles_DESCUENTO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_PORTE' end item Name = 'REFERENCIA' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA' end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 + DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR' end> end item @@ -618,6 +638,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'CANTIDAD' DataType = datCurrency @@ -688,10 +713,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor SQL = 'INSERT'#10' INTO PEDIDOS_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICION' + ', ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TOTA' + - 'L, VISIBLE, ID_PEDIDO,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORT' + - 'E)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CONC' + - 'EPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_PEDID' + - 'O, '#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)' + 'L, VISIBLE, VALORADO, ID_PEDIDO,'#10' ID_ARTICULO, DESCUENTO, IM' + + 'PORTE_PORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETA' + + 'LLE, :CONCEPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,' + + ' :VALORADO, :ID_PEDIDO,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_' + + 'PORTE)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -717,6 +743,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'CANTIDAD' DataType = datCurrency @@ -792,9 +823,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor 'D, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE =' + ' :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD =' + ' :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISI' + - 'BLE = :VISIBLE, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ARTICULO = ' + - ':ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :I' + - 'MPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)' + 'BLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_PEDIDO = :ID_P' + + 'EDIDO, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESCUEN' + + 'TO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID' + + ')'#10 StatementType = stSQL ColumnMappings = <> end> @@ -824,14 +856,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor Name = 'ID_EMPRESA' Value = '' end - item - Name = 'FECHA_ALTA' - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - Value = '' - end item Name = 'ID_PROVEEDOR' Value = '' @@ -946,13 +970,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor '_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_I' + 'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA)'#10' VA' + 'LUES'#10' (:USUARIO, :OBSERVACIONES, :REFERENCIA, :ID,'#10' :ID_E' + - 'MPRESA, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :ID_PROVEEDOR, :F' + - 'ECHA_ENVIO, :FECHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTR' + - 'EGA, :INCIDENCIAS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :' + - 'ID_ALMACEN, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' ' + - ' :PERSONA_CONTACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NET' + - 'O, '#10' :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_I' + - 'MPONIBLE, '#10' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO, :ID_TIENDA)'#10 + 'MPRESA, CURRENT_TIMESTAMP,'#10' :ID_PROVEEDOR, :FECHA_ENVIO, :FE' + + 'CHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTREGA, :INCIDENCI' + + 'AS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :ID_ALMACEN, :CA' + + 'LLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :PERSONA_CONT' + + 'ACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, '#10' :IMPOR' + + 'TE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, '#10' ' + + ' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO, :ID_TIENDA)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -980,14 +1004,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor Name = 'ID_EMPRESA' Value = '' end - item - Name = 'FECHA_ALTA' - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - Value = '' - end item Name = 'ID_PROVEEDOR' Value = '' @@ -1099,22 +1115,22 @@ object srvPedidosProveedor: TsrvPedidosProveedor SQL = 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' USUARIO = :USU' + 'ARIO, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :RE' + - 'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_' + - 'ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROV' + - 'EEDOR = :ID_PROVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECH' + - 'A_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFI' + - 'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS =' + - ' :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDEN' + - 'CIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMAC' + - 'EN, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVI' + - 'NCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PER' + - 'SONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ' + - ' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :' + - 'IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENT' + - 'O = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' ' + - ' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORT' + - 'E_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' I' + - 'D_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_MODIFICACION =' + + ' CURRENT_TIMESTAMP,'#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' FECHA' + + '_ENVIO = :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FECHA_PEDIDO, '#10' FE' + + 'CHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' FECHA_ENTREGA = :FE' + + 'CHA_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' IMPORTE_TOTAL' + + ' = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIV' + + 'AS, '#10' ID_ALMACEN = :ID_ALMACEN, '#10' CALLE = :CALLE, '#10' POB' + + 'LACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_PO' + + 'STAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO' + + ', '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_CLIENTE = :ID_PEDIDO' + + '_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE ' + + '= :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESC' + + 'UENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBL' + + 'E, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ID_FOR' + + 'MA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' ' + + ' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1480,6 +1496,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor Name = 'PedidosProveedor_REF_PED_CLIENTE' DataType = datString Size = 255 + end + item + Name = 'PedidosProveedor_Detalles_VALORADO' + DataType = datSmallInt + DisplayLabel = 'VALORADO' end> Left = 88 Top = 152 diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas index 1f4a6db..84bf720 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas @@ -19,7 +19,6 @@ type procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable); function BuscarCapitulo (const Tipo: String): IBizCapitulo; procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); - procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente end; TDetallesPresupuestoClienteController = class(TControllerDetallesArticulos, IDetallesPresupuestoClienteController) @@ -54,7 +53,6 @@ type procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override; procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String); - procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente end; implementation @@ -260,44 +258,6 @@ begin 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); begin inherited; diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm index 07f60d9..60e5506 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm @@ -323,6 +323,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente Name = 'VISIBLE' DataType = datSmallInt end + item + Name = 'VALORADO' + DataType = datSmallInt + end item Name = 'ID_ARTICULO' DataType = datInteger @@ -348,6 +352,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente item Name = 'REFERENCIA_PROVEEDOR' DataType = datString + Size = 255 end> Params = <> MasterMappingMode = mmWhere @@ -469,6 +474,12 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente DataType = datInteger DisplayLabel = 'CapitulosPresupuesto_VISIBLE' DictionaryEntry = 'CapitulosPresupuesto_VISIBLE' + end + item + Name = 'VALORADO' + DataType = datInteger + DisplayLabel = 'CapitulosPresupuesto_VALORADO' + DictionaryEntry = 'CapitulosPresupuesto_VALORADO' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.RES b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index ec6be63..d7d5627 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -3,18 +3,18 @@ unit schPresupuestosClienteClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_Valores = '{E16B10D1-C266-4C34-B6B3-F1989F42A69D}'; - RID_Propiedades = '{32C1DC73-81A3-4292-9235-BED9E72241DD}'; - RID_ListaAnosPresupuestos = '{34090E28-8CDD-4F94-8CFE-C253CAC9406C}'; - RID_PresupuestosCliente = '{50970F54-A011-4019-9A0B-83FBD7822F82}'; - RID_CapitulosPresupuesto = '{0CAADB7F-FAA0-444A-AA5A-D2596E74F088}'; - RID_PresupuestosCliente_Detalles = '{51062533-EB77-4CF6-ACC4-1FA88E21C0D0}'; + RID_Valores = '{57C9E146-05FF-4C0B-A29E-9C476B04D60A}'; + RID_Propiedades = '{4BE10F7B-91E6-403A-820A-8FE3436FFF07}'; + RID_ListaAnosPresupuestos = '{6C734448-3C27-4A94-B5AF-D35DA8B624E9}'; + RID_PresupuestosCliente = '{FA8B3E42-3B3B-4A2D-9B62-457CC1471E4D}'; + RID_CapitulosPresupuesto = '{BF9749E2-1C81-400F-B33F-218045066EB4}'; + RID_PresupuestosCliente_Detalles = '{044A74E5-A3DB-43C5-AC20-3AFB0270950E}'; { Data table names } nme_Valores = 'Valores'; @@ -153,6 +153,7 @@ const fld_CapitulosPresupuestoIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_CapitulosPresupuestoDESCUENTO = 'DESCUENTO'; fld_CapitulosPresupuestoIMPORTE_PORTE = 'IMPORTE_PORTE'; + fld_CapitulosPresupuestoVALORADO = 'VALORADO'; fld_CapitulosPresupuestoVISIBLE = 'VISIBLE'; { CapitulosPresupuesto field indexes } @@ -166,7 +167,8 @@ const idx_CapitulosPresupuestoIMPORTE_TOTAL = 7; idx_CapitulosPresupuestoDESCUENTO = 8; idx_CapitulosPresupuestoIMPORTE_PORTE = 9; - idx_CapitulosPresupuestoVISIBLE = 10; + idx_CapitulosPresupuestoVALORADO = 10; + idx_CapitulosPresupuestoVISIBLE = 11; { PresupuestosCliente_Detalles fields } fld_PresupuestosCliente_DetallesID = 'ID'; @@ -178,6 +180,7 @@ const fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD'; fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_PresupuestosCliente_DetallesVALORADO = 'VALORADO'; fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE'; fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_PresupuestosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO'; @@ -196,18 +199,19 @@ const idx_PresupuestosCliente_DetallesCANTIDAD = 6; idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7; idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8; - idx_PresupuestosCliente_DetallesVISIBLE = 9; - idx_PresupuestosCliente_DetallesID_ARTICULO = 10; - idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 11; - idx_PresupuestosCliente_DetallesDESCUENTO = 12; - idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 13; - idx_PresupuestosCliente_DetallesREFERENCIA = 14; - idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 15; + idx_PresupuestosCliente_DetallesVALORADO = 9; + idx_PresupuestosCliente_DetallesVISIBLE = 10; + idx_PresupuestosCliente_DetallesID_ARTICULO = 11; + idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 12; + idx_PresupuestosCliente_DetallesDESCUENTO = 13; + idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 14; + idx_PresupuestosCliente_DetallesREFERENCIA = 15; + idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 16; type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{D5CB76A1-9B62-4056-9F89-730A4F31838D}'] + ['{462EADE1-2E42-45FD-8E3D-02E41B35A94A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -251,7 +255,7 @@ type end; { TValoresDataTableRules } - TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores) + TValoresDataTableRules = class(TDADataTableRules, IValores) private protected { Property getters and setters } @@ -302,7 +306,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{A512708D-39DE-45D9-A514-EFD79C6FD584}'] + ['{A2A973F8-1D1D-4C8F-9371-9B72435227EA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -322,7 +326,7 @@ type end; { TPropiedadesDataTableRules } - TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades) + TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades) private protected { Property getters and setters } @@ -349,7 +353,7 @@ type { IListaAnosPresupuestos } IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) - ['{18B6359D-D371-4068-8A84-3DE897B7E7B8}'] + ['{A0D991B4-D303-41B0-BA06-C99C6913390D}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -363,7 +367,7 @@ type end; { TListaAnosPresupuestosDataTableRules } - TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos) + TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos) private protected { Property getters and setters } @@ -384,7 +388,7 @@ type { IPresupuestosCliente } IPresupuestosCliente = interface(IDAStronglyTypedDataTable) - ['{1F9AD51F-1911-49A2-82BE-37DF2D4B2A11}'] + ['{722C48BC-8220-4F31-A68C-2FA7552D025C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -640,7 +644,7 @@ type end; { TPresupuestosClienteDataTableRules } - TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente) + TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente) private f_FORMA_PAGO: IROStrings; f_PLAZO_ENTREGA: IROStrings; @@ -911,7 +915,7 @@ type { ICapitulosPresupuesto } ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable) - ['{0D499AEC-C74B-495F-84F1-3FBADEC47C7E}'] + ['{409391D9-20DD-496C-8271-7AB8983EA3EF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -953,6 +957,10 @@ type procedure SetIMPORTE_PORTEValue(const aValue: Integer); function GetIMPORTE_PORTEIsNull: 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; procedure SetVISIBLEValue(const aValue: Integer); function GetVISIBLEIsNull: Boolean; @@ -980,12 +988,14 @@ type property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; 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 VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; end; { TCapitulosPresupuestoDataTableRules } - TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto) + TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto) private protected { Property getters and setters } @@ -1029,6 +1039,10 @@ type procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual; function GetIMPORTE_PORTEIsNull: 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; procedure SetVISIBLEValue(const aValue: Integer); virtual; function GetVISIBLEIsNull: Boolean; virtual; @@ -1055,6 +1069,8 @@ type property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; 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 VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; @@ -1066,7 +1082,7 @@ type { IPresupuestosCliente_Detalles } IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{AF58312B-DFCD-4038-8B41-696C909BD857}'] + ['{E06194DA-C67C-4012-9645-4D98FBD1A65F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1104,6 +1120,10 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); function GetIMPORTE_TOTALIsNull: 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; procedure SetVISIBLEValue(const aValue: SmallInt); function GetVISIBLEIsNull: Boolean; @@ -1153,6 +1173,8 @@ type property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; 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 VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; @@ -1170,7 +1192,7 @@ type end; { TPresupuestosCliente_DetallesDataTableRules } - TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles) + TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles) private protected { Property getters and setters } @@ -1210,6 +1232,10 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; function GetIMPORTE_TOTALIsNull: 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; procedure SetVISIBLEValue(const aValue: SmallInt); virtual; function GetVISIBLEIsNull: Boolean; virtual; @@ -1258,6 +1284,8 @@ type property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; 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 VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; @@ -2645,6 +2673,27 @@ begin DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsVariant := Null; 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; begin result := DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsInteger; @@ -2867,6 +2916,27 @@ begin DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null; 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; begin result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsSmallInt; diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas index 972bd7d..3dae25a 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas @@ -9,17 +9,17 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ValoresDelta = '{C002A600-D743-41AD-AB05-509A3CFA752B}'; - RID_PropiedadesDelta = '{F6E80F06-3BE5-4098-929E-88D75164E91E}'; - RID_ListaAnosPresupuestosDelta = '{B32D0ECD-A7F9-44BC-8F71-68F699493E80}'; - RID_PresupuestosClienteDelta = '{4589E19A-FBF6-40BF-8EDC-CDC6CF01A657}'; - RID_CapitulosPresupuestoDelta = '{CD65BC24-6D66-463B-8A39-2E83D02E7025}'; - RID_PresupuestosCliente_DetallesDelta = '{99470627-E8C7-466D-B7C9-2AB76DD558FC}'; + RID_ValoresDelta = '{0DFF292A-C0F6-4340-B980-2E384A813763}'; + RID_PropiedadesDelta = '{348BD315-BA9C-45E0-A524-85591A47838A}'; + RID_ListaAnosPresupuestosDelta = '{CCFE0D8C-377A-4D72-96E7-475EDA12309D}'; + RID_PresupuestosClienteDelta = '{E6D86574-0DF3-402A-832E-F3706341F88B}'; + RID_CapitulosPresupuestoDelta = '{06A01999-D2F4-4C61-8036-3EB77B4BF57B}'; + RID_PresupuestosCliente_DetallesDelta = '{2820C6A3-C1CB-47CF-94FD-2580C9CE734E}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{C002A600-D743-41AD-AB05-509A3CFA752B}'] + ['{0DFF292A-C0F6-4340-B980-2E384A813763}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -113,7 +113,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{F6E80F06-3BE5-4098-929E-88D75164E91E}'] + ['{348BD315-BA9C-45E0-A524-85591A47838A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -159,7 +159,7 @@ type { IListaAnosPresupuestosDelta } IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) - ['{B32D0ECD-A7F9-44BC-8F71-68F699493E80}'] + ['{CCFE0D8C-377A-4D72-96E7-475EDA12309D}'] { Property getters and setters } function GetOldANOValue : String; @@ -193,7 +193,7 @@ type { IPresupuestosClienteDelta } IPresupuestosClienteDelta = interface(IPresupuestosCliente) - ['{4589E19A-FBF6-40BF-8EDC-CDC6CF01A657}'] + ['{E6D86574-0DF3-402A-832E-F3706341F88B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -723,7 +723,7 @@ type { ICapitulosPresupuestoDelta } ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto) - ['{CD65BC24-6D66-463B-8A39-2E83D02E7025}'] + ['{06A01999-D2F4-4C61-8036-3EB77B4BF57B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -735,6 +735,7 @@ type function GetOldIMPORTE_TOTALValue : Integer; function GetOldDESCUENTOValue : Integer; function GetOldIMPORTE_PORTEValue : Integer; + function GetOldVALORADOValue : Integer; function GetOldVISIBLEValue : Integer; { Properties } @@ -748,6 +749,7 @@ type property OldIMPORTE_TOTAL : Integer read GetOldIMPORTE_TOTALValue; property OldDESCUENTO : Integer read GetOldDESCUENTOValue; property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue; + property OldVALORADO : Integer read GetOldVALORADOValue; property OldVISIBLE : Integer read GetOldVISIBLEValue; end; @@ -816,6 +818,12 @@ type function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; procedure SetIMPORTE_PORTEValue(const aValue: Integer); 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 GetVISIBLEIsNull: Boolean; virtual; function GetOldVISIBLEValue: Integer; virtual; @@ -864,6 +872,10 @@ type property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue; 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 VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property OldVISIBLE : Integer read GetOldVISIBLEValue; @@ -877,7 +889,7 @@ type { IPresupuestosCliente_DetallesDelta } IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) - ['{99470627-E8C7-466D-B7C9-2AB76DD558FC}'] + ['{2820C6A3-C1CB-47CF-94FD-2580C9CE734E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PRESUPUESTOValue : Integer; @@ -888,6 +900,7 @@ type function GetOldCANTIDADValue : Currency; function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; + function GetOldVALORADOValue : SmallInt; function GetOldVISIBLEValue : SmallInt; function GetOldID_ARTICULOValue : Integer; function GetOldTIPO_ARTICULOValue : String; @@ -906,6 +919,7 @@ type property OldCANTIDAD : Currency read GetOldCANTIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldVALORADO : SmallInt read GetOldVALORADOValue; property OldVISIBLE : SmallInt read GetOldVISIBLEValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue; @@ -974,6 +988,12 @@ type function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); 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 GetVISIBLEIsNull: Boolean; virtual; function GetOldVISIBLEValue: SmallInt; virtual; @@ -1054,6 +1074,10 @@ type property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; 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 VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property OldVISIBLE : SmallInt read GetOldVISIBLEValue; @@ -3070,6 +3094,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE] := Null; 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; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE]; @@ -3392,6 +3447,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL] := Null; 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; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE]; diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas index a673775..4f2ae4e 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas @@ -98,11 +98,12 @@ begin end; procedure TBizDetallesPresupuestoCliente.OnNewRecord(Sender: TDADataTable); -var - AMasterTable : TDADataTable; +//var +// AMasterTable : TDADataTable; begin inherited; + VALORADO := 1; VISIBLE := 1; {AMasterTable := DataTable.GetMasterDataTable; diff --git a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.RES b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm index 2b4d81b..72b3f58 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm @@ -524,7 +524,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente item Name = 'ID_PRE_CON' DataType = datInteger - Value = '' + Value = '7023' end> Statements = < item @@ -595,6 +595,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente item DatasetField = 'VISIBLE' TableField = 'VISIBLE' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'Informe_Capitulos_Detalles' @@ -660,6 +664,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente Name = 'IMPORTE_TOTAL' DataType = datCurrency end + item + Name = 'VALORADO' + DataType = datSmallInt + end item Name = 'VISIBLE' DataType = datSmallInt @@ -1403,6 +1411,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency + end + item + Name = 'VALORADO' + DataType = datSmallInt end> Params = < item @@ -1624,6 +1636,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente item Name = 'VISIBLE' DataType = datSmallInt + end + item + Name = 'VALORADO' + DataType = datSmallInt end> Params = < item diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm index 3918d79..a95d222 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm @@ -546,9 +546,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente SQL = 'SELECT'#10' ID, POSICION, TIPO_DETALLE, TIPO_ARTICULO, CONCEPTO,'#10 + ' 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' ' + - 'PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE {Where}'#10' order by posici' + - 'on'#10 + ' DESCUENTO,'#10' 0 as IMPORTE_PORTE,'#10' 1 as VISIBLE,'#10' 1 as V' + + 'ALORADO'#10' FROM'#10' PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE {Where' + + '}'#10' order by posicion'#10 StatementType = stSQL ColumnMappings = < item @@ -600,6 +600,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DatasetField = 'VISIBLE' TableField = '' SQLOrigin = 'VISIBLE' + end + item + DatasetField = 'VALORADO' + TableField = '' + SQLOrigin = 'VALORADO' end> end> Name = 'CapitulosPresupuesto' @@ -659,6 +664,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DataType = datInteger DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_PORTE' end + item + Name = 'VALORADO' + DataType = datInteger + DictionaryEntry = 'CapitulosPresupuesto_VALORADO' + end item Name = 'VISIBLE' DataType = datInteger @@ -679,15 +689,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'TOS_CLIENTE_DETALLES.PROPIEDAD, PRESUPUESTOS_CLIENTE_DETALLES.CO' + 'NCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CANTIDAD,'#10' PRESUPUESTOS' + '_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_DETALLES.' + - 'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE,'#10#10' P' + - 'RESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_D' + - 'ETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.DESCUEN' + - 'TO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.R' + - 'EFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para qu' + - 'e no fallen los detalles porque los detalles son comunes para la' + - ' rama de cliente y de proveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DET' + - 'ALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_AR' + - 'TICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10 + 'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE,'#10' PR' + + 'ESUPUESTOS_CLIENTE_DETALLES.VALORADO,'#10' PRESUPUESTOS_CLIENTE_D' + + 'ETALLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_ARTICULO' + + ','#10' PRESUPUESTOS_CLIENTE_DETALLES.DESCUENTO,'#10' PRESUPUESTOS_' + + 'CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as ' + + 'REFERENCIA_PROVEEDOR /*Es necesario para que no fallen los detal' + + 'les porque los detalles son comunes para la rama de cliente y de' + + ' proveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTIC' + + 'ULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID' + + #10'where {where}'#10'ORDER BY POSICION;'#10#10#10 StatementType = stSQL ColumnMappings = < item @@ -755,6 +766,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item DatasetField = 'PROPIEDAD' TableField = 'PROPIEDAD' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'PresupuestosCliente_Detalles' @@ -800,6 +815,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'IMPORTE_TOTAL' DataType = datCurrency end + item + Name = 'VALORADO' + DataType = datSmallInt + end item Name = 'VISIBLE' DataType = datSmallInt @@ -829,6 +848,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'REFERENCIA_PROVEEDOR' DataType = datString + Size = 255 end> end> JoinDataTables = <> @@ -1253,7 +1273,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Statements = < item Connection = 'IBX' - Default = True TargetTable = 'PRESUPUESTOS_CLIENTE' SQL = 'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' FECHA_PRESU' + @@ -1283,6 +1302,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'ID' DataType = datAutoInc @@ -1366,12 +1390,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente SQL = 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' + 'STO, POSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' ' + - ' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTIC' + - 'ULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:I' + - 'D, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCE' + - 'PTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10 + - ' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, C' + - 'URRENT_TIMESTAMP)'#10 + ' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, VALORADO, ID_ARTICULO, ' + + 'TIPO_ARTICULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALU' + + 'ES'#10' (:ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIED' + + 'AD, :CONCEPTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, ' + + ':VISIBLE, :VALORADO,'#10' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUEN' + + 'TO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1399,6 +1423,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente end item Params = < + item + Name = 'VALORADO' + DataType = datSmallInt + Value = '' + end item Name = 'ID' DataType = datInteger @@ -1488,10 +1517,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente 'TIPO_DETALLE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' C' + 'ONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNI' + 'DAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' + - 'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_A' + - 'RTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPOR' + - 'TE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIME' + - 'STAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'VISIBLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_ARTICULO =' + + ' :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENT' + + 'O = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_M' + + 'ODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1975,6 +2004,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'CapitulosPresupuesto_VISIBLE' DataType = datInteger + end + item + Name = 'CapitulosPresupuesto_VALORADO' + DataType = datInteger end> Left = 48 Top = 152 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm index d7dcf5f..147f147 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm @@ -70,46 +70,47 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente VisibleForCustomization = False end inherited cxGridViewVISIBLE: TcxGridDBColumn [5] - Caption = #191'Valorado?' Visible = True - Width = 30 end - object cxGridViewPROPIEDAD: TcxGridDBColumn [6] + inherited cxGridViewVALORADO: TcxGridDBColumn [6] + Visible = True + end + object cxGridViewPROPIEDAD: TcxGridDBColumn [7] DataBinding.FieldName = 'PROPIEDAD' PropertiesClassName = 'TcxRichEditProperties' OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit - BestFitMaxWidth = 150 - Width = 29 + BestFitMaxWidth = 64 + Width = 64 IsCaptionAssigned = True end - inherited cxGridViewREFERENCIA: TcxGridDBColumn [7] + inherited cxGridViewREFERENCIA: TcxGridDBColumn [8] end - inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [8] + inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [9] DataBinding.FieldName = '' end - inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9] + inherited cxGridViewDESCRIPCION: TcxGridDBColumn [10] OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit Width = 403 end - inherited cxGridViewCANTIDAD: TcxGridDBColumn [10] + inherited cxGridViewCANTIDAD: TcxGridDBColumn [11] VisibleForCustomization = False Width = 41 end - inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11] + inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [12] VisibleForCustomization = False Width = 56 end - inherited cxGridViewDESCUENTO: TcxGridDBColumn [12] + inherited cxGridViewDESCUENTO: TcxGridDBColumn [13] Width = 33 end - inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13] + inherited cxGridViewIMPORTENETO: TcxGridDBColumn [14] Visible = False VisibleForCustomization = False Width = 29 end - inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14] + inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [15] end - inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15] + inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16] VisibleForCustomization = False Width = 48 end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas index 2ba2346..8ffcec2 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas @@ -69,7 +69,6 @@ type procedure actCapituloVariosExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject); procedure actCapituloImportesExecute(Sender: TObject); - procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure cxGridViewPROPIEDADGetPropertiesForEdit( Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; @@ -240,6 +239,7 @@ end; procedure TfrViewDetallesPresupuestoCliente.CustomViewDestroy(Sender: TObject); begin + cxGridViewVALORADO.Properties.OnEditValueChanged := Nil; cxGridViewVISIBLE.Properties.OnEditValueChanged := Nil; inherited; end; @@ -253,8 +253,6 @@ begin // FPropiedades.DataTable.Active := True; DAPropiedades.DataTable := FPropiedades.DataTable; DAValores.DataTable := FPropiedades.Valores.DataTable; - - cxGridViewVISIBLE.Properties.OnEditValueChanged := OnVISIBLEPropertiesEditValueChanged; end; end; @@ -300,27 +298,6 @@ begin AProperties := cxRichEdit1.Properties; 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; var IndiceCol : Integer; diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/PreCli_ConCli_relation.RES b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/PreCli_ConCli_relation.RES index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas b/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas index 9d794c8..cbf4ac2 100644 --- a/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas +++ b/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas @@ -141,8 +141,8 @@ procedure TsrvConfiguracion.GuardarValor(const CODIGO: AnsiString; const Valor: var ACurrentConn : IDAConnection; ACommand : IDASQLCommand; - st: TStringStream; - st2: IROStream; +// st: TStringStream; +// st2: IROStream; begin //Creamos la variable de configuración con su valor por defecto @@ -181,9 +181,6 @@ procedure TsrvConfiguracion.guardarValorParaEmpresa(const CODIGO: AnsiString; var ACurrentConn : IDAConnection; ACommand : IDASQLCommand; - st: TStringStream; - st2: IROStream; - begin //Creamos la variable de configuración con su valor por defecto ACurrentConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 98dbf9a..49f24e6 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -113,20 +113,10 @@ uses srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService}, uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas', 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', 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', 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', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_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', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', - schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', - schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', + schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_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', - 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 ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index c3133c33622f13cb2fc090f220239122130c7ba4..0dced15eba6b67a81818db5a702cdb7544591531 100644 GIT binary patch delta 211 zcmeyfopHl9#tkJASq1`JJPdHa$iT)RAi%)D$RNRx!3v_`JQfB9CI$rsh};Se1_ovX z52%BM!N342$H&0Hir}d-0L^4zFkzZ}FG7w9Nd1fO5McqDj0z?(PL7IHV#;HjTo)NP znIp{iu45YgIX${MPieho7g-ANZ9}sOU?zWHwm0UE@a5;-K$pfU^mq?jP z@lkB-eFqWeZa0bpyC1VN^L^h=U&Pm|m}b$v?=LRl7XoweeL$dsq?}jF6p|7kp_J7o z6~J>$VZuZSVd%7FpzIj6HLxe)nUAO@S-zvwYVQ1xhBP`3WL=tJe7(6vUEmmPba00w zo<44nlJ}7De!`=ToA-Ek6cp|=zGZZ#tWD-Fcz4My)(g)$d8<$l*`tR+(X)kwNeesq z&v!*f6SvHDSyMc4lNqe{GH^}WZt!gFd=0mNS5cgi L2iU{D`P3&r#sxlL