Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada localizado na rotina Critérios Descontos (OFIXA017). Tem como finalidade manipulação dos campos que devem ser exibidos por aba.

Localização:

Atualizações\Cad Gestão\Critérios Descontos (OFIXA017)

Eventos:

Static Function OFX0050031_NaoMostra(nFld)



Local cNaoMostra := ""

Do Case
    Case nFld == 1 // Promocao
        cNaoMostra := "VEN_FILIAL,VEN_CENCUS,VEN_CODMAR,VEN_CODCAI,VEN_GRUPEC,VEN_GRUDES,VEN_CLAFIN,VEN_MODVEI,VEN_ITEPER,VEN_PERQTD,VEN_GRUKIT,VEN_CODKIT,VEN_ITEDES,VEN_CONTAD,VEN_CODCLI,VEN_LOJA,VEN_TIPVEN,VEN_FORMUL,VEN_TIPNEG,VEN_FORPAG,VEN_MARPEC,VEN_CODLIN,VEN_CODFAM,VEN_CODVEM,"
    Case nFld == 2 // CAI
        cNaoMostra := "VEN_FILIAL,VEN_CENCUS,VEN_VALPRO,VEN_CODMAR,VEN_GRUPEC,VEN_GRUDES,VEN_CLAFIN,VEN_GRUITE,VEN_CODITE,VEN_MODVEI,VEN_QTDITE,VEN_PERQTD,VEN_ITEDES,VEN_ITEPER,VEN_PROMOCAO,VEN_GRUKIT,VEN_CODKIT,VEN_CONTAD,VEN_CODCLI,VEN_LOJA,VEN_TIPVEN,VEN_FORMUL,VEN_TIPNEG,VEN_FORPAG,VEN_PRODIA,VEN_MARPEC,VEN_CODLIN,VEN_CODFAM,VEN_PERDCP,VEN_CODVEM,VEN_SLDPRO,"
    Case nFld == 3 // Grupo de Peca
        cNaoMostra := "VEN_FILIAL,VEN_CENCUS,VEN_VALPRO,VEN_CODMAR,VEN_CODCAI,VEN_GRUDES,VEN_CLAFIN,VEN_GRUITE,VEN_CODITE,VEN_MODVEI,VEN_QTDITE,VEN_PERQTD,VEN_ITEDES,VEN_ITEPER,VEN_PROMOCAO,VEN_GRUKIT,VEN_CODKIT,VEN_CONTAD,VEN_CODCLI,VEN_LOJA,VEN_TIPVEN,VEN_FORMUL,VEN_TIPNEG,VEN_FORPAG,VEN_PRODIA,VEN_MARPEC,VEN_CODLIN,VEN_CODFAM,VEN_PERDCP,VEN_CODVEM,VEN_SLDPRO,"
    Case nFld == 4 // Grupo de Desconto
        cNaoMostra := "VEN_FILIAL,VEN_CENCUS,VEN_VALPRO,VEN_CODMAR,VEN_CODCAI,VEN_GRUPEC,VEN_CLAFIN,VEN_GRUITE,VEN_CODITE,VEN_MODVEI,VEN_QTDITE,VEN_PERQTD,VEN_ITEDES,VEN_ITEPER,VEN_PROMOCAO,VEN_GRUKIT,VEN_CODKIT,VEN_CONTAD,VEN_CODCLI,VEN_LOJA,VEN_TIPVEN,VEN_FORMUL,VEN_TIPNEG,VEN_FORPAG,VEN_PRODIA,VEN_MARPEC,VEN_CODLIN,VEN_CODFAM,VEN_PERDCP,VEN_CODVEM,VEN_SLDPRO,"
    Case nFld == 5 // Classificacao Financeira
        cNaoMostra := "VEN_FILIAL,VEN_CENCUS,VEN_VALPRO,VEN_CODMAR,VEN_CODCAI,VEN_GRUPEC,VEN_GRUDES,VEN_GRUITE,VEN_CODITE,VEN_MODVEI,VEN_QTDITE,VEN_PERQTD,VEN_ITEDES,VEN_ITEPER,VEN_PROMOCAO,VEN_GRUKIT,VEN_CODKIT,VEN_CONTAD,VEN_CODCLI,VEN_LOJA,VEN_TIPVEN,VEN_FORMUL,VEN_TIPNEG,VEN_FORPAG,VEN_PRODIA,VEN_MARPEC,VEN_CODLIN,VEN_CODFAM,VEN_PERDCP,VEN_CODVEM,VEN_SLDPRO,"
    Case nFld == 6 // Marca Linha Familia
        cNaoMostra := "VEN_FILIAL,VEN_CENCUS,VEN_VALPRO,VEN_CODMAR,VEN_CODCAI,VEN_GRUPEC,VEN_CLAFIN,VEN_GRUDES,VEN_GRUITE,VEN_CODITE,VEN_MODVEI,VEN_QTDITE,VEN_PERQTD,VEN_ITEDES,VEN_ITEPER,VEN_PROMOCAO,VEN_GRUKIT,VEN_CODKIT,VEN_CONTAD,VEN_CODCLI,VEN_LOJA,VEN_TIPVEN,VEN_FORMUL,VEN_TIPNEG,VEN_FORPAG,VEN_PRODIA,VEN_PERDCP,VEN_CODVEM,VEN_SLDPRO,"
EndCase

If ExistBlock("OX005CNM")
    cNaoMostra := ExecBlock("OX005CNM",.f.,.f.,{nFld,cNaoMostra})
Endif

Return cNaoMostra

Programa Fonte:

OFIXX005.PRW

Função:

OFX0050031_NAOMOSTRA()

Parâmetros:
NomeTipoDescrição

nFld

Numérico

Número da folder.

cNaoMostra

Caractere

String contendo a lista de campos que não serão apresentados em tela.

Retorno:
NomeTipoDescrição

cNaoMostra

Caractere

String contendo a lista de campos que não serão apresentados em tela.

Exemplo:

Include totvs.ch

User Function OX005CNM()



Local nFld := ParamIXB[1] //  1 - Promocao, 2 - CAI, 3 - Grupo de Peca, 4 - Grupo de Desconto, 5 - Classificacao Financeira, 6 - Marca Linha Familia
Local cNaoMostra  := ParamIXB[2] // Campos separados por ','.

MSGALERT("Ponto de entrada OX005CNM executado com sucesso!")

Return cNaoMostra