Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (stecca.silvio), última alteração em 05 ago, 2021

Ponto de Entrada APDMONTA para criar validações no cadastro de montagem de avaliação (APDA270).

Características do Requisito

Linha de Produto:

Microsiga Protheus®.

Segmento:

Serviços.

Módulo:

SIGAGPE.

Rotina:

Rotina

Nome Técnico

APDA270

Cadastro De Avaliações

País(es):

Brasil.

Ponto de Entrada

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:

APDMONTA
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