From 18f6c1662e486be04f3928d27e8d4e3910291cfc Mon Sep 17 00:00:00 2001 From: david Date: Wed, 7 Jan 2009 09:55:21 +0000 Subject: [PATCH] =?UTF-8?q?Pedidos=20a=20proveedor:=20se=20ha=20mejorado?= =?UTF-8?q?=20la=20recepci=C3=B3n=20de=20un=20pedido=20que=20contiene=20ar?= =?UTF-8?q?t=C3=ADculos=20libres.=20Ahora=20salen=20las=20descripciones=20?= =?UTF-8?q?de=20esos=20art=C3=ADculos=20al=20recibirlos=20y=20cuando=20apa?= =?UTF-8?q?recen=20en=20los=20albaranes=20que=20se=20tienen=20que=20genera?= =?UTF-8?q?r.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@822 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Build/Build.fbp5 | 44 +++++--- Build/Installer.fbp5 | 4 +- Database/scripts/factuges.sql | 40 ++++--- Source/Base/Base.dproj | 102 +++++++++--------- Source/Base/Base.res | Bin 4748 -> 384 bytes Source/GUIBase/uViewDetallesBase.dfm | 2 +- Source/GUIBase/uViewDetallesBase.pas | 22 +--- .../uAlbaranesProveedorController.pas | 10 +- .../Views/uEditorEntradaSalidaArticulos.dfm | 42 ++++---- .../Data/uDataModulePedidosProveedor.dfm | 2 +- .../Model/schPedidosProveedorClient_Intf.pas | 12 +-- .../Model/schPedidosProveedorServer_Intf.pas | 12 +-- .../PedidosProveedor_Group.groupproj | 16 ++- .../Servidor/srvPedidosProveedor_Impl.dfm | 26 ++--- .../uGenerarAlbaranesProvUtils.pas | 70 ------------ Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23208 bytes Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.rc | 2 +- 18 files changed, 188 insertions(+), 224 deletions(-) diff --git a/Build/Build.fbp5 b/Build/Build.fbp5 index ee708843..139edd5e 100644 --- a/Build/Build.fbp5 +++ b/Build/Build.fbp5 @@ -688,7 +688,7 @@ source_path 0 %source_path%\Servidor\FactuGES_Server.dpr True - 6 + 7 rcBorland @@ -703,15 +703,15 @@ source_path True @@ -9871,7 +9871,7 @@ Comments= False False False - False + True True False False @@ -9881,7 +9881,7 @@ Comments= False False False - 3081 + 3082 1 @@ -9905,7 +9905,16 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -13173,7 +13182,7 @@ Comments= False False False - False + True True False False @@ -13183,7 +13192,7 @@ Comments= False False False - 3081 + 3082 1 @@ -13207,7 +13216,16 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - @@ -19246,7 +19264,7 @@ Comments= 0 %source_path%\Cliente\FactuGES.dpr True - 5 + 8 rcBorland @@ -19261,13 +19279,13 @@ Comments= False diff --git a/Build/Installer.fbp5 b/Build/Installer.fbp5 index 6e66e18b..80ec7e29 100644 --- a/Build/Installer.fbp5 +++ b/Build/Installer.fbp5 @@ -1249,7 +1249,7 @@ updateclient_path - False + True True False True @@ -1331,7 +1331,7 @@ updateclient_path 0 - True + False True False Inno5 diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index e7914e6e..55449dfc 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -1348,17 +1348,19 @@ CREATE VIEW V_ALB_PROV_DETALLES( ID_PEDIDO, ID_ALMACEN, ID_ARTICULO, + DESCRIPCION, CANTIDAD) AS SELECT ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN, ALBARANES_PROVEEDOR.ID_PEDIDO, ALBARANES_PROVEEDOR.ID_ALMACEN, COALESCE(ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, 0), + CASE + WHEN ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO IS NULL THEN ALBARANES_PROVEEDOR_DETALLES.CONCEPTO + ELSE NULL + END, SUM (COALESCE(ALBARANES_PROVEEDOR_DETALLES.CANTIDAD, 0)) AS CANTIDAD - -FROM ALBARANES_PROVEEDOR_DETALLES -INNER JOIN ALBARANES_PROVEEDOR -ON (ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID) +FROM ALBARANES_PROVEEDOR_DETALLES INNER JOIN ALBARANES_PROVEEDOR ON (ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID) /*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos LEFT JOIN ARTICULOS @@ -1371,11 +1373,11 @@ AND (ARTICULOS.INVENTARIABLE = 1) GROUP BY ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN, ALBARANES_PROVEEDOR.ID_PEDIDO, ALBARANES_PROVEEDOR.ID_ALMACEN, - ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO + ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, + 5 ; - /* View: V_ALBARANES_CLIENTE */ CREATE VIEW V_ALBARANES_CLIENTE( ID, @@ -2521,14 +2523,14 @@ GROUP BY ID_ALMACEN, CREATE VIEW V_PED_PROV_ARTICULOS_RECIBIDOS( ID_PEDIDO, ID_ARTICULO, + DESCRIPCION, CANTIDAD) AS -SELECT ID_PEDIDO, ID_ARTICULO, SUM(CANTIDAD) AS CANTIDAD +SELECT ID_PEDIDO, ID_ARTICULO, DESCRIPCION, + SUM(CANTIDAD) AS CANTIDAD FROM V_ALB_PROV_DETALLES WHERE (ID_PEDIDO is not null) -GROUP BY ID_PEDIDO, ID_ARTICULO -; - +GROUP BY ID_PEDIDO, ID_ARTICULO, DESCRIPCION; /* View: V_PED_PROV_DETALLES */ @@ -2536,11 +2538,16 @@ CREATE VIEW V_PED_PROV_DETALLES( ID_PEDIDO, ID_ALMACEN, ID_ARTICULO, + DESCRIPCION, CANTIDAD) AS SELECT PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, PEDIDOS_PROVEEDOR.ID_ALMACEN, COALESCE(PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO, 0), + CASE + WHEN PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO IS NULL THEN PEDIDOS_PROVEEDOR_DETALLES.CONCEPTO + ELSE NULL + END, SUM(COALESCE(PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD, 0)) FROM PEDIDOS_PROVEEDOR_DETALLES @@ -2557,8 +2564,8 @@ AND (ARTICULOS.INVENTARIABLE = 1) GROUP BY PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, PEDIDOS_PROVEEDOR.ID_ALMACEN, - PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO -; + PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO, + 4; @@ -2566,12 +2573,14 @@ GROUP BY PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, CREATE VIEW V_PED_PROV_ARTICULOS_AUX( ID_PEDIDO, ID_ARTICULO, + DESCRIPCION, CANTIDAD_PEDIDA, CANTIDAD_RECIBIDA) AS SELECT V_PED_PROV_DETALLES.ID_PEDIDO, V_PED_PROV_DETALLES.ID_ARTICULO, + V_PED_PROV_DETALLES.DESCRIPCION, V_PED_PROV_DETALLES.CANTIDAD AS CANTIDAD_PEDIDA, 0 as CANTIDAD_RECIBIDA FROM V_PED_PROV_DETALLES @@ -2579,17 +2588,18 @@ UNION ALL SELECT V_PED_PROV_ARTICULOS_RECIBIDOS.ID_PEDIDO, V_PED_PROV_ARTICULOS_RECIBIDOS.ID_ARTICULO, + V_PED_PROV_ARTICULOS_RECIBIDOS.DESCRIPCION, NULL as CANTIDAD_PEDIDA, V_PED_PROV_ARTICULOS_RECIBIDOS.CANTIDAD AS CANTIDAD_RECIBIDA FROM V_PED_PROV_ARTICULOS_RECIBIDOS ; - /* View: V_PED_PROV_ARTICULOS */ CREATE VIEW V_PED_PROV_ARTICULOS( ID_PEDIDO, ID_ARTICULO, + DESCRIPCION, CANTIDAD_PEDIDA, CANTIDAD_RECIBIDA, CANTIDAD_PENDIENTE) @@ -2597,6 +2607,7 @@ AS SELECT ID_PEDIDO, /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/ ID_ARTICULO, + DESCRIPCION, SUM(CANTIDAD_PEDIDA) as CANTIDAD_PEDIDA, SUM(CANTIDAD_RECIBIDA) as CANTIDAD_RECIBIDA, SUM(CANTIDAD_PEDIDA) - SUM(CANTIDAD_RECIBIDA) as CANTIDAD_PENDIENTE @@ -2607,7 +2618,8 @@ ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS_AUX.ID_PEDIDO) */ GROUP BY ID_PEDIDO, /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/ - ID_ARTICULO + ID_ARTICULO, + DESCRIPCION HAVING SUM(CANTIDAD_PEDIDA) IS NOT NULL ; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index cefc94c4..9237feb0 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -54,58 +54,58 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm 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/GUIBase/uViewDetallesBase.dfm b/Source/GUIBase/uViewDetallesBase.dfm index b33acca0..e777f6cf 100644 --- a/Source/GUIBase/uViewDetallesBase.dfm +++ b/Source/GUIBase/uViewDetallesBase.dfm @@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase DroppedDownWidth = 145 MaxMRUCount = 0 FontName = 'Tahoma' - ItemIndex = 42 + ItemIndex = 39 Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg] Sorted = True TabOrder = 2 diff --git a/Source/GUIBase/uViewDetallesBase.pas b/Source/GUIBase/uViewDetallesBase.pas index 54cb92a6..f5c16686 100644 --- a/Source/GUIBase/uViewDetallesBase.pas +++ b/Source/GUIBase/uViewDetallesBase.pas @@ -677,6 +677,8 @@ begin TcxMyRichEdit(AEdit)._Grid := _Grid; end; + // Este exit es para que no se genere código RTF para el tamaño de la fuente + // porque luego sale demasiado grande en los informes impresos. Exit; //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// if AEdit is TcxRichEdit then @@ -738,7 +740,6 @@ var begin inherited; - AStyle := NIL; if Assigned(AItem) then begin @@ -748,9 +749,6 @@ begin AStyle := cxStyle_NORMAL_IMPAR; end; - - - if Assigned(ARecord) then begin @@ -765,22 +763,6 @@ begin if ARecord.Values[3] = TIPO_DETALLE_DESCUENTO then AStyle := cxStyle_DESCUENTO; - -{ - ATipo := DarTipoConcepto(ARecord); - - if ATipo = TIPO_DETALLE_TITULO then - AStyle := cxStyle_TITULO; - - if ATipo = TIPO_DETALLE_TITULO_OPCIONAL then - AStyle := cxStyle_TITULO_OPCIONAL; - - if ATipo = TIPO_DETALLE_SUBTOTAL then - AStyle := cxStyle_SUBTOTAL; - - if ATipo = TIPO_DETALLE_DESCUENTO then - AStyle := cxStyle_DESCUENTO; -} end; end; diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas index 42df76f4..f69f7dbb 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas @@ -232,7 +232,15 @@ begin ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO); //Se cambia porque puede haber articulos del pedido que no tengan referencia de proveedor // ADetallesController.AnadirArticulo(ADetalles, AInventarioRecibido.REFERENCIA, tCliente); - ADetallesController.AnadirArticulo(ADetalles, AInventarioRecibido.ID_ARTICULO); + + if AInventarioRecibido.ID_ARTICULO = 0 then + begin + ADetalles.Edit; + ADetalles.CONCEPTO := AInventarioRecibido.DESCRIPCION; + end + else + ADetallesController.AnadirArticulo(ADetalles, AInventarioRecibido.ID_ARTICULO); + ADetalles.Edit; APedido.Detalles.First; diff --git a/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm b/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm index a17a026a..f97e2861 100644 --- a/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm +++ b/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm @@ -12,7 +12,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos inherited JvNavPanelHeader: TJvNavPanelHeader Width = 853 Caption = 'Entrada de art'#237'culos en ' - ExplicitWidth = 773 + ExplicitWidth = 853 inherited Image1: TImage Left = 720 Picture.Data = { @@ -36,12 +36,12 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos end inherited lblDesbloquear: TcxLabel Left = 755 - ExplicitLeft = 675 + ExplicitLeft = 755 end end inherited TBXDock: TTBXDock Width = 853 - ExplicitWidth = 773 + ExplicitWidth = 853 inherited tbxMain: TTBXToolbar ExplicitWidth = 164 object TBXItem7: TTBXItem [16] @@ -69,12 +69,12 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos MultiLine = True Visible = False ExplicitTop = 257 - ExplicitWidth = 767 + ExplicitWidth = 847 ExplicitHeight = 277 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 759 + ExplicitWidth = 839 ExplicitHeight = 249 end end @@ -86,7 +86,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Width = 200 end> ExplicitTop = 537 - ExplicitWidth = 773 + ExplicitWidth = 853 end object ToolBar1: TToolBar [4] AlignWithMargins = True @@ -110,7 +110,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos ShowHint = True TabOrder = 4 Transparent = True - ExplicitWidth = 763 object ToolButton1: TToolButton Left = 0 Top = 0 @@ -143,7 +142,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Top = 76 Width = 853 Height = 146 - ExplicitWidth = 773 object pnlMovimiento: TTBXDockablePanel Left = 0 Top = 89 @@ -214,7 +212,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 Height = 21 - Width = 535 + Width = 1977 end end object pnlEntradaPedido: TTBXDockablePanel @@ -345,22 +343,28 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos TabOrder = 6 ReadOnly = False ExplicitTop = 254 - ExplicitWidth = 773 + ExplicitWidth = 853 ExplicitHeight = 283 inherited cxGrid: TcxGrid Width = 837 Height = 139 - ExplicitWidth = 757 + ExplicitWidth = 837 ExplicitHeight = 139 + inherited cxGridView: TcxGridDBTableView + DataController.KeyFieldNames = 'RecID' + inherited cxGridViewSTOCK: TcxGridDBColumn + Properties.Alignment.Horz = taRightJustify + end + end end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 853 - ExplicitWidth = 773 + ExplicitWidth = 853 inherited TBXDockablePanel1: TTBXDockablePanel - ExplicitWidth = 773 + ExplicitWidth = 853 inherited dxLayoutControl1: TdxLayoutControl Width = 853 - ExplicitWidth = 773 + ExplicitWidth = 853 inherited txtFiltroTodo: TcxTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -392,10 +396,10 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 853 - ExplicitWidth = 773 + ExplicitWidth = 853 inherited tbxBotones: TTBXToolbar Width = 843 - ExplicitWidth = 763 + ExplicitWidth = 843 end end end @@ -403,13 +407,13 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos inherited pnlAgrupaciones: TTBXDockablePanel Top = 257 ExplicitTop = 257 - ExplicitWidth = 773 + ExplicitWidth = 853 inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 853 - ExplicitWidth = 773 + ExplicitWidth = 853 inherited TBXToolbar1: TTBXToolbar Width = 843 - ExplicitWidth = 763 + ExplicitWidth = 843 end end end diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm index 457bd375..a4a30be9 100644 --- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm @@ -362,7 +362,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor Params = < item Name = 'ID' - Value = '' + Value = '41' ParamType = daptInput end> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas index 1568021f..243ca42e 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas @@ -9,9 +9,9 @@ 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_PedidosProveedor = '{8C8CD94B-CD11-495F-A16A-8F3B9BEABA73}'; - RID_PedidosProveedor_Detalles = '{52075C87-DC98-4AD7-AE4B-027415F6B511}'; - RID_PedidosProveedor_Articulos_Pendientes = '{C5807540-7274-400F-8400-28EDB852A39D}'; + RID_PedidosProveedor = '{E2652269-320B-4D43-9416-4F5D0C4E23D6}'; + RID_PedidosProveedor_Detalles = '{C42EB1EF-95E8-4856-8C5D-8E1A612ADBB5}'; + RID_PedidosProveedor_Articulos_Pendientes = '{8D6A57CC-6CD9-4223-93A1-94090350476A}'; { Data table names } nme_PedidosProveedor = 'PedidosProveedor'; @@ -161,7 +161,7 @@ const type { IPedidosProveedor } IPedidosProveedor = interface(IDAStronglyTypedDataTable) - ['{77A2BA43-5DE9-4272-986F-3D3A120352D6}'] + ['{7AAC7427-C170-452F-98E6-7C76C7861CD9}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -688,7 +688,7 @@ type { IPedidosProveedor_Detalles } IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{1688B7AF-8975-402E-B175-13632647A605}'] + ['{63AB74B8-929A-447A-A847-03FCEB7B1654}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -903,7 +903,7 @@ type { IPedidosProveedor_Articulos_Pendientes } IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) - ['{23BF9A89-AD50-447F-9532-E9C5A8AE052B}'] + ['{C271A1BF-757D-4303-99EA-23C238D75AB6}'] { Property getters and setters } function GetID_PEDIDOValue: Integer; procedure SetID_PEDIDOValue(const aValue: Integer); diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas index 4dcee039..21fd011f 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas @@ -9,14 +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_PedidosProveedorDelta = '{92B2043D-D31C-48BF-9253-B9FEEA699B6A}'; - RID_PedidosProveedor_DetallesDelta = '{11A37703-CD98-4D9B-AFE2-BA7D4C9E1B31}'; - RID_PedidosProveedor_Articulos_PendientesDelta = '{A84711B7-4198-47B3-8A46-D337D23E9E96}'; + RID_PedidosProveedorDelta = '{B8E3C26F-6327-4643-9DD8-EAB3D15FDA84}'; + RID_PedidosProveedor_DetallesDelta = '{64AC3126-C520-48D6-9555-5D59ABDCA7E6}'; + RID_PedidosProveedor_Articulos_PendientesDelta = '{6550B049-2DF2-4B23-AD8C-7DD1E6C96A08}'; type { IPedidosProveedorDelta } IPedidosProveedorDelta = interface(IPedidosProveedor) - ['{92B2043D-D31C-48BF-9253-B9FEEA699B6A}'] + ['{B8E3C26F-6327-4643-9DD8-EAB3D15FDA84}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -544,7 +544,7 @@ type { IPedidosProveedor_DetallesDelta } IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) - ['{11A37703-CD98-4D9B-AFE2-BA7D4C9E1B31}'] + ['{64AC3126-C520-48D6-9555-5D59ABDCA7E6}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; @@ -758,7 +758,7 @@ type { IPedidosProveedor_Articulos_PendientesDelta } IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) - ['{A84711B7-4198-47B3-8A46-D337D23E9E96}'] + ['{6550B049-2DF2-4B23-AD8C-7DD1E6C96A08}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; function GetOldREFERENCIAValue : String; diff --git a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj index d7338460..b68f40ef 100644 --- a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj +++ b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj @@ -20,6 +20,7 @@ + @@ -241,14 +242,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm index 1ff9c136..6dff820f 100644 --- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm @@ -618,26 +618,26 @@ object srvPedidosProveedor: TsrvPedidosProveedor Params = < item Name = 'ID' - Value = '' + Value = '41' ParamType = daptInput end> Statements = < item Connection = 'IBX' SQL = - 'select V_PED_PROV_ARTICULOS.ID_PEDIDO,'#10' ARTICULOS.REFERENC' + + 'SELECT V_PED_PROV_ARTICULOS.ID_PEDIDO,'#10' ARTICULOS.REFERENC' + 'IA,'#10' V_PED_PROV_ARTICULOS.ID_ARTICULO,'#10' COALESCE(ART' + - 'ICULOS.DESCRIPCION, '#39'"Articulos no dados de alta en la aplicaci'#243 + - 'n"'#39' ) as CONCEPTO,'#10' V_PED_PROV_ARTICULOS.CANTIDAD_PENDIEN' + - 'TE as CANTIDAD,'#10' ARTICULOS_PROVEEDORES.REFERENCIA_PROV as ' + - 'REFERENCIA_PROVEEDOR'#10#10'FROM V_PED_PROV_ARTICULOS'#10'LEFT JOIN ARTICU' + - 'LOS ON (ARTICULOS.ID = V_PED_PROV_ARTICULOS.ID_ARTICULO)'#10'LEFT JO' + - 'IN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTIC' + - 'ULOS.ID_PEDIDO)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_P' + - 'ROVEEDORES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORE' + - 'S.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE (V_PED_P' + - 'ROV_ARTICULOS.CANTIDAD_PENDIENTE <> 0)'#10'AND (V_PED_PROV_ARTICULOS' + - '.ID_PEDIDO = :ID)'#10 + 'ICULOS.DESCRIPCION, V_PED_PROV_ARTICULOS.DESCRIPCION) as CONCEPT' + + 'O,'#10' V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE as CANTIDAD,'#10' ' + + ' ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERENCIA_PROVEE' + + 'DOR'#10'FROM V_PED_PROV_ARTICULOS'#10' LEFT JOIN ARTICULOS ON (ARTIC' + + 'ULOS.ID = V_PED_PROV_ARTICULOS.ID_ARTICULO)'#10' LEFT JOIN PEDID' + + 'OS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS.ID_' + + 'PEDIDO)'#10' LEFT JOIN ARTICULOS_PROVEEDORES ON'#10' ((ARTICU' + + 'LOS_PROVEEDORES.ID_ARTICULO = ARTICULOS.ID) AND'#10' (ARTICU' + + 'LOS_PROVEEDORES.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10 + + 'WHERE (V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE <> 0)'#10' AND (V_PE' + + 'D_PROV_ARTICULOS.ID_PEDIDO = :ID)'#10 StatementType = stSQL ColumnMappings = < item diff --git a/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/uGenerarAlbaranesProvUtils.pas b/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/uGenerarAlbaranesProvUtils.pas index 1e4e4182..3031a41e 100644 --- a/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/uGenerarAlbaranesProvUtils.pas +++ b/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/uGenerarAlbaranesProvUtils.pas @@ -1,72 +1,3 @@ -{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1} -{$MINSTACKSIZE $00004000} -{$MAXSTACKSIZE $00100000} -{$IMAGEBASE $00400000} -{$APPTYPE GUI} -{$WARN SYMBOL_DEPRECATED ON} -{$WARN SYMBOL_LIBRARY ON} -{$WARN SYMBOL_PLATFORM ON} -{$WARN SYMBOL_EXPERIMENTAL ON} -{$WARN UNIT_LIBRARY ON} -{$WARN UNIT_PLATFORM ON} -{$WARN UNIT_DEPRECATED ON} -{$WARN UNIT_EXPERIMENTAL ON} -{$WARN HRESULT_COMPAT ON} -{$WARN HIDING_MEMBER ON} -{$WARN HIDDEN_VIRTUAL ON} -{$WARN GARBAGE ON} -{$WARN BOUNDS_ERROR ON} -{$WARN ZERO_NIL_COMPAT ON} -{$WARN STRING_CONST_TRUNCED ON} -{$WARN FOR_LOOP_VAR_VARPAR ON} -{$WARN TYPED_CONST_VARPAR ON} -{$WARN ASG_TO_TYPED_CONST ON} -{$WARN CASE_LABEL_RANGE ON} -{$WARN FOR_VARIABLE ON} -{$WARN CONSTRUCTING_ABSTRACT ON} -{$WARN COMPARISON_FALSE ON} -{$WARN COMPARISON_TRUE ON} -{$WARN COMPARING_SIGNED_UNSIGNED ON} -{$WARN COMBINING_SIGNED_UNSIGNED ON} -{$WARN UNSUPPORTED_CONSTRUCT ON} -{$WARN FILE_OPEN ON} -{$WARN FILE_OPEN_UNITSRC ON} -{$WARN BAD_GLOBAL_SYMBOL ON} -{$WARN DUPLICATE_CTOR_DTOR ON} -{$WARN INVALID_DIRECTIVE ON} -{$WARN PACKAGE_NO_LINK ON} -{$WARN PACKAGED_THREADVAR ON} -{$WARN IMPLICIT_IMPORT ON} -{$WARN HPPEMIT_IGNORED ON} -{$WARN NO_RETVAL ON} -{$WARN USE_BEFORE_DEF ON} -{$WARN FOR_LOOP_VAR_UNDEF ON} -{$WARN UNIT_NAME_MISMATCH ON} -{$WARN NO_CFG_FILE_FOUND ON} -{$WARN IMPLICIT_VARIANTS ON} -{$WARN UNICODE_TO_LOCALE ON} -{$WARN LOCALE_TO_UNICODE ON} -{$WARN IMAGEBASE_MULTIPLE ON} -{$WARN SUSPICIOUS_TYPECAST ON} -{$WARN PRIVATE_PROPACCESSOR ON} -{$WARN UNSAFE_TYPE OFF} -{$WARN UNSAFE_CODE OFF} -{$WARN UNSAFE_CAST OFF} -{$WARN OPTION_TRUNCATED ON} -{$WARN WIDECHAR_REDUCED ON} -{$WARN DUPLICATES_IGNORED ON} -{$WARN UNIT_INIT_SEQ ON} -{$WARN LOCAL_PINVOKE ON} -{$WARN MESSAGE_DIRECTIVE ON} -{$WARN TYPEINFO_IMPLICITLY_ADDED ON} -{$WARN XML_WHITESPACE_NOT_ALLOWED ON} -{$WARN XML_UNKNOWN_ENTITY ON} -{$WARN XML_INVALID_NAME_START ON} -{$WARN XML_INVALID_NAME ON} -{$WARN XML_EXPECTED_CHARACTER ON} -{$WARN XML_CREF_NO_RESOLVE ON} -{$WARN XML_NO_PARM ON} -{$WARN XML_NO_MATCHING_PARM ON} unit uGenerarAlbaranesProvUtils; interface @@ -360,7 +291,6 @@ begin end else begin try - // En AInventarioRecibido tenemos la lista de articulos que hemos recibido y // que utilizaremos para hacer el albarán AArticulosPendientes := ADetallesPedidosProveedorController.ArticulosPendientes(APedido.ID); diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 3182e41f69c65003ecc5f8b3bed5cc53ea33d1e9..d5e031a76f67bb353f57655ffc59cbdf3fd85179 100644 GIT binary patch delta 83 zcmZ3nm2t&Z#tjltuDJ}E3@;gq7?K(C8FCm>8HyQn7!()`7|elW3Xrb=#Cbqm1eAw~ W7y;!C7%YK&Lm+L%U@$p0${PSMlMs{u delta 83 zcmZ3nm2t&Z#tjltt~m^)40#Nx48;sO3