private function generaNoteProd()
    note = ""
    dr_numdoc   = sy_rvf("prg")
    dr_tipdoc   = sy_rvf("tipo")
    dr_anndoc   = sy_rvf("anno")
    dr_riga     = sy_rvf("riga")
    sql = "SELECT dr_comm_cod, dr_comm_riga,dc_teste.lingua FROM dc_teste, dc_righe WHERE "
    sql = sql & " dt_tipo_doc = dr_tipdoc "
    sql = sql & " AND numero = dr_numdoc "
    sql = sql & " AND dt_anno = dr_anndoc "
    sql = sql & " AND dr_tipdoc = " & sy_cvs(dr_tipdoc)
    sql = sql & " AND dr_numdoc = " & sy_cvn(dr_numdoc)
    sql = sql & " AND dr_anndoc = " & sy_cvn(dr_anndoc)
    sql = sql & " AND dr_riga   = " & sy_cvn(dr_riga)
    set commc = conn.execute(sql)
    if  not commc.eof then
            commcod = commc("dr_comm_cod")
        commrig = commc("dr_comm_riga")
        lingua  = commc("dc_teste.lingua")
    else
        commcod = 0
        commrig = 0
    end if
'COLORE
    colore = gesColori(valFromConf(dr_numdoc,dr_tipdoc,dr_anndoc,dr_riga,14))
    if colore <> "" then
        note = note & "COLORE " & colore & vbCrLf
    end if

'DESC COLORE
    desc_colore = valFromConf(dr_numdoc,dr_tipdoc,dr_anndoc,dr_riga,15)
    if desc_colore <> "" then
        note = note & "DESC. COLORE " & desc_colore & vbCrLf
    end if

'CONICITA
    conicita = valFromConf(dr_numdoc,dr_tipdoc,dr_anndoc,dr_riga,11)
    if conicita <> "" then
        sql = "SELECT mco_des FROM mg_conicita WHERE mco_cod=" & sy_cvs(conicita)
        set rscd = conn.execute(sql)
        if not rscd.eof then
            note = note & "CONICITÀ " & rscd("mco_des") & vbCrLf
        end if
    end if
    sql = "SELECT cnfc_id,cnfc_deslist,cnfc_tpcar,cfgc_tipo,cfgc_id,cnfvp_sigla,cnfvp_rilievo,cnfvp_cliche,cfgc_des,cnfvp_note,cnfvp_dcolor,descrizione,descrizione_agg,mgc_desccliche,mgc_desclogo,mgc_descicrf FROM mg_grmercar,cnf_caratteristiche,cnf_valprod,cnf_grpcaratt,mg_art,mg_cliche WHERE "
    sql = sql & " cfgc_id           = cnfc_grpcaratt "
    sql = sql & " AND mgrp_idcar    = cnfc_id"
    sql = sql & " AND mgrp_id       = cnfvp_grmercar"
    sql = sql & " AND cfgc_id       = cnfc_grpcaratt"
    sql = sql & " AND cnfvp_cliche = mgc_id"
    sql = sql & " AND cnfvp_sigla = codice"
    sql = sql & " AND cnfvp_numdoc  = " & sy_cvn(dr_numdoc)
    sql = sql & " AND cnfvp_tipdoc  = " & sy_cvs(dr_tipdoc)
    sql = sql & " AND cnfvp_anndoc  = " & sy_cvn(dr_anndoc)
    sql = sql & " AND cnfvp_dcriga  = " & sy_cvn(dr_riga)
    sql = sql & " ORDER BY cfgc_id"
    set rs = conn.execute(sql)
    do until rs.eof
        cliche = ""
        colore_lamina = ""
        desc_car = rs("cnfc_deslist")

        sql = "SELECT cfrl_des FROM cnf_tiporilievi WHERE cfrl_id = " & sy_cvs(rs("cnfvp_rilievo"))
        set rsr = conn.execute(sql)
        if not rsr.eof then
            rilievo = rsr("cfrl_des")
        end if

        if rs("cnfvp_dcolor") <> "" then
            colore_lamina = rs("cnfvp_dcolor")
        else
            if rs("cnfvp_sigla") <> "" then
                colore_lamina = rs("descrizione") & " " & rs("descrizione_agg")
            end if
        end if

        if Int(rs("cnfvp_cliche")) <> 0 then
            cliche = rs("mgc_desccliche") & " " & rs("mgc_desclogo") & " " & rs("mgc_descicrf")
        end if

        if Int(lingua) <> 1 then
            sql = "SELECT cnfcl_des FROM cnf_carattlin WHERE "
            sql = sql & " cnfcl_lingua = " & sy_cvn(lingua)
            sql = sql & " AND cnfcl_id = " & sy_cvn(rs("cnfc_id"))
            set rsl = conn.execute(sql)
            if not rsl.eof then
                    desc_car = rsl("cnfcl_des")
            end if
        else
            if rs("cnfvp_note") <> "" then
                desc_car = rs("cnfvp_note")
            end if
        end if

        if prec_tpcar_tipo <> rs("cfgc_id") then
            desc_gruppo_car = rs("cfgc_des")
            if Int(lingua) <> 1 then
                sql = "SELECT cfgcl_des FROM cnf_grpcarattlin WHERE "
                sql = sql & " cfgcl_lingua = " & sy_cvn(lingua)
                sql = sql & " AND cfgcl_id = " & sy_cvn(rs("cfgc_id"))
                set rsl = conn.execute(sql)
                if not rsl.eof then
                    desc_gruppo_car = rsl("cfgcl_des")
                end if
            end if
            note = note & desc_gruppo_car & ":" & vbCrLf
        end if

        note = note & " - " & desc_car & vbCrLf
        if colore_lamina <> "" then
            note = note & "     Lamina: " & colore_lamina & vbCrLf
        end if
        if cliche <> "" then
            note = note & "     Cliche: " & cliche & vbCrLf
        end if
        if rs("cnfvp_rilievo") <> "." then
            note = note & "     Rilievo: " & rilievo & vbCrLf
        end if
        prec_tpcar_tipo = rs("cfgc_id")
        rs.movenext
    loop
    sql = "SELECT cnf_valbistra.*,cfgs_cod,cfgs_des FROM cnf_valbistra,cnf_gescolori WHERE "
    sql = sql & " cnfvb_colore = cfgs_id"
    sql = sql & " AND cnfvb_flgtsfc = 'F' "
    sql = sql & " AND cnfvb_numdoc = " & sy_cvn(dr_numdoc)
    sql = sql & " AND cnfvb_tipdoc = " & sy_cvs(dr_tipdoc)
    sql = sql & " AND cnfvb_anndoc = " & sy_cvn(dr_anndoc)
    sql = sql & " AND cnfvb_dcriga = " & sy_cvn(dr_riga)
    sql = sql & " ORDER BY cnfvb_flgtsfc"
    set rs = conn.execute(sql)
    if not rs.eof then
        do until rs.eof
            if flg_prec <> rs("cnfvb_flgtsfc") then
                if rs("cnfvb_flgtsfc") = "F" then
                    note = note & "BISTRA FIANCO:" & vbCrLf
                else
                    note = note & "BISTRA TESTA:" & vbCrLf
                end if
            end if
            note = note & " - " & rs("cnfvb_desc_colore") & vbCrLf
            note = note & "     Colore: " & rs("cfgs_cod") & " - " & rs("cfgs_des") & vbCrLf
            note = note & "     Note: " & rs("cnfvb_note") & vbCrLf
            flg_prec = rs("cnfvb_flgtsfc")
            rs.movenext
        loop
    end if
    print note
end function