SYS(1037)

TSEXEC("T","SELECT * FROM Tsl","TSL")

??? CHR(27)+"0"+CHR(27)+"C"+CHR(44)
??? chr(18)
   
CABECA = space(int((70 - len(AllTrim(TSL.NOME))) / 2)) + alltrim(TSL.NOME)+space(int((70 - len(AllTrim(TSL.NOME))) / 2))+dToc(TMP_IMP1.PEDEMIS) + chr(13)+chr(10)
CABECA = CABECA + CHR(18)
CABECA = CABECA + space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + alltrim(TSL.ENDERECO)+space(int((72 - len(AllTrim(TSL.ENDERECO))) / 2)) + TIME()+chr(13)+chr(10)
CABECA = CABECA + space(int((80 - len(Alltrim(TSL.FONE))) / 2)) + AllTrim(TSL.FONE)+chr(13)+chr(10)
CABECA = CABECA + space(int((80 - len(Alltrim("P E D I D O "))) / 2)) + AllTrim("P E D I D O")+chr(13)+chr(10)
CABECA = CABECA + Replicate("-",80)+chr(13)+chr(10)
CABECA = CABECA + "Pedido...: " + PADL(ALLTRIM(STR(TMP_IMP1.PEDCOD,6)),6,"0") + CHR(13)+CHR(10)
CABECA = CABECA + "Nome.....: " + PADL(ALLTRIM(STR(TMP_IMP1.PEDCLI,6)),6,"0") + " - " + TMP_IMP1.CLINOM + CHR(13)+CHR(10)
CABECA = CABECA + "Vendedor.: " + PADL(ALLTRIM(STR(TMP_IMP1.PEDVEND,5)),5,"0") + " - " + ALLTRIM(TMP_IMP1.NOME) + CHR(13)+CHR(10)
CABECA = CABECA + Replicate("-",80)+chr(13)+chr(10)

??? CABECA + "Cod.  Descricao                        UN            Qtde    Unit.R$  Valor R$"+chr(13)+chr(10)
??? Replicate("-",80)+chr(13)+chr(10)
Select TMP_IMP2
Go Top IN TMP_IMP2
nLinha = 9

cTotal  = 0
cQtdTot = 0
Do While ! Eof("TMP_IMP2")
   
   If nLinha > 36
      ??? Replicate("-",80)+chr(13)+chr(10)
      IF PARAMETRO.IMPRESSORA = "J"
         ??? " " + CHR(13)+CHR(10)
         ??? " " + CHR(13)+CHR(10)
      ELSE
         ??? chr(12)
      ENDIF
      ??? cabeca + CHR(13)+CHR(10)
      nLinha = 9
   Endif
   
   nLinha = nLinha + 1
   
   SET DECIMALS TO 3
   ??? Substr(TMP_IMP2.CODBAR,12,5) + " " + Substr(TMP_IMP2.DESCPRO,1,31) + "  " +;
   TMP_IMP2.UNI + "      " + TRANSFORM(TMP_IMP2.LINQTD,"999,999.99") + " "+;
   TRANSFORM(TMP_IMP2.LINUNIT,"99,999.999") + " " + TRANSFORM(TMP_IMP2.LINTOT,"99,999.99")+CHR(13)+CHR(10)
   
   cQtdTot = cQtdTot + TMP_IMP2.LINQTD
   cTotal  = cTotal + TMP_IMP2.LINTOT
   
   Skip In TMP_IMP2
   Loop
Enddo

If nlinha > 25
   ??? chr(12)
   ??? cabeca + CHR(10)+CHR(13)
   nLinha = 9
Endif

??? Replicate("-",80)+chr(13)+chr(10)
??? Replicate(" ",60) + "Total R$: " + TRANSFORM(cTotal,"999,999.99")+chr(13)+chr(10)
IF TMP_IMP1.PEDVLDESC > 0
   ??? Replicate(" ",60) + "Desconto: " + TRANSFORM(TMP_IMP1.PEDVLDESC,"999,999.99")+chr(13)+chr(10)
   ??? Replicate(" ",60) + "Total R$: " + TRANSFORM((TMP_IMP1.PEDVLPED),"999,999.99")+chr(13)+chr(10)
ENDIF
??? Replicate("-",80)+chr(13)+chr(10)
??? SPACE(46) + TRANSFORM(cQtdTot,"99999999.99")+chr(13)+chr(10)
IF nLinha > 24
   ??? CHR(12)
   ??? CABECA + CHR(10)+CHR(13)
ENDIF
??? Replicate("-",80)+chr(13)+chr(10)
??? "OBS: "+ TMP_IMP1.PEDOBS01 + CHR(10)+CHR(13)
??? "     "+ TMP_IMP1.PEDOBS02 + CHR(10)+CHR(13)
??? " " + CHR(10)+CHR(13)
??? "  /    /       Ass.............................   RG........................"+chr(13)+chr(10)
??? Replicate("=",80)+chr(13)+chr(10)
??? chr(12)

Set Printer To