Árvore de páginas

Versões comparadas

Chave

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

...

//inclusão de Solicitação de

Exemplo:
//Exemplo de uma inclusão de Solicitação de Coleta
User Function TM460AUT()
Local
aCabec
 aCabec   := {}
Local aItens := {}
Local aLinha := {}
Local aVeic := {}
Local aLinVeic := {}

Local aCuba := {}
Local aLinCuba := {}
Private
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:


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

Informações
iconfalse
titleExemplos

Nome

Tipo

Descrição

Default

Obrigatório

Referência




Array of Record