   DevPos(12,32);DevOut("Demonstrativo de Vendas Online")
   if !abre_prt()
      return
   endif
   zmfcli = 14586
   zxtela = SaveScreen(0,0,24,79)
   zxopcao = "LISTA_VENDA_CNV"
   zmatric = 961
   zaut    = "-1"
   zcmdline = lower("/siga/exe/sshcnvth ")+upper(zxopcao)+" "+StrZero(zmfcli,6)+" "+StrZero(zmatric,6)+" -1 -1 "+zaut
   s_arq_prn = lower( "/siga/rel/th_todas.rel" )
   __run( zcmdline+" > "+s_arq_prn )
   RestScreen(0,0,24,79,zxtela)

