Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Presupuestos de cliente -> Repaso general.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@194 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-12-20 21:05:11 +00:00
parent e6506cbc7a
commit 636310b6d0
13 changed files with 173 additions and 249 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

12
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj
View File

@ -49,11 +49,11 @@
<DelphiCompile Include="PresupuestosCliente_controller.dpk"> <DelphiCompile Include="PresupuestosCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Articulos_controller.dcp" /> <DCCReference Include="Articulos_controller.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="..\PresupuestosCliente_data.dcp" /> <DCCReference Include="PresupuestosCliente_data.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" /> <DCCReference Include="PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosPresupuestoClienteController.pas" /> <DCCReference Include="uArticulosPresupuestoClienteController.pas" />
<DCCReference Include="uDetallesPresupuestoClienteController.pas" /> <DCCReference Include="uDetallesPresupuestoClienteController.pas" />
<DCCReference Include="uPresupuestosClienteController.pas" /> <DCCReference Include="uPresupuestosClienteController.pas" />
@ -548,4 +548,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1 Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email." mtInvalidEmailMsg0="Invalid email."
TextsCollection=English TextsCollection=English
EurekaLog Last Line --> EurekaLog Last Line -->

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

@ -528,6 +528,7 @@ procedure TPresupuestosClienteController.RecalcularImportes(
APresupuesto: IBizPresupuestoCliente); APresupuesto: IBizPresupuestoCliente);
var var
bEnEdicion : Boolean; bEnEdicion : Boolean;
ADetallePosAct : Integer;
begin begin
if not Assigned(APresupuesto) then if not Assigned(APresupuesto) then
raise Exception.Create ('Presupuesto no asignado (RecalcularImportes)'); raise Exception.Create ('Presupuesto no asignado (RecalcularImportes)');
@ -535,19 +536,28 @@ begin
if APresupuesto.DataTable.Active then if APresupuesto.DataTable.Active then
APresupuesto.DataTable.Active := True; APresupuesto.DataTable.Active := True;
{ Hay que guardar la posición en la que estamos en los detalles por que
la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE
(ver más adelante) colocan el puntero en la tabla detalle al principio.
No he encontrado la razón por la que mueve el puntero. }
ADetallePosAct := APresupuesto.Detalles.POSICION;
bEnEdicion := (APresupuesto.DataTable.State in dsEditModes); bEnEdicion := (APresupuesto.DataTable.State in dsEditModes);
if not bEnEdicion then if not bEnEdicion then
APresupuesto.Edit; APresupuesto.Edit;
ShowHourglassCursor; ShowHourglassCursor;
APresupuesto.Edit;
try try
APresupuesto.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(APresupuesto.Detalles); APresupuesto.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(APresupuesto.Detalles);
APresupuesto.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(APresupuesto.Detalles); APresupuesto.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(APresupuesto.Detalles);
if not bEnEdicion then if not bEnEdicion then
APresupuesto.Post; APresupuesto.Post;
finally finally
HideHourglassCursor; HideHourglassCursor;
// Restaurar la posición que teníamos en los detalles.
FDetallesController.LocalizarPosicion(APresupuesto.Detalles, ADetallePosAct);
end; end;
end; end;

16
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
View File

@ -31,7 +31,8 @@ implementation
uses uses
uROTypes, uEditorRegistryUtils, uIEditorPresupuestosClientePreview, uROTypes, uEditorRegistryUtils, uIEditorPresupuestosClientePreview,
uEditorPreview, uDataModulePresupuestosCliente, uEditorBase, cxControls; uEditorPreview, uDataModulePresupuestosCliente, uEditorBase,
cxControls, uFactuGES_App;
{ TPresupuestosClienteReportController } { TPresupuestosClienteReportController }
@ -65,12 +66,13 @@ begin
try try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do with AEditor do
begin begin
AEditor.LoadFromStream(AStream); Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.Preview; LoadFromStream(AStream);
AEditor.Release; Preview;
end; Release;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;

14
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -16,8 +16,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Top = 72 Top = 72
end end
object frxBarCodeObject1: TfrxBarCodeObject object frxBarCodeObject1: TfrxBarCodeObject
Left = 400 Left = 528
Top = 424 Top = 488
end end
object frxOLEObject1: TfrxOLEObject object frxOLEObject1: TfrxOLEObject
Left = 400 Left = 400
@ -25,15 +25,15 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
end end
object frxCrossObject1: TfrxCrossObject object frxCrossObject1: TfrxCrossObject
Left = 400 Left = 400
Top = 360 Top = 440
end end
object frxCheckBoxObject1: TfrxCheckBoxObject object frxCheckBoxObject1: TfrxCheckBoxObject
Left = 400 Left = 464
Top = 232 Top = 488
end end
object frxGradientObject1: TfrxGradientObject object frxGradientObject1: TfrxGradientObject
Left = 400 Left = 464
Top = 296 Top = 440
end end
object schReport: TDASchema object schReport: TDASchema
ConnectionManager = dmServer.ConnectionManager ConnectionManager = dmServer.ConnectionManager

4
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
View File

@ -123,7 +123,7 @@ begin
ID_Presupuestos := TStringList.Create; ID_Presupuestos := TStringList.Create;
ID_Presupuestos.CommaText := AID; ID_Presupuestos.CommaText := AID;
//Vamos generando todos y cada uno de los albaranes recibidos //Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ID_Presupuestos.Count - 1 do for i := 0 to ID_Presupuestos.Count - 1 do
GenerarPresupuesto(StrToInt(ID_Presupuestos.Strings[i])); GenerarPresupuesto(StrToInt(ID_Presupuestos.Strings[i]));
@ -187,8 +187,6 @@ begin
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
frxReport.ShowPreparedReport;
finally finally
AStream.Free; AStream.Free;
dsCabecera := Nil; dsCabecera := Nil;

192
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -5,15 +5,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ClientHeight = 615 ClientHeight = 615
ClientWidth = 749 ClientWidth = 749
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitTop = -85
ExplicitWidth = 757 ExplicitWidth = 757
ExplicitHeight = 642 ExplicitHeight = 649
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 749 Width = 749
Caption = 'Nuevo pedido de cliente' Caption = 'Nuevo pedido de cliente'
ExplicitWidth = 674 ExplicitWidth = 749
inherited Image1: TImage inherited Image1: TImage
Left = 722 Left = 722
Picture.Data = { Picture.Data = {
@ -128,7 +127,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 749 Width = 749
ExplicitWidth = 674 ExplicitWidth = 749
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -146,28 +145,27 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 749 Width = 743
Height = 420 Height = 414
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChange = pgPaginasChange
ExplicitWidth = 674 ExplicitWidth = 743
ExplicitHeight = 402 ExplicitHeight = 414
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 741 ExplicitWidth = 735
ExplicitHeight = 421 ExplicitHeight = 386
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 666
ExplicitHeight = 374
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 741 Width = 735
Height = 392 Height = 386
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -179,11 +177,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 666 ExplicitWidth = 735
ExplicitHeight = 374 ExplicitHeight = 386
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 741 Width = 735
ExplicitWidth = 741 ExplicitWidth = 735
inherited FontSize: TEdit inherited FontSize: TEdit
Width = 57 Width = 57
ExplicitWidth = 57 ExplicitWidth = 57
@ -226,75 +224,30 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 741 Width = 735
Height = 320 Height = 314
ExplicitWidth = 666 ExplicitWidth = 735
ExplicitHeight = 302 ExplicitHeight = 314
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 741 Width = 735
ExplicitWidth = 741 ExplicitWidth = 735
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 548
end end
end end
end end
end end
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitWidth = 666
ExplicitHeight = 374
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
Width = 741
Height = 392
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 666
ExplicitHeight = 374
inherited pnlSup: TPanel
Width = 741
ExplicitWidth = 741
inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21
end
end
inherited GroupBox1: TGroupBox
Width = 741
Height = 364
ExplicitWidth = 741
ExplicitHeight = 393
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 718
ExplicitHeight = 360
Height = 331
Width = 718
end
end
end
end
object pagPortada: TTabSheet object pagPortada: TTabSheet
Caption = 'Portada' Caption = 'Portada'
ImageIndex = 3 ImageIndex = 3
ExplicitWidth = 666
ExplicitHeight = 374
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 145 Width = 145
Height = 392 Height = 386
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
ExplicitHeight = 421
object Image2: TImage object Image2: TImage
Left = 16 Left = 16
Top = 16 Top = 16
@ -381,8 +334,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inline frViewRichEditor1: TfrViewRichEditor inline frViewRichEditor1: TfrViewRichEditor
Left = 145 Left = 145
Top = 0 Top = 0
Width = 596 Width = 590
Height = 392 Height = 386
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -393,13 +346,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitLeft = 145 ExplicitLeft = 145
ExplicitWidth = 521 ExplicitWidth = 590
ExplicitHeight = 374 ExplicitHeight = 386
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 596 Width = 590
ExplicitWidth = 596 ExplicitWidth = 590
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 517 ExplicitWidth = 516
inherited TBXColorItem1: TTBXColorItem inherited TBXColorItem1: TTBXColorItem
Visible = False Visible = False
end end
@ -408,26 +361,24 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited RichEdit: TcxDBRichEdit inherited RichEdit: TcxDBRichEdit
DataBinding.DataField = 'PORTADA' DataBinding.DataField = 'PORTADA'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
ExplicitWidth = 596 Style.IsFontAssigned = True
ExplicitHeight = 395 ExplicitWidth = 590
Height = 366 ExplicitHeight = 360
Width = 596 Height = 360
Width = 590
end end
end end
end end
object pagMemoria: TTabSheet object pagMemoria: TTabSheet
Caption = 'Memoria' Caption = 'Memoria'
ImageIndex = 4 ImageIndex = 4
ExplicitWidth = 666
ExplicitHeight = 374
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 145 Width = 145
Height = 392 Height = 386
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
ExplicitHeight = 374
object Image3: TImage object Image3: TImage
Left = 16 Left = 16
Top = 16 Top = 16
@ -685,8 +636,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inline frViewRichEditor2: TfrViewRichEditor inline frViewRichEditor2: TfrViewRichEditor
Left = 145 Left = 145
Top = 0 Top = 0
Width = 596 Width = 590
Height = 392 Height = 386
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -697,13 +648,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitLeft = 145 ExplicitLeft = 145
ExplicitWidth = 521 ExplicitWidth = 590
ExplicitHeight = 374 ExplicitHeight = 386
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 596 Width = 590
ExplicitWidth = 521 ExplicitWidth = 590
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 517 ExplicitWidth = 516
inherited TBXColorItem1: TTBXColorItem inherited TBXColorItem1: TTBXColorItem
Visible = False Visible = False
end end
@ -712,10 +663,51 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited RichEdit: TcxDBRichEdit inherited RichEdit: TcxDBRichEdit
DataBinding.DataField = 'MEMORIA' DataBinding.DataField = 'MEMORIA'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
ExplicitWidth = 521 Style.IsFontAssigned = True
ExplicitHeight = 348 ExplicitWidth = 590
Height = 366 ExplicitHeight = 360
Width = 596 Height = 360
Width = 590
end
end
end
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
Width = 735
Height = 386
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 735
ExplicitHeight = 386
inherited pnlSup: TPanel
Width = 735
ExplicitWidth = 735
inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21
end
end
inherited GroupBox1: TGroupBox
Width = 735
Height = 358
ExplicitWidth = 735
ExplicitHeight = 358
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 712
ExplicitHeight = 325
Height = 325
Width = 712
end
end end
end end
end end
@ -727,8 +719,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 549 ExplicitTop = 596
ExplicitWidth = 674 ExplicitWidth = 749
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
@ -751,7 +743,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 749 Width = 749
Height = 171 Height = 171
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 674 ExplicitWidth = 749
ExplicitHeight = 171 ExplicitHeight = 171
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 93 Left = 93

19
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -16,7 +16,7 @@ uses
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
uIEditorPresupuestoCliente, uBizPresupuestosCliente, uViewPresupuestoCliente, uIEditorPresupuestoCliente, uBizPresupuestosCliente, uViewPresupuestoCliente,
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesPresupuestoCliente, uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesPresupuestoCliente,
uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor; uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor, cxPC;
type type
TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente) TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
@ -38,9 +38,9 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject; procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure pgPaginasChange(Sender: TObject);
private private
procedure RecalcularPortePorUnidad; procedure RecalcularPortePorUnidad;
@ -239,6 +239,7 @@ begin
end end
else begin else begin
ADireccion := AClientesController.ElegirDireccionEntrega(FPresupuesto.Cliente.Direcciones, ''); ADireccion := AClientesController.ElegirDireccionEntrega(FPresupuesto.Cliente.Direcciones, '');
ShowHourglassCursor;
try try
if Assigned(ADireccion) then if Assigned(ADireccion) then
begin begin
@ -247,6 +248,7 @@ begin
FPresupuesto.IMPORTE_PORTE := ADireccion.PORTE; FPresupuesto.IMPORTE_PORTE := ADireccion.PORTE;
end; end;
finally finally
HideHourglassCursor;
ADireccion := NIL; ADireccion := NIL;
end; end;
end; end;
@ -263,14 +265,19 @@ begin
end; end;
end; end;
procedure TfEditorPresupuestoCliente.pgPaginasChanging(Sender: TObject; var AllowChange: Boolean); procedure TfEditorPresupuestoCliente.pgPaginasChange(Sender: TObject);
begin begin
inherited; inherited;
if (not Assigned(FPresupuesto)) or (FPresupuesto.ID_CLIENTE = 0) then if (not Assigned(FPresupuesto)) or (FPresupuesto.ID_CLIENTE = 0) then
begin begin
ShowWarningMessage('Antes de introducir conceptos debe elegir un cliente para este Presupuesto'); if (pgPaginas.ActivePageIndex = pagContenido.PageIndex) then
AllowChange := False; begin
end; pagContenido.Enabled := False;
ShowWarningMessage('Antes de introducir conceptos debe elegir un cliente para este presupuesto');
end;
end
else
pagContenido.Enabled := True;
end; end;
procedure TfEditorPresupuestoCliente.PonerTitulos(const ATitulo: string); procedure TfEditorPresupuestoCliente.PonerTitulos(const ATitulo: string);

4
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Caption = 'Lista de presupuestos de cliente' Caption = 'Lista de presupuestos de cliente'
ClientWidth = 674 ClientWidth = 674
ExplicitWidth = 682 ExplicitWidth = 682
ExplicitHeight = 471
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -164,6 +163,9 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
inherited actImprimir: TAction inherited actImprimir: TAction
Visible = True Visible = True
end end
inherited actDuplicar: TAction
Enabled = False
end
object actGenerarAlbaranCli: TAction object actGenerarAlbaranCli: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Generar albar'#225'n de cliente' Caption = 'Generar albar'#225'n de cliente'

4
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -214,14 +214,14 @@ begin
if AllItems then if AllItems then
begin begin
if (Application.MessageBox('¿Desea borrar los Presupuestos de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then if (Application.MessageBox('¿Desea borrar los presupuestos seleccionados?', 'Atención', MB_YESNO) = IDYES) then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords);
APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente; APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
end end
end end
else begin else begin
if (Application.MessageBox('¿Desea borrar el Presupuesto de proveedor seleccionado?', 'Atención', MB_YESNO) = IDYES) then if (Application.MessageBox('¿Desea borrar el presupuesto seleccionado?', 'Atención', MB_YESNO) = IDYES) then
APresupuestos := Presupuestos; APresupuestos := Presupuestos;
end; end;

90
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
View File

@ -1,88 +1,5 @@
inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
Width = 933
inherited ToolBar1: TToolBar
Width = 933
Height = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 555
Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50
Width = 933
Height = 254
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn inherited cxGridViewTIPO: TcxGridDBColumn
Width = 51 Width = 51
@ -116,11 +33,4 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
end end
end end
end end
inherited TBXDock1: TTBXDock
Top = 24
Width = 933
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548
end
end
end end

2
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -56,7 +56,7 @@ end;
procedure TfrViewDetallesPresupuestoCliente.BitBtn1Click(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.BitBtn1Click(Sender: TObject);
begin begin
inherited; inherited;
FPresupuesto.Detalles.Insert; FPresupuesto.Detalles.Insert;
end; end;
function TfrViewDetallesPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente; function TfrViewDetallesPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;

30
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -19,7 +19,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
513) 513)
object edtFechaPresupuesto: TcxDBDateEdit object edtFechaPresupuesto: TcxDBDateEdit
Left = 123 Left = 123
Top = 109 Top = 82
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PRESUPUESTO' DataBinding.DataField = 'FECHA_PRESUPUESTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -37,7 +37,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 2
Width = 119 Width = 119
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
@ -183,7 +183,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
object edtFechaDecision: TcxDBDateEdit object edtFechaDecision: TcxDBDateEdit
Left = 123 Left = 123
Top = 136 Top = 109
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_DECISION' DataBinding.DataField = 'FECHA_DECISION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -200,7 +200,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 3
Width = 216 Width = 216
end end
object eRefCliente: TcxDBTextEdit object eRefCliente: TcxDBTextEdit
@ -213,7 +213,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clInfoBk Style.Color = clWindow
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -230,7 +230,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
object edtClienteFinal: TcxDBTextEdit object edtClienteFinal: TcxDBTextEdit
Left = 123 Left = 123
Top = 82 Top = 163
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CLIENTE_FINAL' DataBinding.DataField = 'CLIENTE_FINAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -238,7 +238,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clInfoBk Style.Color = clWindow
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
@ -250,12 +250,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 5
Width = 227 Width = 227
end end
object cbSituacion: TcxDBImageComboBox object cbSituacion: TcxDBImageComboBox
Left = 123 Left = 123
Top = 163 Top = 136
DataBinding.DataField = 'SITUACION' DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.Items = < Properties.Items = <
@ -277,7 +277,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 4
Width = 121 Width = 121
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
@ -303,11 +303,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Control = eRefCliente Control = eRefCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Cliente final:'
Control = edtClienteFinal
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha presupuesto:' Caption = 'Fecha presupuesto:'
Control = edtFechaPresupuesto Control = edtFechaPresupuesto
@ -323,6 +318,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Control = cbSituacion Control = cbSituacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Cliente final:'
Control = edtClienteFinal
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Visible = False Visible = False