From a41e8d7d4a44ca940c68bc7dd120bf627e958f7f Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 21 Feb 2017 11:37:20 +0000 Subject: [PATCH] Se saca referencia de contrato relacionado y referencia de cliente en contrato en los recibos de cliente git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@123 93f398dd-4eb6-7a46-baf6-13f46f578da2 --- ..._SELLO-Cliente-Adherido_Blanco-y-Negro.jpg | Bin 0 -> 10860 bytes ...-Empresas_SELLO-Cliente-Adherido_Color.jpg | Bin 0 -> 14171 bytes Source/Base/Base.dproj | 103 +-- Source/Base/Base.res | Bin 384 -> 4748 bytes Source/Cliente/FactuGES.dproj | 3 +- Source/Cliente/FactuGES.res | Bin 171984 -> 172156 bytes .../Data/uDataModuleRecibosCliente.dfm | 10 + .../Model/schRecibosClienteClient_Intf.pas | 96 ++- .../Model/schRecibosClienteServer_Intf.pas | 102 ++- .../Servidor/srvRecibosCliente_Impl.dfm | 18 + .../Views/uEditorRecibosCliente.dfm | 28 +- .../Views/uViewRecibosCliente.dfm | 8 + .../Views/uViewRecibosCliente.pas | 2 + Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 611 +++++++++--------- Source/Servidor/FactuGES_Server.res | Bin 23352 -> 23560 bytes 16 files changed, 594 insertions(+), 393 deletions(-) create mode 100644 Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Blanco-y-Negro.jpg create mode 100644 Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Color.jpg diff --git a/Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Blanco-y-Negro.jpg b/Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Blanco-y-Negro.jpg new file mode 100644 index 0000000000000000000000000000000000000000..d9c50fc4ff9f81f9cbfdfedab6270c0c276cd138 GIT binary patch literal 10860 zcmeHLdpOkF*Pn5}8>KLA6GDwUqak9FYozE9xs91&rooJv5fX(`(Fi4%B+8|ZkTUKn zL@q<)ey3bZh*6}Jcc{*<^Zb72_rB-%yzd|H^R(xAzB7C8wLWXF&t7ZI-rx1U^_KvU zm6@d(0LTUapjjWl`Yb@?KmZCK3;+T+004jtYv`4rE0#hb>Z_~!k=2lBf+t1|MetP* zLK4+A)il%r21Y?dBnpqAKs+(tI6p(Vca=}%AUL$4oFmLe!-i;r!Qw1VkudhB4jo0E z!lU%iaz^|341)B7e2Kmo3KA0J>*Gh(4>FY71lMQ%-WXPwgKUaW@P=}T4Xco2Hisc5 z1QG_Kqo$>%rHazf)rP>d)wE$+x>`Ca5G@T2xVpw3b!`n*O}M_MmcAw&^1aFJ2h6^kWAzN>zWWsz7^oJgtwtbut841%>8WdIscUJevLsZ=!G08Ekg6Y9egong z#sLf&MZys&ID#K!0~6^<2%s3s$+6}k-@(zSKd^}bB%e)WG)f)ggYm`qQOGRbG}V8W zXE9-i^Ttxhf2jRSs!5wNf6^pk2^0buOCbJh%|E6$x9Vq;mP86lhh=wz&_8rpUZFM@ zOQxXJf0o!(-`uBf*8fO()E}h*4E;aL;1Fn%X%Gd8CjCf_f1WqNQG)+^){a$8 zHe=>5&<~>sXjbTc3+jIXP9gmj_)(0HBZ0)KEB{j0)E9~Sck{oIe#~yt_-*rkDhjOK z_%_BWHmo|Q{zswvwoTtl(*N1lCR_h!=-+{V8Tnfb|Dx*`U4M&#za{)Dx_;61w;1?a z!oQ;He~m7_e_WL?eysaZAnPKuJ`WJuyxsuNPgxf(;QAoo900`6&o96a5)c512@48~ zNs59%qLQ*=8%MBo2Uru0~X!B zT@4VtR}AkRZ~(@QiH-^8X7Q|v9Zz55bI9?B0PWs;CptU9Dq#($Swk0 ze+D=O0Dfz%g??|G9PDgBE+Ftn|Hn570Ay!l@S))Jz8@mX{jxCz;30v(E zNBoQ0Jw-XUA;aagNZOe-`y+Hr7wzO<)pjTxfQkGQ+WG)MfSrXP!Y%?Z0(`M)ZLL#N zz@s7TXI-jXUx+jXuBGhDc2-7eY9tTZwKwX;SuO?|m@CDUkLev7GO6=xw0UNrJ9|!K zZ9{l$J}A~<4`^ZV;Z}cP!O9&RXT-?QNI{k9@`=<V#*gt1fZFYDz`K zYZ(5vD%9Ism1csoL&I^Y+YiyNwCCKhK#WbjMo6OB;rk-SOo~oGPysYTa5NP;C-F&S0IY|-ZpkU(UWGy_E zsM8U7U}bL#>WXS$RAT-vDrl(V_3_CLXzJtU*T-_TKi-vq@u$8r7w+P9%heLrl+56N zW7caXZ^dVk+p0R5m%1vWfQps7<~m;>D}g>7-J%%Hi0|#08z~=i_*&Ar|3kpZ zDRa>x+4CRMxMI=ZiIZk}FTGSbI@4q5TT)QMsw#?4c%32(wH^oa;I-hiw2Y3-(Ac@w zhoeo4`?7?rQW=oGGE;I@x&^5-&;_3p6?4vnuHbPaNYcf*R_FX!eOo|R8?kvz2ua6B z^C>^j#pmT#5?@K#=(JiTRGa!6II@jQT<}_TGvbguA_5cviTvA#=nL5A`1dk28|x+a za#_S%#Q3MtkxO3)?+!@$tplzqb=|L9PI(`j4Su((6>3E{!rii%LCgikM_3HiWj>|i z2Ou{w@KUwXTQ4D9TQez@)hJXG|B}Vb;Zm@wR*k?D|L~C!S3Lb>$s)MutPJ_m+F^9{ z7Jm4-oWj;c$Be?#b-E`IBI z{wPt)I}fR4jjPbi`~ZiQqJ%xr0V%!csg{F5!zq`6b%@TMNa;Zn!8~J#kV%&3F!Z-| zz@oxR!1?Y)^BtUXLaM9y#>dsvkb^S2JF`T^v(^F3=N%&t9+xDnhRth9EwnpO;o$rT zT`oW7_%P7(Vu2_%Ai2_yXy!iFvIDNJnLgmf#D_hgLSIHRB*GC<*iKLEUbnO#wJdE46nnWd0x-m-a#T(+>!)}Nm2 z99uo>Vk$o)57CLwvR}*ZFqO*S1xs;77Z#voh6;eKQ_33FEsEyJjnk2tncX{st58k^ zzn%z5JL8jS{`J0?>_^fmMbV%A-?~ji>*1=f0Xn~N-?%m2@_z3VgifHsj^~kB$A3B#k3gjc`N&FuXuruo*y95;0A0sy&`Eq#?|e&ZJ51^_(3na<6kZ z-~Qm)b1_-kklt!s%Ts{YUb-H zv1S%SbiEsGnGbg<6wGCJbsFDyHuEe+@!Yv*XP7H0-TrSA@lXDIPsXEN-?Fn<#)wt> zZ}ohAk7)QQ504c5l%ZKN?IPUI;W}b)hM>ZIt<^igESuIjIOhxc^v*G^G|89>2lySW z#=gPqhD1bOw^CvAusMx#rPV*{e%;OL^TFj0V#Nih{%XEZSFW5GKK?nf8)GW9I69(i z$gLjO9Hz7mxVzS?oUO4+JTsHo@(#WWonWb$^+s8DZ>y5hE4;Je zyGxUveRN*s-8oi?e_TO0ah%B zrNPD?ju;uzFT{a`Px9#N;bsl2qiqMY*jRZI&+s~dmcqHd-Nf1c!i1i+;YMKOOCxPM*@j&e;*ZSZ=)}! z>3}E^ndRj!$8*j_zgHdk&4nps#rHnrEjg@j=%a}x#2yxGVb_y4=-n``ohB3r2IfjR z90kw%-QXFXP$Lg%7MAU94k%5kE{t`AV?+Zq3-xcGy?Bx5;{WWy=biec@sqG~PEK&) z(3Ol28H*bg`fKURZJ|A9ny$_`AX&+7Zb#ib_95OiqCM zpcC&emv=ec48-u~i6Yy;{H8|RqQ}N8M_k4izFubnDx974$H)C!WTKhr=Vbf{3S|-& zf*#M6*Lpc`e^SnjFKW=?E4!(X*fxBlX`HZwSh$~0>~PsJ8nsiLBbK_``3qZ}|73oE zE3o-Y*XtEX3n4^>UHN0m*W9a_M@lOqPIK3;13u`7HXn$$-1@MwqvJ8G4Ii0`eRWY; z9Ui6G)^2<#8<1dgC?U_aWgSraBBPO^d+nNN)xB$|(Kch5cg%-wPYhdLK=jNjInCN{ zL(Og>{a42BB)C}WAKJ-PsOp7J8@kN#^ri$c3s$PuWe2^ z;x1(6o3O)My`5X@m9eY2|;gYRZULHz0w6$J5@1TIa7}l3ZYI?uWN@+oOO+2IW zU|tjb(W#rywF6|j+qS1nQ4&0Rx|y;b4Kd*`g{6#a!Pys4PA-xQz$792cP`%-$_(QN z=wU)bTb<(YANIz2%^2nlg<%)YynbrF%a41})ja@N*<$>O&t6r(>)H04a=h>5#W>=} zQ+>beoJX(x{#~tFBQaC8!!(teEq= z?}w&zn?X%#E??N4w#fFSgV8U++=|?^&=`6yY$8txkHf9Nv$oVT(4=C}oz+p5D-WoKEcM@FSCDz!Y1O6lfmpK?^!iPf;x;7F$} ztR{8}$}~jiMDQ5m6SGI76!YoQSm z;|+@{0SZ{y-Flp{y+QB1Ipb6}OuIE~B9uFy`^wuhr<6WCsRsF1ezm@3_eglayF>pP z{>ens2dKuEoKX3D+_bCowBx>rPiernYu9NFQ$PbVea0Ky@;Q-hQ2g7Vxq;p-QtkT( zaL0x*q)waueeD-rGnoBuh#M~ndv+mGgRMI%OrlU{mr1HJ&h%c1CycFyoFBd(*9&=w z5xmz7ZE7s;8?^Luuga~r0^x7p)fl#fl*Mt2EK2QmJkB5W(Ef37rYOf%(-G#==5dt+ z+_EXTh-1`5hR*P<06w9wD6(kg{mWC$Cv4@KME$OtH4LlixQ;X5CZ!pBOe+-~E-8*3 zLM|G-@n4JcUfM4yb%YAWF_d!wE+%FP*lo~3%js)+*P1ywt)>Z+OIlur@0&aAP3V!o z^@IA$?|d=ge!?m3_&CC8950{4m6H=AmNT>xkTL8*zkYu@@LA~0fpaNRhZ1Z8^5}kM zu*mmkVJdsV+@`CV1b5FK6cYaoA~ILU&d-m4z1S{Tt%j2NM;I^SD}?o+HIK@3HrZCFz~de}1j-`d4>tMbxNuK1|1;ao_44<-UuI-6PqCPSxR^ zwcuti4w2td2U{l4nM?Lie*n0P3DGy=_n7(8q%8d8s$F`XJ3?m;g~|phbj>(9O+K2E zcsO~tz~G|6$eLi3`g@G6rHk*YQR}|9#&~{DWwiV3jebx&MZXB-m zLSG~*mbt}Kehk+ftjQ#qv{HhvO+Q3?u;8Ju^j_@E)*3L87Hi2-jo^++wYT*voFJR>ofp-(l9TM`MCs4dn!X51Cgs}+vl-DbmwxZ7$-34k{jOy_Ix!>+c~R&0 zK7)!^Os~Y+SQt6a?jDSaGI3UBD6{b-4B0|W&?h|v%>ZgAhPw`>a+@`K>12nVKlFYu zeZE+dbM}bo_EX(-Zq|Wq*dIk)=+#JqpA}U0UyiuYLXXod)Wcv*%^=a;#C=XgA9 z5D=xD`Ei`uVK$}}-9E6Lv$)UAh`UN;&L27yc67Hu;oT|h8Y6^R^*PsZqOfi?zokXI zM+X)`1q0mT{+G}9e|hj1K?QV0IMTAV^kRID!iaTJjknL$NJ6G4GI$@mAJl{UV%oB>v+ykQMBw7etW*-j?M+j&gOr6$@MkK&y{?OI+96 zlg&DO1z*tXh{XH$4R}s(k3%RW+b_8rs2n9eqji78pDlo^IE*d77JC=tEC`)@&0nWB zkGyqqWg6IT0q+HSL|pUN)f(d^-?T~sr-_C8^aw{3K(-eZ!mtI2u~VO3l?tN|-9coC za&OCF;vl6QvY)na;_|t%o+1bO8g#_d$;}nJid=^zgR?{Ou7@WJ?hK_>mc=!`k#=aP zojEKJ3_4=ETe7l0T^?0$3m2^$qM472&n`6%cOulX^(sJk)7=L@CmifwcxEGcR$t7^ zHb6Bq@ya^j4li9<6MUFpsy0eTZ#gs6eU1c-%I<*1RNg!EdVUOS1I&4RR8)l2qPCc& zf1e%9EV%oho!tM&7lR)ch&!t>OD^$^Pr0X8^Y|lY=hDZfwF=-@?FS+Sq&B6UwBS&sc|Rjj!ER!-ycpG#tpQFHRx1;}LcvP4$}njAbS>ytw&5n+Bya@D z$i8Mc7N)$Hl{w#2@7}#{xrjA5bNqAr#?}1WYuW1`*BXY4Xt^+Bz$^Op|9=5NP?&T8 literal 0 HcmV?d00001 diff --git a/Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Color.jpg b/Resources/ASNEF-Empresas_SELLO-Cliente-Adherido_Color.jpg new file mode 100644 index 0000000000000000000000000000000000000000..206b5f77afd23fd55b0a39b9a460ea7783317f5d GIT binary patch literal 14171 zcmeHs2UJwa)@~D3kR&;`AfOVOoP&rY1yLkOXb_szb~jB2l7bQ>NN6Ny5D*YalCw&V zk|hUe$vH?8goj~fod4aq@6Ny8|JHhIO`TOIRPFuk+F$Kcr>f5J(D6qA^>sB(H2?u2 z0AO`;0FIXdG}jySd^&k&m5E&~j zB}FoM7g-mC1Hu|>0dzsY?J=@03S8g8Wl!$E6@$2d-$k%61uo@pR)Kf5Zvj=1XltOj zkf@NTAVgSF3@9NcBqkv$DJm`i6crYh1_?`n#DoP!q-8}!WksZcKNFWC8BiW=Wh1M5 zP3@<-lP3kPpME(zI}16B2_ez8AQ2fE8IZ6jNK{ntL_!ebYLB&W5wyo}e}njeam^Y7 zK|>v|P^3NZ8>WRN(h;k`#dT5-{0VLa`5oKA5e@&2Yy|;X!>tk4_E^jbZz7;yz;T8`QBIz z)(Z5i#CP@Y{q)27?+unUw6?s1wZMLN>?aAo8Qo4IhHG zw!k9MzZkeC!03)F9he@4V#v{mtrs+N`x5D0-oPkP-N zXkle%jfPqwfe<7di3ZwOK(LNz3k*aOht;_eTTd|DawUV_|EpXN^W+{&v&; zlY!-5>Z&3vp#QF3AN^bHcN%|m z-Y=uVNpJipI~i?G20GC1Bi)Z~`Z*^3k6pgA^*@IG6Zjt^e~aON==z7Qzs11c68a%C58L23!7+LA4sp(ib8NVe?4n~%f#K^(H&BMpT%>e?5iGe^@{+tMCsHkXYY3R?L zqo<=eIaufz80c7dSyUtgI zg5HJ-Mk4$gBh85#Aps#V2@&C`A2tXGX^4o=pA%8$qP=Z_3Z?Tb5Utfs>A8ybD&#&M z0h~Q)%ZUUHKnbvDZ*R|x;x;)CU?;F#bCzr7nOwBmjkHU7(ohFM+)xM3D)ZHht+6Gp z&biD$EGSoMp2eSbMl3&}IT-KUXq{Mf#u-RbuZ|9%dF|&k(W1=xkMKWi{J)D0vPU*e zBFpc(N4$;6fZJv9ulsYNs+if zVhm?CSnaiUq|#0B3fRmVksp0Uk3 zAWfWQ_X_>2a(SS^B3`ZL*%gAw!$VI<=x*tAjomYl{JXjl%GH6_R~Oab;4|4)eb-_A z)g8zwo1vCo5)okv!k1D!kp;pn#{fN8rq83MotAeyU-EhxB1hAsy04#xTR*Q!D9PvA zy}!U!Hq!Rdk|Nuf^qDt`A;{*-RFy&XwZ28k$XD%9^gcO0Lig_W-c^bS^C#W3c?p4< zHAiT0;Jt3Fc(BraifQAh=yR2t=VQF)kJi@(;Bkwq>Tpx;rMY z@*2(TToFdAd7R8vw*uOEUu_bzUM#-gxLxIx=MwqWy|}*y46X=m6i|QlmG8=j4sUz) zdyphju5N9a`RdwBQNo+Ob+8ZocV)N8=brf%5d|8xQCwzRcD6@EP24P6yfU4YOGwe^ z#h>_MQ^hx4b|J5lMS$jPo!XgF&ywB&nj8>=5GF4J5)BM{LUB}?8I$qIHTkHKJt4G{(%Aa;7gK1AP zwZ$(H)+X_N9F2K&N1m4p~h5BY;f=RSVS3j_yHp{B21_G%i-_TgR zRi@3*@mdAcanIQ=I^7jFFu`pgOw@@@E+I{ye`eIcBk@S6#7*_lx$oI@ovyuZF`c@_M%|zpobqBRm4e*H zxRn|d*@1Dl2uLKC2uF0}yPcm+)ZJw#v2{-`8h_douo;@xQ794wad=INyXU=W$k4P) z!IOJ|irSdrKxW7sCDUkb$UviWF7H3gqX45$&hZgUopM)r3^ZBp0YY6fV0&^0W3yc4|p zc!uB3=^;GTXZb6qOGBLQJIg6c8;26NTvak(URxB{m>Pm7ZGV(v7>YIwY7x3So zF2&||gfzG<#>K`Rwj8Q=dN;4UW#K!?zrU%(aiK48$;5ehdh> zI5c5N9-@797ui@Q=)fpkuskD>4c-Z3fam+J@D<|lGi#VxdmxL7it>jRLpgcNOVdv? zsUZp7s}6nFQx!dJT}hTH$~`|oif_#WgYWq$iQ`GF2f4=Ttff@~y`9#D>x*UtTIoK2GUdPcQT@@EL(6LdcbQ(yS^UHuOr- zvtD5at7!DP_AouiFL_K&03q>h5T4AhL($3*cjRM0(pcC?w|B~W`351vyF0pXWbyCt zBf)CE0mp#Tj4OFpwuOt6*|n8kQFILY$07uFwEQbp>}h}w0Gao*nLLIUa%?N~2J+pf zdrL-L!9HFkeTL|*i}Qk3GR00RRj0MW#xzKQA0>KnS)%V%B;@dqRlFlMA!z1~spO#tY9{h9M}} zkV@QC%T=n>>pS&l!@2=Y(VS28-4;59P^ezbEX8wG0{Hc>#2r}0sUX1PO@OKFbe(vYA0vx{27`tQ}&yJ_x9Ad z=g17HyGq~NWM;E-bDr+o`5@mg5JwF)X6aru=wh%De~zPBui6sS3IT-(*9^6T!;Q@j zdHvKpcOsqaIa)pv^tH@;ij!=T_U~V%ykQnrIYH}95){skZq?x?k)O^n*PO~f%s2+@ z$K?)>)Z5y(yYLqwG_tZJBnG^b@cW)o69l=rn63sprIM?~9%En?(v21925q`Miuk~7 z08M2edeW+tgZqUJ{c>6#a9pXp6~_P@&PDHH0D*GWqtr%}7-D56@#uvXW*l$Vpm#Uu zGb%QdW!7LnxUnYNLbzeGiBX~2e4*Oji9t7f*AOwxLS> z*bUq8;WuXllLf-$Yr06D>v|AmHlz)gae^?^V^PIR=GW>BenU>Vf|2A8ZQRdhv29s?5R%)Kb<-^woT*-FJrwU475Sa_{)!L=Tq z&reYhCpp&JMzMFEEf{i$%{87oXzX;&53SXkIy)jzSuYyqF5oY!Cbc0m6zkV!=lhjq zC9O)Ii?327B#*v4Ie@1v6W80Kw!eUb-zyjA)GsE6%JwV$=1ehq$m)HO3=(;NkBhRh z+L@Ph`!&_WTWk|NLh7*`b8&=t(<|NL3*Et$w=H3g8F1DcuRMrQsS$9K(-0nj>{vO8PkVaEVA)LEr5y7RddZth}IvFWHu5zdW; zgUa8VQHqd0TF58d84d|qlf7J0--7>W@U@xR;aQRJM??!u*uQ}%y`OG7VW6*Bzm7$( z@5=P)W`jf%uJI8*14RYVFOMLJjST9%Fsq#wa254KPiKF^aSymGx0QRt z?>(ZPVW5z(&lP>(OO$WbB;l>@GjbItvCuQ6qRyyiFy6zsJxZ%|dVc zShF~GDwwCB+c09gf+ng>H(dIYYPR{dEg3ThOkzN1TcEM0q1OyW;FA(8jm7gt&@&tZ zLSkCUMGxH5NP}};1ex(tDDc>CRN0ei4UCo@5~{7N2W!*Uo0DD!C8be0m z{_ap5)A0EeI>Jan@xIQ&A*(~?m~zn(=gK?BfYP}rxfZq_b1s2Fecp*R&eDRZ`(G;E zX1c9n8;lyGU4t{EBpSoiv>nO;SdQCQOOg5aUKfY0P7Oi)4eNBc)t}@TnccCCcsDOd z*fH^L1USLtLTJRZJO#|`#W8e zwH^8i2QYRs>n~roSVo2g!yOzpSzdmIWrjS^>W$p;PtH^y>OZ>{m{V9mQLViurM(^3 zrzX55GlJbCEa9G5a#kdhnR(I(z7}ebA9|CQR)epBx4|i<2JX0InJ=jCu)gV z*wm2_b9#4S#S;~=T9Jw;QB|k2=wyq9B30X6Abf@8xG#OQN!?oZpoWRpf_cFY$cnSO zCS^1BKhPR~%F$`KBW51U>A(L$LQG;mbT1^4B}oaf*Yhotvi`C#NCO{b=(rmB&4`V2 zSaI|}x)|Ft<6?3QsN%lsW(+mR_@yo(#*Bl)I$yMj#&ew{!%FsuQm9bO1$shgM1z&<3Ht*}7TU#A} z=qlLmBk8B&8YeD}z04*^+9x(blgc17apwbvW7s3cw_+L=G^Jdhib!TtN)|UUmlKpC z!PZTW)>)6Vm~Lpho9b^ppWA}PN6k6|ukUzrdk{2`QQScK6-j@rdh8xsn{UlDS03eU z{7Pn!N_G?Cc>m)tc&TZHpaJdOqQ^IFR762h6yootSm)(;ZZ;|!5kPK>AZIh33szCR zNOd_Fir^XVaO(NeD;qh>mf6Da^(}=>xHRORPj#LvhfRN8_~q8z&4F{1n>W{tbuU6Y zdRnNp@Xe+CFcSkigeJwhFlmVFY)rGpPC=z9o<-jF>Y~_KvTz58_?a&}=H0-Deu=CL zy-D=B(GD}8rMlls+q6lYs>Ee2F0duc^UqNsl5TJ_rv||VHdw?u%6&%Wb{L&^Hfj;R zo_mx2eYc)(y)BP-}Ya#uY${sz>X{t>*Y=cku0jvldW@e8$2MaWFxC3h>qfX`Epa z@I9o14|4B9Ew%WCJG6;8eJv%4VY9j7lKJ@_dRU(VM7?XmD$@|qmOn{-Cm=#C!^mc7 zbpAPEt`OYdq;T7G6mOy@$gDeh#Na=%iD+IySv)NpX-*UqEB8+)bDV}MS{QDADTfYs{) z>KocAn1p5Cw40tgB)64S@k`;zXJZ!K3$Gg#xd)B`c9(m-8;x#S#4D53BmtV_-)Pwj z_L4I6dTd3q7CRjj$7`ut4#y^k&o0eJ$;;KhFZ3{Nq+OLnjFh)v-y|Y*=1h0j;cH18 z!-rXita5XHrH?O%+;Dnt!o^kf$xNx#4eXu-4z=!8#CJ-6dL}ZIFc{57l(Rz89P9RB zHSEiN=b&K6i$h(xuZH@O4oOg}_QBRdY>|oLX#lEw!HzuJPnEDaeBH?w7CUM>4lfn1 zRu}@`F<7ta7m(Q;($x`ABqtE9F zzBb$Ug|nlhQ=_74En{k49x|Cakt!{FlB<&)w0{=`9-?q7q9UVO- zjkXLQP}Kb(#oPWSE2iGszo5`k$c4U+rFU(<()1YMD;Crx9=9s^%xB1i8kABu;Q79@ zX#MTk$r)Gg)qF`8C)J>L%j&d&ZbZ-M?oR6_Jc`b*7!?aqTyk_hnc;4i9YGF=ddmb{ z_%4>Zgu$I}vc#V!NQ~-R;ZIdHrEQxOd0KsxsASu@H!)Q>$3<#~DAvMx>+6_ze9V}3 zwf%r$T5bp}$E#RW_FFKYp8U&RH6rGf~_CISAXropDc$&x5Bs)`n;mlmnLKS29Io>xVxN zD-0Uv7d`8>dpn0LR{ZdJyV-V(QLu5iqOF~27~4vYqaMT*dd$mDuJhl-={p%XqWMIS zZzO}#WpjdaZhJW`&l59j^K5(qzH$;7y=|Pb(QoBQ~bWsdqbhmHFU0m*BMwu?qx>E(Jr(r`=vOoo75x7 zfj%jr*SZJ9(STs3&`edXh=7&&S>)6CeZ&zaZdOE+e>kY1U?`5kkp=}^D#jEWFV5Vn}NnTF84h>k~s!2s&!s$-#n~* z2mU0gZQtAzOxZ6S*N?kp5V7BNW{&Y}z(d1U`A#?@8~}Uu>52Y(7yiCIMU#$Ky{xgs zQUfU+R7fx`sJi0$;s^aphvW$bA8;Dx+Se4`ea+SHy1s!CTh#`|J3ehr){+vNpeQUZ zireXRRy%Lc&Gv#J**dTLzNT{`VN>^(muFo#vi^;Qz_$ia811$?f?@Ph2$E?MgWo=vZVOxjNrKI^S z;Ld-#$?}U_MeEk+fVrs(?WZt}OzK8UZr3maHhQOiIdXSM4jMS$bKRNRSi%<^kwJI? zD+VC99_nxP&IMlyHP)jbKi>r>ny3RGNmby)>FQcKI>XJgpTOpnRq3Ko6xpL{jr>=>U=do$y)RXV(YqnM(AxV0r$&Z*-qyi*mYi$wFdvBq3V(S26d|jt&Ds#_z3`o-{B)2x&-pRaF+f6~u(85DNHSPD2(k2bLw*5MosP)k7s3ln?JGiJOgq@_ zoyASQtkvYOyXm`-e)a3r(fLjgyQ{?5)Vi_B8{M(92r~t+pxx}nHkXH7Aeqb~%+sa0 z&4a3I=1T1@egR_q86zg+!Wtj7&6-F(dcYTivv*XUA~M!wYL-ds7%H|%N&7wev~QP1 z(%LfgFTj>M#YSU0zRJqdnJd-cmv_|PtoAPpm~OEF3vj*N6lWY{?e6RIYxOC-of-zM z^T;4BoHLA!^NKHt{PgpoPA0)-r6av&AokIvA<5Ocbu49nenCj#Czd zsKhyX2@{xES6C#VINTreIk*%RK+}@$4u0g2qAUs#!YKOXH9gc_pJut1!3cPrGYcA2ea{xDEF6>`^KNFk+hXV#T^4%OhL^NT2sG5 z1xSpRHpwW7uzG#Z|23q*d7w1mp?i)`AmbJNU{ROm?a5DO;OUgEk^|bk$@n zCSPkaVWXLny0;CA$=>t)pt>aDq0YVM%ze((>uY-7d-9|mvU`iZK?3Vv z*Uqgj7mo6uPNqn>$~1wJ7Ek1j7|`Tz#OXxMbYY_$PA6^nbY`Kr!I$y3`Qqb8CbDoz z<9zi>%nnAyt{tx6nv(HA1VRw3rtsX$bSjgkVa>$2t3E-6QYUKSR1l_SMOd{{0~pP5 zvTjvGK%cTslSM68&zRe%5TMKe@5#K8!C!2bIj7Zsngb<` z51H?x;@$%SCKlE22{M`78R(u+OHv(nFhH_@i0+$UXM!R`(hBo$theDr$Y1{lr zSc+mgVg-9?^rG|1a#eTykBe7Ge{N0QlP{5FCEc0ul*zKfwW~ibWJbS944GRr8Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -58,55 +65,55 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch 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 delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index b107494..53c75bd 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -51,8 +51,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2690FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.9.0FactuGESFactuGES2.6.9.0 - +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2700FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.0.0FactuGESFactuGES2.7.0.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index a7b99c5a82d8cc0e063c1f21bc84202093256b34..c7f5045aed31084215a93dcf47995f55d810c84e 100644 GIT binary patch delta 502 zcmY+9y-EW?6otPX^ScJwGUY<>7Yy53h!|8PpkR|$lAw|VjfQArWeSBnfUr%nY4ZTK zqNSy!wVm$}hTb;R(z@S&Ov0T=6`ZfI z9;xd3hUgB5w7BAe139;x(G}j|PVO77O+0*!)M|2zB0=~QsqKfAIC(6I26ajAi?_pl zoNdsQw1Js0_f^DE=Uj4asa-B*;ta-nVtce?w(dOJPP4Y;VuXc}I<@;ejnvUE+fYSe delta 332 zcmex!fa}73u7(!IElezP>kS0Bco^V-k%5OnK!AaPkwJnXgB3)>c`OVJObikd5V;d< z3=GV0UI!-w0}F$K0z_^F2Ll5uf(JB>jlsYGD#ypbz>eUlGQ=}*FgQ3sBsH8E7&sX` zJRrP|5C#S=hJ*yD#wiR8+zbs3P?a1YhcYmHU}RuW0Mh^e3ji^Y0|W*P2oHT=oc?Go zlb$Xc(CHwvVYEG1CCJe%Krf<#fa$jLn3NfHrYFv0il6>w9+L{I8G{~!<#f^cOxDvc O%x8*$@(mX-c>@3h^($ro diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm index c1b7536..4711b42 100644 --- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm @@ -400,6 +400,16 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente item Name = 'CUENTA_CONTABLE' DataType = datString + end + item + Name = 'REFERENCIA_CONTRATO' + DataType = datString + Size = 255 + end + item + Name = 'REF_CLIENTE_CONTRATO' + DataType = datString + Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index 8bfbdb0..41e4a51 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas @@ -3,16 +3,16 @@ unit schRecibosClienteClient_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_ListaAnosRecibos = '{9AD56FB9-67A7-486D-97A3-F97769F49FBE}'; - RID_RecibosCliente = '{A6B99CCC-1F59-46D1-9E40-CDA699F5DBDE}'; - RID_PagosCliente = '{95D516A8-1FAC-4A03-8CE4-0D6CB5390369}'; - RID_RecibosCompensadosCli = '{2617D7C0-DF3B-4791-8CB7-3E57E1C4E48A}'; + RID_ListaAnosRecibos = '{EA14EE7E-2EA2-4C78-BBE5-C6C8E68D4F08}'; + RID_RecibosCliente = '{F107001F-CB55-4A48-88A1-635E9699E171}'; + RID_PagosCliente = '{C71D3A04-7694-4A1A-8EC7-9C3809F64EC3}'; + RID_RecibosCompensadosCli = '{5336ACAB-56BE-4F35-B412-38358373AEBF}'; { Data table names } nme_ListaAnosRecibos = 'ListaAnosRecibos'; @@ -68,6 +68,8 @@ const fld_RecibosClienteID_TIENDA = 'ID_TIENDA'; fld_RecibosClienteTIENDA = 'TIENDA'; fld_RecibosClienteCUENTA_CONTABLE = 'CUENTA_CONTABLE'; + fld_RecibosClienteREFERENCIA_CONTRATO = 'REFERENCIA_CONTRATO'; + fld_RecibosClienteREF_CLIENTE_CONTRATO = 'REF_CLIENTE_CONTRATO'; { RecibosCliente field indexes } idx_RecibosClienteID = 0; @@ -111,6 +113,8 @@ const idx_RecibosClienteID_TIENDA = 38; idx_RecibosClienteTIENDA = 39; idx_RecibosClienteCUENTA_CONTABLE = 40; + idx_RecibosClienteREFERENCIA_CONTRATO = 41; + idx_RecibosClienteREF_CLIENTE_CONTRATO = 42; { PagosCliente fields } fld_PagosClienteID = 'ID'; @@ -241,7 +245,7 @@ const type { IListaAnosRecibos } IListaAnosRecibos = interface(IDAStronglyTypedDataTable) - ['{6EE69FF4-C573-4C84-ABB8-AADD20CB1C97}'] + ['{1FF14354-4B42-4F99-88E2-6495C07BD80B}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -255,7 +259,7 @@ type end; { TListaAnosRecibosDataTableRules } - TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos) + TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos) private protected { Property getters and setters } @@ -276,7 +280,7 @@ type { IRecibosCliente } IRecibosCliente = interface(IDAStronglyTypedDataTable) - ['{FA997C06-FA56-476C-A2C8-9C14645F12AD}'] + ['{DD664CE7-9833-46AD-9336-DF935C1896E5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -442,6 +446,14 @@ type procedure SetCUENTA_CONTABLEValue(const aValue: String); function GetCUENTA_CONTABLEIsNull: Boolean; procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); + function GetREFERENCIA_CONTRATOValue: String; + procedure SetREFERENCIA_CONTRATOValue(const aValue: String); + function GetREFERENCIA_CONTRATOIsNull: Boolean; + procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); + function GetREF_CLIENTE_CONTRATOValue: String; + procedure SetREF_CLIENTE_CONTRATOValue(const aValue: String); + function GetREF_CLIENTE_CONTRATOIsNull: Boolean; + procedure SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean); { Properties } @@ -527,10 +539,14 @@ type property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue; property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; + property REFERENCIA_CONTRATO: String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue; + property REFERENCIA_CONTRATOIsNull: Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull; + property REF_CLIENTE_CONTRATO: String read GetREF_CLIENTE_CONTRATOValue write SetREF_CLIENTE_CONTRATOValue; + property REF_CLIENTE_CONTRATOIsNull: Boolean read GetREF_CLIENTE_CONTRATOIsNull write SetREF_CLIENTE_CONTRATOIsNull; end; { TRecibosClienteDataTableRules } - TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente) + TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente) private protected { Property getters and setters } @@ -698,6 +714,14 @@ type procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual; function GetCUENTA_CONTABLEIsNull: Boolean; virtual; procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_CONTRATOValue: String; virtual; + procedure SetREFERENCIA_CONTRATOValue(const aValue: String); virtual; + function GetREFERENCIA_CONTRATOIsNull: Boolean; virtual; + procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); virtual; + function GetREF_CLIENTE_CONTRATOValue: String; virtual; + procedure SetREF_CLIENTE_CONTRATOValue(const aValue: String); virtual; + function GetREF_CLIENTE_CONTRATOIsNull: Boolean; virtual; + procedure SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -782,6 +806,10 @@ type property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property CUENTA_CONTABLE: String read GetCUENTA_CONTABLEValue write SetCUENTA_CONTABLEValue; property CUENTA_CONTABLEIsNull: Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; + property REFERENCIA_CONTRATO: String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue; + property REFERENCIA_CONTRATOIsNull: Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull; + property REF_CLIENTE_CONTRATO: String read GetREF_CLIENTE_CONTRATOValue write SetREF_CLIENTE_CONTRATOValue; + property REF_CLIENTE_CONTRATOIsNull: Boolean read GetREF_CLIENTE_CONTRATOIsNull write SetREF_CLIENTE_CONTRATOIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -791,7 +819,7 @@ type { IPagosCliente } IPagosCliente = interface(IDAStronglyTypedDataTable) - ['{F52B261A-56AB-4702-9FA4-F06407A2A66E}'] + ['{1D0D6388-4971-477A-AADB-DE1B515DE6C4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -907,7 +935,7 @@ type end; { TPagosClienteDataTableRules } - TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente) + TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente) private protected { Property getters and setters } @@ -1030,7 +1058,7 @@ type { IRecibosCompensadosCli } IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) - ['{4FA8D8AA-25E8-4B7A-972A-1E6491B96D5B}'] + ['{A9671AAE-1362-475C-B2E7-84DF3940B4C4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1284,7 +1312,7 @@ type end; { TRecibosCompensadosCliDataTableRules } - TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli) + TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli) private protected { Property getters and setters } @@ -2452,6 +2480,48 @@ begin DataTable.Fields[idx_RecibosClienteCUENTA_CONTABLE].AsVariant := Null; end; +function TRecibosClienteDataTableRules.GetREFERENCIA_CONTRATOValue: String; +begin + result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsString; +end; + +procedure TRecibosClienteDataTableRules.SetREFERENCIA_CONTRATOValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsString := aValue; +end; + +function TRecibosClienteDataTableRules.GetREFERENCIA_CONTRATOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].IsNull; +end; + +procedure TRecibosClienteDataTableRules.SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosClienteREFERENCIA_CONTRATO].AsVariant := Null; +end; + +function TRecibosClienteDataTableRules.GetREF_CLIENTE_CONTRATOValue: String; +begin + result := DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].AsString; +end; + +procedure TRecibosClienteDataTableRules.SetREF_CLIENTE_CONTRATOValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].AsString := aValue; +end; + +function TRecibosClienteDataTableRules.GetREF_CLIENTE_CONTRATOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].IsNull; +end; + +procedure TRecibosClienteDataTableRules.SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosClienteREF_CLIENTE_CONTRATO].AsVariant := Null; +end; + { TPagosClienteDataTableRules } constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas index ef50077..66a3b27 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas +++ b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas @@ -9,15 +9,15 @@ 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_ListaAnosRecibosDelta = '{9E586155-C30C-4C3D-969F-4C5A8A34C00E}'; - RID_RecibosClienteDelta = '{D8BC8C31-56C2-45FC-AB7B-063313B4B910}'; - RID_PagosClienteDelta = '{056195E0-7C3A-4CAD-A6F3-3E2FD306D365}'; - RID_RecibosCompensadosCliDelta = '{6642E0AE-04ED-48EA-B0C7-E82AEB48769A}'; + RID_ListaAnosRecibosDelta = '{6D00330A-4C7E-46FA-BD10-76DC9B20BCD5}'; + RID_RecibosClienteDelta = '{56014792-FD4F-4FBD-8CF9-808ADB5F5FD8}'; + RID_PagosClienteDelta = '{97FBC855-65C7-4A19-916C-85BA6C501CCF}'; + RID_RecibosCompensadosCliDelta = '{5C0B63D3-2863-40C4-B4CB-2A9A1BDC6EF1}'; type { IListaAnosRecibosDelta } IListaAnosRecibosDelta = interface(IListaAnosRecibos) - ['{9E586155-C30C-4C3D-969F-4C5A8A34C00E}'] + ['{6D00330A-4C7E-46FA-BD10-76DC9B20BCD5}'] { Property getters and setters } function GetOldANOValue : String; @@ -51,7 +51,7 @@ type { IRecibosClienteDelta } IRecibosClienteDelta = interface(IRecibosCliente) - ['{D8BC8C31-56C2-45FC-AB7B-063313B4B910}'] + ['{56014792-FD4F-4FBD-8CF9-808ADB5F5FD8}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -94,6 +94,8 @@ type function GetOldID_TIENDAValue : Integer; function GetOldTIENDAValue : String; function GetOldCUENTA_CONTABLEValue : String; + function GetOldREFERENCIA_CONTRATOValue : String; + function GetOldREF_CLIENTE_CONTRATOValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -137,6 +139,8 @@ type property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldTIENDA : String read GetOldTIENDAValue; property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue; + property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue; + property OldREF_CLIENTE_CONTRATO : String read GetOldREF_CLIENTE_CONTRATOValue; end; { TRecibosClienteBusinessProcessorRules } @@ -390,6 +394,18 @@ type function GetOldCUENTA_CONTABLEIsNull: Boolean; virtual; procedure SetCUENTA_CONTABLEValue(const aValue: String); virtual; procedure SetCUENTA_CONTABLEIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_CONTRATOValue: String; virtual; + function GetREFERENCIA_CONTRATOIsNull: Boolean; virtual; + function GetOldREFERENCIA_CONTRATOValue: String; virtual; + function GetOldREFERENCIA_CONTRATOIsNull: Boolean; virtual; + procedure SetREFERENCIA_CONTRATOValue(const aValue: String); virtual; + procedure SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); virtual; + function GetREF_CLIENTE_CONTRATOValue: String; virtual; + function GetREF_CLIENTE_CONTRATOIsNull: Boolean; virtual; + function GetOldREF_CLIENTE_CONTRATOValue: String; virtual; + function GetOldREF_CLIENTE_CONTRATOIsNull: Boolean; virtual; + procedure SetREF_CLIENTE_CONTRATOValue(const aValue: String); virtual; + procedure SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -556,6 +572,14 @@ type property CUENTA_CONTABLEIsNull : Boolean read GetCUENTA_CONTABLEIsNull write SetCUENTA_CONTABLEIsNull; property OldCUENTA_CONTABLE : String read GetOldCUENTA_CONTABLEValue; property OldCUENTA_CONTABLEIsNull : Boolean read GetOldCUENTA_CONTABLEIsNull; + property REFERENCIA_CONTRATO : String read GetREFERENCIA_CONTRATOValue write SetREFERENCIA_CONTRATOValue; + property REFERENCIA_CONTRATOIsNull : Boolean read GetREFERENCIA_CONTRATOIsNull write SetREFERENCIA_CONTRATOIsNull; + property OldREFERENCIA_CONTRATO : String read GetOldREFERENCIA_CONTRATOValue; + property OldREFERENCIA_CONTRATOIsNull : Boolean read GetOldREFERENCIA_CONTRATOIsNull; + property REF_CLIENTE_CONTRATO : String read GetREF_CLIENTE_CONTRATOValue write SetREF_CLIENTE_CONTRATOValue; + property REF_CLIENTE_CONTRATOIsNull : Boolean read GetREF_CLIENTE_CONTRATOIsNull write SetREF_CLIENTE_CONTRATOIsNull; + property OldREF_CLIENTE_CONTRATO : String read GetOldREF_CLIENTE_CONTRATOValue; + property OldREF_CLIENTE_CONTRATOIsNull : Boolean read GetOldREF_CLIENTE_CONTRATOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -565,7 +589,7 @@ type { IPagosClienteDelta } IPagosClienteDelta = interface(IPagosCliente) - ['{056195E0-7C3A-4CAD-A6F3-3E2FD306D365}'] + ['{97FBC855-65C7-4A19-916C-85BA6C501CCF}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBOValue : Integer; @@ -803,7 +827,7 @@ type { IRecibosCompensadosCliDelta } IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) - ['{6642E0AE-04ED-48EA-B0C7-E82AEB48769A}'] + ['{5C0B63D3-2863-40C4-B4CB-2A9A1BDC6EF1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer; @@ -2645,6 +2669,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteCUENTA_CONTABLE] := Null; end; +function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CONTRATOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]; +end; + +function TRecibosClienteBusinessProcessorRules.GetREFERENCIA_CONTRATOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]); +end; + +function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CONTRATOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]; +end; + +function TRecibosClienteBusinessProcessorRules.GetOldREFERENCIA_CONTRATOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREFERENCIA_CONTRATO]); +end; + +procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CONTRATOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO] := aValue; +end; + +procedure TRecibosClienteBusinessProcessorRules.SetREFERENCIA_CONTRATOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREFERENCIA_CONTRATO] := Null; +end; + +function TRecibosClienteBusinessProcessorRules.GetREF_CLIENTE_CONTRATOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO]; +end; + +function TRecibosClienteBusinessProcessorRules.GetREF_CLIENTE_CONTRATOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO]); +end; + +function TRecibosClienteBusinessProcessorRules.GetOldREF_CLIENTE_CONTRATOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO]; +end; + +function TRecibosClienteBusinessProcessorRules.GetOldREF_CLIENTE_CONTRATOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO]); +end; + +procedure TRecibosClienteBusinessProcessorRules.SetREF_CLIENTE_CONTRATOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO] := aValue; +end; + +procedure TRecibosClienteBusinessProcessorRules.SetREF_CLIENTE_CONTRATOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteREF_CLIENTE_CONTRATO] := Null; +end; + { TPagosClienteBusinessProcessorRules } constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm index a343de5..c015057 100644 --- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm +++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm @@ -212,6 +212,14 @@ object srvRecibosCliente: TsrvRecibosCliente item DatasetField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE' + end + item + DatasetField = 'REFERENCIA_CONTRATO' + TableField = 'REFERENCIA_CONTRATO' + end + item + DatasetField = 'REF_CLIENTE_CONTRATO' + TableField = 'REF_CLIENTE_CONTRATO' end> end> Name = 'RecibosCliente' @@ -442,6 +450,16 @@ object srvRecibosCliente: TsrvRecibosCliente item Name = 'CUENTA_CONTABLE' DataType = datString + end + item + Name = 'REFERENCIA_CONTRATO' + DataType = datString + Size = 255 + end + item + Name = 'REF_CLIENTE_CONTRATO' + DataType = datString + Size = 255 end> end item diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm index f4be71b..479ba71 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm @@ -3,7 +3,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente ClientHeight = 561 ClientWidth = 645 ExplicitWidth = 653 - ExplicitHeight = 595 + ExplicitHeight = 599 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -41,10 +41,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente Width = 645 ExplicitWidth = 645 inherited tbxMain: TTBXToolbar - ExplicitWidth = 561 + ExplicitWidth = 632 end inherited tbxFiltro: TTBXToolbar - ExplicitWidth = 431 + ExplicitWidth = 454 inherited lblAno: TTBXLabelItem Visible = True end @@ -59,10 +59,10 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente ExplicitWidth = 645 end inherited TBXTMain2: TTBXToolbar - Left = 431 + Left = 454 Visible = True - ExplicitLeft = 431 - ExplicitWidth = 66 + ExplicitLeft = 454 + ExplicitWidth = 74 object TBXItem38: TTBXItem Action = actInformes end @@ -76,9 +76,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente end inline frViewRecibosCliente1: TfrViewRecibosCliente [3] Left = 0 - Top = 102 + Top = 106 Width = 645 - Height = 440 + Height = 436 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -88,14 +88,14 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitTop = 102 + ExplicitTop = 106 ExplicitWidth = 645 - ExplicitHeight = 440 + ExplicitHeight = 436 inherited cxGrid: TcxGrid Width = 645 - Height = 312 + Height = 308 ExplicitWidth = 645 - ExplicitHeight = 312 + ExplicitHeight = 308 inherited cxGridView: TcxGridDBTableView DataController.Summary.DefaultGroupSummaryItems = < item @@ -181,8 +181,8 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente end end inherited pnlAgrupaciones: TTBXDockablePanel - Top = 414 - ExplicitTop = 414 + Top = 410 + ExplicitTop = 410 ExplicitWidth = 645 inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 645 diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm index 9c0cb39..7cfccc6 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm @@ -220,6 +220,14 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente Visible = False VisibleForCustomization = False end + object cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn + Caption = 'Ref. Contrato' + DataBinding.FieldName = 'REFERENCIA_CONTRATO' + end + object cxGridViewREF_CLIENTE_CONTRATO: TcxGridDBColumn + Caption = 'Ref. Cliente en contrato' + DataBinding.FieldName = 'REF_CLIENTE_CONTRATO' + end end inherited cxGridLevel: TcxGridLevel Caption = 'Todos' diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas index e9042cf..9e36b9a 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas @@ -61,6 +61,8 @@ type cxGridViewIMPORTE_COMPENSADO: TcxGridDBColumn; cxGridViewIMPORTE_SIN_COMPENSAR: TcxGridDBColumn; cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn; + cxGridViewREFERENCIA_CONTRATO: TcxGridDBColumn; + cxGridViewREF_CLIENTE_CONTRATO: TcxGridDBColumn; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 017d9e0..4406694 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -126,8 +126,6 @@ uses uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule}, schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas', schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas', - schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', - schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas', schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', @@ -142,7 +140,9 @@ uses schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', - schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas'; + schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', + schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', + schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 68ac818..a44cd05 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,309 +1,310 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - - FalseTrueFalseTrueFalse2690FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.9.0FactuGES (Servidor)2.6.9.0jueves, 10 de noviembre de 2016 12:17 - File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones
- TRORemoteDataModule - - - - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - -
srvContabilidad
- TDataAbstractService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptContratosCliente
- - -
srvContratosCliente
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
RptRemesasCliente
- TDataModule - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
RptRemesasProveedor
- TDataModule - - -
srvRemesasProveedor
- TDataAbstractService - - - - -
srvSubfamilias
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + +FalseTrueFalseTrueFalse2700FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.0.0FactuGES (Servidor)2.7.0.0jueves, 17 de noviembre de 2016 18:06 + + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones
+ TRORemoteDataModule + + + + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + +
srvContabilidad
+ TDataAbstractService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptContratosCliente
+ + +
srvContratosCliente
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
RptRemesasCliente
+ TDataModule + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
RptRemesasProveedor
+ TDataModule + + +
srvRemesasProveedor
+ TDataAbstractService + + + + +
srvSubfamilias
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +