Histórico da Página

...

Portuguese

Pagetitle

	Rotina Automática TMSA460 - Solicitação de Coleta
	Rotina Automática TMSA460 - Solicitação de Coleta

Função: Rotina Automática TMSA460 - Solicitação de Coleta

Descrição:

A rotina automática TMSA460 tem como objetivo cadastrar os dados referentes às coletas que deverão ser realizadas.

Programa Fonte:

TMSA460

Sintaxe:

Rotina Automática TMSA460 - Solicitação de Coleta ( [ ] )

Retorno:

()

Observações

MSExecAuto({|x,y,k,w,z| TMSA460(x,y,k,w,z)},aCabec,aItens,aVeic,aCuba,nOpcx)

aCabec= Array composto de campos do cabeçalho

aItens = Array composto de campos dos Itens

aVeic = Array composto de campos de tipos de veiculos

aCuba = Array composto de campos de peso cubado

nOpcx = Opção selecionada

Exemplos

Exemplo:

//Exemplo de uma inclusão de Solicitação de

ColetaUser

Coleta
User Function TM460AUT()
Local

aCabec

aCabec

 := {}
Local aItens

 := {}
Local aLinha

:= {}
Local aVeic

:= {}
Local aLinVeic := {}Local aCuba

 := {}
Local aLinCuba := {}


PRIVATE lMsErroAuto := .F.



//--

InclusaoAadd

Inclusao
 Aadd(aCabec,{"DT5_

DDD

CODSOL","000000001" ,Nil})
 Aadd(aCabec,{"DT5_DDD" ,"011"

,Nil})
 Aadd(aCabec,{"DT5_TEL"

,"20997000

,Nil})

 
 Aadd(aCabec,{"DT5_CLIDES","SP0001"

,Nil})
 Aadd(aCabec,{"DT5_LOJDES","01"

 ,Nil})
 Aadd(aCabec,{"DT5_TIPTRA","1"

,Nil})
 Aadd(aCabec,{"DT5_CLIDEV","SP0003"

,Nil})
 Aadd(aCabec,{"DT5_LOJDEV","01" ,Nil})

Aadd(aCabec,{"DT5_TIPFRE","1" ,Nil})

 Aadd(aLinha,{"DUM_ITEM"

 ,"01"

,Nil})
 Aadd(aLinha,{"DUM_CODPRO","AUTO PECAS"

,Nil})
 Aadd(aLinha,{"DUM_CODEMB","CX"

,Nil})
 Aadd(aLinha,{"DUM_QTDVOL",25

,Nil})
 Aadd(aLinha,{"DUM_PESO"

 ,1000

,Nil})
 Aadd(aLinha,{"DUM_VALMER",2000

,Nil})
 Aadd(aItens,aLinha)

 Aadd(aLinVeic,{"DVT_ITEM"

,"01"

,Nil})
 Aadd(aLinVeic,{"DVT_TIPVEI"

,"01"

 ,Nil})
 Aadd(aLinVeic,{"DVT_QTDVEI"

,3

,Nil})
 Aadd(aVeic,aLinVeic)

 Aadd(aLinCuba,{"DTE_QTDVOL"

,25

,Nil})
 Aadd(aLinCuba,{"DTE_ALTURA"

,10

 ,Nil})
 Aadd(aLinCuba,{"DTE_LARGUR"

,10

,Nil})
 Aadd(aLinCuba,{"DTE_LARGUR"

,10

,Nil})
 Aadd(aLinCuba,{"DTE_COMPRI"

,10

 ,Nil})
 Aadd(aCuba,aLinCuba)

 MSExecAuto({|x,y,k,w,z| TMSA460(x,y,k,w,z)},aCabec,aItens,aVeic,aCuba,

nOpcx

3)
 If lMsErroAuto

 
  MostraErro()

Else


 Else 
  Alert("Concluido com sucesso !!!")

EndIfReturn


 EndIf

Return(.T.)

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

Array of Record

Árvore de páginas