× Linguagem de Programação ADVPL

Perguntas Situação Folha de Pagamento

Mais
10 anos 2 meses atrás #21093 por digarrafa
Prezados bom dia.

Estou tentando adicionar na folha de pagamento o dado da situação do funcionário!

Fica na tabela SRA_SITFOLH, com as condições D=Demitido, A=Afastado, F=Férias, T=Transferido.

Para isso peguei a Gper040.PRW e editei da seguinte forma:

Onde temos
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Variaveis Utilizadas na funcao IMPR ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

Adicionei uma nova Váriável chamada sitF
e determinei um if da maneira abaixo:
Local sitF := ()
If SRA->RA_SITFOLH =="A"
aRet:= "Afastado"
ElseIf SRA->RA_SITFOLH == "D"
aRet:= "Demitido"
ElseIf SRA->RA_SITFOLH == "F"
aRet:= "Férias"
ElseIf SRA->RA_SITFOLH == "T"
aRet:= "Transferido"
ElseIf Empty(SRA->RA_SITFOLH)
aRet:= "Ativo"
Else
aRet:="Nao Encontrada"
EndIf
Return sitF

Depois onde tem a montagem do relatório fimprime adicionei o sitF dentro dos parênteses!

Achei eu que desta forma ocorreria de maneira correta a inclusão do dado mas ao tentar compilar deu o seguinte erro:

Error C2051 LOCAL declaration follows executable statement

Processo interrompido por erro FATAL de compilação.

Podem me ajudar a fazer os ajustes para que o mesmo funcione de maneira correta?

Grato.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.083 segundos
Joomla templates by a4joomla