WAIT WINDOW "INICIO TEF" NOWAIT

SET PRINTER TO NAME "TSTISAT"

CREATE CURSOR TMP_NIMPFECH (NAOIMP N(1))

*??? CHR(15) 
*??? CHR(10) + CHR(13)
*??? "Cliente: " + ALLTRIM(cNomClie) + chr(13) + chr(10)
*??? "Atendente: " + ALLTRIM(cNomVene) + chr(13) + chr(10)
*??? "Comprador: " + ALLTRIM(cCompe) + chr(13) + chr(10)
*??? REPLICATE("*",40) + chr(13) + chr(10)
*??? CHR(10) + CHR(13)
*??? CHR(10) + CHR(13)
*??? CHR(10) + CHR(13)

*SELECT * FROM TMP_IMPCARTAO INTO CURSOR TMP_IMPTEF

SELECT * FROM TMP_IMPRIMENSU  INTO CURSOR TMP_IMPTEF

select tmp_IMPTEF
*BROW
IF RECCOUNT() > 0
*WAIT WINDOW "AQUI"

*??? CHR(27) + CHR(109)

FOR nIdx = 1 to 2

SELECT TMP_IMPTEF
SET FILTER TO
SET FILTER TO TMP_IMPTEF.COMPRO = ALLTRIM(STR(nIdx,1))

cImpre = ""   

        
         *brow
         GO TOP IN TMP_IMPTEF
         DO WHILE ! EOF("TMP_IMPTEF")
            
            ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
            SKIP IN TMP_IMPTEF
            IF ! EOF("TMP_IMPTEF")
               ???  SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
               SKIP IN TMP_IMPTEF
               IF ! EOF("TMP_IMPTEF")
                  ???  SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
                  SKIP IN TMP_IMPTEF
                  IF ! EOF("TMP_IMPTEF")
                     ???  SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
                     SKIP IN TMP_IMPTEF
                     IF ! EOF("TMP_IMPTEF")
                        ???  SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
                        SKIP IN TMP_IMPTEF
                        IF ! EOF("TMP_IMPTEF")
                           ???  SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
                           SKIP IN TMP_IMPTEF
                           IF ! EOF("TMP_IMPTEF")
                              ???  SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
                              SKIP IN TMP_IMPTEF
                              IF ! EOF("TMP_IMPTEF")
                                 ???  SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
                                 SKIP IN TMP_IMPTEF
                                 IF ! EOF("TMP_IMPTEF")
                                    ???  SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
                                    SKIP IN TMP_IMPTEF
                                    IF ! EOF("TMP_IMPTEF") 
                                       ???  SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
                                       SKIP IN TMP_IMPTEF
                                       IF ! EOF("TMP_IMPTEF")
                                          ???  SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
                                          SKIP IN TMP_IMPTEF
                                          IF ! EOF("TMP_IMPTEF")
                                             ???  SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10)+CHR(13)
                                          ENDIF
                                       ENDIF
                                    ENDIF
                                 ENDIF
                              ENDIF
                           ENDIF
                        ENDIF
                     ENDIF
                  ENDIF
               ENDIF
            ENDIF

            SELECT TMP_IMPTEF
            IF ! EOF("TMP_IMPTEF")
               SELECT TMP_IMPTEF
               SKIP IN TMP_IMPTEF
            ENDIF 
            LOOP
      ENDDO

??? CHR(10) + CHR(13)
??? CHR(10) + CHR(13)
??? CHR(10) + CHR(13)
??? CHR(10) + CHR(13)
??? CHR(10) + CHR(13)
??? CHR(27) + CHR(109)

SET PRINTER TO NAME "TSTISAT"

   *IF nIdx = 1 

      *???  CHR(10) + CHR(13)
      *???  CHR(10) + CHR(13)
      *cImpre = cImpre +  CHR(27) + CHR(109)

   *ENDIF
NEXT

ENDIF

RETURN .F.

*cImpre = cImpre +  CHR(10) + CHR(13)
*cImpre = cImpre +  CHR(10) + CHR(13)
*cImpre = cImpre +  CHR(10) + CHR(13)
*cImpre = cImpre +  CHR(10) + CHR(13)
*cImpre = cImpre +  CHR(27) + CHR(109)

*SET PRINTER TO

*SET PRINTER TO

*CREATE CURSOR TMP_NIMPFECH (NAOIMP N(1))

*cImpre = cImpre +  CHR(15) 
*cImpre = cImpre +  CHR(10) + CHR(13)
*cImpre = cImpre +  "Cliente: " + ALLTRIM(cNomClie) + chr(13) + chr(10)
*??? "Atendente: " + ALLTRIM(cNomVene) + chr(13) + chr(10)
*??? "Comprador: " + ALLTRIM(cCompe) + chr(13) + chr(10)
*??? REPLICATE("*",40) + chr(13) + chr(10)
*??? CHR(10) + CHR(13)
*??? CHR(10) + CHR(13)
*??? CHR(10) + CHR(13)


*SELECT * FROM TMP_IMPCARTAO INTO CURSOR TMP_IMPTEF

SELECT * FROM TMP_IMPRIMENSU  INTO CURSOR TMP_IMPTEF

select tmp_IMPTEF
*BROW
IF RECCOUNT() > 0
*WAIT WINDOW "AQUI"

??? CHR(27) + CHR(109)

FOR nIdx = 1 to 1
   
   

        
         *brow
         GO TOP IN TMP_IMPTEF
         DO WHILE ! EOF("TMP_IMPTEF")
            
            ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
            SKIP IN TMP_IMPTEF
            IF ! EOF("TMP_IMPTEF")
               ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
               SKIP IN TMP_IMPTEF
               IF ! EOF("TMP_IMPTEF")
                  ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
                  SKIP IN TMP_IMPTEF
                  IF ! EOF("TMP_IMPTEF")
                     ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
                     SKIP IN TMP_IMPTEF
                     IF ! EOF("TMP_IMPTEF")
                        ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
                        SKIP IN TMP_IMPTEF
                        IF ! EOF("TMP_IMPTEF")
                           ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
                           SKIP IN TMP_IMPTEF
                           IF ! EOF("TMP_IMPTEF")
                              ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
                              SKIP IN TMP_IMPTEF
                              IF ! EOF("TMP_IMPTEF")
                                 ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
                                 SKIP IN TMP_IMPTEF
                                 IF ! EOF("TMP_IMPTEF")
                                    ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
                                    SKIP IN TMP_IMPTEF
                                    IF ! EOF("TMP_IMPTEF") 
                                       ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
                                       SKIP IN TMP_IMPTEF
                                       IF ! EOF("TMP_IMPTEF")
                                          ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
                                          SKIP IN TMP_IMPTEF
                                          IF ! EOF("TMP_IMPTEF")
                                             ??? SUBSTR(TMP_IMPTEF.TEXTO + SPACE(48),1,48) + CHR(10) + CHR(13)
                                          ENDIF
                                       ENDIF
                                    ENDIF
                                 ENDIF
                              ENDIF
                           ENDIF
                        ENDIF
                     ENDIF
                  ENDIF
               ENDIF
            ENDIF

            SELECT TMP_IMPTEF
            IF ! EOF("TMP_IMPTEF")
               SELECT TMP_IMPTEF
               SKIP IN TMP_IMPTEF
            ENDIF 
            LOOP
      ENDDO

   IF nIdx = 1 

      ??? CHR(10) + CHR(13)
      ??? CHR(10) + CHR(13)
      *??? CHR(27) + CHR(109)

   ENDIF
NEXT

ENDIF

??? CHR(10) + CHR(13)
??? CHR(10) + CHR(13)
??? CHR(27) + CHR(109)

SET PRINTER TO NAME "TSTISAT"