01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:ATFA251
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46030

02. DESCRIÇÃO

O ponto de entrada AF251CHP é chamado pela rotina AF251Chapa permitindo que usuário realize validações adicionais sobre a chapa informada, definindo assim se o sistema poderá ou não realizar a gravação dos dados.

03. DEMAIS INFORMAÇÕES


IF lRet .AND. !lRepete

	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
	//³ BOPS 00000120962 - CENTRALIZACAO DA VALIDACAO DA CHAPA E P.E.³
	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
	IF ExistBlock("AF251CHP")

		lRet := ExecBlock("AF251CHP",.F.,.F.,{cChapa,lRepete,nPosChapa,aCols})
		lRet := IIF(ValType(lRet) == "L",lRet,.F.)

	ELSE
		FOR i := 1 to Len(aCols)
			IF aCols[i][nPosChapa] == cChapa .And. i != nLinha
				Help(" ",1,"AFA010CHAP")
				lRet := .F.
				EXIT
			ENDIF
		NEXT
	ENDIF
ENDIF
User Function AF251CHP()

    Local cChapa := PARAMIXB[1]
    Local lRepete := PARAMIXB[2]
    Local nPosChapa := PARAMIXB[3]
    Local aCols := PARAMIXB[4]
    Local i
    Local lRet := .T.

    // Verifica se a chapa já foi registrada em uma linha anterior
    For i := 1 to Len(aCols)
        If aCols[i][nPosChapa] == cChapa
            lRet := .F.
        EndIf
    Next

Return lRet


  • Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
  • Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

04. ASSUNTOS RELACIONADOS