| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Time Sheets - JURA144 |
| País: | Brasil |
| Localização | Atualizações >> Movimentações >> Time Sheet | ||||||||
| Parâmetro | Não se aplica | ||||||||
| Retorno |
|
User Function JA144FIL()
Local cArea := GetArea()
Local cQryRes := GetNextAlias()
Local oStatement as object
Local cQry := ''
Local cRet := ''
cQry := "SELECT RD0_CODIGO"
cQry += " FROM " + RetSQLName("RD0") + " RD0"
cQry += " INNER JOIN" + RetSQLName("NUR") + " NUR"
cQry += " ON NUR.NUR_FILIAL = ?"
cQry += " AND NUR.NUR_CPART = RD0.RD0_CODIGO"
cQry += " AND NUR.D_E_L_E_T_ = ' '"
cQry += " WHERE RD0.RD0_FILIAL = ?"
cQry += " AND RD0.RD0_USER = ?"
cQry += " AND RD0.D_E_L_E_T_ = ' '"
oStatement := FWPreparedStatement():New(cQry)
oStatement:SetString(1 , xFilial("RD0"))
oStatement:SetString(2 , xFilial("NUR"))
oStatement:SetString(3 , __CUSERID)
cQry := oStatement:GetFixQuery()
dbUseArea( .T., 'TOPCONN', TcGenQry (,, cQry), cQryRes, .T., .F.)
(cQryRes)->(dbGoTop())
If !(cQryRes)->(EOF())
cRet := "(NUE_CPART1 == '" + (cQryRes)->RD0_CODIGO + '" .OR. NUE_CPART2 == '" + (cQryRes)->RD0_CODIGO + "')"
EndIf
(cQryRes)->(dbCloseArea())
RestArea(cArea)
Return cRet