|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Temas - [Zerox]
Páginas: [1]
1
« en: Domingo 28 de Junio de 2009, 17:56 »
Buen dia compañeros..
Tengo una duda con respecto a este control, tengo una aplicacion que usa este control y quisiera que al hacer click derecho en un nodo me muestre un menu contextual... solo cuando haga click en un nodo.. no fuera...
Con el contextmenu lo logro, pero este permite que el menu salga en cualquier parte del treeview, y yo quiero especificamente en un nodo...
He estado buscando informacion sobre como saber cuando se hace click en un nodo para yo poder hacerlo.. pero no la encuentro, haber si alguien me hecha una mano ..
Gracias de antemano
2
« en: Miércoles 22 de Octubre de 2008, 00:12 »
Ante todo buenas colegas, se que este tema ya se ha tocado en el foro, pero la verdad es que no he hayado ninguna solución concreta...
Bueno ante todo decirles que mi problema es el siguiente:
Tengo una aplicación cliente-servidor corriendo en mas de 5 Pcs, y lo que quisiera es bloquear un registro, les pongo un ejemplo:
Tengo una tabla Productos con el campo Stock... (BD Ventas)
(* Esto solo es un ejemplo)
ID DESCRIPCION STOCK
-- ---------------- --------
1 MUEBLE XXXX 2
Al momento en que 2 o 3 personas ingresan al Sistema y justamente en ese momento llegan 2 clientes y piden los 2 muebles cada uno en diferentes sucursales, en el Formulario de Ventas les aparecera 2 muebles a cada vendedor que este usando el sistema...
Logicamente el primero que haga la venta descargara el stock de muebles y el otro vendedor al momento de vender, obtendra un mensaje diciendo que ya se vendieron (previo controlador de errores)...
La idea es no hacer esperar al cliente para decirle despues que se acabo el stock...
Ojala me haya dejado entender
Lo que quisiera es bloquear el registro, o de alguna forma especificar que ese registro esta siendo usado para una venta...
Gracias de antemano
3
« en: Miércoles 20 de Agosto de 2008, 04:49 »
Buenas colegas, en esta oportunidad con cierta duda
He terminado de hacer un codigo para Imprimir Factura/Boleta, lo probe en una impresora canon del trabajo y corrio bien, cuando la lleve a otra PC con otra Impresora de la MIsma marca, me sale desalineado, y quisiera saber en que estoy fallando, lo que hago es solo darl en ScaleMode = 4, pero en un foro leí que debería ponerle el tamaño de la Factura o de la Boleta en ScaleHeigh y ScaleWIdth del obj. Printer, pero quisiera saber porque el fallo, el codigo les pongo a continuación:
' ******************************************************************************************************** INICIO
Private Sub CmdImprimir_Click()
On Error GoTo Impresion
'*********************************************** Verificando Datos Completos
'MsgBox Printer.ScaleHeight & " ------ " & Printer.ScaleWidth
' MsgBox Printer.ScaleMode
'MsgBox Printer.CurrentX & " ------ " & Printer.CurrentY
If CboTipoDoc.Text = "FACTURA DE VENTA" Then
'********************************* Verificando DATOS DEL CLIENTE
If Trim(TxtCliente.Text) = "" Then
MsgBox "Ingrese la Razón Social del Cliente", vbInformation, "Faltan Datos"
TxtCliente.SetFocus
Exit Sub
End If
'********************************* Verificando RUC DEL CLIENTE
If Len(TxtRUC.Text) = 0 Then
MsgBox "Ingrese el RUC del Cliente", vbInformation, "Faltan Datos"
TxtRUC.SetFocus
Exit Sub
Else '********************************* Verificando RUC DEL CLIENTE CON 11 CARACTERES
If Len(TxtRUC.Text) <> 11 Then
MsgBox "El RUC del Cliente debe tener 11 dígitos", vbInformation, "Faltan Datos"
TxtRUC.SetFocus
Exit Sub
End If
End If
'Printer.ScaleHeight = 1600 'Alto
'Printer.ScaleWidth = 2120 'Ancho
Else 'Si es BOLETA DE VENTA
'Printer.ScaleHeight = 1580 'Alto
'Printer.ScaleWidth = 1060 'Ancho
End If
'*********************************************** Imprimiendo
Printer.ScaleMode = 4
Printer.FontName = "Microsoft Sans Serif"
Printer.FontSize = 8
'************************************************ C A B E Z E R A *************************************
'///////////////////////////////////////////////Imprimiendo el Nombre del Cliente
Printer.CurrentX = 10 'Horizontal
Printer.CurrentY = 9.5 'Vertical
Printer.Print Trim(TxtCliente.Text)
'///////////////////////////////////////////////Imprimiendo la Direccion del Cliente
If Trim(TxtDir.Text) <> "" Then
Printer.CurrentX = 12 'Horizontal
Printer.CurrentY = 11 'Vertical
Printer.Print Trim(TxtDir.Text)
End If
'///////////////////////////////////////////////Imprimiendo la Fecha de la Cabezera
'***********************************************
Printer.CurrentX = 64.5 'Horizontal
Printer.CurrentY = 11.5 'Vertical
Printer.Print CStr(Day(DTFecha.Value))
'*************************************
Printer.CurrentX = 73 'Horizontal
Printer.CurrentY = 11.5 'Vertical
Printer.Print CStr(MonthName(Month(DTFecha.Value)))
'*************************************
Printer.CurrentX = 94 'Horizontal
Printer.CurrentY = 11.5 'Vertical
Printer.Print Right(CStr(Year(DTFecha.Value)), 1)
'***********************************************
'///////////////////////////////////////////////Imprimiendo el RUC del Cliente
If Trim(TxtRUC.Text) <> "" Then
Printer.CurrentX = 11 'Horizontal
Printer.CurrentY = 12.5 'Vertical
Printer.Print Trim(TxtRUC.Text)
End If
'///////////////////////////////////////////////Imprimiendo los Articulos
RsTemp.MoveFirst
Dim x As Single
x = 16 'Vertical para todo el item
Do While Not RsTemp.EOF
'************************************
'Cantidad
Printer.CurrentY = x 'Vertical para todo el item
Printer.CurrentX = 6 'Horizontal
Printer.Print RsTemp(0)
'Descripción
Printer.CurrentY = x 'Vertical para todo el item
Printer.CurrentX = 15 'Horizontal
Printer.Print RsTemp(1)
'Precio Unitario
Printer.CurrentY = x 'Vertical para todo el item
Printer.CurrentX = 73 'Horizontal
Printer.Print RsTemp(2)
'Importe
Printer.CurrentY = x 'Vertical para todo el item
Printer.CurrentX = 85 'Horizontal
Printer.Print RsTemp(3)
'************************************
x = x + 1.5
RsTemp.MoveNext
Loop
'///////////////////////////////////////////////Imprimiendo los Letras-Precio
Printer.CurrentX = 10 'Horizontal
Printer.CurrentY = 31 'Vertical
Printer.Print Trim(LblMsje.Caption)
'///////////////////////////////////////////////Imprimiendo Subtotal
Printer.CurrentX = 85 'Horizontal
Printer.CurrentY = 31 'Vertical
Printer.Print Trim(TxtSubtotales.Text)
'///////////////////////////////////////////////Imprimiendo IGV
If Val(TxtIgv.Text) > 0 Then
Printer.CurrentX = 85 'Horizontal
Printer.CurrentY = 32.5 'Vertical
Printer.Print Trim(TxtIgv.Text)
End If
'///////////////////////////////////////////////Imprimiendo Total
Printer.CurrentX = 85 'Horizontal
Printer.CurrentY = 34 'Vertical
Printer.Print Trim(TxtTotal.Text)
'///////////////////////////////////////////////Imprimiendo la Fecha del Detalle
'***********************************************
Printer.CurrentX = 25 'Horizontal
Printer.CurrentY = 34 'Vertical
Printer.Print CStr(Day(DTFecha.Value))
'*************************************
Printer.CurrentX = 32 'Horizontal
Printer.CurrentY = 34 'Vertical
Printer.Print Right("0" & CStr(Month(DTFecha.Value)), 2)
'*************************************
Printer.CurrentX = 37.5 'Horizontal
Printer.CurrentY = 34 'Vertical
Printer.Print Right(CStr(Year(DTFecha.Value)), 2)
'***********************************************
'******************************************************************************************************
Printer.EndDoc
Exit Sub
Impresion:
If Err.Number = 482 Then
MsgBox "No Existe ninguna Impresora instalada en su PC", vbExclamation, "Fallo la Impresión"
Else
MsgBox Err.Description, vbExclamation, "Fallo la Impresión"
TxtCliente.SetFocus
End If
End Sub
4
« en: Miércoles 7 de Mayo de 2008, 00:13 »
Ante todo Buenas colegas... Les Escribo porque me tope con un pequeño incoveniente en el desarrollo de un sistema que estoy implementando... Tengo un MdiPrincipal (Contenedor), y dentro de el un WebBrowser (Con una Animacion), cuando cargo los Formularios Hijos (MdiChildren), no me los muestra porque supuestamente el Control WebBrowser me los tapa... Alguno de ustedes les paso algo parecido...? Tuve en mente utilizar la Api SetParent para meter los MdiChildren dentro del WebBrowser, pero no me dio resultado... Busque en la Web pero ningun resultado... o tal vez no busque bien, espero su ayuda... Gracias ...! 
5
« en: Martes 4 de Marzo de 2008, 21:03 »
Buenas tios, que tal como les va, bueno soy un programador de VB 6.0, y pues recien estoy empezando con .NET y pues tengo una duda, quisiera saber que propiedad o que clase puede hacer lo que en basic hacia el autoredraw, osea redibujar la ventana o control ... Antes en VB se usaba Control.Autoredraw =true o Me.autoredraw = true... pero en .NET no lo encuentro no se si sera con la clase Drawing y quisiera que alguien me orientara que clase usar exactamente 
6
« en: Lunes 3 de Marzo de 2008, 23:58 »
Buenas a todos, les explico... Estoy implementando una interfaz amigable y deseo utilizar un Ocx para mis botones llamado KewlButtonz.ocx, bueno lo usaba bien en el vb 6.0 , lo agrego en el VB 2005(Elegir componente- referencias), me aparece en la barra de controles, pero al hacer click y ponerlo en el Formulario me salta un error como si no estuviera registrado, y eso que como ya puse anteriormente, lo registre, con regsvr32, y luego lo jale desde el mismo vb 2005... Alguien podria explicarme porke sucede esto, o es que el Control no funciona para este LP o tengo ke hacer otra serie de pasos.... Gracias de Antemano... 
7
« en: Miércoles 27 de Febrero de 2008, 19:05 »
Holas, bueno quisiera saber si fueran tan amables, que me explicaran como creo un instalador con InstallShield, Inno Setup o Create Install, que segun he escuchado es el mas facil... Bueno lo que pasa es que se que dependencias esta usando mi proyecto, pero no se en que ruta ponerles y todo eso al momento de crear el instalador, a ver si uno de Uds. me apoya explicandome bien el asunto de las dependencias y el lugar de destino que tendran al usar cualquier empaquetador o creador de Instaladores.. Muchas Gracias de Antemano ... 
8
« en: Viernes 9 de Marzo de 2007, 22:32 »
Hola Gentita del ƒoro...  Quisiera que me ayuden a encontrar el codigo para hacer que cada columna de un datagrid se adapte al contenido del registro al hacer doble click en la separacion o cuando setee los datos.. A ver si me dejo entender... De antemano Gracias Salu2
Páginas: [1]
|
|
|
Mostrar Mensajes
