From e00eb84d72cfbc537fc1c454b743cd4c2631e292 Mon Sep 17 00:00:00 2001 From: roberto Date: Sat, 17 Nov 2007 12:03:12 +0000 Subject: [PATCH] Pedidos proveedor OK git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@112 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.dproj | 105 +++--- Source/Base/Base.res | Bin 384 -> 4748 bytes .../Views/uViewDetallesArticulos.dfm | 7 +- .../Data/uDataModulePedidosProveedor.dfm | 20 +- .../Model/PedidosProveedor_model.identcache | Bin 645 -> 645 bytes .../Model/schPedidosProveedorClient_Intf.pas | 26 +- .../Model/schPedidosProveedorServer_Intf.pas | 16 +- .../Model/uBizPedidosProveedorServer.pas | 4 +- .../Servidor/srvPedidosProveedor_Impl.dfm | 263 ++----------- .../Servidor/srvPedidosProveedor_Impl.pas | 8 +- .../Views/PedidosProveedor_view.identcache | Bin 1379 -> 1379 bytes Source/Servidor/FactuGES_Server.RES | Bin 23212 -> 23208 bytes Source/Servidor/FactuGES_Server.dpr | 4 +- Source/Servidor/FactuGES_Server.dproj | 356 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 15 files changed, 313 insertions(+), 498 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 6f70ea9c..f3588d42 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,6 +44,13 @@ Package FalseTrueFalseLibreria base de FactuGESTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -58,57 +65,57 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm index e2a2afb9..a3f7fd72 100644 --- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm @@ -63,13 +63,8 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos end inherited cxGrid: TcxGrid inherited cxGridView: TcxGridDBTableView - inherited cxGridViewID: TcxGridDBColumn - Visible = True - end - inherited cxGridViewPOSICION: TcxGridDBColumn - Visible = True - end inherited cxGridViewTIPO: TcxGridDBColumn + Visible = False Width = 26 end object cxGridViewID_ARTICULO: TcxGridDBColumn [3] diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm index e3a818b0..83675ac7 100644 --- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm @@ -31,6 +31,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor DataType = datAutoInc GeneratorName = 'GEN_PEDIDOS_PROV_ID' Required = True + ServerAutoRefresh = True DictionaryEntry = 'PedidosProveedor_ID' InPrimaryKey = True end @@ -62,13 +63,13 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor Name = 'SITUACION' DataType = datString Size = 255 - DisplayLabel = 'Situaci'#195#179'n' + DisplayLabel = 'Situaci'#243'n' DictionaryEntry = 'PedidosProveedor_SITUACION' end item Name = 'FECHA_ENVIO' DataType = datDateTime - DisplayLabel = #194#191'Enviado?' + DisplayLabel = #191'Enviado?' DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO' end item @@ -80,7 +81,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor item Name = 'FECHA_CONFIRMACION' DataType = datDateTime - DisplayLabel = #194#191'Confirmado?' + DisplayLabel = #191'Confirmado?' DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION' end item @@ -99,7 +100,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor Name = 'NOMBRE_ALMACEN' DataType = datString Size = 255 - DisplayLabel = 'Almac'#195#169'n' + DisplayLabel = 'Almac'#233'n' DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN' end item @@ -136,7 +137,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor Name = 'POBLACION' DataType = datString Size = 255 - DisplayLabel = 'Poblaci'#195#179'n' + DisplayLabel = 'Poblaci'#243'n' DictionaryEntry = 'PedidosProveedor_POBLACION' end item @@ -150,7 +151,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor Name = 'CODIGO_POSTAL' DataType = datString Size = 10 - DisplayLabel = 'C'#195#179'd. postal' + DisplayLabel = 'C'#243'd. postal' DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL' end item @@ -164,7 +165,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor Name = 'TELEFONO' DataType = datString Size = 25 - DisplayLabel = 'Tel'#195#169'fono' + DisplayLabel = 'Tel'#233'fono' DictionaryEntry = 'PedidosProveedor_TELEFONO' end item @@ -327,8 +328,11 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor Fields = < item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID' Required = True + ServerAutoRefresh = True + DictionaryEntry = 'PedidosProveedor_Detalles_ID' InPrimaryKey = True end item diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.identcache b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.identcache index 7499a4ddebccc1d7e708ad9d56b4c019bff3a500..1472f38cba277caf2811fd4dd76b9674ada73b22 100644 GIT binary patch delta 24 gcmZo=ZDpO1Gg*+SWMWSCWGBY+6LSJ4t20Ui0Bb@BTL1t6 delta 23 fcmZo=ZDpO1Gx0(8#0LSBvzVkOdo!M&m{S4(c4rCa diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas index 820d342c..ddacb35c 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas @@ -3,16 +3,16 @@ unit schPedidosProveedorClient_Intf; interface uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarReferencia = '{ECD374FB-DEC3-4BD3-8B94-3D682010F0FC}'; - RID_PedidosProveedor = '{2D04B1A7-0FD8-4D76-A3C5-A359F90149B0}'; - RID_PedidosProveedor_Detalles = '{C2304714-5565-46A7-B19D-3E0B8FB1CCAC}'; - RID_PedidosProveedor_Articulos_Pendientes = '{6016265E-4953-4240-BB67-842699A43AD5}'; + RID_DarReferencia = '{CA7994DB-6CC3-4494-8CDA-4D8411DB5D2D}'; + RID_PedidosProveedor = '{684C5776-911B-490A-9C71-D4EDCCAD631E}'; + RID_PedidosProveedor_Detalles = '{FCF3DE95-4073-4679-92C0-87B7E7C46108}'; + RID_PedidosProveedor_Articulos_Pendientes = '{EA978B2E-441A-49F8-AF4D-76517D74CF10}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -151,7 +151,7 @@ const type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{87AF2361-34C9-47CE-8B54-87175DC678BB}'] + ['{04456888-5D38-48BB-8CED-95617D1F2BB9}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -165,7 +165,7 @@ type end; { TDarReferenciaDataTableRules } - TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia) + TDarReferenciaDataTableRules = class(TDADataTableRules, IDarReferencia) private protected { Property getters and setters } @@ -186,7 +186,7 @@ type { IPedidosProveedor } IPedidosProveedor = interface(IDAStronglyTypedDataTable) - ['{E49280D2-1776-46E8-86B8-5149F77BDCF3}'] + ['{4E3D9B42-CF76-460B-8136-2D0C2B3417D4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -402,7 +402,7 @@ type end; { TPedidosProveedorDataTableRules } - TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor) + TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor) private f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; @@ -629,7 +629,7 @@ type { IPedidosProveedor_Detalles } IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{89FC103E-BFB3-41F8-9043-F97B9A488EAA}'] + ['{127BE3FD-DEF4-4C58-ABC5-5A54DCE0608D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -721,7 +721,7 @@ type end; { TPedidosProveedor_DetallesDataTableRules } - TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles) + TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles) private protected { Property getters and setters } @@ -820,7 +820,7 @@ type { IPedidosProveedor_Articulos_Pendientes } IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) - ['{809B7C0C-097F-41C4-B931-B8E1C69B6CA5}'] + ['{34BDDF31-970F-4F58-923B-1C0E66F27A5F}'] { Property getters and setters } function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); @@ -864,7 +864,7 @@ type end; { TPedidosProveedor_Articulos_PendientesDataTableRules } - TPedidosProveedor_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Articulos_Pendientes) + TPedidosProveedor_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Articulos_Pendientes) private protected { Property getters and setters } diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas index e4dbd92b..662cc9b0 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas @@ -9,15 +9,15 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarReferenciaDelta = '{C99C46FF-39A2-4012-9082-AB75F2697D32}'; - RID_PedidosProveedorDelta = '{202FCF2F-55FB-46BF-BE89-70B9FF26C348}'; - RID_PedidosProveedor_DetallesDelta = '{2C1855B3-AB89-4FCF-901B-0B55C5B1C45F}'; - RID_PedidosProveedor_Articulos_PendientesDelta = '{C22CA682-0E3B-40F8-9F4A-D422BC284233}'; + RID_DarReferenciaDelta = '{A1F1C534-FD91-42C1-856B-0CAE9DE48B68}'; + RID_PedidosProveedorDelta = '{349D50BE-57FD-468A-8751-0374A571AAA4}'; + RID_PedidosProveedor_DetallesDelta = '{E924668B-8D1B-44C3-9DA2-D033F8C44E06}'; + RID_PedidosProveedor_Articulos_PendientesDelta = '{0B859C3A-9F82-4451-A206-24CEF18A61E9}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{C99C46FF-39A2-4012-9082-AB75F2697D32}'] + ['{A1F1C534-FD91-42C1-856B-0CAE9DE48B68}'] { Property getters and setters } function GetOldVALORValue : String; @@ -51,7 +51,7 @@ type { IPedidosProveedorDelta } IPedidosProveedorDelta = interface(IPedidosProveedor) - ['{202FCF2F-55FB-46BF-BE89-70B9FF26C348}'] + ['{349D50BE-57FD-468A-8751-0374A571AAA4}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -495,7 +495,7 @@ type { IPedidosProveedor_DetallesDelta } IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) - ['{2C1855B3-AB89-4FCF-901B-0B55C5B1C45F}'] + ['{E924668B-8D1B-44C3-9DA2-D033F8C44E06}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; @@ -685,7 +685,7 @@ type { IPedidosProveedor_Articulos_PendientesDelta } IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) - ['{C22CA682-0E3B-40F8-9F4A-D422BC284233}'] + ['{0B859C3A-9F82-4451-A206-24CEF18A61E9}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; function GetOldREFERENCIAValue : String; diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas index 9b97e78d..5c128d8e 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas @@ -46,7 +46,7 @@ begin try //Siempre va a estar rellena Empresa := Sender.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA]; - dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'ID_EMPRESA'], [REF_PEDIDOS_PROVEEDOR, Empresa]); + dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_PEDIDOS_PROVEEDOR, Empresa]); except RaiseError('No existe la tabla REFERENCIAS'); end; @@ -59,7 +59,7 @@ begin REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString; try - ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_PEDIDOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]); + ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_PEDIDOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]); except RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); end; diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm index afb87490..aab23622 100644 --- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm @@ -203,6 +203,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PEDIDOS_PROV_ID' + ServerAutoRefresh = True DictionaryEntry = 'PedidosProveedor_ID' InPrimaryKey = True end @@ -473,8 +474,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor Fields = < item Name = 'ID' - DataType = datInteger - Required = True + DataType = datAutoInc + GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID' + ServerAutoRefresh = True + DictionaryEntry = 'PedidosProveedor_Detalles_ID' InPrimaryKey = True end item @@ -620,23 +623,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor 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 @@ -644,7 +639,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor 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> @@ -654,9 +649,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor Params = < item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -672,77 +665,53 @@ object srvPedidosProveedor: TsrvPedidosProveedor 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_PEDIDOS_PROV_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_PEDIDO' - 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 @@ -764,9 +733,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor Params = < item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -784,83 +751,55 @@ object srvPedidosProveedor: TsrvPedidosProveedor 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_PEDIDO' - 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 @@ -883,197 +822,129 @@ object srvPedidosProveedor: TsrvPedidosProveedor Params = < item Name = 'USUARIO' - DataType = datString - Size = 20 Value = '' - ParamType = daptInput end item Name = 'OBSERVACIONES' - DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'ID' - DataType = datInteger + DataType = datAutoInc + GeneratorName = 'GEN_PEDIDOS_PROV_ID' Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - 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 = 'ID_PROVEEDOR' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'FECHA_ENVIO' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_PEDIDO' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_CONFIRMACION' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_ENTREGA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'INCIDENCIAS' - DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'INCIDENCIAS_ACTIVAS' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_ALMACEN' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'CALLE' - DataType = datString - Size = 255 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 = 'CODIGO_POSTAL' - DataType = datString - Size = 10 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 = 'ID_PEDIDO_CLIENTE' - 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 = 'DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'BASE_IMPONIBLE' - 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 = 'ID_FORMA_PAGO' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -1104,222 +975,156 @@ object srvPedidosProveedor: TsrvPedidosProveedor item Params = < item - Name = 'USUARIO' - DataType = datString - Size = 20 + Name = 'ID' + Value = '' + end + item + Name = 'USUARIO' Value = '' - ParamType = daptInput end item Name = 'OBSERVACIONES' - DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'ID_EMPRESA' - 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 = 'ID_PROVEEDOR' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'FECHA_ENVIO' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_PEDIDO' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_CONFIRMACION' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'FECHA_ENTREGA' - DataType = datDateTime Value = '' - ParamType = daptInput end item Name = 'INCIDENCIAS' - DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'IMPORTE_TOTAL' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'INCIDENCIAS_ACTIVAS' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'ID_ALMACEN' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'CALLE' - DataType = datString - Size = 255 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 = 'CODIGO_POSTAL' - DataType = datString - Size = 10 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 = 'ID_PEDIDO_CLIENTE' - 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 = 'DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'IMPORTE_DESCUENTO' - DataType = datFloat Value = '' - ParamType = daptInput end item Name = 'BASE_IMPONIBLE' - 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 = 'ID_FORMA_PAGO' - DataType = datInteger Value = '' - ParamType = daptInput end item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PEDIDOS_PROVEEDOR' SQL = - 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' USUARIO = :USUARIO, '#10' OBS' + - 'ERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :REFERENCIA,'#10' ' + - 'ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECH' + - 'A_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROVEEDOR = :ID_PR' + - 'OVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FE' + - 'CHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' ' + - 'FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS,' + - ' '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS =' + - ' :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMACEN, '#10' CALLE' + - ' = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVIN' + - 'CIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO ' + - '= :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_C' + - 'LIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, ' + - #10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO' + - ', '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIB' + - 'LE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPOR' + - 'TE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO'#10' WHERE'#10' (ID = :O' + - 'LD_ID)' + 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' USUARIO = :USU' + + 'ARIO, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :RE' + + 'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_' + + 'ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROV' + + 'EEDOR = :ID_PROVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECH' + + 'A_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFI' + + 'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS =' + + ' :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDEN' + + 'CIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMAC' + + 'EN, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVI' + + 'NCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PER' + + 'SONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ' + + ' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :' + + 'IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENT' + + 'O = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' ' + + ' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORT' + + 'E_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO'#10' WHER' + + 'E'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas index 7dc045c0..c50d6e0c 100644 --- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas @@ -42,9 +42,9 @@ implementation uses Dialogs, {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, - schPedidosProveedorClient_Intf, uRestriccionesUsuarioUtils; - -// uRptPedidosProveedor_Server, uBizPedidosProveedorServer; + schPedidosProveedorClient_Intf, uRestriccionesUsuarioUtils, + uBizPedidosProveedorServer; +// uRptPedidosProveedor_Server, ; { uRORemoteDataModule, fServerForm, Variants, IB, schPedidosProveedorClient_Intf; @@ -73,7 +73,7 @@ end; procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject); begin SessionManager := dmServer.SessionManager; -// bpPedidosProveedor.BusinessRulesID := BIZ_SERVER_PEDIDOS_PROVEEDOR; + bpPedidosProveedor.BusinessRulesID := BIZ_SERVER_PEDIDOS_PROVEEDOR; end; procedure TsrvPedidosProveedor.DataAbstractServiceBeforeAcquireConnection( diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.identcache b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.identcache index 38326ad097d1ec432da8eda3c1ccd0b65f876e3e..c7fdbcaa547e69900b24e7bf9ad234ec927d1725 100644 GIT binary patch delta 38 ucmaFN^_Yv1cXB>c{>1Vt6IqHUuVFkkxu3;lvl254<798f#La3fwu}H7!VKsD delta 46 zcmV+}0MY;B3gZd^4U<6uc9C$@lf?sJleYoJljj0HlOF*Fkw_?$j|4=s!2$#UvnB*R E0j1FpN&o-= diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index e0c921e52b5f16345f5463bee1c139d8686b9c8c..09e53fe668741096859f6972359ce029de9bc96a 100644 GIT binary patch delta 79 zcmZ3pm2t&Z#tnBO7}rd`8zB!Q|3*YJ@=T75RAziJxi+$zIfp@Q^6yAl;bMk|3`q=$ j3@Hrx3_1)742BHmlXatXISm<%7_1nK8B8aqM!5q3ntB+c delta 83 zcmZ3nm2u5h#tnBO7&lD58zB!Q|3*YJ@=cD6RAziNxi+$zIgdeo^6yAl(K3cihE#?k khCCoy%%H=dz+lK=Hd#ALm)nTJh`|cTvtVGDoEYT}0P=ho!vFvP diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 3ff781a7..8dfa5dd7 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -79,9 +79,9 @@ uses 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', - uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas'; + schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index bf24e8a2..04f1d3b0 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,180 +1,184 @@ - + - - {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
+ + + + + + + + + +