<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="05/05/2016 11:56:52" ReportInfo.Modified="05/07/2016 12:38:44" ReportInfo.CreatorVersion="2016.2.0.0">
  <ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils

Namespace FastReport
  Public Class ReportScript
    
    Dim SigAceOb as Object

    
    Private Sub _StartReport(ByVal sender As Object, ByVal e As EventArgs)
      SigAceOb = Report.Parameters.FindByName(&quot;SigCbk&quot;).Value  
      'Report.PrintSettings.Copies = 2
      'dim cop() as String = {&quot;-&quot;, &quot;Original&quot;, &quot;Duplicado 1&quot;, &quot;Duplicado 2&quot;, &quot;Triplicado&quot;}
      'Report.PrintSettings.CopyNames = cop
    End Sub

    
    Private Sub _FinishReport(ByVal sender As Object, ByVal e As EventArgs)
      SigAceOb = Nothing                       
    End Sub

  
    Function CalCexp(arg)'calcular expressao
      'arg      - argumento
    
      on Error resume next                  'controlar erros
      dim res =&quot;&quot;                           'inicializar resultado

      With SigAceOb
        res= .CalcExp(arg)                  'calcular
      end with
    
      return Res                            'devolver resultado
    end function
    
  End Class
End Namespace
</ScriptText>
  <Dictionary>
    <Parameter Name="Dll" DataType="null"/>
    <Parameter Name="SigCbk" DataType="System.__ComObject"/>
    <Parameter Name="Lim" DataType="System.String">
      <Parameter Name="Opc_Tdoc" DataType="System.String">
        <Parameter Name="Ini" DataType="System.String"/>
        <Parameter Name="Fim" DataType="System.String"/>
      </Parameter>
      <Parameter Name="Opc_Ndoc" DataType="System.String">
        <Parameter Name="Ini" DataType="System.String"/>
        <Parameter Name="Fim" DataType="System.String"/>
      </Parameter>
      <Parameter Name="Opc_Ct" DataType="System.String">
        <Parameter Name="Ini" DataType="System.String"/>
        <Parameter Name="Fim" DataType="System.String"/>
      </Parameter>
      <Parameter Name="Opc_CtEnt" DataType="System.String">
        <Parameter Name="Ini" DataType="System.String"/>
        <Parameter Name="Fim" DataType="System.String"/>
      </Parameter>
      <Parameter Name="Opc_Dtl" DataType="System.Double">
        <Parameter Name="Ini" DataType="System.Double"/>
        <Parameter Name="Fim" DataType="System.Double"/>
      </Parameter>
      <Parameter Name="Opc_Dtv" DataType="System.Double">
        <Parameter Name="Ini" DataType="System.Double"/>
        <Parameter Name="Fim" DataType="System.Double"/>
      </Parameter>
      <Parameter Name="Opc_Dtpe" DataType="System.Double">
        <Parameter Name="Ini" DataType="System.Double"/>
        <Parameter Name="Fim" DataType="System.Double"/>
      </Parameter>
      <Parameter Name="Opc_Dtr" DataType="System.Double">
        <Parameter Name="Ini" DataType="System.Double"/>
        <Parameter Name="Fim" DataType="System.Double"/>
      </Parameter>
      <Parameter Name="Opc_Pais" DataType="System.Double">
        <Parameter Name="Ini" DataType="System.Double"/>
        <Parameter Name="Fim" DataType="System.Double"/>
      </Parameter>
      <Parameter Name="Opc_Vend" DataType="System.Double">
        <Parameter Name="Ini" DataType="System.Double"/>
        <Parameter Name="Fim" DataType="System.Double"/>
      </Parameter>
      <Parameter Name="Opc_Oper" DataType="System.String">
        <Parameter Name="Ini" DataType="System.String"/>
        <Parameter Name="Fim" DataType="System.String"/>
      </Parameter>
      <Parameter Name="Opc_Ptv" DataType="System.Double">
        <Parameter Name="Ini" DataType="System.Double"/>
        <Parameter Name="Fim" DataType="System.Double"/>
      </Parameter>
      <Parameter Name="Opc_Art" DataType="System.String">
        <Parameter Name="Ini" DataType="System.String"/>
        <Parameter Name="Fim" DataType="System.String"/>
      </Parameter>
      <Parameter Name="Opc_Div" DataType="System.String">
        <Parameter Name="Ini" DataType="System.String"/>
        <Parameter Name="Fim" DataType="System.String"/>
      </Parameter>
    </Parameter>
    <Parameter Name="Empresa" DataType="System.String">
      <Parameter Name="Código" DataType="System.String" Expression="[EmpInf.Cod$]"/>
      <Parameter Name="Nome" DataType="System.String" Expression="[EmpInf.Nome$]"/>
      <Parameter Name="Morada" DataType="System.String" Expression="[EmpInf.Morada$]"/>
      <Parameter Name="Telefone" DataType="System.String" Expression="[EmpInf.Telef$]"/>
    </Parameter>
  </Dictionary>
  <ReportPage Name="Page1">
    <ReportTitleBand Name="ReportTitle1" Width="718.2" Height="66.15"/>
    <PageHeaderBand Name="PageHeader1" Top="70.15" Width="718.2" Height="56.7"/>
    <DataBand Name="Data1" Top="130.85" Width="718.2" Height="18.9" Filter="[EncMst.Tipo de documento]=[Lim.Opc_Tdoc.Ini] AND [EncMst.Numero de documento]&gt;=[Lim.Opc_Ndoc.Ini] AND [EncMst.Numero de documento]&lt;=[Lim.Opc_Ndoc.Fim]">
      <Sort>
        <Sort Expression="[EncMst.Tipo de documento]"/>
        <Sort Expression="[EncMst.Numero de documento]"/>
      </Sort>
    </DataBand>
    <PageFooterBand Name="PageFooter1" Top="153.75" Width="718.2" Height="56.7"/>
  </ReportPage>
</Report>
