#ifdef en XFM
Publicado: Mar Ago 01, 2006 6:04 am
Tienen contemplado que se puedan poner directivas #ifdef en los archivos XFM, eso debido a que los programas que traigo de MSDOS y que estoy actualizando a algunos clientes, son modulares, y algunos manejan una informacion y otros solo unos campos mas en las .DBF.
Un ejemplo:
Uno de mis clientes, maneja 2 tipos de precios los cuales se calculan en base a calculos que me proporcionaron y son confidenciales, a esto, y para este cliente la edicion del producto es uno y la de los demas clientes es otra estandar; pero en la visualizacion de todos los datos requiero poner esos dos precio, pero, los demas clientes manejan 4 precios, por lo que en un Browse tengo que presentar 2 precios si es el cliente 1 y 4 si son otros clientes.
Me ayudaria mucho que podamos incluir los #ifdef por que asi podria usar la misma clase para todos, y pues esta es la unica diferencia.
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Precio2"
:cPicture := "99,999,999.999"
:::::
:Create()
END
#ifndef _CLIENTE_ESPECIAL_
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Precio3"
:cPicture := "99,999,999.99"
::::
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Precio4"
:cPicture := "99,999,999.99"
::::
:Create()
END
#endif
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Libros"
:cPicture := "99,999,999.99"
::::
:Create()
END
::::::::
::::::
:::
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/
--
Un ejemplo:
Uno de mis clientes, maneja 2 tipos de precios los cuales se calculan en base a calculos que me proporcionaron y son confidenciales, a esto, y para este cliente la edicion del producto es uno y la de los demas clientes es otra estandar; pero en la visualizacion de todos los datos requiero poner esos dos precio, pero, los demas clientes manejan 4 precios, por lo que en un Browse tengo que presentar 2 precios si es el cliente 1 y 4 si son otros clientes.
Me ayudaria mucho que podamos incluir los #ifdef por que asi podria usar la misma clase para todos, y pues esta es la unica diferencia.
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Precio2"
:cPicture := "99,999,999.999"
:::::
:Create()
END
#ifndef _CLIENTE_ESPECIAL_
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Precio3"
:cPicture := "99,999,999.99"
::::
:Create()
END
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Precio4"
:cPicture := "99,999,999.99"
::::
:Create()
END
#endif
WITH OBJECT TDBBrwColumn():New( ::oDBBrowse1 )
:cHeader := "Libros"
:cPicture := "99,999,999.99"
::::
:Create()
END
::::::::
::::::
:::
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/
--