Perguntas Novas Necessidades

Lucas vc pode utilizar um ponto de entrada na entrada da nota fiscal de entrada, varrer os itens e atualizar o cadastro do produto especifico. bom é o que entendi rsrs

#include "rwmake.ch"

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³MT100AGR ºAutor ³Microsiga º Data ³ 14/09/04 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³Grava campos específicos da Nota na tabela SB1. º±±
±±º ³Ponto de entrada após a gravação da Nota de Entrada. º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±º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())

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
IF SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+SD1->D1_COD))
IF RECLOCK("SB1",.F.)
SB1->CAMPO VALOR := SD1->D1_VUNIT + SD1->D1_VALIPI //
MSUNLOCK()
ENDIF
ENDIF
SD1->(DBSKIP())
ENDDO
ENDIF

RestArea(aAreaSB8)
RestArea(aAreaSD1)
RestArea(aAreaSB1)

Return Nil

Este ponto de entrada irá percorrer todos os itens das notas fiscais de entrada, localizar o produto na SB1 e atualizar o seu novo campo, porém precisa tratar quais notas deverão ser utilizadas para atualização deste campo, tipo um TES especifica, ou um Fornecedor especifico, etc, e qual campo deverá atualizar seu novo campo no cadastro de produto.