Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo y repaso de liquidaciones de comision

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@596 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2014-11-17 18:03:17 +00:00
parent 3a44dd7257
commit 189acc2388
25 changed files with 665 additions and 404 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

25
Source/Informes/3/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

76
Source/Modulos/Comisiones/Views/uEditorComision.dfm
View File

@ -127,7 +127,6 @@ inherited fEditorComision: TfEditorComision
Width = 741 Width = 741
Height = 506 Height = 506
MultiLine = True MultiLine = True
ExplicitTop = 109
ExplicitWidth = 741 ExplicitWidth = 741
ExplicitHeight = 506 ExplicitHeight = 506
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -287,6 +286,7 @@ inherited fEditorComision: TfEditorComision
Kind = skCount Kind = skCount
Column = frViewVendedoresComision1.cxGridViewNOMBRE Column = frViewVendedoresComision1.cxGridViewNOMBRE
end> end>
OptionsData.Editing = True
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end
@ -295,12 +295,6 @@ inherited fEditorComision: TfEditorComision
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 662 Width = 662
ExplicitWidth = 662 ExplicitWidth = 662
inherited ToolButton3: TToolButton
ExplicitWidth = 98
end
inherited ToolButton8: TToolButton
ExplicitWidth = 99
end
end end
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
@ -358,18 +352,18 @@ inherited fEditorComision: TfEditorComision
Width = 747 Width = 747
ExplicitWidth = 747 ExplicitWidth = 747
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 338 Left = 370
Top = 10 Top = 10
Height = 30 Height = 30
ExplicitLeft = 338 ExplicitLeft = 370
ExplicitTop = 10 ExplicitTop = 10
ExplicitHeight = 30 ExplicitHeight = 30
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 450 Left = 482
Top = 52 Top = 52
Width = 192 Width = 192
ExplicitLeft = 450 ExplicitLeft = 482
ExplicitTop = 52 ExplicitTop = 52
ExplicitWidth = 192 ExplicitWidth = 192
end end
@ -384,9 +378,11 @@ inherited fEditorComision: TfEditorComision
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 163 ExplicitLeft = 163
ExplicitTop = 37 ExplicitTop = 37
ExplicitWidth = 93
Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 521 Left = 553
Top = 87 Top = 87
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -394,19 +390,23 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 521 ExplicitLeft = 553
ExplicitTop = 87 ExplicitTop = 87
ExplicitWidth = 137
Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 451 Left = 483
Top = 141 Top = 141
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 451 ExplicitLeft = 483
ExplicitTop = 141 ExplicitTop = 141
ExplicitWidth = 137
Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 92 Left = 92
@ -421,7 +421,7 @@ inherited fEditorComision: TfEditorComision
ExplicitTop = 37 ExplicitTop = 37
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 450 Left = 482
Top = 87 Top = 87
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -429,11 +429,11 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 450 ExplicitLeft = 482
ExplicitTop = 87 ExplicitTop = 87
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 450 Left = 482
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -441,11 +441,13 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 450 ExplicitLeft = 482
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 92
Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 450 Left = 482
Top = 114 Top = 114
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -453,11 +455,11 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 450 ExplicitLeft = 482
ExplicitTop = 114 ExplicitTop = 114
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 521 Left = 553
Top = 114 Top = 114
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -465,8 +467,10 @@ inherited fEditorComision: TfEditorComision
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 521 ExplicitLeft = 553
ExplicitTop = 114 ExplicitTop = 114
ExplicitWidth = 56
Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 92 Left = 92
@ -479,6 +483,8 @@ inherited fEditorComision: TfEditorComision
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 147
Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 92 Left = 92
@ -491,6 +497,8 @@ inherited fEditorComision: TfEditorComision
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 64 ExplicitTop = 64
ExplicitWidth = 147
Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 92 Left = 92
@ -502,11 +510,13 @@ inherited fEditorComision: TfEditorComision
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 91 ExplicitTop = 91
ExplicitWidth = 81
Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 190 Left = 222
Top = 91 Top = 91
ExplicitLeft = 190 ExplicitLeft = 222
ExplicitTop = 91 ExplicitTop = 91
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -519,6 +529,8 @@ inherited fEditorComision: TfEditorComision
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 118 ExplicitTop = 118
ExplicitWidth = 219
Width = 219
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
@ -1368,13 +1380,7 @@ inherited fEditorComision: TfEditorComision
Top = 0 Top = 0
Bitmap = {} Bitmap = {}
end end
inherited JvFormStorage: TJvFormStorage inherited SmallImages: TPngImageList [8]
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 528
Top = 32
end
inherited SmallImages: TPngImageList [9]
PngImages = < PngImages = <
item item
PngImage.Data = { PngImage.Data = {
@ -1903,6 +1909,12 @@ inherited fEditorComision: TfEditorComision
Top = 0 Top = 0
Bitmap = {} Bitmap = {}
end end
inherited JvFormStorage: TJvFormStorage [9]
OnSavePlacement = JvFormStorageSavePlacement
OnRestorePlacement = JvFormStorageRestorePlacement
Left = 528
Top = 32
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage inherited JvAppRegistryStorage: TJvAppRegistryStorage
Left = 560 Left = 560
Top = 32 Top = 32

19
Source/Modulos/Comisiones/Views/uEditorComision.pas
View File

@ -39,7 +39,9 @@ type
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
procedure OnFacturasComisionAfterSummary(ASender: TcxDataSummary); procedure OnFacturasComisionAfterSummary(ASender: TcxDataSummary);
procedure OnVendedoresComisionAfterSummary(ASender: TcxDataSummary); procedure OnVendedoresComisionAfterSummary(ASender: TcxDataSummary);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); override; //Importante, es donde deben quitarse eventos para que afecten a la tabla una vez que se cierre el editor procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); override;
procedure OnComisionChanged(Sender: TObject);
//Importante, es donde deben quitarse eventos para que afecten a la tabla una vez que se cierre el editor
private private
FImporteTotalFacturas: Variant; FImporteTotalFacturas: Variant;
@ -234,6 +236,7 @@ procedure TfEditorComision.FormCloseQuery(Sender: TObject; var CanClose: Boolean
begin begin
frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil; frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil; frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
frViewVendedoresComision1.cxGridViewCOMISION.Properties.OnEditValueChanged := Nil;
inherited; inherited;
end; end;
@ -250,10 +253,23 @@ begin
frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := OnFacturasComisionAfterSummary; frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := OnFacturasComisionAfterSummary;
frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := OnVendedoresComisionAfterSummary; frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := OnVendedoresComisionAfterSummary;
frViewVendedoresComision1.cxGridViewCOMISION.Properties.OnEditValueChanged := OnComisionChanged;
Comision.DataTable.Active := True; Comision.DataTable.Active := True;
end; end;
procedure TfEditorComision.OnComisionChanged(Sender: TObject);
begin
inherited;
FImporteTotalFacturas := frViewFacturasComision1.cxGridView.DataController.Summary.FooterSummaryValues[1];
//Recalculamos comisiones
if Assigned(FController)
and (not VarIsNull(FImporteTotalFacturas))
and (FImporteTotalFacturas > 0) then
FController.RecalcularComisiones(Comision, FImporteTotalFacturas);
end;
procedure TfEditorComision.OnFacturasComisionAfterSummary(ASender: TcxDataSummary); procedure TfEditorComision.OnFacturasComisionAfterSummary(ASender: TcxDataSummary);
begin begin
inherited; inherited;
@ -335,6 +351,7 @@ begin
//Quitamos los eventos antes de eliminar para que no intercedan en la operacion //Quitamos los eventos antes de eliminar para que no intercedan en la operacion
frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil; frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil; frViewVendedoresComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
frViewVendedoresComision1.cxGridViewCOMISION.Properties.OnEditValueChanged := Nil;
if not FController.Eliminar(FComision) then if not FController.Eliminar(FComision) then
actRefrescar.Execute; actRefrescar.Execute;

8
Source/Modulos/Comisiones/Views/uViewVendedoresComision.dfm
View File

@ -54,20 +54,24 @@ inherited frViewVendedoresComision: TfrViewVendedoresComision
end end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
Options.Editing = False
end end
object cxGridViewCOMISION: TcxGridDBColumn object cxGridViewCOMISION: TcxGridDBColumn
Caption = 'Comisi'#243'n' Caption = 'Comisi'#243'n'
DataBinding.FieldName = 'COMISION' DataBinding.FieldName = 'COMISION'
PropertiesClassName = 'TcxSpinEditProperties' PropertiesClassName = 'TcxSpinEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.DisplayFormat = '0.0 %;-0.0 %' Properties.EditFormat = ',0.00 %;-,0.00 %'
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000 Properties.MaxValue = 100.000000000000000000
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total' Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties'
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Options.Editing = False
end end
end end
end end

2
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -369,6 +369,8 @@ begin
begin begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
FECHA_CONTRATO := DateOf(Now); FECHA_CONTRATO := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
INCIDENCIASIsNull := True; INCIDENCIASIsNull := True;

4
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
View File

@ -141,6 +141,10 @@ inherited frViewContratoCliente: TfrViewContratoCliente
item item
Description = 'TERMINADO' Description = 'TERMINADO'
Value = 'TERMINADO' Value = 'TERMINADO'
end
item
Description = 'TERMINADO Y PAGADO'
Value = 'TERMINADO_PAGADO'
end> end>
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D

7
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -122,6 +122,13 @@ inherited frViewContratosCliente: TfrViewContratosCliente
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 63 Width = 63
end end
object cxGridViewVENDEDOR: TcxGridDBColumn
Caption = 'Vendedor'
DataBinding.FieldName = 'VENDEDOR'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'

3
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

@ -12,7 +12,7 @@ uses
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes, uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
cxGrid, uBizContratosCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, TB2Item, cxGrid, uBizContratosCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, TB2Item,
TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows,
uCustomView, uViewBase; uCustomView, uViewBase, cxTextEdit;
type type
IViewContratosCliente = interface(IViewGrid) IViewContratosCliente = interface(IViewGrid)
@ -44,6 +44,7 @@ type
cxGridViewPOBLACION: TcxGridDBColumn; cxGridViewPOBLACION: TcxGridDBColumn;
cxGridViewCODIGO_POSTAL: TcxGridDBColumn; cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
cxGridViewPROVINCIA: TcxGridDBColumn; cxGridViewPROVINCIA: TcxGridDBColumn;
cxGridViewVENDEDOR: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

31
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -407,11 +407,12 @@ begin
Expression := NewBinaryExpression(Expression, Condicion, dboAnd); Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
with Result.DataTable.DynamicWhere do with Result.DataTable.DynamicWhere do
begin begin
//Todas las facturas de esta liquidación //Todas las facturas de esta liquidación
Condicion1 := NewBinaryExpression(NewField('', fld_FacturasClienteID_COMISION_LIQUIDADA), NewConstant(IdComision, datInteger), dboEqual); Condicion1 := NewBinaryExpression(NewField('', fld_FacturasClienteID_COMISION_LIQUIDADA), NewConstant(IdComision, datInteger), dboEqual);
//Todas aquellas facturas que ya esten asociadas a la liquidación actual no deben salir //Todas aquellas facturas que ya esten asociadas a la liquidación actual no deben salir
if (Length(IdFacturasAsociadas) > 0) then if (Length(IdFacturasAsociadas) > 0) then
begin begin
@ -431,17 +432,35 @@ begin
Cadena.Free; Cadena.Free;
end; end;
//Si no hay facturas en el editor no las tenemos en cuenta
if (Condicion2 <> nil) then
Condicion1 := NewBinaryExpression(Condicion1, Condicion2, dboAnd);
//Todas aquellas que no esten asociadas a ninguna liquidación, y que tampoco esten en el editor, ya que en cache estan //Todas aquellas que no esten asociadas a ninguna liquidación, y que tampoco esten en el editor, ya que en cache estan
//asociadas a la liquidadcion pero en datos me viene como nula //asociadas a la liquidadcion pero en datos me viene como nula
Condicion3 := NewBinaryExpression(NewField('', fld_FacturasClienteID_COMISION_LIQUIDADA), NewNull(), dboEqual); Condicion3 := NewBinaryExpression(NewField('', fld_FacturasClienteID_COMISION_LIQUIDADA), NewNull(), dboEqual);
//Todas aquellas facturas que ya esten asociadas a la liquidación actual no deben salir
if (Length(IdFacturasAsociadas) > 0) then
begin
Cadena := TStringList.Create;
Cadena.CommaText := IdFacturasAsociadas;
Condicion2 := nil;
//Vamos generando todas las where de cada uno de los ID recibidos por parametro
for i := 0 to Cadena.Count - 1 do
with Result.DataTable.DynamicWhere do
begin
Condicion4 := NewBinaryExpression(NewField('', fld_FacturasClienteID), NewConstant(StrToInt(Cadena.Strings[i]), datInteger), dboNotEqual);
if Condicion2 = nil then
Condicion2 := Condicion4
else
Condicion2 := NewBinaryExpression(Condicion2, Condicion4, dboAnd);
end;
Cadena.Free;
end;
//Si no hay facturas en el editor no las tenemos en cuenta //Si no hay facturas en el editor no las tenemos en cuenta
if (Condicion2 <> nil) then if (Condicion2 <> nil) then
begin Condicion3 := NewBinaryExpression(Condicion3, Condicion2, dboAnd);
Condicion1 := NewBinaryExpression(Condicion1, Condicion2, dboAnd);
Condicion3 := NewBinaryExpression(Condicion3, Condicion2, dboAnd);
end;
// Todas aquellas facturas asociadas a la comisión actual y que no estén asociadas al editor (IdFacturasAsociadas) // Todas aquellas facturas asociadas a la comisión actual y que no estén asociadas al editor (IdFacturasAsociadas)
//esto es porque se puede agregar y quitar facturas y todos los cambios estan en cache //esto es porque se puede agregar y quitar facturas y todos los cambios estan en cache
@ -562,6 +581,8 @@ begin
begin begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
REFERENCIA := ''; //Para que se asigne una nueva REFERENCIA := ''; //Para que se asigne una nueva
SITUACION := CTE_PENDIENTE; //Al ser una nueva debe de estar pendiente SITUACION := CTE_PENDIENTE; //Al ser una nueva debe de estar pendiente
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);

10
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -147,6 +147,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Size = 255 Size = 255
ServerAutoRefresh = True ServerAutoRefresh = True
end end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'NOMBRE_COMERCIAL_CLIENTE' Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString DataType = datString
@ -305,6 +310,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'VENDEDOR'
DataType = datString
Size = 255
end
item item
Name = 'SIN_COMISION' Name = 'SIN_COMISION'
DataType = datSmallInt DataType = datSmallInt

142
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{C6E2E8B4-2CB3-4679-BA75-D15FE79F93EE}'; RID_ListaAnosFacturas = '{145AB429-AA3C-428B-862E-44860A53C63D}';
RID_FacturasCliente = '{FFE70CEB-56D8-4951-BA12-13F7C72BFE18}'; RID_FacturasCliente = '{FB6656F1-09E4-4105-B0E9-4D9ADE60387B}';
RID_FacturasCliente_Detalles = '{B28CF6EF-D5C9-47F9-8D64-A80E8AF20724}'; RID_FacturasCliente_Detalles = '{29D7E3D2-87AC-4F64-98AA-E4501188EB6B}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -44,6 +44,7 @@ const
fld_FacturasClienteOBSERVACIONES = 'OBSERVACIONES'; fld_FacturasClienteOBSERVACIONES = 'OBSERVACIONES';
fld_FacturasClienteID_CLIENTE = 'ID_CLIENTE'; fld_FacturasClienteID_CLIENTE = 'ID_CLIENTE';
fld_FacturasClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_FacturasClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_FacturasClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE'; fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
fld_FacturasClienteNIF_CIF = 'NIF_CIF'; fld_FacturasClienteNIF_CIF = 'NIF_CIF';
fld_FacturasClienteNOMBRE = 'NOMBRE'; fld_FacturasClienteNOMBRE = 'NOMBRE';
@ -72,6 +73,7 @@ const
fld_FacturasClienteASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO'; fld_FacturasClienteASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO';
fld_FacturasClienteID_CONTRATO = 'ID_CONTRATO'; fld_FacturasClienteID_CONTRATO = 'ID_CONTRATO';
fld_FacturasClienteREF_CONTRATO = 'REF_CONTRATO'; fld_FacturasClienteREF_CONTRATO = 'REF_CONTRATO';
fld_FacturasClienteVENDEDOR = 'VENDEDOR';
fld_FacturasClienteSIN_COMISION = 'SIN_COMISION'; fld_FacturasClienteSIN_COMISION = 'SIN_COMISION';
fld_FacturasClienteTIPO_FACTURA = 'TIPO_FACTURA'; fld_FacturasClienteTIPO_FACTURA = 'TIPO_FACTURA';
@ -95,36 +97,38 @@ const
idx_FacturasClienteOBSERVACIONES = 16; idx_FacturasClienteOBSERVACIONES = 16;
idx_FacturasClienteID_CLIENTE = 17; idx_FacturasClienteID_CLIENTE = 17;
idx_FacturasClienteNOMBRE_CLIENTE = 18; idx_FacturasClienteNOMBRE_CLIENTE = 18;
idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 19; idx_FacturasClienteREFERENCIA_CLIENTE = 19;
idx_FacturasClienteNIF_CIF = 20; idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE = 20;
idx_FacturasClienteNOMBRE = 21; idx_FacturasClienteNIF_CIF = 21;
idx_FacturasClienteID_DIRECCION = 22; idx_FacturasClienteNOMBRE = 22;
idx_FacturasClienteCALLE = 23; idx_FacturasClienteID_DIRECCION = 23;
idx_FacturasClientePOBLACION = 24; idx_FacturasClienteCALLE = 24;
idx_FacturasClientePROVINCIA = 25; idx_FacturasClientePOBLACION = 25;
idx_FacturasClienteCODIGO_POSTAL = 26; idx_FacturasClientePROVINCIA = 26;
idx_FacturasClienteFECHA_ALTA = 27; idx_FacturasClienteCODIGO_POSTAL = 27;
idx_FacturasClienteFECHA_MODIFICACION = 28; idx_FacturasClienteFECHA_ALTA = 28;
idx_FacturasClienteUSUARIO = 29; idx_FacturasClienteFECHA_MODIFICACION = 29;
idx_FacturasClienteID_FORMA_PAGO = 30; idx_FacturasClienteUSUARIO = 30;
idx_FacturasClienteRECARGO_EQUIVALENCIA = 31; idx_FacturasClienteID_FORMA_PAGO = 31;
idx_FacturasClienteID_TIPO_IVA = 32; idx_FacturasClienteRECARGO_EQUIVALENCIA = 32;
idx_FacturasClienteIMPORTE_NETO = 33; idx_FacturasClienteID_TIPO_IVA = 33;
idx_FacturasClienteIMPORTE_PORTE = 34; idx_FacturasClienteIMPORTE_NETO = 34;
idx_FacturasClienteID_AGENTE = 35; idx_FacturasClienteIMPORTE_PORTE = 35;
idx_FacturasClienteREFERENCIA_COMISION = 36; idx_FacturasClienteID_AGENTE = 36;
idx_FacturasClienteIGNORAR_CONTABILIDAD = 37; idx_FacturasClienteREFERENCIA_COMISION = 37;
idx_FacturasClienteID_TIENDA = 38; idx_FacturasClienteIGNORAR_CONTABILIDAD = 38;
idx_FacturasClienteTIENDA = 39; idx_FacturasClienteID_TIENDA = 39;
idx_FacturasClienteID_SUBCUENTA = 40; idx_FacturasClienteTIENDA = 40;
idx_FacturasClienteSUBCUENTA = 41; idx_FacturasClienteID_SUBCUENTA = 41;
idx_FacturasClienteID_EJERCICIO = 42; idx_FacturasClienteSUBCUENTA = 42;
idx_FacturasClienteESTADO_EJERCICIO = 43; idx_FacturasClienteID_EJERCICIO = 43;
idx_FacturasClienteASIENTO_PUNTEADO = 44; idx_FacturasClienteESTADO_EJERCICIO = 44;
idx_FacturasClienteID_CONTRATO = 45; idx_FacturasClienteASIENTO_PUNTEADO = 45;
idx_FacturasClienteREF_CONTRATO = 46; idx_FacturasClienteID_CONTRATO = 46;
idx_FacturasClienteSIN_COMISION = 47; idx_FacturasClienteREF_CONTRATO = 47;
idx_FacturasClienteTIPO_FACTURA = 48; idx_FacturasClienteVENDEDOR = 48;
idx_FacturasClienteSIN_COMISION = 49;
idx_FacturasClienteTIPO_FACTURA = 50;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -161,7 +165,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{3A65D9C0-CBC7-49BD-890B-CB27E537E661}'] ['{9B736788-CB7F-4171-80FB-BB95F35FFF7B}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -196,7 +200,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{0DB0095F-A024-45A3-9A3A-59E7029B3648}'] ['{B69EA0DD-6019-492A-821A-0EE660AC366C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -273,6 +277,10 @@ type
procedure SetNOMBRE_CLIENTEValue(const aValue: String); procedure SetNOMBRE_CLIENTEValue(const aValue: String);
function GetNOMBRE_CLIENTEIsNull: Boolean; function GetNOMBRE_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
function GetREFERENCIA_CLIENTEValue: String;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
function GetREFERENCIA_CLIENTEIsNull: Boolean;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
@ -385,6 +393,10 @@ type
procedure SetREF_CONTRATOValue(const aValue: String); procedure SetREF_CONTRATOValue(const aValue: String);
function GetREF_CONTRATOIsNull: Boolean; function GetREF_CONTRATOIsNull: Boolean;
procedure SetREF_CONTRATOIsNull(const aValue: Boolean); procedure SetREF_CONTRATOIsNull(const aValue: Boolean);
function GetVENDEDORValue: String;
procedure SetVENDEDORValue(const aValue: String);
function GetVENDEDORIsNull: Boolean;
procedure SetVENDEDORIsNull(const aValue: Boolean);
function GetSIN_COMISIONValue: SmallInt; function GetSIN_COMISIONValue: SmallInt;
procedure SetSIN_COMISIONValue(const aValue: SmallInt); procedure SetSIN_COMISIONValue(const aValue: SmallInt);
function GetSIN_COMISIONIsNull: Boolean; function GetSIN_COMISIONIsNull: Boolean;
@ -434,6 +446,8 @@ type
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull; property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
@ -490,6 +504,8 @@ type
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull; property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue; property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue; property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull; property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue; property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
@ -578,6 +594,10 @@ type
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
@ -690,6 +710,10 @@ type
procedure SetREF_CONTRATOValue(const aValue: String); virtual; procedure SetREF_CONTRATOValue(const aValue: String); virtual;
function GetREF_CONTRATOIsNull: Boolean; virtual; function GetREF_CONTRATOIsNull: Boolean; virtual;
procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual; procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetVENDEDORValue: String; virtual;
procedure SetVENDEDORValue(const aValue: String); virtual;
function GetVENDEDORIsNull: Boolean; virtual;
procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
function GetSIN_COMISIONValue: SmallInt; virtual; function GetSIN_COMISIONValue: SmallInt; virtual;
procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual; procedure SetSIN_COMISIONValue(const aValue: SmallInt); virtual;
function GetSIN_COMISIONIsNull: Boolean; virtual; function GetSIN_COMISIONIsNull: Boolean; virtual;
@ -738,6 +762,8 @@ type
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull; property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
@ -794,6 +820,8 @@ type
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull; property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue; property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue; property SIN_COMISION: SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull; property SIN_COMISIONIsNull: Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue; property TIPO_FACTURA: String read GetTIPO_FACTURAValue write SetTIPO_FACTURAValue;
@ -807,7 +835,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{C8FB6F13-CC9F-4716-925A-56A598401F23}'] ['{824CB867-0513-46EE-8E49-714506B6D7B0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1450,6 +1478,27 @@ begin
DataTable.Fields[idx_FacturasClienteNOMBRE_CLIENTE].AsVariant := Null; DataTable.Fields[idx_FacturasClienteNOMBRE_CLIENTE].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteREFERENCIA_CLIENTE].AsString;
end;
procedure TFacturasClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_CLIENTE].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetREFERENCIA_CLIENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteREFERENCIA_CLIENTE].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteREFERENCIA_CLIENTE].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; function TFacturasClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].AsString; result := DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL_CLIENTE].AsString;
@ -2038,6 +2087,27 @@ begin
DataTable.Fields[idx_FacturasClienteREF_CONTRATO].AsVariant := Null; DataTable.Fields[idx_FacturasClienteREF_CONTRATO].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetVENDEDORValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteVENDEDOR].AsString;
end;
procedure TFacturasClienteDataTableRules.SetVENDEDORValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteVENDEDOR].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetVENDEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteVENDEDOR].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetVENDEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteVENDEDOR].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetSIN_COMISIONValue: SmallInt; function TFacturasClienteDataTableRules.GetSIN_COMISIONValue: SmallInt;
begin begin
result := DataTable.Fields[idx_FacturasClienteSIN_COMISION].AsSmallInt; result := DataTable.Fields[idx_FacturasClienteSIN_COMISION].AsSmallInt;

98
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{3340EDE9-C8BC-4A98-B867-A746A393909C}'; RID_ListaAnosFacturasDelta = '{13B2244C-664D-4276-B52B-B4F0ADD71D74}';
RID_FacturasClienteDelta = '{D0017EBE-F53A-4E75-8BDB-A2AA4B6734B5}'; RID_FacturasClienteDelta = '{A39B6A48-A724-487A-AC10-ED6BF3D502CC}';
RID_FacturasCliente_DetallesDelta = '{C71C0559-5EAC-4B7A-96BA-BCAF08A89042}'; RID_FacturasCliente_DetallesDelta = '{EC7C88A7-6AA6-4A0F-A760-A7FDCACB21A9}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{3340EDE9-C8BC-4A98-B867-A746A393909C}'] ['{13B2244C-664D-4276-B52B-B4F0ADD71D74}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{D0017EBE-F53A-4E75-8BDB-A2AA4B6734B5}'] ['{A39B6A48-A724-487A-AC10-ED6BF3D502CC}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -71,6 +71,7 @@ type
function GetOldOBSERVACIONESValue : IROStrings; function GetOldOBSERVACIONESValue : IROStrings;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
function GetOldNOMBRE_CLIENTEValue : String; function GetOldNOMBRE_CLIENTEValue : String;
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String; function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
@ -99,6 +100,7 @@ type
function GetOldASIENTO_PUNTEADOValue : SmallInt; function GetOldASIENTO_PUNTEADOValue : SmallInt;
function GetOldID_CONTRATOValue : Integer; function GetOldID_CONTRATOValue : Integer;
function GetOldREF_CONTRATOValue : String; function GetOldREF_CONTRATOValue : String;
function GetOldVENDEDORValue : String;
function GetOldSIN_COMISIONValue : SmallInt; function GetOldSIN_COMISIONValue : SmallInt;
function GetOldTIPO_FACTURAValue : String; function GetOldTIPO_FACTURAValue : String;
@ -122,6 +124,7 @@ type
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
@ -150,6 +153,7 @@ type
property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue; property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue; property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue; property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue; property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue; property OldTIPO_FACTURA : String read GetOldTIPO_FACTURAValue;
end; end;
@ -274,6 +278,12 @@ type
function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual; function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
@ -442,6 +452,12 @@ type
function GetOldREF_CONTRATOIsNull: Boolean; virtual; function GetOldREF_CONTRATOIsNull: Boolean; virtual;
procedure SetREF_CONTRATOValue(const aValue: String); virtual; procedure SetREF_CONTRATOValue(const aValue: String); virtual;
procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual; procedure SetREF_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetVENDEDORValue: String; virtual;
function GetVENDEDORIsNull: Boolean; virtual;
function GetOldVENDEDORValue: String; virtual;
function GetOldVENDEDORIsNull: Boolean; virtual;
procedure SetVENDEDORValue(const aValue: String); virtual;
procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
function GetSIN_COMISIONValue: SmallInt; virtual; function GetSIN_COMISIONValue: SmallInt; virtual;
function GetSIN_COMISIONIsNull: Boolean; virtual; function GetSIN_COMISIONIsNull: Boolean; virtual;
function GetOldSIN_COMISIONValue: SmallInt; virtual; function GetOldSIN_COMISIONValue: SmallInt; virtual;
@ -532,6 +548,10 @@ type
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull; property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull;
property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull; property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
@ -644,6 +664,10 @@ type
property REF_CONTRATOIsNull : Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull; property REF_CONTRATOIsNull : Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue; property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
property OldREF_CONTRATOIsNull : Boolean read GetOldREF_CONTRATOIsNull; property OldREF_CONTRATOIsNull : Boolean read GetOldREF_CONTRATOIsNull;
property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue;
property VENDEDORIsNull : Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
property OldVENDEDOR : String read GetOldVENDEDORValue;
property OldVENDEDORIsNull : Boolean read GetOldVENDEDORIsNull;
property SIN_COMISION : SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue; property SIN_COMISION : SmallInt read GetSIN_COMISIONValue write SetSIN_COMISIONValue;
property SIN_COMISIONIsNull : Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull; property SIN_COMISIONIsNull : Boolean read GetSIN_COMISIONIsNull write SetSIN_COMISIONIsNull;
property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue; property OldSIN_COMISION : SmallInt read GetOldSIN_COMISIONValue;
@ -661,7 +685,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{C71C0559-5EAC-4B7A-96BA-BCAF08A89042}'] ['{EC7C88A7-6AA6-4A0F-A760-A7FDCACB21A9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1505,6 +1529,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_CLIENTE] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_CLIENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_CLIENTE]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_CLIENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_CLIENTE]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_CLIENTE] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_CLIENTE] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; function TFacturasClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL_CLIENTE];
@ -2373,6 +2428,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREF_CONTRATO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREF_CONTRATO] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetVENDEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteVENDEDOR];
end;
function TFacturasClienteBusinessProcessorRules.GetVENDEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteVENDEDOR]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldVENDEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteVENDEDOR];
end;
function TFacturasClienteBusinessProcessorRules.GetOldVENDEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteVENDEDOR]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetVENDEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteVENDEDOR] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetVENDEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteVENDEDOR] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetSIN_COMISIONValue: SmallInt; function TFacturasClienteBusinessProcessorRules.GetSIN_COMISIONValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSIN_COMISION];

18
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -243,6 +243,14 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'TIPO_FACTURA' DatasetField = 'TIPO_FACTURA'
TableField = 'TIPO_FACTURA' TableField = 'TIPO_FACTURA'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'VENDEDOR'
TableField = 'VENDEDOR'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -348,6 +356,11 @@ object srvFacturasCliente: TsrvFacturasCliente
Size = 255 Size = 255
ServerAutoRefresh = True ServerAutoRefresh = True
end end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'NOMBRE_COMERCIAL_CLIENTE' Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString DataType = datString
@ -493,6 +506,11 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datString DataType = datString
Size = 255 Size = 255
end end
item
Name = 'VENDEDOR'
DataType = datString
Size = 255
end
item item
Name = 'SIN_COMISION' Name = 'SIN_COMISION'
DataType = datSmallInt DataType = datSmallInt

1
Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.pas
View File

@ -88,6 +88,7 @@ end;
procedure TfEditorElegirFacturasCliente.FormShow(Sender: TObject); procedure TfEditorElegirFacturasCliente.FormShow(Sender: TObject);
begin begin
inherited; inherited;
EditorActionList.State := asSuspended; EditorActionList.State := asSuspended;
frViewFacturasCliente1.frViewFiltroBase1.edtFechaIniFiltro.EditValue := darFechaPrimerDia(now); frViewFacturasCliente1.frViewFiltroBase1.edtFechaIniFiltro.EditValue := darFechaPrimerDia(now);

16
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -188,16 +188,24 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 640 Width = 640
ExplicitWidth = 640 ExplicitWidth = 640
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 543 ExplicitWidth = 543
Width = 543 Width = 543
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 144 Style.LookAndFeel.SkinName = ''
Width = 144 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 301 Style.LookAndFeel.SkinName = ''
ExplicitLeft = 301 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 263 ExplicitWidth = 263
Width = 263 Width = 263
end end

5
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -160,6 +160,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Caption = 'Contrato' Caption = 'Contrato'
DataBinding.FieldName = 'REF_CONTRATO' DataBinding.FieldName = 'REF_CONTRATO'
end end
object cxGridViewVENDEDOR: TcxGridDBColumn
Caption = 'Vendedor'
DataBinding.FieldName = 'VENDEDOR'
Visible = False
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todas' Caption = 'Todas'

1
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -63,6 +63,7 @@ type
cxGridViewRE: TcxGridDBColumn; cxGridViewRE: TcxGridDBColumn;
cxGridViewREF_CONTRATO: TcxGridDBColumn; cxGridViewREF_CONTRATO: TcxGridDBColumn;
cxGridViewTIPO_FACTURA: TcxGridDBColumn; cxGridViewTIPO_FACTURA: TcxGridDBColumn;
cxGridViewVENDEDOR: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

2
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -617,6 +617,8 @@ begin
begin begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
REFERENCIA := ''; //Para que se asigne una nueva REFERENCIA := ''; //Para que se asigne una nueva
SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);

2
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -468,6 +468,8 @@ begin
begin begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
FECHA_PRESUPUESTO := DateOf(Now); FECHA_PRESUPUESTO := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
INCIDENCIASIsNull := True; INCIDENCIASIsNull := True;

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -130,14 +130,14 @@ uses
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas', schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas'; schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

585
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,299 +1,294 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 13 de noviembre de 2013 13:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 13 de noviembre de 2013 13:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <DelphiCompile Include="FactuGES_Server.dpr">
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <MainSource>MainSource</MainSource>
</ProjectExtensions> </DelphiCompile>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<ItemGroup> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DelphiCompile Include="FactuGES_Server.dpr"> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<MainSource>MainSource</MainSource> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
</DelphiCompile> <Form>srvEjercicios</Form>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<Form>srvEjercicios</Form> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvEmpresas</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <Form>srvProvinciasPoblaciones</Form>
<Form>srvEmpresas</Form> <DesignClass>TRORemoteDataModule</DesignClass>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<Form>srvProvinciasPoblaciones</Form> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DesignClass>TRORemoteDataModule</DesignClass> <DCCReference Include="..\Base\schBase_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <Form>srvAlbaranesCliente</Form>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
</DCCReference> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlmacenes</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" /> <Form>RptComisiones</Form>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" /> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" /> <DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas"> <Form>srvComisiones</Form>
<Form>RptComisiones</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas"> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<Form>srvComisiones</Form> <DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
</DCCReference> <Form>srvContabilidad</Form>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<Form>srvContabilidad</Form> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <Form>RptEtiquetasContacto</Form>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <Form>srvContactos</Form>
<Form>RptEtiquetasContacto</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas"/>
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas"/>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas">
</DCCReference> <Form>RptContratosCliente</Form>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas" /> <Form>srvContratosCliente</Form>
<DCCReference Include="..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>RptContratosCliente</Form> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<Form>srvContratosCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
</DCCReference> <Form>RptFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <Form>srvFacturasCliente</Form>
<Form>RptFacturasCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<Form>srvFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
</DCCReference> <Form>RptFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <Form>srvFacturasProveedor</Form>
<Form>RptFacturasProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" /> <Form>srvGestorDocumentos</Form>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" /> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <Form>srvGestorInformes</Form>
<Form>srvGestorDocumentos</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<Form>srvGestorInformes</Form> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvHistoricoMovimientos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<Form>srvHistoricoMovimientos</Form> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvInventario</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
</DCCReference> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
</DCCReference> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <Form>srvPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>RptPresupuestosCliente</Form> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<Form>srvPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <Form>RptRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <Form>srvRecibosCliente</Form>
<Form>RptRecibosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <Form>RptRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <Form>srvRecibosProveedor</Form>
<Form>RptRecibosProveedor</Form> <DesignClass>TDataAbstractService</DesignClass>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvReferencias</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<Form>srvReferencias</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
</DCCReference> <Form>srvRemesasCliente</Form>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
</DCCReference> <Form>srvRemesasProveedor</Form>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <Form>srvUnidadesMedida</Form>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<Form>srvUnidadesMedida</Form> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvConfiguracion</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <DCCReference Include="Configuracion\uConexionBD.pas">
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <Form>frConexionBD</Form>
<Form>srvConfiguracion</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DCCReference Include="Configuracion\uConexionBD.pas"> <Form>frConfGeneral</Form>
<Form>frConexionBD</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DCCReference Include="Configuracion\uConfGeneral.pas"> <Form>fConfiguracion</Form>
<Form>frConfGeneral</Form> <DesignClass>TForm</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DCCReference Include="Configuracion\uConfiguracion.pas"> <Form>FrameConfiguracion</Form>
<Form>fConfiguracion</Form> <DesignClass>TFrame</DesignClass>
<DesignClass>TForm</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="srvLogin_Impl.pas">
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <Form>srvLogin</Form>
<Form>FrameConfiguracion</Form> <DesignClass>TDARemoteService</DesignClass>
<DesignClass>TFrame</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uAcercaDe.pas">
<DCCReference Include="srvLogin_Impl.pas"> <Form>fAcercaDe</Form>
<Form>srvLogin</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="uDataModuleServer.pas">
</DCCReference> <Form>dmServer</Form>
<DCCReference Include="uAcercaDe.pas"> <DesignClass>TDataModule</DesignClass>
<Form>fAcercaDe</Form> </DCCReference>
</DCCReference> <DCCReference Include="uServerMainForm.pas">
<DCCReference Include="uDataModuleServer.pas"> <Form>fServerForm</Form>
<Form>dmServer</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="Utiles\RegExpr.pas"/>
</DCCReference> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<Form>fServerForm</Form> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
</DCCReference> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> </ItemGroup>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.5.8.0\0" VALUE "FileVersion", "2.5.8.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.5.8.0\0" VALUE "ProductVersion", "2.5.8.0\0"
VALUE "CompileDate", "lunes, 26 de mayo de 2014 18:31\0" VALUE "CompileDate", "lunes, 17 de noviembre de 2014 15:57\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.