Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
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

 

Exemplos
//Exemplo de uma inclusão de Solicitação de ColetaUser Function TM460AUT()Local aCabec   := {}Local aItens   := {}Local aLinha   := {}Local aVeic    := {}Local aLinVeic := {}Local aCuba    := {}Local aLinCuba := {}                                                		PRIVATE lMsErroAuto := .F. //-- InclusaoAadd(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(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)If lMsErroAuto	MostraErro()Else	Alert("Concluido com sucesso !!!")EndIfReturn(.T.)
Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
Array of Record