| 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. Sintaxe:Rotina Automática TMSA460 - Solicitação de Coleta ( [ ] ) ObservaçõesMSExecAuto({|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 | Informações |
|---|
| //inclusão de Solicitação de
Exemplo://Exemplo de uma inclusão de Solicitação de Coleta
User Function TM460AUT()
Local aCabec := {}
Local aItens := {}
Local aLinha := {}
Local aVeic := {}
Local aLinVeic := {}Local aCuba := {}
Local aLinCuba := {}
PRIVATE lMsErroAuto := .F.
//-- Inclusao
Aadd(aCabec,{"DT5_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,3)
If lMsErroAuto
MostraErro()
Else
Alert("Concluido com sucesso !!!")
EndIf
Return(.T.)
Parâmetros:
| Nome |
|
| Tipo |
|
| Descrição |
|
| Default |
|
| Obrigatório |
|
| Referência |
|
|
|
|
| Array of Record |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
