Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Facturación (SIGAFAT) - Punto de Entrada M468SD2 (MATA468N)

Duda
Punto de entrada M468SD2: Permite grabar información adicional en la tabla de Items de documentos de salida (SD2). El punto de entrada es ejecutado desde la función a468nGravD2 la cual se encuentra en la rutina MATA468N.

Ambiente
Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Facturación (SIGAFAT) - desde la versión 11

Solución
Ejemplo del punto de entrada M468SD2:

#INCLUDE "PROTHEUS.CH"

User Function M468SD2()
Local aAreaSD2 := SD2->(GetArea())
Local cContaRem := ""

dbSelectArea("SD2")
SD2->(dbSetOrder(3))
If SD2->(msSeek(xFilial("SD2") + SD2->D2_REMITO + SD2->D2_SERIREM + SF2->F2_CLIENTE + SF2->F2_LOJA + SD2->D2_COD + SD2->D2_ITEMREM))
cContaRem := SD2->D2_CONTA
EndIf
SD2->(RestArea(aAreaSD2))

If !Empty(cContaRem)
Reclock("SD2",.F.)
Replace SD2->D2_CONTA With cContaRem
MsUnlock()
EndIf
Return

Ver documentación en TDN: http://tdn.totvs.com/x/7IRn