Salve salve....
Ponto de entrada MT103NPC- ( Compras - Documento de Entrada )
MATA103-MT103NPC - Ponto de entrada para manipular o array de multiplas natureza
#include "TOTVS.CH"
/*/{Protheus.doc} NFEGDSEV
Ponto de entrada para manipular o array de multiplas natureza
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MT103NPC()
Local aHeadSEV := PARAMIXB[1] as array
Local aColsSEV := PARAMIXB[2] as array
Local aArea := GetArea() as array
Local cFilialSB1 := xFilial('SB1') as character
Local nX := 1 as numeric
Local fD1COD := GdFieldPos('D1_COD') as numeric
Local fD1XDESC := GdFieldPos('D1_XDESC') as numeric
SB1->( dbSetOrder( 1 ) )
For nX:=1 to Len( aCols )
SB1->( MsSeek(cFilialSB1) )
If fD1XDESC > 0
aCols[nX][fD1XDESC] := SB1->B1_DESC
Endif
Next nX
RestArea( aArea )
Return( aColsSEV )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima