Histórico da Página

#include 'protheus.ch'

User Function DL200TRB()
	Local aRet 	:= PARAMIXB

	aAdd(aRet,{"PED_TRANSP", "C", 6, 0})
	aAdd(aRet,{"PED_TRDESC", "C", 40, 0})

Return aRet

#include 'protheus.ch'

User Function OM200GRV()
	Local cTransp := ""
	Local cTrDesc := ""

	TRBPED->(DbGoTop()) 
	Do While TRBPED->(!Eof())
		cTrDesc := ""
		SC5->(DbSetOrder(1))
		If SC5->(DbSeek(FwxFilial("SC5") + TRBPED->PED_PEDIDO))
			cTransp := SC5->C5_TRANSP
			If !Empty(cTransp)
				SA4->(DbSetOrder(1))
				If SA4->(DbSeek(FwxFilial("SA4") + SC5->C5_TRANSP))
					cTrDesc := SA4->A4_NOME
				EndIf
				If RecLock("TRBPED", .F.)
					TRBPED->PED_TRANSP := cTransp
					TRBPED->PED_TRDESC := cTrDesc
					TRBPED->(MsUnlock())
				EndIf
			EndIf
		EndIf
		TRBPED->(DbSkip()) 
	EndDo
Return