SoloCodigo

Hola muy buenos dias/tardes/noches a todos...

Tengo que generar un reporte en Crystal Report 8.5 con respecto a unas Ventas, para lo cual hice una tabla TB_VENTAS la cual contiene los campos: Comprobante, TipoServicio, Monto.

Como podría hacer ya sea con algun control del propio Crystal o en la sección de Formula el que al pie del Reporte me saque lo siguiente...

Total Comprobantes -> Esto es como Rs.Recordcount de la tabla TB_VENTAS
Envases -> Igual que Total Comprobantes

TOTALES POR TIPO DE SERVICIO:
  - CONTADO -> Numero de Registros que dicen en el Campo TipoServicio la palabra "CONTADO"
  - C.O.D. -> Numero de Registros que dicen en el Campo TipoServicio la palabra "C.O.D."

Sé muy poco del Crystal Report, la información en internet es muy vaga, no sé de ningun libro y podrian creer que en mi país no existe en ninguna parte Cursos de Crystal Report??? y eso que es el Generador de Reportes más usado, increible.

Bueno aqui estan mis dudas para ver si alguien podría echarme una manito con eso, plis!  

La idea es concreta pero muy generalizada, esto no trae problemas de código ASCII o código ANSI es decir de MSDOS a Windows... como meteria en un Txt lo escrito en la consola del DOS ¿capturando las teclas? disculpas si no comprendo tu idea.

Buscando y buscando a lo mucho he visto algo sobre una Función del VB llamada OemToChar que al parecer sirve para convertir texto MSDOS a texto Windows.

Al parecer esta es la funcion:
Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal  pszSrc As String, ByVal lpszDst As String) As Long

pero en verdad ni idea de como se usa o como haria para hacer la cuestion en mente.

Saludos y muy buenas noches

Por casualidad alguien sabe como hacer una ventana o consola MSDOS en Visual Basic, una ventana con un TextBox en el cual se escriban comandos del DOS y se ejecuten, pero que no cargue la ventana del MSDOS sino que en el mismo TextBox o en otro se visualice la ejecución del comando.

En caso de estar dificil, de igual forma gracias por vuestro interés.
un saludo.

Saludos...

Me gustaria ver la posibilidad de dejar de programar en Visual Basic (que es donde he hecho cosas) y pasarme a otro lenguaje... podría no dejar el VB y seguir con otro, la razón de esta idea es debido a que el visual basic es un lenguaje el cual en ocasiones puede presentar sus problemas...

Se hace un instalador, se lleva y se instala en el ordenador de X lugar y aparecen los errores, ya sea en el proceso de instalación o luego de ya estar instalada la aplicación.  El empaquetador del Visual Studio es algo que no sirve, no es confiable eso lo sabemos todos, pero uno nota los riesgos de fallas que tienen las cosas en visual basic cuando se termina empaquetado la mayoria de las herramientas y demas utilidades que vienen en los CDs del Visual Studio, y en ocasiones hasta empaquetando de igual forma actualizaciones para el propio windows, como los Service Pack, o copiandolas en una carpeta aparte en el CD en el que quemamos nuestra aplicación.

Si no está bien instalado y actualizado en la PC lo de ADO y DAO y demas afines, comienzan los errores ya sea en la misma instalación o luego, y en verdad esto desiluciona un poco con respecto a este lenguaje.

Entonces me gustaria saber, bajo qué lenguaje podría serse más seguro, eficiente, rápido, confiable, etc.. el programar.

Java me parece una buena opción, preferiblemente incursionarme en Java para desarrollar Aplicaciones con Ventanas Windows, luego seria el de orientado a Web.  Otra cosa que incomoda del Visual Basic o Visual FoxPro es el que la GUI debe ser la impuesta por el lenguaje, ahí no hay libertad para modificar ese tipo de cosas salvo el cambiarle el color a X control o terminar bajando de internet un OCX que permita dicho cometido, y terminar incursionando en el desarrollo de un OCX que permita hacer lo que el propio lenguaje no permite hacer, o no se puede hacer.

Para alguien que desea migrar, pasarse o X termino que indique un cambio, que lenguaje con una buena estructura de datos, conectividad y un desarrollo de atractivas GUI me recomiendan... en otras palabras, salir de la tirania de la GUI de windows, aun a pesar de desarrollarse algo orientado a windows, y quien sabe, tal vez para linux porque no.

epale ArKaNtOs, caramba pensaba que habia activado el avisarme por correo contestaciones pero veo que como que no lo puse y ahora es que hoy veo al pasar por aqui hehehe.. sorry.

Si fijate que precisamente no lo voy a hacer por la ventana, porque me costo mucho alinear unos pocos campos y me faltaban más de 40, me tomaria como una semana minímo y sentenares de hojas gastadas y cintas de impresora de punto para que todos esten en su lugar, por lo que a la final eso no me sirve.

Entonces paso al crystal, en el cual entonces lo que haría seria, el solo mostrar los campos de la BD sin poner mas nada en el reporte, para evitar que se imprima alguna otra cosa a diferencia de los datos.

Eso de arrastrar y soltar seria desde el Form hasta el crystal? por ahorita lo que tengo es el crysta del visual studio 6 (98) la versión 3 o 4 creo que algo asi.

Repetire lo mismo que hice con la ventana, podre la imagen en el reporte, pondre los textbox del crystal (por asi decirlo) y luego quitare la imagen para que no se imprima con los datos, vamos a ver si resulta, esperemos que si, deberia cierto?

Bueno me pondre en marcha a hacerlo, ya tuve que devover la impresora el viernes, asi que las pruebas las haré en la empresa, yo les cuento, vale!

hola como andan... espero que bien.

comence ya hoy a esto pendiente de imprimir mi cuestion y ya que es la primera vez que uso el .print pregunto lo siguiente....

Porque al usar un ejemplo como el que me has indicado Juanolo:
printer.CurrentX = 2
printer.currentY = 10
printer.print "Hola Mundo"

La impresora solo comienza o activa la impresión de esto al cerrar la ventana, es decir, al descargar con su End o Unload Me a la ventana es que se active el proceso de impresión, porque?, no es posible que imprima sin tener que cerrar la ventana para que lo haga?

que tal... aja les cuento...

saben que preferi algo que se me ocurrio precisamente ayer domingo, escanie la factura y la pegue como imagen en el Formulario y encima empece a poner las cajas de Texto... asi me evito estar midiendo con una regla la hoja y la ventana (formulario) para saber el ancho grosor y posición de cada cajita de texto.

Esto es un borrador porque fue una copia lo que me dieron, espero el poder pedir que me escaneen un original el cual es a color y es el que usaria como imagen, habia pensado luego de tener todos Text en su respectiva posición, quitar la imagen, pero creo que voy a dejar la imagen (pero el original cuando lo scanee no la copia) y asi verse en un preview como se vera al imprimir.

No puedo comenzar a imprimir con el .Print por los momentos porque mi impresora no tiene tinta (que para colmo es una Epson) ya debe tener los inyectores tapados porque lleva como un año que no le pongo cartuchos jejejeje...

Ademas, las impresiones debo hacerlas en una impresora de matriz por lo que debo ir a la empresa para probar como salen las impresiones en la hoja o factura presideñadas... Pero necesito saber algo con respecto al .Print, si le doi Form1.Print se imprimiria solo el contenido de los TextBox??? realmente creo que lo que se imprimira seria todo el Form completo como una captura de pantalla o algo asi, creo que se imprimiria los botones o bordes de los Text y eso asi no me sirve... entonces qué necesitaria hacer para que al darle Imprimir, solo salga la Información de los TextBox???

Aqui les pongo la imagen de la ventana para que vean como es la idea (este es el borrador).

PD: Lo que está tachado con X rojas, es lo que se llena a mano luego de imprimir.

Como estan

Caramba!!! aqui tengo otro detalle mas sobre un asunto que es concerniente a imprimir, pero es algo que nunca he hecho...

Tengo hecha ya una ventana con 48 campos, la tabla en una bd Access que converti a 97 y codificado todo para manejo de registros, ya todo eso está listo.

El problema es que al momento de imprimir, cada dato debe caer en una posición o cordenas precisas en la hoja porque no se imprime en hojas blancas tipo carta o X tipo, sino que se imprime en una impresora de matriz en unas hojas prediseñadas... algo asi como si las hojas ya fuesen una factura, y que al momento de imprimir cada dato debe caer en su respectiva parte de dicha hoja... ven!! ahi está el detalle... es la primera vez que hago algo asi.

Entonces, esto lo podría hacer con el .Print??? porque yo siempre he hecho las impresiones por medio de reportes por el Crystal Report de lo mas sencillo, pero esto de que cada dato esté en su posición en una hoja prediseñada, ya me es algo diferente.

¿Como podría hacer esto, es dificil?
tengo que gastar mucho para imprimir entre prueba y prueba hasta que caigan los datos en donde deben ir en cada parte de estas hojas??

muchas gracias a quien pueda, vale!

Listo, ya me sente a ver el problema de esos 4 botones de desplazamiento de registros de la bd asi quedo:


Gracias cpmario  

PD: Sabrías como se podría realizar lo siguiente en un TextBox?
Text1.Text = 3/8

Estamos en el registro 3 de 8
Al desplazarme por cada registro en la ventana como podría visualizar algo como lo indicado?
Text1.Text = ??? & "/" & RsImp.RecordCount

Saludo Gente

Tengo planeado algo de lo cual no tenia ni la menor idea de como empezarlo, entre reescribiendo y colocando código en comentarios, ya me dio resultado pero tiene un error del cual aun no he logrado pasar.

Mi cuestion es sobre hacer lo que hace un control Data, es decir...
pasar con sus botones por cada uno de los registros, pero por CommandButton, sin control Data.

Cada vez que le de a los botones (CommandButton) me desplace por los registros llenandose la informacion de cada registro en los TextBox.

Eso ya está hecho, pero deseo que en otro TextBox se vea el numero de Registros total en la tabla y el numero del registro actual es decir...

Ej: 8 Registros en la tabla
     Viendo Registro numero 6
     Seria: 6/8

Algo asi:
TxtNumReg.Text = (aqui iria el Reg actual) & "/" & Rs.RecordCount

Este es el código de cada botón, los cuales son:
( |< )Primero, ( < )Anterior, ( > )Siguiente, ( >| )Ultimo

Nota: Una Funcion LOAD_DATA carga los datos en todos los TextBox


No sé como hacer para que en un TextBox se vea: RegActual / NumRegistros
y que cada vez que me desplaze por los botones cambie: RegActual

Otra problema de lo mismo es que al llegar al primer Registro y seguirle dando al boton, da el error: No hay ningun Registro activo.

Como podría hacer para que al momento de llegar al primer registro, y desee seguire dando al boton, no de ese error sino que simplemente se quede ahí, en el primer registro.  E igual con el llegar al ultimo registro y que se quede ahí en el ultimo aun a pesar de seguirle dando al boton.


El boton PRIMERO y ULTIMO funcionan perfecto, si se llega al primero o ultimo y se le sigue dando no da error, el error está solo con ANTERIOR y SIGUIENTE.


Perdon por tanto escrito, es para explicarlo bien, son esas 2 las trancas que tengo.
Muchas gracias por cualquier ayudita.

Gracias muchachos, bueno no sé si el código de zareth sea lo justo ya que en caso de que se escriba un nombre más completo (1er nombre, 2do nombre, o ambos apellidos) ya no se reflejaria como debiese, variaria dependiendo del ingreso.

En mi código ya está la linea que indicas cpmario, es una buena linea de código sin duda alguna porque es lo que necesito que en el text se aplique, el problema es que cuando escribes un nombre, el cursos vuelve a empezar desde Len=0 (por asi decirlo) en el TextBox es decir....

Si se escribe: Juan
Uno escribe el primer caracter: J
lo eleva a mayuscula (todo bien con eso)
pero al escribir el siguiente caracter no lo pone a la derecha sino a la izquierda
Ej: Uj

y al final termina con esto: Nauj
El StrConv(TextBox, vbProperCase) si me sirve porque luego de un espacio en blanco escribe en mayuscula el caracter, de cada palabra, lo cual está bien.

Bueno perdon por el retraso, realmente hoy no podré metermele a este pequeño asunto del TextBox, debido a que otras cosas me han consumido el tiempo, mañana en la mañana si y les aviso, solo necesito metermele a realizar un Reves del string y listo.

Muchas gracias compadres.

Tengo el siguiente código que podría indicarse que realiza la operación de mantener en una cadena la primera letra en mayuscula y el resto en minuscula, el problema está en que produce el error: Espacio de Pila Insuficiente.

Private Sub TxtNombre_Change()
    Dim i As Long
    Dim Reves As String
    Reves = ""
    For i = Len(TxtNombre.Text) To 1 Step -1
        Reves = Reves & Mid(TxtNombre.Text, i, 1)
    Next i
    TxtNombre.Text = StrConv(Reves, vbProperCase)
End Sub

Cómo podría solventar esto.
Saludos.