   DevPos(12,32);DevOut("Vendas Online por Periodo")
   zaut    = ctod( date() )
   w_fval  = ctod( date() )
   DevPos( 14, 32 ) ; DevOut( "Data Inicial:" ); w_fval=VAR_GET(14,46, w_fval)
   DevPos( 15, 32 ) ; DevOut( "Data Final..:" ); zaut  =VAR_GET(15,46, zaut)
   zaut    = dtoc( zaut   )
   w_fval  = dtoc( w_fval )
   if !abre_prt()
      return
   endif
   zmfcli = 14586
   zxtela = SaveScreen(0,0,24,79)
   zxopcao = "LISTA_VENDA_CNV"
   zmatric = 961
   zcmdline = lower("/siga/exe/sshcnvth ")+upper(zxopcao)+" "+StrZero(zmfcli,6)+" "+StrZero(zmatric,6)+" -1 "+w_fval+" "+zaut
   s_arq_prn = lower( "/siga/rel/th_todas.rel" )
   __run( zcmdline+" > "+s_arq_prn )
   RestScreen(0,0,24,79,zxtela)

