Cross Segmentos - TOTVS BackOffice (Línea Protheus) MI - Gestión de Servicios (SIGATEC) - Agregar información adicional en importación de bienes SIGAMNT - Punto de Entrada AT040GRV (TECA040)

Duda
¿Cuál es el punto de entrada para agregar información adicional en la importación de bienes SIGAMNT?

Ambiente
Cross Segmentos - TOTVS BackOffice (Línea Protheus) MI - Gestión de Servicios (SIGATEC) - Versión 12

Solución
Para agregar información adicional en el proceso de importación de bienes SIGAMNT, rutina Bases de Atención (TECA040); existe el punto de entrada AT040GRV, el cual fue habilitado con el objetivo de permitir adicionar información en el proceso de amarre Cliente x Equipamento.

Ejemplo de función de usuario:

#Include "PROTHEUS.CH"

User Function AT040GRV()
Local aAreaST9 := ST9->(GetArea())
Local nOpcImpB := PARAMIXB[1]

    If nOpcImpB == 1
        dbSelectArea("ST9")
        ST9->(DbSetOrder(1))
        If ST9->(MsSeek(xFilial("ST9") + AA3->AA3_CODBEM))
            RecLock("AA3",.F.)
                AA3->AA3_CODCLI := ST9->T9_CLIENTE
                AA3->AA3_LOJA := ST9->T9_LOJACLI
            AA3->( MsUnlock() )
        EndIf
    Endif
    RestArea(aAreaST9)

Return

Conozca más:
Para adquirir más conocimiento, acceda al siguiente enlace del portal TDN:

AT040GRV - Amarração Cliente x Equipamento