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
|