SoloCodigo

Eliza Marti:

Gracias por colaborar conmigo.

Voy comenzar a practicar con ello.

seguro te voy a responder.

Saludos

Juan Carlos

Hola

Es probable que la declaración de tu variable esultante este com Integer
si puede que alguno de los valores no se entero, puedes declararla double

espero sea lo que requieres

saludos

Hola a todos y gracias de antemano:

Me pidieron desarrollar un sistema para administrar un estacionamiento, actualmente ya tienen todo el hardware e inclusive el software, el problema de mi cliente es que el software que le obligaron a comprar en pocas palabras no sirve.

No tengo ningún problema con el sistema administrativo, mi problema radica, por lo siguiente:

Tiene cajeros para cobrar automáticamente, mismos que imprimen un boleto de salida, al mismo tiempo la pc que tiene el cajero debe de mandar a la base de datos central para registrarlo, lo mismo para la "pluma de entrada", al emitir el boleto de entrada la pc de la pluma debe de mandar ese registro del automovil que entra, una de mis preguntas es : Alguien sabe con que tipo de controles puedo solucionar la comunicación entre el cajero y la PC o si existen interrupciones como las de la impresora o si es por medio del puerto serie o que, desafortunadamente no contamos con manuales ni especificaciones técnicas de los cajero y las plumas.

si alguien me puede facilitar información o links donde la pueda obtener mucho se los voy a agradecer.

Muchisimas gracias

Hola FAP1603:

No te entendí muy bien si lo quieres imprimir directo desde el documento que creaste o desde word.

Si lo quieres imprimir desde el documento que lo creaste, por que no pruebas usando el metodo print y modificando el tamaño de la hoja y haciendo formulas para justificar el texto.

Si puedes mandame el ejemplo para verlo mas claro a lo mejor con gusto te puedo ayudar.  Mientras checo como lo puedes lamara desde word

Saludos.

Juan Carlos

Hola Mayte no entendí bien tu pregunta, pero te sigiero haz lo siguiente:

Crea tus reportes en crystal y grabalos en una carpeta.
En visual añade el control de Crystal.
Para visualizar tu reporte pon lo siguiente, ejemplo:

CReport1.DataFiles(0) = gblubicacionbase
CReport1.Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gblubicacionbase & ";Persist Security Info=False "
CReport1.ReportFileName = App.Path & "\reportes\FACTURA.rpt"
CReport1.Action = 1



donde Creport1 es el nombre de tui control crystal que pusiste en visual.
gblubicacionbase es la ubicacion de tu base de datos, por ejemplo c":\base\base.mdb"
y action=1 para que lo muestre en pantalla
"\reportes\FACTURA.rpt" es la ruta donde esta el reporte

seguro te va a funcionar cualquier duda escribeme.


PD este ejemplo es para base de datos en Access.

saludos


Juan Carlos

Hola:


Gracias a todos po interesarse y escribirme.

Oye Saquotxo, eso que pones creo es para DAO y yo estoy trabajando en ADO, de todos modos muchas gracias.

Que tal Seek20, efectivamente puedo poner el campo autonúmerico, y evito ver el último registro, pero si hago esto mi pregunta sería, que pasa por ejemplo:

Si estoy en el número de venta 50, como está en red, van un usuario da de alta otra ventas (addnew), enseguida otro usuario da de alta (addnew), que pasa si los dos al mism tiempo exacto graban la venta (update), cual seria 51 y cual 52, o que es lo que pasa con el registro cundo uso addnew, hay forma de bloquerlo?.

Por que ya me entere que con DAO usando el metodo Edit, se bloquea el registro y con ADO, automaticamente cuando estoy modificando un campo entra en modo de edición y se bloquea, pero cuando doy de alta?


Muchas gracias

Saludos
Juan Carlos

Hola Phantom:

Tienes que insertar una fórmula, y puedes poner en la fórmula:
IIF ({TABLA.CAMPO}=1,"X","Y")


de esa manera cuando el valor del registro en el campo sea uno te imprime X, de lo contrario te imprime Y.

Espero te sirva.  Si funciona.

Saludos

Juan Carlos

Juanolo:

De antemano muchas gracias por interesarte a ayudarme

Efectivamente es algo muy similar a lo que escribiste.

El número consecutivo lo tomo del ultimo registro de la tabla de ventas ( o facturas) y lo incremento en uno, el problema que me da es que pueda suceder que exactamente al mismo tiempo de dos maquinas quieran acceder a ver el ultimo registro para tomar el numero e incrementarlo, asi tendria dos ventas con el mismo número y como no se aceptan duplicados ahi estará el problema, voy a itrabajar un poco con lo que me dices, lo que no entiendo para ponerlo en EDIT, yo uso lo sig. para abrir la tabla:

Set rsVenta = New ADODB.Recordset
rsVenta.Open "Select * from ventas", cnC, adOpenKeyset, adLockOptimistic

Gracias y saludos

Gracias ciclop


Tengo dudas si el  mismo font sirve para todos los formatos, yo tengo interes en el EAN 13, que creo ese sirve, pero hay un formato de 5 caracteres que no se ni como se llama el formato y si esos fonts sirvan para ese formato.

Saludos

Mira:

Lo que tienes que hacer es tambien redireccionar los subinformes, recuerda que en realidad son informes y si no les indicas la ubicacion de la base de datos no te saldran los datos.  Pueds hacer lo que sigue a mi me funcionea bien:

Si ya tienes codigo para imprimir desde visual aumenta estas lineas al codigo:

 'PARA EL CONTROL DE LOS SUBREPORTES
        aaa = CReport1.GetNthSubreportName(0)
        bbb = CReport1.GetNthSubreportName(1)

        CReport1.SubreportToChange = aaa
        CReport1.DataFiles(0) = gblubicacion & "Ventas.mdb"

        CReport1.SubreportToChange = bbb
        CReport1.DataFiles(0) = gblubicacion & "Ventas.mdb"

        CReport1.SubreportToChange = ""
        CReport1.Action = 1



donde aaa y bbb son variables string
gblubicacion es una variable donde se encuentra la rura de la base de datos
tambien podrias sustituir  CReport1.DataFiles(0) = gblubicacion & "Ventas.mdb"
por otro ejemplo   CReport1.DataFiles(0) ="C:\carpeta\Ventas.mdb"


pruebalo seguro te funcionara

saludos

Juan Carlos

Eliza..

Porque no pruebas la siguiente dirección
http://www.somser.com/2000vb/WebCam.htm

a lo mejor puedes encontrar algo interesante

Daniel:

' LO QUE PONGO ASI´: {PICKING.PICREGISTRADO} EN ESTE EJEMPLO PICKING ES LA TABLA Y PIC REGISTRDAO ES EL CAMPO

folio = Mid(cmbArtdel.Text, 1, 3)
folio2 = Mid(cmbArtAl.Text, 1, 3)
Ubi = "S"
strUbicada = "{PICKING.PICREGISTRADO}=" & "'" & Ubi & "'"

'con 2 variables de clientes CUANDO TIENES QUE ELEGIR DE UN COMBOBOX
strfolio = "{PICKING.PICCLICLAVE}>= " & "'" & folio & "'" & " AND {PICKING.PICCLICLAVE}<= " & "'" & folio2 & "'"

' CUANDO USES FECHAS
dia = Day(Dtpfechaini.Value)
mes = Month(Dtpfechaini.Value)
año = Year(Dtpfechaini.Value)
fechainicial = "#" & mes & "/" & dia & "/" & año & "#"
dia = Day(DTPfechafin.Value)
mes = Month(DTPfechafin.Value)
año = Year(DTPfechafin.Value)
fechafinal = "#" & mes & "/" & dia & "/" & año & "#"
varfechaalta = "{PICKING.PICFECHA}>= " & fechainicial & " And {PICKING.PICFECHA}<= " & fechafinal

Screen.MousePointer = vbHourglass
CReport1.DataFiles(0) = gblubicacionbase ' ES UNA VARIABLE DONDE ESTA LA BASE DE DATOS
' PODRIAS PONER EJEMPLO:
'CReport1.DataFiles(0) = "c:\carpeta\base.mdb"

CReport1.Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gblubicacionbase & ";Persist Security Info=False "
CReport1.ReportSource = crptReport

'AQUI JUNTO LAS CONDICIONES DE LAS TRES EN UNA SOLA FORMULA
formu = "(" & strfolio & ")" & " " & "AND" & " " & "(" & strUbicada & ")" & " " & "AND" & " " & "(" & varfechaalta & ")"

CReport1.SelectionFormula = formu
CReport1.ReportFileName = App.Path & "\reportes\SalidasDetalladoR11.rpt"
CReport1.Action = 1


pruebalo seguramente te funcionara y de aqui en adelante con tu imaginación puedes lograr lo que quieras.
a mi me funciona

Saludos

Juan Carlos