Perguntas Acessar dados aCols num ponto de entrada

Segue Exemplo Usando o Mesmo Ponto de Entrada que vc utiliza ok.

Na verdade acabei de verificar ele roda após a gravação dos registros.

#Include "PROTHEUS.CH"
#include "rwmake.ch"

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³MT100AGR ºAutor ³Luiz Alberto º Data ³ 23/12/10 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³Gravacao de Informacoes complementares para titulos de impostos±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/

User Function MT100AGR()
Local cNota := SD1->D1_DOC
Local cSerie := SD1->D1_SERIE
Local cFornece := SD1->D1_FORNECE
Local cLoja := SD1->D1_LOJA
Local aAreaSD1 := SD1->(GetArea())
Local aAreaSB8 := SB8->(GetArea())
Local aAreaSB1 := SB1->(GetArea())
nRecSd1 := SD1->(Recno())

SD1->(DBSETORDER(1))

IF SD1->(DBSEEK(xFilial("SD1")+cNota+cSerie+cFornece+cLoja))
WHILE SD1->(!EOF()) .AND. SD1->D1_DOC+SD1->D1_SERIE+SD1->D1_FORNECE+SD1->D1_LOJA == cNota+cSerie+cFornece+cLoja

_cCod := SD1->D1_COD
_vQtde := SD1->D1_QUANT
_nValuni:= SD1->D1_VUNIT
_nIPI := SD1->D1_VALIPI
_nPIS := SD1->D1_VALIMP5
_nCOFINS := SD1->D1_VALIMP6

TRATAMENTO...

SD1->(DBSKIP())
ENDDO
ENDIF

SD1->(dbGoTo(nRecSd1))
Return .t.

Maravilha, depois coloca uma foto sua ai pra gente te conhecer melhor e divulga o site aos amigos.

Abraços.

substitui por MT100GE2

Exemplo:

User Function MT100GE2()
Local _aArea := GetArea()

_NF := SF1->F1_DOC+SF1->F1_SERIE

dbSelectArea("SE2")
dbSetOrder(1)//(13)
dbSeek(xFilial("SE2")+SD1->D1_DOC+SD1->D1_SERIE)//SD1->D1_SERIE+SD1->D1_DOC+DTOS(SD1->D1_DTDIGIT))

WHILE !EOF() .AND. _NF == SE2->E2_NUM + SE2->E2_PREFIXO
RecLock("SE2",.F.)
SE2->E2_CCUSTO := SD1->D1_CC
MsUnlock()
SE2->(dbSkip())
ENDDO

RestArea(_aArea)
Return