diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 66a9ccb7..b1d6eba6 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,13 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -58,55 +65,55 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index a374c720..9de45575 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -52,7 +52,8 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse3400FalseFalseFalseFalseFalse30821252Rodax Software S.L.3.4.0.0FactuGESFactuGES3.4.0.0
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse3610FalseFalseFalseFalseFalse30821252Rodax Software S.L.3.6.1.0FactuGESFactuGES3.6.1.0
+
File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 5f210257..91b24e8c 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 3,4,0,0
-PRODUCTVERSION 3,4,0,0
+FILEVERSION 3,6,1,0
+PRODUCTVERSION 3,6,1,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
- VALUE "FileVersion", "3.4.0.0\0"
+ VALUE "FileVersion", "3.6.1.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "3.4.0.0\0"
+ VALUE "ProductVersion", "3.6.1.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 3ec93f57..8ba6714a 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index 4cf8df42..4ea79c50 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,34 +58,34 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/GUIBase/uEditorDBBase.dfm b/Source/GUIBase/uEditorDBBase.dfm
index ac98e86e..f8a8aba0 100644
--- a/Source/GUIBase/uEditorDBBase.dfm
+++ b/Source/GUIBase/uEditorDBBase.dfm
@@ -5,7 +5,7 @@ inherited fEditorDBBase: TfEditorDBBase
ClientHeight = 454
ClientWidth = 646
ExplicitWidth = 654
- ExplicitHeight = 488
+ ExplicitHeight = 492
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/GUIBase/uEditorDBItem.dfm b/Source/GUIBase/uEditorDBItem.dfm
index 0467683b..15294aa7 100644
--- a/Source/GUIBase/uEditorDBItem.dfm
+++ b/Source/GUIBase/uEditorDBItem.dfm
@@ -83,8 +83,6 @@ inherited fEditorDBItem: TfEditorDBItem
ActivePage = pagGeneral
Align = alClient
TabOrder = 2
- ExplicitTop = 118
- ExplicitHeight = 319
object pagGeneral: TTabSheet
Caption = 'General'
ExplicitLeft = 0
@@ -105,7 +103,6 @@ inherited fEditorDBItem: TfEditorDBItem
ParentBackground = False
TabOrder = 4
VerticalAlignment = taAlignTop
- ExplicitTop = 85
object lbComentario: TLabel
AlignWithMargins = True
Left = 6
diff --git a/Source/GUIBase/uEditorGridBase.dfm b/Source/GUIBase/uEditorGridBase.dfm
index a681b198..6dd00fa3 100644
--- a/Source/GUIBase/uEditorGridBase.dfm
+++ b/Source/GUIBase/uEditorGridBase.dfm
@@ -104,7 +104,7 @@ inherited fEditorGridBase: TfEditorGridBase
Caption = 'Filtrar:'
end
object tbxEditFiltro: TTBXEditItem
- EditWidth = 200
+ EditWidth = 125
ImageIndex = 10
EditorFontSettings.Italic = tsTrue
ExtendedAccept = True
@@ -112,6 +112,17 @@ inherited fEditorGridBase: TfEditorGridBase
ShowImage = True
OnChange = tbxEditFiltroChange
end
+ object tbxEditFiltro2: TTBXEditItem
+ EditWidth = 125
+ Enabled = False
+ ImageIndex = 10
+ Visible = False
+ EditorFontSettings.Italic = tsTrue
+ ExtendedAccept = True
+ Images = SmallImages
+ ShowImage = True
+ OnChange = tbxEditFiltro2Change
+ end
object TBXItem34: TTBXItem
Action = actQuitarFiltro
end
@@ -168,7 +179,7 @@ inherited fEditorGridBase: TfEditorGridBase
end
end
object TBXTMain2: TTBXToolbar
- Left = 337
+ Left = 334
Top = 49
Caption = 'tbxMain'
ChevronHint = 'M'#225's botones|'
diff --git a/Source/GUIBase/uEditorGridBase.pas b/Source/GUIBase/uEditorGridBase.pas
index 09daa41d..2f3de3fc 100644
--- a/Source/GUIBase/uEditorGridBase.pas
+++ b/Source/GUIBase/uEditorGridBase.pas
@@ -67,7 +67,9 @@ type
lblAno: TTBXLabelItem;
cbxListaAnos: TTBXComboBoxItem;
sepAno: TTBXSeparatorItem;
+ tbxEditFiltro2: TTBXEditItem;
procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
+ procedure tbxEditFiltro2Change(Sender: TObject; const Text: string);
procedure FormShow(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject);
procedure actDuplicarUpdate(Sender: TObject);
@@ -81,6 +83,7 @@ type
procedure CustomEditorDestroy(Sender: TObject);
procedure actExportarExcelExecute(Sender: TObject);
procedure actExportarExcelUpdate(Sender: TObject);
+
protected
FListaAnos: TStringList;
FViewGrid : IViewGridBase;
@@ -224,6 +227,18 @@ begin
end;
end;
+procedure TfEditorGridBase.tbxEditFiltro2Change(Sender: TObject;
+ const Text: string);
+begin
+ if Assigned(ViewGrid) then
+ begin
+ if Length(Text) > 0 then
+ ViewGrid.Filter2 := Text
+ else
+ actQuitarFiltro.Execute;
+ end;
+end;
+
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String);
begin
if Assigned(ViewGrid) then
@@ -244,7 +259,7 @@ begin
ViewGrid.RestoreFromIniFile;
end;
- cbxListaAnos.ItemIndex := 0;
+ cbxListaAnos.ItemIndex := 0;
end;
procedure TfEditorGridBase.actEliminarUpdate(Sender: TObject);
@@ -281,6 +296,7 @@ begin
if ViewGrid.ViewFiltros.VerFiltros then
begin
tbxEditFiltro.Visible := False;
+ tbxEditFiltro2.Visible := False;
TBXItem7.Visible := False;
end
else
@@ -288,6 +304,12 @@ begin
tbxEditFiltro.Text := '';
tbxEditFiltro.Visible := True;
TBXItem7.Visible := True;
+
+ if (tbxEditFiltro2.Enabled) then
+ begin
+ tbxEditFiltro2.Text := '';
+ tbxEditFiltro2.Visible := True;
+ end;
end;
end;
@@ -326,6 +348,8 @@ begin
begin
tbxEditFiltro.Text := '';
ViewGrid.Filter := '';
+ tbxEditFiltro2.Text := '';
+ ViewGrid.Filter2 := '';
end;
end;
diff --git a/Source/GUIBase/uViewFiltroBase.dfm b/Source/GUIBase/uViewFiltroBase.dfm
index cacab724..ac8b7139 100644
--- a/Source/GUIBase/uViewFiltroBase.dfm
+++ b/Source/GUIBase/uViewFiltroBase.dfm
@@ -1,9 +1,9 @@
inherited frViewFiltroBase: TfrViewFiltroBase
- Width = 565
- Height = 102
+ Width = 671
+ Height = 105
Visible = False
- ExplicitWidth = 565
- ExplicitHeight = 102
+ ExplicitWidth = 671
+ ExplicitHeight = 105
object TBXDockablePanel1: TTBXDockablePanel
Left = 0
Top = 0
@@ -22,8 +22,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 565
- Height = 68
+ Width = 671
+ Height = 70
Align = alTop
ParentBackground = True
TabOrder = 0
@@ -49,7 +49,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0
- Width = 273
+ Width = 250
end
object edtFechaIniFiltro: TcxDateEdit
Left = 87
@@ -72,11 +72,11 @@ inherited frViewFiltroBase: TfrViewFiltroBase
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 1
- Width = 121
+ TabOrder = 2
+ Width = 250
end
object edtFechaFinFiltro: TcxDateEdit
- Left = 350
+ Left = 386
Top = 37
Properties.OnChange = OnCamposFiltroChange
Style.BorderColor = clWindowFrame
@@ -96,17 +96,54 @@ inherited frViewFiltroBase: TfrViewFiltroBase
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 2
- Width = 121
+ TabOrder = 3
+ Width = 250
+ end
+ object txtFiltroTodo2: TcxTextEdit
+ Left = 386
+ Top = 10
+ Properties.OnChange = OnCamposFiltroChange
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.Kind = lfStandard
+ Style.LookAndFeel.NativeStyle = True
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.Kind = lfStandard
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.Kind = lfStandard
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.Kind = lfStandard
+ StyleHot.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.SkinName = ''
+ TabOrder = 1
+ Width = 250
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
- object dxLayoutControl1Item1: TdxLayoutItem
- Caption = 'Que contenga:'
- Control = txtFiltroTodo
- ControlOptions.ShowBorder = False
+ object dxLayoutControl1Group2: TdxLayoutGroup
+ ShowCaption = False
+ Hidden = True
+ LayoutDirection = ldHorizontal
+ ShowBorder = False
+ object dxLayoutControl1Item1: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'Que contenga:'
+ Control = txtFiltroTodo
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item4: TdxLayoutItem
+ AutoAligns = [aaVertical]
+ AlignHorz = ahClient
+ Caption = 'y'
+ Control = txtFiltroTodo2
+ ControlOptions.ShowBorder = False
+ end
end
object dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
@@ -132,8 +169,8 @@ inherited frViewFiltroBase: TfrViewFiltroBase
end
object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0
- Top = 68
- Width = 565
+ Top = 70
+ Width = 671
Height = 30
Margins.Left = 10
Align = alTop
@@ -141,7 +178,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
object tbxBotones: TTBXToolbar
Left = 10
Top = 0
- Width = 555
+ Width = 661
Height = 30
Align = alTop
AutoResize = False
diff --git a/Source/GUIBase/uViewFiltroBase.pas b/Source/GUIBase/uViewFiltroBase.pas
index 62dfea6d..d3883d1a 100644
--- a/Source/GUIBase/uViewFiltroBase.pas
+++ b/Source/GUIBase/uViewFiltroBase.pas
@@ -24,6 +24,10 @@ type
function GetTexto: String;
procedure SetTexto(const Value: String);
property Texto: String read GetTexto write SetTexto;
+
+ function GetTexto2: String;
+ procedure SetTexto2(const Value: String);
+ property Texto2: String read GetTexto2 write SetTexto2;
end;
TfrViewFiltroBase = class(TfrViewBase, IViewFiltroBase)
@@ -44,6 +48,9 @@ type
tbxBotones: TTBXToolbar;
TBXItem2: TTBXItem;
TBXAlignmentPanel1: TTBXAlignmentPanel;
+ dxLayoutControl1Item4: TdxLayoutItem;
+ txtFiltroTodo2: TcxTextEdit;
+ dxLayoutControl1Group2: TdxLayoutGroup;
procedure OnCamposFiltroChange(Sender: TObject);
procedure actQuitarFiltroExecute(Sender: TObject);
@@ -56,6 +63,8 @@ type
procedure SetVerFiltros(const Value: Boolean);
function GetTexto: String;
procedure SetTexto(const Value: String);
+ function GetTexto2: String;
+ procedure SetTexto2(const Value: String);
protected
procedure LimpiarCampos; virtual;
@@ -67,6 +76,7 @@ type
property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange;
property VerFiltros: Boolean read GetVerFiltros write SetVerFiltros;
property Texto: String read GetTexto write SetTexto;
+ property Texto2: String read GetTexto2 write SetTexto2;
end;
implementation
@@ -106,6 +116,7 @@ end;
procedure TfrViewFiltroBase.LimpiarCampos;
begin
txtFiltroTodo.Clear;
+ txtFiltroTodo2.Clear;
edtFechaIniFiltro.Clear;
edtFechaFinFiltro.Clear;
end;
@@ -144,9 +155,19 @@ begin
Result := txtFiltroTodo.Text;
end;
+function TfrViewFiltroBase.GetTexto2: String;
+begin
+ Result := txtFiltroTodo2.Text;
+end;
+
procedure TfrViewFiltroBase.SetTexto(const Value: String);
begin
txtFiltroTodo.Text := Value;
end;
+procedure TfrViewFiltroBase.SetTexto2(const Value: String);
+begin
+ txtFiltroTodo2.Text := Value;
+end;
+
end.
diff --git a/Source/GUIBase/uViewGrid.dfm b/Source/GUIBase/uViewGrid.dfm
index 86c5518a..2a1414c6 100644
--- a/Source/GUIBase/uViewGrid.dfm
+++ b/Source/GUIBase/uViewGrid.dfm
@@ -9,6 +9,12 @@ inherited frViewGrid: TfrViewGrid
Width = 554
Height = 466
Align = alClient
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
TabOrder = 0
LookAndFeel.Kind = lfOffice11
LookAndFeel.NativeStyle = True
@@ -35,6 +41,7 @@ inherited frViewGrid: TfrViewGrid
OptionsView.NoDataToDisplayInfoText = ''
OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True
+ OptionsView.DataRowHeight = 22
OptionsView.Footer = True
OptionsView.GridLineColor = cl3DLight
OptionsView.GridLines = glHorizontal
@@ -45,10 +52,11 @@ inherited frViewGrid: TfrViewGrid
object cxGridViewICONO: TcxGridDBColumn
Caption = 'Icono'
OnCustomDrawCell = cxGridViewICONOCustomDrawCell
- BestFitMaxWidth = 18
- MinWidth = 18
+ BestFitMaxWidth = 22
+ MinWidth = 22
+ Options.HorzSizing = False
Options.Sorting = False
- Width = 18
+ Width = 22
OnCustomDrawHeader = cxGridViewICONOCustomDrawHeader
end
end
@@ -72,6 +80,7 @@ inherited frViewGrid: TfrViewGrid
Visible = False
ReadOnly = False
ExplicitWidth = 554
+ ExplicitHeight = 102
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 554
ExplicitHeight = 102
@@ -79,18 +88,47 @@ inherited frViewGrid: TfrViewGrid
Width = 554
ExplicitWidth = 554
inherited txtFiltroTodo: TcxTextEdit
- ExplicitWidth = 457
- Width = 457
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 250
+ Width = 250
end
inherited edtFechaIniFiltro: TcxDateEdit
- ExplicitWidth = 240
- Width = 240
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 250
+ Width = 250
end
inherited edtFechaFinFiltro: TcxDateEdit
- Left = 344
- ExplicitLeft = 344
- ExplicitWidth = 200
- Width = 200
+ Left = 321
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 321
+ ExplicitWidth = 250
+ Width = 250
+ end
+ inherited txtFiltroTodo2: TcxTextEdit
+ Left = 321
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
+ ExplicitLeft = 321
+ ExplicitWidth = 250
+ Width = 250
+ end
+ inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+ inherited dxLayoutControl1Group2: TdxLayoutGroup
+ inherited dxLayoutControl1Item4: TdxLayoutItem
+ Visible = False
+ end
+ end
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@@ -162,7 +200,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
- ReportDocument.CreationDate = 42772.762583020830000000
+ ReportDocument.CreationDate = 44649.770773101850000000
StyleManager = dmBase.dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True
diff --git a/Source/GUIBase/uViewGridBase.pas b/Source/GUIBase/uViewGridBase.pas
index 67231bc7..5d871ee2 100644
--- a/Source/GUIBase/uViewGridBase.pas
+++ b/Source/GUIBase/uViewGridBase.pas
@@ -65,6 +65,10 @@ type
function GetFilter: string;
property Filter: string read GetFilter write SetFilter;
+ procedure SetFilter2(const Value: string);
+ function GetFilter2: string;
+ property Filter2: string read GetFilter2 write SetFilter2;
+
function GetFiltered: Boolean;
property Filtered : Boolean read GetFiltered;
@@ -87,9 +91,11 @@ type
private
FViewFiltros: IViewFiltroBase;
FFilter: string;
+ FFilter2: string;
FOnFilterChanged : TNotifyEvent;
FGridStatus : TcxGridStatus;
procedure BestFitAllColumns;
+
protected
FOnDblClick: TNotifyEvent;
FPopupMenu: TPopupMenu;
@@ -105,13 +111,16 @@ type
function getNumSeleccionados: Integer;
procedure SetFilter(const Value: string); virtual;
+ procedure SetFilter2(const Value: string); virtual;
procedure RefrescarFiltro;
function GetFilter: string; virtual;
+ function GetFilter2: string; virtual;
function GetFiltered: Boolean; virtual;
- procedure FiltrarGrid(TextoFiltro : String); virtual;
function GetViewFiltros: IViewFiltroBase;
procedure SetViewFiltros(const Value: IViewFiltroBase); virtual;
procedure FilterChanged(Sender : TObject); virtual;
+ procedure FiltrarGrid(TextoFiltro1, TextoFiltro2: String); overload; virtual;
+ procedure FiltrarGrid(TextoFiltro : String); overload; virtual;
public
constructor Create(AOwner: TComponent); override;
@@ -142,12 +151,14 @@ type
procedure RestoreFromRegistry (const Path : String); virtual;
procedure RestoreFromIniFile;
+ procedure ConfigView; virtual;
procedure StoreToIniFile;
{function Locate(const AItemIndex: Integer; const AValue: String;
const APartialCompare: Boolean = False) : Boolean;}
property Filter: string read GetFilter write SetFilter;
+ property Filter2: string read GetFilter2 write SetFilter2;
property Filtered : Boolean read GetFiltered;
procedure AnadirOtrosFiltros; virtual;
@@ -187,7 +198,6 @@ begin
_FocusedView.BeginUpdate;
try
- AsignarAnchosPrefijadosAColumnas(_FocusedView);
for i := 0 to _FocusedView.VisibleColumnCount-1 do
begin
_FocusedView.VisibleColumns[i].ApplyBestFit;
@@ -215,6 +225,11 @@ begin
//
end;
+procedure TfrViewGridBase.ConfigView;
+begin
+//
+end;
+
procedure TfrViewGridBase.ContraerTodo;
begin
if Assigned(_FocusedView) then
@@ -225,6 +240,7 @@ constructor TfrViewGridBase.Create(AOwner: TComponent);
begin
inherited;
FFilter := '';
+ FFilter2 := '';
FOnFilterChanged := FilterChanged;
FPopupMenu := nil;
FOnDblClick := nil;
@@ -261,6 +277,11 @@ begin
Result := FFilter;
end;
+function TfrViewGridBase.GetFilter2: string;
+begin
+ Result := FFilter2;
+end;
+
function TfrViewGridBase.GetFiltered: Boolean;
begin
//Los niveles de los grid no se consideran filtros
@@ -333,7 +354,10 @@ procedure TfrViewGridBase.RefrescarFiltro;
begin
//De esta forma obligaremos a que se creen nuevamente todos los filtros, cuando llamemos a este metodo
if Assigned(ViewFiltros) then
+ begin
Filter := ViewFiltros.Texto;
+ Filter2 := ViewFiltros.Texto2;
+ end;
end;
procedure TfrViewGridBase.RestoreFromIniFile;
@@ -343,9 +367,8 @@ begin
inherited;
if Assigned(_FocusedView) then
begin
- // AjustarAncho; <- No activar porque pisa los anchos que ha puesto el usuario.
- AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[Current Users]\Application Data
+ AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then
@@ -353,14 +376,14 @@ begin
_FocusedView.RestoreFromIniFile(AIniFile + 'grid.xml', True, False, []);
end;
+
+ ConfigView;
end;
procedure TfrViewGridBase.RestoreFromRegistry(const Path: String);
begin
if Assigned(_FocusedView) then
- begin
_FocusedView.RestoreFromRegistry(Path + '\\GridSettings\\' + Self.Name, False, False, [], Self.Name);
- end;
end;
procedure TfrViewGridBase.RestoreGridStatus;
@@ -391,7 +414,24 @@ begin
if Assigned(ViewFiltros) then
ViewFiltros.Texto := FFilter;
- FiltrarGrid(FFilter);
+ FiltrarGrid(FFilter, FFilter2);
+
+ //Obliga a generar todos los filtros de las vista hija
+ AnadirOtrosFiltros;
+
+ if Assigned(FOnFilterChanged) then
+ FOnFilterChanged(Self);
+end;
+
+procedure TfrViewGridBase.SetFilter2(const Value: string);
+begin
+ FFilter2 := Value;
+
+ //Así tendremos el mismo valor en el filtro simple que en el filtro en detalle
+ if Assigned(ViewFiltros) then
+ ViewFiltros.Texto2 := FFilter2;
+
+ FiltrarGrid(FFilter, FFilter2);
//Obliga a generar todos los filtros de las vista hija
AnadirOtrosFiltros;
@@ -445,13 +485,14 @@ begin
if Assigned(_FocusedView) then
begin
- AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[Current Users]\Application Data
+ AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then
ForceDirectories(AIniFile);
_FocusedView.StoreToIniFile(AIniFile + 'grid.xml', False, []);
+// _FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, [], Self.Name);
end;
end;
@@ -459,12 +500,57 @@ procedure TfrViewGridBase.StoreToRegistry(const Path: String);
begin
inherited;
if Assigned(_FocusedView) then
- begin
_FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, [], Self.Name);
+end;
+
+procedure TfrViewGridBase.FiltrarGrid(TextoFiltro1, TextoFiltro2 : String);
+var
+ Columna: TcxGridDBColumn;
+ i: Integer;
+ AItemList: TcxFilterCriteriaItemList;
+begin
+ with _FocusedView.DataController.Filter do
+ begin
+ BeginUpdate;
+ try
+ Options := [fcoCaseInsensitive, fcoSoftCompare];
+ Root.Clear;
+ if Length(TextoFiltro1) > 0 then
+ begin
+ AItemList := Root.AddItemList(fboAnd);
+ AItemList.BoolOperatorKind := fboOr;
+ for i:=0 to (_FocusedView as TcxGridDBTableView).ColumnCount - 1 do
+ begin
+ Columna := (_FocusedView as TcxGridDBTableView).Columns[i];
+ if (Length(Columna.Caption) > 0) and (Columna.Caption <> 'RecID') then
+ AItemList.AddItem(Columna, foLike, '%'+TextoFiltro1+'%', IntToStr(i));
+ end;
+ end;
+
+ if Length(TextoFiltro2) > 0 then
+ begin
+ AItemList := Root.AddItemList(fboAnd);
+ AItemList.BoolOperatorKind := fboOr;
+ for i:=0 to (_FocusedView as TcxGridDBTableView).ColumnCount - 1 do
+ begin
+ Columna := (_FocusedView as TcxGridDBTableView).Columns[i];
+ if (Length(Columna.Caption) > 0) and (Columna.Caption <> 'RecID') then
+ AItemList.AddItem(Columna, foLike, '%'+TextoFiltro2+'%', IntToStr(i));
+ end;
+ end;
+
+ if ((Length(TextoFiltro1) > 0) or (Length(TextoFiltro2) > 0)) then
+ Active := True
+ else
+ Active := False;
+ finally
+ EndUpdate;
+ end;
end;
end;
-procedure TfrViewGridBase.FiltrarGrid(TextoFiltro : String);
+
+procedure TfrViewGridBase.FiltrarGrid(TextoFiltro: String);
var
Columna: TcxGridDBColumn;
i: Integer;
@@ -494,8 +580,8 @@ begin
EndUpdate;
end;
end;
-end;
+end;
procedure TfrViewGridBase.FilterChanged(Sender: TObject);
begin
diff --git a/Source/Informes/1/InfFacturaCliente_proforma.fr3 b/Source/Informes/1/InfFacturaCliente_proforma.fr3
new file mode 100644
index 00000000..072d0e30
--- /dev/null
+++ b/Source/Informes/1/InfFacturaCliente_proforma.fr3
@@ -0,0 +1,82 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/5/InfAlbaranCliente.fr3 b/Source/Informes/5/InfAlbaranCliente.fr3
index 890fd73e..7ec2e402 100644
--- a/Source/Informes/5/InfAlbaranCliente.fr3
+++ b/Source/Informes/5/InfAlbaranCliente.fr3
@@ -1,51 +1,73 @@
-
+
-
-
-
+
+
+
-
-
-
-
-
+
+
+
+
+
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
+
-
+
-
-
+
+
-
+
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/5/InfContratoCliente.fr3 b/Source/Informes/5/InfContratoCliente.fr3
new file mode 100644
index 00000000..d101994e
--- /dev/null
+++ b/Source/Informes/5/InfContratoCliente.fr3
@@ -0,0 +1,119 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/5/InfFacturaCliente.fr3 b/Source/Informes/5/InfFacturaCliente.fr3
index 2db99c67..d3654b00 100644
--- a/Source/Informes/5/InfFacturaCliente.fr3
+++ b/Source/Informes/5/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -32,10 +32,10 @@
-
+
-
+
@@ -74,7 +74,7 @@
-
+
diff --git a/Source/Informes/5/InfFacturaCliente_proforma.fr3 b/Source/Informes/5/InfFacturaCliente_proforma.fr3
new file mode 100644
index 00000000..072d0e30
--- /dev/null
+++ b/Source/Informes/5/InfFacturaCliente_proforma.fr3
@@ -0,0 +1,82 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/5/InfPedidoProveedor.fr3 b/Source/Informes/5/InfPedidoProveedor.fr3
new file mode 100644
index 00000000..91ecbda3
--- /dev/null
+++ b/Source/Informes/5/InfPedidoProveedor.fr3
@@ -0,0 +1,43 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/5/InfPresupuestoCliente.fr3 b/Source/Informes/5/InfPresupuestoCliente.fr3
new file mode 100644
index 00000000..74f577f6
--- /dev/null
+++ b/Source/Informes/5/InfPresupuestoCliente.fr3
@@ -0,0 +1,89 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/5/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/5/InformeListadoFacturasRecibosCliente.fr3
new file mode 100644
index 00000000..a38abd0b
--- /dev/null
+++ b/Source/Informes/5/InformeListadoFacturasRecibosCliente.fr3
@@ -0,0 +1,65 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Informes/6/InfPresupuestoCliente.fr3 b/Source/Informes/6/InfPresupuestoCliente.fr3
index 9a35ab29..82a84864 100644
--- a/Source/Informes/6/InfPresupuestoCliente.fr3
+++ b/Source/Informes/6/InfPresupuestoCliente.fr3
@@ -1,69 +1,69 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
-
+
+
-
-
-
-
-
-
+
+
+
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
-
+
-
-
-
-
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
-
-
+
+
+
-
-
+
+
diff --git a/Source/Informes/InfContratoCliente.fr3 b/Source/Informes/InfContratoCliente.fr3
index 090eb329..9ed129a6 100644
--- a/Source/Informes/InfContratoCliente.fr3
+++ b/Source/Informes/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -9,7 +9,7 @@
-
+
@@ -64,8 +64,8 @@
-
-
+
+
@@ -99,14 +99,14 @@
-
-
+
+
-
+
-
+
diff --git a/Source/Informes/InfPedidoProveedor.fr3 b/Source/Informes/InfPedidoProveedor.fr3
index c0bd3d0f..91ecbda3 100644
--- a/Source/Informes/InfPedidoProveedor.fr3
+++ b/Source/Informes/InfPedidoProveedor.fr3
@@ -1,5 +1,5 @@
-
+
@@ -8,11 +8,13 @@
-
+
+
+
@@ -20,16 +22,15 @@
-
-
-
-
+
+
+
-
-
+
+
diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3
index e217cd24..74f577f6 100644
--- a/Source/Informes/InfPresupuestoCliente.fr3
+++ b/Source/Informes/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -11,7 +11,7 @@
-
+
@@ -64,8 +64,8 @@
-
-
+
+
diff --git a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3
new file mode 100644
index 00000000..a38abd0b
--- /dev/null
+++ b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3
@@ -0,0 +1,65 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
index faccdbc9..6765932f 100644
--- a/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
+++ b/Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
@@ -11,8 +11,10 @@
+
+
@@ -171,14 +173,32 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
index db14b8ec..6e5adf06 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
@@ -42,8 +42,8 @@ type
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
- procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
- procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
+ procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
+ procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@@ -136,8 +136,8 @@ type
DoPost: Boolean = True) : Boolean;
procedure EnviarAlbaranPorEMail(AAlbaran : IBizAlbaranCliente);
- procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
- procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
+ procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
+ procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@@ -1003,7 +1003,7 @@ begin
end;
end;
-procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
+procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
var
AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TIntegerList;
@@ -1031,7 +1031,7 @@ begin
else
ID_Albaranes.Add(AAlbaran.ID);
- AReportController.Preview(ID_Albaranes, VerPrecios);
+ AReportController.Preview(ID_Albaranes, VerPrecios, VerTrabajos, VerIncidencias);
finally
AReportController := NIL;
@@ -1039,7 +1039,7 @@ begin
end;
end;
-procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True);
+procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; const VerPrecios: Boolean = True; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
var
AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TIntegerList;
@@ -1065,7 +1065,7 @@ begin
else
ID_Albaranes.Add(AAlbaran.ID);
- AReportController.Print(ID_Albaranes, VerPrecios);
+ AReportController.Print(ID_Albaranes, VerPrecios, VerTrabajos, VerIncidencias);
finally
AReportController := NIL;
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
index 5f963f8a..5a0d579e 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
@@ -10,8 +10,8 @@ uses
type
IAlbaranesClienteReportController = interface(IControllerBase)
['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
- procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean);
- procedure Print(const AListaID : TIntegerList; const VerPrecios: Boolean);
+ procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
+ procedure Print(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''; const VerPrecios: Boolean = True): Boolean;
@@ -26,8 +26,8 @@ type
constructor Create; override;
destructor Destroy; override;
- procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean);
- procedure Print(const AListaID : TIntegerList; const VerPrecios: Boolean);
+ procedure Preview(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
+ procedure Print(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''; const VerPrecios: Boolean = True): Boolean;
@@ -135,14 +135,14 @@ begin
end;
end;
-procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList; const VerPrecios: Boolean);
+procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
var
AStream: Binary;
AEditor : IEditorAlbaranesClientePreview;
begin
AEditor := NIL;
- AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios);
+ AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios, VerTrabajos, VerIncidencias);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then
@@ -163,7 +163,7 @@ begin
end;
end;
-procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList; const VerPrecios: Boolean);
+procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList; const VerPrecios: Boolean; const VerTrabajos: Boolean = True; const VerIncidencias: Boolean = True);
var
AStream: Binary;
AEditor : IEditorAlbaranesClientePreview;
@@ -172,7 +172,7 @@ begin
ShowHourglassCursor;
try
- AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios);
+ AStream := FDataModule.GetRptAlbaranes(AListaID, VerPrecios, VerTrabajos, VerIncidencias);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then
diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
index 13a88c23..8bc6f2e4 100644
--- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
@@ -26,11 +26,6 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
object tbl_AlbaranesCliente: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
- item
- Name = 'ID_CONTRATO'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
- end
item
Name = 'ID'
DataType = datAutoInc
@@ -117,6 +112,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
DisplayLabel = 'Ref. pedido cliente'
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
end
+ item
+ Name = 'ID_CONTRATO'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
+ end
item
Name = 'REF_CONTRATO'
DataType = datString
@@ -334,8 +334,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
- ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES'
+ end
+ item
+ Name = 'TRABAJOS_INSTALADOR'
+ DataType = datMemo
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
index 38a137aa..555330f7 100644
--- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
@@ -37,9 +37,9 @@ type
function NewItem : IBizAlbaranCliente;
// Report
- function GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False): Binary;
+ function GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False; const VerTrabajos: Boolean = False; const VerIncidencias: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
- function GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False): Binary;
+ function GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False; const VerTrabajos: Boolean = False; const VerIncidencias: Boolean = False): Binary;
end;
implementation
@@ -63,26 +63,26 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
-function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False): Binary;
+function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False; const VerTrabajos: Boolean = False; const VerIncidencias: Boolean = False): Binary;
var
AParam : TIntegerArray;
begin
AParam := ListaID.ToIntegerArray;
try
- Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios);
+ Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios, VerTrabajos, VerIncidencias);
finally
FreeAndNil(AParam);
end;
end;
-function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False): Binary;
+function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer; const VerPrecios, VerTrabajos, VerIncidencias: Boolean): Binary;
var
AParam : TIntegerArray;
begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
- Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios);
+ Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios, VerTrabajos, VerIncidencias);
finally
FreeAndNil(AParam);
end;
diff --git a/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas b/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
index de3b82bb..9daafbc9 100644
--- a/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
@@ -7,10 +7,10 @@ uses
type
IDataModuleAlbaranesClienteReport = interface
- ['{42C55204-5AB9-403E-8385-1A62B02D8234}']
- function GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False): Binary;
+ ['{32A52EC9-90F6-4934-9001-015A2579746D}']
+ function GetRptAlbaranes(const ListaID: TIntegerList; const VerPrecios: Boolean = False; const VerTrabajos: Boolean = False; const VerIncidencias: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
- function GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False): Binary;
+ function GetRptPDFAlbaran(const AID: Integer; const VerPrecios: Boolean = False; const VerTrabajos: Boolean = False; const VerIncidencias: Boolean = False): Binary;
end;
implementation
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
index 74d28779..70f908bc 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
@@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosAlbaranes = '{3BF46A2A-B09F-4966-80AC-36B91AB3F410}';
- RID_AlbaranesCliente = '{37A96813-FF20-4C48-8043-08624BDF1EEC}';
- RID_AlbaranesCliente_Detalles = '{7A054D7B-816E-40D3-8810-00601F96937D}';
+ RID_ListaAnosAlbaranes = '{CA15E0DE-DB21-4659-83E8-7C52F61A8D18}';
+ RID_AlbaranesCliente = '{55652CC2-5F41-4D4A-9D92-2D1EEB9F4B17}';
+ RID_AlbaranesCliente_Detalles = '{9A85B300-2DDE-41DD-A4C9-2B6CE2B26FCB}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@@ -25,7 +25,6 @@ const
idx_ListaAnosAlbaranesANO = 0;
{ AlbaranesCliente fields }
- fld_AlbaranesClienteID_CONTRATO = 'ID_CONTRATO';
fld_AlbaranesClienteID = 'ID';
fld_AlbaranesClienteID_EMPRESA = 'ID_EMPRESA';
fld_AlbaranesClienteID_CLIENTE = 'ID_CLIENTE';
@@ -39,6 +38,7 @@ const
fld_AlbaranesClienteNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
fld_AlbaranesClienteID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO';
+ fld_AlbaranesClienteID_CONTRATO = 'ID_CONTRATO';
fld_AlbaranesClienteREF_CONTRATO = 'REF_CONTRATO';
fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA';
fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA';
@@ -72,22 +72,23 @@ const
fld_AlbaranesClienteID_TIENDA = 'ID_TIENDA';
fld_AlbaranesClienteTIENDA = 'TIENDA';
fld_AlbaranesClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
+ fld_AlbaranesClienteTRABAJOS_INSTALADOR = 'TRABAJOS_INSTALADOR';
{ AlbaranesCliente field indexes }
- idx_AlbaranesClienteID_CONTRATO = 0;
- idx_AlbaranesClienteID = 1;
- idx_AlbaranesClienteID_EMPRESA = 2;
- idx_AlbaranesClienteID_CLIENTE = 3;
- idx_AlbaranesClienteNOMBRE = 4;
- idx_AlbaranesClienteFECHA_ALBARAN = 5;
- idx_AlbaranesClienteREFERENCIA = 6;
- idx_AlbaranesClienteREFERENCIA_CLIENTE = 7;
- idx_AlbaranesClienteTIPO = 8;
- idx_AlbaranesClienteSITUACION = 9;
- idx_AlbaranesClienteID_ALMACEN = 10;
- idx_AlbaranesClienteNOMBRE_ALMACEN = 11;
- idx_AlbaranesClienteID_PEDIDO = 12;
- idx_AlbaranesClienteREF_PEDIDO = 13;
+ idx_AlbaranesClienteID = 0;
+ idx_AlbaranesClienteID_EMPRESA = 1;
+ idx_AlbaranesClienteID_CLIENTE = 2;
+ idx_AlbaranesClienteNOMBRE = 3;
+ idx_AlbaranesClienteFECHA_ALBARAN = 4;
+ idx_AlbaranesClienteREFERENCIA = 5;
+ idx_AlbaranesClienteREFERENCIA_CLIENTE = 6;
+ idx_AlbaranesClienteTIPO = 7;
+ idx_AlbaranesClienteSITUACION = 8;
+ idx_AlbaranesClienteID_ALMACEN = 9;
+ idx_AlbaranesClienteNOMBRE_ALMACEN = 10;
+ idx_AlbaranesClienteID_PEDIDO = 11;
+ idx_AlbaranesClienteREF_PEDIDO = 12;
+ idx_AlbaranesClienteID_CONTRATO = 13;
idx_AlbaranesClienteREF_CONTRATO = 14;
idx_AlbaranesClienteID_FACTURA = 15;
idx_AlbaranesClienteREF_FACTURA = 16;
@@ -121,6 +122,7 @@ const
idx_AlbaranesClienteID_TIENDA = 44;
idx_AlbaranesClienteTIENDA = 45;
idx_AlbaranesClienteLISTA_NOMBRES = 46;
+ idx_AlbaranesClienteTRABAJOS_INSTALADOR = 47;
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
@@ -157,7 +159,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
- ['{0C7CD8C2-CB8B-4224-863B-760D2E239D64}']
+ ['{E097AA9E-0150-4FA4-809F-DC5C880C8D0B}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -192,12 +194,8 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
- ['{D3E1233E-BD17-40E1-B5B2-C8241F7BFF04}']
+ ['{8921A06D-B147-4332-8F91-A9346F234DDA}']
{ Property getters and setters }
- function GetID_CONTRATOValue: Integer;
- procedure SetID_CONTRATOValue(const aValue: Integer);
- function GetID_CONTRATOIsNull: Boolean;
- procedure SetID_CONTRATOIsNull(const aValue: Boolean);
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
@@ -250,6 +248,10 @@ type
procedure SetREF_PEDIDOValue(const aValue: String);
function GetREF_PEDIDOIsNull: Boolean;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean);
+ function GetID_CONTRATOValue: Integer;
+ procedure SetID_CONTRATOValue(const aValue: Integer);
+ function GetID_CONTRATOIsNull: Boolean;
+ procedure SetID_CONTRATOIsNull(const aValue: Boolean);
function GetREF_CONTRATOValue: String;
procedure SetREF_CONTRATOValue(const aValue: String);
function GetREF_CONTRATOIsNull: Boolean;
@@ -380,11 +382,12 @@ type
procedure SetLISTA_NOMBRESValue(const aValue: String);
function GetLISTA_NOMBRESIsNull: Boolean;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean);
+ function GetTRABAJOS_INSTALADORValue: IROStrings;
+ function GetTRABAJOS_INSTALADORIsNull: Boolean;
+ procedure SetTRABAJOS_INSTALADORIsNull(const aValue: Boolean);
{ Properties }
- property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
- property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
@@ -411,6 +414,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
+ property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
+ property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
@@ -477,6 +482,8 @@ type
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
+ property TRABAJOS_INSTALADOR: IROStrings read GetTRABAJOS_INSTALADORValue;
+ property TRABAJOS_INSTALADORIsNull: Boolean read GetTRABAJOS_INSTALADORIsNull write SetTRABAJOS_INSTALADORIsNull;
end;
{ TAlbaranesClienteDataTableRules }
@@ -484,14 +491,12 @@ type
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
+ f_TRABAJOS_INSTALADOR: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
procedure INCIDENCIAS_OnChange(Sender: TObject);
+ procedure TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
protected
{ Property getters and setters }
- function GetID_CONTRATOValue: Integer; virtual;
- procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
- function GetID_CONTRATOIsNull: Boolean; virtual;
- procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
@@ -544,6 +549,10 @@ type
procedure SetREF_PEDIDOValue(const aValue: String); virtual;
function GetREF_PEDIDOIsNull: Boolean; virtual;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetID_CONTRATOValue: Integer; virtual;
+ procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
+ function GetID_CONTRATOIsNull: Boolean; virtual;
+ procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetREF_CONTRATOValue: String; virtual;
procedure SetREF_CONTRATOValue(const aValue: String); virtual;
function GetREF_CONTRATOIsNull: Boolean; virtual;
@@ -674,10 +683,11 @@ type
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
function GetLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
+ function GetTRABAJOS_INSTALADORValue: IROStrings; virtual;
+ function GetTRABAJOS_INSTALADORIsNull: Boolean; virtual;
+ procedure SetTRABAJOS_INSTALADORIsNull(const aValue: Boolean); virtual;
{ Properties }
- property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
- property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
@@ -704,6 +714,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
+ property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
+ property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REF_CONTRATO: String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull: Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
@@ -770,6 +782,8 @@ type
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property LISTA_NOMBRES: String read GetLISTA_NOMBRESValue write SetLISTA_NOMBRESValue;
property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
+ property TRABAJOS_INSTALADOR: IROStrings read GetTRABAJOS_INSTALADORValue;
+ property TRABAJOS_INSTALADORIsNull: Boolean read GetTRABAJOS_INSTALADORIsNull write SetTRABAJOS_INSTALADORIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -779,7 +793,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{A6C61208-F037-4EFA-BBBF-1DBC79AF7C44}']
+ ['{C938586B-A47D-4769-A2B5-BC2C6EDDD33E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1019,6 +1033,10 @@ begin
StrList := TStringList.Create;
StrList.OnChange := INCIDENCIAS_OnChange;
f_INCIDENCIAS := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := TRABAJOS_INSTALADOR_OnChange;
+ f_TRABAJOS_INSTALADOR := NewROStrings(StrList,True);
end;
destructor TAlbaranesClienteDataTableRules.Destroy;
@@ -1036,25 +1054,9 @@ begin
if DataTable.Editing then DataTable.Fields[idx_AlbaranesClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text;
end;
-function TAlbaranesClienteDataTableRules.GetID_CONTRATOValue: Integer;
+procedure TAlbaranesClienteDataTableRules.TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
begin
- result := DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsInteger;
-end;
-
-procedure TAlbaranesClienteDataTableRules.SetID_CONTRATOValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsInteger := aValue;
-end;
-
-function TAlbaranesClienteDataTableRules.GetID_CONTRATOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].IsNull;
-end;
-
-procedure TAlbaranesClienteDataTableRules.SetID_CONTRATOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsVariant := Null;
+ if DataTable.Editing then DataTable.Fields[idx_AlbaranesClienteTRABAJOS_INSTALADOR].AsVariant := TStringList(Sender).Text;
end;
function TAlbaranesClienteDataTableRules.GetIDValue: Integer;
@@ -1330,6 +1332,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteREF_PEDIDO].AsVariant := Null;
end;
+function TAlbaranesClienteDataTableRules.GetID_CONTRATOValue: Integer;
+begin
+ result := DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsInteger;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetID_CONTRATOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsInteger := aValue;
+end;
+
+function TAlbaranesClienteDataTableRules.GetID_CONTRATOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].IsNull;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetID_CONTRATOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesClienteID_CONTRATO].AsVariant := Null;
+end;
+
function TAlbaranesClienteDataTableRules.GetREF_CONTRATOValue: String;
begin
result := DataTable.Fields[idx_AlbaranesClienteREF_CONTRATO].AsString;
@@ -2015,6 +2038,23 @@ begin
DataTable.Fields[idx_AlbaranesClienteLISTA_NOMBRES].AsVariant := Null;
end;
+function TAlbaranesClienteDataTableRules.GetTRABAJOS_INSTALADORValue: IROStrings;
+begin
+ result := f_TRABAJOS_INSTALADOR;
+ result.Text := DataTable.Fields[idx_AlbaranesClienteTRABAJOS_INSTALADOR].AsString;
+end;
+
+function TAlbaranesClienteDataTableRules.GetTRABAJOS_INSTALADORIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesClienteTRABAJOS_INSTALADOR].IsNull;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetTRABAJOS_INSTALADORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesClienteTRABAJOS_INSTALADOR].AsVariant := Null;
+end;
+
{ TAlbaranesCliente_DetallesDataTableRules }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
index b5c4de42..74f2e83e 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
@@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosAlbaranesDelta = '{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}';
- RID_AlbaranesClienteDelta = '{2EAD0C36-219E-47BB-8D37-78BD32D11744}';
- RID_AlbaranesCliente_DetallesDelta = '{2ACFBDE5-B171-408C-A739-A72B52566077}';
+ RID_ListaAnosAlbaranesDelta = '{DFB4AC32-D884-4D04-9605-AAC314909FCD}';
+ RID_AlbaranesClienteDelta = '{46FAFC4B-C587-47EE-BF0E-3039F1F746DC}';
+ RID_AlbaranesCliente_DetallesDelta = '{D4709917-AA42-498A-AB7B-304623533C8F}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
- ['{8B568226-36B4-4CDC-BE4C-BD51DA29AEAF}']
+ ['{DFB4AC32-D884-4D04-9605-AAC314909FCD}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,9 +50,8 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
- ['{2EAD0C36-219E-47BB-8D37-78BD32D11744}']
+ ['{46FAFC4B-C587-47EE-BF0E-3039F1F746DC}']
{ Property getters and setters }
- function GetOldID_CONTRATOValue : Integer;
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@@ -66,6 +65,7 @@ type
function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_PEDIDOValue : Integer;
function GetOldREF_PEDIDOValue : String;
+ function GetOldID_CONTRATOValue : Integer;
function GetOldREF_CONTRATOValue : String;
function GetOldID_FACTURAValue : Integer;
function GetOldREF_FACTURAValue : String;
@@ -99,9 +99,9 @@ type
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
function GetOldLISTA_NOMBRESValue : String;
+ function GetOldTRABAJOS_INSTALADORValue : IROStrings;
{ Properties }
- property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
@@ -115,6 +115,7 @@ type
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
+ property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
@@ -148,6 +149,7 @@ type
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
+ property OldTRABAJOS_INSTALADOR : IROStrings read GetOldTRABAJOS_INSTALADORValue;
end;
{ TAlbaranesClienteBusinessProcessorRules }
@@ -155,16 +157,12 @@ type
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
+ f_TRABAJOS_INSTALADOR: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
procedure INCIDENCIAS_OnChange(Sender: TObject);
+ procedure TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
protected
{ Property getters and setters }
- function GetID_CONTRATOValue: Integer; virtual;
- function GetID_CONTRATOIsNull: Boolean; virtual;
- function GetOldID_CONTRATOValue: Integer; virtual;
- function GetOldID_CONTRATOIsNull: Boolean; virtual;
- procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
- procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
@@ -243,6 +241,12 @@ type
function GetOldREF_PEDIDOIsNull: Boolean; virtual;
procedure SetREF_PEDIDOValue(const aValue: String); virtual;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetID_CONTRATOValue: Integer; virtual;
+ function GetID_CONTRATOIsNull: Boolean; virtual;
+ function GetOldID_CONTRATOValue: Integer; virtual;
+ function GetOldID_CONTRATOIsNull: Boolean; virtual;
+ procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
+ procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetREF_CONTRATOValue: String; virtual;
function GetREF_CONTRATOIsNull: Boolean; virtual;
function GetOldREF_CONTRATOValue: String; virtual;
@@ -439,12 +443,13 @@ type
function GetOldLISTA_NOMBRESIsNull: Boolean; virtual;
procedure SetLISTA_NOMBRESValue(const aValue: String); virtual;
procedure SetLISTA_NOMBRESIsNull(const aValue: Boolean); virtual;
+ function GetTRABAJOS_INSTALADORValue: IROStrings; virtual;
+ function GetTRABAJOS_INSTALADORIsNull: Boolean; virtual;
+ function GetOldTRABAJOS_INSTALADORValue: IROStrings; virtual;
+ function GetOldTRABAJOS_INSTALADORIsNull: Boolean; virtual;
+ procedure SetTRABAJOS_INSTALADORIsNull(const aValue: Boolean); virtual;
{ Properties }
- property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
- property ID_CONTRATOIsNull : Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
- property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
- property OldID_CONTRATOIsNull : Boolean read GetOldID_CONTRATOIsNull;
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
@@ -497,6 +502,10 @@ type
property REF_PEDIDOIsNull : Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property OldREF_PEDIDOIsNull : Boolean read GetOldREF_PEDIDOIsNull;
+ property ID_CONTRATO : Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
+ property ID_CONTRATOIsNull : Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
+ property OldID_CONTRATO : Integer read GetOldID_CONTRATOValue;
+ property OldID_CONTRATOIsNull : Boolean read GetOldID_CONTRATOIsNull;
property REF_CONTRATO : String read GetREF_CONTRATOValue write SetREF_CONTRATOValue;
property REF_CONTRATOIsNull : Boolean read GetREF_CONTRATOIsNull write SetREF_CONTRATOIsNull;
property OldREF_CONTRATO : String read GetOldREF_CONTRATOValue;
@@ -629,6 +638,10 @@ type
property LISTA_NOMBRESIsNull : Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull;
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldLISTA_NOMBRESIsNull : Boolean read GetOldLISTA_NOMBRESIsNull;
+ property TRABAJOS_INSTALADOR : IROStrings read GetTRABAJOS_INSTALADORValue;
+ property TRABAJOS_INSTALADORIsNull : Boolean read GetTRABAJOS_INSTALADORIsNull write SetTRABAJOS_INSTALADORIsNull;
+ property OldTRABAJOS_INSTALADOR : IROStrings read GetOldTRABAJOS_INSTALADORValue;
+ property OldTRABAJOS_INSTALADORIsNull : Boolean read GetOldTRABAJOS_INSTALADORIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -638,7 +651,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
- ['{2ACFBDE5-B171-408C-A739-A72B52566077}']
+ ['{D4709917-AA42-498A-AB7B-304623533C8F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@@ -888,6 +901,10 @@ begin
StrList := TStringList.Create;
StrList.OnChange := INCIDENCIAS_OnChange;
f_INCIDENCIAS := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := TRABAJOS_INSTALADOR_OnChange;
+ f_TRABAJOS_INSTALADOR := NewROStrings(StrList,True);
end;
destructor TAlbaranesClienteBusinessProcessorRules.Destroy;
@@ -905,35 +922,9 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteINCIDENCIAS] := TStringList(Sender).Text;
end;
-function TAlbaranesClienteBusinessProcessorRules.GetID_CONTRATOValue: Integer;
+procedure TAlbaranesClienteBusinessProcessorRules.TRABAJOS_INSTALADOR_OnChange(Sender: TObject);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO];
-end;
-
-function TAlbaranesClienteBusinessProcessorRules.GetID_CONTRATOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO]);
-end;
-
-function TAlbaranesClienteBusinessProcessorRules.GetOldID_CONTRATOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_CONTRATO];
-end;
-
-function TAlbaranesClienteBusinessProcessorRules.GetOldID_CONTRATOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_CONTRATO]);
-end;
-
-procedure TAlbaranesClienteBusinessProcessorRules.SetID_CONTRATOValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO] := aValue;
-end;
-
-procedure TAlbaranesClienteBusinessProcessorRules.SetID_CONTRATOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR] := TStringList(Sender).Text;
end;
function TAlbaranesClienteBusinessProcessorRules.GetIDValue: Integer;
@@ -1339,6 +1330,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_PEDIDO] := Null;
end;
+function TAlbaranesClienteBusinessProcessorRules.GetID_CONTRATOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetID_CONTRATOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO]);
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldID_CONTRATOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_CONTRATO];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldID_CONTRATOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_CONTRATO]);
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetID_CONTRATOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO] := aValue;
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetID_CONTRATOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CONTRATO] := Null;
+end;
+
function TAlbaranesClienteBusinessProcessorRules.GetREF_CONTRATOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_CONTRATO];
@@ -2356,6 +2378,34 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteLISTA_NOMBRES] := Null;
end;
+function TAlbaranesClienteBusinessProcessorRules.GetTRABAJOS_INSTALADORValue: IROStrings;
+begin
+ result := f_TRABAJOS_INSTALADOR;
+ result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetTRABAJOS_INSTALADORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR]);
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldTRABAJOS_INSTALADORValue: IROStrings;
+begin
+ result := NewROStrings();
+ result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldTRABAJOS_INSTALADORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR]);
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetTRABAJOS_INSTALADORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTRABAJOS_INSTALADOR] := Null;
+end;
+
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
index ed5c59e1..a923b694 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
@@ -164,6 +164,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'PAGINA_WEB_EMPRESA'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'INCIDENCIAS'
+ DataType = datMemo
+ end
+ item
+ Name = 'TRABAJOS_INSTALADOR'
+ DataType = datMemo
end>
Params = <
item
@@ -319,12 +327,13 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'RESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS T' +
'ELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOV' +
'IL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10 +
- ' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLI' +
- 'ENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.I' +
- 'D_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_C' +
- 'LIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (C' +
- 'ONTACTOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ' +
- 'ALBARANES_CLIENTE.ID = :ID'#10
+ ' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA,'#10' ALBARANES_CLIENTE' +
+ '.INCIDENCIAS,'#10' ALBARANES_CLIENTE.TRABAJOS_INSTALADOR'#10'FROM'#10' ALB' +
+ 'ARANES_CLIENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES' +
+ '_CLIENTE.ID_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = A' +
+ 'LBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCI' +
+ 'ONES ON (CONTACTOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCI' +
+ 'ON)'#10'WHERE ALBARANES_CLIENTE.ID = :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -452,6 +461,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
DatasetField = 'MOVIL'
TableField = ''
SQLOrigin = 'MOVIL'
+ end
+ item
+ DatasetField = 'INCIDENCIAS'
+ TableField = 'INCIDENCIAS'
+ end
+ item
+ DatasetField = 'TRABAJOS_INSTALADOR'
+ TableField = 'TRABAJOS_INSTALADOR'
end>
end>
Name = 'Informe_Cabecera'
@@ -602,6 +619,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'PAGINA_WEB_EMPRESA'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'INCIDENCIAS'
+ DataType = datMemo
+ end
+ item
+ Name = 'TRABAJOS_INSTALADOR'
+ DataType = datMemo
end>
end
item
@@ -1075,7 +1100,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000
- ReportOptions.LastChange = 42583.535851493060000000
+ ReportOptions.LastChange = 44795.515802407400000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
index 393720cf..3c4ee351 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
@@ -37,11 +37,13 @@ type
private
FConnection: IDAConnection;
FVerPrecios: Boolean;
+ FVerTrabajos: Boolean;
+ FVerIncidencias: Boolean;
//Genera cada uno de los albaranes a imprimir
procedure _GenerarAlbaran(const ID: Integer);
public
- function GenerarAlbaran(const ListaID : TIntegerArray; const VerPrecios: Boolean): Binary;
- function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerPrecios: Boolean): Binary;
+ function GenerarAlbaran(const ListaID : TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
+ function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
end;
@@ -73,13 +75,15 @@ begin
end;
-function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray; const VerPrecios: Boolean): Binary;
+function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
var
i: Integer;
begin
Result := Binary.Create;
//Inicializamos parametros
FVerPrecios := VerPrecios;
+ FVerTrabajos := VerTrabajos;
+ FVerIncidencias := VerIncidencias;
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
@@ -88,13 +92,15 @@ begin
frxReport.PreviewPages.SaveToStream(Result);
end;
-function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary;
+function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
var
i: Integer;
begin
Result := Binary.Create;
//Inicializamos parametros
FVerPrecios := VerPrecios;
+ FVerTrabajos := VerTrabajos;
+ FVerIncidencias := VerIncidencias;
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
@@ -125,7 +131,9 @@ begin
raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe' + rptInfAlbaran));
frxReport.LoadFromFile(AInforme, True);
- frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
+ frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
+ frxReport.Variables.Variables['VerTrabajos'] := FVerTrabajos;
+ frxReport.Variables.Variables['VerIncidencias'] := FVerIncidencias;
frxReport.ReportOptions.Name := 'Albarán de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False);
finally
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
index dfadf209..c8d02feb 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
@@ -235,15 +235,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'LISTA_NOMBRES'
TableField = 'LISTA_NOMBRES'
+ end
+ item
+ DatasetField = 'TRABAJOS_INSTALADOR'
+ TableField = 'TRABAJOS_INSTALADOR'
end>
end>
Name = 'AlbaranesCliente'
Fields = <
- item
- Name = 'ID_CONTRATO'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
- end
item
Name = 'ID'
DataType = datAutoInc
@@ -321,6 +320,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Size = 255
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
end
+ item
+ Name = 'ID_CONTRATO'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesCliente_ID_CONTRATO'
+ end
item
Name = 'REF_CONTRATO'
DataType = datString
@@ -504,6 +508,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesCliente_LISTA_NOMBRES'
+ end
+ item
+ Name = 'TRABAJOS_INSTALADOR'
+ DataType = datMemo
end>
end
item
@@ -718,12 +726,12 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
end
item
- Name = 'ID_CONTRATO'
+ Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
end
item
- Name = 'ID_FACTURA'
+ Name = 'ID_CONTRATO'
DataType = datInteger
Value = ''
end
@@ -859,6 +867,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'ID_TIENDA'
DataType = datInteger
Value = ''
+ end
+ item
+ Name = 'TRABAJOS_INSTALADOR'
+ DataType = datMemo
+ Value = ''
end>
Statements = <
item
@@ -874,16 +887,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'E_DESCUENTO,'#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTA' +
'L, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_' +
'ALTA,'#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_E' +
- 'NVIO, '#10' FECHA_RECEPCION, ID_TIENDA)'#10' VALUES'#10' (:ID, :ID_E' +
- 'MPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :R' +
- 'EFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_CON' +
- 'TRATO, :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :' +
- 'PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :MOVIL, :IMPORTE_N' +
- 'ETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_' +
- 'IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' ' +
- ' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' ' +
- ':USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :' +
- 'FECHA_RECEPCION,'#10' :ID_TIENDA)'#10' '#10' '#10#10
+ 'NVIO, '#10' FECHA_RECEPCION, ID_TIENDA, TRABAJOS_INSTALADOR)'#10' V' +
+ 'ALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO,' +
+ ' :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO,' +
+ ' :ID_FACTURA, :ID_CONTRATO, :ID_DIRECCION,'#10' :CALLE, :CODIGO_' +
+ 'POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFON' +
+ 'O, :MOVIL, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_D' +
+ 'ESCUENTO,'#10' :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOT' +
+ 'AL, :OBSERVACIONES,'#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CUR' +
+ 'RENT_TIMESTAMP,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_E' +
+ 'NVIO, :FECHA_ENVIO, :FECHA_RECEPCION,'#10' :ID_TIENDA, :TRABAJOS' +
+ '_INSTALADOR)'#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -908,11 +922,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end
item
Params = <
- item
- Name = 'ID_CONTRATO'
- DataType = datInteger
- Value = ''
- end
item
Name = 'ID_EMPRESA'
DataType = datInteger
@@ -961,6 +970,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datInteger
Value = ''
end
+ item
+ Name = 'ID_CONTRATO'
+ DataType = datInteger
+ Value = ''
+ end
item
Name = 'ID_DIRECCION'
DataType = datInteger
@@ -1094,6 +1108,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datInteger
Value = ''
end
+ item
+ Name = 'TRABAJOS_INSTALADOR'
+ DataType = datMemo
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -1123,7 +1142,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'SUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FEC' +
'HA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :F' +
'ECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' ID_TIEN' +
- 'DA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'DA = :ID_TIENDA,'#10' TRABAJOS_INSTALADOR = :TRABAJOS_INSTALADOR'#10 +
+ ' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
index 3f68d4c6..448d5e7c 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
@@ -32,7 +32,7 @@ type
procedure DARemoteServiceCreate(Sender: TObject);
protected
{ IsrvAlbaranesCliente methods }
- function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary;
+ function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end;
@@ -81,13 +81,13 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
-function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean): Binary;
+function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerTrabajos: Boolean; const VerIncidencias: Boolean): Binary;
var
AReportGenerator : TRptAlbaranesCliente;
begin
AReportGenerator := TRptAlbaranesCliente.Create(nil);
try
- Result := AReportGenerator.GenerarAlbaran(ListaID, VerPrecios);
+ Result := AReportGenerator.GenerarAlbaran(ListaID, VerPrecios, VerTrabajos, VerIncidencias);
finally
FreeAndNIL(AReportGenerator);
end;
diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk
index f4f071fb..205b36c4 100644
--- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk
+++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk
@@ -34,7 +34,9 @@ requires
Almacenes_controller,
AlbCli_FacCli_relation,
ContratosCliente_controller,
- ConCli_AlbCli_relation;
+ ConCli_AlbCli_relation,
+ rtl,
+ vcl;
contains
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',
@@ -52,6 +54,7 @@ contains
uViewAlbaranesDevCliente in 'uViewAlbaranesDevCliente.pas' {frViewAlbaranesDevCliente: TCustomView},
uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor},
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView},
- uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView};
+ uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView},
+ uDialogOpcionesImpresionAlbaranesCliente in 'uDialogOpcionesImpresionAlbaranesCliente.pas' {fDialogOpcionesImpresionAlbaranesCliente: TfDialogOpcionesImpresionAlbaranesCliente};
end.
diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
index 3f152c59..0444137d 100644
--- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
+++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
@@ -55,6 +55,10 @@
+
+
+
+
File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found
File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found
File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found
@@ -66,17 +70,22 @@
MainSource
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TfEditorElegirArticulosAlbaranCliente
+
TfEditorAlbaranCliente
@@ -137,6 +146,7 @@
TFrame
+