Click here to Skip to main content
15,397,385 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Odd Transparency behavior in VB.Net Panel Pin
Gerry Schmitz6-Aug-21 8:46
mveGerry Schmitz6-Aug-21 8:46 
GeneralRe: Odd Transparency behavior in VB.Net Panel Pin
Peter R. Fletcher6-Aug-21 10:01
MemberPeter R. Fletcher6-Aug-21 10:01 
GeneralRe: Odd Transparency behavior in VB.Net Panel Pin
Gerry Schmitz7-Aug-21 5:38
mveGerry Schmitz7-Aug-21 5:38 
QuestionPassing PointF as Optional Parameter Pin
SanganakSakha28-Jul-21 21:06
MemberSanganakSakha28-Jul-21 21:06 
AnswerRe: Passing PointF as Optional Parameter Pin
Richard Deeming28-Jul-21 21:30
mveRichard Deeming28-Jul-21 21:30 
GeneralVisual Basic Scripts Pin
Luis M. Rojas28-Jul-21 13:12
MemberLuis M. Rojas28-Jul-21 13:12 
AnswerRe: Visual Basic Scripts Pin
Richard Deeming28-Jul-21 21:27
mveRichard Deeming28-Jul-21 21:27 
GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas29-Jul-21 2:26
MemberLuis M. Rojas29-Jul-21 2:26 
That is correct, here is part of the code:
<%@ Language = "VBScript" %>
<% Option Explicit %>
<%

sAction = Request.QueryString("cmd") 'This received the action: 'http://.../ws/get.asp?cmd=Sucursales': Sucursale, and with a Select Case execute the method
If sAction & "x" = "x" Then sAction = getFormField("cmd", 1)
If sAction & "x" <> "x" Then

...

Select Case UCase(sAction)
Case "SUCURSALES"
Call getSucursalesJSON()
Case "AGENCIAS"
...


Sub getSucursalesJSON()
Dim sSqlWrk, rswrk
sSqlWrk = "SELECT LTRIM(RTRIM(a.[AGE_CODIGO])) AS 'AGE_CODIGO', UPPER(LTRIM(RTRIM(a.[AGE_DESCRIPCION]))) AS 'AGE_DESCRIPCION'"
sSqlWrk = sSqlWrk & " FROM [" & xDb_CatalogOpe_Str & "].[dbo].[SUCURSALES_X_AGENCIAS] AS x WITH (NOLOCK)"
sSqlWrk = sSqlWrk & " INNER JOIN [" & xDb_CatalogOpe_Str & "].[dbo].[SUCURSALES] AS s WITH (NOLOCK)"
sSqlWrk = sSqlWrk & " ON x.[SUC_CODIGO] = s.[SUC_CODIGO]"
sSqlWrk = sSqlWrk & " AND x.[COM_CODIGO] = s.[COM_CODIGO]"
sSqlWrk = sSqlWrk & " INNER JOIN [" & xDb_CatalogOpe_Str & "].[dbo].[AGENCIAS] AS a WITH (NOLOCK)"
sSqlWrk = sSqlWrk & " ON x.[AGE_CODIGO] = a.[AGE_CODIGO]"
sSqlWrk = sSqlWrk & " WHERE (x.[COM_CODIGO] = 1)"
sSqlWrk = sSqlWrk & " AND (x.[SXA_ESTADO] = 'A')"
sSqlWrk = sSqlWrk & " AND (x.[SXA_TIPO] = 'S')"
sSqlWrk = sSqlWrk & " AND (x.[SXA_REGISTRO_WEB] = 'S')"
sSqlWrk = sSqlWrk & " AND (s.[SUC_ESTADO] = 'A')"
sSqlWrk = sSqlWrk & " AND (a.[AGE_ESTADO] = 'A')"
sSqlWrk = sSqlWrk & " ORDER BY x.[SXA_ORDENAR_WEB], a.[AGE_DESCRIPCION]"
Set rswrk = conn.Execute(sSqlWrk)
oJSON.LoadRecordset rswrk
Set rswrk = Nothing
oJSON.Write()
End Sub

If we need to call the WS:
'http://.../ws/get.asp?cmd=Sucursales' This return the whole table,

This is a very old code, but now we can not change it, so we need to pass:
'https://www.eps-int.com/ws/get.asp?cmd=agencias' + plus an specifc agencias

PS: Nobody knows who made this code. It was more than 8 years ago
GeneralRe: Visual Basic Scripts Pin
Richard Deeming29-Jul-21 2:50
mveRichard Deeming29-Jul-21 2:50 
GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas29-Jul-21 3:20
MemberLuis M. Rojas29-Jul-21 3:20 
GeneralRe: Visual Basic Scripts Pin
Richard Deeming29-Jul-21 3:26
mveRichard Deeming29-Jul-21 3:26 
GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas2-Aug-21 5:27
MemberLuis M. Rojas2-Aug-21 5:27 
GeneralRe: Visual Basic Scripts Pin
jsc422-Aug-21 7:04
professionaljsc422-Aug-21 7:04 
GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas2-Aug-21 8:14
MemberLuis M. Rojas2-Aug-21 8:14 
QuestionMissing Controls After Office 2019 Installation Pin
Ken Kazinski11-Jul-21 2:16
professionalKen Kazinski11-Jul-21 2:16 
AnswerRe: Missing Controls After Office 2019 Installation Pin
Eddy Vluggen11-Jul-21 6:56
professionalEddy Vluggen11-Jul-21 6:56 
AnswerRe: Missing Controls After Office 2019 Installation Pin
Gerry Schmitz11-Jul-21 7:09
mveGerry Schmitz11-Jul-21 7:09 
GeneralRe: Missing Controls After Office 2019 Installation Pin
Ken Kazinski12-Jul-21 16:40
professionalKen Kazinski12-Jul-21 16:40 
GeneralRe: Missing Controls After Office 2019 Installation Pin
Gerry Schmitz13-Jul-21 7:23
mveGerry Schmitz13-Jul-21 7:23 
AnswerRe: Missing Controls After Office 2019 Installation Pin
CHill6015-Jul-21 2:29
mveCHill6015-Jul-21 2:29 
AnswerRe: Missing Controls After Office 2019 Installation Pin
jsc4215-Jul-21 3:07
professionaljsc4215-Jul-21 3:07 
GeneralRe: Missing Controls After Office 2019 Installation Pin
Ken Kazinski18-Jul-21 3:07
professionalKen Kazinski18-Jul-21 3:07 
AnswerRe: Missing Controls After Office 2019 Installation Pin
Ken Kazinski18-Jul-21 3:09
professionalKen Kazinski18-Jul-21 3:09 
QuestionProject building Pin
Anthony Yawson10-Jul-21 23:59
MemberAnthony Yawson10-Jul-21 23:59 
GeneralRe: Project building Pin
Richard MacCutchan11-Jul-21 2:47
mveRichard MacCutchan11-Jul-21 2:47 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.