:confused: Hola, espero que alguien que sepa español pueda responderme. quisiera saber si existe alguna forma de incorporar un calendario grafico a los campos de fecha de BaaN, la idea es mostrar al usuario algo similar a lo que existe en el ambiente windows.

Muchas Gracias
Peter Guerrero
:cool:

Puedes utilizar la instruccion app_start() en tu program script y con ella iniciar la misma applicacion de windows o bien hacer un zoom a los datos de tu calendario de Baan (no tan grafico que digamos :rolleyes: ).

Saludos,

Felipe Saavedra
Disus Inc
416 917 2068

Tienes algún Ejemplo de un scrip con app_start()

Hola en la seccion de declaration agrega:


declaration:

#include <bic_tt>


extern long app.id

#pragma used dll ottdllbw

|Al iniciar la forma checa que esten corriendo la apliccacion an ambiente gui

form.1:
init.form:
if not graphical.mode then
message("Please use the GUI instead of ASCII to run this session")
end()
endif


|en el programa pondrias algo asi como:

app.id = app_start(strip$(tcmcs800.pexe) & "\" & "Excel.exe " & FILENAME & ".csv",
strip$(tcmcs800.pfil) & "\","","bsaoutput","bsaerror")
if app.id < 0 then
app.id = app_status(app.id)
message("error opening file "& str$(app.id))
endif

|La primera parte le indica en donde esta localizada la aplicacion en tu caso CALENDAR.exe luego el archivo que calendar exe abre por default si no pones nada abrira uno (Untitled), los ultimos 3 parametros puede poner lo mismo que aqui es decir ,"","bsaoutput","bsaerror")

Si tienes mas dudas no dudes en enviarme un email o llamar

Saaludos

Felipe Saavedra
416 917 2068

Hola en la seccion de declaration agrega:


declaration:

#include <bic_tt>


extern long app.id

#pragma used dll ottdllbw

|Al iniciar la forma checa que esten corriendo la apliccacion an ambiente gui

form.1:
init.form:
if not graphical.mode then
message("Please use the GUI instead of ASCII to run this session")
end()
endif


|en el programa pondrias algo asi como:

app.id = app_start(strip$(tcmcs800.pexe) & "\" & "Excel.exe " & FILENAME & ".csv",
strip$(tcmcs800.pfil) & "\","","bsaoutput","bsaerror")
if app.id < 0 then
app.id = app_status(app.id)
message("error opening file "& str$(app.id))
endif

|La primera parte le indica en donde esta localizada la aplicacion en tu caso CALENDAR.exe luego el archivo que calendar exe abre por default si no pones nada abrira uno (Untitled), los ultimos 3 parametros puede poner lo mismo que aqui es decir ,"","bsaoutput","bsaerror")

Si tienes mas dudas no dudes en enviarme un email o llamar

Saaludos

Felipe Saavedra
416 917 2068
Otra consulta, se puede hacer lo siguiente en la versión BaaN IV b2: Generar un archivo de texto y abrirlo como excel?

Gracias felipe, me gustaria saber en que pais vives, yo soy de Chile.

Hola creo que si se podria hacer en Baan IV b2, si puedes ejecutar el commando app_start() entonces se puede crear, sin problema, yo tengo una aplicacion que he instalado en una cuantas empresas par abrir reportes en excel excel y asociar documentos de word y procedimientos de mantenimiento o items etc.

Yo vivo en Canada en Oakville (cerca de Toronto) y naci en Mexico.

Saludos,

Felipe

Un Gusto, hace tiempo que no me encuentro con alguien en internet que ayude a los demás, bueno esta pagina es muy buena y me estoy conectando a diario, asi que cuelquier cosa estoy aqui para ayudar.

Seria posible que me envies un ejemplo de una extracción de infomación desde BaaN a Excel??? solo si puedes si no no hay problema. yo tengo aqui sistema operativo unix solaris y como te decia BaaN IV b2. Gracias.

Hola,

Mira este es el manual, si es lo que estas buscando avisame,

Saludos

Felipe

Si , es lo que busco, pero no me queda claro la sesión tcmcsc801m000.

Gracias

Hola,

Esa session lo que hace es transferir el archivo/reporte que se guardo en el servidor a la PC del usuario, le da uan formateada ligera al archivo y con el ejecuta el start_app() con los valores del Archivo para abrir el mismo en la Computadora del Usuario.

Saaludos

Felipe

Yo tengo un problema parecido, Estoy usando Baan IV c2 mcr0, tengo que pasar un archivo al PC y luego imprimirlo automáticamente a la impresora del usuario. Es decir, no necesito abrirlo ni en word ni en excel. Con la función server2client ya se hace el FTP pero el archivo tienen unos caracteres especiales raros. Y el problema que tengo es como hacer para imprimir automaticamente el archivo para que sea transparente para el usuario.

Alguién tiene una lista de comandos como el server2client que están dentro del ottdllbw??


Gracias y saludos a todos


Patricio desde Quito - Ecuador

Hola

Si estas utilizando unix puedes imprimir directamente a la cola de impresion utilizando el siguente comando:

run.prog("/usr/bin/lp", "-dmisprtfin005 -onb -s -c /home/TUARCHIVO", RP_WAIT)

Si estas utilizando NT o WIndows 2003 dime y te envio otra forma.

Saaludos,

Felipe

Usando #pragma used dll ottdllbw yo me creé la funcion adjunta.

Sólo la llamo pasandole como parametro el nombre del archivo de texto y te lo deja en el PC.



Tb soy de Santiago, Chile.

Buenas, pues creo que lo que estás intentando es que salga un calendario en plan visual para elegir la fecha en los campos de introducción de una pantalla verdad? Alguna vez lo he intentado y me he quedado a medias, demasiado esfuerzo para un resultado poco eficaz, Baan es Baan. En principio lo que intenté fué abrir el propio calendario de baan , el objeto ottstpcalendar(prueba menu->ottstpcalendar y se abre el calendario). Abrir se abre y se puede llegar a controlar que te devuelva la fecha que pinchas desde el zoom de un campo de pantalla,pero a veces se queda colgado. Ya te digo, por poder me imagino que se podrá pero no insistí demasiado.
Suerte.

Hola
Y como capturabas el dia que pinchabas en el calendario?
Gracias

Gracias, En realidad en esto no segui insistiendo , ya que es mucho esfuerzo para tan poco beneficio (Como decias en el post anterior) , gracias a todos los que se tomaron el tiempo y la molestia de responder.

Atte
PGG

despues de las variables coloca;

extern domain tcdate curr.date

#include <bic_process>

y en la secsion de los campos pones:

field.curr.date:
on.input:
if curr.date = 0 then
child = activate("ttstpcalendar")
wait(child, WTHANG) | instead of "repeat until g.value > 0"
| num.to.date(g.value, year, month, day) esta line no es requerida
curr.date = g.value
endif


esto funciona bien en 4c4 no se en otros ambientes

saaludos

Felipe Saavedra

Lo probé y funcionó pero hice una pequeña mejora :
Le puse "zoom" al campo fecha y dejé las lineas indicadas dentro del "before.zoom". Quedo super bien.