From 73fc0f45a26d0b688e09b60a46082f6cb555b2bf Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 16 Oct 2008 18:07:10 +0000 Subject: [PATCH] Corregidos errores con los vencimientos de los clientes. git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@294 c93665c3-c93d-084d-9b98-7d5f4a9c3376 --- Database/Script.txt | 215 ------------------ Source/Base/GUIBase/GUIBase.res | Bin 384 -> 4748 bytes Source/Cliente/FactuGES.bdsproj | 6 +- Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 171932 -> 171932 bytes .../Contactos/Data/uDataModuleAgentes.dfm | 28 ++- .../Contactos/Data/uDataModuleClientes.dfm | 12 + .../Contactos/Data/uDataModuleProveedores.dfm | 12 + .../Contactos/Servidor/srvContactos_Impl.dfm | 6 +- .../Contactos/Views/Contactos_view.bdsproj | 2 +- .../Contactos/Views/Contactos_view.res | Bin 384 -> 4748 bytes .../Contactos/Views/uEditorCliente.dfm | 92 ++++---- .../Contactos/Views/uEditorContacto.dfm | 1 + .../Contactos/Views/uEditorProveedor.dfm | 45 ++-- Source/Servidor/FactuGES_Server.bdsproj | 8 +- Source/Servidor/FactuGES_Server.rc | 10 +- Source/Servidor/FactuGES_Server.res | Bin 23348 -> 23340 bytes Source/Servidor/uDataModuleServer.dfm | 6 +- 18 files changed, 152 insertions(+), 299 deletions(-) diff --git a/Database/Script.txt b/Database/Script.txt index c7737e67..e69de29b 100644 --- a/Database/Script.txt +++ b/Database/Script.txt @@ -1,215 +0,0 @@ -ALTER TABLE ALBARANES_CLIENTE -ADD ID_ALBARAN_DEV TIPO_ID; - -ALTER TABLE ALBARANES_PROVEEDOR -ADD ID_ALBARAN_DEV TIPO_ID; - -DROP VIEW V_ALBARANES_CLIENTE; - -CREATE VIEW V_ALBARANES_CLIENTE( - ID, - ID_EMPRESA, - ID_CLIENTE, - NOMBRE, - FECHA_ALBARAN, - REFERENCIA, - REFERENCIA_CLIENTE, - TIPO, - ID_ALBARAN_DEV, - REFERENCIA_ALB_DEV, - ID_FAC_ALB_DEV, - REFERENCIA_FAC_ALB_DEV, - SITUACION, - ID_ALMACEN, - NOMBRE_ALMACEN, - ID_PEDIDO, - REF_PEDIDO, - ID_FACTURA, - REF_FACTURA, - CALLE, - CODIGO_POSTAL, - POBLACION, - PROVINCIA, - PERSONA_CONTACTO, - TELEFONO, - IMPORTE_NETO, - IMPORTE_PORTE, - DESCUENTO, - IMPORTE_DESCUENTO, - BASE_IMPONIBLE, - IVA, - IMPORTE_IVA, - IMPORTE_TOTAL, - OBSERVACIONES, - INCIDENCIAS, - INCIDENCIAS_ACTIVAS, - FECHA_ALTA, - FECHA_MODIFICACION, - USUARIO, - ID_FORMA_PAGO, - FECHA_PREVISTA_ENVIO, - FECHA_ENVIO, - FECHA_RECEPCION, - ID_AGENTE, - AGENTE, - NUM_COPIAS) -AS -SELECT - ALBARANES_CLIENTE.ID, - ALBARANES_CLIENTE.ID_EMPRESA, - ALBARANES_CLIENTE.ID_CLIENTE, - CLIENTES.NOMBRE, - ALBARANES_CLIENTE.FECHA_ALBARAN, - ALBARANES_CLIENTE.REFERENCIA, - ALBARANES_CLIENTE.REFERENCIA_CLIENTE, - ALBARANES_CLIENTE.TIPO, - ALBARANES_CLIENTE.ID_ALBARAN_DEV, - ALB_DEV.REFERENCIA, - ALB_DEV.ID_FACTURA, - FAC_CLI_ALB_DEV.REFERENCIA, - V_ALB_CLI_SITUACION.SITUACION, - ALBARANES_CLIENTE.ID_ALMACEN, - ALMACENES.NOMBRE AS NOMBRE_ALMACEN, - ALBARANES_CLIENTE.ID_PEDIDO, - PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO, - ALBARANES_CLIENTE.ID_FACTURA, - FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA, - ALBARANES_CLIENTE.CALLE, - ALBARANES_CLIENTE.CODIGO_POSTAL, - ALBARANES_CLIENTE.POBLACION, - ALBARANES_CLIENTE.PROVINCIA, - ALBARANES_CLIENTE.PERSONA_CONTACTO, - ALBARANES_CLIENTE.TELEFONO, - ALBARANES_CLIENTE.IMPORTE_NETO, - ALBARANES_CLIENTE.IMPORTE_PORTE, - ALBARANES_CLIENTE.DESCUENTO, - ALBARANES_CLIENTE.IMPORTE_DESCUENTO, - ALBARANES_CLIENTE.BASE_IMPONIBLE, - ALBARANES_CLIENTE.IVA, - ALBARANES_CLIENTE.IMPORTE_IVA, - ALBARANES_CLIENTE.IMPORTE_TOTAL, - ALBARANES_CLIENTE.OBSERVACIONES, - ALBARANES_CLIENTE.INCIDENCIAS, - ALBARANES_CLIENTE.INCIDENCIAS_ACTIVAS, - ALBARANES_CLIENTE.FECHA_ALTA, - ALBARANES_CLIENTE.FECHA_MODIFICACION, - ALBARANES_CLIENTE.USUARIO, - ALBARANES_CLIENTE.ID_FORMA_PAGO, - ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, - ALBARANES_CLIENTE.FECHA_ENVIO, - ALBARANES_CLIENTE.FECHA_RECEPCION, - CLIENTES_DATOS.ID_AGENTE, - AGENTES.NOMBRE, - IMPRESIONES.NUM_COPIAS - -FROM - ALBARANES_CLIENTE - INNER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID) - INNER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ALBARANES_CLIENTE.ID_CLIENTE) - LEFT OUTER JOIN ALBARANES_CLIENTE ALB_DEV ON (ALB_DEV.ID = ALBARANES_CLIENTE.ID_ALBARAN_DEV) - LEFT OUTER JOIN FACTURAS_CLIENTE FAC_CLI_ALB_DEV ON (FAC_CLI_ALB_DEV.ID = ALB_DEV.ID_FACTURA) - LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = ALBARANES_CLIENTE.ID_CLIENTE) - LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE) - 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')) -; - -DROP VIEW V_ALBARANES_PROVEEDOR; - -CREATE VIEW V_ALBARANES_PROVEEDOR( - ID, - ID_EMPRESA, - ID_PROVEEDOR, - NOMBRE, - FECHA_ALBARAN, - REFERENCIA, - REFERENCIA_PROVEEDOR, - TIPO, - ID_ALBARAN_DEV, - REFERENCIA_ALB_DEV, - ID_FAC_ALB_DEV, - REFERENCIA_FAC_ALB_DEV, - ID_ALMACEN, - NOMBRE_ALMACEN, - ID_PEDIDO, - REF_PED_PROVEEDOR, - ID_FACTURA, - REF_FACTURA, - REF_FACTURA_PROV, - CALLE, - CODIGO_POSTAL, - POBLACION, - PROVINCIA, - PERSONA_CONTACTO, - TELEFONO, - IMPORTE_NETO, - IMPORTE_PORTE, - DESCUENTO, - IMPORTE_DESCUENTO, - BASE_IMPONIBLE, - IVA, - IMPORTE_IVA, - IMPORTE_TOTAL, - OBSERVACIONES, - INCIDENCIAS, - INCIDENCIAS_ACTIVAS, - FECHA_ALTA, - FECHA_MODIFICACION, - USUARIO, - ID_FORMA_PAGO, - NUM_COPIAS) -AS -SELECT - ALBARANES_PROVEEDOR.ID, - ALBARANES_PROVEEDOR.ID_EMPRESA, - ALBARANES_PROVEEDOR.ID_PROVEEDOR, - CONTACTOS.NOMBRE, - ALBARANES_PROVEEDOR.FECHA_ALBARAN, - ALBARANES_PROVEEDOR.REFERENCIA, - ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR, - ALBARANES_PROVEEDOR.TIPO, - ALBARANES_PROVEEDOR.ID_ALBARAN_DEV, - ALB_DEV.REFERENCIA, - ALB_DEV.ID_FACTURA, - FAC_PROV_ALB_DEV.REFERENCIA, - ALBARANES_PROVEEDOR.ID_ALMACEN, - ALMACENES.NOMBRE AS NOMBRE_ALMACEN, - ALBARANES_PROVEEDOR.ID_PEDIDO, - PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR, - ALBARANES_PROVEEDOR.ID_FACTURA, - FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA, - ALBARANES_PROVEEDOR.REF_FACTURA_PROV, - ALBARANES_PROVEEDOR.CALLE, - ALBARANES_PROVEEDOR.CODIGO_POSTAL, - ALBARANES_PROVEEDOR.POBLACION, - ALBARANES_PROVEEDOR.PROVINCIA, - ALBARANES_PROVEEDOR.PERSONA_CONTACTO, - ALBARANES_PROVEEDOR.TELEFONO, - ALBARANES_PROVEEDOR.IMPORTE_NETO, - ALBARANES_PROVEEDOR.IMPORTE_PORTE, - ALBARANES_PROVEEDOR.DESCUENTO, - ALBARANES_PROVEEDOR.IMPORTE_DESCUENTO, - ALBARANES_PROVEEDOR.BASE_IMPONIBLE, - ALBARANES_PROVEEDOR.IVA, - ALBARANES_PROVEEDOR.IMPORTE_IVA, - ALBARANES_PROVEEDOR.IMPORTE_TOTAL, - ALBARANES_PROVEEDOR.OBSERVACIONES, - ALBARANES_PROVEEDOR.INCIDENCIAS, - ALBARANES_PROVEEDOR.INCIDENCIAS_ACTIVAS, - ALBARANES_PROVEEDOR.FECHA_ALTA, - ALBARANES_PROVEEDOR.FECHA_MODIFICACION, - ALBARANES_PROVEEDOR.USUARIO, - ALBARANES_PROVEEDOR.ID_FORMA_PAGO, - IMPRESIONES.NUM_COPIAS -FROM - ALBARANES_PROVEEDOR - INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR) - LEFT OUTER JOIN ALBARANES_PROVEEDOR ALB_DEV ON (ALB_DEV.ID = ALBARANES_PROVEEDOR.ID_ALBARAN_DEV) - LEFT OUTER JOIN FACTURAS_PROVEEDOR FAC_PROV_ALB_DEV ON (FAC_PROV_ALB_DEV.ID = ALB_DEV.ID_FACTURA) - 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')) -; \ No newline at end of file diff --git a/Source/Base/GUIBase/GUIBase.res b/Source/Base/GUIBase/GUIBase.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/Cliente/FactuGES.bdsproj b/Source/Cliente/FactuGES.bdsproj index ad4ca58e..c5f56759 100644 --- a/Source/Cliente/FactuGES.bdsproj +++ b/Source/Cliente/FactuGES.bdsproj @@ -149,7 +149,7 @@ False 3 0 - 8 + 9 0 False False @@ -162,13 +162,13 @@ Rodax Software S.L. - 3.0.8.0 + 3.0.9.0 FactuGES - 3.0.8.0 + 3.0.9.0 Muststang Peak EasyListview Runtime Package diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 543e1bc2..86c194e1 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 3,0,8,0 -PRODUCTVERSION 3,0,8,0 +FILEVERSION 3,0,9,0 +PRODUCTVERSION 3,0,9,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,9 +13,9 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "3.0.8.0\0" + VALUE "FileVersion", "3.0.9.0\0" VALUE "InternalName", "FactuGES\0" - VALUE "ProductVersion", "3.0.8.0\0" + VALUE "ProductVersion", "3.0.9.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index de62162be4cb80cce1049d5f40368df3d41c5fce..5ed3458f8b1ed92409eb9c0e72a3795437895216 100644 GIT binary patch delta 42 vcmbQUpKH#3u7(!IElgtbI5`;@7?^>WbGrOIrjv}8(_hYGN(WMb^O?K>3|$OH delta 42 vcmbQUpKH#3u7(!IElgtbI5`*?7?^>WW4io2rjv{o(_hYGN(WMb^O?K>3>pkV diff --git a/Source/Modulos/Contactos/Data/uDataModuleAgentes.dfm b/Source/Modulos/Contactos/Data/uDataModuleAgentes.dfm index eb280a99..5c21052f 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleAgentes.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleAgentes.dfm @@ -1,4 +1,30 @@ inherited DataModuleAgentes: TDataModuleAgentes + inherited DADesigntimeCall1: TDADesigntimeCall + RemoteRequest.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBoolean + end + item + Name = 'User' + ParamType = fIn + DataType = rtString + Value = 'Luis' + end + item + Name = 'Password' + ParamType = fIn + DataType = rtString + Value = '1' + end + item + Name = 'LoginInfo' + ParamType = fOut + DataType = rtUserDefined + UserClassName = 'TRdxLoginInfo' + end> + end object tbl_Agentes: TDACDSDataTable RemoteUpdatesOptions = [] Fields = < @@ -469,7 +495,7 @@ inherited DataModuleAgentes: TDataModuleAgentes Name = 'ID_AGENTE' DataType = datInteger BlobType = dabtUnknown - Value = '' + Value = 4 ParamType = daptInput end> MasterMappingMode = mmParams diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm index 05d6584a..7f76b354 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm @@ -481,6 +481,18 @@ inherited DataModuleClientes: TDataModuleClientes Lookup = False LookupCache = False end + item + Name = 'EMAIL_ADMINISTRACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'VENCIMIENTO_FACTURAS_1' DataType = datInteger diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm index 4dbc0fee..da433a71 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm @@ -389,6 +389,18 @@ inherited DataModuleProveedores: TDataModuleProveedores Lookup = False LookupCache = False end + item + Name = 'EMAIL_ADMINISTRACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'VENCIMIENTO_FACTURAS_1' DataType = datInteger diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index b6ff64d2..b384359a 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -4971,9 +4971,9 @@ object srvContactos: TsrvContactos DiagramData = ''#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13#10 + ',77" Top="0,00" />'#13#10' '#13#10' '#13#10' '#13#10''#13#10 end object bpContactos: TDABusinessProcessor Schema = schContactos diff --git a/Source/Modulos/Contactos/Views/Contactos_view.bdsproj b/Source/Modulos/Contactos/Views/Contactos_view.bdsproj index c1f237f8..ce4c8ce0 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.bdsproj +++ b/Source/Modulos/Contactos/Views/Contactos_view.bdsproj @@ -223,7 +223,7 @@ ExpressGDI+ Library by Developer Express Inc. -