diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 5f8ccd8..34d1e0e 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index d5867e7..2366feb 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -1299,7 +1299,7 @@ SELECT ALBARANES_CLIENTE.ID, FROM ALBARANES_CLIENTE ; -/* View: V_ALB_CLI_DETALLES */ +/* View: V_ALB_CLI_DETALLES, esta es para saber lo que resta por mandar (albaranar) de un pedido de cliente */ CREATE VIEW V_ALB_CLI_DETALLES( ID_ALBARAN, ID_PEDIDO, @@ -1312,9 +1312,7 @@ SELECT ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, ALBARANES_CLIENTE_DETALLES.ID_PEDIDO, V_ALB_CLI_SITUACION.SITUACION, ALBARANES_CLIENTE.ID_ALMACEN, - CASE WHEN ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO IS NULL then COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0) - ELSE ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO - END AS ID_ARTICULO, + COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0) as ID_ARTICULO, SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0)) FROM ALBARANES_CLIENTE_DETALLES @@ -1338,7 +1336,46 @@ group BY ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, ID_ARTICULO ; +/*Esta vista es para la parte de inventario para poder saber si se han mandado articulos diferentes a los que se pidieron*/ +CREATE VIEW V_ALB_CLI_DETALLES_ENVIO( + ID_ALBARAN, + ID_PEDIDO, + SITUACION, + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, + ALBARANES_CLIENTE_DETALLES.ID_PEDIDO, + V_ALB_CLI_SITUACION.SITUACION, + ALBARANES_CLIENTE.ID_ALMACEN, + CASE WHEN ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO IS NULL then COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0) + ELSE ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO + END AS ID_ARTICULO, + + SUM(COALESCE(ALBARANES_CLIENTE_DETALLES.CANTIDAD, 0)) + +FROM ALBARANES_CLIENTE_DETALLES +INNER JOIN ALBARANES_CLIENTE +ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID) +INNER JOIN V_ALB_CLI_SITUACION +ON (ALBARANES_CLIENTE_DETALLES.ID_ALBARAN = V_ALB_CLI_SITUACION.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 +ON (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID) + +WHERE (ALBARANES_CLIENTE_DETALLES.ID_ARTICULO is not null) +AND (ARTICULOS.INVENTARIABLE = 1) +*/ + +group BY ALBARANES_CLIENTE_DETALLES.ID_ALBARAN, + ALBARANES_CLIENTE_DETALLES.ID_PEDIDO, + V_ALB_CLI_SITUACION.SITUACION, + ALBARANES_CLIENTE.ID_ALMACEN, + ID_ARTICULO +; /* View: V_ALB_PROV_DETALLES */ CREATE VIEW V_ALB_PROV_DETALLES( @@ -2372,20 +2409,20 @@ CREATE VIEW V_HIS_MOV_ALB_CLI( AS SELECT ALBARANES_CLIENTE.FECHA_ALBARAN, - V_ALB_CLI_DETALLES.ID_ALMACEN, - V_ALB_CLI_DETALLES.ID_ARTICULO, - CASE WHEN V_ALB_CLI_DETALLES.CANTIDAD < 0 THEN 'E' + V_ALB_CLI_DETALLES_ENVIO.ID_ALMACEN, + V_ALB_CLI_DETALLES_ENVIO.ID_ARTICULO, + CASE WHEN V_ALB_CLI_DETALLES_ENVIO.CANTIDAD < 0 THEN 'E' ELSE 'S' END, - (-1)*V_ALB_CLI_DETALLES.CANTIDAD, + (-1)*V_ALB_CLI_DETALLES_ENVIO.CANTIDAD, CASE WHEN ALBARANES_CLIENTE.IMPORTE_TOTAL < 0 THEN 'Orden de devolución de cliente ' || ALBARANES_CLIENTE.REFERENCIA ELSE 'Albarán de cliente ' || ALBARANES_CLIENTE.REFERENCIA END -FROM V_ALB_CLI_DETALLES +FROM V_ALB_CLI_DETALLES_ENVIO LEFT JOIN ALBARANES_CLIENTE -ON (V_ALB_CLI_DETALLES.ID_ALBARAN = ALBARANES_CLIENTE.ID) +ON (V_ALB_CLI_DETALLES_ENVIO.ID_ALBARAN = ALBARANES_CLIENTE.ID) -WHERE (V_ALB_CLI_DETALLES.ID_ALMACEN IS NOT NULL) -AND (V_ALB_CLI_DETALLES.SITUACION in ('ENVIADO', 'SERVIDO')) +WHERE (V_ALB_CLI_DETALLES_ENVIO.ID_ALMACEN IS NOT NULL) +AND (V_ALB_CLI_DETALLES_ENVIO.SITUACION in ('ENVIADO', 'SERVIDO')) ; @@ -2822,7 +2859,7 @@ CREATE VIEW V_INV_RESERVAS_AUX( CANTIDAD) AS SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) -FROM V_ALB_CLI_DETALLES +FROM V_ALB_CLI_DETALLES_ENVIO WHERE (ID_ALMACEN IS NOT NULL) AND (SITUACION = 'PENDIENTE') GROUP BY ID_ALMACEN, ID_ARTICULO @@ -2856,7 +2893,7 @@ CREATE VIEW V_INV_SALIDAS_ALB( CANTIDAD) AS SELECT ID_ALMACEN, ID_ARTICULO, SUM(CANTIDAD) -FROM V_ALB_CLI_DETALLES +FROM V_ALB_CLI_DETALLES_ENVIO WHERE (ID_ALMACEN IS NOT NULL) AND (SITUACION in ('ENVIADO', 'SERVIDO')) GROUP BY ID_ALMACEN, ID_ARTICULO @@ -2878,7 +2915,12 @@ CREATE VIEW V_INV_SALIDAS_ALB_COLOR( COLOR11, COLOR12) AS -SELECT ALBARANES_CLIENTE.ID_ALMACEN, ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, +SELECT ALBARANES_CLIENTE.ID_ALMACEN, + +CASE WHEN ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO IS NULL then COALESCE(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, 0) +ELSE ALBARANES_CLIENTE_DETALLES.ID_ARTICULO_REEMPLAZADO +END AS ID_ARTICULO, + SUM(COLOR1) as COLOR1, SUM(COLOR2) as COLOR2, SUM(COLOR3) as COLOR3, diff --git a/Database/scripts/factuges_sysdata.sql b/Database/scripts/factuges_sysdata.sql index 16cfd62..93225c2 100644 --- a/Database/scripts/factuges_sysdata.sql +++ b/Database/scripts/factuges_sysdata.sql @@ -80,7 +80,9 @@ COMMIT WORK; INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO_IVA, ID_FORMA_PAGO) VALUES (1, 'B-81150278', 'NOVISEDA S.L.', 'NOVISEDA S.L.', 'C/ San Alejandro, 10', 'Madrid', 'Madrid', '28005', '91 364 22 06', NULL, NULL, NULL, '91 365 53 54', 'noviseda@fedecon.es', NULL, NULL, NULL, NULL, 'Administrador', 'Reg. Merc. de Madrid, Tomo 9.450, Libro 0, Folio 1, Sección 8ª, Hoja M-151873. Inscripción 1ª CIF: B-81150278', NULL, NULL, NULL, NULL); INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO_IVA, ID_FORMA_PAGO) VALUES (2, 'B-81159278', 'PRUEBAS - NOVISEDA S.L.', 'PRUEBAS - NOVISEDA S.L.', 'C/ San Alejandro, 10', 'Madrid', 'Madrid', '28005', '91 364 22 06', NULL, '', NULL, '91 365 53 54', 'noviseda@fedecon.es', NULL, NULL, NULL, NULL, 'Administrador', 'Reg. Merc. de Madrid, Tomo 9.450, Libro 0, Folio 1, Sección 8ª, Hoja M-151873. Inscripción 1ª CIF: B-81150278', NULL, NULL, NULL, NULL); - SET GENERATOR GEN_EMPRESAS_ID TO 3; COMMIT WORK; +INSERT INTO ALMACENES (ID, ID_EMPRESA, TIPO_ALMACEN, NOMBRE, CALLE, PROVINCIA, POBLACION, CODIGO_POSTAL, TELEFONO, MOVIL, FAX, PERSONA_CONTACTO, FECHA_ALTA, FECHA_MODIFICACION, USUARIO) VALUES (2, 1, 'ALMACEN', 'ALMACEN', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 'Administrador'); +SET GENERATOR GEN_ALMACENES_ID TO 3; +COMMIT WORK; diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339..8b251f3 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr index e443745..93ec023 100644 --- a/Source/Cliente/FactuGES.dpr +++ b/Source/Cliente/FactuGES.dpr @@ -1,7 +1,7 @@ program FactuGES; uses - ExceptionLog, +// ExceptionLog, Forms, Windows, SysUtils, diff --git a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas index 53166c2..43e70a7 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas @@ -14,6 +14,7 @@ type procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable); + procedure QuitarArticuloReemplazado(ADetalles: IDAStronglyTypedDataTable); end; TDetallesAlbaranClienteController = class(TControllerDetallesArticulos, IDetallesAlbaranClienteController) @@ -36,6 +37,7 @@ type procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable); + procedure QuitarArticuloReemplazado(ADetalles: IDAStronglyTypedDataTable); constructor Create; override; destructor Destroy; override; end; @@ -171,6 +173,23 @@ begin end; end; +procedure TDetallesAlbaranClienteController.QuitarArticuloReemplazado(ADetalles: IDAStronglyTypedDataTable); +var + EnEdicion: Boolean; + +begin + EnEdicion := ADetalles.DataTable.Editing; + if not EnEdicion then + ADetalles.Edit; + + (ADetalles as IBizDetallesAlbaranCliente).ID_ARTICULO_REEMPLAZADOIsNull := True; + (ADetalles as IBizDetallesAlbaranCliente).REFERENCIA_ART_REEMPLAZADOIsNull := True; + ADetalles.Post; + + if EnEdicion then + ADetalles.Edit; +end; + procedure TDetallesAlbaranClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); begin //Solo para albaranes que es donde se distingue entre colores para tema de stock diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm index a0cb342..bb268a1 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm @@ -23,9 +23,9 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente end inherited FontSize: TEdit Top = 22 - Width = 170 + Width = 202 ExplicitTop = 22 - ExplicitWidth = 170 + ExplicitWidth = 202 end inherited ToolButton13: TToolButton [7] Left = 0 @@ -111,9 +111,69 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente Properties.Buttons = < item Default = True - Kind = bkEllipsis + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 1800000000000003000011170000111700000000000000000000FFFFFFFFFFFF + FFFFFFFFFFFFFFFFFF009000009000006000006000006000006000FFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00900031C94C0E + A6160EA6160EA616006000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFF00900036CE5531C94C2BC3440EA616006000FFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0090003BD35D36 + CE5534CC510EA616006000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFF00900042DA693DD56139D1590EA616006000FFFFFFFFFF + FFFFFFFFFFFFFFFFFFFF00900000600000600000600000600000600047DF7142 + DA693DD5610EA61600600000600000600000600000600000600000900060F898 + 0EA6160EA6160EA6160EA6164CE47947DF7142DA690EA6160EA6160EA6160EA6 + 160EA6160EA61600600000900060F89860F89860F8985BF39156EE8951E9814C + E47947DF7142DA693DD56139D15934CC512EC6480EA61600600000900060F898 + 60F89860F89860F8985BF39156EE8951E9814CE47947DF7142DA693DD56139D1 + 5934CC510EA61600600000900060F89860F89860F89860F89860F8985BF39156 + EE8951E9814CE47947DF7142DA693DD56139D15934CC51006000009000009000 + 00900000900000900000900060F8985BF39156EE890EA6160060000090000090 + 00009000009000009000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00900060F89860 + F8985BF3910EA616006000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFF00900060F89860F89860F8980EA616006000FFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00900060F89860 + F89860F8980EA616006000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFF00900060F89860F89860F8980EA616006000FFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00900000900000 + 9000009000009000009000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} + Hint = 'A'#241'adir art'#237'culo de reemplazo' + Kind = bkGlyph + end + item + Glyph.Data = { + 36030000424D3603000000000000360000002800000010000000100000000100 + 18000000000000030000EA0A0000EA0A00000000000000000000FFFFFFDCDCF1 + 4C4FBCEAEAF6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFD4D4EE131CB3000BAE595CC2FFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBBBBE3E2E2F3FFFFFF6976E0071BC6 + 000EB4010BADAAABDEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3F3FA6A6A + C30202997575C7FFFFFF3D52E32342F00012BC000EB5151CB2E6E6F5FFFFFFFF + FFFFFFFFFFFFFFFFC2C2E62424A60000982929A8E9E9F6FFFFFFB1B5E82E4CF3 + 1C35DB0011BB000EB53D42BDF8F8FCFFFFFFF6F6FB7272C504049A0000982424 + A7E4E4F4FFFFFFFFFFFFFFFFFF7F86DD4D67F70D22C90012BC000EB56165C8C8 + C8EA2A2DB000029D0000981E1EA3DEDEF1FFFFFFFFFFFFFFFFFFFFFFFFFCFCFD + 8086DC4C60E60016C20012BC000EB5030DAE0009AA0006A4191BA6D8D8EFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFE8E93DC162ACB0015C20012BC00 + 0FB6000CB0141AADD2D2EDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFCFD0EE0B1FC70018C90015C30012BD000FB69697D7FFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFDFF31B31D1001ED5001BCF0018C900 + 15C30012BD131DB7D4D4EEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEBEBF7 + 2940D80025E20022DC0120D72742E32B3BCC071FCD0013BE1D28B9DFDFF2FFFF + FFFFFFFFFFFFFFFFFFFFF5F5FB394FDB002BEF0028E9092EE63A57F2868DE0F7 + F7FC6A74D90D25D10013BE1E29B9D5D5EFFFFFFFFFFFFFFFFFFF737DDC002FF7 + 002EF5183FF44662F8848BDEFEFEFEFFFFFFFFFFFFA1A6E3283CD10518C2131E + B8C5C5E9FFFFFFFFFFFFDFDFF31A3AE42A4FFC4A66FA858CE0FEFEFEFFFFFFFF + FFFFFFFFFFFFFFFFE6E6F56C74D81729C60A16B7ACADE0FFFFFFFFFFFFE9E9F7 + 8B94E48991E1FEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBCBE + E85059C9B8B9E4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} + Hint = 'Quitar art'#237'culo de reemplazo' + Kind = bkGlyph end> Properties.OnButtonClick = cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick + Styles.Content = cxStyle_DESCUENTO end inherited cxGridViewCANTIDAD: TcxGridDBColumn Properties.ReadOnly = True @@ -130,7 +190,6 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente Kind = bkEllipsis end> Properties.ReadOnly = True - Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick HeaderAlignmentHorz = taRightJustify end inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn @@ -193,6 +252,14 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente Visible = False end end + inherited cxStyleRepository: TcxStyleRepository + inherited cxStyle_DESCUENTO: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Color = clRed + Font.Style = [fsBold] + TextColor = clRed + end + end inherited GridGeneralPopupMenu: TPopupMenu object Aadirartculos1: TMenuItem [4] Action = actAnadirArticulos diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas index 55d34c9..9ffdcee 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas @@ -11,10 +11,10 @@ uses cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit, Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, ExtActns, StdActns, JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, SpTBXItem, TB2Dock, TB2Toolbar, - uControllerDetallesArticulos, uBizAlbaranesCliente, cxDropDownEdit, - cxCalendar, cxDBEdit, dxLayoutControl, cxContainer, cxLookupEdit, + uControllerDetallesArticulos, uBizAlbaranesCliente, uBizDetallesAlbaranCliente, + cxDropDownEdit, cxCalendar, cxDBEdit, dxLayoutControl, cxContainer, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uDAInterfaces, cxButtonEdit, - uViewDetallesArticulos, Menus, cxGridCustomPopupMenu, cxGridPopupMenu, + uViewDetallesArticulos, Menus, cxGridCustomPopupMenu, cxGridPopupMenu, uViewDetallesArticulosParaVenta, cxEditRepositoryItems, cxLookAndFeels, cxLookAndFeelPainters; @@ -33,7 +33,6 @@ type cxGridViewCANTIDAD2: TcxGridDBColumn; cxGridViewIR_ARTICULO_REEMPLAZADO: TcxGridDBColumn; cxGridViewREFERENCIA_ART_REEMPLAZADO: TcxGridDBColumn; - procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure OnValidateReferencia_ART_REEMPLAZADO(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure CustomViewCreate(Sender: TObject); @@ -86,18 +85,13 @@ begin inherited; end; -procedure TfrViewDetallesAlbaranCliente.cxGridViewCANTIDAD2PropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrViewDetallesAlbaranCliente.cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin inherited; - (Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles); -end; - -procedure TfrViewDetallesAlbaranCliente.cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); -begin - inherited; -// + case AButtonIndex of + 0:(Controller as IControllerDetallesArticulos).AnadirArticulos(Detalles, False, tClienteReemplazo); + 1:(Controller as IDetallesAlbaranClienteController).QuitarArticuloReemplazado(Detalles); + end; end; function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente; @@ -115,14 +109,16 @@ begin Exit; lsReferencia := VarToStr(DisplayValue); - if (length(trim(lsReferencia)) = 0) then - Exit; - - if not AnadirArticulo(lsReferencia, tClienteReemplazo) then + if (length(trim(lsReferencia)) <> 0) then begin - ErrorText := 'La referencia introducida no exite en el catálogo'; - Error := True; - end; + if not AnadirArticulo(lsReferencia, tClienteReemplazo) then + begin + ErrorText := 'La referencia introducida no exite en el catálogo'; + Error := True; + end; + end + else + (Controller as IDetallesAlbaranClienteController).QuitarArticuloReemplazado(Detalles); end; procedure TfrViewDetallesAlbaranCliente.RellenarArticulosInterno; diff --git a/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm b/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm index 56038e5..afb8d54 100644 --- a/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm +++ b/Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm @@ -48,7 +48,9 @@ object PluginAlmacenes: TPluginAlmacenes Tag = 100 Category = 'Log'#237'stica' Caption = 'Almacenes' + Enabled = False ImageIndex = 0 + Visible = False OnExecute = actAlmacenesExecute end end diff --git a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas index 43febea..7ff6deb 100644 --- a/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas +++ b/Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas @@ -8,14 +8,14 @@ uses Classes, Variants, uDACDSDataTable, uDADataTable, uControllerDetallesBase, const CAMPO_REFERENCIA = 'REFERENCIA'; //Campo ficticio CAMPO_REFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; //Campo ficticio - CAMPO_REFERENCIA_ART_REEMPLAZADO = 'REFERENCIA_ART_REEMPLAZADO'; //Campo ficticio + CAMPO_REFERENCIA_ART_REEMPLAZADO = 'REFERENCIA_ART_REEMPLAZADO'; //Campo ficticio type TEnumReferencia = (tCliente, tProveedor, tClienteReemplazo); IControllerDetallesArticulos = interface(IControllerDetallesBase) ['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}'] - procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True); + procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True; const TipoReferencia: TEnumReferencia=tCliente); function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload; function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); @@ -43,7 +43,7 @@ type public function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload; function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Float = 1): Boolean; overload; - procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True); virtual; + procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True; const TipoReferencia: TEnumReferencia=tCliente); virtual; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable; const AAll: Boolean = True); procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String); @@ -168,7 +168,7 @@ begin end; end; -procedure TControllerDetallesArticulos.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila: Boolean); +procedure TControllerDetallesArticulos.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True; const TipoReferencia: TEnumReferencia=tCliente); var AArticulos: IBizArticulo; begin @@ -185,7 +185,12 @@ begin else begin AArticulos := FArticulosController.ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir', False); - RellenarDetalle(ADetalles, AArticulos); + + //Se ha introducido en la funcion el parametro tipoReferencia para que desde el detalle se pueda cambiar seleccionando un articulo la referencia de reemplazo + case TipoReferencia of + tCliente: RellenarDetalle(ADetalles, AArticulos); + tClienteReemplazo: RellenarDetalleReemplazo(ADetalles, AArticulos); + end; end; finally AArticulos := Nil; diff --git a/Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm b/Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm index 3722f31..5b4ca82 100644 --- a/Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm +++ b/Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm @@ -23,17 +23,17 @@ inherited fEditorElegirClientes: TfEditorElegirClientes ExplicitWidth = 683 ExplicitHeight = 49 inherited tbxMain: TSpTBXToolbar - ExplicitWidth = 284 + ExplicitWidth = 126 inherited TBXItem36: TSpTBXItem Action = actAnchoAuto2 end end inherited tbxFiltro: TSpTBXToolbar - Left = 284 + Left = 126 Top = 23 DockPos = 96 DockRow = 1 - ExplicitLeft = 284 + ExplicitLeft = 126 ExplicitTop = 23 inherited TBXItem34: TSpTBXItem Action = actQuitarFiltro2 @@ -199,30 +199,36 @@ inherited fEditorElegirClientes: TfEditorElegirClientes StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 689 + Width = 689 end inherited edtFechaIniFiltro: TcxDateEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 460 + Width = 460 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 385 + Left = 397 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 385 + ExplicitLeft = 397 ExplicitWidth = 123 Width = 123 end inherited eLista: TcxComboBox - Left = 520 + Left = 515 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 520 + ExplicitLeft = 515 + ExplicitWidth = 215 + Width = 215 end end inherited TBXAlignmentPanel1: TSpTBXDockablePanel @@ -296,6 +302,14 @@ inherited fEditorElegirClientes: TfEditorElegirClientes inherited actConfPagina: TAction Visible = False end + inherited actPrevisualizar: TAction + Enabled = False + Visible = False + end + inherited actImprimir: TAction + Enabled = False + Visible = False + end inherited actDeshacer: TEditUndo Visible = False end diff --git a/Source/Modulos/Inventario/Model/Inventario_model.rc b/Source/Modulos/Inventario/Model/Inventario_model.rc index e69de29..153736a 100644 --- a/Source/Modulos/Inventario/Model/Inventario_model.rc +++ b/Source/Modulos/Inventario/Model/Inventario_model.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Inventario/Model/Inventario_model.res b/Source/Modulos/Inventario/Model/Inventario_model.res index 86c94e6..8b251f3 100644 Binary files a/Source/Modulos/Inventario/Model/Inventario_model.res and b/Source/Modulos/Inventario/Model/Inventario_model.res differ diff --git a/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas b/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas index e29a5c2..bbf8c16 100644 --- a/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas +++ b/Source/Modulos/Inventario/Model/schInventarioClient_Intf.pas @@ -4,7 +4,7 @@ unit schInventarioClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -314,7 +314,7 @@ type end; { TInventarioDataTableRules } - TInventarioDataTableRules = class(TDADataTableRules, IInventario) + TInventarioDataTableRules = class(TIntfObjectDADataTableRules, IInventario) private protected { Property getters and setters } @@ -553,7 +553,7 @@ type end; { TMovimientos_Detalle_ColorDataTableRules } - TMovimientos_Detalle_ColorDataTableRules = class(TDADataTableRules, IMovimientos_Detalle_Color) + TMovimientos_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IMovimientos_Detalle_Color) private protected { Property getters and setters } @@ -762,7 +762,7 @@ type end; { TDetalleReservasDataTableRules } - TDetalleReservasDataTableRules = class(TDADataTableRules, IDetalleReservas) + TDetalleReservasDataTableRules = class(TIntfObjectDADataTableRules, IDetalleReservas) private protected { Property getters and setters } @@ -971,7 +971,7 @@ type end; { TInventario_ColorDataTableRules } - TInventario_ColorDataTableRules = class(TDADataTableRules, IInventario_Color) + TInventario_ColorDataTableRules = class(TIntfObjectDADataTableRules, IInventario_Color) private protected { Property getters and setters } diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc index c43ab23..5b39d2c 100644 --- a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc +++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */ -/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E6.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc index 2de0118..5462a42 100644 --- a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc +++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfA0.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E4.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc index 95489dd..2e1cd3f 100644 --- a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc +++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf9E.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E2.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc index bc4214c..2ef782f 100644 --- a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc +++ b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf112.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf256.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc index f2e8b21..36cf5a7 100644 --- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc +++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc @@ -25,4 +25,4 @@ END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorPedidosClienteReport.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */ -/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.drf */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf254.tmp */ diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 5244167..e590be1 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index ea04452..8a47c1e 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -3,7 +3,7 @@ program FactuGES_Server; {#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove! uses - ExceptionLog, +// ExceptionLog, uROComInit, uROComboService, Forms, diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 4193db8..ae87e30 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,347 +1,347 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG;EUREKALOG;EUREKALOG_VER6 - True - True - True - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - - - Delphi.Personality - - -FalseTrueFalse/standaloneTrueFalse1020FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.2.0FactuGES ServidorFactuGES Servidor1.0.2.0jueves, 18 de febrero de 2010 12:17FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService -
- -
srvProvinciasPoblaciones_Impl
- TDataModule -
- - - -
srvUsuarios
- TDataAbstractService -
- - - - - - - -
RptAlbaranesCliente
- TDataModule -
- -
RptWordAlbaranCliente
- TDataModule -
- -
srvAlbaranesCliente
- TDataAbstractService -
- - - - -
RptAlbaranesProveedor
- TDataModule -
- -
RptWordAlbaranProveedor
- TDataModule -
- -
srvAlbaranesProveedor
- TDataAbstractService -
- - - -
srvAlmacenes
- TDARemoteService -
- - - - -
srvArticulos
- TDARemoteService -
- - - - - - - - -
RptEtiquetasContacto
- TDataModule -
- -
RptFichasEmpleado
- TDataModule -
- -
srvContactos
- TDARemoteService -
- - - -
srvFabricantes
- TDataAbstractService -
- - - - -
RptFacturasCliente
- TDataModule -
- -
RptWordFacturaCliente
- TDataModule -
- -
srvFacturasCliente
- TDataAbstractService -
- - - - -
RptFacturasProveedor
- TDataModule -
- -
srvFacturasProveedor
- TDataAbstractService -
- - - -
srvFamilias
- TDataAbstractService -
- - - -
srvFormasPago
- TDataAbstractService -
- -
srvGestorDocumentos
- TDataAbstractService -
- -
srvGestorInformes
- TDataAbstractService -
- - - -
srvHistoricoMovimientos
- TDataAbstractService -
- - - -
srvInventario
- TDataAbstractService -
- - - - -
srvObras
- TDataAbstractService -
- - - - -
RptPedidosProveedor
- TDataModule -
- -
RptWordPedidoProveedor
- TDataModule -
- -
srvPedidosProveedor
- TDataAbstractService -
- - - - -
RptPedidosCliente
-
- -
srvPedidosCliente
- TDataAbstractService -
- - - - -
RptPresupuestosCliente
- TDataModule -
- -
RptWordCertificadoTrabajo
- TDataModule -
- -
RptWordPresupuestoCliente
- TDataModule -
- -
srvPresupuestosCliente
- TDataAbstractService -
- - - -
RptRecibosCliente
- TDataModule -
- -
srvRecibosCliente
- TDataAbstractService -
- - - -
RptRecibosProveedor
- TDataModule -
- -
srvRecibosProveedor
- TDataAbstractService -
- - - -
srvReferencias
- TDataAbstractService -
- - - - -
RptRemesasCliente
- TDataModule -
- -
srvRemesasCliente
- TDataAbstractService -
- - - - -
srvRemesasProveedor
- TDataAbstractService -
- - - -
srvTiposIVA
- 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 + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG;EUREKALOG;EUREKALOG_VER6 + True + True + True + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + + + Delphi.Personality + + + FalseTrueFalse/standaloneTrueFalse1020FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.2.0FactuGES ServidorFactuGES Servidor1.0.2.0jueves, 18 de febrero de 2010 12:17FactuGES_Server.dpr + + + + + MainSource + + + + + + TDARemoteService +
srvEmpresas
+
+ + TDataModule +
srvProvinciasPoblaciones_Impl
+
+ + + + TDataAbstractService +
srvUsuarios
+
+ + + + + + + + TDataModule +
RptAlbaranesCliente
+
+ + TDataModule +
RptWordAlbaranCliente
+
+ + TDataAbstractService +
srvAlbaranesCliente
+
+ + + + + TDataModule +
RptAlbaranesProveedor
+
+ + TDataModule +
RptWordAlbaranProveedor
+
+ + TDataAbstractService +
srvAlbaranesProveedor
+
+ + + + TDARemoteService +
srvAlmacenes
+
+ + + + + TDARemoteService +
srvArticulos
+
+ + + + + + + + + TDataModule +
RptEtiquetasContacto
+
+ + TDataModule +
RptFichasEmpleado
+
+ + TDARemoteService +
srvContactos
+
+ + + + TDataAbstractService +
srvFabricantes
+
+ + + + + TDataModule +
RptFacturasCliente
+
+ + TDataModule +
RptWordFacturaCliente
+
+ + TDataAbstractService +
srvFacturasCliente
+
+ + + + + TDataModule +
RptFacturasProveedor
+
+ + TDataAbstractService +
srvFacturasProveedor
+
+ + + + TDataAbstractService +
srvFamilias
+
+ + + + TDataAbstractService +
srvFormasPago
+
+ + TDataAbstractService +
srvGestorDocumentos
+
+ + TDataAbstractService +
srvGestorInformes
+
+ + + + TDataAbstractService +
srvHistoricoMovimientos
+
+ + + + TDataAbstractService +
srvInventario
+
+ + + + + TDataAbstractService +
srvObras
+
+ + + + + TDataModule +
RptPedidosProveedor
+
+ + TDataModule +
RptWordPedidoProveedor
+
+ + TDataAbstractService +
srvPedidosProveedor
+
+ + + + +
RptPedidosCliente
+
+ + TDataAbstractService +
srvPedidosCliente
+
+ + + + + TDataModule +
RptPresupuestosCliente
+
+ + TDataModule +
RptWordCertificadoTrabajo
+
+ + TDataModule +
RptWordPresupuestoCliente
+
+ + TDataAbstractService +
srvPresupuestosCliente
+
+ + + + TDataModule +
RptRecibosCliente
+
+ + TDataAbstractService +
srvRecibosCliente
+
+ + + + TDataModule +
RptRecibosProveedor
+
+ + TDataAbstractService +
srvRecibosProveedor
+
+ + + + TDataAbstractService +
srvReferencias
+
+ + + + + TDataModule +
RptRemesasCliente
+
+ + TDataAbstractService +
srvRemesasCliente
+
+ + + + + TDataAbstractService +
srvRemesasProveedor
+
+ + + + TDataAbstractService +
srvTiposIVA
+
+ + + + TDataAbstractService +
srvUnidadesMedida
+
+ + + + TDataAbstractService +
srvConfiguracion
+
+ + TFrame +
frConexionBD
+
+ + TFrame +
frConfGeneral
+
+ + TForm +
fConfiguracion
+
+ + TFrame +
FrameConfiguracion
+
+ + TDARemoteService +
srvLogin
+
+ +
fAcercaDe
+
+ + TDataModule +
dmServer
+
+ +
fServerForm
+
+ + + + + + + + + + +