PC Toledo

Código: Selecionar todos

#include "SET.ch"
#include "inkey.ch"
#include "si.ch"
#INCLUDE "LFNLIB.CH"

************************
// CONVERTE DUPLICATAS
FUNCTION ConverteMemo()
************************
LOCAL nomeatu, nomeant
Abrearq()

SELECT Odup

DBGOTOP()

SET PRINT ON
SET DEVICE TO PRINT

SETPRC(0,0)
WHILE !EOF()
   nomeant:="O:\SI\MEMODUP\"+LEFT(TRANDUP(ODup->duplicata),8)+".TXT"

   SET PRINTER TO &nomeant
   linha := 0
   LINS:=MLCOUNT(ODup->obs,60)
   FOR I = 1 TO LINS
      set device to screen
      STATUS("Convertendo duplicata "+ODup->duplicata+"  - Linha"+STRZERO(i,10))
      SET DEVICE TO PRINT
      IF !EMPTY(ALLTRIM(Memoline(ODup->obs,60,i,3,.T.)))
         @ PROW(),0 SAY ALLTRIM(Memoline(ODup->obs,60,i,3,.T.))
         @ PROW()+1,0 SAY ""
      ENDIF
   NEXT

   SET DEVICE TO SCREEN
   SET PRINT OFF
   nomeatu:="O:\SI\MEMODUP\"+TRANDUP(ODup->duplicata)+".TXT"

   LF_FRename(nomeant,nomeatu)

   ODup->(DBSKIP())
END

RETURN ''

Código: Selecionar todos

BLINKER INCREMENTAL OFF

BLINKER EXEC CLIPPER //F:255 //DYNF:8 //SWAPK:65535 //SWAPPATH:"c:\temp" //TEMPPATH:"c:\temp"
BLINKER EXECUTABLE EXTENDED

#BLINKER CACHE XMS 1024,50%
#BLINKER CACHE EMS 256,50%

#COMPRIME O EXECUTAVEL 1=MAXIMO
BLINKER EXECUTABLE COMPRESS 9
BLINKER LOWMEM RESERVE 1024

#CRIA LINK APESAR DOS "UNRESOLVED EXTERNAL"(FUNCOES NAO ENCONTRADAS)
BLINKER EXECUTABLE NODELETE

SEARCH BLXCLP52

OUTPUT SI.EXE

BEGINAREA
   FI SI
   FI SIIMPFCA
   FI SIIRPA
   FI SITEL
   FI SIFUN
   FI SICLI
   FI SIUTI
   FI SIREP
   FI SIPRO
   FI SINAT
   FI SITRA
   FI SIMSG
   FI SIHIS
   FI SIMAR
   FI SIPRC
   FI SIICLI
   FI SIIREP
   FI SIIPRO
   FI SIITRA
   FI SIIHIS
   FI SICFI
   FI SIIFPD
   FI SIIVEN
   FI SIPDV
   FI CAL
   FI SIOBFAT
   FI SILPD
   FI SILPDB
   FI SIIPED
   FI SILPDC
   FI SIPRE
   FI SIIPRE
   FI SICOT
   FI SIICOT
   FI SIITOT
   FI IMPORT
   FI SIMAT
   FI SIOFI
   FI SITAB
   FI SITLI
   FI SITOS
   FI SIIPEDC
   FI SIICONF
   FI SIACERT
   FI SIATCLI
   FI SICFCLI
   FI SIIMPFCH
   FI SIICOM
   FI SICPRO
   FI SIIMP
   FI SICUS
   FI SIITENC
   FI SIICUS
   FI SIICUSF
   FI DETALHE
   FI SIIPEN
   FI SIRESREG
   FI SIICID
   FI SICHQ
   FI SIAVI
   FI SIIAVI
   FI SIICAN
   FI SIICANCD
   FI SICID
   FI SICOR
   FI SIREG
   FI SILIQ
   FI SIILIQ
   FI SIILIQD
   FI SIORD
   FI SIPEN
   FI SICORT
   FI SIIRPROJ
   FI SIIMDE
   FI SILOS
   FI SII661
   FI SILPDCC
   FI SITRAN
   FI SITABT
   FI SIITRAN
   FI SITRANO
   FI SIIE
   FI SIIC661
   FI SIVALID
   FI SIEMPR
#   FI __WAIT
   FI SIIZEN
   FI SIIC662
   FI SIJUNPED
   FI SIFPD
   FI SIPDVF
   FI SITABUF
   FI SILISTP
   FI SIRFATE
   FI SICORRP
   FI SICBR
   FI SIICBR
   FI SIFRETE
   FI SIBCO
   FI SICBCO
   FI SIMDUP
   FI SIMENU
   FI SIPPIS
   FI SIPCUS
   FI SINFECLI
   FI SIPARFAT
   FI SIPROMC
   FI SIPARCOM
   FI SIENQES
   FI SIENQFE
   FI SIFORMA
   FI SIVCODL
   FI SICNFNF
   FI IMPRES
//   FI SIIMPEND
   FI SIIMPOBS
   FI SIRELDUP
   FI SIIRESP
   FI SINFREP
   FI SIIPREM
   FI SIIRDUP
   FI SIRANK
   FI SIIFIN
   FI SIDC
   FI SICADCC
   FI SIICLIA
   FI TIMESLIC
   FI SIDIFSV
   FI SIPDVR
   FI SILIG
   FI SIDEV
   FI SIMSGP
   FI SIPRAZO
   FI SIDOC
//   FI SIORDCLI
   FI SIMPBCO
   FI SIRAG
   FI SITAL
   FI SIILOG
   FI SIINFO
   FI SIMOVPED
   FI SIICLIR
   FI SIIDEST
   FI SIIANUE
   FI SINFE
//   FI SINF0912
   FI MENUTO
   FI CLUBEFUN
   FI CORES
   FI MOUSE
//   FI GETSYS
   FI SIDESC
   FI SIFINOP
   FI SIPAR
   FI SIALERT
   FI SIAGENDA
   FI SICHREP
ENDAREA

LIB CPMI
LIB LFN
LIB LL
LIB NANFOR52
LIB ctp // a lib ct.lib nÆo ‚ compativel com modo protegido
LIB oslib
#LIB VL2_52
LIB SIBRA

@CL520MID.LNK