||Descrição|| TMKA260 - Rotina automática de Prospect  
||Observações|| Rotina automática para geração e manutenção de prospects no módulo de Call Center
||Exemplos||#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
User Function MyTMK260()  
Local aVetor := \{\}
PRIVATE lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "TMK" TABLES "SUS"
aVetor:=\{\{"US_COD"       ,"888888"             ,Nil\},;
\{"US_LOJA"      ,"01"                       	,Nil\},;
\{"US_NOME"      ,"INC. AUTOMATICO"  			,Nil\},;
\{"US_NREDUZ"    ,"AUTOMATICO"                   ,Nil\},;
\{"US_TIPO"      ,"R"                            ,Nil\},;
\{"US_END"       ,"RUA AUTOMATICA"               ,Nil\},;
\{"US_MUN"       ,"SAO AUTOMATICO"               ,Nil\},;
\{"US_EST"       ,"SP"                           ,Nil\}\}

MSExecAuto(\{\|x,y\| TMKA260(x,y)\},aVetor,3) //3- Inclusão, 4- Alteração, 5- Exclusão

If lMsErroAuto
                Alert("Erro")
Else
                Alert("Ok")
Endif

Return
||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Versões_Anteriores
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| 
||Retorno|| 
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| TMKA260.PRW