Este Ponto de Entrada está localizado na rotina Operações (TMSA350), permite a inclusão de campos na tela de Informe de Quilometragem na rotina de Apontamento das Operações.

Executado na tela Informe da Quilometragem.

User Function TM350KMO()

Local aHeader:=Paramixb[1]
Local _lSaida:=Paramixb[2]
Local _aHeader:={}
Local _aAlter :={}


//-- Montagem do __aHeader vetor de retorno
aTam:=TamSX3("DTR_CODVEI") //-- Codigo do Veiculo
Aadd(_aHeader,{RetTitle("DTR_CODVEI"),"DTR_CODVEI" ,PesqPict("DTR","DTR_CODVEI",atam[1]),aTam[1],aTam[2],"",USADO, "C" ,"DTR"," "})
aTam:=TamSX3("DTR_MODVEI") //-- Descricao do Veiculo
Aadd(_aHeader,{RetTitle("DTR_MODVEI"),"DTR_MODVEI" ,PesqPict("DTR","DTR_MODVEI",atam[1]),aTam[1],aTam[2],"",USADO, "C" ,"DTR"," "})
aTam:=TamSX3("DTR_CODRB1") //-- Codigo do 1o.Reboque
Aadd(_aHeader,{RetTitle("DTR_CODRB1"),"DTR_CODRB1" ,PesqPict("DTR","DTR_CODRB1",atam[1]),aTam[1],aTam[2],"",USADO, "C" ,"DTR"," "})
aTam:=TamSX3("DTR_MODRB1") //-- Descricao do 1o.Reboque
Aadd(_aHeader,{RetTitle("DTR_MODRB1"),"DTR_MODRB1" ,PesqPict("DTR","DTR_MODRB1",atam[1]),aTam[1],aTam[2],"",USADO, "C" ,"DTR"," "})
aTam:=TamSX3("DTR_CODRB2") //-- Codigo do 2o.Reboque
Aadd(_aHeader,{RetTitle("DTR_CODRB2"),"DTR_CODRB2" ,PesqPict("DTR","DTR_CODRB2",atam[1]),aTam[1],aTam[2],"",USADO, "C" ,"DTR"," "})
aTam:=TamSX3("DTR_MODRB2") //-- Descricao do 2o.Reboque
Aadd(_aHeader,{RetTitle("DTR_MODRB2"),"DTR_MODRB2" ,PesqPict("DTR","DTR_MODRB2",atam[1]),aTam[1],aTam[2],"",USADO, "C" ,"DTR"," "})


Return _aHeader

Português(Brasil)

Versões_Anteriores

Todos

Todas

aHeader - Array contendo os campos do padrão.
lSaida - Se .T., indica uma atividade de saída. Caso contrário uma atividade de chegada.

Array contendo os campos a serem exibidos em tela

TMSA350