Histórico da Página

//Exemplo de uma inclusão de Solicitação de ColetaUser Function TM460AUT()Local aCabecaCabec     := {}Local aItensaItens     := {}Local aLinhaaLinha     := {}Local aVeicaVeic      := {}Local aLinVeic := {}Local aCubaaCuba      := {}Local aLinCuba := {}                                                                        		PRIVATE lMsErroAuto := .F. //-- InclusaoAadd(aCabec,{"DT5_CODSOL","000000001"  ,Nil})Aadd(aCabec,{"DT5_DDD"     ,"011"        ,Nil})Aadd(aCabec,{"DT5_TEL"     ,"2099700020997000          "  "  ,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",2525            ,Nil})Aadd(aLinha,{"DUM_PESO"   ,10001000         ,Nil})Aadd(aLinha,{"DUM_VALMER",20002000         ,Nil})Aadd(aItens,aLinha)Aadd(aLinVeic,{"DVT_ITEM"      ,"01"   ,Nil})Aadd(aLinVeic,{"DVT_TIPVEI"   ,"01"   ,Nil})Aadd(aLinVeic,{"DVT_QTDVEI"   ,33        ,Nil})Aadd(aVeic,aLinVeic)Aadd(aLinCuba,{"DTE_QTDVOL"   ,2525      ,Nil})Aadd(aLinCuba,{"DTE_ALTURA"   ,1010      ,Nil})Aadd(aLinCuba,{"DTE_LARGUR"   ,1010      ,Nil})Aadd(aLinCuba,{"DTE_LARGUR"   ,1010      ,Nil})Aadd(aLinCuba,{"DTE_COMPRI"   ,1010      ,Nil})Aadd(aCuba,aLinCuba)MSExecAuto({|x,y,k,w,z| TMSA460(x,y,k,w,z)},aCabec,aItens,aVeic,aCuba,nOpcx3)If lMsErroAuto	 MostraErro()Else	 Alert("Concluido com sucesso !!!")EndIfReturn(.T.)b