<?xml version="1.0" encoding="UTF-8"?>
<part class="form">
  <style>
    <property name="Geometry">{334,83,797,609}</property>
    <property name="Name">[DlgLocacao]</property>
    <property name="Caption">[Operacoes de Venda / Locacao]</property>
    <property name="AlwaysOnTop">.F.</property>
    <property name="AutoCenter">.T.</property>
    <property name="FormType">[dlgModal]</property>
    <property name="Modal">.T.</property>
    <property name="ScopeVarObj">[Local]</property>
    <property name="lClipper">.F.</property>
    <property name="lExitOnEnter">.F.</property>
    <property name="lExitOnESC">.T.</property>
    <property name="FromStyle">[Popup]</property>
    <property name="Clipsiblings">.F.</property>
    <property name="Clipchildren">.F.</property>
    <property name="TitleBar">.F.</property>
    <property name="StyleBorder">[3 - Sizable (Default)]</property>
    <property name="nBackColor">14870505</property>
    <property name="Icon">[]</property>
    <property name="Bitmap">[icon\tela.jpg]</property>
    <property name="NoIcon">.F.</property>
    <property name="SystemMenu">.F.</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="onDlgInit">
    <![CDATA[CiSetKey( "VK_F2",[relat("vb_r4(,,'PN')","NB")],,,"F2:Imprime Pedido")
CiSetKey( "VK_F3",[relat("vb_r4(,,'PN',,,'CUPOM_PN_AVALIACAO')","NB")],,,"F3:Imprime Avaliacao")
CiSetKey( "VK_F4",[relat("vb_r4(,,'PN',,,'CUPOM_PN_SEPARACAO')","NB")],,,"F4:Comanda de Separacao")

sFgControlaProducao := .t.
se sys_segmento<>'locacao' entao oBtnExpedLocacao:Hide()]]>
  </method>
  <part class="buttonex">
    <style>
      <property name="Geometry">{38,423,292,36}</property>
      <property name="Name">[oButtonex7]</property>
      <property name="Caption">[&amp;6.NFE para RETORNO de Locação]</property>
      <property name="TextColor">4194304</property>
      <property name="font">
        <font name="Arial" width="0" height="-16" weight="700"/>
      </property>
      <property name="WordWrap">.T.</property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">9</property>
    </style>
    <method name="onClick">
      <![CDATA[wtelaselecaodav:="sf_fatp1_pnfatlocacao"
sFgLocacao:=.t.
sFgRetornoLocacao:=.t.
vb_Venda(,,,,,"/FECHAPN/")
sFgRetornoLocacao:=.f.
sFgLocacao:=.f.
wtelaselecaodav:=""]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{38,466,292,36}</property>
      <property name="Name">[oButtonex9]</property>
      <property name="Caption">[&amp;7.NFS para RETORNO de Locação]</property>
      <property name="TextColor">4194304</property>
      <property name="font">
        <font name="Arial" width="0" height="-16" weight="700"/>
      </property>
      <property name="WordWrap">.T.</property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">9</property>
    </style>
    <method name="onClick">
      <![CDATA[sFgLocacao:=.t.
sFgRetornoLocacao:=.t.
vb_Venda("SE")
sFgRetornoLocacao:=.f.
sFgLocacao:=.f.
]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{664,559,92,35}</property>
      <property name="Name">[oButtonex5]</property>
      <property name="Caption">[ESC - Sair]</property>
      <property name="font">
        <font name="Arial" width="0" height="-15" weight="400"/>
      </property>
      <property name="ToolTip">[Fecha Tela]</property>
      <property name="TabIndex">10</property>
    </style>
    <method name="onClick">
      <![CDATA[keyb_event( 27 )]]>
    </method>
  </part>
  <part class="group">
    <style>
      <property name="Geometry">{38,8,718,409}</property>
      <property name="Name">[oGroup1]</property>
      <property name="Transparent">.T.</property>
      <property name="TabIndex">13</property>
    </style>
    <part class="buttonex">
      <style>
        <property name="Geometry">{87,326,623,69}</property>
        <property name="Name">[oBtnExpedLocacao]</property>
        <property name="Caption">[&amp;5.Expedição de LOCAÇÕES]</property>
        <property name="TextColor">4194304</property>
        <property name="font">
          <font name="Arial" width="0" height="-29" weight="700"/>
        </property>
        <property name="Transparent">.T.</property>
        <property name="ToolTip">[Permite geração de NFEs ou NFS de LOCAÇÕES]</property>
        <property name="TabIndex">9</property>
      </style>
      <method name="onClick">
        <![CDATA[wtelaselecaodav:="sf_fatp1_pnfatlocacao"
sFgLocacao:=.t.
vb_Venda(,,,,,"/FECHAPN/")
sFgLocacao:=.f.
wtelaselecaodav:=""]]>
      </method>
    </part>
    <part class="buttonex">
      <style>
        <property name="Geometry">{83,178,267,69}</property>
        <property name="Name">[oButtonex2]</property>
        <property name="Caption">[&amp;3.Pedidos em Producao]</property>
        <property name="TextColor">4194304</property>
        <property name="font">
          <font name="Arial" width="0" height="-29" weight="700"/>
        </property>
        <property name="WordWrap">.T.</property>
        <property name="ToolTip">[Exibe pedidos na área de Produção]</property>
        <property name="TabIndex">14</property>
      </style>
      <method name="onClick">
        <![CDATA[wtelaselecaodav:="sf_fatp1_pnprod"
vb_cuppv("AUTO",,,"1", "/ALTERARPN/")
//vb_Venda(,,,,,'/ALTERARPN/')
wtelaselecaodav:=""]]>
      </method>
    </part>
    <part class="buttonex">
      <style>
        <property name="Geometry">{85,252,623,69}</property>
        <property name="Name">[oButtonex3]</property>
        <property name="Caption">[&amp;4.Expedição de VENDAS]</property>
        <property name="TextColor">4194304</property>
        <property name="font">
          <font name="Arial" width="0" height="-27" weight="700"/>
        </property>
        <property name="WordWrap">.T.</property>
        <property name="ToolTip">[Permite geração de NFEs ou NFS de VENDAS]</property>
        <property name="TabIndex">14</property>
      </style>
      <method name="onClick">
        <![CDATA[wtelaselecaodav:="sf_fatp1_pnfatvenda"
vb_Venda(,,,,,"/FECHAPN/")
wtelaselecaodav:=""]]>
      </method>
    </part>
    <part class="buttonex">
      <style>
        <property name="Geometry">{83,104,623,69}</property>
        <property name="Name">[oButtonex1]</property>
        <property name="Caption">[&amp;2.Despachar PEDIDOS]</property>
        <property name="TextColor">4194304</property>
        <property name="font">
          <font name="Arial" width="0" height="-29" weight="700"/>
        </property>
        <property name="WordWrap">.T.</property>
        <property name="ToolTip">
[Exibe pedidos a ser enviados para a área de Produção ou Expedição]        </property>
        <property name="TabIndex">14</property>
      </style>
      <method name="onClick">
        <![CDATA[wtelaselecaodav:="sf_fatp1_pn"
vb_Venda(,,,,,'/ALTERARPN/')
wtelaselecaodav:=""]]>
      </method>
    </part>
    <part class="buttonex">
      <style>
        <property name="Geometry">{81,30,623,69}</property>
        <property name="Name">[oBtnCriar]</property>
        <property name="Caption">[&amp;1.Criar PEDIDO de Locacao ou Venda]</property>
        <property name="TextColor">4194304</property>
        <property name="font">
          <font name="Arial" width="0" height="-29" weight="700"/>
        </property>
        <property name="TabIndex">14</property>
      </style>
      <method name="onClick">
        <![CDATA[// IF autorizado('DLG001_BTN001')
   Vb_CliTv()
//ENDIF
]]>
      </method>
    </part>
    <part class="buttonex">
      <style>
        <property name="Geometry">{439,178,267,69}</property>
        <property name="Name">[oButtonex15]</property>
        <property name="Caption">[&amp;X.Producao por Setores]</property>
        <property name="TextColor">4194304</property>
        <property name="font">
          <font name="Arial" width="0" height="-29" weight="700"/>
        </property>
        <property name="WordWrap">.T.</property>
        <property name="ToolTip">[Exibe pedidos na área de Produção]</property>
        <property name="TabIndex">14</property>
      </style>
      <method name="onClick">
        <![CDATA[ExecutaXml("DlgProducao")]]>
      </method>
    </part>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{37,508,292,34}</property>
      <property name="Name">[oButtonex16]</property>
      <property name="Caption">[&amp;9.Orcamentos a Confirmar]</property>
      <property name="TextColor">4194304</property>
      <property name="font">
        <font name="Arial" width="0" height="-16" weight="700"/>
      </property>
      <property name="WordWrap">.T.</property>
      <property name="ToolTip">[Exibe Orcamentos esperando confirmacao]</property>
      <property name="TabIndex">14</property>
    </style>
    <method name="onClick">
      <![CDATA[wtelaselecaodav:="sf_fatp1_orcamentos"
vb_cuppv("AUTO",,,"O", "/ALTERARPN/")
wtelaselecaodav:=""]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{378,423,185,32}</property>
      <property name="Name">[oButtonex10]</property>
      <property name="Caption">[&amp;8. Consulta Precos]</property>
      <property name="TabIndex">15</property>
    </style>
    <method name="onClick">
      <![CDATA[cibrow('SE_PROD',,'PSEPRODC')]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{378,466,185,32}</property>
      <property name="Name">[oButtonex11]</property>
      <property name="Caption">[&amp;9. Consulta Pedidos]</property>
      <property name="ToolTip">
[Lista Pedidos em Producao, Ativos, Cancelados, etc...]      </property>
      <property name="TabIndex">15</property>
    </style>
    <method name="onClick">
      <![CDATA[BrowNfePn("SF_PN")]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{571,423,185,32}</property>
      <property name="Name">[oButtonex4]</property>
      <property name="Caption">[F2 - Copia de Pedido]</property>
      <property name="TabIndex">15</property>
    </style>
    <method name="onClick">
      <![CDATA[relat("vb_r4(,,'PN')","NB")]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{571,466,185,32}</property>
      <property name="Name">[oButtonex12]</property>
      <property name="Caption">[F3 - Avaliacao de Pedido]</property>
      <property name="TabIndex">15</property>
    </style>
    <method name="onClick">
      <![CDATA[relat("vb_r4(,,'PN',,,'CUPOM_PN_AVALIACAO')","NB")]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{378,508,185,32}</property>
      <property name="Name">[oButtonex13]</property>
      <property name="Caption">[&amp;A. NFEs / NFS]</property>
      <property name="ToolTip">
[Exibe relacao de NFEs ou NFS com opcao de impressao de contratos, de conferentes de separacao, etc.]      </property>
      <property name="TabIndex">15</property>
    </style>
    <method name="onClick">
      <![CDATA[CiBrow("SF_FATNF",,"SF_FATNF_LOCACAO")]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{571,508,185,32}</property>
      <property name="Name">[oButtonex14]</property>
      <property name="Caption">[F4 - Pedido p/ Separacao]</property>
      <property name="TabIndex">15</property>
    </style>
    <method name="onClick">
      <![CDATA[relat("vb_r4(,,'PN',,,'CUPOM_PN_SEPARACAO')","NB")]]>
    </method>
  </part>
  <part class="buttonex">
    <style>
      <property name="Geometry">{37,553,292,32}</property>
      <property name="Name">[oButtonex8]</property>
      <property name="Caption">[&amp;B. Notas de Credito]</property>
      <property name="ToolTip">
[Exibe relacao de NFEs ou NFS com opcao de impressao de contratos, de conferentes de separacao, etc.]      </property>
      <property name="TabIndex">15</property>
    </style>
    <method name="onClick">
      <![CDATA[MyKeyb( 45 )
CiBrow("SX_NC")]]>
    </method>
  </part>
</part>
