cTextoAbreGaveta := ""
nModeloComandoLocal := 1
IF "MP" $ UPPER(PrnGetName()) // Bematech
cTextoAbreGaveta := CHR(29) +CHR(249) +CHR(32) +CHR(0) +CHR(27) +CHR(116) +CHR(8) +CHR(27) +CHR(118) +CHR(140)
ENDIF
*
IF "DARUMA" $ UPPER(PrnGetName())
cTextoAbreGaveta := CHR(27) +CHR(112)
ENDIF
*
IF "EPSON" $ UPPER(PrnGetName())
cTextoAbreGaveta := chr(027)+chr(112)+chr(000)+chr(010)+chr(100)
nModeloComandoLocal := 2
ENDIF
*
*cCaminhoTXT := CurDrive()+":\"+CurDir()+"\GAVETA.TXT"
cCaminhoTXT := "C:\SISTEMA\GAVETA.TXT"
MemoWrit(cCaminhoTXT,cTextoAbreGaveta)
cDestinoComando := ""
if left(cImpressoraPadraoAbertura,2) == "\\"
cDestinoComando := '"'+cImpressoraPadraoAbertura+'"'
else
do case
case nModeloComandoLocal == 1
cDestinoComando := PrnGetPort()
case nModeloComandoLocal == 2
cDestinoComando := '"'+"\\127.0.0.1\"+alltrim(PrnGetName())+'"'
endcase
endif
*
cComandoGaveta := 'CMD.EXE /C COPY '+cCaminhoTXT+' '+cDestinoComando
WaitRun(cComandoGaveta,0)
*
**PS: A EPSON PRECISA ESTA COMPARTILHADA