From 997a38f28e9a208c12c867b7ed13b70b36d04271 Mon Sep 17 00:00:00 2001 From: david Date: Wed, 25 Jun 2008 13:13:53 +0000 Subject: [PATCH] Repaso general git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@255 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../srvProvinciasPoblaciones_Impl.dcu | Bin 7046 -> 0 bytes .../Articulos/Model/Articulos_model.dproj | 2 +- .../Model/schArticulosClient_Intf.pas | 1458 +++++++++++++++++ .../Model/schArticulosServer_Intf.pas | 8 +- Source/Servidor/FactuGES_Server.RES | Bin 23344 -> 23352 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 6 files changed, 1464 insertions(+), 6 deletions(-) delete mode 100644 Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dcu create mode 100644 Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas diff --git a/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dcu b/Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dcu deleted file mode 100644 index def729ea2ad3ea44d0f1c3bfc5f76bdce7405538..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 7046 zcmc&&4{#LK8Grk79DAE1xrC607%@S}ASO2fjD{AO9J!60lRwA(0l{EccHeCdE_cV? zUgRvb!3ugFLDY`ZDi(B{)>@}iDr#`hqWl?gQX7#eRKdX(r%{>KPH9aoCjH*--sO^9 z(3y6oNp`>YzVCbA``-6{-}m0;dW4F1UW3rC-DetnUli^`_}ZA#<5nU)!LS$Z&SsDbRgr*O>-$)JmKr5QL$2F!u1;dm2p90uSkqY}`ad zHN(VFuif6^h(<#}QBYy36+(=30GL_9t%i74@u5e5h!XkNv3QE#~W`&Tnq#q;!*5wax4oB_| z-+sq?BeJCt90)W;qKV}{O&kuGW2zDi%P-&f-F*Sh5sn4DWBuud$!(wh@{(MTw%?=> zK_ySqIZZw#PI^v0F)Yt))SYyM6Z}?@L}`pa*$_Q0=QlcGV|AX!ur)Sy5plC4u0}j0 z2CL(5xTQqqbgx20P--9Q?~n@&d(FYH5DF!ZcR`k`cf|Lf9gw7nhv|<3I|n$pxqP_VxS0HR^oFCs?Zvd;vr&p zM)b8Mn>PgIS>q*60)dJo9-^X(aUu|ijmX7WY%fvU zgl_U%%AcLZ_eUjg(?jGSm`t3SC|)gug1SN&M!!eJv$967QGzPO94!2P;>cBTq9iEr zm4G0UGgMrWHPR~tNE7UH20DMG8YMnA%_B%IScxMR3(8?%Pm-lRT%T{|9=Zxff1{@w!u|piZ5k)1^yaT;M0oD-39;nz!M2Q8&_|;&D!o=Jh zQMv{7;cFNEM&@XOIl@v~FhqeUN?hF2en)EyO)HA78PIJC1;ObwhXsx=5v70&m{$Oz zmBhbU`BPD{fPj`8qJX5(N5=s$n*~vgD2Z*)eEV(LW}m?A>?x~&0x@3IuH)$WH`_Pr z^Xo>_^XF^RKmY+v)Wez3r!`U~W8en|W`fm;>~|mk`KxjXbz-9A;HC$x^4uH(`}oba zyz;t7z9yGmr$drFB*0OHiku1_0tF#P@~Ou4xioGgYPxc|!hwjDDpuxFbVl044oIUO zK<6x~mD6*o)G&S)70=o(NErDD2qj*XC|;OtGE>5ZO2p%cH2_ZpnQY}ZtWn3*hCC`yHKr-Pb; zoFI_W07HrnrvpH`csw7_F`0e;NMw|vW3og()w+sihSQO$wE+w0dBrZ$Elhhi8k0FX zPVWyr+jcwvrPu-WE)3^30JT*J3vf!Ze_!{WT$@W`r+crTk7J`~Ra-SPx*4`NhcP=8 z+A&=Z)uWT@K2RZDa*U{+zwO8uNp>)MHbZ_?`KAgcgu5rQnJDkitNm1-YyVok*M_-e zB4JkxN>B)^w7}#yLZ?}Ybi-CYa!(^KPp1qx*zWuO&TjAp0tphme9|&9!(92^x9Hs&k!FRgfT`05C#t6S9E`&P2^}E-g4otS958}5*6+O!y2WuiJ ziqmlDXM4KJg0XJBExzb{KqRzwXAmlv(n6;jYlZr#B=o%a@SJm*R-q<~jLLic4cqR6 zo1PGi5nfRuO5P{!ZQ1=BAN%KCvHt4U-d@z%zx#Jstj}C1O=A7nwdE%0WIVlDtj{{0 zHi-4(&Y*x;Kk*Rif&s8p;}qH?)@L6*VO>A_(C88C$DbNo#roXG#yw(v&T8~SFgl?e zJucQyE;vt6!;=dLLJ+WV_2U`wW&}UO)#XzsSTB12i?ZW2XyNQBbMQg*#r5Bb*>A!2 z#m%S=jdPNw`L7^SV~P1P4bAx6J1o}cLe}r~O~`D~`{IJ@^kcbmskM&(UYBp&HT`F9j8?D_D@&RJw2+i?p%KqM*QH|fOqwpC8v`9p``zG(tj!GzmoJ1r_L@p z;_vzj_E8$GlaiI$wvzni)RT1Ko8Y&PzvAxmU(#kup;S~&ozN#t^G+OKGzPWzBn;B+ z=|hLzhsq!jDgTw!(Nx)}H?-u)y0vSir0ug34UhdbAk{`|uklWNPAwkIc({p4@xyMw zsyk#Tr})pc)+Z^LwvQij_wj@7w34KWQvBenU_qaw&wo0_j;?A+@u!pg*%SP^{G0=p zoYIHdMm;N&{Dl+zMbzg%dx)Cp_oe+!`G;V7YOcYUanHfbJp4e$ji_d;_j?1V@cy-Q zZ~T{yaa+@|=z1GW_Ze&Helq}E?Ba%K|?kVu_5pa;Lt zKX|}wNZf}8!OD_TMmIH>I=WUHoNO}X!0mOQY-GaM;dTIUJLXXuw->T;+i&2uKgl0H z!5;zK<`^&@x5rNKZvk!(>$n{Pcl4$D2d;wKgPFjjaeMG8xUB}G-xRm$gda{jqIr`+ zby73cuQB`h0fP=2^pZhyrp8-Y0H+uQOUUKa@k);g&cFqDDK5c&9A;) zEy88+*qD1+#=|lzSjNdRR+cGX85_$Kv&^F`<71g+EVG(rnptKS%PeP^l`L~R%e1ge z8_T#^W)I6Wu*|nvrjccOS>`^Lxu0crvdn`l^AOAIw!#E2F#B2Nr>qrjRWR*x&4q0( z)R zSX4THIypP!P>;d4hCUhQn+ZN!j z@_;PVNsUGpQHvH!y-v2>4$LCUt+a<6^gZ9gQ*wjFMM)>d(Wt=C2wIA`J8p)?cFPUi5j!+?SZcYuc0uD2OFg%i4lZ3!-v=xLB`;YBC5J3Q zN?x;cQ}Tvo3neEl$L!$MzbwZpfP7^+R;`mtAPg5R0YW%PT#Vw}5ABO^9ei}nt;ZGS zrFcUZih6FvKJ%^k-Vq+(Yv%EGJmSaue+2xsIBH&xqu|XGBLqKTCir7K630vP%yC?6 R8d*Delphi.Personality Package -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Articulos_model.dpk +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Articulos_model.dpk diff --git a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas new file mode 100644 index 00000000..cce2efba --- /dev/null +++ b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas @@ -0,0 +1,1458 @@ +unit schArticulosClient_Intf; + +interface + +uses + Classes, DB, schBase_Intf, SysUtils, uROClasses, 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_Articulos = '{9F6189A0-1B2F-4ED3-8DCC-540C38366485}'; + RID_ArticulosParaCliente = '{84BC0DB1-97F7-438D-B161-7564778ED6D8}'; + + { Data table names } + nme_Articulos = 'Articulos'; + nme_ArticulosParaCliente = 'ArticulosParaCliente'; + + { Articulos fields } + fld_ArticulosID = 'ID'; + fld_ArticulosID_EMPRESA = 'ID_EMPRESA'; + fld_ArticulosREFERENCIA = 'REFERENCIA'; + fld_ArticulosDESCRIPCION = 'DESCRIPCION'; + fld_ArticulosFAMILIA = 'FAMILIA'; + fld_ArticulosIMAGEN = 'IMAGEN'; + fld_ArticulosCOMISIONABLE = 'COMISIONABLE'; + fld_ArticulosFECHA_ALTA = 'FECHA_ALTA'; + fld_ArticulosFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + fld_ArticulosUSUARIO = 'USUARIO'; + fld_ArticulosREFERENCIA_PROV = 'REFERENCIA_PROV'; + fld_ArticulosPRECIO_COSTE = 'PRECIO_COSTE'; + fld_ArticulosPRECIO_PORTE = 'PRECIO_PORTE'; + fld_ArticulosDESCUENTO = 'DESCUENTO'; + fld_ArticulosPRECIO_NETO = 'PRECIO_NETO'; + fld_ArticulosINVENTARIABLE = 'INVENTARIABLE'; + fld_ArticulosID_PROVEEDOR = 'ID_PROVEEDOR'; + fld_ArticulosNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; + fld_ArticulosELIMINADO = 'ELIMINADO'; + + { Articulos field indexes } + idx_ArticulosID = 0; + idx_ArticulosID_EMPRESA = 1; + idx_ArticulosREFERENCIA = 2; + idx_ArticulosDESCRIPCION = 3; + idx_ArticulosFAMILIA = 4; + idx_ArticulosIMAGEN = 5; + idx_ArticulosCOMISIONABLE = 6; + idx_ArticulosFECHA_ALTA = 7; + idx_ArticulosFECHA_MODIFICACION = 8; + idx_ArticulosUSUARIO = 9; + idx_ArticulosREFERENCIA_PROV = 10; + idx_ArticulosPRECIO_COSTE = 11; + idx_ArticulosPRECIO_PORTE = 12; + idx_ArticulosDESCUENTO = 13; + idx_ArticulosPRECIO_NETO = 14; + idx_ArticulosINVENTARIABLE = 15; + idx_ArticulosID_PROVEEDOR = 16; + idx_ArticulosNOMBRE_PROVEEDOR = 17; + idx_ArticulosELIMINADO = 18; + + { ArticulosParaCliente fields } + fld_ArticulosParaClienteID = 'ID'; + fld_ArticulosParaClienteID_EMPRESA = 'ID_EMPRESA'; + fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA'; + fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION'; + fld_ArticulosParaClienteFAMILIA = 'FAMILIA'; + fld_ArticulosParaClienteIMAGEN = 'IMAGEN'; + fld_ArticulosParaClienteCOMISIONABLE = 'COMISIONABLE'; + fld_ArticulosParaClienteFECHA_ALTA = 'FECHA_ALTA'; + fld_ArticulosParaClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + fld_ArticulosParaClienteUSUARIO = 'USUARIO'; + fld_ArticulosParaClienteREFERENCIA_PROV = 'REFERENCIA_PROV'; + fld_ArticulosParaClientePRECIO_COSTE = 'PRECIO_COSTE'; + fld_ArticulosParaClientePRECIO_PORTE = 'PRECIO_PORTE'; + fld_ArticulosParaClienteDESCUENTO = 'DESCUENTO'; + fld_ArticulosParaClientePRECIO_NETO = 'PRECIO_NETO'; + fld_ArticulosParaClienteINVENTARIABLE = 'INVENTARIABLE'; + fld_ArticulosParaClienteID_PROVEEDOR = 'ID_PROVEEDOR'; + fld_ArticulosParaClienteNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; + fld_ArticulosParaClienteELIMINADO = 'ELIMINADO'; + + { ArticulosParaCliente field indexes } + idx_ArticulosParaClienteID = 0; + idx_ArticulosParaClienteID_EMPRESA = 1; + idx_ArticulosParaClienteREFERENCIA = 2; + idx_ArticulosParaClienteDESCRIPCION = 3; + idx_ArticulosParaClienteFAMILIA = 4; + idx_ArticulosParaClienteIMAGEN = 5; + idx_ArticulosParaClienteCOMISIONABLE = 6; + idx_ArticulosParaClienteFECHA_ALTA = 7; + idx_ArticulosParaClienteFECHA_MODIFICACION = 8; + idx_ArticulosParaClienteUSUARIO = 9; + idx_ArticulosParaClienteREFERENCIA_PROV = 10; + idx_ArticulosParaClientePRECIO_COSTE = 11; + idx_ArticulosParaClientePRECIO_PORTE = 12; + idx_ArticulosParaClienteDESCUENTO = 13; + idx_ArticulosParaClientePRECIO_NETO = 14; + idx_ArticulosParaClienteINVENTARIABLE = 15; + idx_ArticulosParaClienteID_PROVEEDOR = 16; + idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 17; + idx_ArticulosParaClienteELIMINADO = 18; + +type + { IArticulos } + IArticulos = interface(IDAStronglyTypedDataTable) + ['{55AA5752-BC15-4FD7-A39A-97867A837A69}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetDESCRIPCIONValue: String; + procedure SetDESCRIPCIONValue(const aValue: String); + function GetDESCRIPCIONIsNull: Boolean; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); + function GetFAMILIAValue: String; + procedure SetFAMILIAValue(const aValue: String); + function GetFAMILIAIsNull: Boolean; + procedure SetFAMILIAIsNull(const aValue: Boolean); + function GetIMAGENValue: IROStream; + function GetIMAGENIsNull: Boolean; + procedure SetIMAGENIsNull(const aValue: Boolean); + function GetCOMISIONABLEValue: Integer; + procedure SetCOMISIONABLEValue(const aValue: Integer); + function GetCOMISIONABLEIsNull: Boolean; + procedure SetCOMISIONABLEIsNull(const aValue: Boolean); + function GetFECHA_ALTAValue: DateTime; + procedure SetFECHA_ALTAValue(const aValue: DateTime); + function GetFECHA_ALTAIsNull: Boolean; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); + function GetFECHA_MODIFICACIONValue: DateTime; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); + function GetFECHA_MODIFICACIONIsNull: Boolean; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + function GetUSUARIOValue: String; + procedure SetUSUARIOValue(const aValue: String); + function GetUSUARIOIsNull: Boolean; + procedure SetUSUARIOIsNull(const aValue: Boolean); + function GetREFERENCIA_PROVValue: String; + procedure SetREFERENCIA_PROVValue(const aValue: String); + function GetREFERENCIA_PROVIsNull: Boolean; + procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); + function GetPRECIO_COSTEValue: Currency; + procedure SetPRECIO_COSTEValue(const aValue: Currency); + function GetPRECIO_COSTEIsNull: Boolean; + procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); + function GetPRECIO_PORTEValue: Currency; + procedure SetPRECIO_PORTEValue(const aValue: Currency); + function GetPRECIO_PORTEIsNull: Boolean; + procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); + function GetDESCUENTOValue: Float; + procedure SetDESCUENTOValue(const aValue: Float); + function GetDESCUENTOIsNull: Boolean; + procedure SetDESCUENTOIsNull(const aValue: Boolean); + function GetPRECIO_NETOValue: Currency; + procedure SetPRECIO_NETOValue(const aValue: Currency); + function GetPRECIO_NETOIsNull: Boolean; + procedure SetPRECIO_NETOIsNull(const aValue: Boolean); + function GetINVENTARIABLEValue: SmallInt; + procedure SetINVENTARIABLEValue(const aValue: SmallInt); + function GetINVENTARIABLEIsNull: Boolean; + procedure SetINVENTARIABLEIsNull(const aValue: Boolean); + function GetID_PROVEEDORValue: Integer; + procedure SetID_PROVEEDORValue(const aValue: Integer); + function GetID_PROVEEDORIsNull: Boolean; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); + function GetNOMBRE_PROVEEDORValue: String; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); + function GetNOMBRE_PROVEEDORIsNull: Boolean; + procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); + function GetELIMINADOValue: SmallInt; + procedure SetELIMINADOValue(const aValue: SmallInt); + function GetELIMINADOIsNull: Boolean; + procedure SetELIMINADOIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; + property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; + property IMAGEN: IROStream read GetIMAGENValue; + property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull; + property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; + property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; + property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; + property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; + property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; + property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; + property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; + property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; + property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; + property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue; + property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; + end; + + { TArticulosDataTableRules } + TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos) + private + f_IMAGEN: IROStream; + procedure IMAGEN_OnChange(Sender: TObject); + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + function GetFAMILIAValue: String; virtual; + procedure SetFAMILIAValue(const aValue: String); virtual; + function GetFAMILIAIsNull: Boolean; virtual; + procedure SetFAMILIAIsNull(const aValue: Boolean); virtual; + function GetIMAGENValue: IROStream; virtual; + function GetIMAGENIsNull: Boolean; virtual; + procedure SetIMAGENIsNull(const aValue: Boolean); virtual; + function GetCOMISIONABLEValue: Integer; virtual; + procedure SetCOMISIONABLEValue(const aValue: Integer); virtual; + function GetCOMISIONABLEIsNull: Boolean; virtual; + procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVValue: String; virtual; + procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; + function GetREFERENCIA_PROVIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; + function GetPRECIO_COSTEValue: Currency; virtual; + procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual; + function GetPRECIO_COSTEIsNull: Boolean; virtual; + procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual; + function GetPRECIO_PORTEValue: Currency; virtual; + procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual; + function GetPRECIO_PORTEIsNull: Boolean; virtual; + procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetPRECIO_NETOValue: Currency; virtual; + procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; + function GetPRECIO_NETOIsNull: Boolean; virtual; + procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; + function GetINVENTARIABLEValue: SmallInt; virtual; + procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual; + function GetINVENTARIABLEIsNull: Boolean; virtual; + procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + function GetID_PROVEEDORIsNull: Boolean; virtual; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNOMBRE_PROVEEDORValue: String; virtual; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; + function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; + procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetELIMINADOValue: SmallInt; virtual; + procedure SetELIMINADOValue(const aValue: SmallInt); virtual; + function GetELIMINADOIsNull: Boolean; virtual; + procedure SetELIMINADOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; + property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; + property IMAGEN: IROStream read GetIMAGENValue; + property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull; + property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; + property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; + property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; + property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; + property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; + property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; + property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; + property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; + property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; + property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue; + property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IArticulosParaCliente } + IArticulosParaCliente = interface(IDAStronglyTypedDataTable) + ['{F46994FF-67BE-4892-BE35-890D5A779CB9}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetDESCRIPCIONValue: String; + procedure SetDESCRIPCIONValue(const aValue: String); + function GetDESCRIPCIONIsNull: Boolean; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); + function GetFAMILIAValue: String; + procedure SetFAMILIAValue(const aValue: String); + function GetFAMILIAIsNull: Boolean; + procedure SetFAMILIAIsNull(const aValue: Boolean); + function GetIMAGENValue: IROStream; + function GetIMAGENIsNull: Boolean; + procedure SetIMAGENIsNull(const aValue: Boolean); + function GetCOMISIONABLEValue: SmallInt; + procedure SetCOMISIONABLEValue(const aValue: SmallInt); + function GetCOMISIONABLEIsNull: Boolean; + procedure SetCOMISIONABLEIsNull(const aValue: Boolean); + function GetFECHA_ALTAValue: DateTime; + procedure SetFECHA_ALTAValue(const aValue: DateTime); + function GetFECHA_ALTAIsNull: Boolean; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); + function GetFECHA_MODIFICACIONValue: DateTime; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); + function GetFECHA_MODIFICACIONIsNull: Boolean; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + function GetUSUARIOValue: String; + procedure SetUSUARIOValue(const aValue: String); + function GetUSUARIOIsNull: Boolean; + procedure SetUSUARIOIsNull(const aValue: Boolean); + function GetREFERENCIA_PROVValue: String; + procedure SetREFERENCIA_PROVValue(const aValue: String); + function GetREFERENCIA_PROVIsNull: Boolean; + procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); + function GetPRECIO_COSTEValue: Currency; + procedure SetPRECIO_COSTEValue(const aValue: Currency); + function GetPRECIO_COSTEIsNull: Boolean; + procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); + function GetPRECIO_PORTEValue: Currency; + procedure SetPRECIO_PORTEValue(const aValue: Currency); + function GetPRECIO_PORTEIsNull: Boolean; + procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); + function GetDESCUENTOValue: Float; + procedure SetDESCUENTOValue(const aValue: Float); + function GetDESCUENTOIsNull: Boolean; + procedure SetDESCUENTOIsNull(const aValue: Boolean); + function GetPRECIO_NETOValue: Currency; + procedure SetPRECIO_NETOValue(const aValue: Currency); + function GetPRECIO_NETOIsNull: Boolean; + procedure SetPRECIO_NETOIsNull(const aValue: Boolean); + function GetINVENTARIABLEValue: SmallInt; + procedure SetINVENTARIABLEValue(const aValue: SmallInt); + function GetINVENTARIABLEIsNull: Boolean; + procedure SetINVENTARIABLEIsNull(const aValue: Boolean); + function GetID_PROVEEDORValue: Integer; + procedure SetID_PROVEEDORValue(const aValue: Integer); + function GetID_PROVEEDORIsNull: Boolean; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); + function GetNOMBRE_PROVEEDORValue: String; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); + function GetNOMBRE_PROVEEDORIsNull: Boolean; + procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); + function GetELIMINADOValue: SmallInt; + procedure SetELIMINADOValue(const aValue: SmallInt); + function GetELIMINADOIsNull: Boolean; + procedure SetELIMINADOIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; + property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; + property IMAGEN: IROStream read GetIMAGENValue; + property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull; + property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue; + property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; + property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; + property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; + property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; + property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; + property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; + property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; + property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; + property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue; + property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; + end; + + { TArticulosParaClienteDataTableRules } + TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente) + private + f_IMAGEN: IROStream; + procedure IMAGEN_OnChange(Sender: TObject); + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + function GetFAMILIAValue: String; virtual; + procedure SetFAMILIAValue(const aValue: String); virtual; + function GetFAMILIAIsNull: Boolean; virtual; + procedure SetFAMILIAIsNull(const aValue: Boolean); virtual; + function GetIMAGENValue: IROStream; virtual; + function GetIMAGENIsNull: Boolean; virtual; + procedure SetIMAGENIsNull(const aValue: Boolean); virtual; + function GetCOMISIONABLEValue: SmallInt; virtual; + procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual; + function GetCOMISIONABLEIsNull: Boolean; virtual; + procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVValue: String; virtual; + procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; + function GetREFERENCIA_PROVIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; + function GetPRECIO_COSTEValue: Currency; virtual; + procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual; + function GetPRECIO_COSTEIsNull: Boolean; virtual; + procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual; + function GetPRECIO_PORTEValue: Currency; virtual; + procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual; + function GetPRECIO_PORTEIsNull: Boolean; virtual; + procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetPRECIO_NETOValue: Currency; virtual; + procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; + function GetPRECIO_NETOIsNull: Boolean; virtual; + procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; + function GetINVENTARIABLEValue: SmallInt; virtual; + procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual; + function GetINVENTARIABLEIsNull: Boolean; virtual; + procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + function GetID_PROVEEDORIsNull: Boolean; virtual; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNOMBRE_PROVEEDORValue: String; virtual; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; + function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; + procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetELIMINADOValue: SmallInt; virtual; + procedure SetELIMINADOValue(const aValue: SmallInt); virtual; + function GetELIMINADOIsNull: Boolean; virtual; + procedure SetELIMINADOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue; + property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; + property IMAGEN: IROStream read GetIMAGENValue; + property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull; + property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue; + property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; + property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; + property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; + property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; + property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; + property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; + property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; + property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; + property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; + property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue; + property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + +implementation + +uses Variants, uROBinaryHelpers; + +{ TArticulosDataTableRules } +constructor TArticulosDataTableRules.Create(aDataTable: TDADataTable); +var + ROStream: TROStream; +begin + inherited; + + ROStream := TROStream.Create; + ROStream.OnChange := IMAGEN_OnChange; + f_IMAGEN := ROStream; +end; + +destructor TArticulosDataTableRules.Destroy; +begin + inherited; +end; + +procedure TArticulosDataTableRules.IMAGEN_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_ArticulosIMAGEN].LoadFromStream(TROStream(Sender)); +end; + +function TArticulosDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_ArticulosID].AsInteger; +end; + +procedure TArticulosDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_ArticulosID].AsInteger := aValue; +end; + +function TArticulosDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosID].IsNull; +end; + +procedure TArticulosDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosID].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_ArticulosID_EMPRESA].AsInteger; +end; + +procedure TArticulosDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_ArticulosID_EMPRESA].AsInteger := aValue; +end; + +function TArticulosDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosID_EMPRESA].IsNull; +end; + +procedure TArticulosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosID_EMPRESA].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_ArticulosREFERENCIA].AsString; +end; + +procedure TArticulosDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosREFERENCIA].AsString := aValue; +end; + +function TArticulosDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosREFERENCIA].IsNull; +end; + +procedure TArticulosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosREFERENCIA].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetDESCRIPCIONValue: String; +begin + result := DataTable.Fields[idx_ArticulosDESCRIPCION].AsString; +end; + +procedure TArticulosDataTableRules.SetDESCRIPCIONValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosDESCRIPCION].AsString := aValue; +end; + +function TArticulosDataTableRules.GetDESCRIPCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosDESCRIPCION].IsNull; +end; + +procedure TArticulosDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosDESCRIPCION].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetFAMILIAValue: String; +begin + result := DataTable.Fields[idx_ArticulosFAMILIA].AsString; +end; + +procedure TArticulosDataTableRules.SetFAMILIAValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosFAMILIA].AsString := aValue; +end; + +function TArticulosDataTableRules.GetFAMILIAIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosFAMILIA].IsNull; +end; + +procedure TArticulosDataTableRules.SetFAMILIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosFAMILIA].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetIMAGENValue: IROStream; +begin + result := f_IMAGEN; + result.Position := 0; + if not Result.InUpdateMode then begin + DataTable.Fields[idx_ArticulosIMAGEN].SaveToStream(result); + result.Position := 0; + end; +end; + +function TArticulosDataTableRules.GetIMAGENIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosIMAGEN].IsNull; +end; + +procedure TArticulosDataTableRules.SetIMAGENIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosIMAGEN].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetCOMISIONABLEValue: Integer; +begin + result := DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger; +end; + +procedure TArticulosDataTableRules.SetCOMISIONABLEValue(const aValue: Integer); +begin + DataTable.Fields[idx_ArticulosCOMISIONABLE].AsInteger := aValue; +end; + +function TArticulosDataTableRules.GetCOMISIONABLEIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosCOMISIONABLE].IsNull; +end; + +procedure TArticulosDataTableRules.SetCOMISIONABLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosCOMISIONABLE].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetFECHA_ALTAValue: DateTime; +begin + result := DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime; +end; + +procedure TArticulosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_ArticulosFECHA_ALTA].AsDateTime := aValue; +end; + +function TArticulosDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosFECHA_ALTA].IsNull; +end; + +procedure TArticulosDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosFECHA_ALTA].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime; +end; + +procedure TArticulosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsDateTime := aValue; +end; + +function TArticulosDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].IsNull; +end; + +procedure TArticulosDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosFECHA_MODIFICACION].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_ArticulosUSUARIO].AsString; +end; + +procedure TArticulosDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosUSUARIO].AsString := aValue; +end; + +function TArticulosDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosUSUARIO].IsNull; +end; + +procedure TArticulosDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosUSUARIO].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetREFERENCIA_PROVValue: String; +begin + result := DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsString; +end; + +procedure TArticulosDataTableRules.SetREFERENCIA_PROVValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsString := aValue; +end; + +function TArticulosDataTableRules.GetREFERENCIA_PROVIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosREFERENCIA_PROV].IsNull; +end; + +procedure TArticulosDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosREFERENCIA_PROV].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetPRECIO_COSTEValue: Currency; +begin + result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsCurrency; +end; + +procedure TArticulosDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsCurrency := aValue; +end; + +function TArticulosDataTableRules.GetPRECIO_COSTEIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosPRECIO_COSTE].IsNull; +end; + +procedure TArticulosDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosPRECIO_COSTE].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetPRECIO_PORTEValue: Currency; +begin + result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsCurrency; +end; + +procedure TArticulosDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsCurrency := aValue; +end; + +function TArticulosDataTableRules.GetPRECIO_PORTEIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosPRECIO_PORTE].IsNull; +end; + +procedure TArticulosDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosPRECIO_PORTE].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetDESCUENTOValue: Float; +begin + result := DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat; +end; + +procedure TArticulosDataTableRules.SetDESCUENTOValue(const aValue: Float); +begin + DataTable.Fields[idx_ArticulosDESCUENTO].AsFloat := aValue; +end; + +function TArticulosDataTableRules.GetDESCUENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosDESCUENTO].IsNull; +end; + +procedure TArticulosDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosDESCUENTO].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetPRECIO_NETOValue: Currency; +begin + result := DataTable.Fields[idx_ArticulosPRECIO_NETO].AsCurrency; +end; + +procedure TArticulosDataTableRules.SetPRECIO_NETOValue(const aValue: Currency); +begin + DataTable.Fields[idx_ArticulosPRECIO_NETO].AsCurrency := aValue; +end; + +function TArticulosDataTableRules.GetPRECIO_NETOIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosPRECIO_NETO].IsNull; +end; + +procedure TArticulosDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosPRECIO_NETO].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetINVENTARIABLEValue: SmallInt; +begin + result := DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt; +end; + +procedure TArticulosDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_ArticulosINVENTARIABLE].AsSmallInt := aValue; +end; + +function TArticulosDataTableRules.GetINVENTARIABLEIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosINVENTARIABLE].IsNull; +end; + +procedure TArticulosDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosINVENTARIABLE].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetID_PROVEEDORValue: Integer; +begin + result := DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsInteger; +end; + +procedure TArticulosDataTableRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsInteger := aValue; +end; + +function TArticulosDataTableRules.GetID_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosID_PROVEEDOR].IsNull; +end; + +procedure TArticulosDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosID_PROVEEDOR].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetNOMBRE_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsString; +end; + +procedure TArticulosDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsString := aValue; +end; + +function TArticulosDataTableRules.GetNOMBRE_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].IsNull; +end; + +procedure TArticulosDataTableRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosNOMBRE_PROVEEDOR].AsVariant := Null; +end; + +function TArticulosDataTableRules.GetELIMINADOValue: SmallInt; +begin + result := DataTable.Fields[idx_ArticulosELIMINADO].AsSmallInt; +end; + +procedure TArticulosDataTableRules.SetELIMINADOValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_ArticulosELIMINADO].AsSmallInt := aValue; +end; + +function TArticulosDataTableRules.GetELIMINADOIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosELIMINADO].IsNull; +end; + +procedure TArticulosDataTableRules.SetELIMINADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosELIMINADO].AsVariant := Null; +end; + + +{ TArticulosParaClienteDataTableRules } +constructor TArticulosParaClienteDataTableRules.Create(aDataTable: TDADataTable); +var + ROStream: TROStream; +begin + inherited; + + ROStream := TROStream.Create; + ROStream.OnChange := IMAGEN_OnChange; + f_IMAGEN := ROStream; +end; + +destructor TArticulosParaClienteDataTableRules.Destroy; +begin + inherited; +end; + +procedure TArticulosParaClienteDataTableRules.IMAGEN_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_ArticulosParaClienteIMAGEN].LoadFromStream(TROStream(Sender)); +end; + +function TArticulosParaClienteDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_ArticulosParaClienteID].AsInteger; +end; + +procedure TArticulosParaClienteDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_ArticulosParaClienteID].AsInteger := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteID].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteID].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].AsInteger; +end; + +procedure TArticulosParaClienteDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].AsInteger := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteID_EMPRESA].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].AsString; +end; + +procedure TArticulosParaClienteDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].AsString := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteREFERENCIA].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetDESCRIPCIONValue: String; +begin + result := DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsString; +end; + +procedure TArticulosParaClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsString := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetDESCRIPCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetFAMILIAValue: String; +begin + result := DataTable.Fields[idx_ArticulosParaClienteFAMILIA].AsString; +end; + +procedure TArticulosParaClienteDataTableRules.SetFAMILIAValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosParaClienteFAMILIA].AsString := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetFAMILIAIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteFAMILIA].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetFAMILIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteFAMILIA].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetIMAGENValue: IROStream; +begin + result := f_IMAGEN; + result.Position := 0; + if not Result.InUpdateMode then begin + DataTable.Fields[idx_ArticulosParaClienteIMAGEN].SaveToStream(result); + result.Position := 0; + end; +end; + +function TArticulosParaClienteDataTableRules.GetIMAGENIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteIMAGEN].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetIMAGENIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteIMAGEN].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetCOMISIONABLEValue: SmallInt; +begin + result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt; +end; + +procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetCOMISIONABLEIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetFECHA_ALTAValue: DateTime; +begin + result := DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].AsDateTime; +end; + +procedure TArticulosParaClienteDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].AsDateTime := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteFECHA_ALTA].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].AsDateTime; +end; + +procedure TArticulosParaClienteDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].AsDateTime := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteFECHA_MODIFICACION].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_ArticulosParaClienteUSUARIO].AsString; +end; + +procedure TArticulosParaClienteDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosParaClienteUSUARIO].AsString := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteUSUARIO].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteUSUARIO].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetREFERENCIA_PROVValue: String; +begin + result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsString; +end; + +procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_PROVValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsString := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetREFERENCIA_PROVIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_PROV].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEValue: Currency; +begin + result := DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsCurrency; +end; + +procedure TArticulosParaClienteDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsCurrency := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetPRECIO_COSTEIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClientePRECIO_COSTE].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEValue: Currency; +begin + result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsCurrency; +end; + +procedure TArticulosParaClienteDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsCurrency := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetPRECIO_PORTEIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClientePRECIO_PORTE].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetDESCUENTOValue: Float; +begin + result := DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsFloat; +end; + +procedure TArticulosParaClienteDataTableRules.SetDESCUENTOValue(const aValue: Float); +begin + DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsFloat := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetDESCUENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteDESCUENTO].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetPRECIO_NETOValue: Currency; +begin + result := DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsCurrency; +end; + +procedure TArticulosParaClienteDataTableRules.SetPRECIO_NETOValue(const aValue: Currency); +begin + DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsCurrency := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetPRECIO_NETOIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClientePRECIO_NETO].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetINVENTARIABLEValue: SmallInt; +begin + result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsSmallInt; +end; + +procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsSmallInt := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetINVENTARIABLEIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteINVENTARIABLE].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetID_PROVEEDORValue: Integer; +begin + result := DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsInteger; +end; + +procedure TArticulosParaClienteDataTableRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsInteger := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetID_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteID_PROVEEDOR].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetNOMBRE_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsString; +end; + +procedure TArticulosParaClienteDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsString := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetNOMBRE_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsVariant := Null; +end; + +function TArticulosParaClienteDataTableRules.GetELIMINADOValue: SmallInt; +begin + result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsSmallInt; +end; + +procedure TArticulosParaClienteDataTableRules.SetELIMINADOValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsSmallInt := aValue; +end; + +function TArticulosParaClienteDataTableRules.GetELIMINADOIsNull: boolean; +begin + result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].IsNull; +end; + +procedure TArticulosParaClienteDataTableRules.SetELIMINADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsVariant := Null; +end; + + +initialization + RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules); + RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules); + +end. diff --git a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas index a3134983..34c79f0e 100644 --- a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas +++ b/Source/Modulos/Articulos/Model/schArticulosServer_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_ArticulosDelta = '{1EF85C21-66D6-4680-A910-2679A098D282}'; - RID_ArticulosParaClienteDelta = '{CE4D74E0-1868-4D88-9483-CED9CD6BC658}'; + RID_ArticulosDelta = '{82298E75-82C9-4852-A33B-491F6C1C22B6}'; + RID_ArticulosParaClienteDelta = '{CD4567F1-5B6C-4215-BED9-48EC27CE653D}'; type { IArticulosDelta } IArticulosDelta = interface(IArticulos) - ['{1EF85C21-66D6-4680-A910-2679A098D282}'] + ['{82298E75-82C9-4852-A33B-491F6C1C22B6}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -266,7 +266,7 @@ type { IArticulosParaClienteDelta } IArticulosParaClienteDelta = interface(IArticulosParaCliente) - ['{CE4D74E0-1868-4D88-9483-CED9CD6BC658}'] + ['{CD4567F1-5B6C-4215-BED9-48EC27CE653D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index b663c58d9e2e9b12fbc367fa48d81f1288600ad5..c80d0bc8a330bdd5fe0c130bf4d633fbaff44d0e 100644 GIT binary patch delta 84 zcmdn6jd8~|#tnBO7;PrsjgSYDeiBiBsU{-5`*I8?kHKo9EMVcJcd+; eVg?-s1qLGq