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