rebol[]

html: make string! 10000
emit: func [code] [repend html code]

sortie: %data/



do %mysql-protocol.r


societe: read/custom mysql://dolibarrmysql:changeme@localhost:3307/dolibarr/llx_societe [ "SELECT id, nom_societe, adresse, tel, fax FROM llx_societe"]
;contenu de la table societe(coordonnées entreprises)
;1, n_s-1, adr1, tel1, fax1
;2, n_s_2, adr2, tel2, fax2

propaldet: read/custom mysql://dolibarrmysql:changeme@localhost:3307/dolibarr/llx_propaldet ["SELECT id, id_societe, id_product, ordre_affichage_produit FROM llx_propaldet"]
;contenu de la table propaldet (contenu de la propale societe + produit commandé)
;1, 1, 2, 1
;2, 1, 3, 2
;3, 2, 1, 1
;4, 2, 2, 4
;5, 2, 3, 3
;6, 2, 4, 2

produit: read/custom mysql://dolibarrmysql:changeme@localhost:3307/dolibarr/llx_product ["SELECT id, nom_product, description_produit FROM llx_product"]
;contenu de la table produit (liste des produits)
;1, aaaa, aaaaaaaaaaaaaaaaaa
;2, bbbb, bbbbbbbbbbbbbbbbbb
;3, cccc, cccccccccccccccccc
;4, dddd, dddddddddddddddddd


 foreach [elem_societe] societe[ 
 clear html

 emit[pick copy elem_societe 2] newline
 emit[pick copy elem_societe 3]  emit[pick copy elem_societe 4]
 

 
 foreach elem_propaldet propaldet[
 elem_societe_var: pick copy elem_societe 1
 elem_propaldet_var: pick copy elem_propaldet 2
 if elem_societe_var = elem_propaldet_var sort [
...?
 ]
 ]

 



fichier_separe: pick copy elem_societe 2

write rejoin [:sortie fichier_separe ".txt"] html
]