diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 426db58c..ec64903e 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,55 +58,55 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 8b251f31..1641339f 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 519bf9e4..819ef9b7 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -55,6 +55,16 @@ FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2530FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.3.0FactuGESFactuGES2.5.3.0 + + + + + + + + + + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index ff4974b2..24517f6e 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -27,13 +27,15 @@ begin LoadModule('TiposIVA_plugin.bpl'); LoadModule('Contactos_plugin.bpl'); - {$IFDEF ALMACEN} LoadModule('Familias_plugin.bpl'); LoadModule('UnidadesMedida_plugin.bpl'); + + {$IFDEF ALMACEN} LoadModule('Almacenes_plugin.bpl'); - LoadModule('Articulos_plugin.bpl'); {$ENDIF} + LoadModule('Articulos_plugin.bpl'); + LoadModule('PresupuestosCliente_plugin.bpl'); LoadModule('AlbaranesCliente_plugin.bpl'); LoadModule('ContratosCliente_plugin.bpl'); diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 1641339f..8b251f31 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index b2c226b5..862e5d6b 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -819,11 +819,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente DataType = datSmallInt Value = '' end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - end item Name = 'USUARIO' DataType = datString @@ -868,18 +863,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente ' TELEFONO, MOVIL, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORT' + 'E_DESCUENTO,'#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTA' + 'L, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_' + - 'ALTA, FECHA_MODIFICACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PR' + - 'EVISTA_ENVIO, FECHA_ENVIO, '#10' FECHA_RECEPCION, ID_TIENDA)'#10' V' + - 'ALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO,' + - ' :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO,' + - ' :ID_FACTURA, :ID_CONTRATO, :ID_DIRECCION,'#10' :CALLE, :CODIGO_' + - 'POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFON' + - 'O, :MOVIL, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_D' + - 'ESCUENTO,'#10' :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOT' + - 'AL, :OBSERVACIONES,'#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CUR' + - 'RENT_TIMESTAMP, :FECHA_MODIFICACION,'#10' :USUARIO, :ID_FORMA_PA' + - 'GO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION,'#10' ' + - ':ID_TIENDA)'#10' '#10' '#10#10 + 'ALTA,'#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_E' + + 'NVIO, '#10' FECHA_RECEPCION, ID_TIENDA)'#10' VALUES'#10' (:ID, :ID_E' + + 'MPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :R' + + 'EFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_CON' + + 'TRATO, :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :' + + 'PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :MOVIL, :IMPORTE_N' + + 'ETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_' + + 'IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' ' + + ' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' ' + + ':USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :' + + 'FECHA_RECEPCION,'#10' :ID_TIENDA)'#10' '#10' '#10#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas index 85b9c449..1fbc91c9 100644 --- a/Source/Modulos/Articulos/Controller/uArticulosController.pas +++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas @@ -147,7 +147,9 @@ begin else Result := (FDataModule as IDataModuleArticulos).GetItem(ID, AClienteID); - FiltrarEmpresa(Result); + // Ticket 1211 -> No filtrar los artículos por empresa + //FiltrarEmpresa(AArticulo); + end; function TArticulosController.BuscarInventariables: IBizArticulo; @@ -245,7 +247,8 @@ end; function TArticulosController.BuscarTodos(ACliente: Integer): IBizArticulo; begin Result := FDataModule.GetItems(ACliente); - FiltrarEmpresa(Result); + // Ticket 1211 -> No filtrar los artículos por empresa + //FiltrarEmpresa(AArticulo); end; function TArticulosController.BuscarTodos(ACliente: IBizCliente): IBizArticulo; @@ -286,7 +289,8 @@ end; function TArticulosController.BuscarTodos: IBizArticulo; begin Result := FDataModule.GetItems; - FiltrarEmpresa(Result); + // Ticket 1211 -> No filtrar los artículos por empresa + //FiltrarEmpresa(AArticulo); end; procedure TArticulosController.CalcularPrecioNeto(AArticulos: IBizArticulo); @@ -631,7 +635,10 @@ var AArticulo : IBizArticulo; begin AArticulo := FDataModule.NewItem; - FiltrarEmpresa(AArticulo); + + // Ticket 1211 -> No filtrar los artículos por empresa + //FiltrarEmpresa(AArticulo); + AArticulo.DataTable.Active := True; AArticulo.Insert; Result := AArticulo; diff --git a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm index c10f5d74..fdb912d9 100644 --- a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm +++ b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm @@ -588,16 +588,6 @@ object srvArticulos: TsrvArticulos DataType = datSmallInt Value = '' end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - end item Name = 'USUARIO' DataType = datString @@ -656,14 +646,14 @@ object srvArticulos: TsrvArticulos TargetTable = 'ARTICULOS' SQL = 'INSERT'#10' INTO ARTICULOS'#10' (ID, ID_EMPRESA, REFERENCIA, DESCRIP' + - 'CION, FAMILIA,'#10' COMISIONABLE, FECHA_ALTA, FECHA_MODIFICACION' + - ', USUARIO, '#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO, ID_PROVE' + - 'EDOR, '#10' PRECIO_NETO, PRECIO_PVP, REFERENCIA_PROV, INVENTARIA' + - 'BLE, ELIMINADO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DE' + - 'SCRIPCION, :FAMILIA, '#10' :COMISIONABLE, :FECHA_ALTA, :FECHA_MO' + - 'DIFICACION,'#10' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, :DESCUE' + - 'NTO, '#10' :ID_PROVEEDOR, :PRECIO_NETO, :PRECIO_PVP, :REFERENCIA' + - '_PROV,'#10' :INVENTARIABLE, :ELIMINADO)'#10 + 'CION, FAMILIA,'#10' COMISIONABLE, FECHA_ALTA, USUARIO,'#10' PREC' + + 'IO_COSTE, PRECIO_PORTE, DESCUENTO, ID_PROVEEDOR, '#10' PRECIO_NE' + + 'TO, PRECIO_PVP, REFERENCIA_PROV, INVENTARIABLE, ELIMINADO)'#10' VAL' + + 'UES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DESCRIPCION, :FAMILIA, ' + + #10' :COMISIONABLE, CURRENT_TIMESTAMP,'#10' :USUARIO, :PRECIO_C' + + 'OSTE, :PRECIO_PORTE, :DESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_NE' + + 'TO, :PRECIO_PVP, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINA' + + 'DO)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -758,16 +748,6 @@ object srvArticulos: TsrvArticulos DataType = datSmallInt Value = '' end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - end item Name = 'USUARIO' DataType = datString @@ -831,14 +811,13 @@ object srvArticulos: TsrvArticulos SQL = 'UPDATE ARTICULOS'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA,'#10' REFERE' + 'NCIA = :REFERENCIA, '#10' DESCRIPCION = :DESCRIPCION, '#10' FAMILI' + - 'A = :FAMILIA, '#10' COMISIONABLE = :COMISIONABLE,'#10' FECHA_ALTA ' + - '= :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' ' + - ' USUARIO = :USUARIO, '#10' PRECIO_COSTE = :PRECIO_COSTE, '#10' P' + - 'RECIO_PORTE = :PRECIO_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' I' + - 'D_PROVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' ' + - ' PRECIO_PVP = :PRECIO_PVP,'#10' INVENTARIABLE = :INVENTARIABLE,'#10 + - ' REFERENCIA_PROV = :REFERENCIA_PROV,'#10' ELIMINADO = :ELIMINA' + - 'DO'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'A = :FAMILIA, '#10' COMISIONABLE = :COMISIONABLE,'#10' FECHA_MODIF' + + 'ICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO, '#10' PRECIO' + + '_COSTE = :PRECIO_COSTE, '#10' PRECIO_PORTE = :PRECIO_PORTE, '#10' ' + + 'DESCUENTO = :DESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' ' + + 'PRECIO_NETO = :PRECIO_NETO,'#10' PRECIO_PVP = :PRECIO_PVP,'#10' IN' + + 'VENTARIABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_' + + 'PROV,'#10' ELIMINADO = :ELIMINADO'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas index ce0a1b73..ea164e9b 100644 --- a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas +++ b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas @@ -317,13 +317,12 @@ function TSubCuentasController.DarLista(Const TipoSubCuenta: TEnumTipoSubCuenta) var ASubCuentas: IBizSubCuenta; begin - case TipoSubCuenta of -// tClientes, tProveedores, tCompras, tVentas, - tTodas : ASubCuentas := BuscarTodos; - tCajas : ASubCuentas := BuscarCajasBancos; - tVentas : ASubCuentas := BuscarVentas; - tCompras : ASubCuentas := BuscarCompras; + // tClientes, tProveedores, tCompras, tVentas, + tTodas : ASubCuentas := BuscarTodos; + tCajas : ASubCuentas := BuscarCajasBancos; + tVentas : ASubCuentas := BuscarVentas; + tCompras : ASubCuentas := BuscarCompras; end; ASubCuentas.DataTable.Active := True; diff --git a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.dfm b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.dfm index 6e829200..c7b9f24b 100644 --- a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.dfm +++ b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.dfm @@ -35,18 +35,14 @@ inherited frViewListaSubcuentas: TfrViewListaSubcuentas Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True - Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.SkinName = '' TabOrder = 0 Width = 376 end @@ -58,10 +54,6 @@ inherited frViewListaSubcuentas: TfrViewListaSubcuentas Properties.ValueUnchecked = 0 Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' TabOrder = 1 Width = 203 end diff --git a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas index 2d99aefc..f61b0461 100644 --- a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas +++ b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas @@ -149,7 +149,7 @@ begin //Si no hay ejercicio activo se desactivará la funcionalidad de contabilidad if Assigned(AppFactuGES.EjercicioActivo) then begin - with TSubCuentasController.create do + with TSubCuentasController.Create do begin FListaSubCuentas := DarLista(FTipoSubCuenta); diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index ab697c7d..b1e49afd 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -2372,11 +2372,12 @@ object srvContactos: TsrvContactos 'INSERT'#10' INTO CONTACTOS'#10' (ID, NIF_CIF, NOMBRE, PERSONA_CONTAC' + 'TO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' TELEFONO_1,' + ' TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, '#10' EMAIL_2, PAGI' + - 'NA_WEB, NOTAS, USUARIO, REFERENCIA, ID_TIENDA)'#10' VALUES'#10' (:ID' + - ', :NIF_CIF, :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POBLACION, :PRO' + - 'VINCIA,'#10' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1,' + - ' '#10' :MOVIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS, ' + - #10' :USUARIO, :REFERENCIA, :ID_TIENDA)'#10 + 'NA_WEB, NOTAS, USUARIO, REFERENCIA, ID_TIENDA, FECHA_ALTA)'#10' VAL' + + 'UES'#10' (:ID, :NIF_CIF, :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POB' + + 'LACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_' + + '2, :MOVIL_1, '#10' :MOVIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_W' + + 'EB, :NOTAS, '#10' :USUARIO, :REFERENCIA, :ID_TIENDA, CURRENT_TIM' + + 'ESTAMP)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -2500,8 +2501,8 @@ object srvContactos: TsrvContactos ':MOVIL_1, '#10' MOVIL_2 = :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1' + ' = :EMAIL_1, '#10' EMAIL_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_' + 'WEB, '#10' NOTAS = :NOTAS, '#10' USUARIO = :USUARIO,'#10' REFERENCI' + - 'A = :REFERENCIA,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :O' + - 'LD_ID)'#10 + 'A = :REFERENCIA,'#10' ID_TIENDA = :ID_TIENDA,'#10' FECHA_MODIFICAC' + + 'ION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3317,10 +3318,11 @@ object srvContactos: TsrvContactos SQL = 'INSERT'#10' INTO CONTACTOS_DIRECCIONES'#10' (ID, ID_CONTACTO, NOMBRE' + ', CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' PERSONA_CONTA' + - 'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE, NIF_CIF)'#10' VALUE' + - 'S'#10' (:ID, :ID_CONTACTO, :NOMBRE, :CALLE, :POBLACION, :PROVINCI' + - 'A, :CODIGO_POSTAL,'#10' :PERSONA_CONTACTO, :TELEFONO, :MOVIL, :F' + - 'AX, :EMAIL, :NOTAS, :PORTE, :NIF_CIF)'#10 + 'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE, NIF_CIF,'#10' FE' + + 'CHA_ALTA)'#10' VALUES'#10' (:ID, :ID_CONTACTO, :NOMBRE, :CALLE, :POB' + + 'LACION, :PROVINCIA, :CODIGO_POSTAL,'#10' :PERSONA_CONTACTO, :TEL' + + 'EFONO, :MOVIL, :FAX, :EMAIL, :NOTAS, :PORTE, :NIF_CIF,'#10' CURR' + + 'ENT_TIMESTAMP)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3348,6 +3350,10 @@ object srvContactos: TsrvContactos end item Params = < + item + Name = 'NIF_CIF' + Value = '' + end item Name = 'ID_CONTACTO' Value = '' @@ -3415,7 +3421,8 @@ object srvContactos: TsrvContactos 'DIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELE' + 'FONO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' FAX = :FAX,'#10' EMAIL ' + '= :EMAIL,'#10' NOTAS = :NOTAS,'#10' PORTE = :PORTE,'#10' NIF_CIF = ' + - 'NIF_CIF'#10' WHERE'#10' (ID = :OLD_ID)'#10 + ':NIF_CIF,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' ' + + ' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3755,7 +3762,7 @@ object srvContactos: TsrvContactos 'INSERT'#10' INTO CONTACTOS_DATOS_PERSONAL'#10' (ID, ID_CONTACTO, NOM' + 'BRE, PUESTO, TELEFONO, MOVIL, FAX,'#10' EMAIL, FECHA_ALTA)'#10' VAL' + 'UES'#10' (:ID, :ID_CONTACTO, :NOMBRE, :PUESTO, :TELEFONO, :MOVIL,' + - #10' :FAX, :EMAIL, CURRENT_TIME)'#10 + #10' :FAX, :EMAIL, CURRENT_TIMESTAMP)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3811,10 +3818,6 @@ object srvContactos: TsrvContactos Name = 'EMAIL' Value = '' end - item - Name = 'FECHA_MODIFICACION' - Value = '' - end item Name = 'OLD_ID' Value = '' @@ -3828,8 +3831,8 @@ object srvContactos: TsrvContactos 'UPDATE CONTACTOS_DATOS_PERSONAL'#10' SET '#10' ID_CONTACTO = :ID_CON' + 'TACTO, '#10' NOMBRE = :NOMBRE, '#10' PUESTO = :PUESTO, '#10' TELEFO' + 'NO = :TELEFONO, '#10' MOVIL = :MOVIL, '#10' FAX = :FAX, '#10' EMAIL' + - ' = :EMAIL, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE' + - #10' (ID = :OLD_ID)'#10 + ' = :EMAIL, '#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' ' + + ' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index 230de931..802358e5 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -1024,16 +1024,6 @@ object srvFacturasCliente: TsrvFacturasCliente Size = 10 Value = '' end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - end item Name = 'USUARIO' DataType = datString @@ -1102,21 +1092,20 @@ object srvFacturasCliente: TsrvFacturasCliente 'BLE,'#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_' + 'IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVACIONE' + 'S,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLA' + - 'CION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECH' + - 'A_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUI' + - 'VALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10 + - ' IGNORAR_CONTABILIDAD,'#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SI' + - 'N_COMISION,'#10' TIPO_FACTURA)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRES' + - 'A,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10 + - ' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' ' + - ' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_' + - 'TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :N' + - 'OMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_P' + - 'OSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' + - ' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10 + - ' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD' + - ','#10' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :TIPO' + - '_FACTURA);'#10 + 'CION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' USUA' + + 'RIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' + + 'A,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD' + + ','#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SIN_COMISION,'#10' TIPO_FAC' + + 'TURA)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' ' + + ':FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE_IMPONIBLE,'#10' ' + + ' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,' + + #10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONE' + + 'S,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :' + + 'POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' CURRENT_TIMES' + + 'TAMP,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCI' + + 'A,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' ' + + ':IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SI' + + 'N_COMISION,'#10' :TIPO_FACTURA);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1231,16 +1220,6 @@ object srvFacturasCliente: TsrvFacturasCliente Size = 10 Value = '' end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - end item Name = 'USUARIO' DataType = datString @@ -1317,14 +1296,14 @@ object srvFacturasCliente: TsrvFacturasCliente 'ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :' + 'NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :POBLACION,'#10' PROV' + 'INCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' FECH' + - 'A_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACI' + - 'ON,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 + - ' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' + - 'A = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_' + - 'PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONT' + - 'ABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_CONTRATO = :ID_CONT' + - 'RATO,'#10' SIN_COMISION = :SIN_COMISION,'#10' TIPO_FACTURA = :TIPO' + - '_FACTURA'#10' WHERE'#10' (ID = :OLD_ID);'#10 + 'A_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' ' + + 'ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECA' + + 'RGO_EQUIVALENCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NE' + + 'TO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNO' + + 'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TI' + + 'ENDA,'#10' ID_CONTRATO = :ID_CONTRATO,'#10' SIN_COMISION = :SIN_CO' + + 'MISION,'#10' TIPO_FACTURA = :TIPO_FACTURA'#10' WHERE'#10' (ID = :OLD_ID' + + ');'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index 3f3b7e0e..e95d4e0c 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -110,152 +110,42 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Height = 340 ExplicitWidth = 846 ExplicitHeight = 340 - inherited eReferencia: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 159 - Width = 159 - end - inherited edtFecha: TcxDBDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 159 - Width = 159 - end - inherited cbFormaPago: TcxDBLookupComboBox - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 78 - Width = 78 - end - inherited bFormasPago: TButton - Left = 280 - ExplicitLeft = 280 - end - inherited frViewTienda1: TfrViewTienda - inherited dxLayoutControl1: TdxLayoutControl - inherited cbTienda: TcxComboBox - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 399 - Width = 399 - end - end - end inherited frViewClienteFactura1: TfrViewClienteFactura - Left = 440 - Width = 398 - ExplicitLeft = 440 - ExplicitWidth = 398 inherited dxLayoutControl1: TdxLayoutControl - Width = 398 - inherited Bevel1: TBevel - Width = 266 - ExplicitWidth = 266 - end inherited edtlNombre: TcxDBTextEdit DataBinding.DataSource = dsDataTable - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 276 - Width = 276 end inherited edtNIFCIF: TcxDBTextEdit DataBinding.DataSource = dsDataTable - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 276 - Width = 276 end inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = dsDataTable - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 276 - Width = 276 end inherited edtPoblacion: TcxDBTextEdit DataBinding.DataSource = dsDataTable - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 158 - Width = 158 end inherited edtProvincia: TcxDBTextEdit DataBinding.DataSource = dsDataTable - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 276 - Width = 276 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 275 + Left = 244 DataBinding.DataSource = dsDataTable - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 275 + ExplicitLeft = 244 end inherited Button3: TBitBtn - Left = 165 - ExplicitLeft = 165 - end - inherited cxDBTextEdit1: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 283 - Width = 283 + Left = 134 + ExplicitLeft = 134 end end end - inherited edtFechaVencimiento: TcxDBDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 310 - Width = 310 - end inherited frViewObservaciones1: TfrViewObservaciones - Width = 521 Height = 228 - ExplicitWidth = 521 ExplicitHeight = 228 inherited memObservaciones: TcxDBMemo DataBinding.DataSource = frViewFacturaCliente1.DADataSource Height = 228 - Width = 521 end end - inherited cbRecargoEquivalencia: TcxDBCheckBox - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 158 - Width = 158 - end end end end @@ -376,6 +266,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 846 ExplicitTop = 24 ExplicitWidth = 846 + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 548 + end end end end @@ -403,20 +296,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitWidth = 846 inherited cbSubCuentas: TcxComboBox Left = 85 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 85 ExplicitWidth = 429 Width = 429 end inherited eContabilizar: TcxCheckBox Left = 581 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 581 ExplicitWidth = 227 Width = 227 @@ -463,10 +348,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente inherited Bevel3: TBevel Left = 457 Top = 30 - Height = 122 ExplicitLeft = 457 ExplicitTop = 30 - ExplicitHeight = 122 end inherited Bevel4: TBevel Left = 569 @@ -478,11 +361,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end inherited ImporteDto: TcxDBCurrencyEdit Top = 57 - Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 57 ExplicitWidth = 220 Width = 220 @@ -490,11 +369,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente inherited ImporteIVA: TcxDBCurrencyEdit Left = 640 Top = 77 - Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 640 ExplicitTop = 77 ExplicitWidth = 155 @@ -503,11 +378,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente inherited ImporteTotal: TcxDBCurrencyEdit Left = 570 Top = 131 - Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 570 ExplicitTop = 131 ExplicitWidth = 225 @@ -516,32 +387,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente inherited edtDescuento: TcxDBSpinEdit Top = 57 Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate - Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 57 end inherited edtIVA: TcxDBSpinEdit Left = 569 Top = 77 - Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 569 ExplicitTop = 77 end inherited ImporteBase: TcxDBCurrencyEdit Left = 569 Top = 30 - Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 569 ExplicitTop = 30 ExplicitWidth = 226 @@ -551,22 +410,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Left = 569 Top = 104 Properties.AssignedValues.MinValue = True - Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 569 ExplicitTop = 104 end inherited ImporteRE: TcxDBCurrencyEdit Left = 640 Top = 104 - Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 640 ExplicitTop = 104 ExplicitWidth = 155 @@ -574,11 +425,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end inherited eImporteNeto: TcxDBCurrencyEdit Top = 30 - Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 30 ExplicitWidth = 291 Width = 291 @@ -587,11 +434,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Top = 84 DataBinding.DataSource = dsDataTable Properties.OnValidate = frViewTotales1ePortePropertiesValidate - Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' OnEditing = frViewTotales1ePorteEditing ExplicitTop = 84 ExplicitWidth = 291 @@ -601,10 +444,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Top = 111 Properties.OnValidate = frViewTotales1eIVAPropertiesValidate Style.Color = clInfoBk - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 111 ExplicitWidth = 153 Width = 153 @@ -618,10 +457,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end inherited cbRecargoEquivalencia: TcxDBCheckBox Top = 138 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 138 ExplicitWidth = 291 Width = 291 @@ -644,11 +479,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Visible = False end end - inherited dxLayoutControl1Group8: TdxLayoutGroup - inherited dxLayoutControl1Item7: TdxLayoutItem - Visible = True - end - end end end end diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm index 40fee369..bc885c21 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm +++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm @@ -853,14 +853,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor Name = 'CODIGO_POSTAL' Value = '' end - item - Name = 'FECHA_ALTA' - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - Value = '' - end item Name = 'USUARIO' Value = '' @@ -904,17 +896,17 @@ object srvFacturasProveedor: TsrvFacturasProveedor 'ASE_IMPONIBLE, DESCUENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_I' + 'VA, RE, IMPORTE_RE, '#10' IMPORTE_TOTAL, OBSERVACIONES, ID_PROVE' + 'EDOR, NIF_CIF, '#10' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO' + - '_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA' + - '_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IM' + - 'PORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TIENDA)'#10' VALUES'#10' ' + - '(:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FEC' + - 'HA_FACTURA, :FECHA_VENCIMIENTO, :BASE_IMPONIBLE, :DESCUENTO,'#10' ' + - ' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' ' + - ' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' ' + - ' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' ' + - ':FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' ' + - ' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMP' + - 'ORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_TIENDA)'#10' '#10' '#10#10 + '_POSTAL, '#10' FECHA_ALTA, USUARIO, ID_FORMA_PAGO,'#10' RECARGO_' + + 'EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE, IGNORAR_' + + 'CONTABILIDAD,'#10' ID_TIENDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :R' + + 'EFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_VE' + + 'NCIMIENTO, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO,' + + ' :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :IMPORTE_TOTAL, :OB' + + 'SERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CALLE, :PO' + + 'BLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' CURRENT_TIMESTAMP, :U' + + 'SUARIO, :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA' + + ', :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD, :I' + + 'D_TIENDA)'#10' '#10' '#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -1029,14 +1021,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor Name = 'CODIGO_POSTAL' Value = '' end - item - Name = 'FECHA_ALTA' - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - Value = '' - end item Name = 'USUARIO' Value = '' @@ -1090,13 +1074,12 @@ object srvFacturasProveedor: TsrvFacturasProveedor 'ACIONES, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' NIF_CIF = :NIF_' + 'CIF, '#10' NOMBRE = :NOMBRE, '#10' CALLE = :CALLE, '#10' POBLACION ' + '= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = ' + - ':CODIGO_POSTAL, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFI' + - 'CACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' ID_F' + - 'ORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA = :RECARGO' + - '_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NET' + - 'O = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNO' + - 'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TI' + - 'ENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10 + ':CODIGO_POSTAL, '#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' ' + + ' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' R' + + 'ECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = ' + + ':ID_TIPO_IVA, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PO' + + 'RTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONTAB' + + 'ILIDAD,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 97f4123f..7f908a09 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,294 +1,301 @@ - + - - {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 - - - FalseTrueFalseTrueFalse2530FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.3.0FactuGES (Servidor)2.5.3.0viernes, 17 de mayo de 2013 12:12 - File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService -
- - - -
srvEmpresas
- TDARemoteService -
- -
srvProvinciasPoblaciones
- TRORemoteDataModule -
- - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService -
- - - - -
srvAlbaranesProveedor
- TDataAbstractService -
- - - -
srvAlmacenes
- TDARemoteService -
- - - - - - - -
RptComisiones
- TDataModule -
- -
srvComisiones
- TDataAbstractService -
- - - - -
srvContabilidad
- TDataAbstractService -
- - - - - - - -
RptEtiquetasContacto
- TDataModule -
- -
srvContactos
- TDARemoteService -
- - - - -
RptContratosCliente
-
- -
srvContratosCliente
- TDataAbstractService -
- - - - -
RptFacturasCliente
- TDataModule -
- -
srvFacturasCliente
- TDataAbstractService -
- - - - -
RptFacturasProveedor
- TDataModule -
- -
srvFacturasProveedor
- TDataAbstractService -
- - - - - - - -
srvGestorDocumentos
- TDataAbstractService -
- -
srvGestorInformes
- TDataAbstractService -
- - - -
srvHistoricoMovimientos
- TDataAbstractService -
- - - -
srvInventario
- TDataAbstractService -
- - - - -
srvPedidosProveedor
- TDataAbstractService -
- - - - -
RptPresupuestosCliente
-
- -
srvPresupuestosCliente
- TDataAbstractService -
- - - - - -
RptRecibosCliente
- TDataModule -
- -
srvRecibosCliente
- TDataAbstractService -
- - - - - -
RptRecibosProveedor
- TDataModule -
- -
srvRecibosProveedor
- TDataAbstractService -
- - - -
srvReferencias
- TDataAbstractService -
- - - - -
srvRemesasCliente
- TDataAbstractService -
- - - - -
srvRemesasProveedor
- TDataAbstractService -
- - - - - - -
srvUnidadesMedida
- 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 + + +FalseTrueFalseTrueFalse2530FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.3.0FactuGES (Servidor)2.5.3.0viernes, 17 de mayo de 2013 12:12 + + + + + + + + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService +
+ + + +
srvEmpresas
+ TDARemoteService +
+ +
srvProvinciasPoblaciones
+ TRORemoteDataModule +
+ + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService +
+ + + + +
srvAlbaranesProveedor
+ TDataAbstractService +
+ + + +
srvAlmacenes
+ TDARemoteService +
+ + + + + + + +
RptComisiones
+ TDataModule +
+ +
srvComisiones
+ TDataAbstractService +
+ + + + +
srvContabilidad
+ TDataAbstractService +
+ + + + + + + +
RptEtiquetasContacto
+ TDataModule +
+ +
srvContactos
+ TDARemoteService +
+ + + + +
RptContratosCliente
+
+ +
srvContratosCliente
+ TDataAbstractService +
+ + + + +
RptFacturasCliente
+ TDataModule +
+ +
srvFacturasCliente
+ TDataAbstractService +
+ + + + +
RptFacturasProveedor
+ TDataModule +
+ +
srvFacturasProveedor
+ TDataAbstractService +
+ + + + + + + +
srvGestorDocumentos
+ TDataAbstractService +
+ +
srvGestorInformes
+ TDataAbstractService +
+ + + +
srvHistoricoMovimientos
+ TDataAbstractService +
+ + + +
srvInventario
+ TDataAbstractService +
+ + + + +
srvPedidosProveedor
+ TDataAbstractService +
+ + + + +
RptPresupuestosCliente
+
+ +
srvPresupuestosCliente
+ TDataAbstractService +
+ + + + + +
RptRecibosCliente
+ TDataModule +
+ +
srvRecibosCliente
+ TDataAbstractService +
+ + + + + +
RptRecibosProveedor
+ TDataModule +
+ +
srvRecibosProveedor
+ TDataAbstractService +
+ + + +
srvReferencias
+ TDataAbstractService +
+ + + + +
srvRemesasCliente
+ TDataAbstractService +
+ + + + +
srvRemesasProveedor
+ TDataAbstractService +
+ + + + + + +
srvUnidadesMedida
+ TDataAbstractService +
+ + + +
srvConfiguracion
+ TDataAbstractService +
+ +
frConexionBD
+ TFrame +
+ +
frConfGeneral
+ TFrame +
+ +
fConfiguracion
+ TForm +
+ +
FrameConfiguracion
+ TFrame +
+ +
srvLogin
+ TDARemoteService +
+ +
fAcercaDe
+
+ +
dmServer
+ TDataModule +
+ +
fServerForm
+
+ + + + + + + + +