PC Toledo

Código: Selecionar todos

orig=space(40)
dest=space(40)
cc  =space(40)
cco =space(40)
assu=space(40)
serv=space(40)
txt0=space(50)
txt1=space(50)
txt2=space(50)
txt3=space(50)
txt4=space(50)
txt5=space(50)
txt6=space(50)
txt7=space(50)
txt8=space(50)
txt9=space(50)
anex=space(30)
do while .t.
   do CTB066T
   @ 04,19 get orig valid empty(orig)=.f.
   @ 05,19 get dest valid empty(dest)=.f.
   @ 06,19 get cc  
   @ 07,19 get cco
   @ 08,19 get assu valid empty(assu)=.f.
   @ 09,19 get serv valid empty(serv)=.f.
   @ 10,19 get txt0
   @ 11,19 get txt1
   @ 12,19 get txt2
   @ 13,19 get txt3
   @ 14,19 get txt4
   @ 15,19 get txt5
   @ 16,19 get txt6
   @ 17,19 get txt7
   @ 18,19 get txt8
   @ 19,19 get txt9
   @ 20,19 get anex
   read
   if lastkey()=27
      op=7
      return
   endif
   do CONFIRMA
   if conf='N'
      loop
   endif
   set color to &cor_menss
   @ 24,00 clear to 24,79
   @ 24,01 say 'Aguarde... Enviando mensagem'
   set color to &cor

   mtxt=txt0+txt1+txt2+txt3+txt4+txt5+txt6+txt7+txt8+txt9

   arqm='texto'
   arqt='texto.txt'

   criaarq()

   use &arqm
   appe blan
   repl txt with rtrim(mtxt)
   commit
   copy to &arqt sdf
   use

   mail=     '-f'+alltrim(orig)+' '
   mail=mail+'-t'+alltrim(dest)+' '
   mail=mail+'-c'+alltrim(cc)+' '
   mail=mail+'-b'+alltrim(cco)+' '
   mail=mail+'-h'+alltrim(serv)+' '
   mail=mail+'-s'+alltrim(assu)+' '
   mail=mail+'-itexto.txt'+' '
   mail=mail+'-a'+alltrim(anex)


   ! smtpsend &mail > nul
   ! del texto.dbf
   ! del texto.txt
   do TELA

enddo

Function CRIAARQ
private aStru
aStru := {;
{"TXT","C",500,00}}
dbcreate("&arqm",aStru)
return nil