#INCLUDE "rwmake.ch" #INCLUDE "PROTHEUS.CH" USER FUNCTION LxDOrigNf()
LOCAL nPosPeso := AScan( aHeader, { |x| AllTrim( x[2] ) == "D2_PESO" } )
If nPosPeso > 0 aCols[ nLenAcols, nPosPeso ] := SD2 -> D2_PESO EndIf
alert("PE LxDOrigNf ejecutado!!!")
Return NIL
|