FieldPut

Descripción general

FieldPut requiere valor compatible y bloqueo como asignación directa. Devuelve valor asignado, no éxito completo de negocio. GitHub cambia quinto campo SA1 sin comprobar RecLock; adaptación usa tabla propia, localiza nombre, comprueba tipo/tamaño y escribe solo con lock. No sustituye validación ni errores de rutina completa. EDTRB es alias propio de prueba abierto; ED_COD, si se utiliza, es campo carácter de tamaño 10 del esquema didáctico. (TOTVS, s.f., ref. 1)

Sintaxis

FieldPut( nPos, xValue ) --> xRet

Parámetros

Ejemplo comentado

#Include "Protheus.ch"

User Function Ed385()
    Local nPosicion
    Local aEstructura
    Local cValor := "MUESTRA"
    If Select("EDTRB") > 0
        nPosicion := EDTRB->(FieldPos("ED_COD"))
        If nPosicion > 0 .And. !EDTRB->(Eof())
            aEstructura := EDTRB->(DBStruct())
            If aEstructura[nPosicion,2] == "C" .And. aEstructura[nPosicion,3] >= Len(cValor)
                // Escribir solo en registro de prueba bloqueado.
                If RecLock("EDTRB", .F.)
                    EDTRB->(FieldPut(nPosicion, cValor))
                    EDTRB->(MsUnlock())
                EndIf
            EndIf
        EndIf
    EndIf
Return Nil

Contenido relacionado