FiveTech Support Forums

  Set Print to COM2
  Set Device To Print
  L=L+1
  @l,01 Say Chr(5)
  @l,02 Say Chr(2)
  @l,03 Say Tran(Date(),' ')
  @l,12 Say Hor+':00'
  @l,21 Say Trans(VInt,'####')
  @l,26 Say Dura
  @l,40 Say Trans(MTar,'######.##')
  @l,50 Say CTel
  @l,71 Say VDes
  @l,76 Say Chr(3)
  Set Device to Screen

function lInitModem(variable)
   local cDcb, nError, nBytes
   variable = OpenComm( "COM4:", 1024, 128 )
   if ! BuildCommDcb( "COM4:2400,n,8,1", @cDcb )
      nError = GetCommError( variable )
      MsgStop( "Error inicialozando modem!" )
      return .f.
   endif
   if ! SetCommState( cDcb )
      nError = GetCommError( variable )
      MsgStop( "Error inicializando modem!" )
      return .f.
   endif
return .t.

function DialNumber( cNumber )
static initmodem:=.f.,ncomm:=0,enlinea:=.f.
local nBytes :=0
if !initmodem
    initmodem:=linitmodem(@ncomm)
else
    if !enlinea
        nbytes:=WriteComm( nComm, "ATDT "+AllTrim( cNumber ) + Chr( 13 ) )
        if nBytes < 0
              MsgStop( "Modem error: " + Str( GetCommError( nComm ) ) )
              return nil
        endif
        enlinea:=.t.
    else
       nBytes := WriteComm( nComm, "ATH"+chr(13) )
       if nBytes < 0
          MsgStop( "Modem error: " + Str( GetCommError( nComm ) ) )
          return nil
       endif
       enlinea:=.f.
    endif
endif
return nil