Information générale
Catégorie:
Codage, syntaxe et commandes
* assume m_fone is the number to dial
IF !( 'FOXTOOLS' $ UPPER(SET('LIBRARY')) )
SET LIBRARY TO FOXTOOLS ADDI
ENDIF
LOCAL lccomport,lcdstring,lnport,lcfonelook
lccomport='COM2'
lcdstring = "ATDT " + m_fone + CHR(13)
opencomm = RegFn("OpenComm", "CII", "I",'User.exe')
writecomm = RegFn("WriteComm", "ICI", "I",'User.exe')
closecomm = RegFn("CloseComm", "I", "I",'User.exe')
lnport = CallFn(OpenComm,lccomport, 100, 100)
=CallFn(WriteComm, lnport, lcdstring, len(lcdstring))
lcfonelook=IIF(m_fone='1','1 - '+FONE(SUBS(m_fone,2)),FONE(m_fone))
=MESSAGEBOX('Dialing '+ALLT(lcfonelook)+CHR(13)+CHR(13)+;
"Pick up the phone and press any key ",64)
lcdstring=CHR(10)+CHR(13)+CHR(10)+CHR(13)
=CallFn(WriteComm, lnport, lcdstring, len(lcdstring))
=CallFn(CloseComm, lnport)
PROCEDURE FONE
* Function to return a formatted string from a passed phone number
PARA tcFONE
LOCAL lcretval
lcretval=PADL(ALLT(tcFONE),14)
DO CASE
CASE LEN(ALLT(tcFONE))=7
lcretval=SPAC(6)+SUBS(tcFONE,1,3)+'-'+RIGH(tcFONE,4)
CASE LEN(ALLT(pFONE))=10
lcretval='('+LEFT(tcFONE,3)+') '+SUBS(tcFONE,4,3)+'-'+RIGH(tcFONE,4)
ENDC
RETU lcretval
* eop()
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement