Repaso de relaciones cuatro

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@406 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-06-02 15:15:06 +00:00
parent 3f999e990f
commit 2391f2614d
5 changed files with 16 additions and 8 deletions

View File

@ -48,11 +48,12 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\Contactos_view.dcp" /> <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\FacturasCliente_controller.dcp" /> <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\FacturasCliente_model.dcp" /> <DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas"> <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
<Form>fEditorElegirArticulosFacturaCliente</Form> <Form>fEditorElegirArticulosFacturaCliente</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

View File

@ -90,7 +90,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 640 Width = 640
Height = 417 Height = 417
ExplicitTop = 102
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 417 ExplicitHeight = 417
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -197,6 +196,14 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
BuiltInStyle = True BuiltInStyle = True
end end
end end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewFacturasCliente1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end>
end
end end
inherited EditorActionList: TActionList [4] inherited EditorActionList: TActionList [4]
Left = 136 Left = 136

View File

@ -73,7 +73,7 @@ implementation
uses uses
uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App, uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
// uPedidosClienteController, uBizPedidosCliente, // uPedidosClienteController, uBizPedidosCliente,
// uGenerarFacturasCliAlbCliUtils, uGenerarFacturasCliAlbCliUtils,
uBizAlbaranesCliente, uBizAlbaranesCliente,
uEditorBase, uGridStatusUtils, uDBSelectionListUtils, udialogUtils; uEditorBase, uGridStatusUtils, uDBSelectionListUtils, udialogUtils;
@ -311,7 +311,7 @@ begin
end;} end;}
end; end;
200 : begin // Utilizar albaranes 200 : begin // Utilizar albaranes
// GenerarFacturaCli; GenerarFacturaCli;
actRefrescar.Execute; actRefrescar.Execute;
end; end;
100 : begin // Albaran nuevo vacio 100 : begin // Albaran nuevo vacio