ConnectionNum is int
LooperDeleteAll(LOOP_Content)


sConsulta is string
sConsulta = [
SELECT DISTINCT SAW.APYN,SAW.FecIng,SAW.INTERN,SAF.informe,
SAF010.DESCRIP AS DESCRIPCION,SAF.doctor,SAW.APYN,SAF.origen,SAF.detalle,e.modalidad
FROM saw111 SAW INNER JOIN SAF110 SAF on SAW.intern = SAF.intern AND (SAF.ESTADO > 3 )
Left JOIN SAF010 on SAF010.id_infor = SAF.informe
Left JOIN r_infodetalle r on r.intern = saw.intern
Left JOIN h_especialidad E on E.id_especialidad = R.id_especialidad
WHERE SAW.DOCUM=%2 AND SAW.tdoc =%1 AND saw.mutual < 7000
]

sConsulta = StringBuild(sConsulta,gnTdoc,gnNdoc)

ConnectionNum = SQLConnectWS("http://win-t73sv64o46d/", "servidor", "usuario", "clave", "basedatos", "Mysql")

IF ConnectionNum <> 0 THEN
// The connection was successful
i is boolean
i = SQLExec(sConsulta,"QRY1")
IF i = False THEN
SQLInfo("QRY1")
Info("ERROR", SQL.Error,SQL.MesError)
END

dFecha is Date
WHILE SQLFetch("QRY1") = 0

WIN_ConsEstDiagXImagen..Caption = "Diag. for Imagenes:" + SQLGetCol("QRY1",1)
dFecha = SQLGetCol("QRY1",2)

LooperAdd(LOOP_Content,SQLGetCol("QRY1",5)+ TAB + DateToString(dFecha,"DD/MM/YYYY") + TAB + SQLGetCol("QRY1",3) + TAB + SQLGetCol("QRY1",3))

END
SQLClose("QRY1")
ELSE
// The connection failed: display an error message
SQLInfo()
Error("The connection to the data source : failed." + CR + "Error code: " + SQL.Error + CR + SQL.MesError)
END

SQLDisconnect()