DEFINE CLASS imprime2 AS SESSION olepublic FUNCTION listado DO poner_sets USE k:\gestion\datos\001\pt\articulo REPORT FORM k:\web\ws\test\listado TO FILE k:\web\ws\test\listado.txt ASCII NOCONSOLE CLOSE ALL SYS(1104) ENDFUNC ENDDEFINE PROCEDURE poner_sets * generales SET ESCAPE OFF SET NULLDISPLAY TO "" SET STATUS BAR OFF * por defecto de clase session SET EXCLUSIVE OFF SET TALK OFF SET SAFETY OFF * SET CENTURY ON SET COLLATE TO "MACHINE" SET CONFIRM ON SET DATE FRENCH SET DELETED ON SET EXACT ON SET NEAR OFF SET STRICTDATE TO 0 * poner entorno de red SET LOCK ON SET MULTILOCKS ON SET REPROCESS TO 10 SET POINT TO "," SET SEPARATOR TO "."