Perguntas INCLUIR CAMPO PEDIDO DE COMPRA

Hola colegas:

¿Alguien sabe como puedo agregar un campo en el encabezado de pedido de compra?

Supongo que es por medio de un punto de entrada.

Saludos.

#INCLUDE "rwmake.ch"
#include "protheus.ch"

/*/
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³MT120TEL º Autor ³ AP6 IDE º Data ³ 02/01/08 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ PONTO DE ENTRADA PARA INCLUSAO DE CAMPOS NA TELA º±±
±±º ³ DO PEDIDO DE COMPRA º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP6 IDE º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
/*/

USER FUNCTION MT120TEL()

Local odlg1 := PARAMIXB[1]
Local aPosGet := PARAMIXB[2]
Local aObj := PARAMIXB[3]
Local nOpcx := PARAMIXB[4]
LOCAL cTIPPGTO
LOCAL aTIPPGTO
PUBLIC TCEPGTO

MsSeek(xFilial("SC7")+M->cA120Num,.F.)

IF INCLUI
TCEPGTO:=SPACE(1)
ELSE
TCEPGTO:=SC7->C7_TCEPGTO // campo de usuario incluído no sistema
ENDIF

SX3->(dbSetOrder(2))
SX3->(dbSeek("C7_TCEPGTO"))
If SX3->(Found())
cTipPgto := AllTrim(X3CBOX())
cTipPgto := '{"'+StrTran(cTipPgto,';','","')+'"}'
aTipPgto := &(cTipPgto)
Else
aTipPgto := {}
EndIf

SX3->(dbSetOrder(1))

@ 045,aPosGet[1,7]-30 SAY "Tp Compra: " OF odlg1 PIXEL SIZE 080,007
@ 043,aPosGet[1,7] MSCOMBOBOX oTCEPGTO VAR TCEPGTO ITEMS aTipPgto PIXEL SIZE 040,004 WHEN CheckRec() VALID CheckTP()

RETURN

//=======================
static function CheckTP()
//=======================
IF ALLTRIM(TCEPGTO)=""
MSGBOX("O tipo da compra é obrigatório","TIPO DA COMPRA","STOP")
RETURN(.f.)
ENDIF
RETURN(.t.)

Muchas Gracias Fabio!!!

Boa Tarde Fabio,

Estou utilizando este exemplo que passou, só me surgiu uma dúvida, ali na função que você colocou CheckRec(), tem que criar alguma coisa pra ela? pois aqui fica dando mensagem que a função não existe.

Obrigado.

Olá Rodrigo.

Desculpe, não coloquei o código desta outra função que tem o objetivo de checar se houve recebimento e impedir o uso do campo quando o pedido já foi atendido.

Segue abaixo:


//=======================
static function CheckRec()
//=======================

wArea := Alias() // guarda a area corrent p/ retornar no final do prg
wOrdem := IndexOrd()
wreg := recno()

DBSELECTAREA("SC7")
DBSETORDER(1)
SET SOFTSEEK ON
DBSEEK(XFILIAL("SC7")+M->CA120NUM)
SET SOFTSEEK OFF

RECEBIDO:=0
WHILE !EOF().and.SC7->C7_FILIAL=XFILIAL("SC7").AND.SC7->C7_NUM==M->CA120NUM
RECEBIDO:=RECEBIDO+SC7->C7_QUJE
DBSKIP()
END

RETORNA:=.T.
IF RECEBIDO>0
RETORNA:=.F.
//alert("falso")
ENDIF

DBSELECTAREA(wArea)
dbsetorder(wOrdeM)
dbgoto(wreg)

RETURN(RETORNA)