Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Servicios

Módulo:

TOTVS Backoffice (Línea Protheus) - Activo fijo (SIGAATF)

Función:

ATFA251

País:

Brasil

Ticket:

Interno

Requisito/Story/Issue

DSERCTR1-46030

02. DESCRIPCIÓN

El punto de entrada AF251CHP se llama por medio de la rutina AF251Chapa, esto permite al usuario realizar validaciones adicionales en la placa informada, definiendo así si el sistema puede realizar o no la grabación de datos.

03. OTRAS INFORMACIONES


Manejo de PE en el sistema
IF lRet .AND. !lRepete

	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
	//³ BOPS 00000120962 - CENTRALIZACIÓN DE LA VALIDACIÓN DE LA PLACA Y 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
Ejemplo de PE
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 si la placa ya se registró en una línea anterior
    For i := 1 to Len(aCols)
        If aCols[i][nPosChapa] == cChapa
            lRet := .F.
        EndIf
    Next

Return lRet


¡Importante!

  • Se observa que la utilización del PE y los impactos de este en el sistema son de responsabilidad del cliente.
  • Los ejemplos utilizados en esta documentación solamente son para fines de demostración, cada cliente debe verificar qué comportamiento desea realizar de acuerdo con el alcance del punto de entrada.

04. ASUNTOS RELACIONADOS

  • No se aplica.