Histórico da Página

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

<Informar a Situação/Requisito para adicionar ao Confluence>Criar ponto de entrada que permita a troca de verbas na geração dos arquivos 7 - Verbas Remuneratórias e 8 - Folha Ordinária utilizadas na AUDESP

03. SOLUÇÃO

...

Ponto de Entrada GP920TP7

Este Ponto de Entrada permite que o usuário realize a troca de verbas no momento da geração dos arquivos 7 - Verbas Remuneratórias e 8 - Folha Ordinária utilizadas na AUDESP

        cCodVerb := ExecBlock("GP920TP7",.F.,.F.,{SRV→RV_COD})

       Exemplo de Utilização

          UserFunction GP920TP7()

Local aSaveArea := GetArea()
Local aParam        := PARAMIXB
Local cCodAnt       := ""
Local cCodAud       := ""

If aParam <> NIL      
    cCodAnt    := aParam[1]
    cCodAud    := cCodAnt
    If cCodAnt == "112"
        cCodAud := "X12"
    ElseIf  cCodAnt == "417"
        cCodAud := "X17"
    ElseIf  cCodAnt == "419"
        cCodAud := "X19"
    EndIf
EndIf

//Exemplo caso seja utilizado um novo campo de usuario, posicionar na tabela SRV
/*
 cFil := xFilial("SRV")
 dbSelectArea("SRV")
 dbSetOrder(1)
 If dbSeek(cFil+cCodAnt)
    cCodAud := "SRV->NOVOCAMPO"
 Else
    cCodAud := cCodAnt
Endif */

RestArea(aSaveArea)

Return(cCodAud)

       Parâmetros/Retorno

Parâmetro de envio

       Retorno

04. DEMAIS INFORMAÇÕES

Não se aplica

...