Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Gestão Jurídica - Linha SISJURI

Linha de Produto:

Linha Protheus

Segmento:

Jurídico

Módulo:

TOTVS Gestão Jurídica - Linha SISJURI - Pré Faturamento de Serviços (SIGAPFS)

Função:Time Sheets - JURA144
País:Brasil


02. DESCRIÇÃO


LocalizaçãoAtualizações >>  Movimentações >> Time Sheet
Parâmetro

Não se aplica

Retorno
NomeTipoDescriçãoObrigatório
cRetcaractere

Query que a rotina irá utilizar no filtro da tela de timesheets


Sim


03. DEMAIS INFORMAÇÕES

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


04. ASSUNTOS RELACIONADOS