Consulta Urgente!! : (

hola, Doors !

... tengo un archivo que me funciona como un recibo... un campo... almacena un consecutivo
... cada ves que se mande a imprimir se modifica el contador... a traves de una macro... ligada a un boton
... deseo poner dicho archivo en un servidor y que la gente lo accese por medio de una intranet
... no se como hacer... que el contador me funcione igual para todos
... si yo voy a hacer un recibo y va por el numero 22 yo lo mande a imprimir
... que ese contador me lo guarda automaticamente en el archivo en el servidor
... si otra persona desea hacer un recibo en el momento que ingrese muestre el consecutivo en el cual quedo...

considera los siguientes 'imponderables'...
- asegurarte que tu archivo es controlado por una instancia de excel [no por algun explorador de intra/inter/net]
- debe ser guardado como archivo compartido [eso ya lleva sus restricciones y posibles conflictos] :-((
- revisar la *resolucion de conflictos* al compartirlo [p.e. si dos o mas *tratan* de imprimir al mismo tiempo] -?-
- dar *full permisos* para todos los usuarios a la carpeta compartida donde coloques dicho archivo
- establecer un tiempo *relativamente* CORTO para reflejar las actualizaciones por cambios de otros usuarios
[o usar eventos OnTime para *refrescar* dicha actulizacion, cosa que no creo sea muy *recomendable* en los compartidos] -?-
- [probablemente] seria mas recomendable *controlar* la numeracion desde un archivo externo [*.TXT ?]
[siempre y cuando las acciones que se vayan a realizar no esten *prohibidas* para los archivos compartidos] -?-

comienza por revisar en la ayuda en linea {F1} preguntando por las restricciones a los libros compartidos ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Hector!! , gracias por responderme voy a revisar y cualquier duda te
consulto!!!
MUCHAS GRACIAS!!!

"Héctor Miguel" wrote:

hola, Doors !

> ... tengo un archivo que me funciona como un recibo... un campo... almacena un consecutivo
> ... cada ves que se mande a imprimir se modifica el contador... a traves de una macro... ligada a un boton
> ... deseo poner dicho archivo en un servidor y que la gente lo accese por medio de una intranet
> ... no se como hacer... que el contador me funcione igual para todos
> ... si yo voy a hacer un recibo y va por el numero 22 yo lo mande a imprimir
> ... que ese contador me lo guarda automaticamente en el archivo en el servidor
> ... si otra persona desea hacer un recibo en el momento que ingrese muestre el consecutivo en el cual quedo...

considera los siguientes 'imponderables'...
- asegurarte que tu archivo es controlado por una instancia de excel [no por algun explorador de intra/inter/net]
- debe ser guardado como archivo compartido [eso ya lleva sus restricciones y posibles conflictos] :-((
- revisar la *resolucion de conflictos* al compartirlo [p.e. si dos o mas *tratan* de imprimir al mismo tiempo] -?-
- dar *full permisos* para todos los usuarios a la carpeta compartida donde coloques dicho archivo
- establecer un tiempo *relativamente* CORTO para reflejar las actualizaciones por cambios de otros usuarios
[o usar eventos OnTime para *refrescar* dicha actulizacion, cosa que no creo sea muy *recomendable* en los compartidos] -?-
- [probablemente] seria mas recomendable *controlar* la numeracion desde un archivo externo [*.TXT ?]
[siempre y cuando las acciones que se vayan a realizar no esten *prohibidas* para los archivos compartidos] -?-

comienza por revisar en la ayuda en linea {F1} preguntando por las restricciones a los libros compartidos ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Hector!!!,

Quisiera consultarte algo que me expusiste en la consulta, en la misma me
indicaste que puedo controlar la numeracion por un archivo externo *.txt,
como puedo hacer eso ?, mi contador esta en la celda f6

Gracias!!

"Héctor Miguel" wrote:

hola, Doors !

> ... tengo un archivo que me funciona como un recibo... un campo... almacena un consecutivo
> ... cada ves que se mande a imprimir se modifica el contador... a traves de una macro... ligada a un boton
> ... deseo poner dicho archivo en un servidor y que la gente lo accese por medio de una intranet
> ... no se como hacer... que el contador me funcione igual para todos
> ... si yo voy a hacer un recibo y va por el numero 22 yo lo mande a imprimir
> ... que ese contador me lo guarda automaticamente en el archivo en el servidor
> ... si otra persona desea hacer un recibo en el momento que ingrese muestre el consecutivo en el cual quedo...

considera los siguientes 'imponderables'...
- asegurarte que tu archivo es controlado por una instancia de excel [no por algun explorador de intra/inter/net]
- debe ser guardado como archivo compartido [eso ya lleva sus restricciones y posibles conflictos] :-((
- revisar la *resolucion de conflictos* al compartirlo [p.e. si dos o mas *tratan* de imprimir al mismo tiempo] -?-
- dar *full permisos* para todos los usuarios a la carpeta compartida donde coloques dicho archivo
- establecer un tiempo *relativamente* CORTO para reflejar las actualizaciones por cambios de otros usuarios
[o usar eventos OnTime para *refrescar* dicha actulizacion, cosa que no creo sea muy *recomendable* en los compartidos] -?-
- [probablemente] seria mas recomendable *controlar* la numeracion desde un archivo externo [*.TXT ?]
[siempre y cuando las acciones que se vayan a realizar no esten *prohibidas* para los archivos compartidos] -?-

comienza por revisar en la ayuda en linea {F1} preguntando por las restricciones a los libros compartidos ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Doors !

... me expusiste en la consulta... que puedo controlar la numeracion por un archivo externo *.txt
como puedo hacer eso ?, mi contador esta en la celda f6

el siguiente es un ejemplo de como leeria el contenido de un archivo de texto para el caso que planteas:
- tomar el primer registro de numeracion contabilizado [siempre el primero seria el mas reciente]
- tomar el contenido total del archivo [para reponerlo posteriormente]
- aumentar en uno la numeracion del siguiente recibo
- reponer el contenido anterior y como primera linea la nueva numeracion
- numerar la celda con el consecutivo y mandar la impresion
[los comentarios creo seran +/- claros] -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Numera_e_Imprime()
Dim Contador As String, Completo As String, _
Anterior As String, Nuevo As String
Contador = "c:utay carpetas\donde va a estar el\contador.txt"
On Error Resume Next ' por si no existe el archivo... lo creamos '
Open Contador For Input As #1 ' abrimos el contador para leerlo '
Line Input #1, Anterior ' leemos la primera linea [el contador anterior] '
Completo = Input$(LOF(1), 1) ' cargamos el texto completo '
Close #1 ' cerramos la lectura '
Nuevo = Val(Anterior) + 1 ' aumentamos en uno el contador '
Open Contador For Output As #1 ' abrimos el contador para escribir '
Print #1, Nuevo ' escribimos el nuevo numero del recibo '
Print #1, Completo ' cargamos el contenido anterior '
Close #1 ' cerramos el contador actualizado '
Range("f6") = Nuevo ' numeramos el recibo a imprimirse '
ActiveSheet.PrintOut Copies:=2 ' mandamos la impresion de la hoja activa '
End Sub

Hola Hector!!

MUCHAS GRACIAS POR TU CODIGO!!!!! : ), eso es exactamente lo que queria,
solo me queda una consulta mas por hacer, habra alguna forma de controlar un
momento en que 2 personas o mas intenten ingresar al archivo, que este no se
habra hasta que el archivo este cerrado, es decir como colocar una sentencia
no se si funcionara con un if, que si yo tengo el archivo abierto y otra
persona lo ingresa me envie un mensaje indicandome que no ser puede abrir
porque esta siendo ocupado por otra persona.

HECTOR EXCELENTE MUCHAS GRACIAS!!!! y perdona tanta molestia : (

"Héctor Miguel" wrote:

hola, Doors !

> ... me expusiste en la consulta... que puedo controlar la numeracion por un archivo externo *.txt
> como puedo hacer eso ?, mi contador esta en la celda f6

el siguiente es un ejemplo de como leeria el contenido de un archivo de texto para el caso que planteas:
- tomar el primer registro de numeracion contabilizado [siempre el primero seria el mas reciente]
- tomar el contenido total del archivo [para reponerlo posteriormente]
- aumentar en uno la numeracion del siguiente recibo
- reponer el contenido anterior y como primera linea la nueva numeracion
- numerar la celda con el consecutivo y mandar la impresion
[los comentarios creo seran +/- claros] -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Numera_e_Imprime()
Dim Contador As String, Completo As String, _
Anterior As String, Nuevo As String
Contador = "c:utay carpetas\donde va a estar el\contador.txt"
On Error Resume Next ' por si no existe el archivo... lo creamos '
Open Contador For Input As #1 ' abrimos el contador para leerlo '
Line Input #1, Anterior ' leemos la primera linea [el contador anterior] '
Completo = Input$(LOF(1), 1) ' cargamos el texto completo '
Close #1 ' cerramos la lectura '
Nuevo = Val(Anterior) + 1 ' aumentamos en uno el contador '
Open Contador For Output As #1 ' abrimos el contador para escribir '
Print #1, Nuevo ' escribimos el nuevo numero del recibo '
Print #1, Completo ' cargamos el contenido anterior '
Close #1 ' cerramos el contador actualizado '
Range("f6") = Nuevo ' numeramos el recibo a imprimirse '
ActiveSheet.PrintOut Copies:=2 ' mandamos la impresion de la hoja activa '
End Sub