Iniciar sesi贸nCerrar
Correo:
Contrase帽a:
Entrar
Recordar sesi贸n en este navegador
Iniciar sesi贸nIniciar sesi贸nCrear cuentaCrear cuenta
LWP » Preguntas/Respuestas » Resultado de la B锟絪queda

BUSCAR EN PREGUNTAS Y RESPUESTAS

Volver
Agregar una pregunta
Buscar mis preguntas
Buscar
 Se han encontrado 2654 coincidencias.<<  >> 

Visual Basic
    Pregunta:  8173 - IMPRIMIR UN REGISTRO DE LA DB CON CRYSTAL REPORT
Autor:  lore S谩nchez Chamoso
Hola me gustar铆a que me ayudarais a resolver un problema que tengo.
Estoy creando un sistema en Visual Basic y en 茅l utilizo informes creados con Crystal Reports.
El problema viene al hacer que visualice una factura de la BD's que yo consulto en el momento de ejecuci贸n.
Resumiendo: no s茅 con qu茅 instrucci贸n le indico a Crystal Report la factura que quiero que presente el informe.
Me gustar铆a que me contestarais lo m谩s pronto posible, lo necesito.Gracias.
  Respuesta:  Sergio Dur谩n
Hola, bueno se cuando pudiste efectuar la pregunta pero, de seguro mi respuesta le servir谩 a m谩s de alguien. Para imprimir Facturas de Compra y Venta, Gu铆as de Despacho, etc., desde VB6, utiliza el Objeto Printer y as铆 te olvidas para siempre de Crystal Report y sus licencias y adem谩s de DataReport (propio de VB).
Yo programo con VB6 y uso el obeto printer en combinaci贸n con Impresoras matriciales Panasonic KX-P1150 y Epson LX-300 + II, sin ning煤n problema.

Hago algo as铆: 

Nimp = rs26.Fields(0).Value



'Establece Impresora

For Each Prnt In Printers

    If Prnt.DeviceName = Nimp Then

        Set Printer = Prnt

        Exit For

    End If

    DoEvents

Next Prnt



With Printer

    'Dimensiones papel a usar

    .Width = Int(rs26.Fields(3).Value * 56.7)

    .Height = Int(rs26.Fields(4).Value * 56.7)

    

    'un de dibujo del papel a usar

    .ScaleMode = 0

    .ScaleWidth = rs26.Fields(3).Value * 10

    .ScaleHeight = rs26.Fields(4).Value * 10

    

    'Orientaci贸n papel a usar

    .Orientation = rs26.Fields(5).Value

    '.Port = Trim(CStr(rs26.Fields(1).Value))

    

    'Printer.PaperBin = 15 'Bandeja

    .PrintQuality = vbPRPQMedium

    .Zoom = 100

    

    .Font.Name = "Calibri"

    .FontSize = rs26.Fields(6).Value

    .FontBold = False

    .FontItalic = False

    .FontStrikethru = False

    .FontUnderline = False

    .ForeColor = vbBlack

    

    'CABECERA GU脥A

    .CurrentX = rs26.Fields(7).Value / 0.1: .CurrentY = rs26.Fields(8).Value / 0.1

    Printer.Print Format(Me.Gui1.Value, "dd")

    

    .CurrentX = rs26.Fields(9).Value / 0.1: .CurrentY = rs26.Fields(10).Value / 0.1

    Printer.Print Format(Me.Gui1.Value, "mmmm")

    

    .CurrentX = rs26.Fields(11).Value / 0.1: .CurrentY = rs26.Fields(12).Value / 0.1

    Printer.Print Format(Me.Gui1.Value, "yyyy")

    

End With



'GLOSA GU脥A

rgl = CLng(rs26.Fields(39).Value / 0.1)

       

With Me.MSFlexGrid4

    For prt = 1 To .Rows - 1

        .Row = prt

        

        .Col = 1

        Printer.CurrentX = rs26.Fields(41).Value / 0.1: Printer.CurrentY = rgl

        Printer.Print .Text;

        

        rgl = rgl + CLng(rs26.Fields(45).Value / 0.1)

        If prt = CLng(rs26.Fields(44).Value) Then Exit For

        DoEvents

    Next prt

End With



'PIE GU脥A

With Printer

        .CurrentX = (rs26.Fields(35).Value / 0.1) - .TextWidth(Gui22.Text)  'TOTAL

        .CurrentY = (rs26.Fields(36).Value / 0.1)

        If Gui22.Text = 0 Then

            Printer.Print ""

        ElseIf Gui22.Text > 0 Then

            Printer.Print Gui22.Text

        End If

    

        '.NewPage

        'Printer.Print ""

        .EndDoc

        .KillDoc

        .TrackDefault = True

End With



'Cierra y descarga de memoria el recordset

If rs26.State = 1 Then rs26.Close

Set rs26 = Nothing


http://bio-soft.cl/
CONCEPCI脫N CHILE
  Respuesta:  Juan Alvarez
Crea un reporte (Factura.rpt) en el cual se imprima todos los numeros de factura con su respectivos movimientos, al momento del dise帽o si le das una vista preliminar te daras cuenta que se veran todas tus facturas con sus respectivos movimientos, pero finalmente en el momento de la impresion osea cuando esta corriendo tu programa solo seleccionas uno y lo harias de la siguiente manera:

CR.ReportFileName = "Factura.rpt"
CR.SelectionFormula = "{Tabla.NoFactura}='" + Text1.Text + "'"
CR.Action = 1
Suponiendo que en text1.text esta el numero de la factura que quieres imprimir y que tengas una tabla con un campo llamado NoFactura, espero haberme explicado

Mas dudas me Escribes ok
  Respuesta:  joaquin
BUSCA LA AYUDA DE CRYSTAL REPORT Y LEETE LA INSTUCCION "SELECTION FORMULA", AUNQUE HAY OTRAS MANERAS ESTA ES LA MAS SENCILLA

    Pregunta:  8183 - ENVIO DE MAIL EN FORMATO HTML
Autor:  Ivan Martinez Arce
Tengo un programa en V. Basic que envia e-mail pero necesito que el archivo adjunto que envio (un documento html o gif animado) se auto abra cuando el destinatario lee el mensaje.

Gracias.
  Respuesta:  脫scar Javier Garc铆a Baudet
Asumo que ya tienes el c贸digo con la m谩quina de estados necesaria para conectarte al servidor de correo, etc...

Paso a explicarte como adjuntar archivos:

Por la largada de la respuesta, esta en el archivo resp8183.txt

    Pregunta:  8194 - PROBLEMA CON REGISTRO DE OCX
Autor:  Hugo Marin
Hola amigos, estoy usando Visual Basic 6.0 y al usar el componente ocx "DATA CONTROL FOR BTRIEVE PROFESIONAL" (BTRDCP32.OCX) puedo selecionarlo como componente pero al llevar el objeto al form me da el siguiente mensaje de error y no me deja trabajar "Usted no tiene una licencia para hacer uso de este componente en ambiente dise帽o".
Gracias por la ayuda.
  Respuesta:  Juan cecconi
El problema es que quie hizo ese control eliji贸 la opci贸n de pedir licencia para utilizar el control en otro proyecto. Para poder salvar este problema debes conseguir el archivo "xxxx.lic" ,donde xxx ser谩 el nombre del archivo de licencia con extencion "lic" (licencia). Una vez que lo consigues debes ponerlo en el directorio donde se encuentra el ocx (archivo del control)

    Pregunta:  8203 - DONDE EST谩 EL ISAM INSTALLABLE
Autor:  Oscar Hofman
Estoy trabajando en VisualBasic 6.0 bajo Windows ME, asi que trato de importar y vincular las tablas de FoxPro 2.0 para las aplicaciones hechas por VB 6.0.
Hice las instrucciones para ejecutar las tareas de importaci贸n y vinculaci贸n de las mismas tablas:
Set DB = OpenDatabase (\"C:\\foxpro2\", False, False, \"FoxPro2.0\")
Se me dio el error reclamando \"ISAM Installable..\" entonces buscaba el componente de Installable ISAM por medio de Windows a traves de archivos con INI peor no lo encontraba.
  Respuesta:  tovares cr
Estimado Oscar

Tienes un poblema que es dificil y facil de solucionar a la vez

Lo veras !!!

Por la largada de la respuesta, esta en el archivo resp8203.txt.

    Pregunta:  8290 - COMO EJECUTAR PROGRAMA DESDE VISUAL BASIC PARA WINDOWSCE
Autor:  Baldormero Garcia
la funcion Shell de Visual Basic no esta implementada en el tool Kit de Visual Basic 6.0 para desarrollar en windows CE.
驴 Como llamar a otra aplicacion ?
  Respuesta:  Antonio Quintela
驴 Has probado con las funciones del API de Windows?.

Prueba con alguna de las siguientes:

Por la largada de la respuesta, esta en el archivo resp8290.txt

    Pregunta:  8375 - ARCHIVOS GR谩FICOS - COREL DRAW
Autor:  MARIO CARRILLO
Alguien sabe como visualizar archivos de Corel Draw en un objeto Image o Picture Box.
  Respuesta:  Roberto Avalos V.
Mi yo no he hecho eso que dices, lo que he hecho es abrir y manipular Corel Draw desde VB... yo creo que lo que puedes hacer (sino has podido a煤n hacer lo que dices) es mostrar la imagen que requieres dentro de Corel obviamente abriendola desde VB....

Si eso te sirve hazmelo saber para enviarte un ejemplo del c贸digo que utilizo para manipular Corel....

Suerte

    Pregunta:  8384 - MI NAVEGADOR COMO PROGRAMA PREDETERMINADO
Autor:  Alejandro Eduardo Henr铆quez Ardiles
Hola muchachos.
Sucede que tengo un navegador web creado con visual basic 6.0 y lo que quiero es que cada ves que lo ejecute me quede como predeterminado, es decir ejecuto el navegador, navego y cuando una pagina abra una nueva vetana de navegacion, que sea mi navegador el que se abra y no otro.

desde ya mucjas gracias.

Posdata. me gustaria hacerlo con codigo para despues volver toda la configuracion del sistema a la normalidad.
  Respuesta:  Kike Coello
Web Browser1 New Window

e.cancel = True
Dim nuevaventana As ventana
ventana = New Form1
Form1.Show()
Form1.WebBrowser1.Navigate(LabelDeEstado.Text)
  Respuesta:  SuNcO Casta帽eda
Mira mi chavo, para hacer eso ocupas moverte en el registro de Windows, si lo sabes usar ya la hisiste, mas bien si no le tienes miedo

Yo tengo un .OCX ke te deja leer y grabar cosas en el registro de Windows, lo unico ke ocupas es cambiar la clave HKEY_CLASSES_ROOT\htmlfile\shell\open\command ke tiene como predeterminada el iexplorer.exe o el netscape.exe con todo y la path claro

Solo cambias ese por tu programa y listo. Si gustas te mando el .OCX junto con un ejemplo de como usar el control, solo escribeme e indicame tu pregunta
  Respuesta:  Alejandro Eduardo Henr铆quez Ardiles
Soy el mismo de la pregunta, resolvi el problema asi:

Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim F As New Form1
F.Show 0, Me
Set ppDisp = F.WebBrowser1.object
End Sub

Igualmente gracias a todos.

    Pregunta:  8459 - AGREGAR FOTOS A UN PICTURE USANDO ADO
Autor:  Eric David Rivas
Trabajo con Windows '98 y Visual Basic 6.0, necesito saber c贸mo agregar fotos a mi base de datos en Access '97 desde VB 6.0 usando programaci贸n ADO. Las fotos las incrusto en un picturebox utilizando un CommonDialog, esto funciona bien usando DAO, pero al utilizar el control ADODC me guarda todos los campos excepto el de la fotografia que es un campo de tipo OLE. He probado guardar los datos por medio del Dataenvironment, y tambi茅n guardando la base en Access 2000 pero nada. Agradezco de antemano su ayuda, hasta luego...
  Respuesta:  Jim Adam Mi帽ano Wong
Por qu茅 no usas un control Ol茅

    Pregunta:  8488 - SELECCIONAR DE UN COMBO EL TEXTO MIENTRAS SE ESCRIBE
Autor:  Miguel ESquef
Ayuda al mundo!! Nesecito saber de que manera puedo hacer para que al escribir en un combo se vallan seleccionando los itens que conincidan con los caracteres que voy introduciendo en access lo hago pero en visual no le agarro el tranquillo. Muchas Gracias
  Respuesta:  Jos茅 Ariel Limandri
Crea un formulario con un combo (combo1) y pegale esto

Option Explicit

Private Const CB_FINDSTRING = &H14C
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Private Sub ComboChange(Combo As ComboBox)
Dim iStart As Integer
Dim sString As String
Static iLeftOff As Integer

iStart = 1
iStart = Combo.SelStart

If iLeftOff <> 0 Then
Combo.SelStart = iLeftOff
iStart = iLeftOff
End If

sString = CStr(Left(Combo.Text, iStart))
Combo.ListIndex = SendMessage(Combo.hwnd, _
CB_FINDSTRING, -1, ByVal CStr(Left( _
Combo.Text, iStart)))

If Combo.ListIndex = -1 Then
iLeftOff = Len(sString)
Combo.Text = sString
End If

Combo.SelStart = iStart

iLeftOff = 0
End Sub

Private Sub Combo1_Change()
ComboChange Combo1
End Sub

Private Sub Form_Load()
Combo1.AddItem "hola"
Combo1.AddItem "que"
Combo1.AddItem "tal"
End Sub

Dale F5 y suerte.

    Pregunta:  8489 - CONEXION VB CON SAE 2.0
Autor:  David Gutierrez
Alguien me puede dar info de como hacer una interfaz en Visual Basic para acceder a los datos de SAE 2.0 para consultar, modificar, etc...?, de antemano muchas gracias
  Respuesta:  Onorio Palavicini
Hola!

Esto lo debes de buscar en la informaci贸n t茅cnica que proporciona el paquete, si SAE cede alg煤n tipo de acceso a su informaci贸n fuera de su programa esto tiene que estar documentado en sus libros t茅cnicos.

Saludos.

|<  <<  160 161 162 163 164 165 166 167 168 169 170  >>  >|