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 |
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.
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
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!