nSelect = "SELECT Tslv021.CODPROD,SUM(Tslv021.QUANT) AS QUANT,Tslv020.MANIFESTO,SUM(TSLV021.TOTAL) AS TOTAL,"
nSelect = nSelect + "Tslv020.DTMANI,Tslc003.CODBAR,Tslc003.DESCPRO,Tslc003.CODFAB,Tslc032.DESCRICAO AS FABRI,Tslc003.UNI,Tslc003.PBRUTO,Tslc003.PROEMB,Tslc018.descricao as embalagem,Tslc003.RETORNO FROM Tslv021 "
nSelect = nSelect + "INNER JOIN Tslv020 ON Tslv021.CUPOM = Tslv020.SEQ "
nSelect = nSelect + "LEFT JOIN Tslc003 ON Tslv021.CODPROD = Tslc003.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslc032 ON Tslc003.CODFAB = Tslc032.CODIGO "
nSelect = nSelect + "LEFT JOIN Tslc018 ON Tslc003.PROEMB = Tslc018.SEQ018 "
nSelect = nSelect + "WHERE Tslv020.MANIFESTO = ?cCodMan AND Tslv020.EXCLUI <> 'S' "
nSelect = nSelect + "GROUP BY Tslv021.CODPROD,Tslv020.MANIFESTO,Tslv020.DTMANI,Tslc003.CODBAR,Tslc003.DESCPRO,Tslc003.CODFAB,Tslc032.DESCRICAO,"
nSelect = nSelect + "Tslc003.UNI,Tslc003.PBRUTO,Tslc003.PROEMB,Tslc018.descricao,Tslc003.RETORNO "
nSelect = nSelect + "ORDER BY Tslc003.CODFAB,Tslc003.CODBAR "
TSEXEC("T",nSelect,"TMP_IMPRIMIR1")

SELECT SUM(QUANT) AS QUANT,PROEMB,EMBALAGEM FROM TMP_IMPRIMIR1 GROUP BY PROEMB,EMBALAGEM INTO CURSOR TMP_EMBA

cEmba = ""

SELECT TMP_EMBA
GO TOP IN TMP_EMBA
DO WHILE ! EOF("TMP_EMBA")
   
   cEmba = cEmba + TMP_EMBA.EMBALAGEM + TRANSFORM(TMP_EMBA.QUANT,"999999") + CHR(13)

   SKIP IN TMP_EMBA
   LOOP

ENDDO

SELECT SUM(QUANT) AS QUANT,DESCPRO FROM TMP_IMPRIMIR1 WHERE RETORNO = 1 GROUP BY DESCPRO INTO CURSOR TMP_RETORNO

cRetorno = ""

SELECT TMP_RETORNO
GO TOP IN TMP_RETORNO
DO WHILE ! EOF("TMP_RETORNO")
   
   cRetorno = cRetorno + SUBSTR(TMP_RETORNO.DESCPRO,1,30) + TRANSFORM(TMP_RETORNO.QUANT,"999999") + CHR(13)

   SKIP IN TMP_RETORNO
   LOOP

ENDDO

IF ! EMPTY(ALLTRIM(cRetorno))
   cEmba = cEmba + CHR(13) + "Retornveis" + CHR(13)
   cEmba = cEmba + cRetorno
ENDIF

SELECT TMP_IMPRIMIR1.*,TMP_IMPRIMIR1.PBRUTO * TMP_IMPRIMIR1.QUANT AS PESO FROM TMP_IMPRIMIR1 INTO CURSOR TMP_IMPRIMIR

cCabeca = "Carregamento Manifesto: " + ALLTRIM(STR(cCodMan,6))

nSelect = "SELECT SUM(1) AS TT FROM Tslv020 WHERE Tslv020.MANIFESTO = ?cCodMan AND Tslv020.EXCLUI <> 'S' "
TSEXEC("T",nSelect,"TMP_TT")
cPedidos = TMP_TT.TT

SELECT TMP_IMPRIMIR
GO TOP IN TMP_IMPRIMIR

cReport = FULLPATH(CURDIR()) + "IMPRESS/REL_MANI_GOTA.FRX"
CHAMAIMP2("TMP_IMPRIMIR",cReport)