Histórico da Página

//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_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.)b