- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Situação Folha de Pagamento
×
Linguagem de Programação ADVPL
Perguntas Situação Folha de Pagamento
- digarrafa
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 31
- Obrigados Recebidos: 0
10 anos 9 meses atrás #21093
por digarrafa
Situação Folha de Pagamento foi criado 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.
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Situação Folha de Pagamento
Tempo para a criação da página:0.064 segundos