roberto
2f69ce945e
Tareas #1330: En pedidos y albaranes de cliente sale importe total cuando deberia salir base_imponible ya que lo presentamos sin iva git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@219 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
48 lines
17 KiB
XML
48 lines
17 KiB
XML
<?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.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="41705,4898612384" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '') then ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := ACadena + ' ' + <frxDBCabecera."PERSONA_CONTACTO">; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); if (<frxDBCabecera."TELEFONO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">); end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Picture1OnBeforePrint(Sender: TfrxComponent); begin if <ShowLogotipo> then begin Picture1.Visible := True; { Picture2.Visible := True; Picture3.Visible := True; Picture4.Visible := True; Picture5.Visible := True; Picture6.Visible := True; Memo25.Visible := True; } NombreEmpresa.Visible := False; DatosEmpresa.Visible := False; end else begin Picture1.Visible := False; { Picture2.Visible := False; Picture3.Visible := False; Picture4.Visible := False; Picture5.Visible := False; Picture6.Visible := False; Memo25.Visible := False; } NombreEmpresa.Visible := True; DatosEmpresa.Visible := True; end end; procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent); begin if <ImprimirPrecio> then begin eImporteUnidad.Visible := True; lImporteUnidad.Visible := True; eImporteTotal.Visible := True; lImporteTotal.Visible := True; ImporteUnidad.Visible := True; ImporteTotal.Visible := True; end else begin eImporteUnidad.Visible := False; lImporteUnidad.Visible := False; eImporteTotal.Visible := False; lImporteTotal.Visible := False; ImporteUnidad.Visible := False; ImporteTotal.Visible := False; eConcepto.Width := eConcepto.Width + ImporteTotal.Width + ImporteUnidad.Width; Concepto.Width := eConcepto.Width - 10; end end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403890003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F722200010C14000000204E616D653D2253686F774C6F676F7469706F220000055374796C650100">
|
|
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
|
<TfrxReportPage Name="Page1" PaperWidth="215" PaperHeight="297" PaperSize="256" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
|
<TfrxMasterData Name="MasterData1" Height="21" Left="0" Top="278" Width="737,00835" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
|
<TfrxMemoView Name="Memo14" Left="19" Top="1,5" Width="117" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."REFERENCIA"] "/>
|
|
<TfrxMemoView Name="MemoCampo2" Left="139" Top="1,5" Width="56,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."CANTIDAD"]"/>
|
|
<TfrxMemoView Name="ImporteUnidad" Left="535" Top="1,5" Width="97,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."IMPORTE_UNIDAD"]"/>
|
|
<TfrxMemoView Name="ImporteTotal" Left="634" Top="1,5" Width="97,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."IMPORTE_TOTAL"]"/>
|
|
<TfrxMemoView Name="Concepto" Left="199" Top="1,5" Width="334" Height="18" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."CONCEPTO"]"/>
|
|
</TfrxMasterData>
|
|
<TfrxPageFooter Name="PageFooter1" Height="69,1" Left="0" Top="359" Width="737,00835">
|
|
<TfrxLineView Name="Line4" Align="baRight" Left="17,00835" Top="0" Width="720" Height="0" ShowHint="False" Frame.Typ="4"/>
|
|
<TfrxMemoView Name="Memo9" Left="635" Top="1" Width="97,03148874" Height="27" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBCabecera."BASE_IMPONIBLE"]"/>
|
|
<TfrxMemoView Name="Memo15" Left="514" Top="1" Width="117" Height="35,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" HAlign="haCenter" ParentFont="False" Text="Importe total (IVA no incluido)"/>
|
|
</TfrxPageFooter>
|
|
<TfrxPageHeader Name="PageHeader1" Height="202,20472441" Left="0" Top="16" Width="737,00835" OnBeforePrint="PageHeader1OnBeforePrint">
|
|
<TfrxMemoView Name="eConcepto" Align="baLeft" Left="197,25726667" Top="172,92517" Width="336,2" 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="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Concepto"/>
|
|
<TfrxMemoView Name="Memo8" Align="baLeft" Left="138" Top="172,92517" Width="59,25726667" 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="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cantidad"/>
|
|
<TfrxMemoView Name="Memo13" Left="18" Top="172,92517" Width="120" 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="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Referencia"/>
|
|
<TfrxShapeView Name="Shape2" Left="375,60637" Top="76" Width="360,69295" Height="96,5" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
|
|
<TfrxMemoView Name="Memo2" Left="376,36209" Top="18,89765" Width="355,49629" Height="38,89765" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="PEDIDO DE CLIENTE"/>
|
|
<TfrxMemoView Name="NombreEmpresa" Left="18" Top="8" Width="414,07885" Height="26,89765" Visible="False" OnBeforePrint="NombreEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
|
<TfrxMemoView Name="Memo7" Left="384,39394" Top="79,81107" Width="80,03154" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Página nº:"/>
|
|
<TfrxMemoView Name="Memo12" Left="464,42548" Top="79,81107" Width="157,63791" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[<Pagina>] / [<TotalPaginas>]"/>
|
|
<TfrxShapeView Name="Shape1" Left="18" Top="76" Width="357,92122079" Height="96,50391016" ShowHint="False" Color="16777215" Frame.Color="8421504"/>
|
|
<TfrxMemoView Name="Memo10" Left="21,68491" Top="80" Width="349,29159" Height="15,60637" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="DIRECCIÓN DESTINO:"/>
|
|
<TfrxMemoView Name="DatosEmpresa" Left="18" Top="40" Width="414,07885" Height="26,89765" Visible="False" OnBeforePrint="DatosEmpresaOnBeforePrint" ShowHint="False" Font.Charset="1" Font.Color="8421504" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
|
<TfrxMemoView Name="Memo5" Left="384,39394" Top="101,35436" Width="68,69295" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Nº pedido:"/>
|
|
<TfrxMemoView Name="Memo4" Left="384,39394" Top="123,33859" Width="53,57483" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Cliente:"/>
|
|
<TfrxMemoView Name="Memo11" Left="441,7483" Top="123,33859" Width="290,45671" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
|
<TfrxMemoView Name="Memo3" Left="464,42548" Top="101,57483" Width="207,30705" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."REFERENCIA"]"/>
|
|
<TfrxMemoView Name="DireccionEnvio" Left="29,5" Top="100" Width="341,18522" Height="68,94812" OnBeforePrint="DireccionEnvioOnBeforePrint" ShowHint="False" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
|
|
<TfrxLineView Name="Line1" Align="baLeft" Left="733,51453334" Top="174,73995" Width="0" Height="805" ShowHint="False" Frame.Typ="1"/>
|
|
<TfrxLineView Name="Line2" Left="18" Top="174,73995" Width="0" Height="805" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
|
<TfrxMemoView Name="Memo1" Left="384,61441" Top="147,40167" Width="83,81107" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Cliente final:"/>
|
|
<TfrxMemoView Name="Memo6" Left="472,20501" Top="147,40167" Width="260,22047" Height="18,67718" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."NOMBRE_COMERCIAL"]"/>
|
|
<TfrxLineView Name="Line3" Align="baLeft" Left="138" Top="174,73995" Width="0" Height="805" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
|
<TfrxLineView Name="Line5" Align="baLeft" Left="197,25726667" Top="174,73995" Width="0" Height="805" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
|
<TfrxPictureView Name="Picture1" Left="18" Top="0,77953" Width="144,91786" Height="72,47248" OnBeforePrint="Picture1OnBeforePrint" ShowHint="False" HightQuality="False"/>
|
|
<TfrxMemoView Name="eImporteUnidad" Align="baLeft" Left="534" Top="173" Width="99,25726667" Height="26,45669291" OnBeforePrint="eImporteUnidadOnBeforePrint" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Importe neto"/>
|
|
<TfrxMemoView Name="eImporteTotal" Align="baLeft" Left="633,25726667" Top="173" Width="100,25726667" 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="12" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
|
<TfrxLineView Name="lImporteUnidad" Left="534" Top="172" Width="0" Height="805" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
|
<TfrxLineView Name="lImporteTotal" Align="baLeft" Left="633,25726667" Top="172" Width="0" Height="805" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
|
</TfrxPageHeader>
|
|
</TfrxReportPage>
|
|
</TfrxReport>
|