Tabela
DWM REGIAO CAPITAL / INTERIOR
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
DWM_FILIAL C 2 0 Filial N
DWM_EST C 2 0 Estado @! ExistCpo('SX5','12'+M->DWM_EST) 12 R N
DWM_TIPREG C 1 0 Tipo Regiao @! Pertence('12') .And. TMSAW30Vld() R 1=Capital;2=Interior N
DWM_CODREG C 6 0 Cod.Regiao @! ExistCpo('DUY',M->DWM_CODREG,1) .AND. TMSAW30Vld() DUY R N
DWM_DESREG C 30 0 Desc. Regiao @! If(Inclui,'',TmsPesqRegiao('DWM_CODREG','DWM_DESREG')) V N
DWM_TIPTRA C 1 0 Tipo Transp. @! Vazio() .Or. TMSValField('M->DWM_TIPTRA',.T.,'DWM_DESTPT') DLC R !Empty(M->DWM_TIPREG) .And. M->DWM_TIPREG='2' N
DWM_DESTPT C 30 0 Desc.Tp.Tran @! V N
DWM_PRIORI C 2 0 Prioridade 99 AllWaysTrue(M->DWM_PRIORI := StrZero(Val(M->DWM_PRIORI),Len(DWM->DWM_PRIORI))) R N
DWM_PROPCA C 1 0 Praca Praca @! R 1=Sim;2=Nao S
DWM_PROCPP C 1 0 Cap.Int.Pad. @! R 1=Sim;2=Nao N
DWM_PROCPI C 1 0 So Cap.Int. @! R 1=Sim;2=Nao N