From cac0a513bf3a7bb11cf26a075f6ed84dc5718b41 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 20 Nov 2009 19:26:57 +0000 Subject: [PATCH] En la factura decir si es considerada para las comisiones o no. Estaba hecho en el programa anterior git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@464 f4e31baf-9722-1c47-927c-6f952f962d4b --- Database/scripts/factuges.sql | 12 +- Source/Base/Base.res | Bin 4748 -> 384 bytes Source/GUIBase/GUIBase.dproj | 56 +- Source/GUIBase/GUIBase.res | Bin 384 -> 4748 bytes .../Controller/uFacturasClienteController.pas | 6 +- .../Data/uDataModuleFacturasCliente.dfm | 4 + .../Model/schFacturasClienteClient_Intf.pas | 47 +- .../Model/schFacturasClienteServer_Intf.pas | 55 +- .../Model/uBizFacturasCliente.pas | 1 + .../Servidor/srvFacturasCliente_Impl.dfm | 43 +- .../Views/FacturasCliente_view.dproj | 58 +- .../Views/FacturasCliente_view.res | Bin 384 -> 4748 bytes .../Views/uEditorElegirFacturasCliente.dfm | 59 +- .../Views/uEditorFacturaCliente.dfm | 12 +- .../Views/uViewFacturaCliente.dfm | 73 ++- .../Views/uViewFacturaCliente.pas | 5 +- Source/Servidor/FactuGES_Server.RES | Bin 23356 -> 23356 bytes Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 593 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 20 files changed, 593 insertions(+), 439 deletions(-) diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 454cd395..a44b0ecb 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -913,7 +913,8 @@ CREATE TABLE FACTURAS_CLIENTE ( ID_TIENDA TIPO_ID, FECHA_VENCIMIENTO DATE, ID_DIRECCION TIPO_ID, - ID_CONTRATO TIPO_ID + ID_CONTRATO TIPO_ID, + SIN_COMISION SMALLINT ); CREATE TABLE FACTURAS_CLIENTE_DETALLES ( @@ -2665,7 +2666,8 @@ CREATE VIEW V_FACTURAS_CLIENTE( ESTADO_EJERCICIO, ASIENTO_PUNTEADO, ID_CONTRATO, - REF_CONTRATO) + REF_CONTRATO, + SIN_COMISION) AS SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.ID_EMPRESA, @@ -2713,7 +2715,8 @@ SELECT FACTURAS_CLIENTE.ID, V_CONT_FAC_CLI_VENTAS.ESTADO_EJERCICIO, V_CONT_FAC_CLI_VENTAS.ASIENTO_PUNTEADO, FACTURAS_CLIENTE.ID_CONTRATO, - CONTRATOS_CLIENTE.REFERENCIA + CONTRATOS_CLIENTE.REFERENCIA, + FACTURAS_CLIENTE.SIN_COMISION FROM V_FAC_CLI_SITUACION LEFT JOIN FACTURAS_CLIENTE @@ -2728,6 +2731,9 @@ SELECT FACTURAS_CLIENTE.ID, ; +update facturas_cliente +set sin_comision = 0; + /* Create view: V_FACTURAS_PROVEEDOR*/ CREATE VIEW V_FACTURAS_PROVEEDOR( ID, diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index f44e3be7..28783a40 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/GUIBase.res b/Source/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/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 322b49a9..995c5923 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -396,18 +396,16 @@ begin try Result := BuscarTodos; -{//Desactivamos comisiones por AGENTE with Result.DataTable.DynamicWhere do begin - //Todas las facturas de un agente determinado - Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_AGENTE), NewConstant(IdAgente, datInteger), dboEqual); + //Todas las facturas que sean comisionables + Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteSIN_COMISION), NewConstant(0, datInteger), dboEqual); if IsEmpty then Expression := Condicion else Expression := NewBinaryExpression(Expression, Condicion, dboAnd); end; -} with Result.DataTable.DynamicWhere do begin diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm index 30385f5f..bbad960f 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm @@ -304,6 +304,10 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente Name = 'REF_CONTRATO' DataType = datString Size = 255 + end + item + Name = 'SIN_COMISION' + DataType = datSmallInt end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index 9d9f56d4..10338ca6 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -9,9 +9,9 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturas = '{BDB39885-9D0F-4A3E-814C-D2BB2474181C}'; - RID_FacturasCliente = '{A4F7181E-ABF7-495D-822D-A5731C736961}'; - RID_FacturasCliente_Detalles = '{FE5983B1-508C-45E3-A334-50F9C6DFD116}'; + RID_ListaAnosFacturas = '{B3CC2885-3705-4BC8-B921-2F2557CB66A1}'; + RID_FacturasCliente = '{DBC2C52D-8B55-4B32-9C3A-EA6B5435576F}'; + RID_FacturasCliente_Detalles = '{1163C02B-0BE3-41F7-A346-BD6017A0DC4D}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; @@ -72,6 +72,7 @@ const fld_FacturasClienteASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO'; fld_FacturasClienteID_CONTRATO = 'ID_CONTRATO'; fld_FacturasClienteREF_CONTRATO = 'REF_CONTRATO'; + fld_FacturasClienteSIN_COMISION = 'SIN_COMISION'; { FacturasCliente field indexes } idx_FacturasClienteID = 0; @@ -121,6 +122,7 @@ const idx_FacturasClienteASIENTO_PUNTEADO = 44; idx_FacturasClienteID_CONTRATO = 45; idx_FacturasClienteREF_CONTRATO = 46; + idx_FacturasClienteSIN_COMISION = 47; { FacturasCliente_Detalles fields } fld_FacturasCliente_DetallesID = 'ID'; @@ -157,7 +159,7 @@ const type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{2F9A8276-7FDE-4342-B4DA-361F0102FE8E}'] + ['{AFDC48B7-CAC8-49CF-9841-0B5D6A4EA22E}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -192,7 +194,7 @@ type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{D347A94A-101F-4383-BF8B-35BFBB31D148}'] + ['{384238A5-DA30-44AE-BCFB-6E8FB855EE43}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -381,6 +383,10 @@ type procedure SetREF_CONTRATOValue(const aValue: String); function GetREF_CONTRATOIsNull: Boolean; procedure SetREF_CONTRATOIsNull(const aValue: Boolean); + function GetSIN_COMISIONValue: SmallInt; + procedure SetSIN_COMISIONValue(const aValue: SmallInt); + function GetSIN_COMISIONIsNull: Boolean; + procedure SetSIN_COMISIONIsNull(const aValue: Boolean); { Properties } @@ -478,6 +484,8 @@ type property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull; property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue; property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; + property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue; + property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull; end; { TFacturasClienteDataTableRules } @@ -674,6 +682,10 @@ type procedure SetREF_CONTRATOValue(const aValue: String); virtual; function GetREF_CONTRATOIsNull: Boolean; virtual; procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual; + function GetSIN_COMISIONValue: SmallInt; virtual; + procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual; + function GetSIN_COMISIONIsNull: Boolean; virtual; + procedure SetSIN_COMISIONIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -770,6 +782,8 @@ type property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull; property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue; property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; + property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue; + property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -779,7 +793,7 @@ type { IFacturasCliente_Detalles } IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{271EEB03-3BCE-44BE-BA84-C416E4D1C317}'] + ['{CA479886-F282-4EE6-B576-5E07F6676407}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2010,6 +2024,27 @@ begin DataTable.Fields[idx_FacturasClienteREF_CONTRATO].AsVariant := Null; end; +function TFacturasClienteDataTableRules.GetSIN_COMISIONValue: SmallInt; +begin + result := DataTable.Fields[idx_FacturasClienteSIN_COMISION].AsSmallInt; +end; + +procedure TFacturasClienteDataTableRules.SetSIN_COMISIONValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_FacturasClienteSIN_COMISION].AsSmallInt := aValue; +end; + +function TFacturasClienteDataTableRules.GetSIN_COMISIONIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasClienteSIN_COMISION].IsNull; +end; + +procedure TFacturasClienteDataTableRules.SetSIN_COMISIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasClienteSIN_COMISION].AsVariant := Null; +end; + { TFacturasCliente_DetallesDataTableRules } constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index e9c2b944..9cc9cbae 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturasDelta = '{9A67FA8C-4CB5-4322-9000-40E97CC2695E}'; - RID_FacturasClienteDelta = '{E64B2F64-D71E-4347-ADB5-13CD8A079A2E}'; - RID_FacturasCliente_DetallesDelta = '{FC124307-55CB-47BB-8160-54C85EDE96C9}'; + RID_ListaAnosFacturasDelta = '{B959365B-CFBF-4C4B-848E-4F97B481B71D}'; + RID_FacturasClienteDelta = '{D35BA392-FA41-4FA8-BBF8-4BD4F2F994A2}'; + RID_FacturasCliente_DetallesDelta = '{4BB27398-EDD5-4CA6-9418-0B4FA94D6C68}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{9A67FA8C-4CB5-4322-9000-40E97CC2695E}'] + ['{B959365B-CFBF-4C4B-848E-4F97B481B71D}'] { Property getters and setters } function GetOldANOValue : String; @@ -50,7 +50,7 @@ type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{E64B2F64-D71E-4347-ADB5-13CD8A079A2E}'] + ['{D35BA392-FA41-4FA8-BBF8-4BD4F2F994A2}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -99,6 +99,7 @@ type function GetOldASIENTO_PUNTEADOValue : SmallInt; function GetOldID_CONTRATOValue : Integer; function GetOldREF_CONTRATOValue : String; + function GetOldSIN_COMISIONValue : SmallInt; { Properties } property OldID : Integer read GetOldIDValue; @@ -148,6 +149,7 @@ type property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue; property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue; property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue; + property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue; end; { TFacturasClienteBusinessProcessorRules } @@ -438,6 +440,12 @@ type function GetOldREF_CONTRATOIsNull: Boolean; virtual; procedure SetREF_CONTRATOValue(const aValue: String); virtual; procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual; + function GetSIN_COMISIONValue: SmallInt; virtual; + function GetSIN_COMISIONIsNull: Boolean; virtual; + function GetOldSIN_COMISIONValue: SmallInt; virtual; + function GetOldSIN_COMISIONIsNull: Boolean; virtual; + procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual; + procedure SetSIN_COMISIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -628,6 +636,10 @@ type property REF_CONTRATOIsNull : Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue; property OldREF_CONTRATOIsNull : Boolean read GetOldREF_CONTRATOIsNull; + property SIN_COMISION : SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue; + property SIN_COMISIONIsNull : Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull; + property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue; + property OldSIN_COMISIONIsNull : Boolean read GetOldSIN_COMISIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -637,7 +649,7 @@ type { IFacturasCliente_DetallesDelta } IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) - ['{FC124307-55CB-47BB-8160-54C85EDE96C9}'] + ['{4BB27398-EDD5-4CA6-9418-0B4FA94D6C68}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -2349,6 +2361,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREF_CONTRATO] := Null; end; +function TFacturasClienteBusinessProcessorRules.GetSIN_COMISIONValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION]; +end; + +function TFacturasClienteBusinessProcessorRules.GetSIN_COMISIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION]); +end; + +function TFacturasClienteBusinessProcessorRules.GetOldSIN_COMISIONValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteSIN_COMISION]; +end; + +function TFacturasClienteBusinessProcessorRules.GetOldSIN_COMISIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteSIN_COMISION]); +end; + +procedure TFacturasClienteBusinessProcessorRules.SetSIN_COMISIONValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION] := aValue; +end; + +procedure TFacturasClienteBusinessProcessorRules.SetSIN_COMISIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION] := Null; +end; + { TFacturasCliente_DetallesBusinessProcessorRules } constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas index c57643fa..8c9fb7b4 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas @@ -255,6 +255,7 @@ begin FECHA_FACTURA := DateOf(Now); TIPO := CTE_TIPO_FACTURA; ID_CLIENTE := ID_NULO; + SIN_COMISION := 0; ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO; ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA; diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index a46ece08..25e18b41 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -235,6 +235,10 @@ object srvFacturasCliente: TsrvFacturasCliente item DatasetField = 'REF_CONTRATO' TableField = 'REF_CONTRATO' + end + item + DatasetField = 'SIN_COMISION' + TableField = 'SIN_COMISION' end> end> Name = 'FacturasCliente' @@ -484,6 +488,10 @@ object srvFacturasCliente: TsrvFacturasCliente Name = 'REF_CONTRATO' DataType = datString Size = 255 + end + item + Name = 'SIN_COMISION' + DataType = datSmallInt end> end item @@ -1086,6 +1094,11 @@ object srvFacturasCliente: TsrvFacturasCliente Name = 'ID_CONTRATO' DataType = datInteger Value = '' + end + item + Name = 'SIN_COMISION' + DataType = datSmallInt + Value = '' end> Statements = < item @@ -1101,17 +1114,17 @@ object srvFacturasCliente: TsrvFacturasCliente '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' VALU' + - 'ES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTU' + - 'RA,'#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_C' + - 'LIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :POBLACION,'#10' ' + - ' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_M' + - 'ODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUI' + - 'VALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORT' + - 'E,'#10' :IGNORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10' :ID_CONTRATO);' + - #10 + ' IGNORAR_CONTABILIDAD,'#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SI' + + 'N_COMISION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA' + + ','#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE_IMPONIBL' + + 'E,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORT' + + 'E_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERV' + + 'ACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,' + + #10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#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 StatementType = stSQL ColumnMappings = <> end> @@ -1282,6 +1295,11 @@ object srvFacturasCliente: TsrvFacturasCliente DataType = datInteger Value = '' end + item + Name = 'SIN_COMISION' + DataType = datSmallInt + Value = '' + end item Name = 'OLD_ID' Value = '' @@ -1307,7 +1325,8 @@ object srvFacturasCliente: TsrvFacturasCliente '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' WHERE'#10' (ID = :OLD_ID);'#10 + 'RATO,'#10' SIN_COMISION = :SIN_COMISION'#10' WHERE'#10' (ID = :OLD_ID);' + + #10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj index 36085455..79c932f1 100644 --- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj +++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj @@ -49,35 +49,35 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorElegirArticulosFacturaCliente
TForm diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm index fe4fa173..c1636150 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm @@ -8,7 +8,7 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente Width = 862 Caption = 'Lista de facturas de cliente para liquidar su comisi'#243'n' Visible = False - ExplicitWidth = 654 + ExplicitWidth = 862 inherited Image1: TImage Left = 835 ExplicitLeft = 629 @@ -52,17 +52,18 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente ExplicitWidth = 862 end inherited TBXTMain2: TTBXToolbar - Left = 702 + Left = 706 Top = 23 - DockPos = 702 + DockPos = 706 DockRow = 1 - ExplicitLeft = 702 + Visible = False + ExplicitLeft = 706 ExplicitTop = 23 end end inherited StatusBar: TJvStatusBar Width = 862 - ExplicitWidth = 654 + ExplicitWidth = 862 end inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3] Left = 0 @@ -79,12 +80,12 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente TabOrder = 4 ReadOnly = False ExplicitTop = 611 - ExplicitWidth = 654 + ExplicitWidth = 862 ExplicitHeight = 36 inherited JvFooter1: TJvFooter Width = 862 Height = 36 - ExplicitWidth = 654 + ExplicitWidth = 862 ExplicitHeight = 36 inherited bSeleccionar: TJvFooterBtn Left = 650 @@ -113,14 +114,15 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente Top = 140 Width = 862 Height = 471 - ExplicitWidth = 654 - ExplicitHeight = 509 + ExplicitTop = 140 + ExplicitWidth = 862 + ExplicitHeight = 471 inherited cxGrid: TcxGrid Width = 862 Height = 343 RootLevelOptions.DetailTabsPosition = dtpNone - ExplicitWidth = 654 - ExplicitHeight = 381 + ExplicitWidth = 862 + ExplicitHeight = 343 inherited cxGridView: TcxGridDBTableView DataController.Summary.DefaultGroupSummaryItems = < item @@ -145,22 +147,34 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente inherited frViewFiltroBase1: TfrViewFiltroBase Width = 862 Visible = True - ExplicitWidth = 654 + ExplicitWidth = 862 inherited TBXDockablePanel1: TTBXDockablePanel - ExplicitWidth = 654 + ExplicitWidth = 862 inherited dxLayoutControl1: TdxLayoutControl Width = 862 - ExplicitWidth = 654 + ExplicitWidth = 862 inherited txtFiltroTodo: TcxTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 273 Width = 273 end inherited edtFechaIniFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 121 Width = 121 end inherited edtFechaFinFiltro: TcxDateEdit Left = 327 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 327 ExplicitWidth = 343 Width = 343 @@ -168,24 +182,24 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente end inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 862 - ExplicitWidth = 654 + ExplicitWidth = 862 inherited tbxBotones: TTBXToolbar Width = 852 - ExplicitWidth = 644 + ExplicitWidth = 852 end end end end inherited pnlAgrupaciones: TTBXDockablePanel Top = 445 - ExplicitTop = 483 - ExplicitWidth = 654 + ExplicitTop = 445 + ExplicitWidth = 862 inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 862 - ExplicitWidth = 654 + ExplicitWidth = 862 inherited TBXToolbar1: TTBXToolbar Width = 852 - ExplicitWidth = 644 + ExplicitWidth = 852 end end end @@ -217,9 +231,6 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente Padding.Bottom = 8 ParentBackground = False TabOrder = 5 - ExplicitLeft = -2 - ExplicitTop = 0 - ExplicitWidth = 656 object lblTitle: TLabel AlignWithMargins = True Left = 25 @@ -299,6 +310,8 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente end inherited JsNuevoAbonoDialog: TJSDialog [18] end + inherited JsListaFacturasNoEliminadas: TJSDialog [19] + end object EditorSeleccionActionList: TActionList Images = SmallImages Left = 152 diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index 0439fc7c..9720a76a 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -146,8 +146,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 399 - Width = 399 end end end @@ -243,6 +241,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente 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 @@ -450,10 +456,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 diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm index 4715fa30..36546ea1 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm @@ -1,6 +1,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente - Width = 780 - Height = 514 + Width = 839 + Height = 398 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy @@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 780 - Height = 514 + Width = 839 + Height = 398 Align = alClient ParentBackground = True TabOrder = 0 @@ -20,8 +20,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente ExplicitWidth = 451 ExplicitHeight = 304 DesignSize = ( - 780 - 514) + 839 + 398) object eReferencia: TcxDBTextEdit Left = 135 Top = 30 @@ -98,7 +98,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 78 end object bFormasPago: TButton - Left = 255 + Left = 285 Top = 108 Width = 132 Height = 23 @@ -135,7 +135,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente end end inline frViewClienteFactura1: TfrViewClienteFactura - Left = 415 + Left = 445 Top = 30 Width = 398 Height = 265 @@ -145,9 +145,9 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 6 + TabOrder = 7 ReadOnly = False - ExplicitLeft = 415 + ExplicitLeft = 445 ExplicitTop = 30 ExplicitWidth = 398 ExplicitHeight = 265 @@ -177,12 +177,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 276 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 251 - ExplicitLeft = 251 + Left = 280 + ExplicitLeft = 280 end inherited Button3: TBitBtn - Left = 141 - ExplicitLeft = 141 + Left = 170 + ExplicitLeft = 170 end inherited cxDBTextEdit1: TcxDBTextEdit ExplicitWidth = 283 @@ -223,19 +223,48 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 7 + TabOrder = 8 ReadOnly = False ExplicitLeft = 22 ExplicitTop = 325 + ExplicitHeight = 228 inherited memObservaciones: TcxDBMemo DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 521 ExplicitHeight = 228 + Height = 228 end end + object cbRecargoEquivalencia: TcxDBCheckBox + Left = 22 + Top = 266 + Caption = ' No acogida a comisiones' + DataBinding.DataField = 'SIN_COMISION' + DataBinding.DataSource = DADataSource + Properties.DisplayChecked = '1' + Properties.DisplayUnchecked = '0' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.ValueChecked = 1 + Properties.ValueUnchecked = 0 + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + 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 = 6 + Width = 158 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -303,6 +332,14 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente ControlOptions.ShowBorder = False end end + object dxLayoutControl1Group9: TdxLayoutGroup + Caption = 'Comisiones' + object dxLayoutControl1Item7: TdxLayoutItem + ShowCaption = False + Control = cbRecargoEquivalencia + ControlOptions.ShowBorder = False + end + end end object dxLayoutControl1Group2: TdxLayoutGroup AutoAligns = [] diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas index f69e27c8..27170cec 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas @@ -11,7 +11,7 @@ uses DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago, uViewTienda, uFacturasClienteController, uViewClienteFactura, Menus, StdActns, - ActnList, uViewObservaciones; + ActnList, uViewObservaciones, cxCheckBox; type IViewFacturaCliente = interface(IViewBase) @@ -55,6 +55,9 @@ type dxLayoutControl1Group3: TdxLayoutGroup; frViewObservaciones1: TfrViewObservaciones; dxLayoutControl1Item5: TdxLayoutItem; + dxLayoutControl1Item7: TdxLayoutItem; + cbRecargoEquivalencia: TcxDBCheckBox; + dxLayoutControl1Group9: TdxLayoutGroup; procedure bFormasPagoClick(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure CustomViewCreate(Sender: TObject); diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 0a432c5dae9b81609fe95b916aee5eaa963dc6b3..a2115fdfebd85a3727376b38b940696892067be4 100644 GIT binary patch delta 21 dcmdn9jd9O5#tm + - - {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 - - -FalseTrueFalseTrueFalse2390FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.9.0FactuGES (Servidor)2.3.9.0jueves, 19 de noviembre de 2009 20:26 - - - - - - - - - - Express Cross Platform Library by Developer Express Inc. - ExpressPrinting System by Developer Express Inc. - RemObjects Data Abstract - CoreLabs SDAC Driver - 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 + + + FalseTrueFalseTrueFalse2390FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.3.9.0FactuGES (Servidor)2.3.9.0jueves, 19 de noviembre de 2009 20:26 + Express Cross Platform Library by Developer Express Inc. + ExpressPrinting System by Developer Express Inc. + RemObjects Data Abstract - CoreLabs SDAC Driver + 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
+ + + + + + + + + +