Linha de Produto: | Microsiga Protheus®. | ||||
Segmento: | Serviços. | ||||
Módulo: | SIGAGPE. | ||||
Rotina: |
| ||||
País(es): | Brasil. |
Descrição: | Ponto de entrada executado ao final da gravação da montagem da avaliação, nesse momento, o sistema esta posicionado na tabela RD6, sendo possível validar as informações contidas nos campos da tabela ou, até mesmo executar uma atualização de um ou mais campos específicos. |
Localização: | SIGAAPD- Avaliações - Montagem |
Programa Fonte: | APDA270.PRW |
| Parâmetros: | PARAMIXB[1] - Código da Avaliação |
Retorno: | Nil |
Exemplos:
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
Exemplo de validação de campos da tabela RD6:
#INCLUDE "PROTHEUS.CH"
User Function APDMONTA()
Local cCodAval := PARAMIXB[1] // CODIGO DA AVALIACAO
Local aArea := GetArea()
Local lRet := .F.
If !Empty(cCodAval)
Help( ,, "Help",, + CRLF + "Código da avaliação preenchido.", 1, 0)
EndIf
RestArea(aArea)
Return Nil
Exemplo de alteração de campos da tabela RD6:
#INCLUDE "PROTHEUS.CH"
User Function APDMONTA()
Local cCodAval := PARAMIXB[1] // CODIGO DA AVALIACAO
Local cDescNova := "Nova Descrição"
Local aArea := GetArea()
Local lRet := .F.
If Reclock("SC6", .F.)
RD6->RD6_DESC := cDescNova
RD6->RD6_MENSAG := "N"
MsUnlock()
EndIf
RestArea(aArea)
Return Nil
|
