Perguntas Ponto de Entrada no Doc de Entrada para manipular os Itens do Pedido de Compra

#include 'rwmake.ch'

/*****
*
* MT103IPC - Preenche campos da NF quando a NF de entrada é feita puxando-se o PC, total ou itens.
* - D1_OBS é preenchido com C7_OBS
* - D1_SISNCM é preenchido com o NCM do produto (SPED)
* - D1_CLASFIS é preenchido com a origem e classificaçao fiscal do produto (SPED)
*
*****/

User Function MT103IPC()

Local nposOBS, nposNCM, nposCLA
Local aArea := SB1->(GetArea())

nposOBS := ascan( aHeader,{ |aVal| Alltrim(aVal[2]) == "D1_OBS" } )
nposNCM := ascan( aHeader,{ |aVal| Alltrim(aVal[2]) == "D1_SISNCM" } )
nposCLA := ascan( aHeader,{ |aVal| Alltrim(aVal[2]) == "D1_CLASFIS" } )

SB1->(Dbsetorder(1)) // Filial + Codigo
SB1->(DbGoTop())
SB1->(dbSeek(xFilial("SB1") + SC7->C7_PRODUTO))

aCols[Len(aCols),nposOBS] := SC7->C7_OBS
aCols[Len(aCols),nposNCM] := SB1->B1_POSIPI
aCols[Len(aCols),nposCLA] := Subs(SB1->B1_ORIGEM,1,1) + SB1->B1_CLASFIS

SB1->(Restarea(aArea))

Return

Blz Bruno.

conta com a gente.

abraços