Select de Várias tabelas atraves do UNION

cQRY := " SELECT * FROM ( "

cQRY += " SELECT E1.E1_EMISSAO AS DATAMOV, E1.E1_VALOR AS VALOR, "

cQRY += " E1.E1_NOMCLI AS BENEF, E1.E1_HIST AS HISTORICO,"

cQRY +=   'R' AS TIPO "
cQRY += " FROM " + RETSQLNAME("SE1") + " E1 "
cQRY += " WHERE "
cQRY += " E1.D_E_L_E_T_ = ' ' AND "
cQRY += " E1.E1_FILIAL = '" + xFilial("SE1") + "' AND "
cQRY += " E1.E1_NUMFIN = '" + SZZ->ZZ_CODIGO + "' "

cQRY += " UNION ALL "

cQRY += " SELECT E2.E2_EMISSAO AS DATAMOV, E2.E2_VALOR AS VALOR, cQRY += " E2.E2_NOMFOR AS BENEF, E2.E2_HIST AS HISTORICO, "

cQRY +=  'P' AS TIPO "

cQRY += " FROM " + RETSQLNAME("SE2") + " E2 "
cQRY += " WHERE "
cQRY += " E2.D_E_L_E_T_ = ' ' AND "
cQRY += " E2.E2_FILIAL = '" + xFilial("SE2") + "' AND "
cQRY += " E2.E2_NUMFIN = '" + SZZ->ZZ_CODIGO + "' "

cQRY += " UNION ALL "

cQRY += " SELECT E5.E5_DATA AS DATAMOV, E5.E5_VALOR AS VALOR, "

cQRY += " E5.E5_BENEF AS BENEF, E5.E5_HISTOR AS HISTORICO, "

cQRY += " E5.E5_RECPAG AS TIPO "
cQRY += " FROM " + RETSQLNAME("SE5") + " E5 "
cQRY += " WHERE "
cQRY += " E5.D_E_L_E_T_ = ' ' AND "
cQRY += " E5.E5_FILIAL = '" + xFilial("SE5") + "' AND "
cQRY += " E5.E5_NUMFIN = '" + SZZ->ZZ_CODIGO + "' "

cQRY += " ) AS DADOS " cQRY += "ORDER BY DADOS.DATAMOV, DADOS.TIPO DESC "

TCQuery cQry NEW ALIAS "TMPCRF"


TCSETFIELD("TMPCRF","DATAMOV","D")


by Balboena (www.lbeb.com.br)