From 2ca7a4618a4be2c717af5af3b7ddd4544dd953db Mon Sep 17 00:00:00 2001 From: roberto Date: Sat, 17 Nov 2007 13:14:53 +0000 Subject: [PATCH] Albaranes y Ordenes de devolucion Proveedores OK git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@113 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.res | Bin 4748 -> 384 bytes Source/Cliente/uBootStrap.pas | 4 +- .../AlbaranesProveedor_controller.dpk | 21 +- .../AlbaranesProveedor_controller.dproj | 558 +++- .../AlbaranesProveedor_controller.rc | 22 + .../AlbaranesProveedor_controller.res | Bin 5056 -> 384 bytes .../uAlbaranesProveedorController.pas | 120 +- .../uDetallesAlbaranProveedorController.pas | 14 - .../Data/AlbaranesProveedor_data.dpk | 10 +- .../Data/uDataModuleAlbaranesProveedor.dfm | 365 +++ .../Data/uDataModuleAlbaranesProveedor.pas | 13 +- .../Model/AlbaranesProveedor_model.dpk | 15 +- .../Data/uIDataModuleAlbaranesProveedor.pas | 1 - .../schAlbaranesProveedorClient_Intf.pas | 2038 +------------- .../schAlbaranesProveedorServer_Intf.pas | 2450 +---------------- .../Model/uBizAlbaranProveedorServer.PAS | 12 +- .../Model/uBizAlbaranesProveedor.pas | 4 +- .../Plugin/AlbaranesProveedor_plugin.dpk | 12 +- .../Plugin/AlbaranesProveedor_plugin.dproj | 549 +++- .../Plugin/AlbaranesProveedor_plugin.rc | 22 + .../Plugin/AlbaranesProveedor_plugin.res | Bin 5056 -> 384 bytes .../Servidor/srvAlbaranesProveedor_Impl.dfm | 960 +------ .../Servidor/srvAlbaranesProveedor_Impl.pas | 8 +- .../Views/AlbaranesProveedor_view.dpk | 68 +- .../Views/AlbaranesProveedor_view.dproj | 606 +++- .../Views/AlbaranesProveedor_view.identcache | Bin 1813 -> 1749 bytes .../Views/AlbaranesProveedor_view.rc | 22 + .../Views/AlbaranesProveedor_view.res | Bin 5056 -> 384 bytes .../Views/uEditorAlbaranProveedor.dfm | 4 + .../Views/uEditorAlbaranProveedor.pas | 6 +- .../Views/uEditorAlbaranesDevProveedor.pas | 5 +- .../Views/uEditorAlbaranesProveedor.dfm | 1 + .../Views/uEditorAlbaranesProveedor.pas | 13 +- .../Views/uEditorAlbaranesProveedorReport.dfm | 2 + .../Views/uEditorAlbaranesProveedorReport.pas | 7 +- .../Views/uViewDetallesAlbaranProveedor.pas | 2 +- .../uViewDireccionEntregaAlbaranProv.pas | 2 +- .../Controller/PedidosProveedor_controller.rc | 22 + .../PedidosProveedor_controller.res | Bin 5056 -> 384 bytes .../Data/PedidosProveedor_data.res | Bin 5056 -> 32 bytes .../Model/PedidosProveedor_model.res | Bin 5056 -> 32 bytes .../Model/schPedidosProveedorClient_Intf.pas | 10 +- .../Plugin/PedidosProveedor_plugin.res | Bin 5056 -> 32 bytes .../Views/PedidosProveedor_view.res | Bin 5056 -> 32 bytes .../Controller/RecibosProveedor_controller.rc | 22 + .../RecibosProveedor_controller.res | Bin 5056 -> 384 bytes .../Data/RecibosProveedor_data.rc | 22 + .../Data/RecibosProveedor_data.res | Bin 5056 -> 384 bytes .../Model/RecibosProveedor_model.rc | 22 + .../Model/RecibosProveedor_model.res | Bin 5056 -> 384 bytes .../Plugin/RecibosProveedor_plugin.res | Bin 5056 -> 32 bytes .../Views/RecibosProveedor_view.res | Bin 5056 -> 32 bytes .../PedProv_AlbProv_relation.res | Bin 32 -> 5056 bytes Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23208 bytes Source/Servidor/FactuGES_Server.dpr | 7 +- Source/Servidor/FactuGES_Server.dproj | 357 ++- Source/Servidor/FactuGES_Server.rc | 2 +- 57 files changed, 2614 insertions(+), 5786 deletions(-) diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index 86dd8ef0..be5b59a7 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -34,7 +34,9 @@ begin LoadModule('RecibosCliente_plugin.bpl'); LoadModule('FacturasCliente_plugin.bpl'); - LoadModule('PedidosProveedor_plugin.bpl'); + LoadModule('PedidosProveedor_plugin.bpl'); + LoadModule('AlbaranesProveedor_plugin.bpl'); + LoadModule('RecibosProveedor_plugin.bpl'); end; diff --git a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dpk b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dpk index a01dc1ed..3483d773 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dpk +++ b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dpk @@ -22,29 +22,16 @@ package AlbaranesProveedor_controller; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - cxLibraryD10, - dxThemeD10, GUIBase, - ControllerBase, - Contactos_controller, - dsnap, - vcldb, - adortl, - Articulos_controller, - Inventario_model, - Inventario_controller, AlbaranesProveedor_model, AlbaranesProveedor_data, + Contactos_controller, + Articulos_controller, PedidosProveedor_model, - PedidosProveedor_controller, - Articulos_model, - Articulos_controller; + PedidosProveedor_controller; contains uAlbaranesProveedorController in 'uAlbaranesProveedorController.pas', diff --git a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dproj b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dproj index 59c48ae0..a3146d32 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dproj +++ b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dproj @@ -36,78 +36,25 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - AlbaranesProveedor_controller.dpk - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0AlbaranesProveedor_controller.dpk - + MainSource - - - - - - - - - - - - - - - - - - - + + + + + + + @@ -121,5 +68,488 @@ - - \ No newline at end of file + + + diff --git a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.rc b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.rc +++ b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.res b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.res index 86c94e6ada7b3c85f6761b1ee234a9f34ef3c861..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 89 zcmX@0-oQLTLCJxUfkAA@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5= 0) + Condicion := NewBinaryExpression(NewField('', fld_AlbaranesProveedorIMPORTE_TOTAL), NewConstant(0, datCurrency), dboGreaterOrEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; @@ -418,18 +412,24 @@ begin end; function TAlbaranesProveedorController.BuscarSinFacturar: IBizAlbaranProveedor; +var + Condicion: TDAWhereExpression; begin ShowHourglassCursor; try Result := BuscarAlbaranesNormales; - with Result.DataTable.Where do + + with Result.DataTable.DynamicWhere do begin - if NotEmpty then - AddOperator(opAND); - OpenBraket; - AddText(fld_AlbaranesProveedorID_FACTURA + ' is null'); - CloseBraket; + // (ID_FACTURA = NULL) + Condicion := NewBinaryExpression(NewField('', fld_AlbaranesProveedorID_FACTURA), NewNull(), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; + finally HideHourglassCursor; end; @@ -525,8 +525,8 @@ begin Result.Edit; with Result do begin - ID_EMPRESA := dmUsuarios.IDEmpresaActual; - USUARIO := dmUsuarios.LoginInfo.Usuario; + ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; +// USUARIO := dmUsuarios.LoginInfo.Usuario; FECHA_ALBARAN := DateOf(Now); INCIDENCIAS_ACTIVAS := 0; REFERENCIA := ''; @@ -589,7 +589,7 @@ begin en MODIFICACIÓN como en INSERCIÓN. } AAlbaran.Edit; try - AAlbaran.USUARIO := dmUsuarios.LoginInfo.Usuario; +// AAlbaran.USUARIO := dmUsuarios.LoginInfo.Usuario; if Assigned(AAlbaran.Proveedor) and (AAlbaran.ID_PROVEEDOR <> AAlbaran.Proveedor.ID) then @@ -902,12 +902,12 @@ begin AAlbaran.DataTable.Active := False; // Filtrar los presupuestos actuales por empresa - with AAlbaran.DataTable.Where do - begin - if NotEmpty then - AddOperator(opAND); - AddCondition(fld_AlbaranesProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual); - end; +// with AAlbaran.DataTable.Where do +// begin +// if NotEmpty then +// AddOperator(opAND); +// AddCondition(fld_AlbaranesProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual); +// end; end; procedure TAlbaranesProveedorController.SetProveedorController(const Value: IProveedoresController); @@ -940,12 +940,6 @@ begin RecalcularImportes(AAlbaran); try - if (AAlbaran.EsNuevo) then - IDNuevo := FDataModule.GetNextID(AAlbaran.DataTable.LogicalName) - else - IDNuevo := AAlbaran.ID; - - AsignarID(AAlbaran, IDNuevo); AAlbaran.DataTable.ApplyUpdates; Result := True; finally diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas index a7cd0ec9..b94a5020 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas @@ -20,7 +20,6 @@ type FDataModule : IDataModuleAlbaranesProveedor; protected - procedure AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer); override; procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override; procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override; @@ -83,19 +82,6 @@ begin FArticulosController := TArticulosAlbaranProveedorController.Create; end; -procedure TDetallesAlbaranProveedorController.AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer); -begin - inherited; - - with (ADetalles as IBizDetallesAlbaranProveedor) do - begin - Edit; - ID := FDataModule.GetNextID(DataTable.LogicalName); - ID_ALBARAN := IDCabecera; - Post - end; -end; - function TDetallesAlbaranProveedorController.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; begin Result := CalcularLineaConcepto(DataTable); diff --git a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dpk b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dpk index 0686e22d..d871fcc7 100644 --- a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dpk +++ b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dpk @@ -22,17 +22,9 @@ package AlbaranesProveedor_data; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - dbrtl, - cxLibraryD10, - dxThemeD10, - vcl, - dsnap, - vcldb, - adortl, AlbaranesProveedor_model; contains diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm index 8df81c7e..ca646582 100644 --- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm @@ -2,6 +2,8 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor OnCreate = DAClientDataModuleCreate Width = 462 object RORemoteService: TRORemoteService + Message = dmConexion.ROMessage + Channel = dmConexion.ROChannel ServiceName = 'srvAlbaranesProveedor' Left = 48 Top = 32 @@ -20,4 +22,367 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor Left = 51 Top = 151 end + object tbl_AlbaranesProveedor: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_ALBARANES_PRO_ID' + Required = True + ServerAutoRefresh = True + DictionaryEntry = 'AlbaranesProveedor_ID' + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_ID_EMPRESA' + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_ID_PROVEEDOR' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + DisplayLabel = 'Proveedor' + DictionaryEntry = 'AlbaranesProveedor_NOMBRE' + end + item + Name = 'FECHA_ALBARAN' + DataType = datDateTime + DisplayLabel = 'Fecha albar'#195#161'n' + DictionaryEntry = 'AlbaranesProveedor_FECHA_ALBARAN' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + DisplayLabel = 'Referencia' + DictionaryEntry = 'AlbaranesProveedor_REFERENCIA' + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + DisplayLabel = 'Ref. provedor' + DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_PROVEEDOR' + end + item + Name = 'TIPO' + DataType = datString + Size = 1 + DisplayLabel = 'Tipo' + DictionaryEntry = 'AlbaranesProveedor_TIPO' + end + item + Name = 'ID_ALMACEN' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_ID_ALMACEN' + end + item + Name = 'NOMBRE_ALMACEN' + DataType = datString + Size = 255 + DisplayLabel = 'Almac'#195#169'n' + DictionaryEntry = 'AlbaranesProveedor_NOMBRE_ALMACEN' + end + item + Name = 'ID_PEDIDO' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_ID_PEDIDO' + end + item + Name = 'REF_PED_PROVEEDOR' + DataType = datString + Size = 255 + DisplayLabel = 'Ped. proveedor' + DictionaryEntry = 'AlbaranesProveedor_REF_PED_PROVEEDOR' + end + item + Name = 'ID_FACTURA' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_ID_FACTURA' + end + item + Name = 'REF_FACTURA' + DataType = datString + Size = 255 + DisplayLabel = 'Referencia factura' + DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA' + end + item + Name = 'REF_FACTURA_PROV' + DataType = datString + Size = 255 + DisplayLabel = 'Ref. factura prov' + DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA_PROV' + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + DisplayLabel = 'Calle' + DictionaryEntry = 'AlbaranesProveedor_CALLE' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + DisplayLabel = 'C'#195#179'd. postal' + DictionaryEntry = 'AlbaranesProveedor_CODIGO_POSTAL' + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + DisplayLabel = 'Poblaci'#195#179'n' + DictionaryEntry = 'AlbaranesProveedor_POBLACION' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + DisplayLabel = 'Provincia' + DictionaryEntry = 'AlbaranesProveedor_PROVINCIA' + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + DisplayLabel = 'Persona de contacto' + DictionaryEntry = 'AlbaranesProveedor_PERSONA_CONTACTO' + end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + DisplayLabel = 'Tel'#195#169'fono' + DictionaryEntry = 'AlbaranesProveedor_TELEFONO' + end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + DisplayLabel = 'Importe neto' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_IMPORTE_NETO' + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + DisplayLabel = 'Importe del porte' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_IMPORTE_PORTE' + end + item + Name = 'DESCUENTO' + DataType = datFloat + DisplayLabel = 'Descuento' + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_DESCUENTO' + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + DisplayLabel = 'Importe dto.' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_IMPORTE_DESCUENTO' + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + DisplayLabel = 'Base imponible' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_BASE_IMPONIBLE' + end + item + Name = 'IVA' + DataType = datFloat + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_IVA' + end + item + Name = 'IMPORTE_IVA' + DataType = datCurrency + DisplayLabel = 'Importe IVA' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_IMPORTE_IVA' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_IMPORTE_TOTAL' + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + DisplayLabel = 'Observaciones' + DictionaryEntry = 'AlbaranesProveedor_OBSERVACIONES' + end + item + Name = 'INCIDENCIAS' + DataType = datMemo + DictionaryEntry = 'AlbaranesProveedor_INCIDENCIAS' + end + item + Name = 'INCIDENCIAS_ACTIVAS' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_INCIDENCIAS_ACTIVAS' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + DictionaryEntry = 'AlbaranesProveedor_FECHA_ALTA' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + DictionaryEntry = 'AlbaranesProveedor_FECHA_MODIFICACION' + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + DictionaryEntry = 'AlbaranesProveedor_USUARIO' + end + item + Name = 'ID_FORMA_PAGO' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_ID_FORMA_PAGO' + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_AlbaranesProveedor + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'AlbaranesProveedor' + IndexDefs = <> + Left = 168 + Top = 104 + end + object ds_AlbaranesProveedor: TDADataSource + DataSet = tbl_AlbaranesProveedor.Dataset + DataTable = tbl_AlbaranesProveedor + Left = 168 + Top = 40 + end + object tbl_AlbaranesProveedor_Detalles: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_ALBARANES_PRO_DETALLES_ID' + Required = True + ServerAutoRefresh = True + DictionaryEntry = 'AlbaranesProveedor_Detalles_ID' + InPrimaryKey = True + end + item + Name = 'ID_ALBARAN' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ALBARAN' + end + item + Name = 'POSICION' + DataType = datInteger + DictionaryEntry = 'POSICIONCONCEPTO' + end + item + Name = 'TIPO_DETALLE' + DataType = datString + Size = 10 + DictionaryEntry = 'AlbaranesProveedor_Detalles_TIPO_DETALLE' + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + DictionaryEntry = 'AlbaranesProveedor_Detalles_CONCEPTO' + end + item + Name = 'CANTIDAD' + DataType = datInteger + DictionaryEntry = 'CANTIDAD' + end + item + Name = 'IMPORTE_UNIDAD' + DataType = datCurrency + DisplayLabel = 'Importe unidad' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_UNIDAD' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_TOTAL' + end + item + Name = 'VISIBLE' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE' + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ARTICULO' + end + item + Name = 'DESCUENTO' + DataType = datFloat + DisplayLabel = 'Descuento' + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_Detalles_DESCUENTO' + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + DisplayLabel = 'Importe porte' + Alignment = taRightJustify + DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_PORTE' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + DisplayLabel = 'Referencia' + DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA' + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + DisplayLabel = 'Ref. proveedor' + DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR' + end> + Params = <> + MasterMappingMode = mmWhere + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_AlbaranesProveedor + MasterSource = ds_AlbaranesProveedor + MasterFields = 'ID' + DetailFields = 'ID_ALBARAN' + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'AlbaranesProveedor_Detalles' + IndexDefs = <> + Left = 328 + Top = 104 + end + object ds_AlbaranesProveedor_Detalles: TDADataSource + DataSet = tbl_AlbaranesProveedor_Detalles.Dataset + DataTable = tbl_AlbaranesProveedor_Detalles + Left = 328 + Top = 40 + end end diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas index e253109e..3e2474ba 100644 --- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas @@ -8,20 +8,25 @@ uses uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter, uDAClientDataModule, uROTypes, uIDataModuleAlbaranesProveedorReport, uDataModuleBase, uIDataModuleAlbaranesProveedor, uBizAlbaranesProveedor, uBizDetallesAlbaranProveedor, - uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer; + uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, + uDAMemDataTable; type TDataModuleAlbaranesProveedor = class(TDataModuleBase, IDataModuleAlbaranesProveedor, IDataModuleAlbaranesProveedorReport) RORemoteService: TRORemoteService; Bin2DataStreamer: TDABin2DataStreamer; rda_AlbaranesProveedor: TDARemoteDataAdapter; + tbl_AlbaranesProveedor: TDAMemDataTable; + ds_AlbaranesProveedor: TDADataSource; + tbl_AlbaranesProveedor_Detalles: TDAMemDataTable; + ds_AlbaranesProveedor_Detalles: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); private function _GetDetalles : IBizDetallesAlbaranProveedor; protected - procedure AsignarClaseNegocio(var APedido: TDACDSDataTable); virtual; + procedure AsignarClaseNegocio(var APedido: TDAMemDataTable); virtual; public function GetItems : IBizAlbaranProveedor; virtual; @@ -37,12 +42,12 @@ implementation {$R *.DFM} uses - cxControls, FactuGES_Intf, uDAInterfaces, uDataModuleConexion, + cxControls, FactuGES_Intf, uDataModuleConexion, uDataTableUtils, schAlbaranesProveedorClient_Intf, uBizContactos; { TdmAlbaranesProveedor } -procedure TDataModuleAlbaranesProveedor.AsignarClaseNegocio(var APedido: TDACDSDataTable); +procedure TDataModuleAlbaranesProveedor.AsignarClaseNegocio(var APedido: TDAMemDataTable); begin APedido.BusinessRulesID := BIZ_CLIENT_ALBARAN_PROVEEDOR; end; diff --git a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk index ca84110b..eef7c303 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk +++ b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk @@ -22,22 +22,11 @@ package AlbaranesProveedor_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} -{%TogetherDiagram 'ModelSupport_AlbaranesProveedor_model\default.txaPackage'} +{$IMPLICITBUILD ON} requires - DataAbstract_D10, Base, - Usuarios, - Empresas_controller, - Contactos_model, - GUIBase, - rtl, - dbrtl, - vcl, - dsnap, - vcldb, - adortl; + Contactos_model; contains uIDataModuleAlbaranesProveedor in 'Data\uIDataModuleAlbaranesProveedor.pas', diff --git a/Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedor.pas index edc4246f..169b0e0f 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedor.pas @@ -10,7 +10,6 @@ type ['{2BAD8B3B-B57D-475C-B528-F82B320B2332}'] function GetItems: IBizAlbaranProveedor; function GetItem(const ID : Integer) : IBizAlbaranProveedor; - function GetNextID(const DataSetName : String) : Integer; function NewItem : IBizAlbaranProveedor; end; diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas index ef87838a..d7a3411a 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas @@ -9,18 +9,14 @@ 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_DarReferencia = '{1632FB46-0CE5-4B1A-9BB4-B5E7CA3318FD}'; - RID_AlbaranesProveedor = '{6F8C2E4B-0DE5-4A06-ACA9-C865CD8C5C56}'; - RID_AlbaranesProveedor_Detalles = '{B9FA2559-01E2-4CC3-B226-EF314BBC528B}'; - RID_AlbaranesProveedor_Detalles_Refresh = '{A3AC16F8-3B09-4B2D-A8B0-876E3171B985}'; - RID_AlbaranesProveedor_Refresh = '{138FB0C8-87C6-4B21-A58B-1034D9DA8B82}'; + RID_DarReferencia = '{E264DAAA-A65A-4F97-8399-054CD6715754}'; + RID_AlbaranesProveedor = '{8070DE55-5BC2-4DCA-B26F-B6E77353CD13}'; + RID_AlbaranesProveedor_Detalles = '{B5916447-B176-439A-8E99-A6CDA1527B86}'; { Data table names } nme_DarReferencia = 'DarReferencia'; nme_AlbaranesProveedor = 'AlbaranesProveedor'; nme_AlbaranesProveedor_Detalles = 'AlbaranesProveedor_Detalles'; - nme_AlbaranesProveedor_Detalles_Refresh = 'AlbaranesProveedor_Detalles_Refresh'; - nme_AlbaranesProveedor_Refresh = 'AlbaranesProveedor_Refresh'; { DarReferencia fields } fld_DarReferenciaVALOR = 'VALOR'; @@ -109,15 +105,15 @@ const fld_AlbaranesProveedor_DetallesID_ALBARAN = 'ID_ALBARAN'; fld_AlbaranesProveedor_DetallesPOSICION = 'POSICION'; fld_AlbaranesProveedor_DetallesTIPO_DETALLE = 'TIPO_DETALLE'; - fld_AlbaranesProveedor_DetallesREFERENCIA = 'REFERENCIA'; - fld_AlbaranesProveedor_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_AlbaranesProveedor_DetallesCONCEPTO = 'CONCEPTO'; fld_AlbaranesProveedor_DetallesCANTIDAD = 'CANTIDAD'; fld_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; fld_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_AlbaranesProveedor_DetallesVISIBLE = 'VISIBLE'; + fld_AlbaranesProveedor_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_AlbaranesProveedor_DetallesDESCUENTO = 'DESCUENTO'; fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; - fld_AlbaranesProveedor_DetallesVISIBLE = 'VISIBLE'; + fld_AlbaranesProveedor_DetallesREFERENCIA = 'REFERENCIA'; fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; { AlbaranesProveedor_Detalles field indexes } @@ -125,129 +121,21 @@ const idx_AlbaranesProveedor_DetallesID_ALBARAN = 1; idx_AlbaranesProveedor_DetallesPOSICION = 2; idx_AlbaranesProveedor_DetallesTIPO_DETALLE = 3; - idx_AlbaranesProveedor_DetallesREFERENCIA = 4; - idx_AlbaranesProveedor_DetallesID_ARTICULO = 5; - idx_AlbaranesProveedor_DetallesCONCEPTO = 6; - idx_AlbaranesProveedor_DetallesCANTIDAD = 7; - idx_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 8; - idx_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 9; + idx_AlbaranesProveedor_DetallesCONCEPTO = 4; + idx_AlbaranesProveedor_DetallesCANTIDAD = 5; + idx_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 6; + idx_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 7; + idx_AlbaranesProveedor_DetallesVISIBLE = 8; + idx_AlbaranesProveedor_DetallesID_ARTICULO = 9; idx_AlbaranesProveedor_DetallesDESCUENTO = 10; idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 11; - idx_AlbaranesProveedor_DetallesVISIBLE = 12; + idx_AlbaranesProveedor_DetallesREFERENCIA = 12; idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 13; - { AlbaranesProveedor_Detalles_Refresh fields } - fld_AlbaranesProveedor_Detalles_RefreshID = 'ID'; - fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN = 'ID_ALBARAN'; - fld_AlbaranesProveedor_Detalles_RefreshPOSICION = 'POSICION'; - fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE = 'TIPO_DETALLE'; - fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA = 'REFERENCIA'; - fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO = 'ID_ARTICULO'; - fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO = 'CONCEPTO'; - fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD = 'CANTIDAD'; - fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; - fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL'; - fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO = 'DESCUENTO'; - fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE = 'IMPORTE_PORTE'; - fld_AlbaranesProveedor_Detalles_RefreshVISIBLE = 'VISIBLE'; - fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; - - { AlbaranesProveedor_Detalles_Refresh field indexes } - idx_AlbaranesProveedor_Detalles_RefreshID = 0; - idx_AlbaranesProveedor_Detalles_RefreshID_ALBARAN = 1; - idx_AlbaranesProveedor_Detalles_RefreshPOSICION = 2; - idx_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE = 3; - idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA = 4; - idx_AlbaranesProveedor_Detalles_RefreshID_ARTICULO = 5; - idx_AlbaranesProveedor_Detalles_RefreshCONCEPTO = 6; - idx_AlbaranesProveedor_Detalles_RefreshCANTIDAD = 7; - idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD = 8; - idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL = 9; - idx_AlbaranesProveedor_Detalles_RefreshDESCUENTO = 10; - idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE = 11; - idx_AlbaranesProveedor_Detalles_RefreshVISIBLE = 12; - idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR = 13; - - { AlbaranesProveedor_Refresh fields } - fld_AlbaranesProveedor_RefreshID = 'ID'; - fld_AlbaranesProveedor_RefreshID_EMPRESA = 'ID_EMPRESA'; - fld_AlbaranesProveedor_RefreshID_PROVEEDOR = 'ID_PROVEEDOR'; - fld_AlbaranesProveedor_RefreshNOMBRE = 'NOMBRE'; - fld_AlbaranesProveedor_RefreshFECHA_ALBARAN = 'FECHA_ALBARAN'; - fld_AlbaranesProveedor_RefreshREFERENCIA = 'REFERENCIA'; - fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; - fld_AlbaranesProveedor_RefreshTIPO = 'TIPO'; - fld_AlbaranesProveedor_RefreshID_ALMACEN = 'ID_ALMACEN'; - fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; - fld_AlbaranesProveedor_RefreshID_PEDIDO = 'ID_PEDIDO'; - fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 'REF_PED_PROVEEDOR'; - fld_AlbaranesProveedor_RefreshID_FACTURA = 'ID_FACTURA'; - fld_AlbaranesProveedor_RefreshREF_FACTURA = 'REF_FACTURA'; - fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV = 'REF_FACTURA_PROV'; - fld_AlbaranesProveedor_RefreshCALLE = 'CALLE'; - fld_AlbaranesProveedor_RefreshCODIGO_POSTAL = 'CODIGO_POSTAL'; - fld_AlbaranesProveedor_RefreshPOBLACION = 'POBLACION'; - fld_AlbaranesProveedor_RefreshPROVINCIA = 'PROVINCIA'; - fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO = 'PERSONA_CONTACTO'; - fld_AlbaranesProveedor_RefreshTELEFONO = 'TELEFONO'; - fld_AlbaranesProveedor_RefreshIMPORTE_NETO = 'IMPORTE_NETO'; - fld_AlbaranesProveedor_RefreshIMPORTE_PORTE = 'IMPORTE_PORTE'; - fld_AlbaranesProveedor_RefreshDESCUENTO = 'DESCUENTO'; - fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; - fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE = 'BASE_IMPONIBLE'; - fld_AlbaranesProveedor_RefreshIVA = 'IVA'; - fld_AlbaranesProveedor_RefreshIMPORTE_IVA = 'IMPORTE_IVA'; - fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL'; - fld_AlbaranesProveedor_RefreshOBSERVACIONES = 'OBSERVACIONES'; - fld_AlbaranesProveedor_RefreshINCIDENCIAS = 'INCIDENCIAS'; - fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS = 'INCIDENCIAS_ACTIVAS'; - fld_AlbaranesProveedor_RefreshFECHA_ALTA = 'FECHA_ALTA'; - fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION'; - fld_AlbaranesProveedor_RefreshUSUARIO = 'USUARIO'; - fld_AlbaranesProveedor_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO'; - - { AlbaranesProveedor_Refresh field indexes } - idx_AlbaranesProveedor_RefreshID = 0; - idx_AlbaranesProveedor_RefreshID_EMPRESA = 1; - idx_AlbaranesProveedor_RefreshID_PROVEEDOR = 2; - idx_AlbaranesProveedor_RefreshNOMBRE = 3; - idx_AlbaranesProveedor_RefreshFECHA_ALBARAN = 4; - idx_AlbaranesProveedor_RefreshREFERENCIA = 5; - idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR = 6; - idx_AlbaranesProveedor_RefreshTIPO = 7; - idx_AlbaranesProveedor_RefreshID_ALMACEN = 8; - idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 9; - idx_AlbaranesProveedor_RefreshID_PEDIDO = 10; - idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 11; - idx_AlbaranesProveedor_RefreshID_FACTURA = 12; - idx_AlbaranesProveedor_RefreshREF_FACTURA = 13; - idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV = 14; - idx_AlbaranesProveedor_RefreshCALLE = 15; - idx_AlbaranesProveedor_RefreshCODIGO_POSTAL = 16; - idx_AlbaranesProveedor_RefreshPOBLACION = 17; - idx_AlbaranesProveedor_RefreshPROVINCIA = 18; - idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO = 19; - idx_AlbaranesProveedor_RefreshTELEFONO = 20; - idx_AlbaranesProveedor_RefreshIMPORTE_NETO = 21; - idx_AlbaranesProveedor_RefreshIMPORTE_PORTE = 22; - idx_AlbaranesProveedor_RefreshDESCUENTO = 23; - idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO = 24; - idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE = 25; - idx_AlbaranesProveedor_RefreshIVA = 26; - idx_AlbaranesProveedor_RefreshIMPORTE_IVA = 27; - idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL = 28; - idx_AlbaranesProveedor_RefreshOBSERVACIONES = 29; - idx_AlbaranesProveedor_RefreshINCIDENCIAS = 30; - idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS = 31; - idx_AlbaranesProveedor_RefreshFECHA_ALTA = 32; - idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 33; - idx_AlbaranesProveedor_RefreshUSUARIO = 34; - idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 35; - type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{0DB97F48-C116-42F3-8FDE-9E40C7D9738F}'] + ['{87BCEB3E-3FAF-44FF-A992-70B549FF79CE}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -282,7 +170,7 @@ type { IAlbaranesProveedor } IAlbaranesProveedor = interface(IDAStronglyTypedDataTable) - ['{9DF2A567-3ECE-447B-807B-BB4E55A529AA}'] + ['{91E3DC89-DDB4-4727-88A3-1931B49B7F08}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -737,7 +625,7 @@ type { IAlbaranesProveedor_Detalles } IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{FC935DC1-A5A1-46FA-8466-3D84D9A0807E}'] + ['{A644C742-27E7-449C-9A6B-ED24143E13CD}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -755,14 +643,6 @@ type procedure SetTIPO_DETALLEValue(const aValue: String); function GetTIPO_DETALLEIsNull: Boolean; procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); - function GetREFERENCIAValue: String; - procedure SetREFERENCIAValue(const aValue: String); - function GetREFERENCIAIsNull: Boolean; - procedure SetREFERENCIAIsNull(const aValue: Boolean); - function GetID_ARTICULOValue: Integer; - procedure SetID_ARTICULOValue(const aValue: Integer); - function GetID_ARTICULOIsNull: Boolean; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); function GetCONCEPTOValue: String; procedure SetCONCEPTOValue(const aValue: String); function GetCONCEPTOIsNull: Boolean; @@ -779,6 +659,14 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); function GetIMPORTE_TOTALIsNull: Boolean; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); + function GetVISIBLEValue: Integer; + procedure SetVISIBLEValue(const aValue: Integer); + function GetVISIBLEIsNull: Boolean; + procedure SetVISIBLEIsNull(const aValue: Boolean); + function GetID_ARTICULOValue: Integer; + procedure SetID_ARTICULOValue(const aValue: Integer); + function GetID_ARTICULOIsNull: Boolean; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); function GetDESCUENTOIsNull: Boolean; @@ -787,10 +675,10 @@ type procedure SetIMPORTE_PORTEValue(const aValue: Currency); function GetIMPORTE_PORTEIsNull: Boolean; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); - function GetVISIBLEValue: Integer; - procedure SetVISIBLEValue(const aValue: Integer); - function GetVISIBLEIsNull: Boolean; - procedure SetVISIBLEIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); function GetREFERENCIA_PROVEEDORValue: String; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); function GetREFERENCIA_PROVEEDORIsNull: Boolean; @@ -806,10 +694,6 @@ type property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; @@ -818,12 +702,16 @@ type property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; + property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; - property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; end; @@ -849,14 +737,6 @@ type procedure SetTIPO_DETALLEValue(const aValue: String); virtual; function GetTIPO_DETALLEIsNull: Boolean; virtual; procedure SetTIPO_DETALLEIsNull(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 GetID_ARTICULOValue: Integer; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; function GetCONCEPTOValue: String; virtual; procedure SetCONCEPTOValue(const aValue: String); virtual; function GetCONCEPTOIsNull: Boolean; virtual; @@ -873,209 +753,26 @@ type procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALIsNull(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 GetIMPORTE_PORTEValue: Currency; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; function GetVISIBLEValue: Integer; virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual; function GetVISIBLEIsNull: Boolean; virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_PROVEEDORValue: String; virtual; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; - function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue; - property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; - property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; - property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; - property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; - property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; - property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; - property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; - property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; - property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IAlbaranesProveedor_Detalles_Refresh } - IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable) - ['{87A83B42-82D9-4AD1-B18C-ECF6A6278054}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetID_ALBARANValue: Integer; - procedure SetID_ALBARANValue(const aValue: Integer); - function GetID_ALBARANIsNull: Boolean; - procedure SetID_ALBARANIsNull(const aValue: Boolean); - function GetPOSICIONValue: Integer; - procedure SetPOSICIONValue(const aValue: Integer); - function GetPOSICIONIsNull: Boolean; - procedure SetPOSICIONIsNull(const aValue: Boolean); - function GetTIPO_DETALLEValue: String; - procedure SetTIPO_DETALLEValue(const aValue: String); - function GetTIPO_DETALLEIsNull: Boolean; - procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); - function GetREFERENCIAValue: String; - procedure SetREFERENCIAValue(const aValue: String); - function GetREFERENCIAIsNull: Boolean; - procedure SetREFERENCIAIsNull(const aValue: Boolean); - function GetID_ARTICULOValue: Integer; - procedure SetID_ARTICULOValue(const aValue: Integer); - function GetID_ARTICULOIsNull: Boolean; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); - function GetCONCEPTOValue: String; - procedure SetCONCEPTOValue(const aValue: String); - function GetCONCEPTOIsNull: Boolean; - procedure SetCONCEPTOIsNull(const aValue: Boolean); - function GetCANTIDADValue: Integer; - procedure SetCANTIDADValue(const aValue: Integer); - function GetCANTIDADIsNull: Boolean; - procedure SetCANTIDADIsNull(const aValue: Boolean); - function GetIMPORTE_UNIDADValue: Currency; - procedure SetIMPORTE_UNIDADValue(const aValue: Currency); - function GetIMPORTE_UNIDADIsNull: Boolean; - procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); - function GetIMPORTE_TOTALValue: Currency; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); - function GetIMPORTE_TOTALIsNull: Boolean; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); - function GetDESCUENTOValue: Float; - procedure SetDESCUENTOValue(const aValue: Float); - function GetDESCUENTOIsNull: Boolean; - procedure SetDESCUENTOIsNull(const aValue: Boolean); - function GetIMPORTE_PORTEValue: Float; - procedure SetIMPORTE_PORTEValue(const aValue: Float); - function GetIMPORTE_PORTEIsNull: Boolean; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); - function GetVISIBLEValue: Integer; - procedure SetVISIBLEValue(const aValue: Integer); - function GetVISIBLEIsNull: Boolean; - procedure SetVISIBLEIsNull(const aValue: Boolean); - function GetREFERENCIA_PROVEEDORValue: String; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); - function GetREFERENCIA_PROVEEDORIsNull: Boolean; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue; - property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; - property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; - property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; - property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; - property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; - property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; - property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; - property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; - property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - end; - - { TAlbaranesProveedor_Detalles_RefreshDataTableRules } - TAlbaranesProveedor_Detalles_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor_Detalles_Refresh) - private - 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_ALBARANValue: Integer; virtual; - procedure SetID_ALBARANValue(const aValue: Integer); virtual; - function GetID_ALBARANIsNull: Boolean; virtual; - procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual; - function GetPOSICIONValue: Integer; virtual; - procedure SetPOSICIONValue(const aValue: Integer); virtual; - function GetPOSICIONIsNull: Boolean; virtual; - procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; - function GetTIPO_DETALLEValue: String; virtual; - procedure SetTIPO_DETALLEValue(const aValue: String); virtual; - function GetTIPO_DETALLEIsNull: Boolean; virtual; - procedure SetTIPO_DETALLEIsNull(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 GetID_ARTICULOValue: Integer; virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetID_ARTICULOIsNull: Boolean; virtual; procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; - function GetCONCEPTOValue: String; virtual; - procedure SetCONCEPTOValue(const aValue: String); virtual; - function GetCONCEPTOIsNull: Boolean; virtual; - procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; - function GetCANTIDADValue: Integer; virtual; - procedure SetCANTIDADValue(const aValue: Integer); virtual; - function GetCANTIDADIsNull: Boolean; virtual; - procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_UNIDADValue: Currency; virtual; - procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; - function GetIMPORTE_UNIDADIsNull: Boolean; virtual; - procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALIsNull(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 GetIMPORTE_PORTEValue: Float; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetVISIBLEValue: Integer; virtual; - procedure SetVISIBLEValue(const aValue: Integer); virtual; - function GetVISIBLEIsNull: Boolean; virtual; - procedure SetVISIBLEIsNull(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 GetREFERENCIA_PROVEEDORValue: String; virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; @@ -1090,10 +787,6 @@ type property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; @@ -1102,469 +795,18 @@ type property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IAlbaranesProveedor_Refresh } - IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable) - ['{8594A282-C2E3-4A67-BA10-19EDF8EB2540}'] - { 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 GetID_PROVEEDORValue: Integer; - procedure SetID_PROVEEDORValue(const aValue: Integer); - function GetID_PROVEEDORIsNull: Boolean; - procedure SetID_PROVEEDORIsNull(const aValue: Boolean); - function GetNOMBREValue: String; - procedure SetNOMBREValue(const aValue: String); - function GetNOMBREIsNull: Boolean; - procedure SetNOMBREIsNull(const aValue: Boolean); - function GetFECHA_ALBARANValue: DateTime; - procedure SetFECHA_ALBARANValue(const aValue: DateTime); - function GetFECHA_ALBARANIsNull: Boolean; - procedure SetFECHA_ALBARANIsNull(const aValue: Boolean); - function GetREFERENCIAValue: String; - procedure SetREFERENCIAValue(const aValue: String); - function GetREFERENCIAIsNull: Boolean; - procedure SetREFERENCIAIsNull(const aValue: Boolean); - function GetREFERENCIA_PROVEEDORValue: String; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); - function GetREFERENCIA_PROVEEDORIsNull: Boolean; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); - function GetTIPOValue: String; - procedure SetTIPOValue(const aValue: String); - function GetTIPOIsNull: Boolean; - procedure SetTIPOIsNull(const aValue: Boolean); - function GetID_ALMACENValue: Integer; - procedure SetID_ALMACENValue(const aValue: Integer); - function GetID_ALMACENIsNull: Boolean; - procedure SetID_ALMACENIsNull(const aValue: Boolean); - function GetNOMBRE_ALMACENValue: String; - procedure SetNOMBRE_ALMACENValue(const aValue: String); - function GetNOMBRE_ALMACENIsNull: Boolean; - procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); - function GetID_PEDIDOValue: Integer; - procedure SetID_PEDIDOValue(const aValue: Integer); - function GetID_PEDIDOIsNull: Boolean; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); - function GetREF_PED_PROVEEDORValue: String; - procedure SetREF_PED_PROVEEDORValue(const aValue: String); - function GetREF_PED_PROVEEDORIsNull: Boolean; - procedure SetREF_PED_PROVEEDORIsNull(const aValue: Boolean); - function GetID_FACTURAValue: Integer; - procedure SetID_FACTURAValue(const aValue: Integer); - function GetID_FACTURAIsNull: Boolean; - procedure SetID_FACTURAIsNull(const aValue: Boolean); - function GetREF_FACTURAValue: String; - procedure SetREF_FACTURAValue(const aValue: String); - function GetREF_FACTURAIsNull: Boolean; - procedure SetREF_FACTURAIsNull(const aValue: Boolean); - function GetREF_FACTURA_PROVValue: String; - procedure SetREF_FACTURA_PROVValue(const aValue: String); - function GetREF_FACTURA_PROVIsNull: Boolean; - procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); - function GetCALLEValue: String; - procedure SetCALLEValue(const aValue: String); - function GetCALLEIsNull: Boolean; - procedure SetCALLEIsNull(const aValue: Boolean); - function GetCODIGO_POSTALValue: String; - procedure SetCODIGO_POSTALValue(const aValue: String); - function GetCODIGO_POSTALIsNull: Boolean; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); - function GetPOBLACIONValue: String; - procedure SetPOBLACIONValue(const aValue: String); - function GetPOBLACIONIsNull: Boolean; - procedure SetPOBLACIONIsNull(const aValue: Boolean); - function GetPROVINCIAValue: String; - procedure SetPROVINCIAValue(const aValue: String); - function GetPROVINCIAIsNull: Boolean; - procedure SetPROVINCIAIsNull(const aValue: Boolean); - function GetPERSONA_CONTACTOValue: String; - procedure SetPERSONA_CONTACTOValue(const aValue: String); - function GetPERSONA_CONTACTOIsNull: Boolean; - procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); - function GetTELEFONOValue: String; - procedure SetTELEFONOValue(const aValue: String); - function GetTELEFONOIsNull: Boolean; - procedure SetTELEFONOIsNull(const aValue: Boolean); - function GetIMPORTE_NETOValue: Currency; - procedure SetIMPORTE_NETOValue(const aValue: Currency); - function GetIMPORTE_NETOIsNull: Boolean; - procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); - function GetIMPORTE_PORTEValue: Currency; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); - function GetIMPORTE_PORTEIsNull: Boolean; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); - function GetDESCUENTOValue: Float; - procedure SetDESCUENTOValue(const aValue: Float); - function GetDESCUENTOIsNull: Boolean; - procedure SetDESCUENTOIsNull(const aValue: Boolean); - function GetIMPORTE_DESCUENTOValue: Currency; - procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); - function GetIMPORTE_DESCUENTOIsNull: Boolean; - procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); - function GetBASE_IMPONIBLEValue: Currency; - procedure SetBASE_IMPONIBLEValue(const aValue: Currency); - function GetBASE_IMPONIBLEIsNull: Boolean; - procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); - function GetIVAValue: Float; - procedure SetIVAValue(const aValue: Float); - function GetIVAIsNull: Boolean; - procedure SetIVAIsNull(const aValue: Boolean); - function GetIMPORTE_IVAValue: Currency; - procedure SetIMPORTE_IVAValue(const aValue: Currency); - function GetIMPORTE_IVAIsNull: Boolean; - procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); - function GetIMPORTE_TOTALValue: Currency; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); - function GetIMPORTE_TOTALIsNull: Boolean; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); - function GetOBSERVACIONESValue: IROStrings; - function GetOBSERVACIONESIsNull: Boolean; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); - function GetINCIDENCIASValue: IROStrings; - function GetINCIDENCIASIsNull: Boolean; - procedure SetINCIDENCIASIsNull(const aValue: Boolean); - function GetINCIDENCIAS_ACTIVASValue: Integer; - procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); - function GetINCIDENCIAS_ACTIVASIsNull: Boolean; - procedure SetINCIDENCIAS_ACTIVASIsNull(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 GetID_FORMA_PAGOValue: Integer; - procedure SetID_FORMA_PAGOValue(const aValue: Integer); - function GetID_FORMA_PAGOIsNull: Boolean; - procedure SetID_FORMA_PAGOIsNull(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 ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; - property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; - property FECHA_ALBARANIsNull: Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - property TIPO: String read GetTIPOValue write SetTIPOValue; - property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; - property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; - property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; - property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; - property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; - property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue; - property REF_PED_PROVEEDORIsNull: Boolean read GetREF_PED_PROVEEDORIsNull write SetREF_PED_PROVEEDORIsNull; - property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; - property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull; - property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; - property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull; - property CALLE: String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; - property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; - property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; - property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; - property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; - property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; - property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; - property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; - property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; - property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; - property IVA: Float read GetIVAValue write SetIVAValue; - property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; - property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; - property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; - property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; - property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; - property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; - property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; - 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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; - property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - end; - - { TAlbaranesProveedor_RefreshDataTableRules } - TAlbaranesProveedor_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor_Refresh) - private - f_OBSERVACIONES: IROStrings; - f_INCIDENCIAS: IROStrings; - procedure OBSERVACIONES_OnChange(Sender: TObject); - procedure INCIDENCIAS_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 GetID_PROVEEDORValue: Integer; virtual; - procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; - function GetID_PROVEEDORIsNull: Boolean; virtual; - procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetNOMBREValue: String; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - function GetNOMBREIsNull: Boolean; virtual; - procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALBARANValue: DateTime; virtual; - procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual; - function GetFECHA_ALBARANIsNull: Boolean; virtual; - procedure SetFECHA_ALBARANIsNull(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 GetREFERENCIA_PROVEEDORValue: String; virtual; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; - function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetTIPOValue: String; virtual; - procedure SetTIPOValue(const aValue: String); virtual; - function GetTIPOIsNull: Boolean; virtual; - procedure SetTIPOIsNull(const aValue: Boolean); virtual; - function GetID_ALMACENValue: Integer; virtual; - procedure SetID_ALMACENValue(const aValue: Integer); virtual; - function GetID_ALMACENIsNull: Boolean; virtual; - procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual; - function GetNOMBRE_ALMACENValue: String; virtual; - procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual; - function GetNOMBRE_ALMACENIsNull: Boolean; virtual; - procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual; - function GetID_PEDIDOValue: Integer; virtual; - procedure SetID_PEDIDOValue(const aValue: Integer); virtual; - function GetID_PEDIDOIsNull: Boolean; virtual; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetREF_PED_PROVEEDORValue: String; virtual; - procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual; - function GetREF_PED_PROVEEDORIsNull: Boolean; virtual; - procedure SetREF_PED_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetID_FACTURAValue: Integer; virtual; - procedure SetID_FACTURAValue(const aValue: Integer); virtual; - function GetID_FACTURAIsNull: Boolean; virtual; - procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; - function GetREF_FACTURAValue: String; virtual; - procedure SetREF_FACTURAValue(const aValue: String); virtual; - function GetREF_FACTURAIsNull: Boolean; virtual; - procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual; - function GetREF_FACTURA_PROVValue: String; virtual; - procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual; - function GetREF_FACTURA_PROVIsNull: Boolean; virtual; - procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual; - function GetCALLEValue: String; virtual; - procedure SetCALLEValue(const aValue: String); virtual; - function GetCALLEIsNull: Boolean; virtual; - procedure SetCALLEIsNull(const aValue: Boolean); virtual; - function GetCODIGO_POSTALValue: String; virtual; - procedure SetCODIGO_POSTALValue(const aValue: String); virtual; - function GetCODIGO_POSTALIsNull: Boolean; virtual; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; - function GetPOBLACIONValue: String; virtual; - procedure SetPOBLACIONValue(const aValue: String); virtual; - function GetPOBLACIONIsNull: Boolean; virtual; - procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; - function GetPROVINCIAValue: String; virtual; - procedure SetPROVINCIAValue(const aValue: String); virtual; - function GetPROVINCIAIsNull: Boolean; virtual; - procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; - function GetPERSONA_CONTACTOValue: String; virtual; - procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; - function GetPERSONA_CONTACTOIsNull: Boolean; virtual; - procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; - function GetTELEFONOValue: String; virtual; - procedure SetTELEFONOValue(const aValue: String); virtual; - function GetTELEFONOIsNull: Boolean; virtual; - procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_NETOValue: Currency; virtual; - procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; - function GetIMPORTE_NETOIsNull: Boolean; virtual; - procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_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 GetIMPORTE_DESCUENTOValue: Currency; virtual; - procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; - function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; - procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; - function GetBASE_IMPONIBLEValue: Currency; virtual; - procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; - function GetBASE_IMPONIBLEIsNull: Boolean; virtual; - procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; - function GetIVAValue: Float; virtual; - procedure SetIVAValue(const aValue: Float); virtual; - function GetIVAIsNull: Boolean; virtual; - procedure SetIVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_IVAValue: Currency; virtual; - procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; - function GetIMPORTE_IVAIsNull: Boolean; virtual; - procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetOBSERVACIONESValue: IROStrings; virtual; - function GetOBSERVACIONESIsNull: Boolean; virtual; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIASValue: IROStrings; virtual; - function GetINCIDENCIASIsNull: Boolean; virtual; - procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; - procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; - function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; - procedure SetINCIDENCIAS_ACTIVASIsNull(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 GetID_FORMA_PAGOValue: Integer; virtual; - procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; - function GetID_FORMA_PAGOIsNull: Boolean; virtual; - procedure SetID_FORMA_PAGOIsNull(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 ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; - property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; - property FECHA_ALBARANIsNull: Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - property TIPO: String read GetTIPOValue write SetTIPOValue; - property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; - property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; - property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; - property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; - property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; - property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue; - property REF_PED_PROVEEDORIsNull: Boolean read GetREF_PED_PROVEEDORIsNull write SetREF_PED_PROVEEDORIsNull; - property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; - property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull; - property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; - property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull; - property CALLE: String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; - property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; - property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; - property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; - property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; - property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; - property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; - property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; - property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; - property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; - property IVA: Float read GetIVAValue write SetIVAValue; - property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; - property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; - property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; - property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; - property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; - property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; - property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; - 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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; - property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -2484,48 +1726,6 @@ begin DataTable.Fields[idx_AlbaranesProveedor_DetallesTIPO_DETALLE].AsVariant := Null; end; -function TAlbaranesProveedor_DetallesDataTableRules.GetREFERENCIAValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsString; -end; - -procedure TAlbaranesProveedor_DetallesDataTableRules.SetREFERENCIAValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsString := aValue; -end; - -function TAlbaranesProveedor_DetallesDataTableRules.GetREFERENCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].IsNull; -end; - -procedure TAlbaranesProveedor_DetallesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsVariant := Null; -end; - -function TAlbaranesProveedor_DetallesDataTableRules.GetID_ARTICULOValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger; -end; - -procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger := aValue; -end; - -function TAlbaranesProveedor_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].IsNull; -end; - -procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsVariant := Null; -end; - function TAlbaranesProveedor_DetallesDataTableRules.GetCONCEPTOValue: String; begin result := DataTable.Fields[idx_AlbaranesProveedor_DetallesCONCEPTO].AsString; @@ -2610,6 +1810,48 @@ begin DataTable.Fields[idx_AlbaranesProveedor_DetallesIMPORTE_TOTAL].AsVariant := Null; end; +function TAlbaranesProveedor_DetallesDataTableRules.GetVISIBLEValue: Integer; +begin + result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsInteger; +end; + +procedure TAlbaranesProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer); +begin + DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsInteger := aValue; +end; + +function TAlbaranesProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean; +begin + result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].IsNull; +end; + +procedure TAlbaranesProveedor_DetallesDataTableRules.SetVISIBLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsVariant := Null; +end; + +function TAlbaranesProveedor_DetallesDataTableRules.GetID_ARTICULOValue: Integer; +begin + result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger; +end; + +procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer); +begin + DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger := aValue; +end; + +function TAlbaranesProveedor_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean; +begin + result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].IsNull; +end; + +procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsVariant := Null; +end; + function TAlbaranesProveedor_DetallesDataTableRules.GetDESCUENTOValue: Float; begin result := DataTable.Fields[idx_AlbaranesProveedor_DetallesDESCUENTO].AsFloat; @@ -2652,25 +1894,25 @@ begin DataTable.Fields[idx_AlbaranesProveedor_DetallesIMPORTE_PORTE].AsVariant := Null; end; -function TAlbaranesProveedor_DetallesDataTableRules.GetVISIBLEValue: Integer; +function TAlbaranesProveedor_DetallesDataTableRules.GetREFERENCIAValue: String; begin - result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsInteger; + result := DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsString; end; -procedure TAlbaranesProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer); +procedure TAlbaranesProveedor_DetallesDataTableRules.SetREFERENCIAValue(const aValue: String); begin - DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsInteger := aValue; + DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsString := aValue; end; -function TAlbaranesProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean; +function TAlbaranesProveedor_DetallesDataTableRules.GetREFERENCIAIsNull: boolean; begin - result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].IsNull; + result := DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].IsNull; end; -procedure TAlbaranesProveedor_DetallesDataTableRules.SetVISIBLEIsNull(const aValue: Boolean); +procedure TAlbaranesProveedor_DetallesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsVariant := Null; + DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsVariant := Null; end; function TAlbaranesProveedor_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String; @@ -2695,1097 +1937,9 @@ begin end; -{ TAlbaranesProveedor_Detalles_RefreshDataTableRules } -constructor TAlbaranesProveedor_Detalles_RefreshDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TAlbaranesProveedor_Detalles_RefreshDataTableRules.Destroy; -begin - inherited; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID].AsInteger; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID].AsInteger := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetID_ALBARANValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ALBARAN].AsInteger; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetID_ALBARANValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ALBARAN].AsInteger := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetID_ALBARANIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ALBARAN].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetID_ALBARANIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ALBARAN].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetPOSICIONValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshPOSICION].AsInteger; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetPOSICIONValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshPOSICION].AsInteger := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetPOSICIONIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshPOSICION].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetPOSICIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshPOSICION].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetTIPO_DETALLEValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE].AsString; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetTIPO_DETALLEValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE].AsString := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetTIPO_DETALLEIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetREFERENCIAValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA].AsString; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA].AsString := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetREFERENCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetID_ARTICULOValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ARTICULO].AsInteger; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetID_ARTICULOValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ARTICULO].AsInteger := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetID_ARTICULOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ARTICULO].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ARTICULO].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetCONCEPTOValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCONCEPTO].AsString; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetCONCEPTOValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCONCEPTO].AsString := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetCONCEPTOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCONCEPTO].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCONCEPTO].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetCANTIDADValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCANTIDAD].AsInteger; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetCANTIDADValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCANTIDAD].AsInteger := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetCANTIDADIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCANTIDAD].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetCANTIDADIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCANTIDAD].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_UNIDADValue: Currency; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD].AsCurrency; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Currency); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD].AsCurrency := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_UNIDADIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL].AsCurrency; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL].AsCurrency := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_TOTALIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetDESCUENTOValue: Float; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshDESCUENTO].AsFloat; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetDESCUENTOValue(const aValue: Float); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshDESCUENTO].AsFloat := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetDESCUENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshDESCUENTO].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshDESCUENTO].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_PORTEValue: Float; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE].AsFloat; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_PORTEValue(const aValue: Float); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE].AsFloat := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_PORTEIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetVISIBLEValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshVISIBLE].AsInteger; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetVISIBLEValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshVISIBLE].AsInteger := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetVISIBLEIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshVISIBLE].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetVISIBLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshVISIBLE].AsVariant := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetREFERENCIA_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR].AsString; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR].AsString := aValue; -end; - -function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR].IsNull; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR].AsVariant := Null; -end; - - -{ TAlbaranesProveedor_RefreshDataTableRules } -constructor TAlbaranesProveedor_RefreshDataTableRules.Create(aDataTable: TDADataTable); -var - StrList: TStringList; -begin - inherited; - - StrList := TStringList.Create; - StrList.OnChange := OBSERVACIONES_OnChange; - f_OBSERVACIONES := NewROStrings(StrList,True); - - StrList := TStringList.Create; - StrList.OnChange := INCIDENCIAS_OnChange; - f_INCIDENCIAS := NewROStrings(StrList,True); -end; - -destructor TAlbaranesProveedor_RefreshDataTableRules.Destroy; -begin - inherited; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.OBSERVACIONES_OnChange(Sender: TObject); -begin - if DataTable.Editing then DataTable.Fields[idx_AlbaranesProveedor_RefreshOBSERVACIONES].AsVariant := TStringList(Sender).Text; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.INCIDENCIAS_OnChange(Sender: TObject); -begin - if DataTable.Editing then DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS].AsVariant := TStringList(Sender).Text; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID].AsInteger; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshID].AsInteger := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshID].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_EMPRESAValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_EMPRESA].AsInteger; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_EMPRESA].AsInteger := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_EMPRESAIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_EMPRESA].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_EMPRESA].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_PROVEEDORValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PROVEEDOR].AsInteger; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_PROVEEDORValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PROVEEDOR].AsInteger := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PROVEEDOR].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PROVEEDOR].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetNOMBREValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetNOMBREValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetNOMBREIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_ALBARANValue: DateTime; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALBARAN].AsDateTime; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_ALBARANValue(const aValue: DateTime); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALBARAN].AsDateTime := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_ALBARANIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALBARAN].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_ALBARANIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALBARAN].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIAValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIA_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetTIPOValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetTIPOValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetTIPOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetTIPOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_ALMACENValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_ALMACEN].AsInteger; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_ALMACENValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_ALMACEN].AsInteger := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_ALMACENIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_ALMACEN].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_ALMACENIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_ALMACEN].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetNOMBRE_ALMACENValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetNOMBRE_ALMACENValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetNOMBRE_ALMACENIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_PEDIDOValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PEDIDO].AsInteger; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_PEDIDOValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PEDIDO].AsInteger := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_PEDIDOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PEDIDO].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PEDIDO].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetREF_PED_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_PED_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetREF_PED_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_PED_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_FACTURAValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].AsInteger; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_FACTURAValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].AsInteger := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_FACTURAIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURAValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURAValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURAIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURA_PROVValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURA_PROVValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURA_PROVIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURA_PROVIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetCALLEValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshCALLE].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetCALLEValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshCALLE].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetCALLEIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshCALLE].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetCALLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshCALLE].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetCODIGO_POSTALValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshCODIGO_POSTAL].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetCODIGO_POSTALValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshCODIGO_POSTAL].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetCODIGO_POSTALIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshCODIGO_POSTAL].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshCODIGO_POSTAL].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetPOBLACIONValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPOBLACION].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetPOBLACIONValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshPOBLACION].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetPOBLACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPOBLACION].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshPOBLACION].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetPROVINCIAValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPROVINCIA].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetPROVINCIAValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshPROVINCIA].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetPROVINCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPROVINCIA].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshPROVINCIA].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetPERSONA_CONTACTOValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetPERSONA_CONTACTOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetTELEFONOValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTELEFONO].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetTELEFONOValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshTELEFONO].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetTELEFONOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTELEFONO].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetTELEFONOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshTELEFONO].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_NETOValue: Currency; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_NETO].AsCurrency; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_NETO].AsCurrency := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_NETOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_NETO].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_NETO].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_PORTEValue: Currency; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_PORTE].AsCurrency; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_PORTE].AsCurrency := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_PORTEIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_PORTE].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_PORTE].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetDESCUENTOValue: Float; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshDESCUENTO].AsFloat; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetDESCUENTOValue(const aValue: Float); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshDESCUENTO].AsFloat := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetDESCUENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshDESCUENTO].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshDESCUENTO].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_DESCUENTOValue: Currency; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO].AsCurrency; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO].AsCurrency := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetBASE_IMPONIBLEValue: Currency; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE].AsCurrency; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE].AsCurrency := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetBASE_IMPONIBLEIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIVAValue: Float; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIVA].AsFloat; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIVAValue(const aValue: Float); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshIVA].AsFloat := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIVAIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIVA].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIVAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshIVA].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_IVAValue: Currency; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_IVA].AsCurrency; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_IVAValue(const aValue: Currency); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_IVA].AsCurrency := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_IVAIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_IVA].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_IVA].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL].AsCurrency; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL].AsCurrency := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_TOTALIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetOBSERVACIONESValue: IROStrings; -begin - result := f_OBSERVACIONES; - result.Text := DataTable.Fields[idx_AlbaranesProveedor_RefreshOBSERVACIONES].AsString; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetOBSERVACIONESIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshOBSERVACIONES].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshOBSERVACIONES].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetINCIDENCIASValue: IROStrings; -begin - result := f_INCIDENCIAS; - result.Text := DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS].AsString; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetINCIDENCIASIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetINCIDENCIASIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetINCIDENCIAS_ACTIVASValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS].AsInteger; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS].AsInteger := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetINCIDENCIAS_ACTIVASIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALTA].AsDateTime; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALTA].AsDateTime := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_ALTAIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALTA].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALTA].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION].AsDateTime; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION].AsDateTime := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetUSUARIOValue: String; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshUSUARIO].AsString; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetUSUARIOValue(const aValue: String); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshUSUARIO].AsString := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetUSUARIOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshUSUARIO].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshUSUARIO].AsVariant := Null; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_FORMA_PAGOValue: Integer; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FORMA_PAGO].AsInteger; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer); -begin - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FORMA_PAGO].AsInteger := aValue; -end; - -function TAlbaranesProveedor_RefreshDataTableRules.GetID_FORMA_PAGOIsNull: boolean; -begin - result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FORMA_PAGO].IsNull; -end; - -procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FORMA_PAGO].AsVariant := Null; -end; - - initialization RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules); RegisterDataTableRules(RID_AlbaranesProveedor, TAlbaranesProveedorDataTableRules); RegisterDataTableRules(RID_AlbaranesProveedor_Detalles, TAlbaranesProveedor_DetallesDataTableRules); - RegisterDataTableRules(RID_AlbaranesProveedor_Detalles_Refresh, TAlbaranesProveedor_Detalles_RefreshDataTableRules); - RegisterDataTableRules(RID_AlbaranesProveedor_Refresh, TAlbaranesProveedor_RefreshDataTableRules); end. diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas index 40a26ac7..678de95e 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas @@ -9,16 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarReferenciaDelta = '{042E1DD6-333C-4221-92DE-CF44E5FA07C8}'; - RID_AlbaranesProveedorDelta = '{F8BF3DA6-0074-45FF-A315-59E95ADC561A}'; - RID_AlbaranesProveedor_DetallesDelta = '{B859820F-1539-4091-AA39-6F2D66061FA5}'; - RID_AlbaranesProveedor_Detalles_RefreshDelta = '{07011792-52F0-499F-BB42-D921B0DD35B2}'; - RID_AlbaranesProveedor_RefreshDelta = '{6A084FC0-F666-4E34-8E46-ED49C23E295A}'; + RID_DarReferenciaDelta = '{AD9EC61F-92A8-4757-A729-430A9C0F1014}'; + RID_AlbaranesProveedorDelta = '{6120285E-A519-4B85-96C3-9568FD81A17F}'; + RID_AlbaranesProveedor_DetallesDelta = '{CEDDEB44-9AE4-468F-A241-3235B7D100D6}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{042E1DD6-333C-4221-92DE-CF44E5FA07C8}'] + ['{AD9EC61F-92A8-4757-A729-430A9C0F1014}'] { Property getters and setters } function GetOldVALORValue : String; @@ -52,7 +50,7 @@ type { IAlbaranesProveedorDelta } IAlbaranesProveedorDelta = interface(IAlbaranesProveedor) - ['{F8BF3DA6-0074-45FF-A315-59E95ADC561A}'] + ['{6120285E-A519-4B85-96C3-9568FD81A17F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -508,21 +506,21 @@ type { IAlbaranesProveedor_DetallesDelta } IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles) - ['{B859820F-1539-4091-AA39-6F2D66061FA5}'] + ['{CEDDEB44-9AE4-468F-A241-3235B7D100D6}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALBARANValue : Integer; function GetOldPOSICIONValue : Integer; function GetOldTIPO_DETALLEValue : String; - function GetOldREFERENCIAValue : String; - function GetOldID_ARTICULOValue : Integer; function GetOldCONCEPTOValue : String; function GetOldCANTIDADValue : Integer; function GetOldIMPORTE_UNIDADValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; + function GetOldVISIBLEValue : Integer; + function GetOldID_ARTICULOValue : Integer; function GetOldDESCUENTOValue : Float; function GetOldIMPORTE_PORTEValue : Currency; - function GetOldVISIBLEValue : Integer; + function GetOldREFERENCIAValue : String; function GetOldREFERENCIA_PROVEEDORValue : String; { Properties } @@ -530,15 +528,15 @@ type property OldID_ALBARAN : Integer read GetOldID_ALBARANValue; property OldPOSICION : Integer read GetOldPOSICIONValue; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldVISIBLE : Integer read GetOldVISIBLEValue; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldVISIBLE : Integer read GetOldVISIBLEValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; end; @@ -571,18 +569,6 @@ type function GetOldTIPO_DETALLEIsNull: Boolean; virtual; procedure SetTIPO_DETALLEValue(const aValue: String); virtual; procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - function GetOldREFERENCIAValue: String; virtual; - function GetOldREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetID_ARTICULOValue: Integer; virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - function GetOldID_ARTICULOValue: Integer; virtual; - function GetOldID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; function GetCONCEPTOValue: String; virtual; function GetCONCEPTOIsNull: Boolean; virtual; function GetOldCONCEPTOValue: String; virtual; @@ -607,214 +593,36 @@ type function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - function GetOldDESCUENTOValue: Float; virtual; - function GetOldDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - function GetOldIMPORTE_PORTEValue: Currency; virtual; - function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; function GetVISIBLEValue: Integer; virtual; function GetVISIBLEIsNull: Boolean; virtual; function GetOldVISIBLEValue: Integer; virtual; function GetOldVISIBLEIsNull: Boolean; virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_PROVEEDORValue: String; virtual; - function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - function GetOldREFERENCIA_PROVEEDORValue: String; virtual; - function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; - property OldID : Integer read GetOldIDValue; - property OldIDIsNull : Boolean read GetOldIDIsNull; - property ID_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue; - property ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; - property OldID_ALBARAN : Integer read GetOldID_ALBARANValue; - property OldID_ALBARANIsNull : Boolean read GetOldID_ALBARANIsNull; - property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; - property POSICIONIsNull : Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; - property OldPOSICION : Integer read GetOldPOSICIONValue; - property OldPOSICIONIsNull : Boolean read GetOldPOSICIONIsNull; - property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; - property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; - property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull; - property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; - property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; - property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property OldCONCEPTO : String read GetOldCONCEPTOValue; - property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; - property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; - property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; - property OldCANTIDAD : Integer read GetOldCANTIDADValue; - property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; - property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; - property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; - property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; - property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull; - property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; - property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; - property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; - property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue; - property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property OldVISIBLE : Integer read GetOldVISIBLEValue; - property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; - property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; - property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IAlbaranesProveedor_Detalles_RefreshDelta } - IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh) - ['{07011792-52F0-499F-BB42-D921B0DD35B2}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldID_ALBARANValue : Integer; - function GetOldPOSICIONValue : Integer; - function GetOldTIPO_DETALLEValue : String; - function GetOldREFERENCIAValue : String; - function GetOldID_ARTICULOValue : Integer; - function GetOldCONCEPTOValue : String; - function GetOldCANTIDADValue : Integer; - function GetOldIMPORTE_UNIDADValue : Currency; - function GetOldIMPORTE_TOTALValue : Currency; - function GetOldDESCUENTOValue : Float; - function GetOldIMPORTE_PORTEValue : Float; - function GetOldVISIBLEValue : Integer; - function GetOldREFERENCIA_PROVEEDORValue : String; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldID_ALBARAN : Integer read GetOldID_ALBARANValue; - property OldPOSICION : Integer read GetOldPOSICIONValue; - property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldCONCEPTO : String read GetOldCONCEPTOValue; - property OldCANTIDAD : Integer read GetOldCANTIDADValue; - property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue; - property OldVISIBLE : Integer read GetOldVISIBLEValue; - property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; - end; - - { TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules } - TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranesProveedor_Detalles_Refresh, IAlbaranesProveedor_Detalles_RefreshDelta) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetIDIsNull: Boolean; virtual; - function GetOldIDValue: Integer; virtual; - function GetOldIDIsNull: Boolean; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_ALBARANValue: Integer; virtual; - function GetID_ALBARANIsNull: Boolean; virtual; - function GetOldID_ALBARANValue: Integer; virtual; - function GetOldID_ALBARANIsNull: Boolean; virtual; - procedure SetID_ALBARANValue(const aValue: Integer); virtual; - procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual; - function GetPOSICIONValue: Integer; virtual; - function GetPOSICIONIsNull: Boolean; virtual; - function GetOldPOSICIONValue: Integer; virtual; - function GetOldPOSICIONIsNull: Boolean; virtual; - procedure SetPOSICIONValue(const aValue: Integer); virtual; - procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; - function GetTIPO_DETALLEValue: String; virtual; - function GetTIPO_DETALLEIsNull: Boolean; virtual; - function GetOldTIPO_DETALLEValue: String; virtual; - function GetOldTIPO_DETALLEIsNull: Boolean; virtual; - procedure SetTIPO_DETALLEValue(const aValue: String); virtual; - procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - function GetOldREFERENCIAValue: String; virtual; - function GetOldREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOIsNull: Boolean; virtual; function GetOldID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOIsNull: Boolean; virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; - function GetCONCEPTOValue: String; virtual; - function GetCONCEPTOIsNull: Boolean; virtual; - function GetOldCONCEPTOValue: String; virtual; - function GetOldCONCEPTOIsNull: Boolean; virtual; - procedure SetCONCEPTOValue(const aValue: String); virtual; - procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; - function GetCANTIDADValue: Integer; virtual; - function GetCANTIDADIsNull: Boolean; virtual; - function GetOldCANTIDADValue: Integer; virtual; - function GetOldCANTIDADIsNull: Boolean; virtual; - procedure SetCANTIDADValue(const aValue: Integer); virtual; - procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_UNIDADValue: Currency; virtual; - function GetIMPORTE_UNIDADIsNull: Boolean; virtual; - function GetOldIMPORTE_UNIDADValue: Currency; virtual; - function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual; - procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; - procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - function GetOldIMPORTE_TOTALValue: Currency; virtual; - function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; function GetDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOValue: Float; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Float; virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual; - function GetOldIMPORTE_PORTEValue: Float; virtual; + function GetOldIMPORTE_PORTEValue: Currency; virtual; function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetVISIBLEValue: Integer; virtual; - function GetVISIBLEIsNull: Boolean; virtual; - function GetOldVISIBLEValue: Integer; virtual; - function GetOldVISIBLEIsNull: Boolean; virtual; - procedure SetVISIBLEValue(const aValue: Integer); virtual; - procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual; function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; function GetOldREFERENCIA_PROVEEDORValue: String; virtual; @@ -839,14 +647,6 @@ type property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull; - property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; - property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property OldCONCEPTO : String read GetOldCONCEPTOValue; @@ -863,354 +663,22 @@ type property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; - property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; - property IMPORTE_PORTE : Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue; - property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property OldVISIBLE : Integer read GetOldVISIBLEValue; property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; - property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; - property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IAlbaranesProveedor_RefreshDelta } - IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh) - ['{6A084FC0-F666-4E34-8E46-ED49C23E295A}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldID_EMPRESAValue : Integer; - function GetOldID_PROVEEDORValue : Integer; - function GetOldNOMBREValue : String; - function GetOldFECHA_ALBARANValue : DateTime; - function GetOldREFERENCIAValue : String; - function GetOldREFERENCIA_PROVEEDORValue : String; - function GetOldTIPOValue : String; - function GetOldID_ALMACENValue : Integer; - function GetOldNOMBRE_ALMACENValue : String; - function GetOldID_PEDIDOValue : Integer; - function GetOldREF_PED_PROVEEDORValue : String; - function GetOldID_FACTURAValue : Integer; - function GetOldREF_FACTURAValue : String; - function GetOldREF_FACTURA_PROVValue : String; - function GetOldCALLEValue : String; - function GetOldCODIGO_POSTALValue : String; - function GetOldPOBLACIONValue : String; - function GetOldPROVINCIAValue : String; - function GetOldPERSONA_CONTACTOValue : String; - function GetOldTELEFONOValue : String; - function GetOldIMPORTE_NETOValue : Currency; - function GetOldIMPORTE_PORTEValue : Currency; - function GetOldDESCUENTOValue : Float; - function GetOldIMPORTE_DESCUENTOValue : Currency; - function GetOldBASE_IMPONIBLEValue : Currency; - function GetOldIVAValue : Float; - function GetOldIMPORTE_IVAValue : Currency; - function GetOldIMPORTE_TOTALValue : Currency; - function GetOldOBSERVACIONESValue : IROStrings; - function GetOldINCIDENCIASValue : IROStrings; - function GetOldINCIDENCIAS_ACTIVASValue : Integer; - function GetOldFECHA_ALTAValue : DateTime; - function GetOldFECHA_MODIFICACIONValue : DateTime; - function GetOldUSUARIOValue : String; - function GetOldID_FORMA_PAGOValue : Integer; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; - property OldTIPO : String read GetOldTIPOValue; - property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; - property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; - property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; - property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue; - property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property OldREF_FACTURA : String read GetOldREF_FACTURAValue; - property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue; - property OldCALLE : String read GetOldCALLEValue; - property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; - property OldPOBLACION : String read GetOldPOBLACIONValue; - property OldPROVINCIA : String read GetOldPROVINCIAValue; - property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; - property OldTELEFONO : String read GetOldTELEFONOValue; - property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; + property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; + property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; - property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; - property OldIVA : Float read GetOldIVAValue; - property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; - property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; - property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldUSUARIO : String read GetOldUSUARIOValue; - property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; - end; - - { TAlbaranesProveedor_RefreshBusinessProcessorRules } - TAlbaranesProveedor_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranesProveedor_Refresh, IAlbaranesProveedor_RefreshDelta) - private - f_OBSERVACIONES: IROStrings; - f_INCIDENCIAS: IROStrings; - procedure OBSERVACIONES_OnChange(Sender: TObject); - procedure INCIDENCIAS_OnChange(Sender: TObject); - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetIDIsNull: Boolean; virtual; - function GetOldIDValue: Integer; virtual; - function GetOldIDIsNull: Boolean; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_EMPRESAValue: Integer; virtual; - function GetID_EMPRESAIsNull: Boolean; virtual; - function GetOldID_EMPRESAValue: Integer; virtual; - function GetOldID_EMPRESAIsNull: Boolean; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; - function GetID_PROVEEDORValue: Integer; virtual; - function GetID_PROVEEDORIsNull: Boolean; virtual; - function GetOldID_PROVEEDORValue: Integer; virtual; - function GetOldID_PROVEEDORIsNull: Boolean; virtual; - procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; - procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetNOMBREValue: String; virtual; - function GetNOMBREIsNull: Boolean; virtual; - function GetOldNOMBREValue: String; virtual; - function GetOldNOMBREIsNull: Boolean; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALBARANValue: DateTime; virtual; - function GetFECHA_ALBARANIsNull: Boolean; virtual; - function GetOldFECHA_ALBARANValue: DateTime; virtual; - function GetOldFECHA_ALBARANIsNull: Boolean; virtual; - procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual; - procedure SetFECHA_ALBARANIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - function GetOldREFERENCIAValue: String; virtual; - function GetOldREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_PROVEEDORValue: String; virtual; - function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - function GetOldREFERENCIA_PROVEEDORValue: String; virtual; - function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetTIPOValue: String; virtual; - function GetTIPOIsNull: Boolean; virtual; - function GetOldTIPOValue: String; virtual; - function GetOldTIPOIsNull: Boolean; virtual; - procedure SetTIPOValue(const aValue: String); virtual; - procedure SetTIPOIsNull(const aValue: Boolean); virtual; - function GetID_ALMACENValue: Integer; virtual; - function GetID_ALMACENIsNull: Boolean; virtual; - function GetOldID_ALMACENValue: Integer; virtual; - function GetOldID_ALMACENIsNull: Boolean; virtual; - procedure SetID_ALMACENValue(const aValue: Integer); virtual; - procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual; - function GetNOMBRE_ALMACENValue: String; virtual; - function GetNOMBRE_ALMACENIsNull: Boolean; virtual; - function GetOldNOMBRE_ALMACENValue: String; virtual; - function GetOldNOMBRE_ALMACENIsNull: Boolean; virtual; - procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual; - procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual; - function GetID_PEDIDOValue: Integer; virtual; - function GetID_PEDIDOIsNull: Boolean; virtual; - function GetOldID_PEDIDOValue: Integer; virtual; - function GetOldID_PEDIDOIsNull: Boolean; virtual; - procedure SetID_PEDIDOValue(const aValue: Integer); virtual; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetREF_PED_PROVEEDORValue: String; virtual; - function GetREF_PED_PROVEEDORIsNull: Boolean; virtual; - function GetOldREF_PED_PROVEEDORValue: String; virtual; - function GetOldREF_PED_PROVEEDORIsNull: Boolean; virtual; - procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual; - procedure SetREF_PED_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetID_FACTURAValue: Integer; virtual; - function GetID_FACTURAIsNull: Boolean; virtual; - function GetOldID_FACTURAValue: Integer; virtual; - function GetOldID_FACTURAIsNull: Boolean; virtual; - procedure SetID_FACTURAValue(const aValue: Integer); virtual; - procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; - function GetREF_FACTURAValue: String; virtual; - function GetREF_FACTURAIsNull: Boolean; virtual; - function GetOldREF_FACTURAValue: String; virtual; - function GetOldREF_FACTURAIsNull: Boolean; virtual; - procedure SetREF_FACTURAValue(const aValue: String); virtual; - procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual; - function GetREF_FACTURA_PROVValue: String; virtual; - function GetREF_FACTURA_PROVIsNull: Boolean; virtual; - function GetOldREF_FACTURA_PROVValue: String; virtual; - function GetOldREF_FACTURA_PROVIsNull: Boolean; virtual; - procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual; - procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual; - function GetCALLEValue: String; virtual; - function GetCALLEIsNull: Boolean; virtual; - function GetOldCALLEValue: String; virtual; - function GetOldCALLEIsNull: Boolean; virtual; - procedure SetCALLEValue(const aValue: String); virtual; - procedure SetCALLEIsNull(const aValue: Boolean); virtual; - function GetCODIGO_POSTALValue: String; virtual; - function GetCODIGO_POSTALIsNull: Boolean; virtual; - function GetOldCODIGO_POSTALValue: String; virtual; - function GetOldCODIGO_POSTALIsNull: Boolean; virtual; - procedure SetCODIGO_POSTALValue(const aValue: String); virtual; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; - function GetPOBLACIONValue: String; virtual; - function GetPOBLACIONIsNull: Boolean; virtual; - function GetOldPOBLACIONValue: String; virtual; - function GetOldPOBLACIONIsNull: Boolean; virtual; - procedure SetPOBLACIONValue(const aValue: String); virtual; - procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; - function GetPROVINCIAValue: String; virtual; - function GetPROVINCIAIsNull: Boolean; virtual; - function GetOldPROVINCIAValue: String; virtual; - function GetOldPROVINCIAIsNull: Boolean; virtual; - procedure SetPROVINCIAValue(const aValue: String); virtual; - procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; - function GetPERSONA_CONTACTOValue: String; virtual; - function GetPERSONA_CONTACTOIsNull: Boolean; virtual; - function GetOldPERSONA_CONTACTOValue: String; virtual; - function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; - procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; - procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; - function GetTELEFONOValue: String; virtual; - function GetTELEFONOIsNull: Boolean; virtual; - function GetOldTELEFONOValue: String; virtual; - function GetOldTELEFONOIsNull: Boolean; virtual; - procedure SetTELEFONOValue(const aValue: String); virtual; - procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_NETOValue: Currency; virtual; - function GetIMPORTE_NETOIsNull: Boolean; virtual; - function GetOldIMPORTE_NETOValue: Currency; virtual; - function GetOldIMPORTE_NETOIsNull: Boolean; virtual; - procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; - procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - function GetOldIMPORTE_PORTEValue: Currency; virtual; - function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - function GetOldDESCUENTOValue: Float; virtual; - function GetOldDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_DESCUENTOValue: Currency; virtual; - function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; - function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; - function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual; - procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; - procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; - function GetBASE_IMPONIBLEValue: Currency; virtual; - function GetBASE_IMPONIBLEIsNull: Boolean; virtual; - function GetOldBASE_IMPONIBLEValue: Currency; virtual; - function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual; - procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; - procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; - function GetIVAValue: Float; virtual; - function GetIVAIsNull: Boolean; virtual; - function GetOldIVAValue: Float; virtual; - function GetOldIVAIsNull: Boolean; virtual; - procedure SetIVAValue(const aValue: Float); virtual; - procedure SetIVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_IVAValue: Currency; virtual; - function GetIMPORTE_IVAIsNull: Boolean; virtual; - function GetOldIMPORTE_IVAValue: Currency; virtual; - function GetOldIMPORTE_IVAIsNull: Boolean; virtual; - procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; - procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - function GetOldIMPORTE_TOTALValue: Currency; virtual; - function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetOBSERVACIONESValue: IROStrings; virtual; - function GetOBSERVACIONESIsNull: Boolean; virtual; - function GetOldOBSERVACIONESValue: IROStrings; virtual; - function GetOldOBSERVACIONESIsNull: Boolean; virtual; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIASValue: IROStrings; virtual; - function GetINCIDENCIASIsNull: Boolean; virtual; - function GetOldINCIDENCIASValue: IROStrings; virtual; - function GetOldINCIDENCIASIsNull: Boolean; virtual; - procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; - function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; - function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual; - function GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; - procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; - procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - function GetFECHA_ALTAIsNull: Boolean; virtual; - function GetOldFECHA_ALTAValue: DateTime; virtual; - function GetOldFECHA_ALTAIsNull: Boolean; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; - function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; - function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; - function GetUSUARIOValue: String; virtual; - function GetUSUARIOIsNull: Boolean; virtual; - function GetOldUSUARIOValue: String; virtual; - function GetOldUSUARIOIsNull: Boolean; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; - procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; - function GetID_FORMA_PAGOValue: Integer; virtual; - function GetID_FORMA_PAGOIsNull: Boolean; virtual; - function GetOldID_FORMA_PAGOValue: Integer; virtual; - function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; - procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; - procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; - property OldID : Integer read GetOldIDValue; - property OldIDIsNull : Boolean read GetOldIDIsNull; - property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; - property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; - property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; - property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; - property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; - property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; - property FECHA_ALBARAN : DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; - property FECHA_ALBARANIsNull : Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull; - property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; - property OldFECHA_ALBARANIsNull : Boolean read GetOldFECHA_ALBARANIsNull; + property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; + property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; @@ -1219,122 +687,6 @@ type property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; - property TIPO : String read GetTIPOValue write SetTIPOValue; - property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull; - property OldTIPO : String read GetOldTIPOValue; - property OldTIPOIsNull : Boolean read GetOldTIPOIsNull; - property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue; - property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; - property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; - property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull; - property NOMBRE_ALMACEN : String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; - property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; - property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; - property OldNOMBRE_ALMACENIsNull : Boolean read GetOldNOMBRE_ALMACENIsNull; - property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; - property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; - property REF_PED_PROVEEDOR : String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue; - property REF_PED_PROVEEDORIsNull : Boolean read GetREF_PED_PROVEEDORIsNull write SetREF_PED_PROVEEDORIsNull; - property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue; - property OldREF_PED_PROVEEDORIsNull : Boolean read GetOldREF_PED_PROVEEDORIsNull; - property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; - property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; - property OldID_FACTURA : Integer read GetOldID_FACTURAValue; - property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull; - property REF_FACTURA : String read GetREF_FACTURAValue write SetREF_FACTURAValue; - property REF_FACTURAIsNull : Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull; - property OldREF_FACTURA : String read GetOldREF_FACTURAValue; - property OldREF_FACTURAIsNull : Boolean read GetOldREF_FACTURAIsNull; - property REF_FACTURA_PROV : String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue; - property REF_FACTURA_PROVIsNull : Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull; - property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue; - property OldREF_FACTURA_PROVIsNull : Boolean read GetOldREF_FACTURA_PROVIsNull; - property CALLE : String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; - property OldCALLE : String read GetOldCALLEValue; - property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; - property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; - property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; - property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property OldPOBLACION : String read GetOldPOBLACIONValue; - property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; - property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property OldPROVINCIA : String read GetOldPROVINCIAValue; - property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; - property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; - property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; - property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; - property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; - property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue; - property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; - property OldTELEFONO : String read GetOldTELEFONOValue; - property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull; - property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; - property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; - property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; - property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull; - property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; - property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; - property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; - property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; - property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; - property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull; - property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; - property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; - property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; - property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull; - property IVA : Float read GetIVAValue write SetIVAValue; - property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull; - property OldIVA : Float read GetOldIVAValue; - property OldIVAIsNull : Boolean read GetOldIVAIsNull; - property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; - property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; - property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; - property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull; - property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; - property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue; - property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; - property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull; - property INCIDENCIAS : IROStrings read GetINCIDENCIASValue; - property INCIDENCIASIsNull : Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; - property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; - property OldINCIDENCIASIsNull : Boolean read GetOldINCIDENCIASIsNull; - property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; - property INCIDENCIAS_ACTIVASIsNull : Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; - property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; - property OldINCIDENCIAS_ACTIVASIsNull : Boolean read GetOldINCIDENCIAS_ACTIVASIsNull; - property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; - property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; - property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - property OldUSUARIO : String read GetOldUSUARIOValue; - property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; - property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; - property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; - property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -2667,68 +2019,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesTIPO_DETALLE] := Null; end; -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]; -end; - -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]); -end; - -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]; -end; - -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]); -end; - -procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA] := aValue; -end; - -procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA] := Null; -end; - -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]; -end; - -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]); -end; - -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]; -end; - -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]); -end; - -procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO] := aValue; -end; - -procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO] := Null; -end; - function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetCONCEPTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCONCEPTO]; @@ -2853,6 +2143,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesIMPORTE_TOTAL] := Null; end; +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]; +end; + +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVISIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]); +end; + +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]; +end; + +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]); +end; + +procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := aValue; +end; + +procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := Null; +end; + +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]; +end; + +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]); +end; + +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]; +end; + +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]); +end; + +procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO] := aValue; +end; + +procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO] := Null; +end; + function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesDESCUENTO]; @@ -2915,35 +2267,35 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesIMPORTE_PORTE] := Null; end; -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer; +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetREFERENCIAValue: String; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]; end; -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVISIBLEIsNull: Boolean; +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]); end; -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer; +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]; end; -function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean; +function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]); end; -procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer); +procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA] := aValue; end; -procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean); +procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA] := Null; end; function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; @@ -2978,1599 +2330,9 @@ begin end; -{ TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules } -constructor TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetID_ALBARANValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetID_ALBARANIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldID_ALBARANValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldID_ALBARANIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetID_ALBARANValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetID_ALBARANIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetPOSICIONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetPOSICIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldPOSICIONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetTIPO_DETALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldTIPO_DETALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetCONCEPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldCONCEPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetCANTIDADValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetCANTIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldCANTIDADValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_PORTEValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetVISIBLEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetVISIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldVISIBLEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE] := Null; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR]); -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR]; -end; - -function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR]); -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR] := aValue; -end; - -procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR] := Null; -end; - - -{ TAlbaranesProveedor_RefreshBusinessProcessorRules } -constructor TAlbaranesProveedor_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -var - StrList: TStringList; -begin - inherited; - - StrList := TStringList.Create; - StrList.OnChange := OBSERVACIONES_OnChange; - f_OBSERVACIONES := NewROStrings(StrList,True); - - StrList := TStringList.Create; - StrList.OnChange := INCIDENCIAS_OnChange; - f_INCIDENCIAS := NewROStrings(StrList,True); -end; - -destructor TAlbaranesProveedor_RefreshBusinessProcessorRules.Destroy; -begin - inherited; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES] := TStringList(Sender).Text; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.INCIDENCIAS_OnChange(Sender: TObject); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS] := TStringList(Sender).Text; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_PROVEEDORValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshNOMBRE]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshNOMBRE]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_ALBARANValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_ALBARANIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALBARANValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALBARANIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_ALBARANValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_ALBARANIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetTIPOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetTIPOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldTIPOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshTIPO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldTIPOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshTIPO]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetTIPOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_ALMACENValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_ALMACENIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_ALMACENValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_ALMACENIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_ALMACENIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetNOMBRE_ALMACENValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetNOMBRE_ALMACENIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldNOMBRE_ALMACENValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldNOMBRE_ALMACENIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetNOMBRE_ALMACENValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_PEDIDOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_PEDIDOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_PED_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_PED_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_PED_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_PED_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_PED_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_PED_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_FACTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_FACTURAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURA_PROVValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURA_PROVIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURA_PROVValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURA_PROVIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURA_PROVValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURA_PROVIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetCALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCALLE]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetCALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCALLE]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldCALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshCALLE]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldCALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshCALLE]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetCALLEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCALLE] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCALLE] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetCODIGO_POSTALValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPOBLACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPOBLACION]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPOBLACION]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPOBLACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPOBLACION]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPOBLACION]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPOBLACION] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPOBLACION] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPROVINCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPROVINCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetTELEFONOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTELEFONO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetTELEFONOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTELEFONO]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldTELEFONOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshTELEFONO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshTELEFONO]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetTELEFONOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTELEFONO] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTELEFONO] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_NETOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIVAValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIVA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIVA]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIVAValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIVA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIVA]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIVAValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIVA] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIVA] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_IVAValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings; -begin - result := f_OBSERVACIONES; - result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings; -begin - result := NewROStrings(); - result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetINCIDENCIASValue: IROStrings; -begin - result := f_INCIDENCIAS; - result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetINCIDENCIASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings; -begin - result := NewROStrings(); - result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldINCIDENCIASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetINCIDENCIASIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetINCIDENCIAS_ACTIVASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshUSUARIO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetUSUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshUSUARIO]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshUSUARIO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshUSUARIO]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshUSUARIO] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshUSUARIO] := Null; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO]); -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO]; -end; - -function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO]); -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO] := aValue; -end; - -procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO] := Null; -end; - - initialization RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_AlbaranesProveedorDelta, TAlbaranesProveedorBusinessProcessorRules); RegisterBusinessProcessorRules(RID_AlbaranesProveedor_DetallesDelta, TAlbaranesProveedor_DetallesBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_AlbaranesProveedor_Detalles_RefreshDelta, TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_AlbaranesProveedor_RefreshDelta, TAlbaranesProveedor_RefreshBusinessProcessorRules); end. diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS index 6fa9bb46..e4ef8edd 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS +++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS @@ -3,7 +3,7 @@ unit uBizAlbaranProveedorServer; interface uses - schFacturasClienteServer_Intf, uDAInterfaces, + schFacturasClienteServer_Intf, uDAInterfaces, uDADelta, uDADataTable, uDABusinessProcessor; const @@ -13,10 +13,6 @@ const type TBizAlbaranProveedorServer = class(TFacturasClienteBusinessProcessorRules) - private - procedure BeforeProcessChange(Sender: TDABusinessProcessor; - aChangeType: TDAChangeType; aChange: TDADeltaChange; - var ProcessChange: Boolean); protected procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override; end; @@ -51,12 +47,12 @@ begin try //Siempre va a estar rellena Empresa := Sender.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_EMPRESA]; - if aChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_TOTAL] < 0 then + if Sender.CurrentChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_TOTAL] < 0 then CodigoReferencia := REF_ALBARANES_DEV_PROVEEDOR else CodigoReferencia := REF_ALBARANES_PROVEEDOR; - dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'ID_EMPRESA'], [CodigoReferencia, Empresa]); + dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [CodigoReferencia, Empresa]); except RaiseError('No existe la tabla REFERENCIAS'); end; @@ -69,7 +65,7 @@ begin REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString; try - ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [CodigoReferencia, DarReferenciaSiguiente(REFERENCIA), Empresa]); + ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [CodigoReferencia, DarReferenciaSiguiente(REFERENCIA), Empresa]); except RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); end; diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas index 80ed32af..7d32d4db 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas @@ -178,8 +178,8 @@ end; procedure TBizAlbaranProveedor.IniciarValoresAlbaranNuevo; begin - ID_EMPRESA := dmUsuarios.IDEmpresaActual; - USUARIO := dmUsuarios.LoginInfo.Usuario; + ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; +// USUARIO := dmUsuarios.LoginInfo.Usuario; FECHA_ALBARAN := DateOf(Date); INCIDENCIAS_ACTIVAS := 0; TIPO := CTE_TIPO_ALBARAN; diff --git a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dpk b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dpk index 5c59147b..5ab08db6 100644 --- a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dpk +++ b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dpk @@ -22,19 +22,11 @@ package AlbaranesProveedor_plugin; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - PluginSDK_D10R, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, - Empresas_controller, AlbaranesProveedor_view, - AlbaranesProveedor_controller; + AlbaranesProveedor_model; contains uPluginAlbaranesProveedor in 'uPluginAlbaranesProveedor.pas' {PluginAlbaranesProveedor}; diff --git a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dproj b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dproj index 7da95e81..190c5ea6 100644 --- a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dproj +++ b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dproj @@ -36,80 +36,515 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration EurekaLog 5.1.9 - - - AlbaranesProveedor_plugin.dpk - - + AlbaranesProveedor_plugin.dpk - + MainSource - - - - - - - - - - + +
PluginAlbaranesProveedor
 - - \ No newline at end of file + + + diff --git a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.rc b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.rc +++ b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.res b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.res index 86c94e6ada7b3c85f6761b1ee234a9f34ef3c861..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 89 zcmX@0-oQLTLCJxUfkAA@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 @@ -35,7 +32,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor TargetTable = 'REFERENCIAS' SQL = 'SELECT'#10' VALOR'#10'FROM'#10' REFERENCIAS'#10'WHERE'#10' CODIGO = :COD' + - 'IGO'#10'AND ID_EMPRESA = :ID_EMPRESA' + 'IGO'#10'AND ID_EMPRESA = :EMPRESA'#10 StatementType = stSQL ColumnMappings = < item @@ -56,18 +53,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Statements = < item Connection = 'IBX' - TargetTable = 'ALBARANES_PROVEEDOR' - SQL = - 'SELECT '#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN,' + - ' REFERENCIA, REFERENCIA_PROVEEDOR,'#10' TIPO, ID_ALMACEN, NOMBRE_' + - 'ALMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,'#10' ID_FACTURA, REF_FACTU' + - 'RA, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA' + - ','#10' PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, D' + - 'ESCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IV' + - 'A, IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_AC' + - 'TIVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAG' + - 'O'#10' FROM'#10' V_ALBARANES_PROVEEDOR' - StatementType = stSQL + TargetTable = 'V_ALBARANES_PROVEEDOR' + StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' @@ -93,18 +80,42 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'TIPO' + TableField = 'TIPO' + end item DatasetField = 'ID_ALMACEN' TableField = 'ID_ALMACEN' end + item + DatasetField = 'NOMBRE_ALMACEN' + TableField = 'NOMBRE_ALMACEN' + end item DatasetField = 'ID_PEDIDO' TableField = 'ID_PEDIDO' end + item + DatasetField = 'REF_PED_PROVEEDOR' + TableField = 'REF_PED_PROVEEDOR' + end item DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end + item + DatasetField = 'REF_FACTURA' + TableField = 'REF_FACTURA' + end + item + DatasetField = 'REF_FACTURA_PROV' + TableField = 'REF_FACTURA_PROV' + end item DatasetField = 'CALLE' TableField = 'CALLE' @@ -188,30 +199,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor item DatasetField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO' - end - item - DatasetField = 'NOMBRE_ALMACEN' - TableField = 'NOMBRE_ALMACEN' - end - item - DatasetField = 'REF_PED_PROVEEDOR' - TableField = 'REF_PED_PROVEEDOR' - end - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end - item - DatasetField = 'REFERENCIA_PROVEEDOR' - TableField = 'REFERENCIA_PROVEEDOR' - end - item - DatasetField = 'REF_FACTURA' - TableField = 'REF_FACTURA' - end - item - DatasetField = 'REF_FACTURA_PROV' - TableField = 'REF_FACTURA_PROV' end> end> Name = 'AlbaranesProveedor' @@ -219,6 +206,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor item Name = 'ID' DataType = datAutoInc + GeneratorName = 'GEN_ALBARANES_PRO_ID' + ServerAutoRefresh = True DictionaryEntry = 'AlbaranesProveedor_ID' InPrimaryKey = True end @@ -414,13 +403,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor end> end item - Params = < - item - Name = 'ID_ALBARAN' - DataType = datInteger - Value = '' - ParamType = daptInput - end> + Params = <> Statements = < item Connection = 'IBX' @@ -437,22 +420,21 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor 'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV a' + 's REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT J' + 'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' + - 'CULOS.ID'#10'WHERE ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALB' + - 'ARAN'#10'ORDER BY POSICION;' + 'CULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10 StatementType = stSQL ColumnMappings = < item - DatasetField = 'CANTIDAD' - TableField = 'CANTIDAD' + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_ALBARAN' + TableField = 'ID_ALBARAN' end item DatasetField = 'POSICION' TableField = 'POSICION' end - item - DatasetField = 'ID' - TableField = 'ID' - end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' @@ -461,6 +443,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end + item + DatasetField = 'CANTIDAD' + TableField = 'CANTIDAD' + end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' @@ -473,10 +459,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DatasetField = 'VISIBLE' TableField = 'VISIBLE' end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' @@ -485,17 +467,19 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end - item - DatasetField = 'REFERENCIA_PROVEEDOR' - TableField = 'REFERENCIA_PROVEEDOR' - end - item - DatasetField = 'ID_ALBARAN' - TableField = 'ID_ALBARAN' - end item DatasetField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE' + end + item + DatasetField = 'REFERENCIA' + TableField = '' + SQLOrigin = 'REFERENCIA' + end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = '' + SQLOrigin = 'REFERENCIA_PROVEEDOR' end> end> Name = 'AlbaranesProveedor_Detalles' @@ -503,6 +487,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor item Name = 'ID' DataType = datAutoInc + GeneratorName = 'GEN_ALBARANES_PRO_DETALLES_ID' + ServerAutoRefresh = True DictionaryEntry = 'AlbaranesProveedor_Detalles_ID' InPrimaryKey = True end @@ -522,17 +508,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Size = 10 DictionaryEntry = 'AlbaranesProveedor_Detalles_TIPO_DETALLE' end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA' - end - item - Name = 'ID_ARTICULO' - DataType = datInteger - DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ARTICULO' - end item Name = 'CONCEPTO' DataType = datString @@ -554,6 +529,16 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DataType = datCurrency DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_TOTAL' end + item + Name = 'VISIBLE' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE' + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ARTICULO' + end item Name = 'DESCUENTO' DataType = datFloat @@ -564,551 +549,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor DataType = datCurrency DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_PORTE' end - item - Name = 'VISIBLE' - DataType = datInteger - DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE' - end - item - Name = 'REFERENCIA_PROVEEDOR' - DataType = datString - Size = 255 - DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR' - end> - end - item - Params = < - item - Name = 'ID_ALBARAN' - DataType = datInteger - Value = '' - ParamType = daptInput - end - item - Name = 'ID' - DataType = datInteger - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'ALBARANES_PROVEEDOR_DETALLES' - SQL = - 'SELECT'#10' ALBARANES_PROVEEDOR_DETALLES.ID, ALBARANES_PROVEEDOR_' + - 'DETALLES.ID_ALBARAN,'#10' ALBARANES_PROVEEDOR_DETALLES.POSICION, ' + - 'ALBARANES_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' ALBARANES_PROVEED' + - 'OR_DETALLES.CONCEPTO, ALBARANES_PROVEEDOR_DETALLES.CANTIDAD,'#10' ' + - ' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, ALBARANES_PROVEEDO' + - 'R_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_PROVEEDOR_DETALLES.VISIB' + - 'LE,'#10#10' ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PRO' + - 'VEEDOR_DETALLES.DESCUENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPO' + - 'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV a' + - 's REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT J' + - 'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' + - 'CULOS.ID'#10'WHERE ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALB' + - 'ARAN'#10'AND ALBARANES_PROVEEDOR_DETALLES.ID = :ID'#10'ORDER BY POSICION' + - ';' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CANTIDAD' - TableField = 'CANTIDAD' - end - item - DatasetField = 'POSICION' - TableField = 'POSICION' - end - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'TIPO_DETALLE' - TableField = 'TIPO_DETALLE' - end - item - DatasetField = 'CONCEPTO' - TableField = 'CONCEPTO' - end - item - DatasetField = 'IMPORTE_UNIDAD' - TableField = 'IMPORTE_UNIDAD' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end - item - DatasetField = 'VISIBLE' - TableField = 'VISIBLE' - end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end - item - DatasetField = 'ID_ARTICULO' - TableField = 'ID_ARTICULO' - end - item - DatasetField = 'DESCUENTO' - TableField = 'DESCUENTO' - end - item - DatasetField = 'REFERENCIA_PROVEEDOR' - TableField = 'REFERENCIA_PROVEEDOR' - end - item - DatasetField = 'ID_ALBARAN' - TableField = 'ID_ALBARAN' - end - item - DatasetField = 'IMPORTE_PORTE' - TableField = 'IMPORTE_PORTE' - end> - end> - Name = 'AlbaranesProveedor_Detalles_Refresh' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - DictionaryEntry = 'AlbaranesProveedor_Detalles_ID' - InPrimaryKey = True - end - item - Name = 'ID_ALBARAN' - DataType = datInteger - end - item - Name = 'POSICION' - DataType = datInteger - DictionaryEntry = 'POSICIONCONCEPTO' - end - item - Name = 'TIPO_DETALLE' - DataType = datString - Size = 10 - DictionaryEntry = 'AlbaranesProveedor_Detalles_TIPO_DETALLE' - end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA' end - item - Name = 'ID_ARTICULO' - DataType = datInteger - DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ARTICULO' - end - item - Name = 'CONCEPTO' - DataType = datString - Size = 2000 - DictionaryEntry = 'AlbaranesProveedor_Detalles_CONCEPTO' - end - item - Name = 'CANTIDAD' - DataType = datInteger - DictionaryEntry = 'CANTIDAD' - end - item - Name = 'IMPORTE_UNIDAD' - DataType = datCurrency - DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_UNIDAD' - end - item - Name = 'IMPORTE_TOTAL' - DataType = datCurrency - DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_TOTAL' - end - item - Name = 'DESCUENTO' - DataType = datFloat - end - item - Name = 'IMPORTE_PORTE' - DataType = datFloat - end - item - Name = 'VISIBLE' - DataType = datInteger - DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE' - end - item - Name = 'REFERENCIA_PROVEEDOR' - DataType = datString - Size = 255 - end> - end - item - Params = < - item - Name = 'ID' - DataType = datInteger - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'ALBARANES_PROVEEDOR' - SQL = - 'SELECT'#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN, ' + - 'REFERENCIA, REFERENCIA_PROVEEDOR,'#10' TIPO, ID_ALMACEN, NOMBRE_A' + - 'LMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,'#10' ID_FACTURA, REF_FACTUR' + - 'A, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA,' + - #10' PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, DE' + - 'SCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA' + - ', IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACT' + - 'IVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAGO' + - #10' FROM'#10' V_ALBARANES_PROVEEDOR'#10'WHERE V_ALBARANES_PROVEEDOR.ID' + - ' = :ID' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - end - item - DatasetField = 'ID_PROVEEDOR' - TableField = 'ID_PROVEEDOR' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'FECHA_ALBARAN' - TableField = 'FECHA_ALBARAN' - end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end - item - DatasetField = 'ID_ALMACEN' - TableField = 'ID_ALMACEN' - end - item - DatasetField = 'ID_PEDIDO' - TableField = 'ID_PEDIDO' - end - item - DatasetField = 'ID_FACTURA' - TableField = 'ID_FACTURA' - end - item - DatasetField = 'CALLE' - TableField = 'CALLE' - end - item - DatasetField = 'CODIGO_POSTAL' - TableField = 'CODIGO_POSTAL' - end - item - DatasetField = 'POBLACION' - TableField = 'POBLACION' - end - item - DatasetField = 'PROVINCIA' - TableField = 'PROVINCIA' - end - item - DatasetField = 'PERSONA_CONTACTO' - TableField = 'PERSONA_CONTACTO' - end - item - DatasetField = 'TELEFONO' - TableField = 'TELEFONO' - end - item - DatasetField = 'IMPORTE_NETO' - TableField = 'IMPORTE_NETO' - end - item - DatasetField = 'IMPORTE_PORTE' - TableField = 'IMPORTE_PORTE' - end - item - DatasetField = 'DESCUENTO' - TableField = 'DESCUENTO' - end - item - DatasetField = 'IMPORTE_DESCUENTO' - TableField = 'IMPORTE_DESCUENTO' - end - item - DatasetField = 'BASE_IMPONIBLE' - TableField = 'BASE_IMPONIBLE' - end - item - DatasetField = 'IVA' - TableField = 'IVA' - end - item - DatasetField = 'IMPORTE_IVA' - TableField = 'IMPORTE_IVA' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end - item - DatasetField = 'OBSERVACIONES' - TableField = 'OBSERVACIONES' - end - item - DatasetField = 'INCIDENCIAS' - TableField = 'INCIDENCIAS' - end - item - DatasetField = 'INCIDENCIAS_ACTIVAS' - TableField = 'INCIDENCIAS_ACTIVAS' - end - item - DatasetField = 'FECHA_ALTA' - TableField = 'FECHA_ALTA' - end - item - DatasetField = 'FECHA_MODIFICACION' - TableField = 'FECHA_MODIFICACION' - end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end - item - DatasetField = 'ID_FORMA_PAGO' - TableField = 'ID_FORMA_PAGO' - end - item - DatasetField = 'NOMBRE_ALMACEN' - TableField = 'NOMBRE_ALMACEN' - end - item - DatasetField = 'REF_PED_PROVEEDOR' - TableField = 'REF_PED_PROVEEDOR' - end - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end - item - DatasetField = 'REFERENCIA_PROVEEDOR' - TableField = 'REFERENCIA_PROVEEDOR' - end - item - DatasetField = 'REF_FACTURA' - TableField = 'REF_FACTURA' - end - item - DatasetField = 'REF_FACTURA_PROV' - TableField = 'REF_FACTURA_PROV' - end> - end> - Name = 'AlbaranesProveedor_Refresh' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - DictionaryEntry = 'AlbaranesProveedor_ID' - InPrimaryKey = True - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'AlbaranesProveedor_ID_EMPRESA' - end - item - Name = 'ID_PROVEEDOR' - DataType = datInteger - DictionaryEntry = 'AlbaranesProveedor_ID_PROVEEDOR' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - DictionaryEntry = 'AlbaranesProveedor_NOMBRE' - end - item - Name = 'FECHA_ALBARAN' - DataType = datDateTime - DictionaryEntry = 'AlbaranesProveedor_FECHA_ALBARAN' - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - DisplayLabel = 'Referencia' - ServerAutoRefresh = True - end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR' - end - item - Name = 'TIPO' - DataType = datString - Size = 1 - DictionaryEntry = 'AlbaranesProveedor_TIPO' - end - item - Name = 'ID_ALMACEN' - DataType = datInteger - DictionaryEntry = 'AlbaranesProveedor_ID_ALMACEN' - end - item - Name = 'NOMBRE_ALMACEN' - DataType = datString - Size = 255 - DictionaryEntry = 'AlbaranesProveedor_NOMBRE_ALMACEN' - end - item - Name = 'ID_PEDIDO' - DataType = datInteger - DictionaryEntry = 'AlbaranesProveedor_ID_PEDIDO' - end - item - Name = 'REF_PED_PROVEEDOR' - DataType = datString - Size = 255 - DictionaryEntry = 'AlbaranesProveedor_REF_PED_PROVEEDOR' - end - item - Name = 'ID_FACTURA' - DataType = datInteger - DictionaryEntry = 'AlbaranesProveedor_ID_FACTURA' - end - item - Name = 'REF_FACTURA' - DataType = datString - Size = 255 - end - item - Name = 'REF_FACTURA_PROV' - DataType = datString - Size = 255 - DictionaryEntry = 'AlbaranesProveedor_REF_FAC_PROVEEDOR' - end - item - Name = 'CALLE' - DataType = datString - Size = 255 - DictionaryEntry = 'AlbaranesProveedor_CALLE' - end - item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - DictionaryEntry = 'AlbaranesProveedor_CODIGO_POSTAL' - end - item - Name = 'POBLACION' - DataType = datString - Size = 255 - DictionaryEntry = 'AlbaranesProveedor_POBLACION' - end - item - Name = 'PROVINCIA' - DataType = datString - Size = 255 - DictionaryEntry = 'AlbaranesProveedor_PROVINCIA' - end - item - Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 - DictionaryEntry = 'AlbaranesProveedor_PERSONA_CONTACTO' - end - item - Name = 'TELEFONO' - DataType = datString - Size = 25 - DictionaryEntry = 'AlbaranesProveedor_TELEFONO' - end - item - Name = 'IMPORTE_NETO' - DataType = datCurrency - DictionaryEntry = 'AlbaranesProveedor_IMPORTE_NETO' - end - item - Name = 'IMPORTE_PORTE' - DataType = datCurrency - DictionaryEntry = 'AlbaranesProveedor_IMPORTE_PORTE' - end - item - Name = 'DESCUENTO' - DataType = datFloat - DictionaryEntry = 'AlbaranesProveedor_DESCUENTO' - end - item - Name = 'IMPORTE_DESCUENTO' - DataType = datCurrency - DictionaryEntry = 'AlbaranesProveedor_IMPORTE_DESCUENTO' - end - item - Name = 'BASE_IMPONIBLE' - DataType = datCurrency - DictionaryEntry = 'AlbaranesProveedor_BASE_IMPONIBLE' - end - item - Name = 'IVA' - DataType = datFloat - DictionaryEntry = 'AlbaranesProveedor_IVA' - end - item - Name = 'IMPORTE_IVA' - DataType = datCurrency - DictionaryEntry = 'AlbaranesProveedor_IMPORTE_IVA' - end - item - Name = 'IMPORTE_TOTAL' - DataType = datCurrency - DictionaryEntry = 'AlbaranesProveedor_IMPORTE_TOTAL' - end - item - Name = 'OBSERVACIONES' - DataType = datMemo - DictionaryEntry = 'AlbaranesProveedor_OBSERVACIONES' - end - item - Name = 'INCIDENCIAS' - DataType = datMemo - DictionaryEntry = 'AlbaranesProveedor_INCIDENCIAS' - end - item - Name = 'INCIDENCIAS_ACTIVAS' - DataType = datInteger - DictionaryEntry = 'AlbaranesProveedor_INCIDENCIAS_ACTIVAS' - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - DictionaryEntry = 'AlbaranesProveedor_FECHA_ALTA' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - DictionaryEntry = 'AlbaranesProveedor_FECHA_MODIFICACION' - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DictionaryEntry = 'AlbaranesProveedor_USUARIO' - end - item - Name = 'ID_FORMA_PAGO' - DataType = datInteger - DictionaryEntry = 'AlbaranesProveedor_ID_FORMA_PAGO' end> end> JoinDataTables = <> @@ -1118,23 +569,15 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Params = < item Name = 'VALOR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO' - DataType = datString - Size = 50 Value = '' - ParamType = daptInput end item - Name = 'ID_EMPRESA' - DataType = datInteger + Name = 'EMPRESA' Value = '' - ParamType = daptInput end> Statements = < item @@ -1142,7 +585,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor TargetTable = 'REFERENCIAS' SQL = 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' + - 'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA' + 'IGO AND'#10' ID_EMPRESA = :EMPRESA'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1152,199 +595,129 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Params = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_ALBARANES_PRO_ID' Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_PROVEEDOR' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'FECHA_ALBARAN' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'ID_PEDIDO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_FACTURA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'REFERENCIA_PROVEEDOR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'REF_FACTURA_PROV' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CALLE' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 Value = '' - ParamType = daptInput end item Name = 'POBLACION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'PROVINCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'TELEFONO' - DataType = datString - Size = 25 Value = '' - ParamType = daptInput end item Name = 'BASE_IMPONIBLE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IVA' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_IVA' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'OBSERVACIONES' - DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'INCIDENCIAS' - DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'INCIDENCIAS_ACTIVAS' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'FECHA_ALTA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_MODIFICACION' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_ALMACEN' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_FORMA_PAGO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'IMPORTE_NETO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_PORTE' - DataType = datFloat Value = '' - ParamType = daptInput end> Statements = < item @@ -1379,9 +752,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Params = < item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -1398,223 +769,155 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor item Params = < item - Name = 'ID_EMPRESA' - DataType = datInteger + Name = 'ID' + Value = '' + end + item + Name = 'ID_EMPRESA' Value = '' - ParamType = daptInput end item Name = 'ID_PROVEEDOR' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'FECHA_ALBARAN' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'ID_PEDIDO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_FACTURA' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'REFERENCIA_PROVEEDOR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'REF_FACTURA_PROV' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CALLE' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 Value = '' - ParamType = daptInput end item Name = 'POBLACION' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'PROVINCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'TELEFONO' - DataType = datString - Size = 25 Value = '' - ParamType = daptInput end item Name = 'BASE_IMPONIBLE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IVA' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_IVA' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'OBSERVACIONES' - DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'INCIDENCIAS' - DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'INCIDENCIAS_ACTIVAS' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'FECHA_ALTA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_MODIFICACION' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'ID_ALMACEN' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_FORMA_PAGO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'IMPORTE_NETO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_PORTE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'ALBARANES_PROVEEDOR' SQL = - 'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' + - ' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN = :FECHA_ALBA' + - 'RAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ' + - ' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PROVEEDOR = :REFEREN' + - 'CIA_PROVEEDOR,'#10' REF_FACTURA_PROV = :REF_FACTURA_PROV,'#10' CAL' + - 'LE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' POBLACION =' + - ' :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' PERSONA_CONTACTO = ' + - ':PERSONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' BASE_IMPONIBLE ' + - '= :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCU' + - 'ENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IM' + - 'PORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES' + - ' = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCI' + - 'AS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,' + - #10' FECHA_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :US' + - 'UARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FOR' + - 'MA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :' + - 'IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);' + 'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID = :ID,'#10' ID_EMPRESA = ' + + ':ID_EMPRESA,'#10' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN' + + ' = :FECHA_ALBARAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = ' + + ':ID_FACTURA,'#10' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PROVEE' + + 'DOR = :REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_PROV = :REF_FACTURA' + + '_PROV,'#10' CALLE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' ' + + ' POBLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' PERSO' + + 'NA_CONTACTO = :PERSONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' B' + + 'ASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10' ' + + ' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMP' + + 'ORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' ' + + ' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,' + + #10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA ' + + '= :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION,'#10' ' + + ' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_' + + 'PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMP' + + 'ORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1624,77 +927,53 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Params = < item Name = 'CANTIDAD' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'POSICION' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_ALBARANES_PRO_DETALLES_ID' Value = '' - ParamType = daptInput end item Name = 'TIPO_DETALLE' - DataType = datString - Size = 10 Value = '' - ParamType = daptInput end item Name = 'CONCEPTO' - DataType = datString - Size = 2000 Value = '' - ParamType = daptInput end item Name = 'IMPORTE_UNIDAD' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'VISIBLE' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_ALBARAN' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_ARTICULO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_PORTE' - DataType = datFloat Value = '' - ParamType = daptInput end> Statements = < item @@ -1702,11 +981,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor TargetTable = 'ALBARANES_PROVEEDOR_DETALLES' SQL = 'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' + - 'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TO' + - 'TAL, VISIBLE, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_P' + - 'ORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :C' + - 'ONCEPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_AL' + - 'BARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)' + 'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IMPORTE_TOT' + + 'AL, VISIBLE, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PO' + + 'RTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CO' + + 'NCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_ALBA' + + 'RAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1716,9 +995,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Params = < item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -1736,83 +1013,55 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor Params = < item Name = 'CANTIDAD' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'POSICION' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'TIPO_DETALLE' - DataType = datString - Size = 10 Value = '' - ParamType = daptInput end item Name = 'CONCEPTO' - DataType = datString - Size = 2000 Value = '' - ParamType = daptInput end item Name = 'IMPORTE_UNIDAD' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'VISIBLE' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_ALBARAN' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_ARTICULO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_PORTE' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -1831,7 +1080,15 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor end> Name = 'Update_AlbaranesProveedor_Detalles' end> - RelationShips = <> + RelationShips = < + item + Name = 'FK_AlbaranesProveedor_Detalles' + MasterDatasetName = 'AlbaranesProveedor' + MasterFields = 'ID' + DetailDatasetName = 'AlbaranesProveedor_Detalles' + DetailFields = 'ID_ALBARAN' + RelationshipType = rtForeignKey + end> UpdateRules = < item Name = 'Insert AlbaranesProveedor' @@ -1908,7 +1165,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor item Name = 'AlbaranesProveedor_ID' DataType = datAutoInc + GeneratorName = 'GEN_ALBARANES_PRO_ID' + Required = True DisplayLabel = 'ID' + ServerAutoRefresh = True end item Name = 'AlbaranesProveedor_ID_EMPRESA' @@ -2057,8 +1317,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor item Name = 'AlbaranesProveedor_Detalles_ID' DataType = datAutoInc + GeneratorName = 'GEN_ALBARANES_PRO_DETALLES_ID' Required = True DisplayLabel = 'ID' + ServerAutoRefresh = True end item Name = 'AlbaranesProveedor_Detalles_ID_PEDIDO' diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas index 3a28b81d..2f826c39 100644 --- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas +++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas @@ -23,9 +23,9 @@ type TsrvAlbaranesProveedor = class(TDataAbstractService, IsrvAlbaranesProveedor) bpAlbaranesProveedor: TDABusinessProcessor; bpAlbaranesProveedor_Detalles: TDABusinessProcessor; + Bin2DataStreamer: TDABin2DataStreamer; schAlbaranesProveedor: TDASchema; DADataDictionary: TDADataDictionary; - Bin2DataStreamer: TDABin2DataStreamer; procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); procedure DARemoteServiceCreate(Sender: TObject); @@ -42,8 +42,8 @@ implementation uses Dialogs, {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, - schAlbaranesProveedorClient_Intf, uRestriccionesUsuarioUtils; -// uBizAlbaranProveedorServer, + schAlbaranesProveedorClient_Intf, uRestriccionesUsuarioUtils, + uBizAlbaranProveedorServer; // uRptAlbaranesProveedor_Server; procedure Create_srvAlbaranesProveedor(out anInstance : IUnknown); @@ -70,7 +70,7 @@ end; procedure TsrvAlbaranesProveedor.DARemoteServiceCreate(Sender: TObject); begin SessionManager := dmServer.SessionManager; -// bpAlbaranesProveedor.BusinessRulesID := BIZ_SERVER_ALBARAN_PROVEEDOR; + bpAlbaranesProveedor.BusinessRulesID := BIZ_SERVER_ALBARAN_PROVEEDOR; end; procedure TsrvAlbaranesProveedor.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk index cf174d6f..f613151d 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk +++ b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk @@ -22,77 +22,15 @@ package AlbaranesProveedor_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - vcldb, - dsnap, - adortl, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - vcljpg, - cxExtEditorsD10, - vclx, - cxGridD10, - cxPageControlD10, - cxExportD10, - dxPSCoreD10, - dxComnD10, - frx10, - fs10, - fqb100, - bdertl, - dxPScxCommonD10, - dxPSLnksD10, - designide, - xmlrtl, - vclactnband, - vclshlctrls, - dxPScxGridLnkD10, - dclcxLibraryD10, - PngComponentsD10, - PNG_D10, - tbx_d10, - tb2k_d10, - JvCoreD10R, - Jcl, - JclVcl, - JvSystemD10R, - JvPageCompsD10R, - JvStdCtrlsD10R, - GUISDK_D10, - ccpack10, - cfpack_d10, - JvAppFrmD10R, GUIBase, - Contactos_model, - Contactos_view, - DataAbstract_D10, - Empresas_controller, - frxe10, - frxTee10, - fsTee10, - tee, - teeui, - teedb, - JvGlobusD10R, - VclSmp, - vclie, - Articulos_view, - dxLayoutControlD10, AlbaranesProveedor_model, AlbaranesProveedor_controller, - AlbaranesProveedor_data, + Articulos_view, Almacenes_model, - Almacenes_controller, - JSDialog100, - AlbProv_FacProv_relation, - PedProv_AlbProv_relation; + Almacenes_controller; contains uAlbaranesProveedorViewRegister in 'uAlbaranesProveedorViewRegister.pas', diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj index cc51abef..4e523cbc 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj +++ b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj @@ -36,127 +36,24 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - AlbaranesProveedor_view.dpk - - +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0AlbaranesProveedor_view.dpk - + MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + +
fEditorAlbaranDevProveedor
@@ -219,5 +116,488 @@ TFrame - - \ No newline at end of file + + + diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.identcache b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.identcache index 90f66d9a240a3a21003a0d2a144f7e3b09df4dc9..fcb70591c05720a25b90a4d3d50465a7c18fdf77 100644 GIT binary patch literal 1749 zcmb`HL2kn!5Ji229Kk2(0kVr?FDpf9RYfgTLttc0g*?`P)9W`Vu~n1eEXHhDfadW( ze`Zw_#m9E7wq&uP@)eB708YJ7&j!>p+1`;?8+X#ITkxfYvST^}SYq{t@Z(hh z&b#6Gsnh;aeq1LhXMDwoh~zyq=mT(yLn$s6uid3OZ#bZdM%=$(acXTb5dY5|b*I#C zsn#pCLIz`y+PV!4jlRjvVn3zWKgj_q`hsDIj Hxdi?Kz%yEG literal 1813 zcmcJPK~BRk5Jhu@9wAG*=>fW{NOna+t;EWL8heN=xt?h3l!I{uF4lyk$Tf|-8M1Yx zr}yX2EQ+Fdt=HlawP~j}6o@C(okcG;_Fa;6;7bi#4CwG4$N?H1YYUB`4F#iyHb*nOsrbQ1o>0*!chDk*G*uSaA=TTe z5kDoXe~`^>CS$mh>*X}fHc4_QMwJDh6VzO^3WBs2?$-6d0lYflnYyrKc?HX5$x@cT QJ2=d8*PjF*fYN<912ze9EC2ui diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.rc b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.rc +++ b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.res b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.res index 86c94e6ada7b3c85f6761b1ee234a9f34ef3c861..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 89 zcmX@0-oQLTLCJxUfkAA@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5?RCW42BE_lM|!d0aFqNi~s-t delta 21 ccmZ3nm2t&Z#tl(X>_!Y$48{zmlM|!d0aGIekpKVy diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 8dfa5dd7..ac4d4e99 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -76,12 +76,13 @@ uses schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDataAbstractService}, - schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', - schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDataAbstractService}, uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', - schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas'; + schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', + schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', + schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', + uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 04f1d3b0..90c0a33e 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,184 +1,181 @@ - + - - {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 - - -FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47 - - - - - RemObjects Pascal Script - RemObjects SDK 3.0 Integration - FactuGES_Server.dpr - - - - - MainSource - - - - -
srvEmpresas
- TDARemoteService - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - - - - -
srvContactos
- TDARemoteService - - - - - -
srvFacturasCliente
- TDataAbstractService - - - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
srvRecibosCliente
- TDataAbstractService - - - - -
srvRecibosProveedor
- 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 + + + FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47 + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + FactuGES_Server.dpr + + + + + MainSource + + + + +
srvEmpresas
+ TDARemoteService + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + + + + +
srvContactos
+ TDARemoteService + + + + + +
srvFacturasCliente
+ TDataAbstractService + + + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
srvRecibosProveedor
+ TDataAbstractService + + + + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +