Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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


Abrangências:Protheus 10
Versões:Protheus 10
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Espanhol , Inglês


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 


Exemplo:
Exemplos
//Exemplo de uma inclusão de Solicitação de 
ColetaUser
Coleta
User Function TM460AUT()
Local aCabec   := {}
Local
aItens 
aItens 
 
:= {}
Local
aLinha 
aLinha 
 
:= {}
Local
aVeic   
aVeic := {}
Local aLinVeic := {}Local
aCuba   
aCuba := {}
Local aLinCuba := {}
                                               
 
PRIVATE lMsErroAuto := .F.


//-- Inclusao
InclusaoAadd
Aadd(aCabec,{"DT5_CODSOL","000000001"
 
 ,Nil})
Aadd(aCabec,{"DT5_DDD"
 
 
 
,"011"
   
 
 
,Nil})
Aadd(aCabec,{"DT5_TEL"
 
 
 
,"
20997000 
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       
25 ,Nil})
Aadd(aLinha,{"DUM_PESO"
 
 ,
1000 
1000 
   
,Nil})
Aadd(aLinha,{"DUM_VALMER",
2000 
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   
25 ,Nil})
Aadd(aLinCuba,{"DTE_ALTURA"
 
 ,
10   
10 ,Nil})
Aadd(aLinCuba,{"DTE_LARGUR"
 
 ,
10   
10 ,Nil})
Aadd(aLinCuba,{"DTE_LARGUR"
 
 ,
10 
10 
 
,Nil})
Aadd(aLinCuba,{"DTE_COMPRI"
 
 ,
10   
10 ,Nil})
Aadd(aCuba,aLinCuba)

MSExecAuto({|x,y,k,w,z| TMSA460(x,y,k,w,z)},aCabec,aItens,aVeic,aCuba,3)
If lMsErroAuto
MostraErro()
Else
Alert("Concluido com sucesso !!!")
EndIfReturn

EndIf

Return(.T.)
b

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência




Array of Record