;*** Informa *******************************************************************
;*  Informacao referente a ultima versao e alteracoes no sistema               *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 05/12/1995 por Anivel Augusto Rodrigues
;Ultima Alteracao: 06/03/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes
;Ultima Alteracao: 09/08/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Versao WINDOWS
;Ultima Alteracao: 15/08/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Run
;Ultima Alteracao: 13/07/2008 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Logo
;Ultima Alteracao: 29/09/2008 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Logo
;Ultima Alteracao: 18/12/2009 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Server:
;Ultima Alteracao: 13/09/2010 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes ShowDialog
;Ultima Alteracao: 15/09/2010 por Karina Andrade
;Motivo Alteracao: Ajustes SYS_CLIENTE_CONFEC
;Ultima Alteracao: 17/03/2011 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Copyright
;Ultima Alteracao: 29/03/2011 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao de pacote e proxima versÆo            
;Ultima Alteracao: 04/02/2013 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes SD_Autor 
;Ultima Alteracao: 12/02/2013 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes SD_Autor 
;Ultima Alteracao: 03/03/2013 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes corluz,corsombra,unica imagem 
;Ultima Alteracao: 24/04/2013 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes controle de cor
;Ultima Alteracao: 30/04/2013 por Bruno Carvalho
;Motivo Alteracao: Incluido Cor_Splash e controle de cores na bilbioteca 
;Ultima Alteracao: 23/04/2015 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes copywrite/www.viseinform tica.com.br/IdServer()
;Ultima Alteracao: 29/03/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes www.viseinform tica.com.br
;Ultima Alteracao: 12/03/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustado data Copyright
;Ultima Alteracao: 09/01/2019 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustado data Copyright
;Ultima Alteracao: 02/01/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustado data Copyright

;*******************************************************************************
;* ROTINA Autor DIALOG                                                         *
;*******************************************************************************
Proc SD_Autor(Disparo_SDCF,Campo_SDCF,Evento_SDCF,Elemento_SDCF)
Private Disparo_SDCF,Campo_SDCF,Evento_SDCF,
        Elemento_SDCF,Temp,CoresSD_Autor,
        TECLA, MSG_CAMPO
Temp=True
MSG_CAMPO=""
TECLA=""
If Disparo_SDCF="OPEN"
   Then Window handle Dialog To Janela_SD_Autor
        Dynarray WinArray[]
        Window GetAttributes Janela_SD_Autor To WinArray
        WinArray["HASFRAME"]   =True
        WinArray["CANCLOSE"]   =True
        WinArray["HASSHADOW"]  =False
        Window SetAttributes Janela_SD_Autor From WinArray
EndIf
If Disparo_SDCF="CLOSE" Then cancelDialog        EndIf
If Disparo_SDCF="EVENT" And Evento_SDCF["Type"]="KEY" Then
   Temp=False
   Switch
     Case Evento_SDCF["KeyCode"] = 27:
          CancelDialog
   EndSwitch
EndIf

SelectControl Campo_SDCF
Switch
  Case Campo_SDCF="MENS_OK":
       MSG_CAMPO="Pressione a tecla [Esc] p/ continuar !                     "
EndSwitch

ExibeRodapeSD(MSG_CAMPO)
ExibeRodape(2,TECLA)
RefreshDialog

Return Temp
EndProc

;*******************************************************************************
;* ROTINA Servidor                                                             *
;*******************************************************************************
Proc IDServer()
Private ii, IDDRIVE

IDDRIVE=Upper(SubSTr(Directory(),1,2))
tmpserver="??"

For ii From 1 To 2

  conteudodoarquivo=""  
  FileWrite PrivDir()+"Net.Txt" From ""
  Switch
    Case ii=1:
         ExecVise("EXE C:\\Windows\\System32\\Subst.exe >"+PrivDir()+"Net.Txt")
    Case ii=2 And SYS_VERSAO_SO="Windows":
         If IsFile("C:\\Windows\\Net.exe") Or  ;; Verificar se Micro esta em Rede, erro no camando net use ???
            IsFile("C:\\Windows\\System32\\Net.exe")
            Then ExecVise("EXE C:\\Windows\\System32\\net.exe use >"+PrivDir()+"Net.Txt")
            Else QuitLoop
         EndIf
  EndSwitch
  Aguarde("Verificando configura‡”es do Sistema !")

  If LerConteudodoArquivo(PrivDir()+"net.Txt") And conteudodoarquivo<>"" 
     Then Editor Open PrivDir()+"Net.Txt"
          {Edit} {Goto} {1}
          Editor Find IDDRIVE
          If RetVal
             Then Extrair_Linha()
                  Switch
                    Case ii=1:
                         posini2=search("=>",ELinha)
                         tmpserver=RTrim(SubStr(ELinha,posini2+3,80))
                         tmpserver=SubStr(tmpserver,1,Len(tmpserver)-1)
                    Case ii=2:
                         posini2=search("\\",ELinha)
                         Switch
                           Case search("Netware Services",ELinha)>0          : tmpserver=RTrim(SubStr(ELinha,posini2,26))
                           Case search("Rede Microsoft",ELinha)>0            : tmpserver=RTrim(SubStr(ELinha,posini2,26))
                           Case search("Microsoft Windows Network",ELinha)>0 : tmpserver=RTrim(SubStr(ELinha,posini2,26))
                           Otherwise                                         : tmpserver=RTrim(SubStr(ELinha,posini2,35))
                         EndSwitch
                  EndSwitch
                  CancelEdit
                  Return

          EndIf
          CancelEdit
  EndIf   
EndFor

EndProc

;;****** Rotina Principal *********
AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"
LimpAguarde()
Password "FechaSys"

If Not IsAssigned(NOMEMPRESA)        Then NOMEMPRESA=""        EndIf
If Not IsAssigned(SYS_CHAPA_USUARIO) Then SYS_CHAPA_USUARIO="" EndIf
If Not IsAssigned(SYS_NOME_USUARIO)  Then SYS_NOME_USUARIO=""  EndIf
If Not IsAssigned(SYS_ESTACAO)       Then SYS_ESTACAO=""       EndIf
If Not IsAssigned(SYS_NCONEXAO)      Then SYS_NCONEXAO=0       EndIf
If Not IsAssigned(SYS_VERSAO_SO)     Then SYS_VERSAO_SO="Windows"  EndIf
If Not IsAssigned(SYS_VERSAO_SO2)    Then SYS_VERSAO_SO2="Windows" EndIf

DynArray ConfigArray[]
SysInfo Config To ConfigArray

View NoWindow "\\Sistemas\\Cadastro\\SysTable"
NOMEMPRESA2=[Nome da Empresa]
DATIMP=[Data de Instalacao]
CODCLI=[Codigo do Cliente ]
CODCONFEC=[Codigo_Cliente_Confeccao]
VERSAO=[Versao_Atual      ]
ClearImage
UnPassword "FechaSys"

{Tools} {Net} {AutoRefresh}
TmpRefresh=MenuChoice()
Esc Esc Esc

If CODCONFEC<>""
   Then COD_CONF="  - CONFEC: "+CODCONFEC
   Else COD_CONF =""
EndIf

{Tools} {Net} {Changes}
TmpChanges=MenuChoice()
Esc Esc Esc

IdServer()

;--- Mensagem atualiza‡Æo de versÆo --------------------------------------------
Array Array_MesVersao[12]

Array_MesVersao[01]="A"
Array_MesVersao[02]="B"
Array_MesVersao[03]="C"
Array_MesVersao[04]="D"
Array_MesVersao[05]="E"
Array_MesVersao[06]="F"
Array_MesVersao[07]="G"
Array_MesVersao[08]="H"
Array_MesVersao[09]="I"
Array_MesVersao[10]="J"
Array_MesVersao[11]="K"
Array_MesVersao[12]="L"

anohoje =Year(Today())
meshoje =Month(Today())

anovers=Substr(SYS_VERSAO_VISERP,1,4)
anover =NumVal(anovers)
letra  =Upper(Substr(SYS_VERSAO_VISERP,6,1))

For i From 1 to 12
  If Array_MesVersao[i]=letra
     Then mesvers=AlinhM(StrVal(i),2)
          mesver =i
          QuitLoop
  EndIf   
EndFor

dtref=Ultimo_Dia(mesvers+anovers)
mesproxver=mesver
anoproxver=anover

If mesproxver=12
   Then anoproxver=anoproxver+1
        mesproxver=1
   Else mesproxver=mesproxver+1
EndIf

anoproxvers=StrVal(anoproxver)
mesproxvers=AlinhM(StrVal(mesproxver),2)

proxver=mesproxvers+"/"+anoproxvers
veratua=mesvers    +"/"+anovers       

Cor_Splash()

Play "Viserp"

Sound 500 200
ShowDialog "Autor"
  Proc "SD_Autor"
   Trigger "OPEN","ARRIVE"
    Key "ALL"

  @ 01,00 Height 22 Width 80
  
  @ 01,01 ?? vl01
  @ 02,01 ?? vl02
  @ 03,01 ?? vl03
  @ 04,01 ?? vl04
  @ 05,01 ?? vl05
  @ 06,01 ?? vl06
  @ 07,01 ?? vl07
  @ 08,01 ?? vl08
  @ 09,01 ?? vl09
  @ 02,25 ?? "VISE INFORMµTICA"
  @ 10,02 ?? "Sistema integrado de gest„o empresarial"

  PaintCanvas Attribute corluz 00,00,11,76 ; VISERP

  Frame Single From 00,00 to 11,77
  @ 11,00 ?? " "
  @ 00,77 ?? " "

    ;Sombras VISERP
  ;V____________________________________________________________________________ 
                                                PaintCanvas Attribute corsombra 01,19,01,19
                                                PaintCanvas Attribute corsombra 02,16,02,16
  PaintCanvas Attribute corsombra 03,06,03,06   PaintCanvas Attribute corsombra 03,15,03,15
  PaintCanvas Attribute corsombra 04,07,04,07   PaintCanvas Attribute corsombra 04,14,04,14
  PaintCanvas Attribute corsombra 05,08,05,08   PaintCanvas Attribute corsombra 05,13,05,13
                                                PaintCanvas Attribute corsombra 06,12,06,12
                                                PaintCanvas Attribute corsombra 07,11,07,11
                                                PaintCanvas Attribute corsombra 08,10,08,10
                                                PaintCanvas Attribute corsombra 09,10,09,10
  ;I____________________________________________________________________________ 
  PaintCanvas Attribute corsombra 03,19,08,19   
  ;S____________________________________________________________________________ 
                                                PaintCanvas Attribute corsombra 04,28,04,28
  PaintCanvas Attribute corsombra 05,23,05,23                                        
                                                PaintCanvas Attribute corsombra 06,27,06,27
                                                PaintCanvas Attribute corsombra 07,28,07,28
                                                PaintCanvas Attribute corsombra 08,27,08,27
  ;E____________________________________________________________________________ 
                                                PaintCanvas Attribute corsombra 04,36,04,36
  PaintCanvas Attribute corsombra 05,32,05,32                                        
                                                PaintCanvas Attribute corsombra 06,34,06,34
  PaintCanvas Attribute corsombra 07,32,07,32
                                                PaintCanvas Attribute corsombra 08,36,08,36
  ;R____________________________________________________________________________ 
                                                PaintCanvas Attribute corsombra 04,45,04,45
  PaintCanvas Attribute corsombra 05,41,05,41   PaintCanvas Attribute corsombra 05,46,05,46                                     
                                                PaintCanvas Attribute corsombra 06,45,06,45
  PaintCanvas Attribute corsombra 07,41,07,41   PaintCanvas Attribute corsombra 07,45,07,45
  PaintCanvas Attribute corsombra 08,41,08,41   PaintCanvas Attribute corsombra 08,46,08,46
  ;P____________________________________________________________________________ 
                                                PaintCanvas Attribute corsombra 04,55,04,55
  PaintCanvas Attribute corsombra 05,51,05,51   PaintCanvas Attribute corsombra 05,56,05,56                                     
                                                PaintCanvas Attribute corsombra 06,55,06,55
  PaintCanvas Attribute corsombra 07,51,07,51   
  PaintCanvas Attribute corsombra 08,52,08,52   

  ;Sombra_______________________________________________________________________ 
  PaintCanvas Attribute corsombra 00,00,11,00 ; +--
  PaintCanvas Attribute corsombra 00,00,00,77 ; Ý
  ;Luz__________________________________________________________________________ 
  PaintCanvas Attribute corluz    00,77,11,77 ;   Ý
  PaintCanvas Attribute corluz    11,01,11,77 ; --+

  PaintCanvas Attribute corvise 02,25,02,46 ; Vise Informatica
  PaintCanvas Attribute corvise 10,02,10,75 ; Sistema Integrado de Gestao Empresairal

  @ 01,49 ?? Format("W27,AR","Vers„o "+VERSAO)
  @ 02,59 ?? " Pacote-> "+veratua
  @ 03,59 ?? "Pr¢ximo-> "+proxver
                                                            
  @ 08,56 ?? Format("W20,AR","vise@vise.inf.br")
  @ 09,56 ?? Format("W20,AR","  (37) 3222-7305")
  @ 10,48 ?? Format("W28,AR"," www.viseinformatica.com.br")

  @ 12,00 ?? "Instalado: "+Format("D13",DATIMP)
  @ 13,00 ?? "  Empresa: "+"["+CODCLI+"] "+NOMEMPRESA2+COD_CONF
  @ 14,00 ?? "  Usu rio: "+SYS_CHAPA_USUARIO+"-"+SYS_NOME_USUARIO
  @ 15,00 ?? "    Login: "+Upper(Completa(Username(),14," "))+"  Conex„o: "+AlinhM(StrVal(SYS_NCONEXAO),3)+"  Esta‡„o: "+Upper(SYS_ESTACAO)
  @ 16,00 ?? "  Control: PN["+ConfigArray["NETDIR"]+"] SD["+Upper(SubSTr(Directory(),1,3))+"] TN["+Completa(NetType(),6," ")+"]"+
             "    Refresh: "+TmpRefresh+" Segundo(s)  ["+TmpChanges+"]"
  @ 17,00 ?? "   Server: "+Upper(TmpServer)
  @ 18,00 ?? "  PrivDir: "+Upper(PrivDir())
  @ 19,00 ?? "       SO: "+SYS_VERSAO_SO2
  @ 19,50 ?? "Copyright (C) 1995-2020"

  PushButton @ 14,82 width 11 "~O~k" OK Default Value "Ok" Tag "MENS_OK"  To BottonValue

Enddialog

LimpaRodape(0)

ClearAll
Release Procs All
Release Vars All

