CONTEÚDO
| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Backoffice |
| Módulo: | Planejamento e Controle Orçamentário |
| Rotina: | PCOA530 - Contingências |
Ponto de Entrada para validar a inclusão de contingências duplicadas.
Para o Ponto de Entrada ser acionado é necessário ter uma chave cadastrada no campo AKA_CHVCTG da tabela AKA.
O Ponto de Entrada é acionado após algumas validações padrão do sistema, assim é utilizado para criar validações adicionais.
| Nome | Tipo | Descrição |
| Paramixb[1] | Caracter | Chave da contingência a ser incluída. (Macro execução do campo "AKA_CHVCTG"). |
Nome | Tipo | Descrição |
lRet | Lógico | Retorna se a contingência for incluída (.T.) ou não(.F.) |
lContinua := ExecBlock("PCOA5306",.F.,.F.,{ cChave } )
If Valtype(lContinua)<>"L"
lContinua := .F.
EndIf |
User Function PCOA5306()
cChaveALI := Paramixb[1]
Alert("PCOA5306")
// Regra de Validação do Cliente
Return .T. //Libera a inclusao da contigencia |