Function SetPaysToForm (Id As Integer) As Integer
Dim i%
Dim Ret%
Dim s$


Ret = XasXMLDom("IMP" + CStr(Id), "", 0)
Ret = XasUserSetProperties(TimerJob, 196, 0)
TimerJob.Enabled = False
Ret = DoPattern(GridList, "user_gridpat.gif")
GridList.FontBold = False
Ret = XasUserSetProperties(GridList, PROP_ALIGNEMENT, 2)
 
Ret = XasUserSetProperties(Cel(7), 130, 2)

Cel(2).Visible = False
 
For i = 0 To 6
    Ret = XasUserSetProperties(Cel(i), 146, "globalbkgd")
Next i

For i = 0 To 25
    Ret = XasUserSetProperties(cbo(i), 146, "activlabel")
    Ret = XasUserSetProperties(cbo(i), PROP_MAXLENGHT, 38)
Next i
Ret = XasUserSetProperties(cbo(0), PROP_URL, 1)

Ret = XasUserSetProperties(PicValid, 181, 3)
Ret = XasUserSetProperties(PicValid, PROP_SUBMIT, 1)
Ret = XasUserSetProperties(PicValid, PROP_ALIGNEMENT, 2)
Ret = XasUserSetProperties(PicValid, 107, XFontName)
Ret = XasUserSetProperties(PicValid, 103, 8)
PicValid.FontBold = False
Ret = XasUserSetProperties(PicValid, PROP_BEVELINNER, 3)

Ret = XasUserSetProperties(PicClient, 181, 3)
Ret = XasUserSetProperties(PicClient, PROP_SUBMIT, 1)
Ret = XasUserSetProperties(PicClient, PROP_ALIGNEMENT, 2)
Ret = XasUserSetProperties(PicClient, 107, XFontName)
Ret = XasUserSetProperties(PicClient, 103, 8)
PicClient.FontBold = False
Ret = XasUserSetProperties(PicClient, PROP_BEVELINNER, 3)

Ret = XasUserSetProperties(PicDelete, 181, 3)
Ret = XasUserSetProperties(PicDelete, PROP_URL, 1)
Ret = XasUserSetProperties(PicDelete, PROP_ALIGNEMENT, 2)
Ret = XasUserSetProperties(PicDelete, 107, XFontName)
Ret = XasUserSetProperties(PicDelete, 103, 8)
PicDelete.FontBold = False
Ret = XasUserSetProperties(PicDelete, PROP_BEVELINNER, 3)

For i = 0 To 1
    Ret = XasUserSetProperties(PicPrint(i), PROP_BEVELINNER, 3)
    Ret = XasUserSetProperties(PicPrint(i), 181, 3)
    Ret = XasUserSetProperties(PicPrint(i), PROP_SUBMIT, 1)
    Ret = XasUserSetProperties(PicPrint(i), PROP_ALIGNEMENT, 2)
    Ret = XasUserSetProperties(PicPrint(i), 107, XFontName)
    Ret = XasUserSetProperties(PicPrint(i), 103, 8)
    PicPrint(i).FontBold = False
    Ret = XasUserSetProperties(PicPrint(i), PROP_BEVELINNER, 3)
Next i
For i = 0 To 25
    Ret = XasUserSetProperties(Lb(i), 146, "inactivlabel")
    If i > 1 Then
	s = "Champ N°" + CStr(i - 1)
	Lb(i).Caption = s
    End If
Next i
Ret = XasUserSetProperties(Lb(26), 146, "inactivlabel")
For i = 0 To 23
    Ret = XasUserSetProperties(Tx(i), 146, "desablelabel")
    Ret = XasUserSetProperties(Txf(i), 146, "desablelabel")
Next i
For i = 0 To 2
    Ret = XasUserSetProperties(slb(i), 146, "inactivlabel")
Next i
For i = 0 To 1
    Ret = XasUserSetProperties(stx(i), 146, "desablelabel")
Next i

Ret = XasUserSetProperties(TxtUp, 181, 3)
Ret = XasUserSetProperties(TxtUp, 107, XFontName)
Ret = XasUserSetProperties(TxtUp, 205, "FILE")
Ret = XasUserSetProperties(TxtUp, 103, 8)
TxtUp.FontBold = False
'TxtUp.ForeColor = GlobTextMainColor
Ret = XasUserSetSTring(6, CStr(GlobPu.XasId) + "-TMPFILE.TXT")
Ret = XasUserSetSTring(7, "IMPORT")
Ret = XasUserSetSTring(8, ".HTM")
Ret = XasUserSetProperties(Cel(2), 211, "multipart/form-data")


End Function