FWMBrowse x Tabela Temporária x SX5

A função abaixo é para montar a estrutura da tabela SX5 no browse e exibir o registros caso houver.

Static Function AGPE001TRB()
    Local aTam    := {}
    Local aCampos := {}
    Local cQuery  := ""

    If Select('TRB') &gt; 0
        TRB-&gt;(dbCloseArea())
    Endif

    aTam:= TamSX3("X5_TABELA")
    Aadd(aCampos,{"X5_TABELA","C",aTam[1],aTam[2]})

    aTam:= TamSX3("X5_CHAVE")
    Aadd(aCampos,{"X5_CHAVE","C",aTam[1],aTam[2]})

    aTam:= TamSX3("X5_DESCRI")
    Aadd(aCampos,{"X5_DESCRI","C",aTam[1],aTam[2]})

    aTam:= TamSX3("X5_DESCSPA")
    Aadd(aCampos,{"X5_DESCSPA","C",aTam[1],aTam[2]})

    aTam:= TamSX3("X5_DESCENG")
    Aadd(aCampos,{"X5_DESCENG","C",aTam[1],aTam[2]})


    If (Select("TRB") &lt;&gt; 0)
        dbSelectArea("TRB")
        TRB-&gt;(dbCloseArea ())
    Endif

    cArqTRB := CriaTrab(aCampos,.T.)
    DbUseArea(.T.,,cArqTRB,"TRB",.T.)

    dbSelectArea( "TRB" )
    IndRegua( "TRB", cArqTRB+"1", "X5_CHAVE"  ,,,"Codigo" )
    IndRegua( "TRB", cArqTRB+"2", "X5_DESCRI" ,,,"Nome" )
    IndRegua( "TRB", cArqTRB+"3", "X5_DESCSPA",,,"Localidade" )
    dbClearIndex()
    dbSetIndex( cArqTRB+"1" + OrdBagExt() )
    dbSetIndex( cArqTRB+"2" + OrdBagExt() )
    dbSetIndex( cArqTRB+"3" + OrdBagExt() )
    TRB-&gt;(DbSetOrder(1))
    TRB-&gt;(DbGotop())

    cQuery := " SELECT X5_TABELA, X5_CHAVE, X5_DESCRI, X5_DESCSPA, X5_DESCENG "
    cQuery += " FROM " + RetSQLName("SX5") + " SX5"
    cQuery += " WHERE SX5.D_E_L_E_T_ = ' ' "
    cQuery += " AND X5_FILIAL = '" + xFilial("SX5") + "' "
    cQuery += " AND X5_TABELA = 'ZL' "
    cQuery += " AND X5_CHAVE &lt;&gt; '' "
    cQuery += " ORDER BY X5_CHAVE "

    If (Select("TRBSX5") &lt;&gt; 0)
        dbSelectArea("TRBSX5")
        TRBSX5-&gt;(dbCloseArea ())
    Endif

    cQuery := ChangeQuery(cQuery)
    DbUseArea(.T., "TOPCONN", TCGenQry(,,cQuery), 'TRBSX5', .F., .T.)

    DbSelectArea("TRBSX5")
    DbGotop()
    While TRBSX5-&gt;(!Eof())
        RecLock("TRB",.T.)
        TRB-&gt;X5_TABELA  := TRBSX5-&gt;X5_TABELA
        TRB-&gt;X5_CHAVE   := TRBSX5-&gt;X5_CHAVE
        TRB-&gt;X5_DESCRI  := TRBSX5-&gt;X5_DESCRI
        TRB-&gt;X5_DESCSPA := TRBSX5-&gt;X5_DESCSPA
        TRB-&gt;X5_DESCENG := TRBSX5-&gt;X5_DESCENG
        TRB-&gt;(MsUnLock())
        TRBSX5-&gt;(DbSkip())
    EndDo
    TRBSX5-&gt;(dbCloseArea())
Return

Static Function AGPE001TRB()

Local aTam := {}

Local aCampos := {}

Local cQuery := ""

If Select('TRB') > 0

TRB->(dbCloseArea())

Endif

aTam:= TamSX3("X5_TABELA")

Aadd(aCampos,{"X5_TABELA","C",aTam[1],aTam[2]})

aTam:= TamSX3("X5_CHAVE")

Aadd(aCampos,{"X5_CHAVE","C",aTam[1],aTam[2]})

aTam:= TamSX3("X5_DESCRI")

Aadd(aCampos,{"X5_DESCRI","C",aTam[1],aTam[2]})

aTam:= TamSX3("X5_DESCSPA")

Aadd(aCampos,{"X5_DESCSPA","C",aTam[1],aTam[2]})

aTam:= TamSX3("X5_DESCENG")

Aadd(aCampos,{"X5_DESCENG","C",aTam[1],aTam[2]})

If (Select("TRB") <> 0)

dbSelectArea("TRB")

TRB->(dbCloseArea ())

Endif

cArqTRB := CriaTrab(aCampos,.T.)

DbUseArea(.T.,,cArqTRB,"TRB",.T.)

dbSelectArea( "TRB" )

IndRegua( "TRB", cArqTRB+"1", "X5_CHAVE" ,,,"Codigo" )

IndRegua( "TRB", cArqTRB+"2", "X5_DESCRI" ,,,"Nome" )

IndRegua( "TRB", cArqTRB+"3", "X5_DESCSPA",,,"Localidade" )

dbClearIndex()

dbSetIndex( cArqTRB+"1" + OrdBagExt() )

dbSetIndex( cArqTRB+"2" + OrdBagExt() )

dbSetIndex( cArqTRB+"3" + OrdBagExt() )

TRB->(DbSetOrder(1))

TRB->(DbGotop())

cQuery := " SELECT X5_TABELA, X5_CHAVE, X5_DESCRI, X5_DESCSPA, X5_DESCENG "

cQuery += " FROM " + RetSQLName("SX5") + " SX5"

cQuery += " WHERE SX5.D_E_L_E_T_ = ' ' "

cQuery += " AND X5_FILIAL = '" + xFilial("SX5") + "' "

cQuery += " AND X5_TABELA = 'ZL' "

cQuery += " AND X5_CHAVE <> '' "

cQuery += " ORDER BY X5_CHAVE "

If (Select("TRBSX5") <> 0)

dbSelectArea("TRBSX5")

TRBSX5->(dbCloseArea ())

Endif

cQuery := ChangeQuery(cQuery)

DbUseArea(.T., "TOPCONN", TCGenQry(,,cQuery), 'TRBSX5', .F., .T.)

DbSelectArea("TRBSX5")

DbGotop()

While TRBSX5->(!Eof())

RecLock("TRB",.T.)

TRB->X5_TABELA := TRBSX5->X5_TABELA

TRB->X5_CHAVE := TRBSX5->X5_CHAVE

TRB->X5_DESCRI := TRBSX5->X5_DESCRI

TRB->X5_DESCSPA := TRBSX5->X5_DESCSPA

TRB->X5_DESCENG := TRBSX5->X5_DESCENG

TRB->(MsUnLock())

TRBSX5->(DbSkip())

EndDo

TRBSX5->(dbCloseArea())

Return

Static Function ExisteGestor(cCodigo)
    Local lRet := .F.
    Local cArea		:= GetArea()
    Local cTmpSRA 	:= GetNextAlias()

    IF SELECT(cTmpSRA) # 0
        (cTmpSRA)-&gt;(dbCloseArea())
    ENDIF
    BeginSql Alias cTmpSRA
                SELECT RA_ZZGESTO
                FROM %Table:SRA% SRA
                WHERE SRA.D_E_L_E_T_ = ' '
                AND RA_FILIAL   = %xFilial:SRA%
                AND RA_ZZGESTO	= %Exp:cCodigo%
    EndSql

    dbSelectArea(cTmpSRA)
    If (cTmpSRA)-&gt;(!Eof())
        lRet := .T.
    EndIf
    RestArea(cArea)
Return(lRet)

Static Function ExisteGestor(cCodigo)

Local lRet := .F.

Local cArea := GetArea()

Local cTmpSRA := GetNextAlias()

IF SELECT(cTmpSRA) # 0

(cTmpSRA)->(dbCloseArea())

ENDIF

BeginSql Alias cTmpSRA

SELECT RA_ZZGESTO

FROM %Table:SRA% SRA

WHERE SRA.D_E_L_E_T_ = ' '

AND RA_FILIAL = %xFilial:SRA%

AND RA_ZZGESTO = %Exp:cCodigo%

EndSql

dbSelectArea(cTmpSRA)

If (cTmpSRA)->(!Eof())

lRet := .T.

EndIf

RestArea(cArea)

Return(lRet)

Se conhece uma forma mais simples, compartilhe com a gente, Let’s Share!

Relacionado

Páginas: 123

FWMBrowse SX5 tabela temporaria

FWMBrowse x Tabela Temporária x SX5