TMKA062 - Rotina Automática de Lista de Cobrança

User Function MyTMK062()Local aCab 		:= {}Local aItem 	:= {}Local aItens 	:={}Local cLista	:= '000147'AADD(aCab, {"U4_FILIAL", xFilial("SU4"),nil} ) AADD(aCab, {"U4_LISTA", cLista,nil} )AADD(aCab, {"U4_DESC", "LISTA - ROTINA AUTOMATICA",nil} )AADD(aCab, {"U4_DATA", CTOD('11/01/2012'),nil} )AADD(aCab, {"U4_TIPO", "2",nil} )      				//(TIPO DE LISTA) 1-MARKETING,2-COBRANÇA,3-VENDASAADD(aCab, {"U4_STATUS", "1",nil} )                   AADD(aCab, {"U4_FORMA", "1",nil} ) 					//(MODE DE INRERACAO) 1-VOZ,2-FAX,3-CROSS,4-MALA,5-PEND,6-WEB SITEAADD(aCab, {"U4_TELE", "3",nil} )      				//(ROTINA DE ATEND) 1-VENDAS,2-MARKETING,3-COBRANÇA,AADD(aCab, {"U4_OPERAD", "000002",nil} )AADD(aCab, {"U4_TIPOTEL", "1",nil} )   				//1-RESID.,2-CELULAR,3-FAX,4-COM1,5-COM2AADD(aItem,{ "U6_FILIAL", xFilial("SU4"),Nil } )AADD(aItem,{ "U6_LISTA", cLista,Nil } )AADD(aItem,{ "U6_ENTIDA", "SA1",Nil } ) 	   		//(ENTIDADE) EX:SA1AADD(aItem,{ "U6_CODENT", "00000801",Nil } )   		//(CODIGO DA ENTIDADE-AC8)AADD(aItem,{ "U6_ORIGEM", "1",Nil } )          		//(Origem) 1-Lista/ 2-Manual /3-AtendimentoAADD(aItem,{ "U6_CONTATO", "000011",Nil } )  AADD(aItem,{ "U6_DATA", CTOD('11/01/2012'),Nil } )AADD(aItem,{ "U6_STATUS", "1",Nil } )AADD(aItens,aItem)aItem := {}AADD(aItem,{ "U6_FILIAL", xFilial("SU4"),Nil } )AADD(aItem,{ "U6_LISTA", cLista,Nil } )AADD(aItem,{ "U6_ENTIDA", "SA1",Nil } )AADD(aItem,{ "U6_CODENT", "00000901",Nil } )AADD(aItem,{ "U6_ORIGEM", "1",Nil } )AADD(aItem,{ "U6_CONTATO", "000011",Nil } )AADD(aItem,{ "U6_DATA", CTOD('11/01/2012'),Nil } )AADD(aItem,{ "U6_STATUS", "1",Nil } )AADD(aItens,aItem)Private lMsErroAuto	:= .F.	MSExecAuto( {|x,y,z| TMKA062(x,y,z)}, aCab, aItens, 3 )If lMsErroAuto 	Mostraerro()Else	Alert('Lista incluida com sucesso.')	EndIf   Return