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

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

Informações

icon	false
title	Exemplos

//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

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão 7

Chave