Changeset 981

Timestamp:

Oct 6, 2016, 4:15:46 PM (9 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: Fix Ticket #229 (SMBPrint)

Location:

branches/guitools-2.0/smbprint

Files:

• smbprint.VRP (modified) (1 diff)
• smbprint.VRX (modified) (4 diffs)

branches/guitools-2.0/smbprint/smbprint.VRP

@@ -6 +6 @@
 RunDirectory: 
 VRXWindow: __VREMainWindow,1,2180,3710,927,8000
-VRXWindow: __VRESectionListWindow,1,3216,6023,2891,3342
-VRXWindow: __VREToolsWindow,1,3211,9877,4968,1661
+VRXWindow: __VRESectionListWindow,1,3132,2457,6890,3342
+VRXWindow: __VREToolsWindow,1,3211,9877,5468,1665
 UserFile: 1
 UserWindow: Main,1

branches/guitools-2.0/smbprint/smbprint.VRX

@@ -126 +126 @@
 */
 Main_Create: 
-    ok = VRRedirectStdIO("ON")
+    debug = 0
+    if debug = 1 then ok = VRRedirectStdIO("ON")
+                 else ok = VRRedirectStdIO("OFF")
     PrintParms =  VRGet("Application","Commandline")
-    say "Printparms='"Printparms"'"
-    say length(PrintParms)
+    spooldir   = directory()
+    if debug = 1 then say "Printparms='"Printparms"'"
+    if debug = 1 then     say length(PrintParms)
     if PrintParms <> "" then do
         parse var PrintParms '"'spoolfile'" "'smbprintername'" "'Jobname'" "'pages'" "'JobSize'"'
-        say 'Verzeichnis: "'directory()'"'
-        say 'Spoolfile:   "'spoolfile'"'
-        say 'Smbprinter:  "'smbprintername'"'
+        if debug = 1 then say 'Verzeichnis: "'spooldir'"'
+        if debug = 1 then say 'Spoolfile:   "'spoolfile'"'
+        if debug = 1 then say 'Smbprinter:  "'smbprintername'"'
 
         ok = VRMethod( "Application", "ListPrinters", "printer." )
@@ -140 +143 @@
         if ok = 1 then do
             do i = 1 to printer.0
-                say printer.i
+                if debug = 1 then say printer.i
                 parse value printer.i with PName';'PQueue';'Rest
-                say PName'<-->'PQueue
+                if debug = 1 then say PName'<-->'PQueue
                 if translate(PQueue) = translate(smbprintername) then do
                     FoundQueue = 1
@@ -152 +155 @@
         if FoundQueue then do
             ok = VRset("DT_Job","Caption", 'Print "'Jobname'" ('Pages', 'JobSize' bytes) to "'PName'"')
-            ok = VRPrintFile( smbprintername, directory'\'spoolfile, , JobName )
-            ok = SysSleep(3)
-            /* ok = VRRedirectStdIO("OFF") */
+            ok = VRPrintFile( smbprintername, spooldir'\'spoolfile, , JobName )
+            if debug = 1 then say "->"smbprintername", "spooldir"\"spoolfile", , "JobName 
+            ok = SysSleep(10)
+            if debug = 1 then ok = VRRedirectStdIO("OFF")
         end
         else do
@@ -162 +166 @@
             call _ShowMsg
         end
-        ok = SysFileDelete(Spoolfile)
+        /* ok = SysFileDelete(Spoolfile) */
     end
     else do