<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{342,152,498,309}</property>
    <property name="Name">[AbrePrt]</property>
    <property name="Caption">[Destino da Listagem]</property>
    <property name="AlwaysOnTop">.F.</property>
    <property name="AutoCenter">.F.</property>
    <property name="FormType">[dlgModal]</property>
    <property name="Modal">.F.</property>
    <property name="ScopeVarObj">[Local]</property>
    <property name="lClipper">.T.</property>
    <property name="lExitOnEnter">.T.</property>
    <property name="lExitOnESC">.T.</property>
    <property name="FromStyle">[Popup]</property>
    <property name="Clipsiblings">.F.</property>
    <property name="Clipchildren">.F.</property>
    <property name="TitleBar">.T.</property>
    <property name="StyleBorder">[3 - Sizable (Default)]</property>
    <property name="Icon">[]</property>
    <property name="Bitmap">[xml\sysbackground01.jpg]</property>
    <property name="NoIcon">.F.</property>
    <property name="SystemMenu">.T.</property>
    <property name="Minimizebox">.F.</property>
    <property name="Maximizebox">.F.</property>
    <property name="AbsAlignment">.T.</property>
    <property name="WindowState">[1 - Normal (Default)]</property>
    <property name="minHeight">-1</property>
    <property name="maxHeight">-1</property>
    <property name="minWidth">-1</property>
    <property name="maxWidth">-1</property>
    <property name="ScrollBars">[0 - None (Default)]</property>
    <property name="DSControl">.F.</property>
  </style>
  <method name="onFormInit">
    <![CDATA[if !__mvExist( "tipo_prn" )
   __mvPublic( "tipo_prn" )
endif
if !__mvExist( "sPrtName" )
   __mvPublic( "sPrtName" )
endif
if !__mvExist( "sPrtHandle" )
   __mvPublic( "sPrtHandle" )
endif
if !__mvExist( "sPrtPort" )
   __mvPublic( "sPrtPort" )
endif]]>
  </method>
  <part class="group">
    <style>
      <property name="Geometry">{35,13,438,272}</property>
      <property name="Name">[oGroup1]</property>
      <property name="TabIndex">1</property>
    </style>
    <part class="radiogroup">
      <style>
        <property name="Geometry">{42,26,185,179}</property>
        <property name="Name">[oRadiogroup1]</property>
        <property name="varName">[vRadiogroup1]</property>
        <property name="Caption">[]</property>
        <property name="BackColor">16777215</property>
        <property name="3DLook">.T.</property>
        <property name="TabIndex">2</property>
        <property name="TabStop">.F.</property>
      </style>
      <part class="radiobutton">
        <style>
          <property name="Geometry">{55,45,140,31}</property>
          <property name="Name">[oRadiobutton2]</property>
          <property name="Caption">[Formato WMF]</property>
          <property name="3DLook">.T.</property>
          <property name="TabIndex">4</property>
        </style>
        <method name="onClick">
          <![CDATA[TIPO_PRN := "WMF"
]]>
        </method>
      </part>
      <part class="radiobutton">
        <style>
          <property name="Geometry">{56,78,140,31}</property>
          <property name="Name">[oRadiobutton3]</property>
          <property name="Caption">[Formato RTF]</property>
          <property name="ToolTip">
[Direciona a Impressao do Relatorio para Arquivo Texto]          </property>
          <property name="TabIndex">5</property>
        </style>
        <method name="onClick">
          <![CDATA[TIPO_PRN := "RTF"]]>
        </method>
      </part>
      <part class="radiobutton">
        <style>
          <property name="Geometry">{56,117,159,31}</property>
          <property name="Name">[oRadiobutton1]</property>
          <property name="Caption">[Form. Continuo]</property>
          <property name="3DLook">.T.</property>
          <property name="TabIndex">3</property>
          <property name="TabStop">.F.</property>
        </style>
        <method name="onClick">
          <![CDATA[TIPO_PRN := "ESCP"]]>
        </method>
      </part>
      <part class="radiobutton">
        <style>
          <property name="Geometry">{59,156,159,29}</property>
          <property name="Name">[oRadiobutton4]</property>
          <property name="Caption">[Form.Cont.Direta]</property>
          <property name="TabIndex">9</property>
        </style>
        <method name="onClick">
          <![CDATA[TIPO_PRN := "I"]]>
        </method>
      </part>
    </part>
    <part class="bitmap">
      <style>
        <property name="Geometry">{235,35,228,168}</property>
        <property name="Name">[oBitmap1]</property>
        <property name="Bitmap">[xml\sysprt0.gif]</property>
      </style>
    </part>
    <part class="button">
      <style>
        <property name="Geometry">{50,229,101,29}</property>
        <property name="Name">[oButton1]</property>
        <property name="Caption">[Executa]</property>
        <property name="TabIndex">6</property>
      </style>
      <method name="onClick">
        <![CDATA[parameters oControl, id
//msginfo("clicou no ok")
msginfo( "tipo_prn0 :"+tipo_prn )
oDlg:lresult := .t.
enddialog(oDlg:handle)]]>
      </method>
    </part>
    <part class="button">
      <style>
        <property name="Geometry">{211,229,101,32}</property>
        <property name="Name">[oButton2]</property>
        <property name="Caption">[Cancela]</property>
        <property name="TabIndex">7</property>
      </style>
      <method name="onClick">
        <![CDATA[parameters oControl, id
//msginfo("clicou no cancel")
oDlg:lresult := .f.
enddialog(oDlg:handle)]]>
      </method>
    </part>
    <part class="button">
      <style>
        <property name="Geometry">{350,229,101,29}</property>
        <property name="Name">[oButton3]</property>
        <property name="Caption">[Configura]</property>
        <property name="TabIndex">8</property>
      </style>
      <method name="onClick">
        <![CDATA[  MsgInfo("invocando Prt_Name_Port" )
  sPrtHandle:=Prt_Name_Port(@sPrtName,@sPrtPort)
  msginfo("handle: |"+str(sPrtHandle)+"|")
  MsgInfo("sPrtName "+sPrtName)
  MsgInfo("sPrtPort "+sPrtPort)
  If sPrtHandle=0
     MsgInfo("nao selecionou nada. pegara a default")
     sPrtHandle := Hwg_OpenDefaultPrinter( @sPrtName )
     msginfo("vai mostrar o nome ")
     msginfo(sPrtName)
  endif
  IF sPrtHandle != 0
     DeleteDC( sPrtHandle )
  ENDIF

]]>
      </method>
    </part>
  </part>
</part>
