||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