ub login()
If Date > #2/28/2014# Then
MsgBox "O prazo de validade deste aplicativo expirou, pegue uma nova versão em www.sr2604.mg.caixa", vbCritical, "Proteção..."
End
End If
If Plan1.OptionButton4 = True Then
If Plan1.TextBox1.TextLength < Plan1.TextBox1.MaxLength Or Plan1.TextBox2.TextLength < Plan1.TextBox2.MaxLength Then
MsgBox "Preencha TODOS os campos do contrato!", vbCritical
End
End If
If Plan1.OptionButton1 = True Then
Load Form_Login
Form_Login.Show
End If
Macro
End If
If Plan1.OptionButton5 = True Then
If Plan1.TextBox4.TextLength < Plan1.TextBox4.MaxLength Or Plan1.TextBox5.TextLength < Plan1.TextBox5.MaxLength Then
MsgBox "Preencha TODOS os campos do CPF!", vbCritical
End
End If
Load Form_Login
Form_Login.Show
Macro2
End If
End Sub
Sub Macro()
'--------------------------------------------------------------------------------------------
Dim Sess0 As ExtraSession
Dim System As ExtraSystem
Dim tela As ExtraScreen
Set System = CreateObject("EXTRA.System")
Set Sess0 = System.ActiveSession
If (Sess0 Is Nothing) Then
MsgBox "Programa Rede Caixa não está aberto!", vbCritical
Exit Sub
End If
Set tela = Sess0.Screen
System.TimeoutValue = 5000
tempo = 5000
'--------------------------------------------------------------------------------------------
If Plan1.OptionButton1 = True Then
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(17, 17, 10)) <> "SELECIONE" And _
Trim(tela.GetString(17, 16, 10)) <> "SELECIONE" Then
MsgBox "Você não está na Tela Incial do Rede Caixa!", vbCritical, "Erro Fatal!"
tela.SendKeys ("<pf3><pf12><pf1>")
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("<home>")
tela.SendKeys ("520<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
Do While tela.GetString(16, 10, 5) <> "SIGLA" And cont < tempo:
cont = cont + 1
Loop
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys (Form_Login.login.Value)
tela.SendKeys (Form_Login.senha.Value)
tela.SendKeys ("<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("<tab>6020<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(5, 5, 6)) = "SENHOR" Then
tela.SendKeys ("<enter>")
End If
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(24, 1, 4)) = "BASE" Then
MsgBox "BASE DE DADOS INDISPONIVEL NO MOMENTO!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(24, 1, 4)) = "BASE" Then
MsgBox "BASE DE DADOS INDISPONIVEL NO MOMENTO!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("01<enter>")
'--------------------------------------------------------------------------------------------
End If
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
If Plan1.OptionButton3.Value = True Then
If Trim(tela.GetString(5, 2, 7)) <> "CLIENTE" Then
MsgBox "Você não está na tela de dívida da Rede Caixa!", vbCritical
End
End If
tela.SendKeys ("<home> ")
End If
'--------------------------------------------------------------------------------------------
If Plan1.OptionButton2.Value = False Then
'--------------------------------------------------------------------------------------------
tela.SendKeys ("<home>")
tela.SendKeys (Plan1.TextBox1.Text)
tela.SendKeys (Plan1.TextBox2.Text)
tela.SendKeys (Plan1.TextBox3.Text)
tela.SendKeys ("<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
End If
'--------------------------------------------------------------------------------------------
Limpar
'--------------------------------------------------------------------------------------------
'PEGA OS DADOS NA TELA
'--------------------------------------------------------------------------------------------
SUREG = Trim(tela.GetString(4, 10, 2))
AGENCIA = Trim(tela.GetString(4, 17, 4))
OPER = Trim(tela.GetString(4, 29, 3))
NUMCONTR = Trim(tela.GetString(4, 44, 7))
DVCONTR = tela.GetString(4, 52, 2)
CLIENTE = Trim(tela.GetString(5, 15, 35))
DIA = Trim(tela.GetString(4, 67, 2))
MES = Trim(tela.GetString(4, 72, 2))
ANO = Trim(tela.GetString(4, 77, 4))
VALOR = Trim(tela.GetString(10, 34, 46))
'--------------------------------------------------------------------------------------------
If VALOR = "--------" Then
VALOR = Trim(tela.GetString(9, 34, 46))
MsgBox "O Contrato está em CA!", vbCritical
End If
'--------------------------------------------------------------------------------------------
'JOGA OS DADOS NO FORMULÁRIO
'--------------------------------------------------------------------------------------------
Plan1.Range("AA6") = SUREG
Plan1.Range("AF6") = AGENCIA
Plan1.Range("AK6") = OPER
Plan1.Range("AP6") = NUMCONTR
Plan1.Range("AY6") = DVCONTR
Plan1.Label8.Caption = CLIENTE
Plan1.Range("D6") = CLIENTE
Plan1.Range("AI10") = DIA
Plan1.Range("AK10") = "/ " + MES
Plan1.Range("AN10") = "/ " + ANO
Plan1.Range("A62") = "R$ " + VALOR
Plan1.Range("I26") = "0"
Plan2.Range("B25") = "Liquidação do contrato " + AGENCIA + "." + OPER + "." + NUMCONTR + "-" + DVCONTR + " de "
Plan2.Range("B27") = CLIENTE + " em operação de renovação."
End Sub
Sub Macro2()
'--------------------------------------------------------------------------------------------
Dim Sess0 As ExtraSession
Dim System As ExtraSystem
Dim tela As ExtraScreen
Set System = CreateObject("EXTRA.System")
Set Sess0 = System.ActiveSession
If (Sess0 Is Nothing) Then
MsgBox "Programa Rede Caixa não está aberto!", vbCritical
Exit Sub
End If
Set tela = Sess0.Screen
System.TimeoutValue = 5000
tempo = 5000
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(17, 17, 10)) <> "SELECIONE" And _
Trim(tela.GetString(17, 16, 10)) <> "SELECIONE" Then
MsgBox "Você não está na Tela Incial do Rede Caixa!", vbCritical, "Erro Fatal!"
tela.SendKeys ("<pf3><pf12><pf1>")
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("<home>")
tela.SendKeys ("520<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
Do While tela.GetString(16, 10, 5) <> "SIGLA" And cont < tempo:
cont = cont + 1
Loop
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys (Form_Login.login.Value)
tela.SendKeys (Form_Login.senha.Value)
tela.SendKeys ("<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("<tab>0520<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(5, 5, 6)) = "SENHOR" Then
tela.SendKeys ("<enter>")
End If
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(24, 1, 4)) = "BASE" Then
MsgBox "BASE DE DADOS INDISPONIVEL NO MOMENTO!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(24, 1, 4)) = "BASE" Then
MsgBox "BASE DE DADOS INDISPONIVEL NO MOMENTO!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("1<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys (Plan1.TextBox4.Text)
tela.SendKeys ("<tab>")
tela.SendKeys (Plan1.TextBox5.Text)
tela.SendKeys ("<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
Limpar
'--------------------------------------------------------------------------------------------
Plan1.Label8.Caption = Trim(tela.GetString(5, 31, 50)) 'Nome do Cliente
'--------------------------------------------------------------------------------------------
PAGINA = 0
cont2 = 0
While Trim(tela.GetString(20, 77, 4)) <> PAGINA And cont < tempo:
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(10, 24, 4)) = "" Then
MsgBox "O CLIENTE NÃO POSSUI CONTRATOS!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(11, 2, 19)) = "NORMAL" Or Trim(tela.GetString(11, 2, 19)) = "CREDITO EM ATRASO" Then
Plan1.ComboBox1.AddItem (Trim(tela.GetString(10, 24, 4)) + Trim(tela.GetString(10, 29, 3)) + Trim(tela.GetString(10, 33, 7)))
End If
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(14, 2, 19)) = "NORMAL" Or Trim(tela.GetString(14, 2, 19)) = "CREDITO EM ATRASO" Then
Plan1.ComboBox1.AddItem (Trim(tela.GetString(13, 24, 4)) + Trim(tela.GetString(13, 29, 3)) + Trim(tela.GetString(13, 33, 7)))
End If
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(17, 2, 19)) = "NORMAL" Or Trim(tela.GetString(17, 2, 19)) = "CREDITO EM ATRASO" Then
Plan1.ComboBox1.AddItem (Trim(tela.GetString(16, 24, 4)) + Trim(tela.GetString(16, 29, 3)) + Trim(tela.GetString(16, 33, 7)))
End If
'--------------------------------------------------------------------------------------------
PAGINA = Trim(tela.GetString(20, 77, 4))
'--------------------------------------------------------------------------------------------
tela.SendKeys ("<pf8>")
'--------------------------------------------------------------------------------------------
cont2 = cont2 + 1
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
Wend
'--------------------------------------------------------------------------------------------
If cont2 = tempo Then
MsgBox "Ocorreu um erro no processamento das informações , repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("<pf3>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("<pf3>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("<pf3>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("<tab>6020<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(5, 5, 6)) = "SENHOR" Then
tela.SendKeys ("<enter>")
End If
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
If Trim(tela.GetString(24, 1, 4)) = "BASE" Then
MsgBox "BASE DE DADOS INDISPONIVEL NO MOMENTO!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
tela.SendKeys ("01<enter>")
'--------------------------------------------------------------------------------------------
cont = 0
While tela.OIA.XStatus <> 0 And cont < tempo:
cont = cont + 1
Wend
If cont = tempo Then
MsgBox "A REDE CAIXA não RESPONDE, repita o procedimento!", vbCritical, "Erro Fatal!"
End
End If
'--------------------------------------------------------------------------------------------
End Sub
Sub Limpar()
Plan1.Range("AA6") = " "
Plan1.Range("AF6") = " "
Plan1.Range("AK6") = " "
Plan1.Range("AP6") = " "
Plan1.Range("AY6") = " "
Plan1.Range("D6") = " "
Plan1.Range("AI10") = " "
Plan1.Range("AK10") = " "
Plan1.Range("AN10") = " "
Plan1.Range("A62") = "0,00"
Plan1.Range("I26") = "0,00"
Plan1.Range("D16") = " "
Plan1.Range("L16") = " "
Plan1.Range("P16") = "0,00"
Plan1.Range("AA16") = " "
Plan1.Range("AF16") = "0,00"
Plan1.Range("AO16") = " "
Plan1.Range("AT16") = "0,00"
Plan1.Range("D21") = " "
Plan1.Range("P21") = "0,00"
Plan1.Range("AA21") = " "
Plan1.Range("AF21") = "0,00"
Plan1.Range("AO21") = " "
Plan1.Range("AT21") = "0,00"
Plan1.Range("AF26") = " "
Plan1.Range("AO26") = " "
Plan1.Range("AT26") = "0,00"
Plan2.Range("B25") = " "
Plan1.Label8.Caption = "" 'Cliente
'--------------------------------------------------------------------------------------------
If Plan1.OptionButton4 = True Then
Plan1.TextBox1.Text = "" 'AG
Plan1.TextBox2.Text = "" 'OP
Plan1.TextBox3.Text = "" 'Nº Conta
End If
'--------------------------------------------------------------------------------------------
If Plan1.OptionButton5 = True Then
Plan1.TextBox4.Text = "" 'CPF
Plan1.TextBox5.Text = "" 'CPF DV
Plan1.ComboBox1.Clear 'Contratos
End If
'--------------------------------------------------------------------------------------------
End Sub