NGF713GRV – Permite grabar datos complementarios en la transmisión de las boletas

#INCLUDE "totvs.ch"

/*/{Protheus.doc} User Function NFG713GRV
    Realiza grabaciones complementarias durante la ejecución del job de transmisión de las boletas
    rregistrados On Line (API), en la llamada del PE las tablas involucradas en el proceso estarán posicionadas
    (SE1, SEA, SA6, SEE e etc...) Si es necesario cambiar la posición de las tablas, recuerde de utilizar
    el FwGetArea e FwRestArea, garantizando así la integridad del job
    @type  Function
    @author Totvs
    @since 26/07/2023
    @version 1.0
    @see https://tdn.totvs.com/pages/viewpage.action?pageId=780009506
/*/
User Function NFG713GRV()
    Local aArea := FwGetArea()

    If SEA->EA_TRANSF == 'F' //Boleta no se transmitió
        /*
            Realice grabaciones complementarias
        */
        RecLock("SE1", .F.)
            SE1->E1_XPTO = "Boleta no se transmitió"
        SE1->(MsUnLock())
    Else
        /*
            Realice grabaciones complementarias
        */
        RecLock("SE1", .F.)
            SE1->E1_XPTO = "Boleta transmitida"
        SE1->(MsUnLock())
    Endif

    FwRestArea(aArea)
Return