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

Repaso a presupuestos:

Browse Source 
- Activado duplicar por que ya duplica los registros del contenido.
- Arreglado un problema de autorefresco en el grid.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@208 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-01-08 10:31:12 +00:00
parent 6e9b363578
commit 9d458fb678
10 changed files with 41 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Iconos/Presupuestos/16x16/Budget_incidencia.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.2 KiB

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

@ -270,6 +270,7 @@ begin
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_PRESUPUESTO := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0;
DataTable.FieldByName('INCIDENCIAS').AsVariant := Null;
REFERENCIA := '';
end;
Result.Post;

3
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -76,6 +76,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datString
Size = 15
DisplayLabel = 'PresupuestosCliente_NIF_CIF'
ServerAutoRefresh = True
DictionaryEntry = 'PresupuestosCliente_NIF_CIF'
end
item
@ -83,6 +84,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datString
Size = 255
DisplayLabel = 'PresupuestosCliente_NOMBRE'
ServerAutoRefresh = True
DictionaryEntry = 'PresupuestosCliente_NOMBRE'
end
item
@ -90,6 +92,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datString
Size = 255
DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE'
ServerAutoRefresh = True
DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE'
end
item

5
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -180,18 +180,21 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'NIF_CIF'
DataType = datString
Size = 15
ServerAutoRefresh = True
DictionaryEntry = 'PresupuestosCliente_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'PresupuestosCliente_NOMBRE'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE'
end
item
@ -1208,7 +1211,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DeleteCommandName = 'Delete_PresupuestosCliente'
UpdateCommandName = 'Update_PresupuestosCliente'
ReferencedDataset = 'PresupuestosCliente'
ProcessorOptions = [poPrepareCommands]
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 184
Top = 24

2
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
View File

@ -30,7 +30,7 @@ requires
PresupuestosCliente_model,
PresupuestosCliente_controller,
Articulos_view;
contains
uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
uEditorPresupuestosCliente in 'uEditorPresupuestosCliente.pas' {fEditorPresupuestosCliente: TfEditorPedidosCliente},

59
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -43,32 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
@ -77,54 +51,49 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Articulos_viewvclrtl.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="PresupuestosCliente_controller.dcp" />
<DCCReference Include="PresupuestosCliente_model.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="rtlcontainsuPresupuestosClienteViewRegisterin.dcp" />
<DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" />
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
<Form>fEditorElegirArticulosPresupuestoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirPresupuestosCliente.pas">
<DesignClass>TfEditorElegirPedidosCliente</DesignClass>
<Form>fEditorElegirPresupuestosCliente</Form>
<DesignClass>TfEditorElegirPedidosCliente</DesignClass>
</DCCReference>
<DCCReference Include="uEditorPresupuestoCliente.pas">
<DesignClass>TfEditorPedidoCliente</DesignClass>
<Form>fEditorPresupuestoCliente</Form>
<DesignClass>TfEditorPedidoCliente</DesignClass>
</DCCReference>
<DCCReference Include="uEditorPresupuestosCliente.pas">
<DesignClass>TfEditorPedidosCliente</DesignClass>
<Form>fEditorPresupuestosCliente</Form>
<DesignClass>TfEditorPedidosCliente</DesignClass>
</DCCReference>
<DCCReference Include="uEditorPresupuestosClienteReport.pas">
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
<Form>fEditorPresupuestosClientePreview</Form>
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
</DCCReference>
<DCCReference Include="uPresupuestosClienteViewRegister.pas" />
<DCCReference Include="uViewDetallesPresupuestoCliente.pas">
<DesignClass>TFrame</DesignClass>
<Form>frViewDetallesPresupuestoCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDireccionEntregaPresupuestoCliente.pas" />
<DCCReference Include="uViewElegirArticulosPresupuestosCliente.pas">
<DesignClass>TFrame</DesignClass>
<Form>frViewElegirArticulosPresupuestosCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewPresupuestoCliente.pas">
<DesignClass>TFrame</DesignClass>
<Form>frViewPresupuestoCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewPresupuestosCliente.pas">
<DesignClass>TFrame</DesignClass>
<Form>frViewPresupuestosCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

BIN
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.res
View File

Binary file not shown.

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

@ -124,7 +124,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Width = 674
ExplicitWidth = 674
inherited tbxMain: TTBXToolbar
ExplicitWidth = 561
ExplicitWidth = 632
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 674
@ -163,10 +163,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
inherited actImprimir: TAction
Visible = True
end
inherited actDuplicar: TAction
Enabled = False
Visible = False
end
object actGenerarAlbaranCli: TAction
Category = 'Acciones'
Caption = 'Generar albar'#225'n de cliente'

11
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -37,11 +37,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
DataBinding.FieldName = 'ID'
OnCustomDrawCell = cxGridViewIDCustomDrawCell
OnGetCellHint = cxGridViewIDGetCellHint
BestFitMaxWidth = 15
OnGetDisplayText = cxGridViewIDGetDisplayText
BestFitMaxWidth = 20
MinWidth = 15
Options.HorzSizing = False
VisibleForCustomization = False
Width = 15
Width = 20
IsCaptionAssigned = True
end
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
@ -64,14 +64,17 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Properties.ShowDescriptions = False
Visible = False
BestFitMaxWidth = 20
MinWidth = 10
Options.HorzSizing = False
VisibleForCustomization = False
Width = 20
Width = 10
end
object cxGridViewINCIDENCIAS: TcxGridDBColumn
DataBinding.FieldName = 'INCIDENCIAS'
Visible = False
BestFitMaxWidth = 10
VisibleForCustomization = False
Width = 20
end
object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA'

10
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

@ -68,6 +68,8 @@ type
ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
const AMousePos: TPoint; var AHintText: TCaption;
var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
procedure cxGridViewIDGetDisplayText(Sender: TcxCustomGridTableItem;
ARecord: TcxCustomGridRecord; var AText: string);
private
//Filtros relativos a la vista
@ -234,6 +236,14 @@ begin
end;
end;
procedure TfrViewPresupuestosCliente.cxGridViewIDGetDisplayText(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AText: string);
begin
inherited;
AText := '';
end;
procedure TfrViewPresupuestosCliente.cxGridViewStylesGetContentStyle(Sender:
TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
TcxCustomGridTableItem; out AStyle: TcxStyle);