TMKA061 - Rotina Automática de Lista de Contatos

Segue exemplo para criação de lista de contatos através de rotina automática.

#include "tbiconn.CH"

User Function ttmka061()

/*
Array aAutoCab - Estrutura do SU4 para rotinas automaticas

01 U4_FILIAL     Filial
02 U4_LISTA      Codigo sequencial da lista
03 U4_DESC       Descricao da lista
04 U4_DATA       Data de vigencia
05 U4_TIPO       Tipo de lista(1-Marketing / 2-Cobranca / 3- Vendas)
06 U4_FORMA      Tipo de Contato (1-Voz/2-Fax/3-Cross Posting/4-Mala direta 5-Pendencia 6-WebSite)
07 U4_TELE       1-Telemarketing/ 2-Televendas/ 3-Telecobranca/ 4-Ambos (Legado)- USO INTERNO-8.11
08 U4_OPERAD     Operador
09 U4_CONFIG     Codigo da Configuracao Telemarketing
10 U4_TIPOTEL     Tipo de telefone( 1-Residencial/ 2-Celular/ 3-Fax/ 4-Comercial 1/ 5- Comercial 2)
11 U4_MALADIR    Arquivo de mala direta
12 U4_TIPOEND    Endereco para mala direta
13 U4_LABEL      Etiqueta (1-Sim / 2-Nao)
14 U4_ETIQUET    Arquivo de Etiqueta
15 U4_CODCAMP    Codigo da campanha
16 U4_SCRIPT     Codigo do script
17 U4_EVENTO     Codigo do evento
   
   
Array aAutoItens - Estrutura do SU6 para rotinas automaticas

01 U6_FILIAL     Filial
02 U6_LISTA      Codigo sequencial da lista
03 U6_CODIGO     Codigo da ligacao
04 U6_FILENT     Filial da entidade
05 U6_ENTIDA     Entidade
06 U6_CODENT     Codigo da entidade
07 U6_ORIGEM     Origem (1-Lista/ 2-Manual /3-Atendimento)
08 U6_CONTATO    Contato
09 U6_DATA       Data
10 U6_HRINI      Hora inicial
11 U6_HRFIM      Hora final
12 U6_STATUS     Status(1-Nao enviado /2- Em uso/ 3-Enviado)
13 U6_CODLIG     Codigo da ligacao efetuada
*/        

Local aCab,aItens,aItem
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "TMK" TABLES "SU4","SU6","SA1","SU5","SU0","SLG","SK0","SU7","SYP","AC8"

// Cabecalho           
aCab := {    {"U4_FILIAL"    ,    ""              ,    NIL},;  
            {"U4_TIPO"        ,    "3"                ,    NIL},;
            {"U4_STATUS"    ,    "1"                ,    NIL},;
            {"U4_LISTA"        ,    "000002"        ,    NIL},;
            {"U4_DESC"        ,    "EXECAUTO 001"    ,    NIL},;
            {"U4_DATA"        ,    date()            ,    NIL},;
            {"U4_FORMA"        ,    "1"                ,    NIL},;
            {"U4_TELE"        ,    "2"                ,    NIL},;
            {"U4_OPERAD"    ,    "000001"        ,    NIL},;
            {"U4_CONFIG"    ,   Space(Len(SU4->U4_CONFIG))    ,NIL},;
            {"U4_TIPOTEL"    ,    "5"                ,    NIL}}
           
/*        {"U4_CONFIG"    , Space(Len(SU4->U4_CONFIG))    ,NIL},;
            {"U4_TIPOTEL" , "2"                            ,NIL},;
            {"U4_MALADIR" , Space(Len(SU4->U4_MALADIR))    ,NIL},;
            {"U4_TIPOEND" , Space(Len(SU4->U4_TIPOEND))    ,NIL},;
            {"U4_LABEL"   , Space(Len(SU4->U4_LABEL))        ,NIL},;
            {"U4_ETIQUET" , Space(Len(SU4->U4_ETIQUET))    ,NIL},;
            {"U4_CODCAMP" , Space(Len(SU4->U4_CODCAMP))    ,NIL},;
            {"U4_SCRIPT"  , Space(Len(SU4->U4_SCRIPT))    ,NIL},;
            {"U4_EVENTO"  , Space(Len(SU4->U4_EVENTO))    ,NIL} }
*/

// Itens
aItens := {}             
           
// Primeiro item
aItem := {    {"U6_FILIAL"    ,    ""                            ,    NIL},;
            {"U6_LISTA"        ,    "000002"                    ,    NIL},;
            {"U6_CODIGO"    ,    "000001"                    ,    NIL},;
            {"U6_CONTATO"    ,    "000002"                    ,    NIL},;                   
            {"U6_ENTIDA"    ,    "SA1"                        ,    NIL},;
            {"U6_CODENT"    ,    "00000101                 "    ,    NIL},;
            {"U6_ORIGEM"    ,    "2"                            ,    NIL},;
            {"U6_DATA"        ,    dDataBase                    ,    NIL},;                   
            {"U6_HRINI"        ,    "09:00"                        ,    NIL},;
            {"U6_HRFIM"        ,    "17:00"                        ,    NIL},;                                                 
            {"U6_STATUS"    ,    "1"                            ,    NIL},;                                                           
            {"U6_CODLIG"    ,    "      "                    ,    NIL},;                                                           
            {"U6_DTBASE"    ,   dDataBase                    ,    NIL} }
aAdd( aItens, aClone(aItem) )         
                                      
// Segundo item
/*
aItem := {    {"U6_FILIAL"  ,  xFilial("SU6")    , NIL},;
                        {"U6_LISTA"     , cCodLista              , NIL},;
                        {"U6_CODIGO"  , "000449"                     , NIL},;
                        {"U6_FILENT"     , space(2)                     , NIL},;
                        {"U6_ENTIDA"  , "SA1"                        , NIL},;
                        {"U6_CODENT"  , "00000103                 "     , NIL},;
                        {"U6_ORIGEM"  , "1"                            , NIL},;
                        {"U6_CONTATO" , "000090"                        , NIL},;                   
                        {"U6_DATA"    , dDataBase                     , NIL},;                   
                        {"U6_HRINI"   , "09:00"                       , NIL},;
                        {"U6_HRFIM"   , "17:00"                       , NIL},;                                                 
                        {"U6_STATUS"  , "1"                           , NIL},;                                                           
                        {"U6_CODLIG"  ,"      "                       , NIL} }

aAdd( aItens, aClone(aItem) )         
*/

//-- Executa inclusao
MSExecAuto({|x,y,z| TMKA061(x,y,z)},aCab,aItens,3)

If lMsErroAuto

    Mostraerro()
    Return NIL

EndIf

ALERT("FIM")

RESET ENVIRONMENT

Return NIL