From 90f7f26b61ed8556dec493ed23fd617c886ee035 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 28 Jun 2007 14:45:27 +0000 Subject: [PATCH] =?UTF-8?q?Arraglo=20maestro=20detalle=20a=20al=20hora=20d?= =?UTF-8?q?e=20a=C3=B1adir=20articulos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@71 c93665c3-c93d-084d-9b98-7d5f4a9c3376 --- Source/Base/Base.res | Bin 32 -> 5056 bytes Source/Cliente/FactuGES.bdsproj | 6 ++--- Source/Cliente/FactuGES.res | Bin 171980 -> 172152 bytes .../Model/uBizAlbaranesCliente.pas | 15 ++++++++++-- .../Model/uBizAlbaranesProveedor.pas | 15 ++++++++++-- .../Model/uBizPedidosProveedor.pas | 15 ++++++++++-- .../Model/uBizPedidosCliente.pas | 15 ++++++++++-- Source/Servidor/FactuGES_Server.bdsproj | 23 +++++++++--------- 8 files changed, 66 insertions(+), 23 deletions(-) diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5True False 2 - 0 - 8 + 1 + 0 0 False False @@ -162,7 +162,7 @@ Rodax Software S.L. - 2.0.8.0 + 2.1.0.0 FactuGES diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 3c3637b9190445a9b4d03acea57b775e9717da0e..7276ccf519a067f027e89a9883450ed6171fbccd 100644 GIT binary patch delta 491 zcmY+9y-or_6otPT0bwO(OUg}%zlmh6jghD^6ec$GK-2(Hl%S0j6c#)H$e|+}=!z5CTyx2>oIB3x3GZ?*-&<~MJa`TDMtYYLe()3Oz5aTfJe5R~hNO?g+vOq7 tHfc%P!cJKDs^VyHA-Rs!9#=AP4(mNjdbDM>={(=gu#V(n1jQ%){0qcDLg4@a delta 321 zcmYL^v2MaJ6h)8SgoYGVS&%YDYLQroJR%{~s1pNYcVOc$nxO+9P{|Wv%?Gg4k%574 zV9p1yrM4WBYuQ&v_dWah{uf?OVg4hI(%XNlC>+pAFd&LR5VQ5Ix8#8&j$L-{!Bb1S zK6oUF%gO-!j?8U6lxnh9cc(bE)Trd=q26Ddb95g?#rFDN{W>$eF$# GWcd#x`YA2| diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas index c2e536c9..ecdf04e7 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas @@ -91,7 +91,7 @@ implementation uses SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, - uDataTableUtils, DateUtils, uDateUtils; + uDataTableUtils, DateUtils, uDateUtils, DB; { TBizAlbaranCliente } @@ -211,6 +211,9 @@ begin end; procedure TBizAlbaranCliente.SetCliente(AValue: IBizCliente); +var + bEnEdicion : Boolean; + begin FCliente := AValue; @@ -221,9 +224,17 @@ begin if ID_Cliente <> FCliente.ID then begin - DataTable.Edit; + bEnEdicion := (DataTable.State in dsEditModes); + if not bEnEdicion then + DataTable.Edit; + ID_CLIENTE := FCliente.ID; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; + + DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles + //si se quita el id de la cabecera y los detalles se desincroniza + if bEnEdicion then + DataTable.Edit; end; end; end; diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas index 6b7489d6..b9dd1b83 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas @@ -85,7 +85,7 @@ implementation uses SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, - uDataTableUtils, DateUtils, uDateUtils; + uDataTableUtils, DateUtils, uDateUtils, DB; { TBizAlbaranProveedor } @@ -204,6 +204,9 @@ begin end; procedure TBizAlbaranProveedor.SetProveedor(AValue: IBizProveedor); +var + bEnEdicion : Boolean; + begin FProveedor := AValue; @@ -214,8 +217,16 @@ begin if ID_PROVEEDOR <> FProveedor.ID then begin - DataTable.Edit; + bEnEdicion := (DataTable.State in dsEditModes); + if not bEnEdicion then + DataTable.Edit; + ID_PROVEEDOR := FProveedor.ID; + + DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles + //si se quita el id de la cabecera y los detalles se desincroniza + if bEnEdicion then + DataTable.Edit; end; end; end; diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas index b85575f1..5fef610f 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas @@ -91,7 +91,7 @@ implementation uses SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, - uDataTableUtils, DateUtils, uDateUtils; + uDataTableUtils, DateUtils, uDateUtils, DB; { TBizPedidoProveedor } @@ -224,6 +224,9 @@ begin end; procedure TBizPedidoProveedor.SetProveedor(AValue: IBizProveedor); +var + bEnEdicion : Boolean; + begin FProveedor := AValue; @@ -234,8 +237,16 @@ begin if ID_PROVEEDOR <> FProveedor.ID then begin - DataTable.Edit; + bEnEdicion := (DataTable.State in dsEditModes); + if not bEnEdicion then + DataTable.Edit; + ID_PROVEEDOR := FProveedor.ID; + + DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles + //si se quita el id de la cabecera y los detalles se desincroniza + if bEnEdicion then + DataTable.Edit; end; end; end; diff --git a/Source/Modulos/Pedidos de cliente/Model/uBizPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Model/uBizPedidosCliente.pas index 799a94a3..50a15eaf 100644 --- a/Source/Modulos/Pedidos de cliente/Model/uBizPedidosCliente.pas +++ b/Source/Modulos/Pedidos de cliente/Model/uBizPedidosCliente.pas @@ -99,7 +99,7 @@ implementation uses SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, - uDataTableUtils, DateUtils, uDateUtils; + uDataTableUtils, DateUtils, uDateUtils, DB; { TBizPedidoCliente } @@ -231,6 +231,9 @@ begin end; procedure TBizPedidoCliente.SetCliente(AValue: IBizCliente); +var + bEnEdicion : Boolean; + begin FCliente := AValue; @@ -241,9 +244,17 @@ begin if ID_Cliente <> FCliente.ID then begin - DataTable.Edit; + bEnEdicion := (DataTable.State in dsEditModes); + if not bEnEdicion then + DataTable.Edit; + ID_CLIENTE := FCliente.ID; ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; + + DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles + //si se quita el id de la cabecera y los detalles se desincroniza + if bEnEdicion then + DataTable.Edit; end; end; end; diff --git a/Source/Servidor/FactuGES_Server.bdsproj b/Source/Servidor/FactuGES_Server.bdsproj index 3e2c9b20..efda3458 100644 --- a/Source/Servidor/FactuGES_Server.bdsproj +++ b/Source/Servidor/FactuGES_Server.bdsproj @@ -1,4 +1,4 @@ - + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + + False -