Modificare il file: \Buoni-spesa-OLD\include\buono_settings.asp

<% Set tdata = CreateObject("Scripting.Dictionary") tdata.Add ".NumberOfChars",80 tdata.Add ".ShortName","buono" tdata.Add ".OwnerID","" ' N_Buono set fdata = CreateObject("Scripting.Dictionary") fdata.Add "FieldType", 3 fdata.Add "EditFormat", "Text field" fdata.Add "ViewFormat", "" fdata.Add "GoodName", "N_Buono" fdata.Add "FullName", "[buono].[N_Buono]" fdata.Add "IsRequired",true fdata.Add "Index", 1 fdata.Add "EditParams","" fdata.Add "FieldPermissions",true tdata.Add "N_Buono",fdata ' titolo set fdata = CreateObject("Scripting.Dictionary") fdata.Add "FieldType", 202 fdata.Add "EditFormat", "Lookup wizard" fdata.Add "ViewFormat", "" fdata.Add "GoodName", "titolo" fdata.Add "FullName", "[buono].[titolo]" fdata.Add "Index", 2 fdata.Add "FieldPermissions",true tdata.Add "titolo",fdata ' cognome_nome set fdata = CreateObject("Scripting.Dictionary") fdata.Add "FieldType", 202 fdata.Add "EditFormat", "Text field" fdata.Add "ViewFormat", "" fdata.Add "GoodName", "cognome_nome" fdata.Add "FullName", "[buono].[cognome_nome]" fdata.Add "Index", 3 fdata.Add "EditParams","" fdata("EditParams") = fdata("EditParams") & " maxlength=30" fdata.Add "FieldPermissions",true tdata.Add "cognome_nome",fdata ' importo set fdata = CreateObject("Scripting.Dictionary") fdata.Add "FieldType", 6 fdata.Add "EditFormat", "Text field" fdata.Add "ViewFormat", "Number" fdata.Add "GoodName", "importo" fdata.Add "FullName", "[buono].[importo]" fdata.Add "Index", 4 fdata.Add "EditParams","" fdata.Add "FieldPermissions",true tdata.Add "importo",fdata ' durata_num set fdata = CreateObject("Scripting.Dictionary") fdata.Add "FieldType", 3 fdata.Add "EditFormat", "Text field" fdata.Add "ViewFormat", "" fdata.Add "GoodName", "durata_num" fdata.Add "FullName", "[buono].[durata_num]" fdata.Add "Index", 5 fdata.Add "EditParams","" fdata.Add "FieldPermissions",true tdata.Add "durata_num",fdata ' durata_let set fdata = CreateObject("Scripting.Dictionary") fdata.Add "FieldType", 202 fdata.Add "EditFormat", "Text field" fdata.Add "ViewFormat", "" fdata.Add "GoodName", "durata_let" fdata.Add "FullName", "[buono].[durata_let]" fdata.Add "Index", 6 fdata.Add "EditParams","" fdata("EditParams") = fdata("EditParams") & " maxlength=9" fdata.Add "FieldPermissions",true tdata.Add "durata_let",fdata ' titolare set fdata = CreateObject("Scripting.Dictionary") fdata.Add "FieldType", 202 fdata.Add "EditFormat", "Lookup wizard" fdata.Add "ViewFormat", "" fdata.Add "GoodName", "titolare" fdata.Add "FullName", "[buono].[titolare]" fdata.Add "Index", 7 fdata.Add "FieldPermissions",true tdata.Add "titolare",fdata ' scade set fdata = CreateObject("Scripting.Dictionary") fdata.Add "FieldType", 7 fdata.Add "EditFormat", "Date" fdata.Add "ViewFormat", "Short Date" fdata.Add "GoodName", "scade" fdata.Add "FullName", "[buono].[scade]" fdata.Add "Index", 8 fdata.Add "DateEditType",13 fdata.Add "FieldPermissions",true tdata.Add "scade",fdata ' data_emissione set fdata = CreateObject("Scripting.Dictionary") fdata.Add "FieldType", 7 fdata.Add "EditFormat", "Date" fdata.Add "ViewFormat", "Short Date" fdata.Add "GoodName", "data_emissione" fdata.Add "FullName", "[buono].[data_emissione]" fdata.Add "IsRequired",true fdata.Add "Index", 9 fdata.Add "DateEditType",13 fdata.Add "FieldPermissions",true tdata.Add "data_emissione",fdata ' chiuso set fdata = CreateObject("Scripting.Dictionary") fdata.Add "FieldType", 11 fdata.Add "EditFormat", "Checkbox" fdata.Add "ViewFormat", "Checkbox" fdata.Add "GoodName", "chiuso" fdata.Add "FullName", "[buono].[chiuso]" fdata.Add "IsRequired",true fdata.Add "Index", 10 fdata.Add "FieldPermissions",true tdata.Add "chiuso",fdata tables_data.Add "buono", tdata %>

[Íàçàä]