From 5beea7b2b57f05295cfc6d99b429a2b78cc3b21c Mon Sep 17 00:00:00 2001 From: david Date: Thu, 27 Nov 2008 17:05:17 +0000 Subject: [PATCH] * Ticket #166 -> Arreglo en informes y repaso git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@786 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.dproj | 102 +++++++++--------- Source/Base/Base.res | Bin 384 -> 4748 bytes .../Reports/uRptPedidosProveedor_Server.dfm | 29 ++--- .../Reports/uRptWordPedidoProveedor.dfm | 30 +++--- .../uViewDatosYSeleccionProveedorPedido.pas | 16 ++- 5 files changed, 94 insertions(+), 83 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 1257efdb..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 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/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm index 39794fe5..af4462cc 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm @@ -168,20 +168,21 @@ object RptPedidosProveedor: TRptPedidosProveedor 'SELECT'#10' PEDIDOS_PROVEEDOR.ID,'#10' PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' + ' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' + #10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.OBSERVAC' + - 'IONES,'#10' CONTACTOS.NOMBRE,'#10' CONTACTOS.FAX,'#10' CONTACTOS.PERSONA_' + - 'CONTACTO,'#10' PROVEEDORES_DATOS.CODIGO_ASIGNADO AS CODIGO_CLIENTE,' + - #10' PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' COALESCE(ALMACENES.CALLE, PED' + - 'IDOS_PROVEEDOR.CALLE) AS CALLE,'#10' COALESCE(ALMACENES.POBLACION, ' + - 'PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION,'#10' COALESCE(ALMACENES.' + - 'PROVINCIA, PEDIDOS_PROVEEDOR.PROVINCIA) AS PROVINCIA,'#10' COALESCE' + - '(ALMACENES.CODIGO_POSTAL, PEDIDOS_PROVEEDOR.CODIGO_POSTAL) AS CO' + - 'DIGO_POSTAL,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO AS ENTREGAR_A,' + - #10' PEDIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10' PEDIDOS_PROVEEDOR'#10' IN' + - 'NER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVE' + - 'EDOR)'#10' LEFT OUTER JOIN PROVEEDORES_DATOS ON (PROVEEDORES_DATOS.' + - 'ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN' + - ' ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHER' + - 'E PEDIDOS_PROVEEDOR.ID = :ID'#10#10#10#10 + 'IONES,'#10' CONTACTOS.NOMBRE,'#10' CONTACTOS.FAX,'#10' PEDIDOS_PROVEEDOR.' + + 'PERSONA_CONTACTO_PROV AS PERSONA_CONTACTO,'#10' PROVEEDORES_DATOS.C' + + 'ODIGO_ASIGNADO AS CODIGO_CLIENTE,'#10' PEDIDOS_PROVEEDOR.ID_ALMACEN' + + ','#10' COALESCE(ALMACENES.CALLE, PEDIDOS_PROVEEDOR.CALLE) AS CALLE,' + + #10' COALESCE(ALMACENES.POBLACION, PEDIDOS_PROVEEDOR.POBLACION) AS' + + ' POBLACION,'#10' COALESCE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PR' + + 'OVINCIA) AS PROVINCIA,'#10' COALESCE(ALMACENES.CODIGO_POSTAL, PEDID' + + 'OS_PROVEEDOR.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10' PEDIDOS_PROVEEDO' + + 'R.PERSONA_CONTACTO AS ENTREGAR_A,'#10' PEDIDOS_PROVEEDOR.IMPORTE_TO' + + 'TAL'#10'FROM'#10' PEDIDOS_PROVEEDOR'#10' INNER JOIN CONTACTOS ON (CONTACTO' + + 'S.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN PROVEED' + + 'ORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = PEDIDOS_PROVEEDO' + + 'R.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = P' + + 'EDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10#10#10 + + #10 StatementType = stSQL ColumnMappings = < item diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm index 5f4a930c..2f0aa978 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm @@ -22,21 +22,21 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor 'SELECT'#10' PEDIDOS_PROVEEDOR.ID,'#10' PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' + ' PEDIDOS_PROVEEDOR.REFERENCIA,'#10' PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' + #10' PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' PEDIDOS_PROVEEDOR.OBSERVAC' + - 'IONES,'#10' CONTACTOS.NOMBRE,'#10' CONTACTOS.FAX,'#10' CONTACTOS.PERSONA_' + - 'CONTACTO,'#10' PROVEEDORES_DATOS.CODIGO_ASIGNADO AS CODIGO_CLIENTE,' + - #10' PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10' COALESCE(ALMACENES.CALLE, PED' + - 'IDOS_PROVEEDOR.CALLE) AS CALLE_ALMACEN,'#10' COALESCE(ALMACENES.POB' + - 'LACION, PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION_ALMACEN,'#10' COA' + - 'LESCE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PROVINCIA) AS PROVI' + - 'NCIA_ALMACEN,'#10' COALESCE(ALMACENES.CODIGO_POSTAL, PEDIDOS_PROVEE' + - 'DOR.CODIGO_POSTAL) AS CODIGO_POSTAL_ALMACEN,'#10' PEDIDOS_PROVEEDOR' + - '.PERSONA_CONTACTO AS PERSONA_CONTACTO_ALMACEN,'#10' PEDIDOS_PROVEED' + - 'OR.IMPORTE_TOTAL'#10'FROM'#10' PEDIDOS_PROVEEDOR'#10' INNER JOIN CONTACTOS' + - ' ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER' + - ' JOIN PROVEEDORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = PED' + - 'IDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENES ON (ALM' + - 'ACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PROVEEDO' + - 'R.ID = :ID'#10#10#10#10#10 + 'IONES,'#10' CONTACTOS.NOMBRE,'#10' CONTACTOS.FAX,'#10' PEDIDOS_PROVEEDOR.' + + 'PERSONA_CONTACTO_PROV AS PERSONA_CONTACTO,'#10' PROVEEDORES_DATOS.C' + + 'ODIGO_ASIGNADO AS CODIGO_CLIENTE,'#10' PEDIDOS_PROVEEDOR.ID_ALMACEN' + + ','#10' COALESCE(ALMACENES.CALLE, PEDIDOS_PROVEEDOR.CALLE) AS CALLE_' + + 'ALMACEN,'#10' COALESCE(ALMACENES.POBLACION, PEDIDOS_PROVEEDOR.POBLA' + + 'CION) AS POBLACION_ALMACEN,'#10' COALESCE(ALMACENES.PROVINCIA, PEDI' + + 'DOS_PROVEEDOR.PROVINCIA) AS PROVINCIA_ALMACEN,'#10' COALESCE(ALMACE' + + 'NES.CODIGO_POSTAL, PEDIDOS_PROVEEDOR.CODIGO_POSTAL) AS CODIGO_PO' + + 'STAL_ALMACEN,'#10' PEDIDOS_PROVEEDOR.PERSONA_CONTACTO AS PERSONA_CO' + + 'NTACTO_ALMACEN,'#10' PEDIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10' PEDIDOS' + + '_PROVEEDOR'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PRO' + + 'VEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN PROVEEDORES_DATOS ON (PRO' + + 'VEEDORES_DATOS.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' ' + + 'LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.I' + + 'D_ALMACEN)'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10#10#10#10#10 StatementType = stSQL ColumnMappings = < item diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas index e75fc78e..b99d20c5 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas @@ -261,8 +261,9 @@ begin else begin FPedido.ID_DIRECCION := FDireccion.ID; FPedido.IMPORTE_PORTE := FDireccion.PORTE; - FPedido.PERSONA_CONTACTO_PROV := FDireccion.PERSONA_CONTACTO; end; + FPedido.PERSONA_CONTACTO_PROV := FDireccion.PERSONA_CONTACTO; + EscribirTextoDireccion; end; end; @@ -318,7 +319,14 @@ begin FProveedor.DataTable.Active := True; edtPersonaContacto.Enabled := True; - RefrescarDireccion; + + if FProveedor.Direcciones.RecordCount > 0 then + ElegirDireccionProveedor + else begin + FPedido.Edit; + FPedido.PERSONA_CONTACTO_PROV := FProveedor.PERSONA_CONTACTO; + RefrescarDireccion; + end; end else begin dsProveedor.DataTable := NIL; @@ -379,6 +387,7 @@ begin if not FProveedor.DataTable.Active then FProveedor.DataTable.Active := True; + edtPersonaContacto.Enabled := True; RefrescarDireccion; end else begin @@ -394,9 +403,10 @@ begin if (csLoading in Self.ComponentState) then Exit; - + actAnadirContacto.Enabled := not ReadOnly; actElegirContacto.Enabled := not ReadOnly; + edtPersonaContacto.Enabled := not ReadOnly; end; procedure TfrViewDatosYSeleccionProveedorPedido.VerFichaProveedor;