Tempo aproximado para leitura:00:02:00 min
Dúvida
Como adicionar campos na tela temporária da Montagem de Carga OMSA200?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 12.1.17
Solução
Para a inclusão do campo e seu conteúdo, deve usar os pontos de entrada OM200GRV(), DL200TRB() e DL200BRW().
Exemplo de uso dos pontos de entrada.
#include'totvs.ch'
//////////////////////////////////////////////
User Function OM200GRV()
DBSelectArea("SC5")
DBSETORDER( 1 )
IF SC5->(DBSeek(xFilial("SC5")+TRBPED->PED_PEDIDO))
TRBPED->PED_TPFRET := SC5->C5_TPFRETE
MsUnlock()
ENDIF
Return Nil
//////////////////////////////////////////////
User Function DL200TRB()
Local aRet := PARAMIXB
AADD(aRet,{"PED_TPFRET" ,"C",2,2})
Return aRet
//////////////////////////////////////////////
User Function DL200BRW()
Local aRet := PARAMIXB
AADD(aRet, {"PED_TPFRET" , ,'Tipo Frete'} )
Return aRet
Saiba mais
0 Comentários