From c7e8b89e4193a22287ac3606857caad48fc92f74 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 31 Oct 2008 12:59:36 +0000 Subject: [PATCH] =?UTF-8?q?Se=20adapta=20el=20envio=20de=20correos=20autom?= =?UTF-8?q?=C3=A1tico=20a=20todos=20los=20m=C3=B3dulos?= 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.LuisLeon_FactuGES/trunk@299 c93665c3-c93d-084d-9b98-7d5f4a9c3376 --- Database/VISTAS.SQL | 332 ++++++++++-------- Source/Base/Base.res | Bin 384 -> 4748 bytes Source/Base/GUIBase/GUIBase.res | Bin 4748 -> 384 bytes Source/Iconos/Generales/16x16/Thumbs.db | Bin 82432 -> 84992 bytes .../AlbaranesCliente_Group.bdsgroup | 5 +- .../uAlbaranesClienteController.pas | 36 +- .../Data/AlbaranesCliente_data.bdsproj | 2 +- .../Data/uDataModuleAlbaranesCliente.dfm | 11 + .../Model/schAlbaranesClienteClient_Intf.pas | 56 ++- .../Model/schAlbaranesClienteServer_Intf.pas | 64 +++- .../Servidor/srvAlbaranesCliente_Impl.dfm | 37 +- .../Views/uViewAlbaranesCliente.dfm | 102 +++++- .../Views/uViewAlbaranesCliente.pas | 50 ++- .../AlbaranesProveedor_Group.bdsgroup | 9 +- .../uAlbaranesProveedorController.pas | 36 +- .../Data/uDataModuleAlbaranesProveedor.dfm | 11 + .../schAlbaranesProveedorClient_Intf.pas | 56 ++- .../schAlbaranesProveedorServer_Intf.pas | 64 +++- .../Servidor/srvAlbaranesProveedor_Impl.dfm | 53 ++- .../Views/uEditorElegirAlbaranesProveedor.dfm | 31 +- .../Views/uViewAlbaranesProveedor.dfm | 108 +++++- .../Views/uViewAlbaranesProveedor.pas | 47 ++- .../Model/schFacturasClienteClient_Intf.pas | 40 ++- .../Model/schFacturasClienteServer_Intf.pas | 42 ++- .../Servidor/srvFacturasCliente_Impl.dfm | 19 +- .../Views/uViewFacturasCliente.dfm | 23 +- .../Views/uViewFacturasCliente.pas | 20 -- .../FacturasProveedor_controller.bdsproj | 2 +- .../FacturasProveedor_controller.dpk | 3 +- .../uIDialogListaFacturasProvEnvioEMail.pas | 21 ++ .../uFacturasProveedorController.pas | 162 ++++++++- .../uFacturasProveedorReportController.pas | 27 +- .../Data/FacturasProveedor_data.bdsproj | 2 +- .../Data/uDataModuleFacturasProveedor.dfm | 11 + .../Data/uDataModuleFacturasProveedor.pas | 16 + .../FacturasProveedor_Group.bdsgroup | 15 +- .../uIDataModuleFacturasProveedorReport.pas | 1 + .../Model/schFacturasProveedorClient_Intf.pas | 60 +++- .../Model/schFacturasProveedorServer_Intf.pas | 64 +++- .../Servidor/srvFacturasProveedor_Impl.dfm | 38 +- .../Views/FacturasProveedor_view.bdsproj | 2 +- .../Views/FacturasProveedor_view.dpk | 6 +- .../uDialogListaFacturasProvEnvioEMail.dfm | 89 +++++ .../uDialogListaFacturasProvEnvioEMail.pas | 158 +++++++++ .../Views/uEditorFacturasProveedor.dfm | 16 +- .../Views/uEditorFacturasProveedor.pas | 40 ++- .../Views/uFacturasProveedorViewRegister.pas | 5 +- .../Views/uViewFacturasProveedor.dfm | 100 +++++- .../Views/uViewFacturasProveedor.pas | 47 ++- .../uPedidosProveedorController.pas | 37 +- .../Data/uDataModulePedidosProveedor.dfm | 11 + .../Model/schPedidosProveedorClient_Intf.pas | 60 +++- .../Model/schPedidosProveedorServer_Intf.pas | 68 +++- .../PedidosProveedor_Group.bdsgroup | 3 +- .../Servidor/srvPedidosProveedor_Impl.dfm | 37 +- .../Views/uEditorElegirPedidosProveedor.dfm | 17 +- .../Views/uViewPedidosProveedor.dfm | 108 +++++- .../Views/uViewPedidosProveedor.pas | 49 ++- .../Controller/uPedidosClienteController.pas | 37 +- .../Data/uDataModulePedidosCliente.dfm | 11 + .../Model/schPedidosClienteClient_Intf.pas | 64 +++- .../Model/schPedidosClienteServer_Intf.pas | 72 +++- .../Servidor/srvPedidosCliente_Impl.dfm | 35 +- .../Views/uViewPedidosCliente.dfm | 102 +++++- .../Views/uViewPedidosCliente.pas | 49 ++- .../Controller/uRecibosClienteController.pas | 42 ++- .../Data/uDataModuleRecibosCliente.dfm | 11 + .../Data/uDataModuleRecibosCliente.pas | 2 +- .../Model/schRecibosClienteClient_Intf.pas | 52 ++- .../Model/schRecibosClienteServer_Intf.pas | 60 +++- .../Reports/uRptRecibosCliente_Server.dfm | 14 + .../Reports/uRptRecibosCliente_Server.pas | 22 +- .../Servidor/srvRecibosCliente_Impl.dfm | 35 +- .../Servidor/srvRecibosCliente_Impl.pas | 14 + .../Views/uViewRecibosCliente.dfm | 102 +++++- .../Views/uViewRecibosCliente.pas | 47 ++- Source/Servicios/FactuGES.RODL | 10 + Source/Servicios/FactuGES_Intf.pas | 27 ++ Source/Servicios/FactuGES_Invk.pas | 32 ++ Source/Servicios/RODLFILE.res | Bin 31586 -> 31939 bytes Source/Servidor/FactuGES_Server.bdsproj | 11 +- Source/Servidor/FactuGES_Server.dpr | 26 +- Source/Servidor/FactuGES_Server.drc | 202 +++++------ Source/Servidor/FactuGES_Server.rc | 2 +- Source/Servidor/FactuGES_Server.res | Bin 23348 -> 23344 bytes Source/Servidor/uDataModuleServer.dfm | 6 +- 86 files changed, 3005 insertions(+), 611 deletions(-) create mode 100644 Source/Modulos/Facturas de proveedor/Controller/View/uIDialogListaFacturasProvEnvioEMail.pas create mode 100644 Source/Modulos/Facturas de proveedor/Views/uDialogListaFacturasProvEnvioEMail.dfm create mode 100644 Source/Modulos/Facturas de proveedor/Views/uDialogListaFacturasProvEnvioEMail.pas diff --git a/Database/VISTAS.SQL b/Database/VISTAS.SQL index a0c36c47..33de6d16 100644 --- a/Database/VISTAS.SQL +++ b/Database/VISTAS.SQL @@ -352,7 +352,8 @@ CREATE VIEW V_ALBARANES_PROVEEDOR( FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, - NUM_COPIAS) + NUM_COPIAS, + NUM_CORREOS) AS SELECT ALBARANES_PROVEEDOR.ID, @@ -395,7 +396,8 @@ SELECT ALBARANES_PROVEEDOR.FECHA_MODIFICACION, ALBARANES_PROVEEDOR.USUARIO, ALBARANES_PROVEEDOR.ID_FORMA_PAGO, - IMPRESIONES.NUM_COPIAS + IMPRESIONES.NUM_COPIAS, + REGISTRO_CORREOS.NUM_CORREOS FROM ALBARANES_PROVEEDOR INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR) @@ -404,7 +406,11 @@ FROM LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO) LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA) LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN) - LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR')); + LEFT JOIN IMPRESIONES + ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR')) + LEFT JOIN REGISTRO_CORREOS + ON ((REGISTRO_CORREOS.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (REGISTRO_CORREOS.TABLA = 'ALBARANESPROVEEDOR')) +; CREATE VIEW V_AGENTES( @@ -609,37 +615,38 @@ group by ID_RECIBO_COMPENSADO; CREATE VIEW V_RECIBOS_CLIENTE( -ID, -ID_RECIBO_COMPENSADO, -REFERENCIA_REC_COMPENSADO, -REFERENCIA, -SITUACION, -ID_FACTURA, -ID_REMESA, -REFERENCIA_REMESA, -FECHA_EMISION, -FECHA_VENCIMIENTO, -DESCRIPCION, -OBSERVACIONES, -IMPORTE, -OTROS_GASTOS, -IMPORTE_TOTAL, -FECHA_FACTURA, -FORMA_PAGO_FACTURA, -IMPORTE_FACTURA, -ID_EMPRESA, -ID_CLIENTE, -NOMBRE_CLIENTE, -NIF_CIF_CLIENTE, -ENTIDAD_CLIENTE, -SUCURSAL_CLIENTE, -DC_CLIENTE, -CUENTA_CLIENTE, -FECHA_ALTA, -FECHA_MODIFICACION, -USUARIO, -NUM_COPIAS) - AS + ID, + ID_RECIBO_COMPENSADO, + REFERENCIA_REC_COMPENSADO, + REFERENCIA, + SITUACION, + ID_FACTURA, + ID_REMESA, + REFERENCIA_REMESA, + FECHA_EMISION, + FECHA_VENCIMIENTO, + DESCRIPCION, + OBSERVACIONES, + IMPORTE, + OTROS_GASTOS, + IMPORTE_TOTAL, + FECHA_FACTURA, + FORMA_PAGO_FACTURA, + IMPORTE_FACTURA, + ID_EMPRESA, + ID_CLIENTE, + NOMBRE_CLIENTE, + NIF_CIF_CLIENTE, + ENTIDAD_CLIENTE, + SUCURSAL_CLIENTE, + DC_CLIENTE, + CUENTA_CLIENTE, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + NUM_COPIAS, + NUM_CORREOS) +AS SELECT RECIBOS_CLIENTE.ID, RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO, RECIBO_COMPENSADO1.REFERENCIA, @@ -664,7 +671,8 @@ SELECT RECIBOS_CLIENTE.ID, RECIBOS_CLIENTE.FECHA_ALTA, RECIBOS_CLIENTE.FECHA_MODIFICACION, RECIBOS_CLIENTE.USUARIO, - IMPRESIONES.NUM_COPIAS + IMPRESIONES.NUM_COPIAS, + REGISTRO_CORREOS.NUM_CORREOS FROM RECIBOS_CLIENTE LEFT JOIN V_REC_CLI_SITUACION @@ -685,7 +693,11 @@ LEFT JOIN RECIBOS_CLIENTE RECIBO_COMPENSADO1 ON (RECIBO_COMPENSADO1.ID = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO) LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2 ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO) -LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = RECIBOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'RECIBOSCLIENTE')); +LEFT JOIN IMPRESIONES +ON ((IMPRESIONES.ID_TABLA = RECIBOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'RECIBOSCLIENTE')) +LEFT JOIN REGISTRO_CORREOS +ON ((REGISTRO_CORREOS.ID_TABLA = RECIBOS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'RECIBOSCLIENTE')) +; @@ -809,39 +821,40 @@ GROUP BY ID_FACTURA; CREATE VIEW V_FACTURAS_PROVEEDOR( -ID, -ID_EMPRESA, -REFERENCIA, -TIPO, -REFERENCIA_PROVEEDOR, -FECHA_FACTURA, -SITUACION, -BASE_IMPONIBLE, -DESCUENTO, -IMPORTE_DESCUENTO, -IVA, -IMPORTE_IVA, -RE, -IMPORTE_RE, -IMPORTE_TOTAL, -OBSERVACIONES, -ID_PROVEEDOR, -NIF_CIF, -NOMBRE, -CALLE, -POBLACION, -PROVINCIA, -CODIGO_POSTAL, -FECHA_ALTA, -FECHA_MODIFICACION, -USUARIO, -ID_FORMA_PAGO, -RECARGO_EQUIVALENCIA, -ID_TIPO_IVA, -IMPORTE_NETO, -IMPORTE_PORTE, -NUM_COPIAS) - AS + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + REFERENCIA_PROVEEDOR, + FECHA_FACTURA, + SITUACION, + BASE_IMPONIBLE, + DESCUENTO, + IMPORTE_DESCUENTO, + IVA, + IMPORTE_IVA, + RE, + IMPORTE_RE, + IMPORTE_TOTAL, + OBSERVACIONES, + ID_PROVEEDOR, + NIF_CIF, + NOMBRE, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_FORMA_PAGO, + RECARGO_EQUIVALENCIA, + ID_TIPO_IVA, + IMPORTE_NETO, + IMPORTE_PORTE, + NUM_COPIAS, + NUM_CORREOS) +AS SELECT FACTURAS_PROVEEDOR.ID, FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.REFERENCIA, @@ -873,15 +886,18 @@ SELECT FACTURAS_PROVEEDOR.ID, FACTURAS_PROVEEDOR.ID_TIPO_IVA, FACTURAS_PROVEEDOR.IMPORTE_NETO, FACTURAS_PROVEEDOR.IMPORTE_PORTE, - IMPRESIONES.NUM_COPIAS + IMPRESIONES.NUM_COPIAS, + REGISTRO_CORREOS.NUM_CORREOS FROM V_FAC_PRO_SITUACION LEFT JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA) LEFT JOIN PROVEEDORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR) LEFT JOIN IMPRESIONES - ON ((IMPRESIONES.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'FACTURASPROVEEDOR')); - + ON ((IMPRESIONES.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'FACTURASPROVEEDOR')) + LEFT JOIN REGISTRO_CORREOS + ON ((REGISTRO_CORREOS.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (REGISTRO_CORREOS.TABLA = 'FACTURASPROVEEDOR')) +; CREATE VIEW V_FACTURAS_CLIENTE( @@ -1071,7 +1087,8 @@ CREATE VIEW V_ALBARANES_CLIENTE( FECHA_RECEPCION, ID_AGENTE, AGENTE, - NUM_COPIAS) + NUM_COPIAS, + NUM_CORREOS) AS SELECT ALBARANES_CLIENTE.ID, @@ -1119,7 +1136,8 @@ SELECT ALBARANES_CLIENTE.FECHA_RECEPCION, CLIENTES_DATOS.ID_AGENTE, AGENTES.NOMBRE, - IMPRESIONES.NUM_COPIAS + IMPRESIONES.NUM_COPIAS, + REGISTRO_CORREOS.NUM_CORREOS FROM ALBARANES_CLIENTE @@ -1132,7 +1150,10 @@ FROM LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO) LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA) LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN) - LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE')) + LEFT JOIN IMPRESIONES + ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE')) + LEFT JOIN REGISTRO_CORREOS + ON ((REGISTRO_CORREOS.ID_TABLA = ALBARANES_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'ALBARANESCLIENTE')) ; @@ -1703,39 +1724,40 @@ group by id_pedido CREATE VIEW V_PEDIDOS_CLIENTE( -ID, -ID_EMPRESA, -ID_CLIENTE, -NOMBRE, -REFERENCIA, -REFERENCIA_CLIENTE, -SITUACION, -FECHA_PEDIDO, -CALLE, -CODIGO_POSTAL, -POBLACION, -PROVINCIA, -PERSONA_CONTACTO, -TELEFONO, -OBSERVACIONES, -INCIDENCIAS, -INCIDENCIAS_ACTIVAS, -FECHA_ALTA, -FECHA_MODIFICACION, -USUARIO, -IMPORTE_NETO, -IMPORTE_PORTE, -DESCUENTO, -IMPORTE_DESCUENTO, -BASE_IMPONIBLE, -IVA, -IMPORTE_IVA, -IMPORTE_TOTAL, -ID_FORMA_PAGO, -REF_TIENDA_WEB, -FECHA_PREVISTA_ENVIO, -NUM_COPIAS) - AS + ID, + ID_EMPRESA, + ID_CLIENTE, + NOMBRE, + REFERENCIA, + REFERENCIA_CLIENTE, + SITUACION, + FECHA_PEDIDO, + CALLE, + CODIGO_POSTAL, + POBLACION, + PROVINCIA, + PERSONA_CONTACTO, + TELEFONO, + OBSERVACIONES, + INCIDENCIAS, + INCIDENCIAS_ACTIVAS, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + IMPORTE_NETO, + IMPORTE_PORTE, + DESCUENTO, + IMPORTE_DESCUENTO, + BASE_IMPONIBLE, + IVA, + IMPORTE_IVA, + IMPORTE_TOTAL, + ID_FORMA_PAGO, + REF_TIENDA_WEB, + FECHA_PREVISTA_ENVIO, + NUM_COPIAS, + NUM_CORREOS) +AS SELECT PEDIDOS_CLIENTE.ID, PEDIDOS_CLIENTE.ID_EMPRESA, @@ -1768,52 +1790,58 @@ SELECT PEDIDOS_CLIENTE.ID_FORMA_PAGO, PEDIDOS_CLIENTE.REF_TIENDA_WEB, PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO, - IMPRESIONES.NUM_COPIAS + IMPRESIONES.NUM_COPIAS, + REGISTRO_CORREOS.NUM_CORREOS FROM V_PED_CLI_SITUACION INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO) INNER JOIN V_CLIENTES ON (PEDIDOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID) - LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE')); + LEFT JOIN IMPRESIONES + ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE')) + LEFT JOIN REGISTRO_CORREOS + ON ((REGISTRO_CORREOS.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'PEDIDOSCLIENTE')) +; CREATE VIEW V_PEDIDOS_PROVEEDOR( -ID, -ID_EMPRESA, -ID_PROVEEDOR, -NOMBRE, -REFERENCIA, -SITUACION, -FECHA_ENVIO, -FECHA_PEDIDO, -FECHA_CONFIRMACION, -FECHA_ENTREGA, -ID_ALMACEN, -NOMBRE_ALMACEN, -OBSERVACIONES, -IMPORTE_TOTAL, -INCIDENCIAS, -INCIDENCIAS_ACTIVAS, -CALLE, -POBLACION, -PROVINCIA, -CODIGO_POSTAL, -PERSONA_CONTACTO, -TELEFONO, -FECHA_ALTA, -FECHA_MODIFICACION, -USUARIO, -ID_PEDIDO_CLIENTE, -REF_PED_CLIENTE, -IMPORTE_NETO, -IMPORTE_PORTE, -DESCUENTO, -IMPORTE_DESCUENTO, -BASE_IMPONIBLE, -IVA, -IMPORTE_IVA, -ID_FORMA_PAGO, -NUM_COPIAS) - AS + ID, + ID_EMPRESA, + ID_PROVEEDOR, + NOMBRE, + REFERENCIA, + SITUACION, + FECHA_ENVIO, + FECHA_PEDIDO, + FECHA_CONFIRMACION, + FECHA_ENTREGA, + ID_ALMACEN, + NOMBRE_ALMACEN, + OBSERVACIONES, + IMPORTE_TOTAL, + INCIDENCIAS, + INCIDENCIAS_ACTIVAS, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + PERSONA_CONTACTO, + TELEFONO, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_PEDIDO_CLIENTE, + REF_PED_CLIENTE, + IMPORTE_NETO, + IMPORTE_PORTE, + DESCUENTO, + IMPORTE_DESCUENTO, + BASE_IMPONIBLE, + IVA, + IMPORTE_IVA, + ID_FORMA_PAGO, + NUM_COPIAS, + NUM_CORREOS) +AS SELECT PEDIDOS_PROVEEDOR.ID, PEDIDOS_PROVEEDOR.ID_EMPRESA, @@ -1850,15 +1878,19 @@ SELECT PEDIDOS_PROVEEDOR.IVA, PEDIDOS_PROVEEDOR.IMPORTE_IVA, PEDIDOS_PROVEEDOR.ID_FORMA_PAGO, - IMPRESIONES.NUM_COPIAS + IMPRESIONES.NUM_COPIAS, + REGISTRO_CORREOS.NUM_CORREOS FROM PEDIDOS_PROVEEDOR INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID) INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID) LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN) LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE) - LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = PEDIDOS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSPROVEEDOR')); - + LEFT JOIN IMPRESIONES + ON ((IMPRESIONES.ID_TABLA = PEDIDOS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSPROVEEDOR')) + LEFT JOIN REGISTRO_CORREOS + ON ((REGISTRO_CORREOS.ID_TABLA = PEDIDOS_PROVEEDOR.ID) AND (REGISTRO_CORREOS.TABLA = 'PEDIDOSPROVEEDOR')) +; CREATE VIEW V_PED_CLI_ART_PEND_PEDIR_PROV( 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/Base/GUIBase/GUIBase.res b/Source/Base/GUIBase/GUIBase.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/Iconos/Generales/16x16/Thumbs.db b/Source/Iconos/Generales/16x16/Thumbs.db index 9562311e6ee373461c379201682be359b98fb565..a90cf8b65afc2ddd70547c18bc794ccf2a6c8b0a 100644 GIT binary patch delta 2863 zcmZ9N3s@6Z7RT=;31AIIL?BxbiALTaFL_lB6(RVEChjL&-^wagYJIE@1+09KDqV{o zsGaKQ;-g*BE?u$eP*Z^d6@p5kinvm7l}E}$wkm;XMeD+zA-Qqf`MzIr?|<%`bI&>V zk-JxtdsK2ENsOn_3h`8@j)Dsxl*in_B7{)Q3;02Z)+tnUmAKpvIavDds@N(?y~Hg6 z`s*zC!9NDj@Ze-q_zm{dc%{T)%#0m~qwvtpVkOH>)F|j$aR^O?YNfpD`r6x2jm!ZD zfHX-U)6_hT1DXeln^5KEX{Avh_y|QRPAd%tVX{DExj31Pt$AMbxCAfKoR#27nk!#5 zbqO9m=CL>qr6URjq3viZ+6V^CzW8`7QPS5ErV$fQUzu=LD~YO7TYaRegNa(CR@zy7 z(2d!0`k{IpdG%QBN19U-JtSkJ*x1Be5xzlxzmV8v|FdvJWEsak)g-$}Lts)K0Le5> zy$eZ`fHGC6a-iZcQ22V0u`IQ5siS?QK%u!zb9t0Pk;>B0wdX=uE^E2S&ocjbl!?;* zFH8JK&H%|$Mz#luspwU+Iy;C&FqFMSI<^|TUUQcZ?qI2K`FH3<#{ibw-;0Tz&H^9O zloeX@8ed3~$EFuvkP!3!pOsmY)y=FG)AJpJY3jIEIv3o{61wC-^aWv}KxC;CU)mC9 zisA^;TwNSWlAuNJ!&2G#+EU>|nFf#zaizG!YQ^!QD|`8$lQ16^&7CucNtHrrrdS+X zOT(4ATIcR~v7EH&<}&MA_`Qs?pJXYAW^Bp64<(7Fb^GI_PGB$8Vw2y1G*ty&_~N(- zRjx`a^#nm75Lv4FIdRACtPQs#ftNOflg#!uq)6-|1Rv4Vty|JJEdmLGrkb_V86ZXr zMzUOUi?y6hEunb$(w$t9WbE{y^IFNiVoO`Uvd&`l{Y%!OI(G(P2kZ_OV+2-ds!J>N z2H`EC$aTS9;Ab;is8U9Ysurj$XH2%%Nz-p#PdWYnuudcJ$vRPhCE>vkR2YgxQBeFp zqb+b&@DG13h4T&bDEf*i-+bx~YNh@lPXMgh;Rc~3d`~7+sUfX&ItXtIM3x)cH^KRH zP`&{E4x9#xfsu#0BB zMI^cUYwq|e=`aU8F*&aF6`t6-67-vuc$t__DZ}|-Ex(}|$`>!CuZsg1&KKVi|0qI; zY4pQUIai@o3)BGypdPpeTnBCd4ZsgTBhUnlz`Xtq|F?i<;5N_#+yVXt+yz>JpMZNn z8*m@szvFob?RKC8=oBF@)CCPA@H5a2^Z>m;AMgn12SyI1ymL7Kt4ZYgMKf_F=`gY| zOctVE6^4t+3;m-Ad|u>hS&HwVc(^5lkQOaQ{E{{=!TEf{GD2SygKIF3Vsvu6)8TvY z>ksfxG^6vuY9>*R17tTr3$y6KD3aDm=FqXB_V!X3M`~vK00tz9^e^V%1RFY5W{;<` z3(6^*9Mh?~-hoq}lu~&u>yLTmDI@i+3G($B8A}WH6$~t^|H=EK%>LNfqexf1$t_3z za(PkBmNUh!7auWio@#r1zR~3T@uq21Pk8i$sGm3NJ{Oa}v0nAjil=p@Ti<%%Z@9c` zN=aGa!>)#B>dk#U8?u(WcXcVQ{jJ?s8jAZR+uPY^fxqOHymT9`_|Vw2u>Nk_(5k+n zM`>qQ^u=isXW#2McGUUXL))d|EpNUNc9X2kD?wx@qB{k3#)U~;^nyzft4Pp12=R4$Mh&hCD=V)pZ#=1IZEUAcRr zRhMSg9Pk)c)weN)mG4b&IXQ|JfBIu!Xj)xs>d9rRehASV%G`@SKWQ(I{bG}7^d29R z^;rw2*A9q%E8ORNHiQ}A?{t1IlMF0+ElYSKTj8y<$w7BtuJ`^Vef64#Idg)zCcl(z zGb;CoS8cfWmn+76-*HR2kBf3c<=y#@jnvoso~@lwnX-BWbnWO(T4i2<+H;x3GzRpwL-fh=a;6GQ<+;hx(py?Nv-%Pb1I#rx5 zOY!_;ZrPr^ZGrNRlE7AXW$KLR$S;fZO>6FFWgUM~vA{61_SbK2GCFr0OK(p-I7Wxq F<$spqr;h*t delta 1902 zcma)-e@q-j6vyXvcaJ0NbvY=d+V;xfS%IGCa!?A@_K=f1lD6)elxSlbixG&inkHQ$ z{6U1M(a?yRQP-pzV?v@)X-bE1wlxr~kqg#X0!jZc(f)`b)@Ze?zoJ3k-t8=V{$bqY zakHPD{m$F(yf+NJE)6{+o!l$Jb{ZD9lwa!lruW3>Sr7;ztv}%(Lg;WfL8rwtMMq@k zz9+$^rO%{|NxVPgL>>MD1}Qo4>%v@?y;TyC0>qXn!uT66Ixj|;RjP#punW<852i+3 zmv#5PE(PXfmT5USLC#X^*smq&iW_`izq_W1BUz`@Fw({ZjR23gS zh{Nu)zhicEI2EeN4VqB9k-JjJz4-HqzxD@wR$w$H)izi5BhH@c+#)Sr3fNkXbflp5=3&Vhcav6fKZqB z6WU2XdGuc{*%B2P#If|r!I1mqtHYVWm_ym};C-@emyC+x=4y=K7ua{Vd8swB=&$tv zW*u7sE`Rxj8t$Gl>e}5t$~|R$qbDW4>b6%V1wQ`Pd`Oh-B5w3ZQ{xR?4j|a(g%-lK z2%0>Q8E?Mh<12^9ns`13$Ku>5ogBt;I$BUpTT!AK!!e4T9=qh@uLdV7+0^@GK(hl; zYJHF|b7MTeeb#uTn|g5K3@-&bKN;aw@#m!FFLO3Y%N6or+^7~hd@L!4aLG8vs@2mu zU209|+K3r5e{fB9^ju>RPilOwkvq0D*Co-c7^TLA3-aA4)>a@muhUOOm09x(zW;&KcE#I|W?f%+9)-i+W*FSM>W<#Lyo z8ds5SK~m+R%(~j?8m(P(tK+F_@49K+{^KDb+L_ubygdslX~8zyL7H**9wv|DfnZFIE9RTQg^?0CzNBewoK2@PL?a z<(msKt^r-PUEJuUMlJ03mwAa*3yb0kI%=M;gXWhX`D-c)X;*#U9q^Ih%kPw_Gyvbt zOrinC_=C)MO>jb3mp^3Te$tNR8Y4Qnm!$EZTLo=Z{F&@d_z>uGQVUhZ64~BBe$inm cL0^(od?5Yr2kO*rXkC+g&3^U2LKRE@0k7yK%K!iX diff --git a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup index 4ad68757..853c89b6 100644 --- a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup +++ b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup @@ -23,10 +23,7 @@ ..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj Views\AlbaranesCliente_view.bdsproj Plugin\AlbaranesCliente_plugin.bdsproj - ..\Facturas de cliente\Views\FacturasCliente_view.bdsproj - ..\..\Servidor\FactuGES_Server.bdsproj - ..\..\Cliente\FactuGES.bdsproj - DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_controller.bpl PedCli_AlbCli_relation.bpl AlbCli_FacCli_relation.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FactuGES_Server.exe FactuGES.exe + DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_controller.bpl PedCli_AlbCli_relation.bpl AlbCli_FacCli_relation.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index 0314a032..76d7bbeb 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas @@ -96,6 +96,7 @@ type procedure FiltrarEmpresa(AAlbaran: IBizAlbaranCliente); function _Vacio : IBizAlbaranCliente; function ValidarAlbaran(AAlbaran: IBizAlbaranCliente): Boolean; + procedure _AnadirMarcaEnvioCorreo(AAlbaran: IBizAlbaranCliente); public property ClienteController: IClientesController read GetClienteController write SetClienteController; @@ -171,7 +172,7 @@ uses schContactosClient_Intf, uAlbaranesClienteReportController, uControllerDetallesBase, uPedidosClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente, schPedidosClienteClient_Intf, uDialogUtils, Windows, Forms, Dialogs, uGUIBase, - + uDataModuleRegistroCorreos, uIDialogListaAlbaranesCliEnvioEMail, uSistemaFunc, uStringsUtils, uDialogElegirEMail, uEMailUtils; @@ -663,6 +664,37 @@ begin end; end; +procedure TAlbaranesClienteController._AnadirMarcaEnvioCorreo(AAlbaran: IBizAlbaranCliente); +var + ASoloLectura : Boolean; +begin + if not Assigned(AAlbaran) then + raise Exception.Create ('Albaran no asignado (_AnadirMarcaEnvioCorreo)'); + + if AAlbaran.DataTable.Active then + AAlbaran.DataTable.Active := True; + + if AnadirMarcaEnvioCorreo(nme_AlbaranesCliente, AAlbaran.ID) then + begin + DesconectarTabla(AAlbaran.DataTable); + try + ASoloLectura := AAlbaran.DataTable.ReadOnly; + if ASoloLectura then + SetDataTableReadOnly(AAlbaran.DataTable, False); + try + AAlbaran.Edit; + AAlbaran.NUM_CORREOS := AAlbaran.NUM_CORREOS + 1; + AAlbaran.Post; + finally + if ASoloLectura then + SetDataTableReadOnly(AAlbaran.DataTable, True); + end; + finally + ConectarTabla(AAlbaran.DataTable); + end; + end; +end; + function TAlbaranesClienteController._Vacio: IBizAlbaranCliente; begin Result := Buscar(ID_NULO); @@ -813,7 +845,7 @@ begin AReportController.ExportToPDF(AAlbaran.ID, AFicheroTMP); Result := EnviarEMailMAPI(AAsunto, ATextoEMail, AFicheroTMP, '', '', AAlbaran.Cliente.NOMBRE, AEMail, AEnviarDirectamente); if Result then -// _AnadirMarcaEnvioCorreo(AAlbaran); + _AnadirMarcaEnvioCorreo(AAlbaran); finally SysUtils.DeleteFile(AFicheroTMP); AReportController := NIL; diff --git a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.bdsproj b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.bdsproj index 63e51e84..754bc948 100644 --- a/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.bdsproj +++ b/Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.bdsproj @@ -172,7 +172,7 @@ -