home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / freedomc_112 / sourcecode / freedomcall / freeextern.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-05-27  |  140.3 KB  |  3,817 lines
  1. /*
  2.   PROGRAMA   : Freedom Call
  3.   UNIT       : FreeExtern.c
  4.   AUTOR      : Cristian Robert Gallas (SuRRouND)
  5.   DATA       : 01/02/1998 a 21.05.1999
  6.   S.O.       : Workbench & AmigaDos
  7.   LINGUAGEM  : SAS C 6.58 + MUI Library
  8.   PLATAFORMA : Amiga ECS & AGA
  9.   DEPENDE    : Mui 3.7+, 2 mb+
  10. */
  11.  
  12. #include <surround.h>
  13. #include "freedom.h"
  14. #include "freegui.h"
  15. #include "freemain.h"
  16. #include "freeextern.h"
  17.  
  18. #include <fcntl.h>
  19. #include <exec/memory.h>
  20. #include <proto/muimaster.h>
  21. #include <clib/alib_protos.h>
  22. #include <clib/dos_protos.h>
  23. #include <clib/exec_protos.h>
  24. #include <libraries/mui.h>
  25. #include <libraries/asl.h>
  26.  
  27. CarregaPilhaCategorias(char categoria[256])
  28. {
  29.   /* CARREGA OS LIMITES PARA UMA VARIAVEL GLOBAL */
  30.   char *categorydir, a, teste[256], lecateg[256];
  31.   int x = 0, pos = 0;
  32.   FILE *entrada;
  33.  
  34.   get(App->CategDiretorio, MUIA_String_Contents, &categorydir);
  35.   sprintf(lecateg, "%s/%s", categorydir, categoria);
  36.  
  37.   if(!(entrada = fopen(lecateg, "r")))
  38.     return 0;
  39.  
  40.   x = 0; pos = 0;
  41.   while(a = getc(entrada), ! feof(entrada))
  42.   {
  43.     teste[x++] = a;
  44.     if(a == '\n') {
  45.       teste[--x] = '\0';
  46.       strcpy(pilha[pos++], teste);
  47.       teste[0] = '\0'; x = 0; }
  48.   }
  49.   pilhafim = --pos;
  50.   fclose(entrada);
  51. }
  52.  
  53. int CarregaBarraStatus(void)
  54. {
  55.   /* CARREGA A DATA DE HOJE NA BARRA DA JANELA GRAFICA */
  56.   char teste[256], dia[20];
  57.   strcpy(dia, DataHora(0));
  58.  
  59.   sprintf(teste, "\033r%s, of %s %s (%s)", Corta(dia, '.', 0), DescricaoMesFREE(atoi(Corta(dia, '.', 1)), 1), Corta(dia, '.', 2), DiaSemanaFREE(dia, 1));
  60.   set(App->Janela2StatusBar, MUIA_Text_Contents, teste);
  61.   return NULL;
  62. }
  63.  
  64. int CarregaLista(struct Hook *objeto, char arq[256])
  65. {
  66.   /* ESTA ROTINA CARREGA APARTIR DE UM ARQUIVO UMA LISTA FLOAT TEXT */
  67.   APTR *text;
  68.   long filesize = 0;
  69.   BPTR entrada;
  70.  
  71.   set(objeto, MUIA_Floattext_Text, NULL);
  72.   if(!(entrada = Open(arq, MODE_OLDFILE)))
  73.     return 0;
  74.   filesize = atof(ExaminaArquivo(arq, 0));
  75.   text = AllocVec(filesize+1, MEMF_ANY|MEMF_CLEAR);
  76.   text[filesize] = '\0';
  77.  
  78.   Read(entrada, text, filesize);
  79.   Close(entrada);
  80.  
  81.   set(objeto, MUIA_Floattext_Text, text);
  82.   FreeVec(text);
  83.   return NULL;
  84. }
  85.  
  86. int TestaPedidoRegistro(void)
  87. {
  88.   /* VERIFICA SE AS INFORMACOES DO PEDIDO DE REGISTRO SAO VALIDAS
  89.      RETORNA: 
  90.      0 - INFORMACOES EM BRANCO
  91.      1 - INFORMACOES INVALIDAS
  92.     -1 - OK */
  93.   char *regemail, *regname, *regcountry, *regcity, *regnumber;
  94.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  95.   get(App->RegisterName, MUIA_String_Contents, ®name);
  96.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  97.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  98.   get(App->RegisterCity, MUIA_String_Contents, ®city);
  99.  
  100.   if(!strcmp(regnumber, ""))
  101.     return 0;
  102.   if(strlen(regemail) < 4 || strlen(regname) < 4 || strlen(regcountry) < 2 || strlen(regcity) < 2)
  103.     return 1;
  104.   return -1;
  105. }
  106.  
  107. int CarregaListaLimites(char categoria[256])
  108. {
  109.   /* ROTINA QUE ADICIONA UM LIMITE NOVO A LISTA */
  110.   static struct buffer {
  111.     char lista[256];
  112.   };
  113.   static struct buffer listaarray[50];
  114.  
  115.   char teste[256], a, *categorydir, var1[50], var2[50], var3[50],
  116.        var4[50], var5[50], lecateg[256];
  117.   int x = 0;
  118.   long pos = 0;
  119.   FILE *entrada;
  120.  
  121.   get(App->CategDiretorio, MUIA_String_Contents, &categorydir);
  122.   sprintf(lecateg, "%s/%s", categorydir, categoria);
  123.  
  124.   if(!(entrada = fopen(lecateg, "r")))
  125.     return 0;
  126.  
  127.   DoMethod(App->LimitesLista, MUIM_List_Clear);
  128.   x = 0; pos = 0;
  129.   while(a = getc(entrada), ! feof(entrada))
  130.   {
  131.     teste[x++] = a;
  132.     if(a == '\n')
  133.     {
  134.       teste[--x] = '\0';
  135.       if(strcmp(Corta(teste, ':', 0), "**>money"))
  136.       {
  137.         pos++;
  138.         if(pos < 51)
  139.         {
  140.           strcpy(var1, SegundoHora(Corta(teste, ' ', 0)));
  141.           strcpy(var2, SegundoHora(Corta(teste, ' ', 1)));
  142.           strcpy(var3, Corta(teste, ' ', 2));
  143.           strcpy(var4, Corta(teste, ' ', 3));
  144.           strcpy(var5, Corta(teste, ' ', 4));
  145.           sprintf(teste, "%s %s %s %s %s", var1, var2, var3, var4, var5);
  146.           strcpy(listaarray[pos].lista, teste);
  147.           DoMethod(App->LimitesLista, MUIM_List_InsertSingle, &listaarray[pos].lista[0], MUIV_List_Insert_Bottom);
  148.         }
  149.       }
  150.       teste[0] = '\0'; x = 0;
  151.     }
  152.   }
  153.   fclose(entrada);
  154.   sprintf(teste, LeRegistroDB(lecateg, "money"));
  155.  
  156.   strcpy(var1, Corta(teste, '@', 1));
  157.   if(!strcmp(var1, "CUTERRO"))
  158.     set(App->NomeMoeda, MUIA_String_Contents, "");
  159.   else
  160.     set(App->NomeMoeda, MUIA_String_Contents, var1);
  161.  
  162.   set(App->ComboMoeda, MUIA_Cycle_Active, atof(Corta(teste, '@', 0)));
  163.  
  164.   set(App->NomeCategoria, MUIA_String_Contents, categoria);
  165.   return -1;
  166. }
  167.  
  168. int CarregaListaCategorias(void)
  169. {
  170.   char *categorydir;
  171.  
  172.   DoMethod(App->CategoriesList, MUIM_List_Clear);
  173.   get(App->CategDiretorio, MUIA_String_Contents, &categorydir);
  174.   DiretorioArquivo(categorydir, "T:Freedom.CategoryDir", 0);
  175.  
  176.   /* CARREGA DO ARQUIVO PARA A LISTA */
  177.   CarregaLista(App->CategoriesList, "T:Freedom.CategoryDir");
  178.   remove("T:Freedom.CategoryDir");
  179.   return -1;
  180. }
  181.  
  182. int MsgRegistro(void)
  183. {
  184.   MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg60));
  185.   return NULL;
  186. }
  187.  
  188. LimpaJanelaDesseMes(void)
  189. {
  190.   /* LIMPA OS CAMPOS DA JANELA DE CONSULTA DESSE E DE OUTRO MES */
  191.   set(App->LabelMesUso, MUIA_Text_Contents, TMsg(App->Msg16));
  192.   set(App->LabelMesNumero, MUIA_Text_Contents, TMsg(App->Msg1));
  193.   set(App->NrQuedaLinhaMes, MUIA_Text_Contents, TMsg(App->Msg4));
  194.   set(App->NrLogoutGoodMes, MUIA_Text_Contents, TMsg(App->Msg5));
  195.   set(App->NrDownResetMes, MUIA_Text_Contents, TMsg(App->Msg6));
  196.   set(App->LabelMesUsadas, MUIA_Text_Contents, TMsg(App->Msg7));
  197.   set(App->LabelMesMedia, MUIA_Text_Contents, TMsg(App->Msg9));
  198.   set(App->LabelMesData, MUIA_Text_Contents, TMsg(App->Msg11));
  199.   set(App->LabelMesMaior, MUIA_Text_Contents, TMsg(App->Msg10));
  200.   set(App->LabelMesLow, MUIA_Text_Contents, TMsg(App->Msg12));
  201.   set(App->LabelMesMenor, MUIA_Text_Contents, TMsg(App->Msg13));
  202.   set(App->LabelMesExedentes, MUIA_Text_Contents, TMsg(App->Msg2));
  203.   set(App->LabelUltimaLigacao, MUIA_Text_Contents, TMsg(App->Msg14));
  204.   set(App->LabelPrimeiraLigacao, MUIA_Text_Contents, TMsg(App->Msg15));
  205.   set(App->LabelCost, MUIA_Text_Contents, TMsg(App->Msg75));
  206.   set(App->LabelCostAverage, MUIA_Text_Contents, TMsg(App->Msg76));
  207.   return NULL;
  208. }
  209.  
  210. int ConverteParaFreedom(char file[256])
  211. {
  212.   /* ESTE COMANDO CONVERTE UM ARQUIVO PARA JOGAR NA BASE DO 
  213.      FREEDOM CALL, O FORMATO DEVE SER IGUAL AO FREEDOM.INPUT,
  214.      FREEDOM.IN */
  215.   char a, teste[256], data1[256], *database, saida[256];
  216.   int x = 0;
  217.   FILE *entrada;
  218.   
  219.   get(App->DataBaseName, MUIA_String_Contents, &database);
  220.   if(!(entrada = fopen(file, "r")))
  221.     return 0;
  222.  
  223.   while(a = getc(entrada), ! feof(entrada))
  224.   {
  225.     teste[x++] = a;
  226.     if(a == '\n')
  227.     {
  228.       teste[--x] = '\0';
  229.       strcpy(data1, Corta(teste, ',', 1));
  230.       strcpy(data1, AposCaracter(data1, '.', 1));
  231.       sprintf(saida, "%s/Freedom.%s", database, data1);
  232.       sprintf(teste, "%s\n", teste);
  233.       GravaLinha(saida, teste, "a");
  234.       teste[0] = '\0'; x = 0;
  235.     }
  236.   }
  237.   fclose(entrada);
  238. }
  239.  
  240. APTR Geracao( struct Hook *a0, APTR a2, APTR a1 )
  241. {
  242.    /* ESTA ROTINA FAZ A IMPORTACAO DOS DADOS DO MIAMI PARA DENTRO
  243.       DO FREEDOM CALL, A IMPORTACAO EH TOTAL, CASO EXISTA INFORMACOES
  244.       NA BASE DO FREEDOM SERAO TODAS REFEITAS APARTIR DO MIAMI */
  245.    char *path, a, teste[256], pego[256], diferenca[256], gauge[30],
  246.         telefone[20], dataon[20], dataoff[20], statusini[4], 
  247.         horaon[20], horaoff[20], linhaini[256], tempoon[40],
  248.         pegolinha[256], recfone[20], tmp[256], *database,
  249.         diaa[256], connect[256], lastfone[20], *anodis, *timedis;
  250.    long int x, y, pegon, linhan = 0, erro = 0, dx = 0;
  251.    float totalarq, gaugep;
  252.    long warning = 0;
  253.    FILE *entrada, *freedomout;
  254.  
  255.    get(App->RequestMiamiLog, MUIA_String_Contents, &path);
  256.    /* TESTA SE O DIRETORIO DA BASE DE DADOS EXISTE */
  257.    get(App->DataBaseName, MUIA_String_Contents, &database);
  258.    if(!ExisteDiretorio(database))
  259.    {
  260.       MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg17));
  261.       return NULL;
  262.    }
  263.    set(App->GaugeGeracao, MUIA_Gauge_Current, 0);
  264.  
  265.    /* LE INFORMACOES DO CONFIG TIMEDIS, ANODIS */
  266.    get(App->ExcededYear, MUIA_String_Contents, &anodis);
  267.    get(App->ExcededTime, MUIA_String_Contents, &timedis);
  268.  
  269.    /* ROTINA QUE VERIFICA SE JA EXISTE UMA BASE DE DADOS */
  270.    DiretorioArquivoFREE(database, "T:Freedom.DataDir", 1);
  271.    if(LinhasArquivo("T:Freedom.DataDir") > 0)
  272.    {
  273.        /* DATABASE ALREADY EXIST, CLEAR, CANCEL, OK */
  274.        x = MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg20), TMsg(App->Msg21));
  275.        if(x == 0) {
  276.          remove("T:Freedom.DataDir");
  277.          return NULL; }
  278.        if(x == 1)
  279.        {
  280.          DeletaArquivos("T:Freedom.DataDir");
  281.          sprintf(teste, "%s/Freedom.Out", database);
  282.          remove(teste);
  283.        }
  284.    }
  285.    remove("T:Freedom.DataDir");
  286.  
  287.    set(App->EspereGerando, MUIA_Window_Open, TRUE);
  288.    /* TESTA SE O ARQUIVO EXISTE */
  289.    if(!(entrada = fopen(path, "r")))
  290.    {
  291.       fclose(entrada);
  292.       set(App->EspereGerando,MUIA_Window_Open,FALSE);
  293.       /* MIAMI LOG FILE NOT FOUND */
  294.       MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg22));
  295.       return NULL;
  296.    }
  297.    else
  298.    {
  299.       totalarq   = LinhasArquivo(path);
  300.       sprintf(teste, "%s/Freedom.Out", database);
  301.       freedomout = fopen(teste, "a");
  302.  
  303.       /* ABRE O ARQUIVO E GERA A IMPORTACAO DOS DADOS DO MIAMI */
  304.       x = 0; y = 0; linhaini[0] = '\0'; pegon = 0; gaugep = 0;
  305.       linhan = 0;
  306.       while(a = getc(entrada), ! feof(entrada))
  307.       {
  308.          teste[x++] = a;
  309.          if (a == '\n' || a == '\0')
  310.          {
  311.            teste[--x] = '\0';
  312.            linhan++;
  313.  
  314.            /* PEGA O STATUS 
  315.            Onl -> Online, Hora Login
  316.            Act -> Active Logout, Normal Logout
  317.            Pas -> Passive Logout, Caiu a Linha
  318.            Rec -> Reconnect */
  319.            statusini[0] = teste[0];
  320.            statusini[1] = teste[1];
  321.            statusini[2] = teste[2];
  322.            statusini[3] = '\0';
  323.  
  324.            if(x > 20 && !strcmp(statusini, "Onl") || !strcmp(statusini, "Pas") || !strcmp(statusini, "Act"))
  325.            {
  326.              gaugep++;
  327.              sprintf(gauge, "%f", ((100 / totalarq) * gaugep));
  328.              set(App->GaugeGeracao, MUIA_Gauge_Current, atoi(gauge));
  329.              set(App->GaugeGeracao, MUIA_Gauge_InfoText, "%ld %%");
  330.  
  331.              strcpy(teste, AposCaracter(teste, ':', 2));
  332.  
  333.              /* ROTINA QUE TESTA SE EH LOG DO MIAMIDX */
  334.              strcpy(tmp, Corta(teste, ' ', 0));
  335.              if(PosicaoCaracter(tmp, ':', 1) > 10)
  336.                dx = 1; else dx = 0;
  337.  
  338.              if(dx == 1)
  339.              {
  340.                strcpy(dataon, Corta(tmp, ':', 0));
  341.                strcpy(horaon, HoraSegundo(AposCaracter(tmp, ':', 1)));
  342.                strcpy(connect, Corta(teste, ' ', 2));
  343.  
  344.              } else {
  345.  
  346.                strcpy(dataon, Corta(teste, ' ', 0));
  347.                strcpy(horaon, HoraSegundo(Corta(teste, ' ', 1)));
  348.                strcpy(connect, Corta(teste, ' ', 3));
  349.              }
  350.  
  351.              if(!strcmp(connect, "CUTERRO"))
  352.                strcpy(connect, "Miami");
  353.  
  354.              if(!strcmp(statusini, "Onl"))
  355.              {
  356.                if(dx == 1)
  357.                  strcpy(telefone, Corta(teste, ' ', 1));
  358.                else
  359.                  strcpy(telefone, Corta(teste, ' ', 2));
  360.  
  361.                strcpy(telefone, RetiraPontas(telefone, 1));
  362.                strcpy(telefone, Corta(DeletaCaracter(telefone, ','), ':', 0));
  363.              }
  364.  
  365.              strcpy(recfone, telefone);
  366.              if(!strcmp(telefone, "UTERR"))
  367.                strcpy(telefone, lastfone);
  368.  
  369.              sprintf(linhaini, "%s,%s,%s,%s", telefone, dataon, horaon, connect);
  370.  
  371.              strcpy(lastfone, telefone);
  372.              if (pegon == 1)
  373.              {
  374.                if ((!strcmp(pego, "Onl")) && (strcmp(statusini, "Onl")))
  375.                {
  376.                  /* FREEDOM.IN */
  377.                  strcpy(telefone, Corta(pegolinha, ',', 0));
  378.                  strcpy(dataon, Corta(pegolinha, ',', 1));
  379.                  strcpy(horaon, Corta(pegolinha, ',', 2));
  380.                  strcpy(connect, Corta(pegolinha, ',', 3));
  381.  
  382.                  /* TESTA DATA INVALIDA < CONFIG (Disconsidera) */
  383.                  if(atof(DiaJuliano(dataon)) < atof(DiaJuliano(anodis)))
  384.                    continue;
  385.  
  386.                  /* ROTINA QUE TESTA SE EH LOG DO MIAMIDX */
  387.                  if(dx == 1)
  388.                  {
  389.                    strcpy(dataoff, Corta(tmp, ':', 0));
  390.                    strcpy(horaoff, HoraSegundo(AposCaracter(tmp, ':', 1)));
  391.  
  392.                  } else {
  393.  
  394.                    strcpy(dataoff, Corta(teste, ' ', 0));
  395.                    strcpy(horaoff, HoraSegundo(Corta(teste, ' ', 1)));
  396.                  }
  397.  
  398.                  strcpy(tempoon, IntervaloHora(Corta(pegolinha, ',', 2), horaoff));
  399.                  /* TESTA SE TROCOU DE DIA A CONECCAO */
  400.                  strcpy(diferenca, Corta(DiferencaDias(Corta(pegolinha, ',', 1), dataoff), ':', 1));
  401.   
  402.                  if(atoi(diferenca) > 0)
  403.                    sprintf(tempoon, "%ld", atoi(diferenca) - atoi(tempoon));
  404.  
  405.                  /* TESTA ANO INVALIDO */
  406.                  if(atof(tempoon) > atof(HoraSegundo(timedis)))
  407.                    continue;
  408.  
  409.                  strcpy(diaa, Corta(pegolinha, ',', 1));
  410.                  strcpy(teste, AposCaracter(diaa, '.', 1));
  411.                  sprintf(diaa, "%s/Freedom.%s", database, teste);
  412.  
  413.                  sprintf(teste, "%s,%s,%s,%s,%s,%s,%s,%s\n", telefone, dataon, horaon, dataoff, horaoff, statusini, tempoon, connect);
  414.                  GravaLinha(diaa, teste, "a");
  415.                } else {
  416.                  fprintf(freedomout, "%s\n", linhaini);
  417.                  pegon = 0;
  418.                }
  419.              }
  420.              strcpy(pego, statusini);
  421.              strcpy(pegolinha, linhaini);
  422.  
  423.              linhaini[0] = '\0'; teste[0] = '\0'; x = 0;
  424.              if (pegon == 0)
  425.                pegon = 1;
  426.              else
  427.                pegon = 0;
  428.            }
  429.            else
  430.            {
  431.              if(strcmp(statusini, "Rec"))
  432.                erro++;
  433.              linhaini[0] = '\0'; teste[0] = '\0'; x = 0;
  434.            }
  435.          }
  436.       }
  437.       fclose(entrada);
  438.       fclose(freedomout);
  439.    }
  440.    /* ADICIONA AS ROTINAS DE INPUT NA BASE DO FREEDOM */
  441.    sprintf(teste, "%s/Freedom.Input", database);
  442.    if(ExisteArquivo(teste))
  443.      ConverteParaFreedom(teste);
  444.    set(App->EspereGerando,MUIA_Window_Open,FALSE);
  445.  
  446.    /* MIAMI LOG FILE CORRUPT (ONLY ACTIVE, PASSIVE...) */
  447.    if(erro > 0)
  448.    {
  449.      sprintf(teste, "%s%d", TMsg(App->Msg23), erro);
  450.      MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), teste);
  451.    } else {
  452.      /* ROTINA QUE MOSTRA O DISPLAY DA GERACAO */
  453.      get(App->LabelVisualGeneration, MUIA_Selected, &warning);
  454.      if(warning == 1)
  455.        MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg19));
  456.    }
  457.    return NULL;
  458. }
  459.  
  460. APTR PreparaEsseMes( struct Hook *a0, APTR a2, APTR a1 )
  461. {
  462.   /* ROTINA QUE PREPARA O ARQUIVO DE ESTATISTICAS COM SOMENTE
  463.      INFORMACOES DO MES CORRENTE */
  464.   char *horainicio, *horafim, *dia, ano[5], teste[256], teste2[256],
  465.        data1[256], data2[256], *database, freein[256],
  466.        freeout[256];
  467.   int x = 0;
  468.   long retorno = 0;
  469.  
  470.   /* TESTA SE O DIRETORIO DA BASE DE DADOS EXISTE */
  471.   get(App->DataBaseName, MUIA_String_Contents, &database);
  472.   if(!ExisteDiretorio(database))
  473.   {
  474.      MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg17));
  475.      return NULL;
  476.   }
  477.   /* CARREGA INFORMACOES DO PROVIDER SETS */
  478.   get(App->PrefsFreeHInicio, MUIA_String_Contents, &horainicio);
  479.   get(App->PrefsFreeHFim, MUIA_String_Contents, &horafim);
  480.   get(App->PrefsDiaInicial, MUIA_String_Contents, &dia);
  481.   get(App->ProviderRetornaMes, MUIA_Selected, &retorno);
  482.  
  483.   LimpaJanelaDesseMes();
  484.   set(App->JanelaGeracaoQuery, MUIA_Window_Open, TRUE);
  485.   set(App->GaugeQuery, MUIA_Gauge_Current, 5);
  486.   set(App->GaugeQuery, MUIA_Gauge_InfoText, TMsg(App->Msg26));
  487.  
  488.   strcpy(teste, DataHora(1));
  489.   strcpy(ano, Corta(teste, '.', 1));
  490.  
  491.   /* CARREGA VARIAVEIS DE PARA LEITURA DOS ARQUIVOS */
  492.   sprintf(freein, "%s/Freedom.%s", database, teste);
  493.   sprintf(freeout, "%s/Freedom.Out", database);
  494.  
  495.   /* TESTA SE CONFIGURACAO DE FREE HOURS E DAY INITIAL SAO VALIDAS */
  496.   if( ((!(strcmp(horainicio, "")) && !(strcmp(horafim, ""))) ||
  497.        (!(strcmp(horainicio, "00:00:00")) && !(strcmp(horafim, "00:00:00")))) && (atoi(dia) <= 1) )
  498.   {
  499.     FiltraCampoParaArquivoFREE(teste, freein, "t:freedom.intmp", ',', 1, '.');
  500.     FiltraCampoParaArquivoFREE(teste, freeout, "t:freedom.outtmp", ',', 1, '.');
  501.   }
  502.   else
  503.   {
  504.     /* ACERTA DAY INIT NOVO */
  505.     strcpy(teste, DataHora(1));
  506.     sprintf(data1, "%s.%s", dia, teste);
  507.     x = atoi(dia);  
  508.     x--;
  509.     if(x < 1)
  510.       x = 31;
  511.     sprintf(data2, "%d.%s", x, teste);
  512.     strcpy(data2, SomaDiminuiMes(data2, 1));
  513.  
  514.     /* ROTINA QUE RETORNA UM MES NA CONSULTA CASO A OPCAO ESTEJA ON */
  515.     if(retorno == 1)
  516.     {
  517.       strcpy(data1, SomaDiminuiMes(data1, -1));
  518.       strcpy(data2, SomaDiminuiMes(data2, -1));
  519.  
  520.       sprintf(teste2, "%s/Freedom.%s", database, AposCaracter(data1, '.', 1));
  521.       CopiaArquivo(teste2, "t:Freedom.In");
  522.       sprintf(teste2, "%s/Freedom.%s", database, AposCaracter(data2, '.', 1));
  523.       InsereArquivo(teste2, "t:Freedom.In");
  524.     }
  525.     else
  526.       CopiaArquivo(freein, "t:Freedom.In");
  527.  
  528.     SelecionaIntervaloCampo("T:Freedom.In", "T:Freedom.InTmp", "Ram:Freedom.Temp", data1, data2, horainicio, horafim);
  529.     remove("t:Freedom.In");
  530.     SelecionaIntervaloCampo(freeout, "T:Freedom.OutTmp", "Ram:Freedom.Temp", data1, data2, horainicio, horafim);
  531.   }
  532.   set(App->GaugeQuery, MUIA_Gauge_Current, 25);
  533.   /* CRIA ARQUIVO COM A DESCRICAO DA CONSULTA */
  534.   sprintf(teste, "%s %s", DescricaoMesFREE(atoi(Corta(teste, '.', 0)), 1), ano);
  535.   GravaRegistroDB("t:Freedom.Date", teste, "date", "w");
  536.   SemanaCount("t:Freedom.InTmp");
  537.   set(App->GaugeQuery, MUIA_Gauge_Current, 50);
  538.   return NULL;
  539. }
  540.  
  541. APTR CarregaEsseMes( struct Hook *a0, APTR a2, APTR a1 )
  542. {
  543.   /* ROTINA QUE CARREFA AS INFORMACOES DO ARQUIVO PREPARADO PARA 
  544.      A TELA INFORMACOES DO MES CORRENTE */
  545.   char teste[256], teste2[256], horason[30], mediafinal[30], *unit,
  546.        media[30], exc[256], maior[256], menor[256], data[30], *limit,
  547.        firstcall[30], lastcall[30], ultima[60], d1[256], d2[256],
  548.        days[256], cost[30], *moedac, *precision, senha1[256], 
  549.        senha2[256], teste3[256], a, status[30], dia[20], sem[256],
  550.        login[20], online[20], fone[30], htmlfile[256],
  551.        *regemail, *regnumber, *regname, *regorg, *regcountry,
  552.        senhatmp[256], *regnumber2, *htmldirectory, *browser;
  553.   int  totcal = 0, totout = 0, queda = 0, logoutgood = 0, excc = 0,
  554.        diferenca = 0, registro = 0, htm = 1, x = 0, gerahtml = 0,
  555.        salvahtml = 0, checkglobal = 0, global = 0;
  556.   long moeda = 0;
  557.   FILE *html, *entrada;
  558.  
  559.   LimpaJanelaDesseMes();
  560.  
  561.   totcal = LinhasArquivo("t:Freedom.inTmp");
  562.   if(totcal <= 0)
  563.   {
  564.     remove("t:freedom.intmp");
  565.     remove("t:freedom.outtmp");
  566.     remove("t:freedom.date");
  567.     set(App->JanelaGeracaoQuery, MUIA_Window_Open, FALSE);
  568.     set(App->JanelaDesseMes, MUIA_Window_Open, FALSE);
  569.     /* NO CONNECTIONS REGISTERED ABOUT THIS DATE */
  570.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg24));
  571.     return NULL;
  572.   }
  573.   
  574.   /* LE INFORMACOES SOBRE O HTML */
  575.   get(App->HtmlName, MUIA_String_Contents, &htmldirectory);
  576.   get(App->Browser, MUIA_String_Contents, &browser);
  577.   get(App->HtmlCheck, MUIA_Selected, &gerahtml);
  578.   get(App->CheckReports, MUIA_Selected, &salvahtml);
  579.   get(App->CheckGlobalHtml, MUIA_Selected, &checkglobal);
  580.  
  581.   /* ROTINA QUE TESTA O TIPO DE REGISTRO */
  582.   get(App->RegisterName, MUIA_String_Contents, ®name);
  583.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  584.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  585.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  586.   get(App->RegisterKeyReal, MUIA_String_Contents, ®number2);
  587.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  588.   strcpy(senha1, AsciiString(regnumber, 69));
  589.   strcpy(senha2, AsciiString(regnumber2, 96));
  590.   sprintf(senhatmp, "%s%s%s", regname, regemail, regcountry);
  591.   strcpy(senhatmp, CriptografiaSimples(senhatmp, 0));
  592.   if(!strcmp(senha1, senhatmp))
  593.     registro = 1;
  594.   if(!strcmp(senha1, senhatmp) && !strcmp(senha2, senhatmp))
  595.     registro = 2;
  596.   if(!strcmp(regnumber, ""))
  597.     registro = 0;
  598.  
  599.   /* PEGA INFORMACOES DA MOEDA CORRENTE */
  600.   get(App->ComboMoeda, MUIA_Cycle_Active, &moeda);
  601.   get(App->NomeMoeda, MUIA_String_Contents, &moedac);
  602.  
  603.   /* PEGA A PRECISAO DOS DISPLAYS DE VALORES */
  604.   get(App->ConfPrecision, MUIA_String_Contents, &precision);
  605.   /* PEGA UNIDADE DE DESCONTO */
  606.   get(App->ConfUnit, MUIA_String_Contents, &unit);
  607.  
  608.   set(App->GaugeQuery, MUIA_Gauge_Current, 55);
  609.   /* LOADING QUERY INFORMATION... */
  610.   set(App->GaugeQuery, MUIA_Gauge_InfoText, TMsg(App->Msg25));
  611.  
  612.   get(App->InputLimitTime, MUIA_String_Contents, &limit);
  613.   totout     = LinhasArquivo("t:Freedom.outTmp");
  614.   queda      = ContaVezesCampo("t:Freedom.inTmp", "Pas", ',', 5);
  615.   logoutgood = ContaVezesCampo("t:Freedom.inTmp", "Act", ',', 5);
  616.   strcpy(data, DataHora(1));
  617.   set(App->GaugeQuery, MUIA_Gauge_Current, 65);
  618.  
  619.   strcpy(media, MediaCampo("t:Freedom.inTmp", ',', 6));
  620.   strcpy(cost,  MediaCampo("t:Freedom.inTmp", ',', 8));
  621.   strcpy(mediafinal, SegundoHora(Corta(media, ':', 1)));
  622.   strcpy(horason,    SegundoHora(Corta(media, ':', 0)));
  623.  
  624.   sprintf(days, "%f", (atof(HoraSegundo(horason)) / 86400));
  625.   strcpy(ultima, PrimeiroUltimoCampo("t:freedom.inTmp", ',', 1, ':'));
  626.   /* ROTINA QUE ACERTA O CABECALHO DA GERACAO, O PERIODO */
  627.   strcpy(teste, LeRegistroDB("t:Freedom.Date", "date"));
  628.   strcpy(d1, Corta(ultima, ':', 0));
  629.   strcpy(d2, Corta(ultima, ':', 1));
  630.   sprintf(teste2, "\033c\0338%s [%s] %s", d1, teste, d2);
  631.  
  632.   /* TESTA SE DEVE SER GERADO O HTML PARA GLOBAL STATISTICS */
  633.   if(checkglobal == FALSE && gerahtml == TRUE)
  634.   {
  635.     if(!strcmp(teste, "Global Statistics")) {
  636.       set(App->BotaoHtml, MUIA_Disabled, TRUE);
  637.       global = 1;
  638.     } else {
  639.       set(App->BotaoHtml, MUIA_Disabled, FALSE);
  640.       global = 0; }
  641.   }
  642.  
  643.   set(App->LabelMesUso, MUIA_Text_Contents, teste2);
  644.   set(App->GaugeQuery, MUIA_Gauge_Current, 85);
  645.  
  646.  
  647.   /* INICIALIZA GERACAO DO HTML */
  648.   sprintf(htmlfile, "%s%s-%s.html", FiltraDir(htmldirectory, 1), d1, d2);
  649.   if(gerahtml == TRUE && global == 0)
  650.   {
  651.     if(!(html = fopen("T:Freedom.HTML", "w")))
  652.       htm = 1;
  653.     else
  654.       htm = 0;
  655.   }
  656.   if(htm == 0)
  657.   {
  658.     fprintf(html, "<HTML>\n<HEAD><TITLE>Freedom Statistics %s [%s] %s</TITLE></HEAD>\n<BODY BGCOLOR=#F8FCDC>\n",d1, teste, d2);
  659.     fprintf(html, "<H2>\n<CENTER><B>%s [%s] %s</B></CENTER>\n</H2>\n<BR><CENTER>\n<TABLE BORDER BGCOLOR=#FFFFFF>\n", d1, teste, d2);
  660.   }
  661.  
  662.   diferenca = DiferencaMes(d1, d2);
  663.   if(diferenca > 0)
  664.     sprintf(exc, "%d:00:00", (atoi(limit) * diferenca));
  665.   else
  666.     sprintf(exc, "%s:00:00", limit);
  667.  
  668.   strcpy(teste,  HoraSegundo(exc));
  669.   strcpy(teste2, HoraSegundo(horason));
  670.  
  671.   excc = (atoi(teste2) - atoi(teste));
  672.   if(excc <= 0)
  673.   { 
  674.     excc = excc * (-1);
  675.     sprintf(exc, "%d", excc);
  676.     strcpy(exc, SegundoHora(exc));
  677.     /* TIME REMAINING */
  678.     sprintf(teste, "%s \0338%s\033n", TMsg(App->Msg2), exc);
  679.     set(App->LabelMesExedentes, MUIA_Text_Contents, teste);
  680.   } else {
  681.     sprintf(exc, "%d", excc);
  682.     strcpy(exc, SegundoHora(exc));
  683.     /* TIME EXCEDED */
  684.     sprintf(teste, "%s \0338%s\033n", TMsg(App->Msg3), exc);
  685.     set(App->LabelMesExedentes, MUIA_Text_Contents, teste);
  686.   }
  687.   /* GRAVA O TIME REMAINING OU TIME EXCEDED EM HTML */
  688.   if(htm == 0)
  689.     fprintf(html, "<TR BGCOLOR=#00FFFF>\n<TD><B>%s</B></TD></TR>\n<TR><TD>%s</TD></TR>\n</TABLE>\n", TMsg(App->Msg2), exc);
  690.  
  691.   strcpy(maior, MaiorMenorCampo("t:Freedom.inTmp", ',', 6, 1));
  692.   strcpy(menor, MaiorMenorCampo("t:Freedom.inTmp", ',', 6, 0));
  693.   set(App->GaugeQuery, MUIA_Gauge_Current, 95);
  694.  
  695.   /* GRAVA CABECALHO DO COST ONLINE, AVERAGE, TOTAL */
  696.   if(htm == 0)
  697.     fprintf(html, "<TABLE BORDER BGCOLOR=#FFFFFF>\n<TR BGCOLOR=#00FFFF><TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD></TR>\n", TMsg(App->Msg75), TMsg(App->Msg76), TMsg(App->Msg1));
  698.  
  699.   /* COST ONLINE */
  700.   strcpy(teste2, Corta(cost, ':', 0));
  701.   sprintf(teste2, "%f", (atof(teste2) - atof(unit)));
  702.   if(moeda == 0)
  703.   {
  704.     sprintf(teste, "%s \033b%s%s\033n", TMsg(App->Msg75), moedac, CasasAposCaracter(teste2, '.', atoi(precision)));
  705.     if(htm == 0)
  706.       fprintf(html, "<TR><TD>%s%s</TD>\n", moedac, CasasAposCaracter(teste2, '.', atoi(precision)));
  707.   } else {
  708.     sprintf(teste, "%s \033b%s%s\033n", TMsg(App->Msg75), CasasAposCaracter(teste2, '.', atoi(precision)), moedac);
  709.     if(htm == 0)
  710.       fprintf(html, "<TR><TD>%s%s</TD>\n", CasasAposCaracter(teste2, '.', atoi(precision)), moedac);
  711.   }
  712.   if(registro < 2)
  713.     sprintf(teste, "%s \033bREALREG\033n", TMsg(App->Msg75));
  714.   set(App->LabelCost, MUIA_Text_Contents, teste);
  715.  
  716.   /* AVERAGE COST */
  717.   if(moeda == 0)
  718.   {
  719.     sprintf(teste, "%s \033b%s%s\033n", TMsg(App->Msg76), moedac, CasasAposCaracter(Corta(cost, ':', 1), '.', atoi(precision)));
  720.     if(htm == 0)
  721.       fprintf(html, "<TD>%s%s</TD>\n", moedac, CasasAposCaracter(Corta(cost, ':', 1), '.', atoi(precision)));
  722.   } else {
  723.     sprintf(teste, "%s \033b%s%s\033n", TMsg(App->Msg76), CasasAposCaracter(Corta(cost, ':', 1), '.', atoi(precision)), moedac);
  724.     if(htm == 0)
  725.       fprintf(html, "<TD>%s%s</TD>\n", CasasAposCaracter(Corta(cost, ':', 1), '.', atoi(precision)), moedac);
  726.   }
  727.   if(registro < 2)
  728.     sprintf(teste, "%s \033bREALREG\033n", TMsg(App->Msg76));
  729.   set(App->LabelCostAverage, MUIA_Text_Contents, teste);
  730.  
  731.   /* TOTAL CALLS */
  732.   sprintf(teste, "%s \033b%d\033n", TMsg(App->Msg1), totcal);
  733.   if(htm == 0)
  734.     fprintf(html, "<TD>%d</TD></TR>\n</TABLE>\n", totcal);
  735.  
  736.   /* GRAVA CABECALHO DAS IRREGULAR, REGULAR E SHUTDOWN */
  737.   if(htm == 0)
  738.     fprintf(html, "<TABLE BORDER BGCOLOR=#FFFFFF>\n<TR BGCOLOR=#00FFFF><TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n</TR>\n", TMsg(App->Msg4), TMsg(App->Msg5), TMsg(App->Msg6));
  739.  
  740.   set(App->LabelMesNumero, MUIA_Text_Contents, teste);
  741.   /* IRREGULAR LOGOUTS */
  742.   sprintf(teste, "%s \033b%d\033n", TMsg(App->Msg4), queda);
  743.   set(App->NrQuedaLinhaMes, MUIA_Text_Contents, teste);
  744.   if(htm == 0)
  745.     fprintf(html, "<TR>\n<TD>%d</TD>\n", queda);
  746.  
  747.   /* REGULAR LOGOUTS */
  748.   sprintf(teste, "%s \033b%d\033n", TMsg(App->Msg5), logoutgood);
  749.   set(App->NrLogoutGoodMes, MUIA_Text_Contents, teste);
  750.   if(htm == 0)
  751.     fprintf(html, "<TD>%d</TD>\n", logoutgood);
  752.  
  753.   /* SHUTDOWN ONLINE */
  754.   sprintf(teste, "%s \033b%d\033n", TMsg(App->Msg6), totout);
  755.   set(App->NrDownResetMes, MUIA_Text_Contents, teste);
  756.   if(htm == 0)
  757.     fprintf(html, "<TD>%d</TD></TR>\n</TABLE>\n", totout);
  758.  
  759.   /* GRAVA CABECALHO TOTAL ONLINE, DAYS, AVERAGE ONLINE */
  760.   if(htm == 0)
  761.     fprintf(html, "<TABLE BORDER BGCOLOR=#FFFFFF>\n<TR BGCOLOR=#5F9F9F><TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n</TR>\n", TMsg(App->Msg7), TMsg(App->Msg95), TMsg(App->Msg9));
  762.  
  763.   /* TOTAL ONLINE & DAYS */
  764.   sprintf(teste, "%s \0338%s\033n (%s %s)", TMsg(App->Msg7), horason, CasasAposCaracter(days, '.', 1), TMsg(App->Msg8));
  765.   set(App->LabelMesUsadas, MUIA_Text_Contents, teste);
  766.   if(htm == 0)
  767.     fprintf(html, "<TD>%s</TD>\n<TD>%s</TD>\n", horason, CasasAposCaracter(days, '.', 1));
  768.  
  769.   /* AVERAGE ONLINE */
  770.   sprintf(teste, "%s \033b%s\033n", TMsg(App->Msg9), mediafinal);
  771.   set(App->LabelMesMedia, MUIA_Text_Contents, teste);
  772.   if(htm == 0)
  773.     fprintf(html, "<TD>%s</TD>\n</TR>\n</TABLE>\n", mediafinal);
  774.  
  775.   /* GRAVA CABECALHO LONGEST DATE, PHONE, CALL */
  776.   if(htm == 0)
  777.     fprintf(html, "<TABLE BORDER BGCOLOR=#FFFFFF>\n<TR BGCOLOR=#00FFFF><TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n</TR>\n", TMsg(App->Msg11), TMsg(App->Msg10), TMsg(App->Msg96));
  778.  
  779.   /* LONGEST DATE */
  780.   sprintf(teste, "%s \033b%s\033n", TMsg(App->Msg11), Corta(maior, ',', 1));
  781.   set(App->LabelMesData, MUIA_Text_Contents, teste);
  782.   if(htm == 0)
  783.     fprintf(html, "<TD>%s</TD>\n", Corta(maior, ',', 1));
  784.  
  785.   /* LONGEST CALL */
  786.   strcpy(teste2, Corta(maior, ',', 0));
  787.   sprintf(teste, "%s \0338%s\033n (%s)", TMsg(App->Msg10), SegundoHora(Corta(maior, ',', 6)), teste2);
  788.   set(App->LabelMesMaior, MUIA_Text_Contents, teste);
  789.   if(htm == 0)
  790.     fprintf(html, "<TD>%s</TD>\n<TD>%s</TD>\n</TR>\n</TABLE>\n", SegundoHora(Corta(maior, ',', 6)), teste2);
  791.  
  792.   /* GRAVA CABECALHO SHORTEST DATE, PHONE, CALL */
  793.   if(htm == 0)
  794.     fprintf(html, "<TABLE BORDER BGCOLOR=#FFFFFF>\n<TR BGCOLOR=#00FFFF><TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n</TR>\n", TMsg(App->Msg12), TMsg(App->Msg13), TMsg(App->Msg96));
  795.  
  796.   /* SHORTEST DATE */
  797.   sprintf(teste, "%s \033b%s\033n", TMsg(App->Msg12), Corta(menor, ',', 1));
  798.   set(App->LabelMesLow, MUIA_Text_Contents, teste);
  799.   if(htm == 0)
  800.     fprintf(html, "<TD>%s</TD>\n", Corta(menor, ',', 1));
  801.  
  802.   /* SHORTEST CALL */
  803.   strcpy(teste2, Corta(menor, ',', 0));
  804.   sprintf(teste, "%s \033b%s\033n (%s)", TMsg(App->Msg13), SegundoHora(Corta(menor, ',', 6)), teste2);
  805.   set(App->LabelMesMenor, MUIA_Text_Contents, teste);
  806.   if(htm == 0)
  807.     fprintf(html, "<TD>%s</TD>\n<TD>%s</TD>\n</TR>\n</TABLE>\n", SegundoHora(Corta(menor, ',', 6)), teste2);
  808.  
  809.   strcpy(teste2, PrimeiroUltimoCampo("t:Freedom.InTmp", ',', 6, '@'));
  810.   strcpy(teste, SegundoHora(Corta(teste2, '@', 1)));
  811.  
  812.   /* GRAVA CABECALHO FIRST CALL, LAST CALL */
  813.   if(htm == 0)
  814.     fprintf(html, "<TABLE BORDER BGCOLOR=#FFFFFF>\n<TR BGCOLOR=#00FFFF>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n</TR>\n", TMsg(App->Msg14), TMsg(App->Msg15));
  815.  
  816.   /* LAST CALL */
  817.   sprintf(lastcall, "%s \033b%s\033n", TMsg(App->Msg14), teste);
  818.   set(App->LabelUltimaLigacao, MUIA_Text_Contents, lastcall);
  819.   if(htm == 0)
  820.     fprintf(html, "<TD>%s</TD>\n", teste);
  821.   strcpy(teste, SegundoHora(Corta(teste2, '@', 0)));
  822.  
  823.   /* FIRST CALL */
  824.   sprintf(firstcall, "%s \033b%s\033n", TMsg(App->Msg15), teste);
  825.   set(App->LabelPrimeiraLigacao, MUIA_Text_Contents, firstcall);
  826.   if(htm == 0)
  827.     fprintf(html, "<TD>%s</TD>\n</TR>\n</TABLE>\n<BR><HR>\n", teste);
  828.   set(App->GaugeQuery, MUIA_Gauge_Current, 100);
  829.  
  830.   /* GERA HTML BASEADO NOS DADOS SEMANAIS */
  831.   if(htm == 0)
  832.   {
  833.     fprintf(html, "<H2><B>%s</B></H2>\n<BR>\n<TABLE BORDER BGCOLOR=#FFFFFF>\n<TR BGCOLOR=#00FFFF>\n<TD></TD>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n<TD><B>%</B></TD>\n<TD><B>%s</B></TD>\n</TR>\n", TMsg(App->Msg98), TMsg(App->Msg97), TMsg(App->Msg92), TMsg(App->Msg93));
  834.  
  835.     /* GRAVA SEGUNDA */
  836.     strcpy(teste, LeRegistroDB("T:Freedom.Week", "2"));
  837.     strcpy(teste2, CasasAposCaracter(Corta(teste, '@', 3), '.', atoi(precision)));
  838.     if(moeda == 0) { sprintf(teste3, "%s%s", moedac, teste2); } else { sprintf(teste3, "%s%s", teste2, moedac); }
  839.     if(registro < 2)
  840.       strcpy(teste3, "REALREG");
  841.     fprintf(html, "<TR>\n<TD><B>%s</B></TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD><DIV ALIGN=RIGHT>%s</DIV></TD>\n", TMsg(App->MsgSegunda), Corta(teste, '@', 0), SegundoHora(Corta(teste, '@', 2)), CasasAposCaracter(Corta(teste, '@', 1), '.', 1), teste3);
  842.  
  843.     /* GRAVA TERCA */
  844.     strcpy(teste, LeRegistroDB("T:Freedom.Week", "3"));
  845.     strcpy(teste2, CasasAposCaracter(Corta(teste, '@', 3), '.', atoi(precision)));
  846.     if(moeda == 0) { sprintf(teste3, "%s%s", moedac, teste2); } else { sprintf(teste3, "%s%s", teste2, moedac); }
  847.     if(registro < 2)
  848.       strcpy(teste3, "REALREG");
  849.     fprintf(html, "<TR>\n<TD><B>%s</B></TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD><DIV ALIGN=RIGHT>%s</DIV></TD>\n", TMsg(App->MsgTerca), Corta(teste, '@', 0), SegundoHora(Corta(teste, '@', 2)), CasasAposCaracter(Corta(teste, '@', 1), '.', 1), teste3);
  850.  
  851.  
  852.     /* GRAVA QUARTA */
  853.     strcpy(teste, LeRegistroDB("T:Freedom.Week", "4"));
  854.     strcpy(teste2, CasasAposCaracter(Corta(teste, '@', 3), '.', atoi(precision)));
  855.     if(moeda == 0) { sprintf(teste3, "%s%s", moedac, teste2); } else { sprintf(teste3, "%s%s", teste2, moedac); }
  856.     if(registro < 2)
  857.       strcpy(teste3, "REALREG");
  858.     fprintf(html, "<TR>\n<TD><B>%s</B></TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD><DIV ALIGN=RIGHT>%s</DIV></TD>\n", TMsg(App->MsgQuarta), Corta(teste, '@', 0), SegundoHora(Corta(teste, '@', 2)), CasasAposCaracter(Corta(teste, '@', 1), '.', 1), teste3);
  859.  
  860.     /* GRAVA QUINTA */
  861.     strcpy(teste, LeRegistroDB("T:Freedom.Week", "5"));
  862.     strcpy(teste2, CasasAposCaracter(Corta(teste, '@', 3), '.', atoi(precision)));
  863.     if(moeda == 0) { sprintf(teste3, "%s%s", moedac, teste2); } else { sprintf(teste3, "%s%s", teste2, moedac); }
  864.     if(registro < 2)
  865.       strcpy(teste3, "REALREG");
  866.     fprintf(html, "<TR>\n<TD><B>%s</B></TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD>%s</TD><TD><DIV ALIGN=RIGHT>%s</DIV></TD>\n", TMsg(App->MsgQuinta), Corta(teste, '@', 0), SegundoHora(Corta(teste, '@', 2)), CasasAposCaracter(Corta(teste, '@', 1), '.', 1), teste3);
  867.  
  868.     /* GRAVA SEXTA */
  869.     strcpy(teste, LeRegistroDB("T:Freedom.Week", "6"));
  870.     strcpy(teste2, CasasAposCaracter(Corta(teste, '@', 3), '.', atoi(precision)));
  871.     if(moeda == 0) { sprintf(teste3, "%s%s", moedac, teste2); } else { sprintf(teste3, "%s%s", teste2, moedac); }
  872.     if(registro < 2)
  873.       strcpy(teste3, "REALREG");
  874.     fprintf(html, "<TR>\n<TD><B>%s</B></TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD><DIV ALIGN=RIGHT>%s</DIV></TD>\n", TMsg(App->MsgSexta), Corta(teste, '@', 0), SegundoHora(Corta(teste, '@', 2)), CasasAposCaracter(Corta(teste, '@', 1), '.', 1), teste3);
  875.  
  876.     /* GRAVA SABADO */
  877.     strcpy(teste, LeRegistroDB("T:Freedom.Week", "0"));
  878.     strcpy(teste2, CasasAposCaracter(Corta(teste, '@', 3), '.', atoi(precision)));
  879.     if(moeda == 0) { sprintf(teste3, "%s%s", moedac, teste2); } else { sprintf(teste3, "%s%s", teste2, moedac); }
  880.     if(registro < 2)
  881.       strcpy(teste3, "REALREG");
  882.     fprintf(html, "<TR>\n<TD><B>%s</B></TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD><DIV ALIGN=RIGHT>%s</DIV></TD>\n", TMsg(App->MsgSabado), Corta(teste, '@', 0), SegundoHora(Corta(teste, '@', 2)), CasasAposCaracter(Corta(teste, '@', 1), '.', 1), teste3);
  883.  
  884.     /* GRAVA DOMINGO */
  885.     strcpy(teste, LeRegistroDB("T:Freedom.Week", "1"));
  886.     strcpy(teste2, CasasAposCaracter(Corta(teste, '@', 3), '.', atoi(precision)));
  887.     if(moeda == 0) { sprintf(teste3, "%s%s", moedac, teste2); } else { sprintf(teste3, "%s%s", teste2, moedac); }
  888.     if(registro < 2)
  889.       strcpy(teste3, "REALREG");
  890.     fprintf(html, "<TR>\n<TD><B>%s</B></TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD>%s</TD>\n<TD><DIV ALIGN=RIGHT>%s</DIV></TD>\n", TMsg(App->MsgDomingo), Corta(teste, '@', 0), SegundoHora(Corta(teste, '@', 2)), CasasAposCaracter(Corta(teste, '@', 1), '.', 1), teste3);
  891.  
  892.     /* GRAVA TOTAL */
  893.     strcpy(teste, LeRegistroDB("T:Freedom.Week", "7"));
  894.     strcpy(teste2, CasasAposCaracter(Corta(teste, '@', 2), '.', atoi(precision)));
  895.     if(moeda == 0) { sprintf(teste3, "%s%s", moedac, teste2); } else { sprintf(teste3, "%s%s", teste2, moedac); }
  896.     if(registro < 2)
  897.       strcpy(teste3, "REALREG");
  898.     fprintf(html, "<TR>\n<TD></TD>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n<TD><B>100</B></TD>\n<TD><B><DIV ALIGN=RIGHT>%s</DIV></B></TD>\n</TR>\n</TABLE>\n", Corta(teste, '@', 0), SegundoHora(Corta(teste, '@', 1)), teste3);
  899.   }
  900.   /* GERA HTML BASEADO NOS CPS */
  901.   if(htm == 0)
  902.   {
  903.     fprintf(html, "<BR><HR>\n<B><H2>%s</B></H2><BR>\n<TABLE BORDER BGCOLOR=#FFFFFF>\n<TR BGCOLOR=#00FFFF>\n<TD></TD>\n<TD><B>%s</B></TD>\n</TR>\n", TMsg(App->Msg99), TMsg(App->Msg97));
  904.  
  905.     /* 300 CPS */
  906.     x = atoi(LeRegistroDB("T:Freedom.Rates", "300"));
  907.     if(x > 0)
  908.       fprintf(html, "<TR>\n<TD><B>300</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  909.  
  910.     /* 2400 CPS */
  911.     x = atoi(LeRegistroDB("T:Freedom.Rates", "2400"));
  912.     if(x > 0)
  913.       fprintf(html, "<TR>\n<TD><B>2400</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  914.  
  915.     /* 9600 CPS */
  916.     x = atoi(LeRegistroDB("T:Freedom.Rates", "9600"));
  917.     if(x > 0)
  918.       fprintf(html, "<TR>\n<TD><B>9600</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  919.  
  920.     /* 14400 CPS */
  921.     x = atoi(LeRegistroDB("T:Freedom.Rates", "14400"));
  922.     if(x > 0)
  923.       fprintf(html, "<TR>\n<TD><B>14400</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  924.  
  925.     /* 16800 CPS */
  926.     x = atoi(LeRegistroDB("T:Freedom.Rates", "16800"));
  927.     if(x > 0)
  928.       fprintf(html, "<TR>\n<TD><B>16800</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  929.  
  930.     /* 19200 CPS */
  931.     x = atoi(LeRegistroDB("T:Freedom.Rates", "19200"));
  932.     if(x > 0)
  933.       fprintf(html, "<TR>\n<TD><B>19200</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  934.  
  935.     /* 21600 CPS */
  936.     x = atoi(LeRegistroDB("T:Freedom.Rates", "21600"));
  937.     if(x > 0)
  938.       fprintf(html, "<TR>\n<TD><B>21600</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  939.  
  940.     /* 24000 CPS */
  941.     x = atoi(LeRegistroDB("T:Freedom.Rates", "24000"));
  942.     if(x > 0)
  943.       fprintf(html, "<TR>\n<TD><B>24000</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  944.  
  945.     /* 26400 CPS */
  946.     x = atoi(LeRegistroDB("T:Freedom.Rates", "26400"));
  947.     if(x > 0)
  948.       fprintf(html, "<TR>\n<TD><B>26400</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  949.  
  950.     /* 28800 CPS */
  951.     x = atoi(LeRegistroDB("T:Freedom.Rates", "28800"));
  952.     if(x > 0)
  953.       fprintf(html, "<TR>\n<TD><B>28800</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  954.  
  955.     /* 30666 CPS */
  956.     x = atoi(LeRegistroDB("T:Freedom.Rates", "30666"));
  957.     if(x > 0)
  958.       fprintf(html, "<TR>\n<TD><B>30666</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  959.  
  960.     /* 31200 CPS */
  961.     x = atoi(LeRegistroDB("T:Freedom.Rates", "31200"));
  962.     if(x > 0)
  963.       fprintf(html, "<TR>\n<TD><B>31200</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  964.  
  965.     /* 31250 CPS */
  966.     x = atoi(LeRegistroDB("T:Freedom.Rates", "31250"));
  967.     if(x > 0)
  968.       fprintf(html, "<TR>\n<TD><B>31250</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  969.  
  970.     /* 32000 CPS */
  971.     x = atoi(LeRegistroDB("T:Freedom.Rates", "32000"));
  972.     if(x > 0)
  973.       fprintf(html, "<TR>\n<TD><B>32000</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  974.  
  975.     /* 33333 CPS */
  976.     x = atoi(LeRegistroDB("T:Freedom.Rates", "33333"));
  977.     if(x > 0)
  978.       fprintf(html, "<TR>\n<TD><B>33333</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  979.  
  980.     /* 34666 CPS */
  981.     x = atoi(LeRegistroDB("T:Freedom.Rates", "34666"));
  982.     if(x > 0)
  983.       fprintf(html, "<TR>\n<TD><B>34666</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  984.  
  985.     /* 33600 CPS */
  986.     x = atoi(LeRegistroDB("T:Freedom.Rates", "33600"));
  987.     if(x > 0)
  988.       fprintf(html, "<TR>\n<TD><B>33600</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  989.  
  990.     /* 38400 CPS */
  991.     x = atoi(LeRegistroDB("T:Freedom.Rates", "38400"));
  992.     if(x > 0)
  993.       fprintf(html, "<TR>\n<TD><B>38400</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  994.  
  995.     /* 45333 CPS */
  996.     x = atoi(LeRegistroDB("T:Freedom.Rates", "45333"));
  997.     if(x > 0)
  998.       fprintf(html, "<TR>\n<TD><B>45333</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  999.  
  1000.     /* 46666 CPS */
  1001.     x = atoi(LeRegistroDB("T:Freedom.Rates", "46666"));
  1002.     if(x > 0)
  1003.       fprintf(html, "<TR>\n<TD><B>46666</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1004.  
  1005.     /* 48000 CPS */
  1006.     x = atoi(LeRegistroDB("T:Freedom.Rates", "48000"));
  1007.     if(x > 0)
  1008.       fprintf(html, "<TR>\n<TD><B>48000</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1009.  
  1010.     /* 49333 CPS */
  1011.     x = atoi(LeRegistroDB("T:Freedom.Rates", "49333"));
  1012.     if(x > 0)
  1013.       fprintf(html, "<TR>\n<TD><B>49333</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1014.  
  1015.     /* 50666 CPS */
  1016.     x = atoi(LeRegistroDB("T:Freedom.Rates", "50666"));
  1017.     if(x > 0)
  1018.       fprintf(html, "<TR>\n<TD><B>50666</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1019.  
  1020.     /* 52000 CPS */
  1021.     x = atoi(LeRegistroDB("T:Freedom.Rates", "52000"));
  1022.     if(x > 0)
  1023.       fprintf(html, "<TR>\n<TD><B>52000</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1024.  
  1025.     /* 53333 CPS */
  1026.     x = atoi(LeRegistroDB("T:Freedom.Rates", "53333"));
  1027.     if(x > 0)
  1028.       fprintf(html, "<TR>\n<TD><B>53333</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1029.  
  1030.     /* 54666 CPS */
  1031.     x = atoi(LeRegistroDB("T:Freedom.Rates", "54666"));
  1032.     if(x > 0)
  1033.       fprintf(html, "<TR>\n<TD><B>54666</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1034.  
  1035.     /* 57600 CPS */
  1036.     x = atoi(LeRegistroDB("T:Freedom.Rates", "57600"));
  1037.     if(x > 0)
  1038.       fprintf(html, "<TR>\n<TD><B>57600</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1039.  
  1040.     /* 64000 CPS */
  1041.     x = atoi(LeRegistroDB("T:Freedom.Rates", "64000"));
  1042.     if(x > 0)
  1043.       fprintf(html, "<TR>\n<TD><B>64000</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1044.  
  1045.     /* 76800 CPS */
  1046.     x = atoi(LeRegistroDB("T:Freedom.Rates", "76800"));
  1047.     if(x > 0)
  1048.       fprintf(html, "<TR>\n<TD><B>76800</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1049.  
  1050.     /* 115200 CPS */
  1051.     x = atoi(LeRegistroDB("T:Freedom.Rates", "115200"));
  1052.     if(x > 0)
  1053.       fprintf(html, "<TR>\n<TD><B>115200</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1054.  
  1055.     /* 230400 CPS */
  1056.     x = atoi(LeRegistroDB("T:Freedom.Rates", "230400"));
  1057.     if(x > 0)
  1058.       fprintf(html, "<TR>\n<TD><B>230400</B></TD>\n<TD><DIV ALIGN=RIGHT>%d</DIV></TD>\n</TR>\n", x);
  1059.  
  1060.     fprintf(html, "</TABLE>\n");
  1061.   }
  1062.  
  1063.   /* GERA HTML DAS LIGACOES ANALITICAMENTE */
  1064.   if(htm == 0)
  1065.   {
  1066.     if(entrada = fopen("T:Freedom.InTmp", "r"))
  1067.     {
  1068.       fprintf(html, "<BR><HR>\n<B><H2>%s</B></H2><BR>\n<TABLE BORDER BGCOLOR=#FFFFFF>\n<TR BGCOLOR=#00FFFF>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD>\n<TD><B>%s</B></TD></TR>\n", TMsg(App->Msg104), TMsg(App->Msg100), TMsg(App->Msg101), TMsg(App->Msg92), TMsg(App->Msg102), TMsg(App->Msg93), TMsg(App->Msg103));
  1069.       x = 0;
  1070.       while(a = getc(entrada), ! feof(entrada))
  1071.       {
  1072.         teste[x++] = a;
  1073.         if(a == '\n')
  1074.         {
  1075.           teste[--x] = '\0';
  1076.  
  1077.           if(!(strcmp(Corta(teste, ',', 5), "Act"))) {
  1078.             /* REGULAR */
  1079.             strcpy(status, TMsg(App->Msg54));
  1080.           } else {
  1081.             /* IRREGULAR */
  1082.             strcpy(status, TMsg(App->Msg55)); }
  1083.  
  1084.           strcpy(dia,    Corta(teste, ',', 1));
  1085.           strcpy(sem,    DiaSemanaFREE(dia, 1));
  1086.           strcpy(login,  Corta(teste, ',', 2));
  1087.           strcpy(online, Corta(teste, ',', 6));
  1088.           strcpy(fone,   Corta(teste, ',', 0));
  1089.  
  1090.           /* LE O VALOR DA LIGACAO */
  1091.           strcpy(cost, Corta(teste, ',', 8));
  1092.           strcpy(teste2, CasasAposCaracter(cost, '.', atoi(precision)));
  1093.           if(moeda == 0)
  1094.             sprintf(cost, "%s%s", moedac, teste2);
  1095.           else
  1096.             sprintf(cost, "%s%s", teste2, moedac);
  1097.           if(registro < 2)
  1098.             strcpy(cost, "REALREG");
  1099.  
  1100.           strcpy(login,  SegundoHora(login));
  1101.           strcpy(online, SegundoHora(online));
  1102.  
  1103.           /* GRAVA CONECCOES NO HTML */
  1104.           fprintf(html, "<TR>\n<TD><B>%s</B></TD><TD>%s</TD><TD><B>%s</B></TD><TD>%s</TD><TD><B>%s</B></TD><TD>%s (%s)</TD>\n</TR>\n", dia, login, online, fone, cost, status, sem);
  1105.           teste[0] = '\0'; x = 0;
  1106.         }
  1107.       }
  1108.       fclose(entrada);
  1109.     }
  1110.   }
  1111.  
  1112.   /* FINALIZA O HTML */
  1113.   if(htm == 0)
  1114.   {
  1115.     fprintf(html, "</TABLE>\n</BODY>\n</HTML>\n");
  1116.     fclose(html);
  1117.  
  1118.     /* VERIFICA OPCAO DE SALVAR HTML NA BASE DE DADOS */
  1119.     if(salvahtml == TRUE)
  1120.       CopiaArquivo("T:Freedom.HTML", htmlfile);
  1121.   }
  1122.   remove("t:freedom.outtmp");
  1123.  
  1124.   /* FECHA A JANELA DE DISPLAY DE GERACAO */
  1125.   set(App->JanelaGeracaoQuery, MUIA_Window_Open, FALSE);
  1126.   /* ABRE A JANELA COM AS ESTATISTICAS */
  1127.   set(App->JanelaDesseMes, MUIA_Window_Open, TRUE);
  1128.   return NULL;
  1129. }
  1130.  
  1131. APTR SalvaConfiguracao( struct Hook *a0, APTR a2, APTR a1 )
  1132. {
  1133.   /* ROTINA QUE SALVA A CONFIGURACAO DO FREEDOM CALL */
  1134.   char *path, *limit, *regname, *regcity, *unit,
  1135.        *regcountry, *regorganiz, *regemail, *regnumber, *regnumberreal,
  1136.        *freeinicio, *freefim, *diainicio, *database, *precision,
  1137.        *phoneignore, *categorydir, *categorydefault, *pricedefault,
  1138.        *providerbill, *extrahour, *excededtime, *excededyear,
  1139.        *htmlname, *browser;
  1140.   long warning = 0, startup = 0, phonecheck = 0, menu = 0,
  1141.        returnmonth = 0, htmlcheck = 0, checkreports = 0,
  1142.        checkglobalhtml = 0;
  1143.  
  1144.   FILE *saida;
  1145.   if(!(saida = fopen("Freedom:Freedom.Config", "w")))
  1146.   {
  1147.     fclose(saida);
  1148.     /* PROBLEMA NO ACESSO AO FREEDOM:FREEDOM.CONFIG */
  1149.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg31));
  1150.     return NULL;
  1151.   }
  1152.  
  1153.   get(App->RequestMiamiLog, MUIA_String_Contents, &path);
  1154.   get(App->InputLimitTime, MUIA_String_Contents, &limit);
  1155.   get(App->LabelVisualGeneration, MUIA_Selected, &warning);
  1156.   get(App->LabelGenerationStartup, MUIA_Selected, &startup);
  1157.   get(App->ProviderRetornaMes, MUIA_Selected, &returnmonth);
  1158.   get(App->RegisterName, MUIA_String_Contents, ®name);
  1159.   get(App->RegisterOrganization, MUIA_String_Contents, ®organiz);
  1160.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  1161.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  1162.   get(App->RegisterKeyReal, MUIA_String_Contents, ®numberreal);
  1163.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  1164.   get(App->RegisterCity, MUIA_String_Contents, ®city);
  1165.   get(App->PrefsFreeHInicio, MUIA_String_Contents, &freeinicio);
  1166.   get(App->PrefsFreeHFim, MUIA_String_Contents, &freefim);
  1167.   get(App->PrefsDiaInicial, MUIA_String_Contents, &diainicio);
  1168.   get(App->DataBaseName, MUIA_String_Contents, &database);
  1169.   get(App->GrupoFoneInput, MUIA_String_Contents, &phoneignore);
  1170.   get(App->GrupoFoneInputCheck, MUIA_Selected, &phonecheck);
  1171.   get(App->PrefsComboMenu, MUIA_Cycle_Active, &menu);
  1172.   get(App->TextDefault, MUIA_Text_Contents, &categorydefault);
  1173.   get(App->CategValorDefault, MUIA_String_Contents, &pricedefault);
  1174.   get(App->CategDiretorio, MUIA_String_Contents, &categorydir);
  1175.   get(App->ConfPrecision, MUIA_String_Contents, &precision);
  1176.   get(App->HoraExtra, MUIA_String_Contents, &extrahour);
  1177.   get(App->ContaProvedor, MUIA_String_Contents, &providerbill);
  1178.   get(App->ConfUnit, MUIA_String_Contents, &unit);
  1179.   get(App->ExcededTime, MUIA_String_Contents, &excededtime);
  1180.   get(App->ExcededYear, MUIA_String_Contents, &excededyear);
  1181.   get(App->HtmlCheck, MUIA_Selected, &htmlcheck);
  1182.   get(App->HtmlName, MUIA_String_Contents, &htmlname);
  1183.   get(App->Browser, MUIA_String_Contents, &browser);
  1184.   get(App->CheckReports, MUIA_Selected, &checkreports);
  1185.   get(App->CheckGlobalHtml, MUIA_Selected, &checkglobalhtml);
  1186.  
  1187.   fprintf(saida, "**>path:%s\n", path);
  1188.   fprintf(saida, "**>limit:%s\n", limit);
  1189.   fprintf(saida, "**>warning:%d\n", warning);
  1190.   fprintf(saida, "**>startup:%d\n", startup);
  1191.   fprintf(saida, "**>regname:%s\n", regname);
  1192.   fprintf(saida, "**>regorganiz:%s\n", regorganiz);
  1193.   fprintf(saida, "**>regemail:%s\n", regemail);
  1194.   fprintf(saida, "**>regnumber:%s\n", regnumber);
  1195.   fprintf(saida, "**>regcountry:%s\n", regcountry);
  1196.   fprintf(saida, "**>regcity:%s\n", regcity);
  1197.   fprintf(saida, "**>freeinit:%s\n", freeinicio);
  1198.   fprintf(saida, "**>freeend:%s\n", freefim);
  1199.   fprintf(saida, "**>dayinit:%s\n", diainicio);
  1200.   fprintf(saida, "**>databasename:%s\n", database);
  1201.   fprintf(saida, "**>phoneignore:%s\n", phoneignore);
  1202.   fprintf(saida, "**>phonecheck:%d\n", phonecheck);
  1203.   fprintf(saida, "**>menu:%d\n", menu);
  1204.   fprintf(saida, "**>categorydefault:%s\n", categorydefault);
  1205.   fprintf(saida, "**>pricedefault:%s\n", pricedefault);
  1206.   fprintf(saida, "**>categorydir:%s\n", categorydir);
  1207.   fprintf(saida, "**>returnmonth:%d\n", returnmonth);
  1208.   fprintf(saida, "**>precision:%s\n", precision);
  1209.   fprintf(saida, "**>regnumberreal:%s\n", regnumberreal);
  1210.   fprintf(saida, "**>extrahour:%s\n", extrahour);
  1211.   fprintf(saida, "**>providerbill:%s\n", providerbill);
  1212.   fprintf(saida, "**>unitdiscount:%s\n", unit);
  1213.   fprintf(saida, "**>excededtime:%s\n", excededtime);
  1214.   fprintf(saida, "**>excededyear:%s\n", excededyear);
  1215.   fprintf(saida, "**>htmlcheck:%d\n", htmlcheck);
  1216.   fprintf(saida, "**>htmlname:%s\n", htmlname);
  1217.   fprintf(saida, "**>browser:%s\n", browser);
  1218.   fprintf(saida, "**>checkreports:%d\n", checkreports);
  1219.   fprintf(saida, "**>checkglobalhtml:%d\n", checkglobalhtml);
  1220.  
  1221.   fclose(saida);
  1222.   return NULL;
  1223. }
  1224.  
  1225. APTR CarregaConfiguracao( struct Hook *a0, APTR a2, APTR a1 )
  1226. {
  1227.   /* ROTINA DE CARREGAMENTO DA CONFIGURACAO, AS INFORMACOES SAO LIDAS
  1228.   DO FREEDOM.CONFIG E LARGADA NOS FORMS DE CONFIGURACAO DE ONDE SERAO
  1229.   LIDAS PELO PROGRAMA */
  1230.   char teste[256], *database, a, regnumberreal[500], unit[10],
  1231.        path[256], limit[10], warning[2], startup[2], regname[256],
  1232.        regorganiz[256], regemail[256], regnumber[500], regcountry[256],
  1233.        regcity[256], freeinit[15], freeend[15], dayinit[15],
  1234.        databasename[256], phoneignore[256], phonecheck[2], menu[2],
  1235.        categorydefault[256], pricedefault[10], categorydir[256],
  1236.        returnmonth[2], precision[10], extrahour[10], providerbill[10],
  1237.        excededtime[30], excededyear[30], htmlcheck[2], htmlname[256],
  1238.        browser[256], checkreports[2], checkglobalhtml[2];
  1239.  
  1240.   int x = 0, y = 0;
  1241.   FILE *entrada;
  1242.  
  1243.   /* ZERA VARIAVEIS */
  1244.   path[0]            = '\0';
  1245.   limit[0]           = '\0';
  1246.   warning[0]         = '\0';
  1247.   startup[0]         = '\0';
  1248.   regname[0]         = '\0';
  1249.   regorganiz[0]      = '\0';
  1250.   regemail[0]        = '\0';
  1251.   regnumber[0]       = '\0';
  1252.   regcountry[0]      = '\0';
  1253.   regcity[0]         = '\0';
  1254.   freeinit[0]        = '\0';
  1255.   freeend[0]         = '\0';
  1256.   dayinit[0]         = '\0';
  1257.   databasename[0]    = '\0';
  1258.   phoneignore[0]     = '\0';
  1259.   phonecheck[0]      = '\0';
  1260.   menu[0]            = '\0';
  1261.   categorydefault[0] = '\0';
  1262.   pricedefault[0]    = '\0';
  1263.   categorydir[0]     = '\0';
  1264.   returnmonth[0]     = '\0';
  1265.   precision[0]       = '\0';
  1266.   regnumberreal[0]   = '\0';
  1267.   extrahour[0]       = '\0';
  1268.   providerbill[0]    = '\0';
  1269.   unit[0]            = '\0';
  1270.   excededtime[0]     = '\0';
  1271.   excededyear[0]     = '\0';
  1272.   htmlcheck[0]       = '\0';
  1273.   htmlname[0]        = '\0';
  1274.   browser[0]         = '\0';
  1275.   checkreports[0]    = '\0';
  1276.   checkglobalhtml[0] = '\0';
  1277.  
  1278.   get(App->DataBaseName, MUIA_String_Contents, &database);
  1279.   if(!(ExisteDiretorio("Freedom:")))
  1280.   {
  1281.     /* FREEDOM NEEDS ASSIGN */
  1282.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg28));
  1283.     DoMethod(App->App, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
  1284.   }
  1285.   /* ROTINA PARA CARREGAR A CONFIGURACAO */
  1286.   if(!(entrada = fopen("Freedom:Freedom.Config", "r")))
  1287.     return NULL;
  1288.  
  1289.   x = 0; y = 0;
  1290.   while(a = getc(entrada), ! feof(entrada))
  1291.   {
  1292.     teste[x++] = a;
  1293.     if(a == '\n')
  1294.     {
  1295.       teste[--x] = '\0'; y++;
  1296.       switch(y)
  1297.       {
  1298.         case  1: strcpy(path, AposCaracter(teste, ':', 1)); break;
  1299.         case  2: strcpy(limit, AposCaracter(teste, ':', 1)); break;
  1300.         case  3: strcpy(warning, AposCaracter(teste, ':', 1)); break;
  1301.         case  4: strcpy(startup, AposCaracter(teste, ':', 1)); break;
  1302.         case  5: strcpy(regname, AposCaracter(teste, ':', 1)); break;
  1303.         case  6: strcpy(regorganiz, AposCaracter(teste, ':', 1)); break;
  1304.         case  7: strcpy(regemail, AposCaracter(teste, ':', 1)); break;
  1305.         case  8: strcpy(regnumber, AposCaracter(teste, ':', 1)); break;
  1306.         case  9: strcpy(regcountry, AposCaracter(teste, ':', 1)); break;
  1307.         case 10: strcpy(regcity, AposCaracter(teste, ':', 1)); break;
  1308.         case 11: strcpy(freeinit, AposCaracter(teste, ':', 1)); break;
  1309.         case 12: strcpy(freeend, AposCaracter(teste, ':', 1)); break;
  1310.         case 13: strcpy(dayinit, AposCaracter(teste, ':', 1)); break;
  1311.         case 14: strcpy(databasename, AposCaracter(teste, ':', 1)); break;
  1312.         case 15: strcpy(phoneignore, AposCaracter(teste, ':', 1)); break;
  1313.         case 16: strcpy(phonecheck, AposCaracter(teste, ':', 1)); break;
  1314.         case 17: strcpy(menu, AposCaracter(teste, ':', 1)); break;
  1315.         case 18: strcpy(categorydefault, AposCaracter(teste, ':', 1)); break;
  1316.         case 19: strcpy(pricedefault, AposCaracter(teste, ':', 1)); break;
  1317.         case 20: strcpy(categorydir, AposCaracter(teste, ':', 1)); break;
  1318.         case 21: strcpy(returnmonth, AposCaracter(teste, ':', 1)); break;
  1319.         case 22: strcpy(precision, AposCaracter(teste, ':', 1)); break;
  1320.         case 23: strcpy(regnumberreal, AposCaracter(teste, ':', 1)); break;
  1321.         case 24: strcpy(extrahour, AposCaracter(teste, ':', 1)); break;
  1322.         case 25: strcpy(providerbill, AposCaracter(teste, ':', 1)); break;
  1323.         case 26: strcpy(unit, AposCaracter(teste, ':', 1)); break;
  1324.         case 27: strcpy(excededtime, AposCaracter(teste, ':', 1)); break;
  1325.         case 28: strcpy(excededyear, AposCaracter(teste, ':', 1)); break;
  1326.         case 29: strcpy(htmlcheck, AposCaracter(teste, ':', 1)); break;
  1327.         case 30: strcpy(htmlname, AposCaracter(teste, ':', 1)); break;
  1328.         case 31: strcpy(browser, AposCaracter(teste, ':', 1)); break;
  1329.         case 32: strcpy(checkreports, AposCaracter(teste, ':', 1)); break;
  1330.         case 33: strcpy(checkglobalhtml, AposCaracter(teste, ':', 1)); break;
  1331.       }
  1332.       teste[0] = '\0'; x = 0;
  1333.     }
  1334.   }
  1335.   fclose(entrada);
  1336.  
  1337.   set(App->RequestMiamiLog, MUIA_String_Contents, path);
  1338.   set(App->InputLimitTime, MUIA_String_Contents, limit);
  1339.  
  1340.   /* CARREGA CAMPOS NUMERICOS DE CHECK BOX */
  1341.   if(atoi(warning) == 1)
  1342.     set(App->LabelVisualGeneration, MUIA_Selected, TRUE);
  1343.   else
  1344.     set(App->LabelVisualGeneration, MUIA_Selected, FALSE);
  1345.   if(atoi(startup) == 1)
  1346.     set(App->LabelGenerationStartup, MUIA_Selected, TRUE);
  1347.   else
  1348.     set(App->LabelGenerationStartup, MUIA_Selected, FALSE);
  1349.   if(atoi(phonecheck) == 1)
  1350.     set(App->GrupoFoneInputCheck, MUIA_Selected, TRUE);
  1351.   else
  1352.     set(App->GrupoFoneInputCheck, MUIA_Selected, FALSE);
  1353.   if(atoi(returnmonth) == 1)
  1354.     set(App->ProviderRetornaMes, MUIA_Selected, TRUE);
  1355.   else
  1356.     set(App->ProviderRetornaMes, MUIA_Selected, FALSE);
  1357.   if(atoi(htmlcheck) == 1)
  1358.     set(App->HtmlCheck, MUIA_Selected, TRUE);
  1359.   else
  1360.     set(App->HtmlCheck, MUIA_Selected, FALSE);
  1361.   if(atoi(checkreports) == 1)
  1362.     set(App->CheckReports, MUIA_Selected, TRUE);
  1363.   else
  1364.     set(App->CheckReports, MUIA_Selected, FALSE);
  1365.  
  1366.   if(atoi(checkglobalhtml) == 1)
  1367.     set(App->CheckGlobalHtml, MUIA_Selected, TRUE);
  1368.   else
  1369.     set(App->CheckGlobalHtml, MUIA_Selected, FALSE);
  1370.  
  1371.   set(App->HtmlName, MUIA_String_Contents, htmlname);
  1372.   set(App->Browser, MUIA_String_Contents, browser);
  1373.   set(App->ExcededTime, MUIA_String_Contents, excededtime);
  1374.   set(App->ExcededYear, MUIA_String_Contents, excededyear);
  1375.   set(App->HoraExtra, MUIA_String_Contents, extrahour);
  1376.   set(App->ContaProvedor, MUIA_String_Contents, providerbill);
  1377.   set(App->PrefsComboMenu, MUIA_Cycle_Active, atof(menu));
  1378.   set(App->RegisterName, MUIA_String_Contents, regname);
  1379.   set(App->RegisterOrganization, MUIA_String_Contents, regorganiz);
  1380.   set(App->RegisterEmail, MUIA_String_Contents, regemail);
  1381.   set(App->RegisterKey, MUIA_String_Contents, regnumber);
  1382.   set(App->RegisterKeyReal, MUIA_String_Contents, regnumberreal);
  1383.   set(App->RegisterCountry, MUIA_String_Contents, regcountry);
  1384.   set(App->RegisterCity, MUIA_String_Contents, regcity);
  1385.   set(App->GrupoFoneInput, MUIA_String_Contents, phoneignore);
  1386.   set(App->CategValorDefault, MUIA_String_Contents, pricedefault);
  1387.   set(App->TextDefault, MUIA_Text_Contents, categorydefault);
  1388.   set(App->PrefsFreeHInicio, MUIA_String_Contents, freeinit);
  1389.   set(App->PrefsFreeHFim, MUIA_String_Contents, freeend);
  1390.   set(App->PrefsDiaInicial, MUIA_String_Contents, dayinit);
  1391.   set(App->DataBaseName, MUIA_String_Contents, databasename);
  1392.   set(App->CategDiretorio, MUIA_String_Contents, categorydir);
  1393.   set(App->ConfPrecision, MUIA_String_Contents, precision);
  1394.   set(App->ConfUnit, MUIA_String_Contents, unit);
  1395.  
  1396.   /* CARREGA A CATEGORIA DEFAULT */
  1397.   CarregaListaLimites(categorydefault);
  1398.   CarregaPilhaCategorias(categorydefault);
  1399.  
  1400.   /* ACERTA VALORES DEFAULTS CASO SEJAM INVALIDOS */
  1401.   if(!(strcmp(precision, "")))
  1402.     set(App->ConfPrecision, MUIA_String_Contents, "2");
  1403.   if(!(strcmp(categorydir, "")))
  1404.     set(App->CategDiretorio, MUIA_String_Contents, "Freedom:Categories");
  1405.   if(!(strcmp(freeinit, "")))
  1406.     set(App->PrefsFreeHInicio, MUIA_String_Contents, "00:00:00");
  1407.   if(!(strcmp(freeend, "")))
  1408.     set(App->PrefsFreeHFim, MUIA_String_Contents, "00:00:00");
  1409.   if(!(strcmp(dayinit, "")))
  1410.     set(App->PrefsDiaInicial, MUIA_String_Contents, "1");
  1411.   if(!(strcmp(databasename, "")))
  1412.     set(App->DataBaseName, MUIA_String_Contents, "Freedom:FDataBase");
  1413.  
  1414.   /* VERIFICA A JANELA PRINCIPAL CERTA A ABRIR (STAND, GRAPHIC) */
  1415.   if(!strcmp(menu, "0")) {
  1416.     set(App->JanelaPrincipal, MUIA_Window_Open, FALSE);
  1417.     set(App->JanelaPrincipal2, MUIA_Window_Open, TRUE);
  1418.   } else {
  1419.     set(App->JanelaPrincipal2, MUIA_Window_Open, FALSE);
  1420.     set(App->JanelaPrincipal, MUIA_Window_Open, TRUE); }
  1421.  
  1422.   /* CARREGA A LISTA PRINCIPAL DAS CATEGORIAS */
  1423.   CarregaListaCategorias();
  1424.   return NULL;
  1425. }
  1426.  
  1427. APTR TestaRegistro( struct Hook *a0, APTR a2, APTR a1 )
  1428. {
  1429.   char senha1[256], senha2[256], senhatmp[256], *regnumber2,
  1430.        *regemail, *regnumber, *regname, *regorg, *regcountry;
  1431.   int registro = 0;
  1432.  
  1433.   /* ROTINA QUE TESTA O TIPO DE REGISTRO */
  1434.   get(App->RegisterName, MUIA_String_Contents, ®name);
  1435.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  1436.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  1437.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  1438.   get(App->RegisterKeyReal, MUIA_String_Contents, ®number2);
  1439.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  1440.   strcpy(senha1, AsciiString(regnumber, 69));
  1441.   strcpy(senha2, AsciiString(regnumber2, 96));
  1442.   sprintf(senhatmp, "%s%s%s", regname, regemail, regcountry);
  1443.   strcpy(senhatmp, CriptografiaSimples(senhatmp, 0));
  1444.   if(!strcmp(senha1, senhatmp))
  1445.     registro = 1;
  1446.   if(!strcmp(senha1, senhatmp) && !strcmp(senha2, senhatmp))
  1447.     registro = 2;
  1448.   if(!strcmp(regnumber, ""))
  1449.     registro = 0;
  1450.  
  1451.   /* TESTA SE O PROGRAMA EH REGISTRADO OU NAO */
  1452.   if(registro == 0)
  1453.   {
  1454.     MsgRegistro();
  1455.     return NULL;
  1456.   }
  1457.   set(App->JanelaSelecionaMes, MUIA_Window_Open, TRUE);
  1458.   return NULL;
  1459. }
  1460.  
  1461. APTR PreparaOutroMes( struct Hook *a0, APTR a2, APTR a1 )
  1462. {
  1463.   /* ROTINA QUE PREPARA O ARQUIVO DE ESTATISTICAS COM OUTRO MES, 
  1464.   DIA OU ATE MESMO UM DETERMINADO ANO */
  1465.   char teste[256], mesdes[5], diades[5], *dia, *mes, *ano, *select,
  1466.        mesdes2[20], *diax, *horainicio, *horafim, data1[256], 
  1467.        data2[256], *database, freein[256], freeout[256], xx[10],
  1468.        arquivo1[256], arquivo2[256];
  1469.   int x = 0;
  1470.   long combo = 0, retorno = 0;
  1471.  
  1472.   LimpaJanelaDesseMes();
  1473.   /* TESTA SE O DIRETORIO DA BASE DE DADOS EXISTE */
  1474.   get(App->DataBaseName, MUIA_String_Contents, &database);
  1475.   if(!ExisteDiretorio(database))
  1476.   {
  1477.      MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg17));
  1478.      return NULL;
  1479.   }
  1480.  
  1481.   /* PEGA O NUMERO DA POSICAO DO COMBO DE DIA, MES, ANO */
  1482.   get(App->ComboSelect, MUIA_Cycle_Active, &combo);
  1483.  
  1484.   set(App->JanelaGeracaoQuery, MUIA_Window_Open, TRUE);
  1485.   set(App->GaugeQuery, MUIA_Gauge_Current, 5);
  1486.   set(App->GaugeQuery, MUIA_Gauge_InfoText, TMsg(App->Msg26));
  1487.  
  1488.   get(App->TextDia, MUIA_String_Contents, &dia);
  1489.   get(App->ComboMes, MUIA_Text_Contents, &mes);
  1490.   get(App->TextAno, MUIA_String_Contents, &ano);
  1491.   get(App->ComboSelect, MUIA_Text_Contents, &select);
  1492.   get(App->PrefsFreeHInicio, MUIA_String_Contents, &horainicio);
  1493.   get(App->PrefsFreeHFim, MUIA_String_Contents, &horafim);
  1494.   get(App->PrefsDiaInicial, MUIA_String_Contents, &diax);
  1495.   get(App->ProviderRetornaMes, MUIA_Selected, &retorno);
  1496.  
  1497.   sprintf(mesdes, Corta(mes, ' ', 0));
  1498.   sprintf(mesdes2, Corta(mes, ' ', 1));
  1499.  
  1500.   /* CARREGA VARIAVEIS DE PARA LEITURA DOS ARQUIVOS */
  1501.   sprintf(freeout, "%s/Freedom.Out", database);
  1502.  
  1503.   set(App->GaugeQuery, MUIA_Gauge_Current, 15);
  1504.   /* ACERTA ESTATISTICA POR DIA */
  1505.   if(combo == 1)
  1506.   {
  1507.     if(strlen(dia) < 2)
  1508.       sprintf(diades, "0%s", dia);
  1509.     else
  1510.       strcpy(diades, dia);
  1511.     sprintf(teste, "%s.%s.%s", diades, mesdes, ano);
  1512.     sprintf(freein, "%s/Freedom.%s.%s", database, mesdes, ano);
  1513.  
  1514.     if( ((!(strcmp(horainicio, "")) && !(strcmp(horafim, ""))) ||
  1515.          (!(strcmp(horainicio, "00:00:00")) && !(strcmp(horafim, "00:00:00")))) && (atoi(diax) <= 1) )
  1516.     {
  1517.       FiltraCampoParaArquivoFREE(teste, freein, "t:freedom.intmp", ',', 1, '.');
  1518.       FiltraCampoParaArquivoFREE(teste, freeout, "t:freedom.outtmp", ',', 1, '.');
  1519.     }
  1520.     else
  1521.     {
  1522.       SelecionaIntervaloCampo(freein, "T:Freedom.InTmp", "Ram:Freedom.Temp", teste, teste, horainicio, horafim);
  1523.       SelecionaIntervaloCampo(freeout, "T:Freedom.OutTmp", "Ram:Freedom.Temp", teste, teste, horainicio, horafim);
  1524.     }
  1525.     sprintf(teste, "%s, %s %s", diades, mesdes2, ano);
  1526.     GravaRegistroDB("t:Freedom.Date", teste, "date", "w");
  1527.     SemanaCount("t:Freedom.InTmp");
  1528.     return NULL;
  1529.   }
  1530.   set(App->GaugeQuery, MUIA_Gauge_Current, 35);
  1531.  
  1532.   /* ACERTA ESTATISTICA POR MES */
  1533.   if(combo == 0)
  1534.   {
  1535.     sprintf(teste, "%s.%s", mesdes, ano);
  1536.     sprintf(freein, "%s/Freedom.%s.%s", database, mesdes, ano);
  1537.  
  1538.     if( ((!(strcmp(horainicio, "")) && !(strcmp(horafim, ""))) ||
  1539.          (!(strcmp(horainicio, "00:00:00")) && !(strcmp(horafim, "00:00:00")))) && (atoi(diax) <= 1) )
  1540.     {
  1541.       FiltraCampoParaArquivoFREE(teste, freein, "t:freedom.intmp", ',', 1, '.');
  1542.       FiltraCampoParaArquivoFREE(teste, freeout, "t:freedom.outtmp", ',', 1, '.');
  1543.     }
  1544.     else
  1545.     {
  1546.       sprintf(data1, "%s.%s", diax, teste);
  1547.       x = atoi(diax);  
  1548.       x--;
  1549.       if(x < 1)
  1550.         x = 31;
  1551.       sprintf(data2, "%d.%s", x, teste);
  1552.  
  1553.       if(atoi(diax) > 1)
  1554.       {
  1555.         strcpy(data2, ArrumaDataHora(SomaDiminuiMes(data2, 1), '.'));
  1556.         /* RETORNA UM MES CASO SEJA NECESSARIO */
  1557.         if(retorno == 1)
  1558.         {
  1559.           strcpy(data1, SomaDiminuiMes(data1, -1));
  1560.           strcpy(data2, SomaDiminuiMes(data2, -1));
  1561.         }
  1562.         /* PREPARA O ARQUIVO DE LEITURA */
  1563.         sprintf(arquivo1, "%s/Freedom.%s", database, AposCaracter(data1, '.', 1));
  1564.         sprintf(arquivo2, "%s/Freedom.%s", database, AposCaracter(data2, '.', 1));
  1565.         CopiaArquivo(arquivo1, "T:Freedom.InTmp");
  1566.         InsereArquivo(arquivo2, "T:Freedom.InTmp");
  1567.         strcpy(freein, "T:Freedom.InTmp");
  1568.       }
  1569.       SelecionaIntervaloCampo(freein, "T:Freedom.InTmp", "Ram:Freedom.Temp", data1, data2, horainicio, horafim);
  1570.       SelecionaIntervaloCampo(freeout, "T:Freedom.OutTmp", "Ram:Freedom.Temp", data1, data2, horainicio, horafim);
  1571.     }
  1572.     sprintf(teste, "%s %s", mesdes2, ano);
  1573.     GravaRegistroDB("t:Freedom.Date", teste, "date", "w");
  1574.     SemanaCount("t:Freedom.InTmp");
  1575.     return NULL;
  1576.   } 
  1577.   set(App->GaugeQuery, MUIA_Gauge_Current, 35);
  1578.  
  1579.   /* ACERTA ESTATISTICA POR ANO */
  1580.   if(combo == 2)
  1581.   {
  1582.     /* PREPARA ARQUIVO ANUAL PARA CONSULTA */
  1583.     for(x = 1; x < 13; x++)
  1584.     {
  1585.       if(x < 10)
  1586.         sprintf(xx, "0%d", x);
  1587.       else
  1588.         sprintf(xx, "%d", x);
  1589.       sprintf(teste, "%s/Freedom.%s.%s", database, xx, ano); 
  1590.       InsereArquivo(teste, "t:Freedom.Year");
  1591.     }
  1592.     sprintf(teste, "%s", ano);
  1593.  
  1594.     if( ((!(strcmp(horainicio, "")) && !(strcmp(horafim, ""))) ||
  1595.          (!(strcmp(horainicio, "00:00:00")) && !(strcmp(horafim, "00:00:00")))) && (atoi(diax) <= 1) )
  1596.     {
  1597.       CopiaArquivo("T:Freedom.Year", "t:Freedom.InTmp");
  1598.       FiltraCampoParaArquivoFREE(teste, freeout, "t:freedom.outtmp", ',', 1, '.');
  1599.     }
  1600.     else
  1601.     {
  1602.       sprintf(data1, "01.01.%s", teste);
  1603.       sprintf(data2, "31.12.%s", teste);
  1604.       SelecionaIntervaloCampo("t:Freedom.Year", "T:Freedom.InTmp", "Ram:Freedom.Temp", data1, data2, horainicio, horafim);
  1605.       SelecionaIntervaloCampo(freeout, "T:Freedom.OutTmp", "Ram:Freedom.Temp", data1, data2, horainicio, horafim);
  1606.     }
  1607.     set(App->GaugeQuery, MUIA_Gauge_Current, 35);
  1608.     remove("t:Freedom.Year");
  1609.     sprintf(teste, "%s", ano);
  1610.     GravaRegistroDB("t:Freedom.Date", teste, "date", "w");
  1611.     SemanaCount("t:Freedom.InTmp");
  1612.     set(App->GaugeQuery, MUIA_Gauge_Current, 50);
  1613.     return NULL;
  1614.   } 
  1615.   return NULL;
  1616. }
  1617.  
  1618. APTR DiminuiDia( struct Hook *a0, APTR a2, APTR a1 )
  1619. {
  1620.   /* ROTINA QUE DIMINUI DIA NO EDIT DA SELECAO DE MES */
  1621.   char teste[100], *dia;
  1622.   get(App->TextDia, MUIA_String_Contents, &dia);
  1623.   if(atoi(dia) == 1)
  1624.     strcpy(dia, "31");
  1625.   else
  1626.   {
  1627.     sprintf(teste, "%d", (atoi(dia) - 1));
  1628.     strcpy(dia, teste);
  1629.   }
  1630.   MUI_Redraw(App->TextDia, MADF_DRAWOBJECT);
  1631.   return NULL;
  1632. }
  1633.  
  1634. APTR AumentaDia( struct Hook *a0, APTR a2, APTR a1 )
  1635. {
  1636.   /* ROTINA QUE AUMENTA DIA NO EDIT DA SELECAO DE MES */
  1637.   char teste[100], *dia;
  1638.   get(App->TextDia, MUIA_String_Contents, &dia);
  1639.   if(atoi(dia) == 31)
  1640.     strcpy(dia, "1");
  1641.   else
  1642.   {
  1643.     sprintf(teste, "%d", (atoi(dia) + 1));
  1644.     strcpy(dia, teste);
  1645.   }
  1646.   MUI_Redraw(App->TextDia, MADF_DRAWOBJECT);
  1647.   return NULL;
  1648. }
  1649.  
  1650. APTR DiminuiAno( struct Hook *a0, APTR a2, APTR a1 )
  1651. {
  1652.   /* ROTINA QUE DIMINUI ANO NO EDIT DA SELECAO DE MES */
  1653.   char teste[100], *ano;
  1654.   get(App->TextAno, MUIA_String_Contents, &ano);
  1655.   if(atoi(ano) == 1)
  1656.     strcpy(ano, "1");
  1657.   else
  1658.   {
  1659.     sprintf(teste, "%d", (atoi(ano) - 1));
  1660.     strcpy(ano, teste);
  1661.   }
  1662.   MUI_Redraw(App->TextAno, MADF_DRAWOBJECT);
  1663.   return NULL;
  1664. }
  1665.  
  1666. APTR AumentaAno( struct Hook *a0, APTR a2, APTR a1 )
  1667. {
  1668.   /* ROTINA QUE AUMENTA ANO NO EDIT DA SELECAO DE MES */
  1669.   char teste[100], *ano;
  1670.   get(App->TextAno, MUIA_String_Contents, &ano);
  1671.   sprintf(teste, "%d", (atoi(ano) + 1));
  1672.   strcpy(ano, teste);
  1673.   MUI_Redraw(App->TextAno, MADF_DRAWOBJECT);
  1674.   return NULL;
  1675. }
  1676.  
  1677. APTR DataAtual( struct Hook *a0, APTR a2, APTR a1 )
  1678. {
  1679.   /* CARREGA DATA ATUAL PARA A JANELA DE SELECAO DE MES */
  1680.   char *database, *dia, *ano, teste[256], teste2[256];
  1681.   int tmp;
  1682.   get(App->TextDia, MUIA_String_Contents, &dia);
  1683.   get(App->TextAno, MUIA_String_Contents, &ano);
  1684.   get(App->DataBaseName, MUIA_String_Contents, &database);
  1685.   strcpy(teste, DataHora(0));
  1686.  
  1687.   tmp = atoi(Corta(teste, '.', 0));
  1688.   sprintf(dia, "%d", tmp);
  1689.   tmp = atoi(Corta(teste, '.', 2));
  1690.   sprintf(ano, "%d", tmp);
  1691.   tmp = atoi(Corta(teste, '.', 1));
  1692.  
  1693.   /* ATUALIZA A SELECAO DE DIA, MES, ANO */
  1694.   tmp--;
  1695.   set(App->ComboMes, MUIA_Cycle_Active, tmp);
  1696.   set(App->ComboMes2, MUIA_Cycle_Active, tmp);
  1697.  
  1698.   set(App->TextDia, MUIA_String_Contents, dia);
  1699.   MUI_Redraw(App->TextDia, MADF_DRAWOBJECT);
  1700.  
  1701.   set(App->TextAno, MUIA_String_Contents, ano);
  1702.   MUI_Redraw(App->TextAno, MADF_DRAWOBJECT);
  1703.  
  1704.   set(App->TextAno2, MUIA_String_Contents, ano);
  1705.   MUI_Redraw(App->TextAno2, MADF_DRAWOBJECT);
  1706.  
  1707.   set(App->InputPeriodo1, MUIA_String_Contents, teste);
  1708.   set(App->InputPeriodo2, MUIA_String_Contents, teste);
  1709.   set(App->LabelInputDateLogin, MUIA_String_Contents, Corta(teste, ':', 0));
  1710.   /* CARREGA ULTIMO TELEFONE NO INPUT MANUAL */
  1711.   sprintf(teste2, "%s/Freedom.%s", database, DataHora(1));
  1712.   strcpy(teste, UltimaLinha(teste2));
  1713.   if(!strcmp(teste, "ERRO"))
  1714.     strcpy(teste, "");
  1715.   set(App->LabelInputPhone, MUIA_String_Contents, Corta(teste, ',', 0));
  1716.  
  1717.   /* CARREGA INFORMACOES DA SELECAO DE ESTATISTICA ANUAL */
  1718.   set(App->CAnualText, MUIA_String_Contents, Corta(DataHora(3), '.', 0));
  1719.   set(App->CAnualMes1, MUIA_Cycle_Active, 0);
  1720.   set(App->CAnualMes2, MUIA_Cycle_Active, 11);
  1721.  
  1722.   /* CARREGA A DATA DE HOJE NA BARRA DA JANELA GRAFICA */
  1723.   CarregaBarraStatus();
  1724.  
  1725.   return NULL;
  1726. }
  1727.  
  1728. APTR AcertaAbout( struct Hook *a0, APTR a2, APTR a1 )
  1729. {
  1730.   /* ATUALIZA INFORMACOES JANELA ABOUT, SOBRE O TIPO DE REGISTRO */
  1731.   char reg[256], org[256], teste[256], senha1[256], senha2[256],
  1732.        senhatmp[256], *regnumber2,
  1733.        *regname, *regorg, *regcountry, *regemail, *regnumber;
  1734.   int registro = 0;
  1735.  
  1736.   get(App->RegisterName, MUIA_String_Contents, ®name);
  1737.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  1738.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  1739.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  1740.   get(App->RegisterKeyReal, MUIA_String_Contents, ®number2);
  1741.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  1742.  
  1743.   if(!strcmp(TrimSur(regorg, 0), ""))
  1744.     sprintf(org, "(%s)", regcountry);
  1745.   else
  1746.     sprintf(org, "(%s - %s)", regcountry, regorg);
  1747.  
  1748.   /* ROTINA QUE TESTA O TIPO DE REGISTRO */
  1749.   strcpy(senha1, AsciiString(regnumber, 69));
  1750.   strcpy(senha2, AsciiString(regnumber2, 96));
  1751.   sprintf(senhatmp, "%s%s%s", regname, regemail, regcountry);
  1752.   strcpy(senhatmp, CriptografiaSimples(senhatmp, 0));
  1753.   if(!strcmp(senha1, senhatmp))
  1754.     registro = 1;
  1755.   if(!strcmp(senha1, senhatmp) && !strcmp(senha2, senhatmp))
  1756.     registro = 2;
  1757.   if(!strcmp(regnumber, ""))
  1758.     registro = 0;
  1759.  
  1760.   if(registro == 0)
  1761.     strcpy(reg, "\033bUNREGISTERED\033n\nRegister is a free e-mail!");
  1762.   if(registro == 1)
  1763.       sprintf(reg, "\033bNOPAY REGISTERED\033n\n%s\n%s", regname, org);
  1764.   if(registro == 2)
  1765.       sprintf(reg, "\033bREAL REGISTERED\033n\n%s\n%s", regname, org);
  1766.   sprintf(teste, "\033c\0338\033b\nFreedom Call\nVersion 1.12 [28.05.1999]\033n\nBy Cristian Robert Gallas\n\nAmiga Open Source (SuRRouND 99)\n\nEmail for bug reports: surround@iname.com\n [members.tripod.com/surround_br] \n\nThis version is:\n%s\n", reg);
  1767.   set(App->TextAbout, MUIA_Text_Contents, teste);
  1768.   return NULL;
  1769. }
  1770.  
  1771. APTR GerarImportacaoRegistro( struct Hook *a0, APTR a2, APTR a1 )
  1772. {
  1773.   /* ROTINA DE IMPORTACAO DO ARQUIVO DE REGISTRO */
  1774.   char reg1[500], reg2[500], *path;
  1775.   get(App->DirImportaRegistro, MUIA_String_Contents, &path);
  1776.  
  1777.   if(!(ExisteArquivo(path)))
  1778.   {
  1779.     /* FILE FOR IMPORTING NOT FOUND */
  1780.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg35));
  1781.     return NULL;
  1782.   }
  1783.   strcpy(reg1, LeRegistroDB(path, "KeyRegister"));
  1784.   strcpy(reg2, LeRegistroDB(path, "KeyRegisterReal"));
  1785.   if(!(strcmp(reg1, "")))
  1786.   {
  1787.     /* THIS FILE DON`T HAVE REGISTRATION */
  1788.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg36));
  1789.     return NULL;
  1790.   }
  1791.   set(App->RegisterKey, MUIA_String_Contents, reg1);
  1792.   set(App->RegisterKeyReal, MUIA_String_Contents, reg2);
  1793.   
  1794.   return NULL;
  1795. }
  1796.  
  1797. APTR AplicacaoHide( struct Hook *a0, APTR a2, APTR a1 )
  1798. { 
  1799.   /* MINIMIZA A APLICACAO, COLOCA ELA EM ICONIFIED */
  1800.   set(App->App, MUIA_Application_Iconified, TRUE);
  1801.   return NULL;
  1802. }
  1803.  
  1804. APTR HelpMain( struct Hook *a0, APTR a2, APTR a1 )
  1805. {
  1806.   if(!(ExisteArquivo("Freedom:Docs/Freedom.Guide")))
  1807.   {
  1808.     /* FREEDOM:FREEDOM.GUIDE NOT FOUND, PLEASE COPY */
  1809.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg37));
  1810.     return NULL;
  1811.   }
  1812.   DoMethod(App->App, MUIM_Application_ShowHelp, 0, "Freedom:Docs/Freedom.Guide", "Main", 1);
  1813.   return NULL;
  1814. }
  1815.  
  1816. APTR HelpUsage( struct Hook *a0, APTR a2, APTR a1 )
  1817. {
  1818.   if(!(ExisteArquivo("Freedom:Docs/Freedom.Guide")))
  1819.   {
  1820.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg37));
  1821.     return NULL;
  1822.   }
  1823.   DoMethod(App->App, MUIM_Application_ShowHelp, 0, "Freedom:Docs/Freedom.Guide", "Usage", 1);
  1824.   return NULL;
  1825. }
  1826.  
  1827. APTR HelpHistory( struct Hook *a0, APTR a2, APTR a1 )
  1828. {
  1829.   if(!(ExisteArquivo("Freedom:Docs/Freedom.Guide")))
  1830.   {
  1831.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg37));
  1832.     return NULL;
  1833.   }
  1834.   DoMethod(App->App, MUIM_Application_ShowHelp, 0, "Freedom:Docs/Freedom.Guide", "History", 1);
  1835.   return NULL;
  1836. }
  1837.  
  1838. APTR AboutMUI( struct Hook *a0, APTR a2, APTR a1 )
  1839. {
  1840.   DoMethod(App->App, MUIM_Application_AboutMUI, App->JanelaPrincipal);
  1841.   return NULL;
  1842. }
  1843.  
  1844. APTR LimpaSaida( struct Hook *a0, APTR a2, APTR a1 )
  1845. { 
  1846.   /* LIMPA ARQUIVOS TEMPORARIOS APOS A FINALIZACAO DO PROGRAMA */
  1847.   remove("t:freedom.intmp");
  1848.   remove("t:freedom.outtmp");
  1849.   remove("t:freedom.date");
  1850.   remove("t:freedom.week");
  1851.   remove("t:freedom.rates");
  1852.   remove("t:freedom.html");
  1853.   return NULL;
  1854. }
  1855.  
  1856. APTR CarregaSemana( struct Hook *a0, APTR a2, APTR a1 )
  1857. {
  1858.   char dom[50], seg[50], ter[50], qua[50], qui[50], sex[50],
  1859.        sab[50], tot[50], teste[256], teste2[256], *moedac,
  1860.        *precision, senha1[256], senha2[256], senhatmp[256], *regnumber2,
  1861.        *regemail, *regnumber, *regname, *regorg, *regcountry;
  1862.   int registro = 0;
  1863.   long moeda = 0;
  1864.  
  1865.   /* LIMPA OS REGISTROS */
  1866.   set(App->ValorDomingo, MUIA_Text_Contents, "0");
  1867.   set(App->ValorSegunda, MUIA_Text_Contents, "0");
  1868.   set(App->ValorTerca, MUIA_Text_Contents, "0");
  1869.   set(App->ValorQuarta, MUIA_Text_Contents, "0");
  1870.   set(App->ValorQuinta, MUIA_Text_Contents, "0");
  1871.   set(App->ValorSexta, MUIA_Text_Contents, "0");
  1872.   set(App->ValorSabado, MUIA_Text_Contents, "0");
  1873.   set(App->PercentualDomingo, MUIA_Text_Contents, "0");
  1874.   set(App->PercentualSegunda, MUIA_Text_Contents, "0");
  1875.   set(App->PercentualTerca, MUIA_Text_Contents, "0");
  1876.   set(App->PercentualQuarta, MUIA_Text_Contents, "0");
  1877.   set(App->PercentualQuinta, MUIA_Text_Contents, "0");
  1878.   set(App->PercentualSexta, MUIA_Text_Contents, "0");
  1879.   set(App->PercentualSabado, MUIA_Text_Contents, "0");
  1880.   set(App->ValorTotal, MUIA_Text_Contents, "0");
  1881.   set(App->PercentualTotal, MUIA_Text_Contents, "0");
  1882.   set(App->WeekLabelTop, MUIA_Text_Contents, "");
  1883.   set(App->TimeTotal, MUIA_Text_Contents, "0");
  1884.   set(App->TimeDomingo, MUIA_Text_Contents, "0");
  1885.   set(App->TimeSegunda, MUIA_Text_Contents, "0");
  1886.   set(App->TimeTerca, MUIA_Text_Contents, "0");
  1887.   set(App->TimeQuarta, MUIA_Text_Contents, "0");
  1888.   set(App->TimeQuinta, MUIA_Text_Contents, "0");
  1889.   set(App->TimeSexta, MUIA_Text_Contents, "0");
  1890.   set(App->TimeSabado, MUIA_Text_Contents, "0");
  1891.   set(App->CustoTotal, MUIA_Text_Contents, "0");
  1892.   set(App->CustoDomingo, MUIA_Text_Contents, "0");
  1893.   set(App->CustoSegunda, MUIA_Text_Contents, "0");
  1894.   set(App->CustoTerca, MUIA_Text_Contents, "0");
  1895.   set(App->CustoQuarta, MUIA_Text_Contents, "0");
  1896.   set(App->CustoQuinta, MUIA_Text_Contents, "0");
  1897.   set(App->CustoSexta, MUIA_Text_Contents, "0");
  1898.   set(App->CustoSabado, MUIA_Text_Contents, "0");
  1899.  
  1900.   /* PEGA INFORMACOES DA MOEDA CORRENTE */
  1901.   get(App->ComboMoeda, MUIA_Cycle_Active, &moeda);
  1902.   get(App->NomeMoeda, MUIA_String_Contents, &moedac);
  1903.  
  1904.   /* PEGA A PRECISAO DOS DISPLAYS DE VALORES */
  1905.   get(App->ConfPrecision, MUIA_String_Contents, &precision);
  1906.  
  1907.   /* ROTINA QUE TESTA O TIPO DE REGISTRO */
  1908.   get(App->RegisterName, MUIA_String_Contents, ®name);
  1909.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  1910.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  1911.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  1912.   get(App->RegisterKeyReal, MUIA_String_Contents, ®number2);
  1913.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  1914.   strcpy(senha1, AsciiString(regnumber, 69));
  1915.   strcpy(senha2, AsciiString(regnumber2, 96));
  1916.   sprintf(senhatmp, "%s%s%s", regname, regemail, regcountry);
  1917.   strcpy(senhatmp, CriptografiaSimples(senhatmp, 0));
  1918.   if(!strcmp(senha1, senhatmp))
  1919.     registro = 1;
  1920.   if(!strcmp(senha1, senhatmp) && !strcmp(senha2, senhatmp))
  1921.     registro = 2;
  1922.   if(!strcmp(regnumber, ""))
  1923.     registro = 0;
  1924.  
  1925.   /* DOMINGO */
  1926.   strcpy(dom, LeRegistroDB("t:Freedom.Week", "1"));
  1927.   set(App->ValorDomingo, MUIA_Text_Contents, Corta(dom, '@', 0));
  1928.   set(App->PercentualDomingo, MUIA_Text_Contents, CasasAposCaracter(Corta(dom, '@', 1), '.', 1));
  1929.   set(App->TimeDomingo, MUIA_Text_Contents, SegundoHora(Corta(dom, '@', 2)));
  1930.   strcpy(teste2, CasasAposCaracter(Corta(dom, '@', 3), '.', atoi(precision)));
  1931.   if(moeda == 0)
  1932.     sprintf(teste, "%s%s", moedac, teste2);
  1933.   else
  1934.     sprintf(teste, "%s%s", teste2, moedac);
  1935.   if(registro < 2)
  1936.     strcpy(teste, "REALREG");
  1937.   set(App->CustoDomingo, MUIA_Text_Contents, teste);
  1938.  
  1939.   /* SEGUNDA */
  1940.   strcpy(seg, LeRegistroDB("t:Freedom.Week", "2"));
  1941.   set(App->ValorSegunda, MUIA_Text_Contents, Corta(seg, '@', 0));
  1942.   set(App->PercentualSegunda, MUIA_Text_Contents, CasasAposCaracter(Corta(seg, '@', 1), '.', 1));
  1943.   set(App->TimeSegunda, MUIA_Text_Contents, SegundoHora(Corta(seg, '@', 2)));
  1944.   strcpy(teste2, CasasAposCaracter(Corta(seg, '@', 3), '.', atoi(precision)));
  1945.   if(moeda == 0)
  1946.     sprintf(teste, "%s%s", moedac, teste2);
  1947.   else
  1948.     sprintf(teste, "%s%s", teste2, moedac);
  1949.   if(registro < 2)
  1950.     strcpy(teste, "REALREG");
  1951.   set(App->CustoSegunda, MUIA_Text_Contents, teste);
  1952.  
  1953.   /* TERCA */
  1954.   strcpy(ter, LeRegistroDB("t:Freedom.Week", "3"));
  1955.   set(App->ValorTerca, MUIA_Text_Contents, Corta(ter, '@', 0));
  1956.   set(App->PercentualTerca, MUIA_Text_Contents, CasasAposCaracter(Corta(ter, '@', 1), '.', 1));
  1957.   set(App->TimeTerca, MUIA_Text_Contents, SegundoHora(Corta(ter, '@', 2)));
  1958.   strcpy(teste2, CasasAposCaracter(Corta(ter, '@', 3), '.', atoi(precision)));
  1959.   if(moeda == 0)
  1960.     sprintf(teste, "%s%s", moedac, teste2);
  1961.   else
  1962.     sprintf(teste, "%s%s", teste2, moedac);
  1963.   if(registro < 2)
  1964.     strcpy(teste, "REALREG");
  1965.   set(App->CustoTerca, MUIA_Text_Contents, teste);
  1966.  
  1967.   /* QUARTA */
  1968.   strcpy(qua, LeRegistroDB("t:Freedom.Week", "4"));
  1969.   set(App->ValorQuarta, MUIA_Text_Contents, Corta(qua, '@', 0));
  1970.   set(App->PercentualQuarta, MUIA_Text_Contents, CasasAposCaracter(Corta(qua, '@', 1), '.', 1));
  1971.   set(App->TimeQuarta, MUIA_Text_Contents, SegundoHora(Corta(qua, '@', 2)));
  1972.   strcpy(teste2, CasasAposCaracter(Corta(qua, '@', 3), '.', atoi(precision)));
  1973.   if(moeda == 0)
  1974.     sprintf(teste, "%s%s", moedac, teste2);
  1975.   else
  1976.     sprintf(teste, "%s%s", teste2, moedac);
  1977.   if(registro < 2)
  1978.     strcpy(teste, "REALREG");
  1979.   set(App->CustoQuarta, MUIA_Text_Contents, teste);
  1980.  
  1981.   /* QUINTA */
  1982.   strcpy(qui, LeRegistroDB("t:Freedom.Week", "5"));
  1983.   set(App->ValorQuinta, MUIA_Text_Contents, Corta(qui, '@', 0));
  1984.   set(App->PercentualQuinta, MUIA_Text_Contents, CasasAposCaracter(Corta(qui, '@', 1), '.', 1));
  1985.   set(App->TimeQuinta, MUIA_Text_Contents, SegundoHora(Corta(qui, '@', 2)));
  1986.   strcpy(teste2, CasasAposCaracter(Corta(qui, '@', 3), '.', atoi(precision)));
  1987.   if(moeda == 0)
  1988.     sprintf(teste, "%s%s", moedac, teste2);
  1989.   else
  1990.     sprintf(teste, "%s%s", teste2, moedac);
  1991.   if(registro < 2)
  1992.     strcpy(teste, "REALREG");
  1993.   set(App->CustoQuinta, MUIA_Text_Contents, teste);
  1994.  
  1995.   /* SEXTA */
  1996.   strcpy(sex, LeRegistroDB("t:Freedom.Week", "6"));
  1997.   set(App->ValorSexta, MUIA_Text_Contents, Corta(sex, '@', 0));
  1998.   set(App->PercentualSexta, MUIA_Text_Contents, CasasAposCaracter(Corta(sex, '@', 1), '.', 1));
  1999.   set(App->TimeSexta, MUIA_Text_Contents, SegundoHora(Corta(sex, '@', 2)));
  2000.   strcpy(teste2, CasasAposCaracter(Corta(sex, '@', 3), '.', atoi(precision)));
  2001.   if(moeda == 0)
  2002.     sprintf(teste, "%s%s", moedac, teste2);
  2003.   else
  2004.     sprintf(teste, "%s%s", teste2, moedac);
  2005.   if(registro < 2)
  2006.     strcpy(teste, "REALREG");
  2007.   set(App->CustoSexta, MUIA_Text_Contents, teste);
  2008.  
  2009.   /* SABADO */
  2010.   strcpy(sab, LeRegistroDB("t:Freedom.Week", "0"));
  2011.   set(App->ValorSabado, MUIA_Text_Contents, Corta(sab, '@', 0));
  2012.   set(App->PercentualSabado, MUIA_Text_Contents, CasasAposCaracter(Corta(sab, '@', 1), '.', 1));
  2013.   set(App->TimeSabado, MUIA_Text_Contents, SegundoHora(Corta(sab, '@', 2)));
  2014.   strcpy(teste2, CasasAposCaracter(Corta(sab, '@', 3), '.', atoi(precision)));
  2015.   if(moeda == 0)
  2016.     sprintf(teste, "%s%s", moedac, teste2);
  2017.   else
  2018.     sprintf(teste, "%s%s", teste2, moedac);
  2019.   if(registro < 2)
  2020.     strcpy(teste, "REALREG");
  2021.   set(App->CustoSabado, MUIA_Text_Contents, teste);
  2022.  
  2023.   /* TOTAL */
  2024.   strcpy(tot, LeRegistroDB("t:Freedom.Week", "7"));
  2025.   set(App->ValorTotal, MUIA_Text_Contents, Corta(tot, '@', 0));
  2026.   set(App->TimeTotal, MUIA_Text_Contents, SegundoHora(Corta(tot, '@', 1)));
  2027.   set(App->PercentualTotal, MUIA_Text_Contents, "100");
  2028.   strcpy(teste2, CasasAposCaracter(Corta(tot, '@', 2), '.', atoi(precision)));
  2029.   if(moeda == 0)
  2030.     sprintf(teste, "%s%s", moedac, teste2);
  2031.   else
  2032.     sprintf(teste, "%s%s", teste2, moedac);
  2033.   if(registro < 2)
  2034.     strcpy(teste, "REALREG");
  2035.   set(App->CustoTotal, MUIA_Text_Contents, teste);
  2036.  
  2037.   strcpy(teste, LeRegistroDB("t:Freedom.Date", "date"));
  2038.   sprintf(teste2, "%s", teste);
  2039.   set(App->WeekLabelTop, MUIA_Text_Contents, teste2);
  2040.   return NULL;
  2041. }
  2042.  
  2043. APTR CarregaUltimasCinco( struct Hook *a0, APTR a2, APTR a1 )
  2044. {
  2045.   /* ESTA ROTINA CARREGA OS DADOS NA JANELA DAS ULTIMAS
  2046.      CINCO LIGACOES */
  2047.   char l1[256], l2[256], l3[256], l4[256], l5[256], horaon[30], dataon[30],
  2048.        *database, teste[256], data1[256], status1[30], *precision,
  2049.        status2[30], categoria[256], *categorydir, *categoryname, campo[256],
  2050.        data[256], login[256], tempo[256], *moedac, cost[30], diferenca[256],
  2051.        senha1[256], senha2[256], senhatmp[256], *regnumber2, 
  2052.        *regemail, *regnumber, *regname, *regorg, *regcountry,
  2053.        tempoon[30], telefone[30], connect[256];
  2054.   int x = 0, registro = 0;
  2055.   long moeda = 0;
  2056.  
  2057.   /* TESTA SE O DIRETORIO DA BASE DE DADOS EXISTE */
  2058.   get(App->DataBaseName, MUIA_String_Contents, &database);
  2059.   if(!ExisteDiretorio(database))
  2060.   {
  2061.      set(App->JanelaCincoLigacoes, MUIA_Window_Open, FALSE);
  2062.      MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg17));
  2063.      return NULL;
  2064.   }
  2065.  
  2066.   /* ROTINA QUE TESTA O TIPO DE REGISTRO */
  2067.   get(App->RegisterName, MUIA_String_Contents, ®name);
  2068.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  2069.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  2070.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  2071.   get(App->RegisterKeyReal, MUIA_String_Contents, ®number2);
  2072.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  2073.   strcpy(senha1, AsciiString(regnumber, 69));
  2074.   strcpy(senha2, AsciiString(regnumber2, 96));
  2075.   sprintf(senhatmp, "%s%s%s", regname, regemail, regcountry);
  2076.   strcpy(senhatmp, CriptografiaSimples(senhatmp, 0));
  2077.   if(!strcmp(senha1, senhatmp))
  2078.     registro = 1;
  2079.   if(!strcmp(senha1, senhatmp) && !strcmp(senha2, senhatmp))
  2080.     registro = 2;
  2081.   if(!strcmp(regnumber, ""))
  2082.     registro = 0;
  2083.  
  2084.   /* Rotina que limpa os campos antes da atribuicao */
  2085.   set(App->FirstData, MUIA_Text_Contents, "0");
  2086.   set(App->FirstLoginTime, MUIA_Text_Contents, "0");
  2087.   set(App->FirstTimeOnline, MUIA_Text_Contents, "0");
  2088.   set(App->FirstPhone, MUIA_Text_Contents, "0");
  2089.   set(App->FirstStatus, MUIA_Text_Contents, "");
  2090.   set(App->SecondData, MUIA_Text_Contents, "0");
  2091.   set(App->SecondLoginTime, MUIA_Text_Contents, "0");
  2092.   set(App->SecondTimeOnline, MUIA_Text_Contents, "0");
  2093.   set(App->SecondPhone, MUIA_Text_Contents, "0");
  2094.   set(App->SecondStatus, MUIA_Text_Contents, "");
  2095.   set(App->ThirdData, MUIA_Text_Contents, "0");
  2096.   set(App->ThirdLoginTime, MUIA_Text_Contents, "0");
  2097.   set(App->ThirdTimeOnline, MUIA_Text_Contents, "0");
  2098.   set(App->ThirdPhone, MUIA_Text_Contents, "0");
  2099.   set(App->ThirdStatus, MUIA_Text_Contents, "");
  2100.   set(App->FourthData, MUIA_Text_Contents, "0");
  2101.   set(App->FourthLoginTime, MUIA_Text_Contents, "0");
  2102.   set(App->FourthTimeOnline, MUIA_Text_Contents, "0");
  2103.   set(App->FourthPhone, MUIA_Text_Contents, "0");
  2104.   set(App->FourthStatus, MUIA_Text_Contents, "");
  2105.   set(App->LastData, MUIA_Text_Contents, "0");
  2106.   set(App->LastLoginTime, MUIA_Text_Contents, "0");
  2107.   set(App->LastTimeOnline, MUIA_Text_Contents, "0");
  2108.   set(App->LastPhone, MUIA_Text_Contents, "0");
  2109.   set(App->LastStatus, MUIA_Text_Contents, "");
  2110.   set(App->FirstCost, MUIA_Text_Contents, "0");
  2111.   set(App->SecondCost, MUIA_Text_Contents, "0");
  2112.   set(App->ThirdCost, MUIA_Text_Contents, "0");
  2113.   set(App->FourthCost, MUIA_Text_Contents, "0");
  2114.   set(App->LastCost, MUIA_Text_Contents, "0");
  2115.   set(App->UpdateCall, MUIA_Text_Contents, "");
  2116.  
  2117.   strcpy(status1, TMsg(App->Msg54));
  2118.   strcpy(status2, TMsg(App->Msg55));
  2119.  
  2120.   strcpy(data1, DataHora(0));
  2121.   /* PREPARA O ARQUIVO A SER LIDO */
  2122.   for(x = 0; x < 25; x++)
  2123.   {
  2124.     sprintf(teste, "%s/Freedom.%s", database, AposCaracter(data1, '.', 1));
  2125.     if(ExisteArquivo(teste))
  2126.       break;
  2127.     strcpy(data1, ArrumaDataHora(SomaDiminuiMes(data1, -1), '.'));
  2128.   }
  2129.   if(x == 25)
  2130.   {
  2131.     set(App->JanelaCincoLigacoes, MUIA_Window_Open, FALSE);
  2132.     /* FREEDOM LAST CALLS NOT FOUND */
  2133.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg39));
  2134.     return NULL;
  2135.   }
  2136.   sprintf(teste, "%s/Freedom.%s", database, AposCaracter(data1, '.', 1));
  2137.   FinalArquivo(teste, "t:Freedom.Five", 5);
  2138.  
  2139.   /* SO LIBERA CONSULTA SE EXISTE 5 ULTIMAS LIGACOES */
  2140.   if(LinhasArquivo("T:Freedom.Five") < 5)
  2141.   {
  2142.     remove("t:Freedom.Five");
  2143.     set(App->JanelaCincoLigacoes, MUIA_Window_Open, FALSE);
  2144.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg56));
  2145.     return NULL;
  2146.   }
  2147.   /* PEGA INFORMACOES DA MOEDA CORRENTE */
  2148.   get(App->ComboMoeda, MUIA_Cycle_Active, &moeda);
  2149.   get(App->NomeMoeda, MUIA_String_Contents, &moedac);
  2150.  
  2151.   /* PEGA A PRECISAO DOS DISPLAYS DE VALORES */
  2152.   get(App->ConfPrecision, MUIA_String_Contents, &precision);
  2153.  
  2154.   get(App->CategDiretorio, MUIA_String_Contents, &categorydir);
  2155.   get(App->TextDefault, MUIA_Text_Contents, &categoryname);
  2156.   sprintf(categoria, "%s/%s", categorydir, categoryname);
  2157.  
  2158.   strcpy(l1, LinhaNumero("t:Freedom.Five", 1));
  2159.   strcpy(l2, LinhaNumero("t:Freedom.Five", 2));
  2160.   strcpy(l3, LinhaNumero("t:Freedom.Five", 3));
  2161.   strcpy(l4, LinhaNumero("t:Freedom.Five", 4));
  2162.   strcpy(l5, LinhaNumero("t:Freedom.Five", 5));
  2163.   
  2164.   /* PRIMEIRA LIGACAO */
  2165.   strcpy(data, Corta(l1, ',', 1));
  2166.   strcpy(login, Corta(l1, ',', 2));
  2167.   strcpy(tempo, Corta(l1, ',', 6));
  2168.   set(App->FirstData, MUIA_Text_Contents, data);
  2169.   set(App->FirstLoginTime, MUIA_Text_Contents, SegundoHora(login));
  2170.   set(App->FirstTimeOnline, MUIA_Text_Contents, SegundoHora(tempo));
  2171.   strcpy(teste, CalculaPrecoFREE(categoria, atoi(login), atoi(Corta(l1, ',', 4)), atoi(DiaSemanaFREE(data, 2))));
  2172.   strcpy(teste, CasasAposCaracter(teste, '.', atoi(precision)));
  2173.   if(moeda == 0)
  2174.     sprintf(cost, "%s%s", moedac, teste);
  2175.   else
  2176.     sprintf(cost, "%s%s", teste, moedac);
  2177.   set(App->FirstCost, MUIA_Text_Contents, cost);
  2178.  
  2179.   set(App->FirstPhone, MUIA_Text_Contents, Corta(l1, ',', 0));
  2180.   if(!(strcmp(Corta(l1, ',', 5), "Act")))
  2181.     set(App->FirstStatus, MUIA_Text_Contents, status1);
  2182.   else
  2183.     set(App->FirstStatus, MUIA_Text_Contents, status2);
  2184.  
  2185.   /* SEGUNDA LIGACAO */
  2186.   strcpy(data, Corta(l2, ',', 1));
  2187.   strcpy(login, Corta(l2, ',', 2));
  2188.   strcpy(tempo, Corta(l2, ',', 6));
  2189.   set(App->SecondData, MUIA_Text_Contents, data);
  2190.   set(App->SecondLoginTime, MUIA_Text_Contents, SegundoHora(login));
  2191.   set(App->SecondTimeOnline, MUIA_Text_Contents, SegundoHora(tempo));
  2192.   strcpy(teste, CalculaPrecoFREE(categoria, atoi(login), atoi(Corta(l2, ',', 4)), atoi(DiaSemanaFREE(data, 2))));
  2193.   strcpy(teste, CasasAposCaracter(teste, '.', atoi(precision)));
  2194.   if(moeda == 0)
  2195.     sprintf(cost, "%s%s", moedac, teste);
  2196.   else
  2197.     sprintf(cost, "%s%s", teste, moedac);
  2198.   set(App->SecondCost, MUIA_Text_Contents, cost);
  2199.   set(App->SecondPhone, MUIA_Text_Contents, Corta(l2, ',', 0));
  2200.   if(!(strcmp(Corta(l2, ',', 5), "Act")))
  2201.     set(App->SecondStatus, MUIA_Text_Contents, status1);
  2202.   else
  2203.     set(App->SecondStatus, MUIA_Text_Contents, status2);
  2204.  
  2205.   /* TERCEIRA LIGACAO */
  2206.   strcpy(data, Corta(l3, ',', 1));
  2207.   strcpy(login, Corta(l3, ',', 2));
  2208.   strcpy(tempo, Corta(l3, ',', 6));
  2209.   set(App->ThirdData, MUIA_Text_Contents, data);
  2210.   set(App->ThirdLoginTime, MUIA_Text_Contents, SegundoHora(login));
  2211.   set(App->ThirdTimeOnline, MUIA_Text_Contents, SegundoHora(tempo));
  2212.   strcpy(teste, CalculaPrecoFREE(categoria, atoi(login), atoi(Corta(l3, ',', 4)), atoi(DiaSemanaFREE(data, 2))));
  2213.   strcpy(teste, CasasAposCaracter(teste, '.', atoi(precision)));
  2214.   if(moeda == 0)
  2215.     sprintf(cost, "%s%s", moedac, teste);
  2216.   else
  2217.     sprintf(cost, "%s%s", teste, moedac);
  2218.   set(App->ThirdCost, MUIA_Text_Contents, cost);
  2219.   set(App->ThirdPhone, MUIA_Text_Contents, Corta(l3, ',', 0));
  2220.   if(!(strcmp(Corta(l3, ',', 5), "Act")))
  2221.     set(App->ThirdStatus, MUIA_Text_Contents, status1);
  2222.   else
  2223.     set(App->ThirdStatus, MUIA_Text_Contents, status2);
  2224.  
  2225.   /* QUARTA LIGACAO */
  2226.   strcpy(data, Corta(l4, ',', 1));
  2227.   strcpy(login, Corta(l4, ',', 2));
  2228.   strcpy(tempo, Corta(l4, ',', 6));
  2229.   set(App->FourthData, MUIA_Text_Contents, data);
  2230.   set(App->FourthLoginTime, MUIA_Text_Contents, SegundoHora(login));
  2231.   set(App->FourthTimeOnline, MUIA_Text_Contents, SegundoHora(tempo));
  2232.   strcpy(teste, CalculaPrecoFREE(categoria, atoi(login), atoi(Corta(l4, ',', 4)), atoi(DiaSemanaFREE(data, 2))));
  2233.   strcpy(teste, CasasAposCaracter(teste, '.', atoi(precision)));
  2234.   if(moeda == 0)
  2235.     sprintf(cost, "%s%s", moedac, teste);
  2236.   else
  2237.     sprintf(cost, "%s%s", teste, moedac);
  2238.   set(App->FourthCost, MUIA_Text_Contents, cost);
  2239.   set(App->FourthPhone, MUIA_Text_Contents, Corta(l4, ',', 0));
  2240.   if(!(strcmp(Corta(l4, ',', 5), "Act")))
  2241.     set(App->FourthStatus, MUIA_Text_Contents, status1);
  2242.   else
  2243.     set(App->FourthStatus, MUIA_Text_Contents, status2);
  2244.  
  2245.   /* ULTIMA LIGACAO */
  2246.   strcpy(data, Corta(l5, ',', 1));
  2247.   strcpy(login, Corta(l5, ',', 2));
  2248.   strcpy(tempo, Corta(l5, ',', 6));
  2249.   set(App->LastData, MUIA_Text_Contents, data);
  2250.   set(App->LastLoginTime, MUIA_Text_Contents, SegundoHora(login));
  2251.   set(App->LastTimeOnline, MUIA_Text_Contents, SegundoHora(tempo));
  2252.   strcpy(teste, CalculaPrecoFREE(categoria, atoi(login), atoi(Corta(l5, ',', 4)), atoi(DiaSemanaFREE(data, 2))));
  2253.   strcpy(teste, CasasAposCaracter(teste, '.', atoi(precision)));
  2254.   if(moeda == 0)
  2255.     sprintf(cost, "%s%s", moedac, teste);
  2256.   else
  2257.     sprintf(cost, "%s%s", teste, moedac);
  2258.   set(App->LastCost, MUIA_Text_Contents, cost);
  2259.   set(App->LastPhone, MUIA_Text_Contents, Corta(l5, ',', 0));
  2260.   if(!(strcmp(Corta(l5, ',', 5), "Act")))
  2261.     set(App->LastStatus, MUIA_Text_Contents, status1);
  2262.   else
  2263.     set(App->LastStatus, MUIA_Text_Contents, status2);
  2264.  
  2265.   remove("t:Freedom.Five");
  2266.  
  2267.   /* ROTINA QUE CARREGA O STATUS DA LIGACAO ATUAL */
  2268.   if(!Conectado()) {
  2269.     /* NOT CONNECTED... */
  2270.     set(App->UpdateCall, MUIA_Text_Contents, TMsg(App->Msg89));
  2271.     return NULL; }
  2272.  
  2273.   if(!ExisteArquivo("S:Freedom.Miami.Temp")) {
  2274.     /* FREEEVENTMIAMI LOG NOT FOUND */
  2275.     set(App->UpdateCall, MUIA_Text_Contents, TMsg(App->Msg90));
  2276.     return NULL; }
  2277.  
  2278.   strcpy(campo, LeRegistroDB("s:Freedom.Miami.Temp", "1"));
  2279.   strcpy(horaon, Corta(campo, ',', 2));
  2280.   strcpy(dataon, Corta(campo, ',', 1));
  2281.   strcpy(telefone, Corta(campo, ',', 0));
  2282.   strcpy(connect, Corta(campo, ',', 3));
  2283.   if(!strcmp(connect, "CUTERRO"))
  2284.     strcpy(connect, "");
  2285.  
  2286.   /* CONNECT */
  2287.   sprintf(teste, "%s [\033b%s %s\033n]", TMsg(App->Msg91), dataon, SegundoHora(horaon));
  2288.   strcpy(tempoon, IntervaloHora(horaon, HoraSegundo(DataHora(5))));
  2289.  
  2290.   /* VERIFICA SE PASSOU DA MEIA NOITE A LIGACAO ATUAL */
  2291.   strcpy(diferenca, Corta(DiferencaDias(dataon, DataHora(0)), ':', 1));
  2292.   if(atoi(diferenca) > 0)
  2293.     sprintf(tempoon, "%ld", atoi(diferenca) - atoi(tempoon));
  2294.  
  2295.   /* CALCULA O CUSTO DA LIGACAO */
  2296.   strcpy(l1, CalculaPrecoFREE(categoria, atoi(horaon), atoi(HoraSegundo(DataHora(5))), atoi(DiaSemanaFREE(DataHora(0), 2))));
  2297.   strcpy(l1, CasasAposCaracter(l1, '.', atoi(precision)));
  2298.   if(moeda == 0)
  2299.     sprintf(cost, "%s%s", moedac, l1);
  2300.   else
  2301.     sprintf(cost, "%s%s", l1, moedac);
  2302.   if(registro < 2)
  2303.     strcpy(cost, "REALREG");
  2304.  
  2305.   /* ONLINE, COST */
  2306.   sprintf(teste, "%s, %s [\033b%s\033n], %s [\033b%s\033n]\n \0338[%s] %s\033n", teste, TMsg(App->Msg92), SegundoHora(tempoon), TMsg(App->Msg93), cost, telefone, connect);
  2307.   set(App->UpdateCall, MUIA_Text_Contents, teste);
  2308.   MUI_Redraw(App->UpdateCall, MADF_DRAWOBJECT);
  2309.   return NULL;
  2310. }
  2311.  
  2312. APTR TestaRegistro2( struct Hook *a0, APTR a2, APTR a1 )
  2313. {
  2314.   /* ROTINA QUE TESTA SE O PROGRAMA ESTA REGISTRADO OU NAO,
  2315.      PARA CARREGAMENTO DA JANELA "MANUAL CALL INPUTATION" */
  2316.   char teste[500], nopay[20], senha[500],
  2317.        *regemail, *regnumber, *regname, *regcountry;
  2318.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  2319.   get(App->RegisterName, MUIA_String_Contents, ®name);
  2320.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  2321.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  2322.  
  2323.   sprintf(teste, "%s%s%s", regname, regemail, regcountry);
  2324.   strcpy(teste, CriptografiaSimples(teste, 0));
  2325.  
  2326.   strcpy(nopay, Corta(AsciiString(regnumber, 69), 'å', 1));
  2327.   strcpy(senha, AsciiString(regnumber, 69));
  2328.   strcpy(senha, Corta(senha, 'å', 0));
  2329.  
  2330.   if(strcmp(teste, senha) || !strcmp(regnumber, ""))
  2331.   {
  2332.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg60));
  2333.     return NULL;
  2334.   }
  2335.   set(App->JanelaDeInputManual, MUIA_Window_Open, TRUE);
  2336.   return NULL;
  2337. }
  2338.  
  2339. APTR SalvaNovoInput( struct Hook *a0, APTR a2, APTR a1 )
  2340. {
  2341.   /* ESTA FUNCAO PREPARA, CALCULA E TESTA TODOS OS DADOS PARA
  2342.      ENVIAR PARA A JANELA DE CONFIRMACAO E GRAVACAO DO INPUT
  2343.      MANUAL. */
  2344.   char *phone, *datelogin, *hourlogin, *timeonline, *select,
  2345.        hor1[3], hor2[3], min1[3], min2[3], seg1[3], seg2[3],
  2346.        dia[3], mes[3], ano[5], teste[256];
  2347.  
  2348.   /* TESTA SE O CAMPO DE TELEFONE ESTA EM BRANCO */
  2349.   get(App->LabelInputPhone, MUIA_String_Contents, &phone);
  2350.   if(!(strcmp(phone, "")))
  2351.   {
  2352.     /* PHONE NUMBER IS INVALID */
  2353.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg40));
  2354.     return NULL;
  2355.   }
  2356.  
  2357.   get(App->LabelInputDateLogin, MUIA_String_Contents, &datelogin);
  2358.   get(App->LabelInputHourLogin, MUIA_String_Contents, &hourlogin);
  2359.   get(App->LabelInputTimeOnline, MUIA_String_Contents, &timeonline);
  2360.  
  2361.   /* SEPARA EM VARIAVEIS HORA, MINUTO, SEGUNDO, DIA, MES, ANO */
  2362.   strcpy(hor1, Copia2(hourlogin, 1, 2));
  2363.   strcpy(hor2, Copia2(timeonline, 1, 2));
  2364.   strcpy(min1, Copia2(hourlogin, 4, 2));
  2365.   strcpy(min2, Copia2(timeonline, 4, 2));
  2366.   strcpy(seg1, Copia2(hourlogin, 7, 2));
  2367.   strcpy(seg2, Copia2(timeonline, 7, 2));
  2368.   strcpy(dia, Copia2(datelogin, 1, 2));
  2369.   strcpy(mes, Copia2(datelogin, 4, 2));
  2370.   strcpy(ano, Copia2(datelogin, 7, 4));
  2371.  
  2372.   /* INICIA OS TESTES DE VALIDADE DE HORA E DATA */
  2373.   if((strlen(hourlogin) != 8) ||
  2374.      (strlen(timeonline) != 8))
  2375.   {
  2376.     /* FORMAT TIME IS INVALID */
  2377.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg41));
  2378.     return NULL;
  2379.   }
  2380.   if((atoi(hor1) < 0 || atoi(hor1) > 23) ||
  2381.      (atoi(hor2) < 0))
  2382.   {
  2383.     /* HOUR IS INVALID */
  2384.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg42));
  2385.     return NULL;
  2386.   }
  2387.   if((atoi(min1) < 0 || atoi(min1) > 60) ||
  2388.      (atoi(min2) < 0 || atoi(min2) > 60))
  2389.   {
  2390.     /* MINUTES IS INVALID */
  2391.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg43));
  2392.     return NULL;
  2393.   }
  2394.   if((atoi(seg1) < 0 || atoi(seg1) > 60) ||
  2395.      (atoi(seg2) < 0 || atoi(seg2) > 60))
  2396.   {
  2397.     /* SECONDS IS INVALID */
  2398.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg44));
  2399.     return NULL;
  2400.   }
  2401.  
  2402.   if(!TestaData(datelogin))
  2403.   {
  2404.     /* DATE IS INVALID */
  2405.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg45));
  2406.     return NULL;
  2407.   }
  2408.   if(!(strcmp(timeonline, "00:00:00")))
  2409.   {
  2410.     /* TIME ONLINE IS NULL */
  2411.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg46));
  2412.     return NULL;
  2413.   }
  2414.  
  2415.   set(App->JanelaDeInputManual, MUIA_Window_Open, FALSE);
  2416.   set(App->JanelaInputSalvaValores, MUIA_Window_Open, TRUE);
  2417.   strcpy(teste, Online(datelogin, hourlogin, timeonline));
  2418.  
  2419.   set(App->Input2Phone, MUIA_Text_Contents, phone);
  2420.   set(App->Input2DateLogin, MUIA_Text_Contents, JulianoDia(Corta(teste, '@', 0)));
  2421.   set(App->Input2DateLogout, MUIA_Text_Contents, JulianoDia(Corta(teste, '@', 1)));
  2422.   set(App->Input2TimeLogin, MUIA_Text_Contents, SegundoHora(Corta(teste, '@', 2)));
  2423.   set(App->Input2TimeLogout, MUIA_Text_Contents, SegundoHora(Corta(teste, '@', 3)));
  2424.   set(App->Input2TimeOnline, MUIA_Text_Contents, SegundoHora(Corta(teste, '@', 4)));
  2425.  
  2426.   get(App->ComboStatusInput, MUIA_Text_Contents, &select);
  2427.   set(App->Input2Status, MUIA_Text_Contents, select);
  2428.   return NULL;
  2429. }
  2430.  
  2431. APTR SalvaInputManual( struct Hook *a0, APTR a2, APTR a1 )
  2432. {
  2433.   /* ESTA FUNCAO SALVA OS DADOS DA JANELA DE INPUT MANUAL */
  2434.   char *phone, *datelogin, *datelogout, *timelogin, *timeonline,
  2435.        *select, *timelogout, status[10], h1[256], h2[256],
  2436.        h3[256], teste[256], *database, teste2[256];
  2437.   long combo;
  2438.  
  2439.   /* TESTA SE O DIRETORIO DA BASE DE DADOS EXISTE */
  2440.   get(App->DataBaseName, MUIA_String_Contents, &database);
  2441.   if(!ExisteDiretorio(database))
  2442.   {
  2443.      MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg17));
  2444.      return NULL;
  2445.   }
  2446.   get(App->Input2Phone, MUIA_Text_Contents, &phone);
  2447.   get(App->Input2DateLogin, MUIA_Text_Contents, &datelogin);
  2448.   get(App->Input2DateLogout, MUIA_Text_Contents, &datelogout);
  2449.   get(App->Input2TimeLogin, MUIA_Text_Contents, &timelogin);
  2450.   get(App->Input2TimeOnline, MUIA_Text_Contents, &timeonline);
  2451.   get(App->Input2TimeLogout, MUIA_Text_Contents, &timelogout);
  2452.   get(App->ComboStatusInput, MUIA_Text_Contents, &select);
  2453.  
  2454.   /* PEGA O NUMERO DA POSICAO DO COMBO DE DIA, MES, ANO */
  2455.   get(App->ComboStatusInput, MUIA_Cycle_Active, &combo);
  2456.  
  2457.   if(combo == 0)
  2458.     strcpy(status, "Act");
  2459.   else
  2460.     strcpy(status, "Pas");
  2461.  
  2462.   strcpy(h1, HoraSegundo(timelogin));
  2463.   strcpy(h2, HoraSegundo(timelogout));
  2464.   strcpy(h3, HoraSegundo(timeonline));
  2465.  
  2466.   sprintf(teste, "%s,%s,%s,%s,%s,%s,%s,Input\n", phone, datelogin, h1, datelogout, h2, status, h3);
  2467.   sprintf(teste2, "%s/Freedom.%s", database, AposCaracter(datelogin, '.', 1));
  2468.   GravaLinha(teste2, teste, "a");
  2469.   sprintf(teste2, "%s/Freedom.Input", database);
  2470.   GravaLinha(teste2, teste, "a");
  2471.  
  2472.   /* NEW CALL ADDED IN FREEDOM DATABASE */
  2473.   MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg47));
  2474.   return NULL;
  2475. }
  2476.  
  2477. APTR PreparaOutroMesTodas( struct Hook *a0, APTR a2, APTR a1 )
  2478. {
  2479.   /* ESTA FUNCAO PREPARA O ARQUIVO DE LEITURA PARA AS INFORMACOES
  2480.      DA JANELA ALL CALLS. PARA CONSULTAS DE ESSE E OUTRO MES. */
  2481.   char teste2[256], saida[256], a, teste[256], status[30], gauge[30],
  2482.        dia[20], login[20], online[20], fone[30], cost[30], *moedac,
  2483.        *precision, senha1[256], senha2[256], senhatmp[256], *regnumber2,
  2484.        *regemail, *regnumber, *regname, *regorg, *regcountry, sem[256];
  2485.   float totalarq = 0, gaugep = 0, registro = 0;
  2486.   long moeda = 0;
  2487.   int x = 0;
  2488.   FILE *entrada, *saidaarq;
  2489.  
  2490.   set(App->GaugeTodasLigacoes, MUIA_Gauge_InfoText, TMsg(App->Msg25));
  2491.   DoMethod(App->ListTodasLigacoes, MUIM_List_Clear);
  2492.   totalarq   = LinhasArquivo("T:Freedom.InTmp");
  2493.  
  2494.   if((!(entrada = fopen("T:Freedom.InTmp", "r"))) ||
  2495.      (!(saidaarq= fopen("T:Freedom.InAll", "w"))))
  2496.   {
  2497.     /* FREEDOM TEMPORARY FILE NOT FOUND */
  2498.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg48));
  2499.     return NULL;
  2500.   }
  2501.   /* PEGA INFORMACOES DA MOEDA CORRENTE */
  2502.   get(App->ComboMoeda, MUIA_Cycle_Active, &moeda);
  2503.   get(App->NomeMoeda, MUIA_String_Contents, &moedac);
  2504.  
  2505.   /* PEGA A PRECISAO DOS DISPLAYS DE VALORES */
  2506.   get(App->ConfPrecision, MUIA_String_Contents, &precision);
  2507.  
  2508.   /* ROTINA QUE TESTA O TIPO DE REGISTRO */
  2509.   get(App->RegisterName, MUIA_String_Contents, ®name);
  2510.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  2511.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  2512.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  2513.   get(App->RegisterKeyReal, MUIA_String_Contents, ®number2);
  2514.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  2515.   strcpy(senha1, AsciiString(regnumber, 69));
  2516.   strcpy(senha2, AsciiString(regnumber2, 96));
  2517.   sprintf(senhatmp, "%s%s%s", regname, regemail, regcountry);
  2518.   strcpy(senhatmp, CriptografiaSimples(senhatmp, 0));
  2519.   if(!strcmp(senha1, senhatmp))
  2520.     registro = 1;
  2521.   if(!strcmp(senha1, senhatmp) && !strcmp(senha2, senhatmp))
  2522.     registro = 2;
  2523.   if(!strcmp(regnumber, ""))
  2524.     registro = 0;
  2525.  
  2526.   x = 0; gaugep = 0;
  2527.   while(a = getc(entrada), ! feof(entrada))
  2528.   {
  2529.     teste[x++] = a;
  2530.     if(a == '\n')
  2531.     {
  2532.       teste[--x] = '\0';
  2533.  
  2534.       if(!(strcmp(Corta(teste, ',', 5), "Act"))) {
  2535.         /* REGULAR */
  2536.         strcpy(status, TMsg(App->Msg54));
  2537.       } else {
  2538.         /* IRREGULAR */
  2539.         strcpy(status, TMsg(App->Msg55)); }
  2540.  
  2541.       strcpy(dia,    Corta(teste, ',', 1));
  2542.       strcpy(sem,    DiaSemanaFREE(dia, 1));
  2543.       strcpy(login,  Corta(teste, ',', 2));
  2544.       strcpy(online, Corta(teste, ',', 6));
  2545.       strcpy(fone,   EspacoString(Corta(teste, ',', 0), 12, 1));
  2546.  
  2547.       /* LE O VALOR DA LIGACAO */
  2548.       strcpy(cost, Corta(teste, ',', 8));
  2549.       strcpy(teste2, CasasAposCaracter(cost, '.', atoi(precision)));
  2550.       if(moeda == 0)
  2551.         sprintf(cost, "%s%s", moedac, teste2);
  2552.       else
  2553.         sprintf(cost, "%s%s", teste2, moedac);
  2554.       if(registro < 2)
  2555.         strcpy(cost, "REALREG");
  2556.  
  2557.       strcpy(login,  SegundoHora(login));
  2558.       strcpy(online, SegundoHora(online));
  2559.  
  2560.       /* ACERTA OS TAMANHOS DOS CAMPOS */
  2561.       strcpy(dia,    EspacoString(dia, 12, 1));
  2562.       strcpy(login,  EspacoString(login, 10, 1));
  2563.       strcpy(online, EspacoString(online, 10, 1));
  2564.       strcpy(cost,   EspacoString(cost, 12, 1));
  2565.  
  2566.       /* GERA O ARQUIVO DE SAIDA */
  2567.       sprintf(saida, "\033b%s\033n%s\033b%s\033n%s\033b%s\033n\0338 %s (%s)\033n\n", dia, login, online, fone, cost, status, sem);
  2568.       fprintf(saidaarq, "%s", saida);
  2569.  
  2570.       teste[0] = '\0'; x = 0;
  2571.       gaugep++;
  2572.       sprintf(gauge, "%f", ((100 / totalarq) * gaugep));
  2573.       set(App->GaugeTodasLigacoes, MUIA_Gauge_Current, atoi(gauge));
  2574.     }
  2575.   }
  2576.   fclose(entrada);
  2577.   fclose(saidaarq);
  2578.  
  2579.   /* CARREGA DO ARQUIVO PARA A LISTA */
  2580.   CarregaLista(App->ListTodasLigacoes, "T:Freedom.InAll");
  2581.   remove("T:Freedom.InAll");
  2582.   /* LOADED */
  2583.   set(App->GaugeTodasLigacoes, MUIA_Gauge_InfoText, TMsg(App->Msg78));
  2584.  
  2585.   return NULL;
  2586. }
  2587.  
  2588. APTR TestaConfiguracao( struct Hook *a0, APTR a2, APTR a1 )
  2589. {
  2590.   /* ESTA FUNCAO TESTA A VALIDADE DOS CAMPOS NA JANELA DE
  2591.      CONFIGURACAO. EVENTO DOS BOTOES DE SAVE, USE, E CLOSE REQUEST */
  2592.   char teste[256],
  2593.        *mes, *hora1, *hora2, *database, *categorydir, *precision;
  2594.   int x = 0;
  2595.   long menu = 0;
  2596.  
  2597.   get(App->PrefsDiaInicial, MUIA_String_Contents, &mes);
  2598.   get(App->PrefsFreeHInicio, MUIA_String_Contents, &hora1);
  2599.   get(App->PrefsFreeHFim, MUIA_String_Contents, &hora2);
  2600.   get(App->DataBaseName, MUIA_String_Contents, &database);
  2601.   get(App->CategDiretorio, MUIA_String_Contents, &categorydir);
  2602.   get(App->PrefsComboMenu, MUIA_Cycle_Active, &menu);
  2603.  
  2604.   /* VERIFICA A JANELA PRINCIPAL CERTA A ABRIR (STAND, GRAPHIC) */
  2605.   if(menu == 0) {
  2606.     set(App->JanelaPrincipal, MUIA_Window_Open, FALSE);
  2607.     set(App->JanelaPrincipal2, MUIA_Window_Open, TRUE);
  2608.   } else {
  2609.     set(App->JanelaPrincipal2, MUIA_Window_Open, FALSE);
  2610.     set(App->JanelaPrincipal, MUIA_Window_Open, TRUE);
  2611.   }
  2612.  
  2613.   /* TESTA SE O LOGO EXISTE */
  2614.   if(!ExisteArquivo("Freedom:Images/Freelogo.iff"))
  2615.   {
  2616.     /* FREEDOM:IMAGES/FREELOGO.IFF NOT FOUND */
  2617.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg58));
  2618.   }
  2619.   /* TESTA SE EXISTE TODOS OS BOTOES DO MENU PRINCIPAL */
  2620.   if(!ExisteArquivo("Freedom:Images/About.iff") ||
  2621.      !ExisteArquivo("Freedom:Images/Global.iff") ||
  2622.      !ExisteArquivo("Freedom:Images/LastC.iff") ||
  2623.      !ExisteArquivo("Freedom:Images/Other.iff") ||
  2624.      !ExisteArquivo("Freedom:Images/Prefs.iff") ||
  2625.      !ExisteArquivo("Freedom:Images/Costs.iff") ||
  2626.      !ExisteArquivo("Freedom:Images/Anual.iff") ||
  2627.      !ExisteArquivo("Freedom:Images/This.iff"))
  2628.   {
  2629.     /* FREEDOM IMAGE BUTTONS NOT FOUND */
  2630.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg59));
  2631.   }
  2632.  
  2633.   /* TESTA DIRETORIO DA BASE DE DADOS */
  2634.   set(App->DataBaseName, MUIA_String_Contents, FiltraDir(database, 0));
  2635.   if(!strcmp(UltimoCaracter(database), ":"))
  2636.   {
  2637.     set(App->DataBaseName, MUIA_String_Contents, "Freedom:FDataBase");
  2638.     /* FREEDOM DATABASE DIR IS WRONG, NOT POSSIBLE DEVICE */
  2639.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg50));
  2640.   }  
  2641.   /* VERIFICA SE O DIRETORIO DA BASE EXISTE */
  2642.   if(!ExisteDiretorio(database))
  2643.   {
  2644.     /* FREEDOM DATABASE NOT FOUND, CREATED? */
  2645.     sprintf(teste, "\033c%s\n\0338[%s]", TMsg(App->Msg30), database);
  2646.     /* CREATE DIRECTORY, CANCEL */
  2647.     x = MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg33), teste);
  2648.     if(x == 1)
  2649.     {
  2650.       mkdir(database);
  2651.       /* FREEDOM DATABASE CREATED */
  2652.       sprintf(teste, "\033c%s \0338[%s]", TMsg(App->Msg27), database);
  2653.       MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), teste);
  2654.     }
  2655.   }
  2656.  
  2657.   /* FAZ CONSISTENCIA DO TAMANHO DO CAMPO HORA */
  2658.   if(!TestaHora(hora1) ||
  2659.      !TestaHora(hora2))
  2660.   {
  2661.     /* FORMAT TIME IS INVALID */
  2662.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg41));
  2663.     set(App->PrefsFreeHInicio, MUIA_String_Contents, "00:00:00");
  2664.     set(App->PrefsFreeHFim, MUIA_String_Contents, "00:00:00");
  2665.     return NULL;
  2666.   }
  2667.   if(atoi(mes) < 1 || atoi(mes) > 31)
  2668.   {
  2669.     /* INITIAL DAY IS INVALID */
  2670.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg49));
  2671.     set(App->PrefsDiaInicial, MUIA_String_Contents, "1");
  2672.   }
  2673.  
  2674.   /* TESTA DIRETORIO DAS CATEGORIAS */
  2675.   set(App->CategDiretorio, MUIA_String_Contents, FiltraDir(categorydir, 0));
  2676.   if(!strcmp(UltimoCaracter(categorydir), ":"))
  2677.   {
  2678.     set(App->CategDiretorio, MUIA_String_Contents, "Freedom:Categories");
  2679.     /* FREEDOM CATEGORIES DIR IS WRONG, NOT POSSIBLE DEVICE */
  2680.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg71));
  2681.   }  
  2682.   /* VERIFICA SE O DIRETORIO DAS CATEGORIAS EXISTE */
  2683.   if(!ExisteDiretorio(categorydir))
  2684.   {
  2685.     /* FREEDOM CATEGORIE NOT FOUND, CREATE? */
  2686.     sprintf(teste, "\033c%s\n\0338[%s]", TMsg(App->Msg66), categorydir);
  2687.     /* CREATE DIRECTORY, CANCEL */
  2688.     x = MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg33), teste);
  2689.     if(x == 1)
  2690.     {
  2691.       mkdir(categorydir);
  2692.       /* FREEDOM CATEGORIE DIRECTORY CREATED */
  2693.       sprintf(teste, "\033c%s \0338[%s]", TMsg(App->Msg67), categorydir);
  2694.       MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), teste);
  2695.     }
  2696.   }
  2697.   /* TESTA A VALIDADE DOS CAMPOS DE REGISTRO, SE INVALIDOS LIMPA A CHAVE
  2698.      PARA DIFICULTAR O CRACKER DO PROGRAMA */
  2699.   if(TestaPedidoRegistro() == 1)
  2700.   {
  2701.     set(App->RegisterKey, MUIA_String_Contents, "");
  2702.     /* REGISTER INFORMATION INVALID! */
  2703.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg38));
  2704.   }
  2705.  
  2706.   /* TESTA O CAMPO DE PRECISAO DE VALORES */
  2707.   get(App->ConfPrecision, MUIA_String_Contents, &precision);
  2708.   if(atoi(precision) < 0)
  2709.     set(App->ConfPrecision, MUIA_String_Contents, "0");
  2710.   if(atoi(precision) > 10)
  2711.     set(App->ConfPrecision, MUIA_String_Contents, "10");
  2712.  
  2713.   return NULL;
  2714. }
  2715.  
  2716. APTR CarregaPeriodo( struct Hook *a0, APTR a2, APTR a1 )
  2717. {
  2718.   /* ESTA FUNCAO GERA OS ARQUIVOS PARA A SELECAO POR PERIODO */
  2719.   char *data1, *data2, *horainicio, *horafim, teste[256],
  2720.        *database, freeout[256], data12[256];
  2721.   int x = 0;
  2722.   FILE *saida;
  2723.  
  2724.   LimpaJanelaDesseMes();
  2725.  
  2726.   /* TESTA SE O DIRETORIO DA BASE DE DADOS EXISTE */
  2727.   get(App->DataBaseName, MUIA_String_Contents, &database);
  2728.   if(!ExisteDiretorio(database))
  2729.   {
  2730.      set(App->JanelaDesseMes,MUIA_Window_Open,FALSE);
  2731.      MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg17));
  2732.      return NULL;
  2733.   }
  2734.   set(App->JanelaGeracaoQuery, MUIA_Window_Open, TRUE);
  2735.   set(App->GaugeQuery, MUIA_Gauge_Current, 5);
  2736.   set(App->GaugeQuery, MUIA_Gauge_InfoText, TMsg(App->Msg26));
  2737.  
  2738.   get(App->InputPeriodo1, MUIA_String_Contents, &data1);
  2739.   get(App->InputPeriodo2, MUIA_String_Contents, &data2);
  2740.   get(App->PrefsFreeHInicio, MUIA_String_Contents, &horainicio);
  2741.   get(App->PrefsFreeHFim, MUIA_String_Contents, &horafim);
  2742.  
  2743.   /* FAZ CONSISTENCIA DO FORMATO DA DATA */
  2744.   if(!TestaData(data1) ||
  2745.      !TestaData(data2))
  2746.   {
  2747.     /* DATE IS INVALID! VERIFIED FIELDS [DD.MM.YYYY] */
  2748.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg51));
  2749.     return NULL;
  2750.   }
  2751.  
  2752.   /* CASO OS CAMPOS DE HORA INICIAL E FINAL ESTEJAM EM BRANCO
  2753.      ATRIBUI 00:00:00 A ELES */
  2754.   if(!(strcmp(horainicio, "")))
  2755.     strcpy(horainicio, "00:00:00");
  2756.   if(!(strcmp(horafim, "")))
  2757.     strcpy(horafim, "00:00:00");
  2758.  
  2759.   /* CRIA LISTA DE ARQUIVOS A CONSULTAR */
  2760.   if(!(saida = fopen("T:Freedom.DataDir", "w")))
  2761.   {
  2762.      set(App->JanelaDesseMes,MUIA_Window_Open,FALSE);
  2763.      /* PROBLEM ON CREATION T:FREEDOM.DATADIR */
  2764.      MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg53));
  2765.      return NULL;
  2766.   }
  2767.   fprintf(saida, "%s/Freedom.%s\n", database, AposCaracter(data1, '.', 1));
  2768.   set(App->GaugeQuery, MUIA_Gauge_Current, 15);
  2769.  
  2770.   sprintf(freeout, "%s/Freedom.Out", database);
  2771.   strcpy(data12, data1); x = 0;
  2772.   while(x == 0)
  2773.   {
  2774.     strcpy(teste, ArrumaDataHora(SomaDiminuiMes(data12, 1), '.'));
  2775.     if(atoi(DiaJuliano(teste)) <= atoi(DiaJuliano(data2)))
  2776.     {
  2777.       fprintf(saida, "%s/Freedom.%s\n", database, AposCaracter(teste, '.', 1));
  2778.       strcpy(data12, teste);
  2779.     } else
  2780.       x = 1;
  2781.   }
  2782.   fclose(saida);
  2783.  
  2784.   /* PREPARA O ARQUIVO PARA A CONSULTA GLOBAL */
  2785.   UnirArquivos("T:Freedom.InTmpP", "T:Freedom.DataDir");
  2786.   remove("T:Freedom.DataDir");
  2787.   set(App->GaugeQuery, MUIA_Gauge_Current, 25);
  2788.  
  2789.   SelecionaIntervaloCampo("T:Freedom.InTmpP", "T:Freedom.InTmp", "Ram:Freedom.Temp", data1, data2, horainicio, horafim);
  2790.   SelecionaIntervaloCampo(freeout, "T:Freedom.OutTmp", "Ram:Freedom.Temp", data1, data2, horainicio, horafim);
  2791.   remove("T:Freedom.InTmpP");
  2792.   set(App->GaugeQuery, MUIA_Gauge_Current, 35);
  2793.  
  2794.   SemanaCount("t:Freedom.InTmp");
  2795.   sprintf(teste, "%s - %s", data1, data2);
  2796.   GravaRegistroDB("t:Freedom.Date", teste, "date", "w");
  2797.   set(App->GaugeQuery, MUIA_Gauge_Current, 50);
  2798.   return NULL;
  2799. }
  2800.  
  2801. APTR CriaBaseDados( struct Hook *a0, APTR a2, APTR a1 )
  2802. {
  2803.   char *database, teste[256];
  2804.   get(App->DataBaseName, MUIA_String_Contents, &database);
  2805.  
  2806.   mkdir(database);
  2807.  
  2808.   sprintf(teste, "\033c%s \0338[%s]", TMsg(App->Msg27), database);
  2809.   MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), teste);
  2810.   return NULL;
  2811. }
  2812.  
  2813. APTR PreparaGlobal( struct Hook *a0, APTR a2, APTR a1 )
  2814. {
  2815.   /* ESTA ROTINA PREPARA OS ARQUIVOS PARA A CONSULTA GLOBAL */
  2816.   char *database, freeout[256];
  2817.   /* TESTA SE O DIRETORIO DA BASE DE DADOS EXISTE */
  2818.   get(App->DataBaseName, MUIA_String_Contents, &database);
  2819.   if(!ExisteDiretorio(database))
  2820.   {
  2821.      set(App->JanelaDesseMes,MUIA_Window_Open,FALSE);
  2822.      MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg17));
  2823.      return NULL;
  2824.   }
  2825.  
  2826.   LimpaJanelaDesseMes();
  2827.   set(App->JanelaGeracaoQuery, MUIA_Window_Open, TRUE);
  2828.   set(App->GaugeQuery, MUIA_Gauge_Current, 5);
  2829.   set(App->GaugeQuery, MUIA_Gauge_InfoText, TMsg(App->Msg26));
  2830.  
  2831.   /* PREPARA O ARQUIVO PARA A CONSULTA GLOBAL */
  2832.   DiretorioArquivoFREE(database, "T:Freedom.DataDir", 1);
  2833.   UnirArquivosFREE("T:Freedom.InTmp", "T:Freedom.DataDir");
  2834.   VerificaFoneArquivo("T:Freedom.InTmp", "T:Freedom.Temp");
  2835.   remove("T:Freedom.DataDir");
  2836.   /* GLOBAL STATISTICS */
  2837.   GravaRegistroDB("t:Freedom.Date", TMsg(App->Msg52), "date", "w");
  2838.   set(App->GaugeQuery, MUIA_Gauge_Current, 25);
  2839.   sprintf(freeout, "%s/Freedom.Out", database);
  2840.   CopiaArquivo(freeout, "t:Freedom.OutTmp");
  2841.   SemanaCount("t:Freedom.InTmp");
  2842.   set(App->GaugeQuery, MUIA_Gauge_Current, 50);
  2843.   return NULL;
  2844. }
  2845.  
  2846. APTR AnualDiminuiAno( struct Hook *a0, APTR a2, APTR a1 )
  2847. {
  2848.   /* ROTINA QUE DIMINUI ANO NA CONSULTA ANUAL */
  2849.   char teste[100], *ano;
  2850.   get(App->CAnualText, MUIA_String_Contents, &ano);
  2851.   if(atoi(ano) == 1)
  2852.     strcpy(ano, "1");
  2853.   else
  2854.   {
  2855.     sprintf(teste, "%d", (atoi(ano) - 1));
  2856.     strcpy(ano, teste);
  2857.   }
  2858.   MUI_Redraw(App->CAnualText, MADF_DRAWOBJECT);
  2859.   return NULL;
  2860. }
  2861.  
  2862. APTR AnualAumentaAno( struct Hook *a0, APTR a2, APTR a1 )
  2863. {
  2864.   /* ROTINA QUE AUMENTA ANO NA CONSULTA ANUAL */
  2865.   char teste[100], *ano;
  2866.   get(App->CAnualText, MUIA_String_Contents, &ano);
  2867.   sprintf(teste, "%d", (atoi(ano) + 1));
  2868.   strcpy(ano, teste);
  2869.   MUI_Redraw(App->CAnualText, MADF_DRAWOBJECT);
  2870.   return NULL;
  2871. }
  2872.  
  2873. APTR TestaRegistroAnual( struct Hook *a0, APTR a2, APTR a1 )
  2874. {
  2875.   char senha1[256], senha2[256], senhatmp[256], *regnumber2, 
  2876.        *regemail, *regnumber, *regname, *regorg, *regcountry;
  2877.   int registro = 0;
  2878.  
  2879.   /* ROTINA QUE TESTA O TIPO DE REGISTRO */
  2880.   get(App->RegisterName, MUIA_String_Contents, ®name);
  2881.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  2882.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  2883.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  2884.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  2885.   get(App->RegisterKeyReal, MUIA_String_Contents, ®number2);
  2886.  
  2887.   strcpy(senha1, AsciiString(regnumber, 69));
  2888.   strcpy(senha2, AsciiString(regnumber2, 96));
  2889.  
  2890.   sprintf(senhatmp, "%s%s%s", regname, regemail, regcountry);
  2891.   strcpy(senhatmp, CriptografiaSimples(senhatmp, 0));
  2892.  
  2893.   if(!strcmp(senha1, senhatmp))
  2894.     registro = 1;
  2895.   if(!strcmp(senha1, senhatmp) && !strcmp(senha2, senhatmp))
  2896.     registro = 2;
  2897.   if(!strcmp(regnumber, ""))
  2898.     registro = 0;
  2899.  
  2900.   if(registro == 0)
  2901.   {
  2902.     /* VERSION NOT REGISTER, PLEASE REGISTER */
  2903.     MsgRegistro();
  2904.     return NULL;
  2905.   }
  2906.   set(App->JanelaConsultaAnual, MUIA_Window_Open, TRUE);
  2907.   return NULL;
  2908. }
  2909.  
  2910. APTR ConsultaAnual( struct Hook *a0, APTR a2, APTR a1 )
  2911. {
  2912.   char *database, teste[256], *ano, xx[10], a, tmp[256], *regnumber2,
  2913.        mes[256], ligacoes[256], online[256], regular[20], senhatmp[256],
  2914.        irregular[20], media[256], gauge[30], mesnumero[3], cost[30],
  2915.        costtmp[30], *moedac, *precision, senha1[256], senha2[256], 
  2916.        *regemail, *regnumber, *regname, *regorg, *regcountry;
  2917.   int x = 0, xmes1 = 0, xmes2 = 0, totalarq = 0, registro = 0;
  2918.   float gaugep = 0;
  2919.   long mes1 = 0, mes2 = 0, moeda = 0;
  2920.   FILE *entrada, *arq;
  2921.  
  2922.   get(App->CAnualMes1, MUIA_Cycle_Active, &mes1);
  2923.   get(App->CAnualMes2, MUIA_Cycle_Active, &mes2);
  2924.   xmes1 = mes1 + 1;
  2925.   xmes2 = mes2 + 1;
  2926.   if(xmes1 > xmes2)
  2927.   {
  2928.     /* PERIOD SELECTED INVALID! LOOK FIELDS */
  2929.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg61));
  2930.     set(App->JanelaConsultaAnual, MUIA_Window_Open, TRUE);
  2931.     return NULL;
  2932.   }
  2933.   set(App->JanelaConsultaAnualLista, MUIA_Window_Open, TRUE);
  2934.   DoMethod(App->ListConsultaAnual, MUIM_List_Clear);
  2935.  
  2936.   set(App->CAnualGauge, MUIA_Gauge_Current, 0);
  2937.   set(App->CAnualGauge, MUIA_Gauge_InfoText, TMsg(App->Msg26));
  2938.   get(App->DataBaseName, MUIA_String_Contents, &database);
  2939.   get(App->CAnualText, MUIA_String_Contents, &ano);
  2940.   /* ROTINA QUE PREPARA O ARQUIVO PARA CRIACAO DOS MESES */
  2941.   for(x = 1; x < 13; x++)
  2942.   {
  2943.     if(x < 10)
  2944.       sprintf(xx, "0%d", x);
  2945.     else
  2946.       sprintf(xx, "%d", x);
  2947.     sprintf(teste, "%s/Freedom.%s.%s", database, xx, ano); 
  2948.     if(x >= xmes1 && x <= xmes2)
  2949.       InsereArquivoFREE(teste, "t:Freedom.YearTemp");
  2950.     set(App->CAnualGauge, MUIA_Gauge_Current, (x * 7));
  2951.   }
  2952.   ConsultaAnualFREE("t:Freedom.YearTemp", "t:Freedom.YearC");
  2953.   totalarq = LinhasArquivo("t:Freedom.YearC");
  2954.   remove("t:Freedom.YearTemp");
  2955.   set(App->CAnualGauge, MUIA_Gauge_Current, 100);
  2956.  
  2957.   if(totalarq <= 0)
  2958.   {
  2959.     /* NAO EXISTE INFORMACOES PARA ESSA CONSULTA */
  2960.     set(App->JanelaConsultaAnualLista, MUIA_Window_Open, FALSE);
  2961.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg24));
  2962.     return NULL;
  2963.   }
  2964.  
  2965.   /* CARREGA FREEDOM.YEARC PARA A LISTA */
  2966.   if((!(entrada  = fopen("T:Freedom.YearC", "r"))) ||
  2967.      (!(arq      = fopen("T:Freedom.ListTmp", "w"))))
  2968.   {
  2969.     /* ERROR ON OPEN A INTERNAL TEMPORARY FILE */
  2970.     set(App->JanelaConsultaAnualLista, MUIA_Window_Open, FALSE);
  2971.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg62));
  2972.     return NULL;
  2973.   }
  2974.   /* PEGA INFORMACOES DA MOEDA CORRENTE */
  2975.   get(App->ComboMoeda, MUIA_Cycle_Active, &moeda);
  2976.   get(App->NomeMoeda, MUIA_String_Contents, &moedac);
  2977.  
  2978.   /* PEGA A PRECISAO DOS DISPLAYS DE VALORES */
  2979.   get(App->ConfPrecision, MUIA_String_Contents, &precision);
  2980.  
  2981.   /* ROTINA QUE TESTA O TIPO DE REGISTRO */
  2982.   get(App->RegisterName, MUIA_String_Contents, ®name);
  2983.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  2984.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  2985.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  2986.   get(App->RegisterKeyReal, MUIA_String_Contents, ®number2);
  2987.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  2988.   strcpy(senha1, AsciiString(regnumber, 69));
  2989.   strcpy(senha2, AsciiString(regnumber2, 96));
  2990.   sprintf(senhatmp, "%s%s%s", regname, regemail, regcountry);
  2991.   strcpy(senhatmp, CriptografiaSimples(senhatmp, 0));
  2992.   if(!strcmp(senha1, senhatmp))
  2993.     registro = 1;
  2994.   if(!strcmp(senha1, senhatmp) && !strcmp(senha2, senhatmp))
  2995.     registro = 2;
  2996.   if(!strcmp(regnumber, ""))
  2997.     registro = 0;
  2998.  
  2999.   set(App->CAnualGauge, MUIA_Gauge_Current, 0);
  3000.   x = 0; gaugep = 0;
  3001.   while(a = getc(entrada), ! feof(entrada))
  3002.   {
  3003.     teste[x++] = a;
  3004.     if(a == '\n')
  3005.     {
  3006.       teste[--x] = '\0';
  3007.       strcpy(mes,       Corta(teste, ',', 0));
  3008.       if(atoi(mes) < 10)
  3009.         sprintf(tmp, "0%s.%s", mes, ano);
  3010.       else
  3011.         sprintf(tmp, "%s.%s", mes, ano);
  3012.       strcpy(mesnumero, EspacoString(tmp, 9, 1));
  3013.  
  3014.       strcpy(mes,       DescricaoMesFREE(atoi(mes), 1));
  3015.       strcpy(mes,       EspacoString(mes, 9, 1));
  3016.       strcpy(ligacoes,  EspacoString(Corta(teste, ',', 1), 5, 1));
  3017.       strcpy(online,    EspacoString(SegundoHora(Corta(teste, ',', 2)), 10, 1));
  3018.       strcpy(irregular, EspacoString(Corta(teste, ',', 3), 5, 1));
  3019.       strcpy(regular,   EspacoString(Corta(teste, ',', 4), 5, 1));
  3020.       strcpy(media,     EspacoString(SegundoHora(Corta(teste, ',', 5)), 10, 1));
  3021.       strcpy(costtmp,   CasasAposCaracter(Corta(teste, ',', 6), '.', atoi(precision)));
  3022.       if(moeda == 0)
  3023.         sprintf(cost, "%s%s", moedac, costtmp);
  3024.       else
  3025.         sprintf(cost, "%s%s", costtmp, moedac);
  3026.       if(registro < 2)
  3027.         strcpy(cost, "REALREG");
  3028.       strcpy(cost,      EspacoString(cost, 12, 1));
  3029.  
  3030.       fprintf(arq, "\033b%s\033n%s\033b%s\033n%s%s%s\033b%s\033n\0338 %s\n", mesnumero, ligacoes, online, media, regular, irregular, cost, mes);
  3031.  
  3032.       /* ROTINA QUE ACERTA GAUGE */
  3033.       gaugep++;
  3034.       sprintf(gauge, "%f", ((100 / totalarq) * gaugep));
  3035.       set(App->CAnualGauge, MUIA_Gauge_Current, atoi(gauge));
  3036.       set(App->CAnualGauge, MUIA_Gauge_InfoText, "%ld %%");
  3037.       teste[0] = '\0'; x = 0;
  3038.     }
  3039.   }
  3040.   fclose(entrada);
  3041.   fclose(arq);
  3042.   set(App->CAnualGauge, MUIA_Gauge_Current, 100);
  3043.   remove("t:Freedom.YearC");
  3044.   
  3045.   /* CARREGA DO ARQUIVO PARA A LISTA */
  3046.   CarregaLista(App->ListConsultaAnual, "T:Freedom.ListTmp");
  3047.   remove("T:Freedom.ListTmp");
  3048.  
  3049.   /* LOADED */
  3050.   set(App->CAnualGauge, MUIA_Gauge_InfoText, TMsg(App->Msg78));
  3051.  
  3052.   return NULL;
  3053. }
  3054.  
  3055. APTR RemoveLimite( struct Hook *a0, APTR a2, APTR a1 )
  3056. {
  3057.   long pos = 0;
  3058.   get(App->LimitesLista, MUIA_List_Active, &pos);
  3059.   DoMethod(App->LimitesLista, MUIM_List_Remove, pos);
  3060.   return NULL;
  3061. }
  3062.  
  3063. APTR LimpaLimites( struct Hook *a0, APTR a2, APTR a1 )
  3064. {
  3065.   int x;
  3066.   /* ACCEPT OR CANCEL */
  3067.   /* YOU LIKE CLEAR ALL LIMITS IN THIS LIST */
  3068.   x = MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg64), TMsg(App->Msg65));
  3069.   if(x == 1)
  3070.     DoMethod(App->LimitesLista, MUIM_List_Clear);
  3071.   return NULL;
  3072. }
  3073.  
  3074. APTR AdicionaLimite( struct Hook *a0, APTR a2, APTR a1 )
  3075. {
  3076.   /* ROTINA QUE ADICIONA UM LIMITE NOVO A LISTA */
  3077.   static struct buffer {
  3078.     char lista[256];
  3079.   };
  3080.   static struct buffer listaarray[50];
  3081.  
  3082.   char *horaini, *horafim, *custo, *combotext;
  3083.   long pos = 0, menu = 0;
  3084.  
  3085.   /* TESTA SE NAO EXPIROU O MAXIMO DE LIMITES 100 */
  3086.   get(App->LimitesLista, MUIA_List_Entries, &pos);
  3087.   if(pos >= 50)
  3088.   {
  3089.     /* LIST OF IGNORE PHONES FINISH! MAXIMUN 100 LIMITS */
  3090.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg63));
  3091.     return NULL;
  3092.   }
  3093.  
  3094.   get(App->LimitesHInicio, MUIA_String_Contents, &horaini);
  3095.   get(App->LimitesHFinal, MUIA_String_Contents, &horafim);
  3096.   get(App->LimiteCusto, MUIA_String_Contents, &custo);
  3097.   strcpy(custo, SubstituiCaracter(custo, ',', '.'));
  3098.   get(App->ComboCost, MUIA_Cycle_Active, &menu);
  3099.   get(App->ComboCost, MUIA_Text_Contents, &combotext);
  3100.  
  3101.   /* FAZ CONSISTENCIA DO TAMANHO DO CAMPO HORA */
  3102.   if(!TestaHora(horaini) ||
  3103.      !TestaHora(horafim))
  3104.   {
  3105.     /* FORMAT TIME IS INVALID */
  3106.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg41));
  3107.     return NULL;
  3108.   }
  3109.  
  3110.   sprintf(listaarray[pos].lista, "%s %s %s %d %s", horaini, horafim, custo, menu, combotext);
  3111.   if(menu < 6)
  3112.     DoMethod(App->LimitesLista, MUIM_List_InsertSingle, &listaarray[pos].lista[0], MUIV_List_Insert_Bottom);
  3113.   else
  3114.     DoMethod(App->LimitesLista, MUIM_List_InsertSingle, &listaarray[pos].lista[0], -1, MUIV_List_Insert_Bottom);
  3115.  
  3116.   return NULL;
  3117. }
  3118.  
  3119. APTR DoubleClickLimites( struct Hook *a0, APTR a2, APTR a1 )
  3120. {
  3121.   /* ROTINA QUE CARREGA DO LIST E JOGA NOS TEXTS */
  3122.   char *linha;
  3123.   DoMethod(App->LimitesLista, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, &linha);
  3124.   set(App->LimitesHInicio, MUIA_String_Contents, Corta(linha, ' ', 0));
  3125.   set(App->LimitesHFinal, MUIA_String_Contents, Corta(linha, ' ', 1));
  3126.   set(App->LimiteCusto, MUIA_String_Contents, Corta(linha, ' ', 2));
  3127.   set(App->ComboCost, MUIA_Cycle_Active, atoi(Corta(linha, ' ', 3)));
  3128.   return NULL;
  3129. }
  3130.  
  3131. APTR SalvaCategoria( struct Hook *a0, APTR a2, APTR a1 )
  3132. {
  3133.   char *categorydir, teste[256], *categoryname, *lista, *money;
  3134.   int x = 0;
  3135.   long pos = 0, moneycombo = 0;
  3136.   FILE *saida;
  3137.  
  3138.   get(App->CategDiretorio, MUIA_String_Contents, &categorydir);
  3139.   get(App->NomeCategoria, MUIA_String_Contents, &categoryname);
  3140.   get(App->NomeMoeda, MUIA_String_Contents, &money);
  3141.  
  3142.   /* VERIFICA SE O DIRETORIO DAS CATEGORIAS EXISTE */
  3143.   if(!ExisteDiretorio(categorydir))
  3144.   {
  3145.     /* FREEDOM CATEGORIE NOT FOUND, CREATE? */
  3146.     sprintf(teste, "\033c%s\n\0338[%s]", TMsg(App->Msg66), categorydir);
  3147.     /* CREATE DIRECTORY, CANCEL */
  3148.     x = MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg33), teste);
  3149.     if(x == 1)
  3150.     {
  3151.       mkdir(categorydir);
  3152.     }
  3153.     else
  3154.       return NULL;
  3155.   }
  3156.   if(!strcmp(categoryname, ""))
  3157.   {
  3158.     /* NAME OF CATEGORY IS INVALID! */
  3159.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg68));
  3160.     return NULL;
  3161.   }
  3162.   get(App->LimitesLista, MUIA_List_Entries, &pos);
  3163.   if(pos == 0)
  3164.   {
  3165.     /* LISTA ESTA VAZIA */
  3166.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg72));
  3167.     return NULL;
  3168.   }
  3169.  
  3170.   sprintf(teste, "%s/%s", categorydir, categoryname);
  3171.   if(!(saida = fopen(teste, "w")))
  3172.   {
  3173.     /* PROBLEM ON SAVE CATEGORY */
  3174.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg69));
  3175.     return NULL;
  3176.   }
  3177.   for(x = 0; x < pos; x++)
  3178.   {
  3179.     DoMethod(App->LimitesLista, MUIM_List_GetEntry, x, &lista);
  3180.     sprintf(teste, "%s %s %s %s %s", HoraSegundo(Corta(lista, ' ', 0)), HoraSegundo(Corta(lista, ' ', 1)), Corta(lista, ' ', 2), Corta(lista, ' ', 3), Corta(lista, ' ', 4));
  3181.     fprintf(saida, "%s\n", teste);
  3182.   }
  3183.   get(App->ComboMoeda, MUIA_Cycle_Active, &moneycombo);
  3184.   fprintf(saida, "**>money:%d@%s\n", moneycombo, money);
  3185.   fclose(saida);
  3186.   /* CATEGORY SAVED */
  3187.   sprintf(teste, "%s \0338[%s]", TMsg(App->Msg70), categoryname);
  3188.   MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), teste);
  3189.   CarregaListaCategorias();
  3190.   return NULL;
  3191. }
  3192.  
  3193. APTR SelecionaCategoriaDefault( struct Hook *a0, APTR a2, APTR a1 )
  3194. {
  3195.   /* ROTINA QUE PEGA DA LISTA DE CATEGORIAS SE COLOCA NO CAMPO DEFAULT */
  3196.   char *texto;
  3197.   DoMethod(App->CategoriesList, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, &texto);
  3198.   set(App->TextDefault, MUIA_Text_Contents, texto);
  3199.   CarregaListaLimites(texto);
  3200.   CarregaPilhaCategorias(texto);
  3201.   return NULL;
  3202. }
  3203.  
  3204. APTR DoubleClickCategoria( struct Hook *a0, APTR a2, APTR a1 )
  3205. {
  3206.   char *texto, teste[256];
  3207.  
  3208.   DoMethod(App->CategoriesList, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, &texto);
  3209.   strcpy(teste, texto);
  3210.   CarregaListaLimites(teste);
  3211.   return NULL;
  3212. }
  3213.  
  3214. APTR DeletaCategoria( struct Hook *a0, APTR a2, APTR a1 )
  3215. {
  3216.   /* ROTINA QUE REMOVE UMA DETERMINADA CATEGORIA DO DISCO */
  3217.   char *categorydir, *texto, teste[256], deleta[256], *defaulttext;
  3218.   int x = 0;
  3219.  
  3220.   get(App->TextDefault, MUIA_Text_Contents, &defaulttext);
  3221.   get(App->CategDiretorio, MUIA_String_Contents, &categorydir);
  3222.   DoMethod(App->CategoriesList, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, &texto);
  3223.   if(!strcmp(texto, ""))
  3224.     return NULL;
  3225.   sprintf(deleta, "%s/%s", categorydir, texto);
  3226.   /* CONFIRM DELETING */
  3227.   sprintf(teste, "%s \0338[%s]?", TMsg(App->Msg73), texto);
  3228.   /* _DELETE|_CANCEL */
  3229.   x = MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg74), teste);
  3230.   if(x == 1)
  3231.   {
  3232.     remove(deleta);
  3233.     CarregaListaCategorias();
  3234.   }
  3235.   /* VERIFICA SE O DELETADO NAO EH O DEFAULT */
  3236.   sprintf(deleta, "%s/%s", categorydir, defaulttext);
  3237.   if(!(ExisteArquivo(deleta)))
  3238.     set(App->TextDefault, MUIA_Text_Contents, "");
  3239.   /* CARREGA APOS A DELECAO OS LIMITES DO DEFAULT */
  3240.   CarregaListaLimites(defaulttext);
  3241.   return NULL;
  3242. }
  3243.  
  3244. APTR GeraPedidoRegistro( struct Hook *a0, APTR a2, APTR a1 )
  3245. {
  3246.   char *regemail, *regname, *regcountry, *regcity, *regnumber,
  3247.        *nick, *comment, *regorg;
  3248.  
  3249.   if(TestaPedidoRegistro() == 1)
  3250.   {
  3251.     set(App->RegisterKey, MUIA_String_Contents, "");
  3252.     /* REGISTER INFORMATION INVALID! */
  3253.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg38));
  3254.     return NULL;
  3255.   }
  3256.  
  3257.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  3258.   get(App->RegisterName, MUIA_String_Contents, ®name);
  3259.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  3260.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  3261.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  3262.   get(App->RegisterCity, MUIA_String_Contents, ®city);
  3263.   get(App->PedidoNick, MUIA_String_Contents, &nick);
  3264.   get(App->PedidoFreedomCall, MUIA_String_Contents, &comment);
  3265.  
  3266.   if(!strcmp(nick, "") || !strcmp(comment, ""))
  3267.   {
  3268.     /* PLEASE, COMPLETE FIELDS */
  3269.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg77));
  3270.     return NULL;
  3271.   }
  3272.  
  3273.   GravaRegistroDB("Ram:Freedom.RegisterForm", "Send this register form for [surround@iname.com]", "EmailAddress", "w");
  3274.   GravaRegistroDB("Ram:Freedom.RegisterForm", regname, "YourName", "a");
  3275.   GravaRegistroDB("Ram:Freedom.RegisterForm", regorg, "Organization", "a");
  3276.   GravaRegistroDB("Ram:Freedom.RegisterForm", regemail, "YourEmail", "a");
  3277.   GravaRegistroDB("Ram:Freedom.RegisterForm", regcountry, "YourCountry", "a");
  3278.   GravaRegistroDB("Ram:Freedom.RegisterForm", regcity, "City", "a");
  3279.   GravaRegistroDB("Ram:Freedom.RegisterForm", nick, "Nickname", "a");
  3280.   GravaRegistroDB("Ram:Freedom.RegisterForm", comment, "Comment", "a");
  3281.   GravaRegistroDB("Ram:Freedom.RegisterForm", "Don`t change this automatic e-mail, just send it!!!", "Warning", "a");
  3282.  
  3283.   set(App->JanelaPedidoRegistro, MUIA_Window_Open, FALSE);
  3284.   
  3285.   /* FILE WAS GENERATED RAM:FREEDOM.REGISTERFORM */
  3286.   MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg34));
  3287.  
  3288.   return NULL;
  3289. }
  3290.  
  3291. APTR TestaRegistroCusto( struct Hook *a0, APTR a2, APTR a1 )
  3292. {
  3293.   char senha1[256], senha2[256], senhatmp[256], *regnumber2, 
  3294.        *regemail, *regnumber, *regname, *regorg, *regcountry;
  3295.   int registro = 0;
  3296.  
  3297.   /* ROTINA QUE TESTA O TIPO DE REGISTRO */
  3298.   get(App->RegisterName, MUIA_String_Contents, ®name);
  3299.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  3300.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  3301.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  3302.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  3303.   get(App->RegisterKeyReal, MUIA_String_Contents, ®number2);
  3304.  
  3305.   strcpy(senha1, AsciiString(regnumber, 69));
  3306.   strcpy(senha2, AsciiString(regnumber2, 96));
  3307.  
  3308.   sprintf(senhatmp, "%s%s%s", regname, regemail, regcountry);
  3309.   strcpy(senhatmp, CriptografiaSimples(senhatmp, 0));
  3310.  
  3311.   if(!strcmp(senha1, senhatmp))
  3312.     registro = 1;
  3313.   if(!strcmp(senha1, senhatmp) && !strcmp(senha2, senhatmp))
  3314.     registro = 2;
  3315.   if(!strcmp(regnumber, ""))
  3316.     registro = 0;
  3317.  
  3318.   if(registro == 0)
  3319.   {
  3320.     /* VERSION NOT REGISTER, PLEASE REGISTER */
  3321.     MsgRegistro();
  3322.     return NULL;
  3323.   }
  3324.   set(App->JanelaSelecionaMesCustos, MUIA_Window_Open, TRUE);
  3325.   return NULL;
  3326. }
  3327.  
  3328. APTR AumentaAno2( struct Hook *a0, APTR a2, APTR a1 )
  3329. {
  3330.   /* ROTINA QUE AUMENTA ANO NO EDIT DA SELECAO DE MES */
  3331.   char teste[100], *ano;
  3332.   get(App->TextAno2, MUIA_String_Contents, &ano);
  3333.   sprintf(teste, "%d", (atoi(ano) + 1));
  3334.   strcpy(ano, teste);
  3335.   MUI_Redraw(App->TextAno2, MADF_DRAWOBJECT);
  3336.   return NULL;
  3337. }
  3338.  
  3339. APTR DiminuiAno2( struct Hook *a0, APTR a2, APTR a1 )
  3340. {
  3341.   /* ROTINA QUE DIMINUI ANO NO EDIT DA SELECAO DE MES */
  3342.   char teste[100], *ano;
  3343.   get(App->TextAno2, MUIA_String_Contents, &ano);
  3344.   if(atoi(ano) == 1)
  3345.     strcpy(ano, "1");
  3346.   else
  3347.   {
  3348.     sprintf(teste, "%d", (atoi(ano) - 1));
  3349.     strcpy(ano, teste);
  3350.   }
  3351.   MUI_Redraw(App->TextAno2, MADF_DRAWOBJECT);
  3352.   return NULL;
  3353. }
  3354.  
  3355. APTR CarregaEsseCheckCost( struct Hook *a0, APTR a2, APTR a1 )
  3356. {
  3357.   char senha1[256], senha2[256], senhatmp[256], *regnumber2, 
  3358.        *regemail, *regnumber, *regname, *regorg, *regcountry,
  3359.        teste[256], horason[30], cost[30], *moedac, *precision,
  3360.        media[30], teste2[256], d1[256], d2[256], ultima[60],
  3361.        *extrahour, *providerbill, *limit, *unit; 
  3362.   int totcal = 0, registro = 0;
  3363.   long moeda = 0;
  3364.   float horastotais = 0, limitehoras = 0, precoextra = 0;
  3365.  
  3366.   totcal = LinhasArquivo("t:Freedom.inTmp");
  3367.   if(totcal <= 0)
  3368.   {
  3369.     remove("t:freedom.intmp");
  3370.     remove("t:freedom.outtmp");
  3371.     remove("t:freedom.date");
  3372.     set(App->JanelaGeracaoQuery, MUIA_Window_Open, FALSE);
  3373.     set(App->JanelaDesseMes, MUIA_Window_Open, FALSE);
  3374.     /* NO CONNECTIONS REGISTERED ABOUT THIS DATE */
  3375.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg24));
  3376.     return NULL;
  3377.   }
  3378.  
  3379.   /* ROTINA QUE TESTA O TIPO DE REGISTRO */
  3380.   get(App->RegisterName, MUIA_String_Contents, ®name);
  3381.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  3382.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  3383.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  3384.   get(App->RegisterKeyReal, MUIA_String_Contents, ®number2);
  3385.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  3386.   strcpy(senha1, AsciiString(regnumber, 69));
  3387.   strcpy(senha2, AsciiString(regnumber2, 96));
  3388.   sprintf(senhatmp, "%s%s%s", regname, regemail, regcountry);
  3389.   strcpy(senhatmp, CriptografiaSimples(senhatmp, 0));
  3390.   if(!strcmp(senha1, senhatmp))
  3391.     registro = 1;
  3392.   if(!strcmp(senha1, senhatmp) && !strcmp(senha2, senhatmp))
  3393.     registro = 2;
  3394.   if(!strcmp(regnumber, ""))
  3395.     registro = 0;
  3396.  
  3397.   /* TRAVA A EXECUCAO CASO SEJA USUARIO SEM REGISTRO */
  3398.   if(registro == 0)
  3399.   {
  3400.     set(App->JanelaGeracaoQuery, MUIA_Window_Open, FALSE);
  3401.     /* VERSION NOT REGISTER, PLEASE REGISTER */
  3402.     MsgRegistro();
  3403.     return NULL;
  3404.   }
  3405.  
  3406.   /* EXTRA HOUR & PROVIDER BILL */
  3407.   get(App->HoraExtra, MUIA_String_Contents, &extrahour);
  3408.   get(App->ContaProvedor, MUIA_String_Contents, &providerbill);
  3409.   get(App->InputLimitTime, MUIA_String_Contents, &limit);
  3410.   limitehoras    = atof(limit) * 3600;
  3411.  
  3412.   /* PEGA INFORMACOES DA MOEDA CORRENTE */
  3413.   get(App->ComboMoeda, MUIA_Cycle_Active, &moeda);
  3414.   get(App->NomeMoeda, MUIA_String_Contents, &moedac);
  3415.  
  3416.   /* PEGA A PRECISAO DOS DISPLAYS DE VALORES */
  3417.   get(App->ConfPrecision, MUIA_String_Contents, &precision);
  3418.   /* PEGA UNIDADE DE DESCONTO */
  3419.   get(App->ConfUnit, MUIA_String_Contents, &unit);
  3420.  
  3421.   strcpy(media,   MediaCampo("t:Freedom.inTmp", ',', 6));
  3422.   strcpy(cost,    MediaCampo("t:Freedom.inTmp", ',', 8));
  3423.   strcpy(horason, SegundoHora(Corta(media, ':', 0)));
  3424.   horastotais = atof(Corta(media, ':', 0));
  3425.  
  3426.   /* LOADING QUERY INFORMATION... */
  3427.   set(App->GaugeQuery, MUIA_Gauge_Current, 55);
  3428.   set(App->GaugeQuery, MUIA_Gauge_InfoText, TMsg(App->Msg25));
  3429.  
  3430.   /* ROTINA QUE ACERTA O CABECALHO DA GERACAO, O PERIODO */
  3431.   strcpy(ultima, PrimeiroUltimoCampo("t:freedom.inTmp", ',', 1, ':'));
  3432.   strcpy(teste, LeRegistroDB("t:Freedom.Date", "date"));
  3433.   strcpy(d1, Corta(ultima, ':', 0));
  3434.   strcpy(d2, Corta(ultima, ':', 1));
  3435.   sprintf(teste2, "\033c\0338%s [%s] %s", d1, teste, d2);
  3436.   set(App->LabelCheckCosts, MUIA_Text_Contents, teste2);
  3437.  
  3438.   /* TOTAL ONLINE & DAYS */
  3439.   sprintf(teste, "%s \0338%s\033n", TMsg(App->Msg7), horason);
  3440.   set(App->CheckTotalHoras, MUIA_Text_Contents, teste);
  3441.  
  3442.   /* EXTRA HOUR */
  3443.   if(registro < 2)
  3444.   {
  3445.     sprintf(teste, "%s \033bREALREG\033n", TMsg(App->Msg87));
  3446.     set(App->CheckHorasExtras, MUIA_Text_Contents, teste);
  3447.   } else {
  3448.     if(horastotais <= limitehoras) 
  3449.     { 
  3450.       if(moeda == 0)
  3451.         sprintf(teste, "%s %s0", TMsg(App->Msg87), moedac);
  3452.       else
  3453.         sprintf(teste, "%s 0%s", TMsg(App->Msg87), moedac);
  3454.       set(App->CheckHorasExtras, MUIA_Text_Contents, teste);
  3455.       precoextra = 0;
  3456.     } else {
  3457.       sprintf(d1, "%f", (((horastotais - limitehoras) / 3600) * atof(extrahour)));
  3458.       precoextra = atof(d1);
  3459.       if(moeda == 0)
  3460.         sprintf(teste, "%s %s%s", TMsg(App->Msg87), moedac, CasasAposCaracter(d1, '.', atoi(precision)));
  3461.       else
  3462.         sprintf(teste, "%s %s%s", TMsg(App->Msg87), CasasAposCaracter(d1, '.', atoi(precision)), moedac);
  3463.       set(App->CheckHorasExtras, MUIA_Text_Contents, teste);
  3464.     }
  3465.   }
  3466.  
  3467.   /* PHONE BILL */
  3468.   strcpy(teste2, Corta(cost, ':', 0));
  3469.   sprintf(teste2, "%f", (atof(teste2) - atof(unit)));
  3470.   if(moeda == 0)
  3471.     sprintf(teste, "%s %s%s", TMsg(App->Msg86), moedac, CasasAposCaracter(teste2, '.', atoi(precision)));
  3472.   else
  3473.     sprintf(teste, "%s %s%s", TMsg(App->Msg86), CasasAposCaracter(teste2, '.', atoi(precision)), moedac);
  3474.   if(registro < 2)
  3475.     sprintf(teste, "%s \033bREALREG\033n", TMsg(App->Msg86));
  3476.   set(App->CheckContaTelefonica, MUIA_Text_Contents, teste);
  3477.  
  3478.   /* PROVIDER BILL */
  3479.   if(registro < 2)
  3480.   {
  3481.     sprintf(teste, "%s \033bREALREG\033n", TMsg(App->Msg85));
  3482.     set(App->CheckContaProvedor, MUIA_Text_Contents, teste);
  3483.   } else {
  3484.     sprintf(d1, "%f", (atof(providerbill) + precoextra));
  3485.     if(moeda == 0)
  3486.       sprintf(teste, "%s %s%s", TMsg(App->Msg85), moedac, CasasAposCaracter(d1, '.', atoi(precision)));
  3487.     else
  3488.       sprintf(teste, "%s %s%s", TMsg(App->Msg85), CasasAposCaracter(d1, '.', atoi(precision)), moedac);
  3489.     set(App->CheckContaProvedor, MUIA_Text_Contents, teste);
  3490.   }
  3491.  
  3492.   set(App->GaugeQuery, MUIA_Gauge_Current, 100);
  3493.  
  3494.   /* TOTAL COSTS */
  3495.   if(registro < 2)
  3496.   {
  3497.     sprintf(teste, "%s \033bREALREG\033n", TMsg(App->Msg88));
  3498.     set(App->CheckCustoTotal, MUIA_Text_Contents, teste);
  3499.   } else {
  3500.     /* teste2 POSSUI O VALOR DA CONTA TELEFONICA */
  3501.     sprintf(d2, "%f", atof(teste2) + atof(d1));
  3502.     if(moeda == 0)
  3503.       sprintf(teste, "%s \033b%s%s\033n", TMsg(App->Msg88), moedac, CasasAposCaracter(d2, '.', atoi(precision)));
  3504.     else
  3505.       sprintf(teste, "%s \033b%s%s\033n", TMsg(App->Msg88), CasasAposCaracter(d2, '.', atoi(precision)), moedac);
  3506.     set(App->CheckCustoTotal, MUIA_Text_Contents, teste);
  3507.   }
  3508.  
  3509.   /* FINAL DA GERACAO */
  3510.   remove("t:freedom.outtmp");
  3511.   /* FECHA A JANELA DE DISPLAY DE GERACAO */
  3512.   set(App->JanelaGeracaoQuery, MUIA_Window_Open, FALSE);
  3513.   /* ABRE A JANELA COM AS ESTATISTICAS */
  3514.   set(App->JanelaChecaCustos, MUIA_Window_Open, TRUE);
  3515.  
  3516.   return NULL;
  3517. }
  3518.  
  3519. APTR PreparaChequeCustos( struct Hook *a0, APTR a2, APTR a1 )
  3520. {
  3521.   char teste[256], mesdes[5], *mes, *ano,
  3522.        mesdes2[20], *diax, *horainicio, *horafim, data1[256], 
  3523.        data2[256], *database, freein[256], freeout[256], 
  3524.        arquivo1[256], arquivo2[256];
  3525.   int x = 0;
  3526.  
  3527.   /* FECHA A JANELA DE SELECAO */
  3528.   set(App->JanelaSelecionaMesCustos, MUIA_Window_Open, FALSE);
  3529.  
  3530.   /* TESTA SE O DIRETORIO DA BASE DE DADOS EXISTE */
  3531.   get(App->DataBaseName, MUIA_String_Contents, &database);
  3532.   if(!ExisteDiretorio(database))
  3533.   {
  3534.      MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg17));
  3535.      return NULL;
  3536.   }
  3537.   /* PEGA O NUMERO DA POSICAO DO COMBO DE DIA, MES, ANO */
  3538.   set(App->JanelaGeracaoQuery, MUIA_Window_Open, TRUE);
  3539.   set(App->GaugeQuery, MUIA_Gauge_Current, 5);
  3540.   set(App->GaugeQuery, MUIA_Gauge_InfoText, TMsg(App->Msg26));
  3541.  
  3542.   get(App->TextAno2, MUIA_String_Contents, &ano);
  3543.   get(App->ComboMes2, MUIA_Text_Contents, &mes);
  3544.   get(App->PrefsFreeHInicio, MUIA_String_Contents, &horainicio);
  3545.   get(App->PrefsFreeHFim, MUIA_String_Contents, &horafim);
  3546.   get(App->PrefsDiaInicial, MUIA_String_Contents, &diax);
  3547.  
  3548.   sprintf(mesdes, Corta(mes, ' ', 0));
  3549.   sprintf(mesdes2, Corta(mes, ' ', 1));
  3550.  
  3551.   /* CARREGA VARIAVEIS DE PARA LEITURA DOS ARQUIVOS */
  3552.   sprintf(freeout, "%s/Freedom.Out", database);
  3553.   set(App->GaugeQuery, MUIA_Gauge_Current, 15);
  3554.   sprintf(teste, "%s.%s", mesdes, ano);
  3555.   sprintf(freein, "%s/Freedom.%s.%s", database, mesdes, ano);
  3556.  
  3557.   if( ((!(strcmp(horainicio, "")) && !(strcmp(horafim, ""))) ||
  3558.        (!(strcmp(horainicio, "00:00:00")) && !(strcmp(horafim, "00:00:00")))) && (atoi(diax) <= 1) )
  3559.   {
  3560.     FiltraCampoParaArquivoFREE(teste, freein, "t:freedom.intmp", ',', 1, '.');
  3561.     FiltraCampoParaArquivoFREE(teste, freeout, "t:freedom.outtmp", ',', 1, '.');
  3562.   }
  3563.   else
  3564.   {
  3565.     sprintf(data1, "%s.%s", diax, teste);
  3566.     x = atoi(diax);  
  3567.     x--;
  3568.     if(x < 1)
  3569.       x = 31;
  3570.     sprintf(data2, "%d.%s", x, teste);
  3571.  
  3572.     if(atoi(diax) > 1)
  3573.     {
  3574.       strcpy(data2, ArrumaDataHora(SomaDiminuiMes(data2, 1), '.'));
  3575.       /* PREPARA O ARQUIVO DE LEITURA */
  3576.       sprintf(arquivo1, "%s/Freedom.%s", database, AposCaracter(data1, '.', 1));
  3577.       sprintf(arquivo2, "%s/Freedom.%s", database, AposCaracter(data2, '.', 1));
  3578.       CopiaArquivo(arquivo1, "T:Freedom.InTmp");
  3579.       InsereArquivo(arquivo2, "T:Freedom.InTmp");
  3580.       strcpy(freein, "T:Freedom.InTmp");
  3581.     }
  3582.     SelecionaIntervaloCampo(freein, "T:Freedom.InTmp", "Ram:Freedom.Temp", data1, data2, horainicio, horafim);
  3583.     SelecionaIntervaloCampo(freeout, "T:Freedom.OutTmp", "Ram:Freedom.Temp", data1, data2, horainicio, horafim);
  3584.   }
  3585.   sprintf(teste, "%s %s", mesdes2, ano);
  3586.   GravaRegistroDB("t:Freedom.Date", teste, "date", "w");
  3587.   SemanaCount("t:Freedom.InTmp");
  3588.   return NULL;
  3589. }
  3590.  
  3591. APTR CarregaRates( struct Hook *a0, APTR a2, APTR a1 )
  3592. {
  3593.   char teste[256], teste2[256],
  3594.        senha1[256], senha2[256], senhatmp[256], *regnumber2, 
  3595.        *regemail, *regnumber, *regname, *regorg, *regcountry;
  3596.   int registro = 0;
  3597.  
  3598.   /* LIMPA OS VALORES */
  3599.   set(App->Edt300, MUIA_Text_Contents, "0");
  3600.   set(App->Edt2400, MUIA_Text_Contents, "0");
  3601.   set(App->Edt9600, MUIA_Text_Contents, "0");
  3602.   set(App->Edt14400, MUIA_Text_Contents, "0");
  3603.   set(App->Edt16800, MUIA_Text_Contents, "0");
  3604.   set(App->Edt19200, MUIA_Text_Contents, "0");
  3605.   set(App->Edt21600, MUIA_Text_Contents, "0");
  3606.   set(App->Edt24000, MUIA_Text_Contents, "0");
  3607.   set(App->Edt26400, MUIA_Text_Contents, "0");
  3608.   set(App->Edt28800, MUIA_Text_Contents, "0");
  3609.   set(App->Edt30666, MUIA_Text_Contents, "0");
  3610.   set(App->Edt32000, MUIA_Text_Contents, "0");
  3611.   set(App->Edt31200, MUIA_Text_Contents, "0");
  3612.   set(App->Edt31250, MUIA_Text_Contents, "0");
  3613.   set(App->Edt33600, MUIA_Text_Contents, "0");
  3614.   set(App->Edt38400, MUIA_Text_Contents, "0");
  3615.   set(App->Edt45333, MUIA_Text_Contents, "0");
  3616.   set(App->Edt46666, MUIA_Text_Contents, "0");
  3617.   set(App->Edt48000, MUIA_Text_Contents, "0");
  3618.   set(App->Edt49333, MUIA_Text_Contents, "0");
  3619.   set(App->Edt50666, MUIA_Text_Contents, "0");
  3620.   set(App->Edt52000, MUIA_Text_Contents, "0");
  3621.   set(App->Edt57600, MUIA_Text_Contents, "0");
  3622.   set(App->Edt64000, MUIA_Text_Contents, "0");
  3623.  
  3624.   /* TESTA SE O ARQUIVO RATES EXISTE */
  3625.   if(!(ExisteArquivo("t:freedom.rates")))
  3626.   {
  3627.     /* FILE FOR IMPORTING NOT FOUND */
  3628.     set(App->JanelaRates, MUIA_Window_Open, FALSE);
  3629.     MUI_Request(App->App, 0, 0, 0, TMsg(App->Msg18), TMsg(App->Msg94));
  3630.     return NULL;
  3631.   }
  3632.  
  3633.   /* ROTINA QUE TESTA O TIPO DE REGISTRO */
  3634.   get(App->RegisterName, MUIA_String_Contents, ®name);
  3635.   get(App->RegisterOrganization, MUIA_String_Contents, ®org);
  3636.   get(App->RegisterEmail, MUIA_String_Contents, ®email);
  3637.   get(App->RegisterCountry, MUIA_String_Contents, ®country);
  3638.   get(App->RegisterKeyReal, MUIA_String_Contents, ®number2);
  3639.   get(App->RegisterKey, MUIA_String_Contents, ®number);
  3640.  
  3641.   strcpy(senha1, AsciiString(regnumber, 69));
  3642.   strcpy(senha2, AsciiString(regnumber2, 96));
  3643.   sprintf(senhatmp, "%s%s%s", regname, regemail, regcountry);
  3644.   strcpy(senhatmp, CriptografiaSimples(senhatmp, 0));
  3645.   if(!strcmp(senha1, senhatmp))
  3646.     registro = 1;
  3647.   if(!strcmp(senha1, senhatmp) && !strcmp(senha2, senhatmp))
  3648.     registro = 2;
  3649.   if(!strcmp(regnumber, ""))
  3650.     registro = 0;
  3651.  
  3652.   /* CARREGA OS RATES DO ARQUIVO PARA A TELA */
  3653.   if(registro == 2)
  3654.     set(App->Edt300, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "300"));
  3655.   else
  3656.     set(App->Edt300, MUIA_Text_Contents, "REALREG");
  3657.  
  3658.   if(registro == 2)
  3659.     set(App->Edt2400, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "2400"));
  3660.   else
  3661.     set(App->Edt2400, MUIA_Text_Contents, "REALREG");
  3662.  
  3663.   if(registro == 2)
  3664.     set(App->Edt9600, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "9600"));
  3665.   else
  3666.     set(App->Edt9600, MUIA_Text_Contents, "REALREG");
  3667.  
  3668.   if(registro == 2)
  3669.     set(App->Edt14400, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "14400"));
  3670.   else
  3671.     set(App->Edt14400, MUIA_Text_Contents, "REALREG");
  3672.  
  3673.   if(registro == 2)
  3674.     set(App->Edt16800, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "16800"));
  3675.   else
  3676.     set(App->Edt16800, MUIA_Text_Contents, "REALREG");
  3677.  
  3678.   if(registro == 2)
  3679.     set(App->Edt19200, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "19200"));
  3680.   else
  3681.     set(App->Edt19200, MUIA_Text_Contents, "REALREG");
  3682.  
  3683.   if(registro == 2)
  3684.     set(App->Edt21600, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "21600"));
  3685.   else
  3686.     set(App->Edt21600, MUIA_Text_Contents, "REALREG");
  3687.  
  3688.   if(registro == 2)
  3689.     set(App->Edt24000, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "24000"));
  3690.   else
  3691.     set(App->Edt24000, MUIA_Text_Contents, "REALREG");
  3692.  
  3693.   if(registro == 2)
  3694.     set(App->Edt26400, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "26400"));
  3695.   else
  3696.     set(App->Edt26400, MUIA_Text_Contents, "REALREG");
  3697.  
  3698.   if(registro == 2)
  3699.     set(App->Edt28800, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "28800"));
  3700.   else
  3701.     set(App->Edt28800, MUIA_Text_Contents, "REALREG");
  3702.  
  3703.   if(registro == 2)
  3704.     set(App->Edt31200, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "31200"));
  3705.   else
  3706.     set(App->Edt31200, MUIA_Text_Contents, "REALREG");
  3707.  
  3708.   if(registro == 2)
  3709.     set(App->Edt31250, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "31250"));
  3710.   else
  3711.     set(App->Edt31250, MUIA_Text_Contents, "REALREG");
  3712.  
  3713.   if(registro == 2)
  3714.     set(App->Edt33600, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "33600"));
  3715.   else
  3716.     set(App->Edt33600, MUIA_Text_Contents, "REALREG");
  3717.  
  3718.   if(registro == 2)
  3719.     set(App->Edt38400, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "38400"));
  3720.   else
  3721.     set(App->Edt38400, MUIA_Text_Contents, "REALREG");
  3722.  
  3723.   if(registro == 2)
  3724.     set(App->Edt57600, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "57600"));
  3725.   else
  3726.     set(App->Edt57600, MUIA_Text_Contents, "REALREG");
  3727.  
  3728.   if(registro == 2)
  3729.     set(App->Edt64000, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "64000"));
  3730.   else
  3731.     set(App->Edt64000, MUIA_Text_Contents, "REALREG");
  3732.  
  3733.   if(registro == 2)
  3734.     set(App->Edt30666, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "30666"));
  3735.   else
  3736.     set(App->Edt30666, MUIA_Text_Contents, "REALREG");
  3737.  
  3738.   if(registro == 2)
  3739.     set(App->Edt32000, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "32000"));
  3740.   else
  3741.     set(App->Edt32000, MUIA_Text_Contents, "REALREG");
  3742.  
  3743.   if(registro == 2)
  3744.     set(App->Edt50666, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "50666"));
  3745.   else
  3746.     set(App->Edt50666, MUIA_Text_Contents, "REALREG");
  3747.  
  3748.   if(registro == 2)
  3749.     set(App->Edt32000, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "32000"));
  3750.   else
  3751.     set(App->Edt32000, MUIA_Text_Contents, "REALREG");
  3752.  
  3753.   if(registro == 2)
  3754.     set(App->Edt45333, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "45333"));
  3755.   else
  3756.     set(App->Edt45333, MUIA_Text_Contents, "REALREG");
  3757.  
  3758.   if(registro == 2)
  3759.     set(App->Edt46666, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "46666"));
  3760.   else
  3761.     set(App->Edt46666, MUIA_Text_Contents, "REALREG");
  3762.  
  3763.   if(registro == 2)
  3764.     set(App->Edt48000, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "48000"));
  3765.   else
  3766.     set(App->Edt48000, MUIA_Text_Contents, "REALREG");
  3767.  
  3768.   if(registro == 2)
  3769.     set(App->Edt49333, MUIA_Text_Contents, LeRegistroDB("t:freedom.rates", "49333"));
  3770.   else
  3771.     set(App->Edt49333, MUIA_Text_Contents, "REALREG");
  3772.  
  3773.   /* COLOCA O TITULO */
  3774.   strcpy(teste, LeRegistroDB("t:Freedom.Date", "date"));
  3775.   sprintf(teste2, "%s", teste);
  3776.   set(App->RatesLabel, MUIA_Text_Contents, teste2);
  3777.   return NULL;
  3778. }
  3779.  
  3780. APTR AumentaMes( struct Hook *a0, APTR a2, APTR a1 )
  3781. {
  3782.   long x = 0;
  3783.   get(App->ComboMes, MUIA_Cycle_Active, &x);
  3784.   if(x >= 11)
  3785.     x = 0;
  3786.   else
  3787.     x++;
  3788.   set(App->ComboMes, MUIA_Cycle_Active, x);
  3789.   return NULL;
  3790. }
  3791.  
  3792. APTR DiminuiMes( struct Hook *a0, APTR a2, APTR a1 )
  3793. {
  3794.   long x = 0;
  3795.   get(App->ComboMes, MUIA_Cycle_Active, &x);
  3796.   if(x <= 0)
  3797.     x = 11;
  3798.   else 
  3799.     x--;
  3800.   set(App->ComboMes, MUIA_Cycle_Active, x);
  3801.   return NULL;
  3802. }
  3803.  
  3804. APTR AbreHtml( struct Hook *a0, APTR a2, APTR a1 )
  3805. {
  3806.   /* FUNCAO QUE ABRE O BROWSER COM O REPORT */
  3807.   char *browser, teste[256];
  3808.  
  3809.   get(App->Browser, MUIA_String_Contents, &browser);
  3810.   if(ExisteArquivo("T:Freedom.HTML"))
  3811.   {
  3812.     sprintf(teste, "C:Run >NIL: %s file://T:Freedom.HTML", browser);
  3813.     system(teste);
  3814.   }
  3815.   return NULL;
  3816. }
  3817.