×
Linguagem de Programação ADVPL
Perguntas Quantidade de Dependentes - RH
9 anos 1 mês atrás #27824
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Quantidade de Dependentes - RH
Você poderá criar tipo uma função própria sua, U_ContaDep(cMatricula)
User Function ContaDep(cMatricula)
Local aArea := GetArea()
Local nQtdDep := 0
If SRB->(dbSetOrder(1), dbSeek(xFilial("SRB")+cMatricula))
While SRB->(!Eof()) .And. SRB->RB_FILIAL == xFilial("SRB") .And. SRB->RB_MAT == cMatricula
// Qtde Dependentes
If SRB->RB_TIPIR <> '4'
nQtdDep++
Endif
SRB->( dbSkip(1) )
EndDo
EndIf
RestArea(aArea)
Return nQtdDep
Espero ter ajudado, ai é só chamar a Função nTotalDependentes := U_ContaDep(SRA->RA_MAT)
User Function ContaDep(cMatricula)
Local aArea := GetArea()
Local nQtdDep := 0
If SRB->(dbSetOrder(1), dbSeek(xFilial("SRB")+cMatricula))
While SRB->(!Eof()) .And. SRB->RB_FILIAL == xFilial("SRB") .And. SRB->RB_MAT == cMatricula
// Qtde Dependentes
If SRB->RB_TIPIR <> '4'
nQtdDep++
Endif
SRB->( dbSkip(1) )
EndDo
EndIf
RestArea(aArea)
Return nQtdDep
Espero ter ajudado, ai é só chamar a Função nTotalDependentes := U_ContaDep(SRA->RA_MAT)
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Tempo para a criação da página:0.109 segundos