Tempetes de Softmaster...
-
- Mensajes: 8
- Registrado: Mié Feb 09, 2011 5:40 am
- Contactar:
Tempetes de Softmaster...
Utilizo el templete de sofmaster para conectar clarion con word, me gustaria saber si alguien sabe como construir tablas en word desde clarion con estos templetes, o si tienen una idea mejor se los agradacere bastante saludos
-
- Ayudante de Santa
- Mensajes: 64
- Registrado: Lun Feb 07, 2011 1:29 pm
- Contactar:
Re: Tempetes de Softmaster...
Hola,
Te copio algo que está hecho con C5.
?Word{'Application.WordBasic.Insert("' & clip(DMP:desmer) & CHR(9) &|
format(DMP:porder,@n6`2) & CHR(9) &|
format(DMP:porest,@n6`2) & CHR(9) &|
format(DMP:valmer,@n12`2) & CHR(13) &'")'}
canlin# += 1
end
?Word{'Application.Selection.Font.Bold'} = 9999998
?Word{'Application.Selection.Font.Size'} = 10
if PTO:tipmon = 'P' then
?Word{'Application.WordBasic.Insert("Pase a pesos: ' & CHR(9) &|
format(PTO:tippas,@n9`6) & CHR(9) &|
'Total (div.):' & CHR(9) &|
format(PTO:impfob,@n12`2) & CHR(13) &'")'}
else
?Word{'Application.WordBasic.Insert("Pase a dólares: ' & CHR(9) &|
format(PTO:tippas,@n9`6) & CHR(9) &|
'Total (div.):' & CHR(9) &|
format(PTO:impfob,@n12`2) & CHR(13) &'")'}
end
canlin# += 1
?Word{'Application.Selection.MoveLeft(1,1)'} !Volver un carácter hacia atras
?Word{'Application.Selection.HomeKey(5,1)'} !Seleccionar toda la linea
?Word{'Application.Selection.MoveUp(5,'& canlin# &',1)'} !Seleccionar todas las lineas anteriores
?Word{'Application.Selection.ConvertToTable(,' & canlin# &',4,,23)'} !Convertir las lineas seleccionadas a una tabla
?Word{'Application.Selection.ParagraphFormat.Alignment'} = 1 !Centrar todas las líneas
?Word{'Application.Selection.MoveDown(5,1)'} !Deseleccionar la tabla
?Word{'Application.WordBasic.Insert("'&CHR(13)&'")'}
Saludos
Manuel
Te copio algo que está hecho con C5.
?Word{'Application.WordBasic.Insert("' & clip(DMP:desmer) & CHR(9) &|
format(DMP:porder,@n6`2) & CHR(9) &|
format(DMP:porest,@n6`2) & CHR(9) &|
format(DMP:valmer,@n12`2) & CHR(13) &'")'}
canlin# += 1
end
?Word{'Application.Selection.Font.Bold'} = 9999998
?Word{'Application.Selection.Font.Size'} = 10
if PTO:tipmon = 'P' then
?Word{'Application.WordBasic.Insert("Pase a pesos: ' & CHR(9) &|
format(PTO:tippas,@n9`6) & CHR(9) &|
'Total (div.):' & CHR(9) &|
format(PTO:impfob,@n12`2) & CHR(13) &'")'}
else
?Word{'Application.WordBasic.Insert("Pase a dólares: ' & CHR(9) &|
format(PTO:tippas,@n9`6) & CHR(9) &|
'Total (div.):' & CHR(9) &|
format(PTO:impfob,@n12`2) & CHR(13) &'")'}
end
canlin# += 1
?Word{'Application.Selection.MoveLeft(1,1)'} !Volver un carácter hacia atras
?Word{'Application.Selection.HomeKey(5,1)'} !Seleccionar toda la linea
?Word{'Application.Selection.MoveUp(5,'& canlin# &',1)'} !Seleccionar todas las lineas anteriores
?Word{'Application.Selection.ConvertToTable(,' & canlin# &',4,,23)'} !Convertir las lineas seleccionadas a una tabla
?Word{'Application.Selection.ParagraphFormat.Alignment'} = 1 !Centrar todas las líneas
?Word{'Application.Selection.MoveDown(5,1)'} !Deseleccionar la tabla
?Word{'Application.WordBasic.Insert("'&CHR(13)&'")'}
Saludos
Manuel
-
- Mensajes: 8
- Registrado: Mié Feb 09, 2011 5:40 am
- Contactar:
Re: Tempetes de Softmaster...
ml gracias por tu tiempo, lo pruebo en seguida, solo una pregunta el simbolo que aparece es una amperson?(&) saludos y mil gracias
-
- Ayudante de Santa
- Mensajes: 64
- Registrado: Lun Feb 07, 2011 1:29 pm
- Contactar:
Re: Tempetes de Softmaster...
Sí
Sds
Manuel
Sds
Manuel
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 13 invitados