Histórico da Página
...
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: Rotina Automática TMSA460 - Solicitação de Coleta
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 Sintaxe: Rotina Automática TMSA460 - Solicitação de Coleta ( [ ] ) Informações |
User Function Exemplo: //Exemplo de uma inclusão de Solicitação de Coleta aCabec := {} Local aCuba := {} Local aLinCuba := {} PRIVATE lMsErroAuto := .F 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 !!!") EndIfReturn(.T . Parâmetros:
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas