| Produto: |
TOTVS Backoffice
|
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Serviços |
| Módulo: | TOTVS Backoffice (Linha Protheus) - Planejamento e Controle Orçamentário (SIGAPCO)
|
| Função: | PCOA190 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada PCO190SG é utilizado para permitir que o usuário configure as pré-configurações de cubo, relacionadas aos campos de usuário personalizados implementados no sistema. Este ponto possibilita adaptações específicas para atender às necessidades particulares de configuração dos cubos.
If ExistBlock('PCO190SG')
aConfUsr := ExecBLock('PCO190SG')
If ValType(aConfUsr) == "A"
For nX :=1 To Len(aConfUsr)
aAdd(aParametros[1][4],aConfUsr[nX][1])
Next
Endif
Endif
User Function PCO190SG()
Local aRet := {}
Aadd(aRet,{'Plano de execução',{}}) //Texto para apresentar nas opções
//Valores default para cada campo do AKW
aRet[Len(aRet),2] := {;
{'AKW_DESCRI' , 'PT' },;
{'AKW_CHAVER' , 'AKD->AKD_XPLANO' },;
{'AKW_TAMANH' , LEN(AKD->AKD_XPLANO) },;
{'AKW_ALIAS' , 'SZF' },;
{'AKW_F3' , 'SZF' },;
{'AKW_RELAC' , 'SZF->ZF_CODIGO' },;
{'AKW_DESCRE' , 'SZF->ZF_DESC' },;
{'AKW_OBRIGA' , '1' }}
Aadd(aRet,{'Atividade',{} })
aRet[Len(aRet),2] := {;
{'AKW_DESCRI' , 'Atividade' },;
{'AKW_CHAVER' , 'AKD->AKD_XATIVI' },;
{'AKW_TAMANH' , LEN(AKD->AKD_XATIVI) },;
{'AKW_ALIAS' , 'SZA' },;
{'AKW_F3' , 'SZA' },;
{'AKW_RELAC' , 'SZA->ZA_CODIGO' },;
{'AKW_DESCRE' , 'SZA->ZA_DESC' },;
{'AKW_OBRIGA' , '1' }}
Return aRet
Importante !!