Peticiones varias
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@158 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
73d2a1d739
commit
e9b52a06ef
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40445,4376351389" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure Memo26OnBeforePrint(Sender: TfrxComponent); begin if (<FechaIni> <> '') then Memo31.Visible := True else Memo31.Visible := False; end; BEGIN END." ShowProgress="False" StoreInDFM="False" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="41009,4732199537" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure Memo26OnBeforePrint(Sender: TfrxComponent); begin if (<FechaIni> <> '') then Memo31.Visible := True else Memo31.Visible := False; end; BEGIN END." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band2" Height="115,08652142" Left="0" Top="16" Width="1046,92981">
|
||||
@ -44,7 +44,8 @@
|
||||
</TfrxGroupHeader>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="41,57483" Left="0" Top="330" Width="1046,92981">
|
||||
<TfrxMemoView Name="Memo28" Left="0" Top="0" Width="1040,8825" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxMemoView Name="Memo30" Left="733,22882" Top="3,77953000000002" Width="301,953" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total comisión: [frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo30" Left="871,22882" Top="3,77953" Width="163,953" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="Total comisión: [frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="647" Top="5" Width="225" Height="16" ShowHint="False" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="Total comisionable: [SUM(<frxDBCabecera."IMPORTE_COMISIONABLE">,MasterData1)]"/>
|
||||
</TfrxGroupFooter>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40445,4377365394" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure Memo26OnBeforePrint(Sender: TfrxComponent); begin if (<FechaIni> <> '') then Memo31.Visible := True else Memo31.Visible := False; end; BEGIN END." ShowProgress="False" StoreInDFM="False" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="41009,4739597801" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">); DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">); Cadena := ''; if (<frxDBCabecera."TELEFONO_1"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1">; if (<frxDBCabecera."FAX"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX">; DatosEmpresa.Lines.Add(Cadena); Cadena := ''; if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '') then Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">; if (<frxDBCabecera."POBLACION_EMPRESA"> <> '') then Cadena := Cadena + ' ' + <frxDBCabecera."POBLACION_EMPRESA">; if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '') then Cadena := Cadena + ' - ' + <frxDBCabecera."PROVINCIA_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure Memo26OnBeforePrint(Sender: TfrxComponent); begin if (<FechaIni> <> '') then Memo31.Visible := True else Memo31.Visible := False; end; BEGIN END." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D2266727844424361626563657261220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band2" Height="115,08652142" Left="0" Top="16" Width="1046,92981">
|
||||
@ -50,7 +50,8 @@
|
||||
</TfrxGroupHeader>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="41,57483" Left="0" Top="330" Width="1046,92981">
|
||||
<TfrxMemoView Name="Memo28" Left="0" Top="0" Width="1040,8825" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxMemoView Name="Memo30" Left="733,22882" Top="3,77953000000002" Width="301,953" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total comisión: [frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo30" Left="877,22882" Top="3,77953" Width="157,953" Height="19" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="Total comisión: [frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo26" Left="627" Top="3,77953" Width="247" Height="19" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaBottom" Text="[SUM(<frxDBCabecera."IMPORTE_COMISIONABLE">,MasterData1)]"/>
|
||||
</TfrxGroupFooter>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
64
Source/Informes/4/InfAlbaranCliente.fr3
Normal file
64
Source/Informes/4/InfAlbaranCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
44
Source/Informes/4/InfAlbaranProveedor.fr3
Normal file
44
Source/Informes/4/InfAlbaranProveedor.fr3
Normal file
File diff suppressed because one or more lines are too long
48
Source/Informes/4/InfPedidoCliente.fr3
Normal file
48
Source/Informes/4/InfPedidoCliente.fr3
Normal file
File diff suppressed because one or more lines are too long
46
Source/Informes/4/InfPedidoProveedor.fr3
Normal file
46
Source/Informes/4/InfPedidoProveedor.fr3
Normal file
File diff suppressed because one or more lines are too long
@ -208,15 +208,6 @@ inherited fEditorComision: TfEditorComision
|
||||
ExplicitWidth = 607
|
||||
ExplicitHeight = 240
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Column = frViewFacturasComision1.cxGridViewIMPORTE_COMISION
|
||||
end>
|
||||
inherited cxGridViewID: TcxGridDBColumn
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
|
||||
@ -81,7 +81,7 @@ end;
|
||||
procedure TfrViewComision.CustomViewShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FAgentes := FAgentesController.BuscarTodos;
|
||||
FAgentes := FAgentesController.BuscarActivos;
|
||||
dsAgentes.DataTable := FAgentes.DataTable;
|
||||
dsAgentes.DataTable.Active := True;
|
||||
end;
|
||||
|
||||
@ -19,6 +19,11 @@ inherited frViewFacturasComision: TfrViewFacturasComision
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Column = cxGridViewIMPORTE_COMISION
|
||||
end
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Column = cxGridViewIMPORTE_COMISIONABLE
|
||||
end>
|
||||
OptionsCustomize.ColumnMoving = True
|
||||
OptionsData.Appending = False
|
||||
@ -90,6 +95,7 @@ inherited frViewFacturasComision: TfrViewFacturasComision
|
||||
DataBinding.FieldName = 'IMPORTE_COMISIONABLE'
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
end
|
||||
object cxGridViewCOMISION: TcxGridDBColumn
|
||||
@ -106,6 +112,7 @@ inherited frViewFacturasComision: TfrViewFacturasComision
|
||||
DataBinding.FieldName = 'IMPORTE_COMISION'
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
end
|
||||
end
|
||||
|
||||
@ -14,6 +14,7 @@ type
|
||||
function Eliminar(AAgente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
|
||||
function DarListaAnosObjetivosAlbaranesAgente(ID_AGENTE: Integer): TStringList;
|
||||
function DarListaAnosObjetivosFacturasAgente(ID_AGENTE: Integer): TStringList;
|
||||
function BuscarActivos: IBizContacto;
|
||||
end;
|
||||
|
||||
TAgentesController = class(TContactosController, IAgentesController)
|
||||
@ -27,6 +28,7 @@ type
|
||||
|
||||
function Buscar(const ID: Integer): IBizContacto; override;
|
||||
function BuscarTodos: IBizContacto; override;
|
||||
function BuscarActivos: IBizContacto;
|
||||
function Nuevo : IBizContacto; override;
|
||||
function Guardar(AContacto : IBizContacto): Boolean; override;
|
||||
procedure Ver(AContacto : IBizContacto); override;
|
||||
@ -44,7 +46,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
Windows, SysUtils, Forms, cxControls, Controls, Dialogs, uDataModuleAgentes, uEditorRegistryUtils,
|
||||
uDAInterfaces, Windows, SysUtils, Forms, cxControls, Controls, Dialogs, uDataModuleAgentes, uEditorRegistryUtils,
|
||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf,
|
||||
uEditorGridBase, uIntegerListUtils, uIEditorElegirAgentes;
|
||||
|
||||
@ -56,6 +58,30 @@ begin
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TAgentesController.BuscarActivos: IBizContacto;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// INACTIVOS
|
||||
Condicion := NewBinaryExpression(NewField('', fld_AgentesFECHA_BAJA), NewNull(), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAgentesController.BuscarTodos: IBizContacto;
|
||||
begin
|
||||
Result := (FDataModule as IDataModuleAgentes).GetItems;
|
||||
|
||||
Binary file not shown.
@ -57,7 +57,7 @@ inherited fEditorAgentes: TfEditorAgentes
|
||||
Width = 786
|
||||
ExplicitWidth = 786
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 632
|
||||
ExplicitWidth = 775
|
||||
inherited TBXItem2: TTBXItem
|
||||
ImageIndex = 22
|
||||
Images = SmallImages
|
||||
|
||||
@ -138,12 +138,6 @@ inherited fEditorClientes: TfEditorClientes
|
||||
ExplicitWidth = 857
|
||||
ExplicitHeight = 270
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = '0 clientes'
|
||||
Kind = skCount
|
||||
Column = frViewClientes1.cxGridViewBLOQUEADO
|
||||
end>
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
@ -260,10 +254,6 @@ inherited fEditorClientes: TfEditorClientes
|
||||
Enabled = True
|
||||
Visible = True
|
||||
end
|
||||
inherited actExportarExcel: TAction
|
||||
Enabled = True
|
||||
Visible = True
|
||||
end
|
||||
object actDocumentosPresupuestos: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Presupuestos'
|
||||
|
||||
@ -1,4 +1,5 @@
|
||||
inherited frViewAgentes: TfrViewAgentes
|
||||
OnShow = CustomViewShow
|
||||
inherited cxGrid: TcxGrid
|
||||
RootLevelOptions.DetailTabsPosition = dtpTop
|
||||
OnActiveTabChanged = cxGridActiveTabChanged
|
||||
|
||||
@ -29,6 +29,7 @@ type
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
|
||||
out AStyle: TcxStyle);
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
procedure AnadirFiltroSituaciones;
|
||||
@ -68,6 +69,12 @@ begin
|
||||
cxGrid.ActiveLevel.GridView := cxGridView;
|
||||
end;
|
||||
|
||||
procedure TfrViewAgentes.CustomViewShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cxGridLevel1.Active := True;
|
||||
end;
|
||||
|
||||
procedure TfrViewAgentes.cxGridActiveTabChanged(Sender: TcxCustomGrid;
|
||||
ALevel: TcxGridLevel);
|
||||
begin
|
||||
|
||||
@ -140,7 +140,7 @@ begin
|
||||
if Assigned(FContacto) then
|
||||
begin
|
||||
dsDatosComerciales.DataTable := FContacto.DataTable;
|
||||
dsAgentes.DataTable := FAgentesController.BuscarTodos.DataTable;
|
||||
dsAgentes.DataTable := FAgentesController.BuscarActivos.DataTable;
|
||||
dsAgentes.DataTable.Active := True;
|
||||
FFormasPago := FFormasPagoController.BuscarTodos;
|
||||
dsFormaPago.DataTable := FFormasPago.DataTable;
|
||||
|
||||
@ -9,12 +9,20 @@ inherited frViewClientes: TfrViewClientes
|
||||
ExplicitWidth = 793
|
||||
ExplicitHeight = 321
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = '0 clientes'
|
||||
Kind = skCount
|
||||
Position = spFooter
|
||||
Column = cxGridViewREFERENCIA
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = '0 clientes'
|
||||
Kind = skCount
|
||||
Column = cxGridViewREFERENCIA
|
||||
end>
|
||||
OptionsView.GroupFooters = gfAlwaysVisible
|
||||
inherited cxGridViewICONO: TcxGridDBColumn
|
||||
OnGetCellHint = cxGridViewICONOGetCellHint
|
||||
end
|
||||
@ -128,24 +136,24 @@ inherited frViewClientes: TfrViewClientes
|
||||
Width = 154
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 201
|
||||
Left = 214
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 201
|
||||
ExplicitLeft = 214
|
||||
ExplicitWidth = 525
|
||||
Width = 525
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 630
|
||||
Left = 675
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 630
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
ExplicitLeft = 675
|
||||
ExplicitWidth = 140
|
||||
Width = 140
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
|
||||
Reference in New Issue
Block a user