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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="..\FacturasCliente_controller.dcp" />
<DCCReference Include="..\FacturasCliente_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
<Form>fEditorElegirArticulosFacturaCliente</Form>
<DesignClass>TForm</DesignClass>

View File

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

View File

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