01. DADOS GERAIS
| Produto: | | Solucoes_totvs_cross |
|---|
| SolucaoCross | TOTVS Backoffice |
|---|
|
| Solucoes_totvs_parceirosexptotvs |
|---|
|
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | | Modulos_cross_segmentos |
|---|
| ModulosCrossSegmentos | TOTVS Backoffice (Linha Protheus) - Planejamento e Controle Orçamentário (SIGAPCO) |
|---|
|
| Modulos_totvs_prestadores_de_servicos |
|---|
|
|---|
| Função: | PCOA480 |
|---|
| País: | Brasil |
|---|
| Ticket: | Interno |
|---|
| Requisito/Story/Issue | DSERCTR1-46030 |
|---|
02. DESCRIÇÃO
Permite adicionar validações de usuário na rotina.
03. DEMAIS INFORMAÇÕES
| Bloco de código |
|---|
| language | cpp |
|---|
| theme | RDark |
|---|
| title | Manipulação de PE no sistema |
|---|
|
If ExistBlock("PCO480VLD")
lRet := ExecBlock("PCO480VLD",nGrade)
EndIf |
| Bloco de código |
|---|
| language | cpp |
|---|
| theme | RDark |
|---|
| title | Exemplo de PE |
|---|
|
User Function PCOA480
Local lRet := .T.
Local nGrade := PARAMIXB[1]
Local nPosiPerc := aScan(oGdRegra:aHeader, {|x| AllTrim(x[2]) == "ALO_PERC"})
Local nContItem := 0
If nGrade == 3
For nContItem := 1 to Len(oGdRegra:aCols)
nPercaCols := oGdRegra:aCols[nContItem,nPosiPerc]
If nPercaCols <> 0
// validacao do cliente
lRet := .F.
EndIf
Next
EndIf
Return lRet |
...
