Fontes Advpl (balboena´s blog)

sexta-feira, 8 de julho de 2011

Vagas!

A LB&B Consultores Associados,

Consultoria Independente Protheus,

atuando no mercado a 10 anos,

está recrutando:

Analista de Negócios Protheus PJ

Área de Atuação:

Zona da Mata Mineira, Rio de Janeiro, Belo Horizonte.

Contato:

Envie seu currículo, informando

também disponibilidade

e valor por hora, para: all@lbeb.com.br

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)

segunda-feira, 27 de junho de 2011

A LB&B Consultores Associados está contratando!!!!