|
|
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.
Mensajes - Sagutxo
Páginas: 1 ... 3 4 [5] 6 7 ... 13
101
« en: Miércoles 7 de Junio de 2006, 16:21 »
Salu2. Prueba con esto. La función PulsaS es un msgbox. Suerte  
102
« en: Miércoles 7 de Junio de 2006, 10:41 »
103
« en: Lunes 5 de Junio de 2006, 22:15 »
Salu2. Pos eso, queria saber si es posible que al desinstalar un programa con el automático que crea el InnoSetup pase por alto el archivo que desee sin preguntarlo. Si es posible, ¿qué hay que poner en flags?. Gracias.
104
« en: Miércoles 17 de Mayo de 2006, 12:02 »
105
« en: Martes 16 de Mayo de 2006, 10:59 »
SAlu2. en este enlace tienes una mini aplicación para zipear DB o lo que le mandes. Tambien te voy a decir que las imagenes, al igual que el audio, no se comprimen, que yo sepa por lo menos. Enlace: http://foros.solocodigo.com/index.php?show...hl=comprimebase
106
« en: Lunes 15 de Mayo de 2006, 11:48 »
Salu2. En este post tienes una miniaplicación para que crear un .iss a partir del .lst que crea el compilador de VB6. Espero que te sirva, si tienes dudas de como va pregunta y te contesto  http://foros.solocodigo.com/index.php?show...o%20setup&st=15Creo que está en la 2ª pag, se llama CreaIss.
107
« en: Miércoles 29 de Marzo de 2006, 13:03 »
Salu2. Siento desilusionarte, pero metiendo el form en cualquier proyecto se supone que ha de funcionar, lo he probado y a mi me funciona. Prueba a desconectar antes de mandar el 2º archivo, no es normal, pero por probar no pierdes nada. En mi Form solo pinchas 2 veces el archivo que quieres mandar y lo manda, eso si, tendrás que poner tu los datos correctos del FTP. Recuerda que algunos gestores de FTP no te permiten mandar mas que una vez el archivo a no ser que lo deletees con su comando apropiado. akí te dejo una función similar la usas poniendo: MandaArchivo PathArchivo Private Function MandaArchi(ValStr As String) Dim hConnection As Long, hOpen As Long, sOrgPath As String hOpen = InternetOpen("API-Guide sample program", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) hConnection = InternetConnect(hOpen, "IP", PUERTO, "Usuario", "Password", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0) 'crear buffer con path original sOrgPath = String(MAX_PATH, 0) 'Ejemplo 'FtpPutFile hConnection, "Archivo a subir", "Nombre de archivo con el que se sube", FTP_TRANSFER_TYPE_BINARY, 0 FtpPutFile hConnection, ValStr, ValStr, FTP_TRANSFER_TYPE_BINARY, 0 'regreso al path de inicio 'FtpSetCurrentDirectory hConnection, sOrgPath 'cierro conexión InternetCloseHandle hConnection InternetCloseHandle hOpen End Function
Estas d eclaraciones y variables las puedes poner como globales en el Form o en un módulo .BasConst FTP_TRANSFER_TYPE_UNKNOWN = &H0 Const FTP_TRANSFER_TYPE_ASCII = &H1 Const FTP_TRANSFER_TYPE_BINARY = &H2 Const INTERNET_DEFAULT_FTP_PORT = 21 ' default for FTP servers 'Const INTERNET_DEFAULT_FTP_PORT = 15896 ' default for FTP servers Const INTERNET_SERVICE_FTP = 1 Const INTERNET_FLAG_PASSIVE = &H8000000 ' used for FTP connections Const INTERNET_OPEN_TYPE_PRECONFIG = 0 ' use registry configuration Const INTERNET_OPEN_TYPE_DIRECT = 1 ' direct to net Const INTERNET_OPEN_TYPE_PROXY = 3 ' via named proxy Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4 ' prevent using java/script/INS Const MAX_PATH = 260 Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean Private Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszCurrentDirectory As String, lpdwCurrentDirectory As Long) As Long Private Declare Function FtpCreateDirectory Lib "wininet.dll" Alias "FtpCreateDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean Private Declare Function FtpRemoveDirectory Lib "wininet.dll" Alias "FtpRemoveDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean Private Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" (ByVal hFtpSession As Long, ByVal lpszExisting As String, ByVal lpszNew As String) As Boolean Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByRef dwContext As Long) As Boolean Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Private Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" (lpdwError As Long, ByVal lpszBuffer As String, lpdwBufferLength As Long) As Boolean Private Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long Const PassiveConnection As Boolean = True
A ver si ahora me he explicado mejor
108
« en: Domingo 26 de Marzo de 2006, 18:58 »
Salu2. Akí tienes como leer y cambiar valores
Para leer:
ValStr=String
ValStr = IniGet(PathAIni, "Seccion", "KeyName", "Valor default")
ValStr = IniGet(PathAIni, "PathDBs", "Db1", AppPath)
Para escribir:
IniWrite PathAIni, "Seccion", "KeyName", "Valor"
IniWrite PathAIni, "PathDbs", "DB1", "C:\"
Suerte
109
« en: Domingo 26 de Marzo de 2006, 16:33 »
110
« en: Domingo 26 de Marzo de 2006, 16:25 »
Salu2. uffff, perdoname nuevamente me he equivocado, akí te dejo el form. mil escusas 
111
« en: Sábado 25 de Marzo de 2006, 21:37 »
Akí te dejo una aplicación que lo hace . Esta cogido de un ejemplo del AllApiSuerte.
112
« en: Viernes 24 de Marzo de 2006, 21:41 »
Salu2. jejeje si mil perdones, es una minifunción mia que controla los errores por un número, pero finalmente acaba siendo un msgbox con la opción de solo aceptar así que sustituyelo y te irá perfecto, lo siento 
113
« en: Viernes 24 de Marzo de 2006, 12:20 »
Salu2. El comando es el apropiado lo que hace pensar que alguno de los 2 path es incorrecto FileCopy PathName, NewPathNameEjecuta el código hasta ese linea y mira cuales son las direcciones. Yo hago las copias en un zip y te voy a dejar el cçodigo por si quieres usarlo. es un .bas. El comando es: ComprimeBase PathDeBase, PathYNombre PathDeBase = AppPath+NombreBase 'normalmente Path.Y.Nombre = path y nombrede archivo zip, sin extensiónAquí te dejo el .bas y las 2 .dll necesarias la 2 .dll te hará falta meterlas en el system32 de todas tus aplicaciones. Tengo entendido que son gratuitas. Espero no liarte mucho , este código lo cogí de alguna pag y lo modifiqué a mi gusto, así que toketealo un poco y veras que va de lujo.
114
« en: Viernes 10 de Marzo de 2006, 12:19 »
Salu2. Pos si que es raro, prueba a cambiarlo de path, quitando por ejemplo los caracteres '-', sustitúyelos por el caracter '.' a ver. A ver si hay suerte .
115
« en: Miércoles 8 de Marzo de 2006, 18:45 »
Salu2. El combo lo puedes borrar así de simple Combo.Clearagur
116
« en: Miércoles 8 de Marzo de 2006, 12:04 »
SAlu2. Yo uso esto para DAO. Set AbreBase = OpenDatabase(PathDB, False, False, "; pwd=" & PassDB) AbreBase.TableDefs.Refresh For Each AbreTablas In AbreBase.TableDefs If (AbreTablas.Attributes And dbSystemObject) = 0 Then Tabla1.Rows = (Tabla1.Rows + 1) Tabla1.Row = (Tabla1.Rows - 1) Tabla1.TextMatrix(Tabla1.Row, 0) = AbreTablas.Name End If Next Abrebase.Close Set AbreBase = Nothing
Esto mete todas las tablas existentes en 1 MsFlexGrid llamado Tabla1. Espero te sea de ayuda
118
« en: Domingo 5 de Marzo de 2006, 11:54 »
119
« en: Viernes 3 de Marzo de 2006, 22:17 »
Salu2. Me gustaria poder utilizar un control DirectSS desde un modulo .bas, ¿existe alguna manera de hacerlo?, osea que no figure en ningun formulario en concreto. Por ejemplo el control del Crystal Report se puede poner el en Formulario MDI, pero el DirectSS parece que no . Muchas gracias.
120
« en: Jueves 2 de Marzo de 2006, 16:55 »
Salu2. DBEngine.CompactDatabase PathDeBaseACompactar, NuevaBaseCompactada, dbLangGeneral, , PassDb
Luego solo tendras que borrar la DB vieja y renombrar la DB nueva. Tambien podrías crear antes un .zip de la DB vieja por si acaso el proceso no fuera bien. Espero que te funcione, a mi si
121
« en: Miércoles 1 de Marzo de 2006, 17:19 »
Salu2. Como veo que lo anterior parece no saber como hacerlo nadie. ¿Se podría guardar la imagen en un JPG o BMP pero con la posiblidad de elegir yo las dimensiones de ella?. ¿y mandarla despues a la impresora directamente? Gracias.
122
« en: Miércoles 1 de Marzo de 2006, 12:52 »
SAlu2. necesitaras un formalurio donde poder introducir stock, supongo que con 2 Textbox, unidades y precio, y un msflexgrid para controlar lo que se está introduciendo basta. cada vez que el lector lea algo que pase al msflexgrid, ponga las unidades a 1 y vacie precio, muy sencillo. Para crear factura algo sencillo, con 1 textbox, numero de unidades, y un msflexgrid, donde meter los productos que se están introduciendo te basta. Respecto a productos SIN Código de barras, si el producto es legal dudo que venga sin el . Aunke si se que hay programas para creacion de códigos de barras, en este momento no me sale ninguno. Además no pueden haber 2 Códigos iguales. A la hora de introducir nuevo siempre puedes poner, en la tabla, el campo CodBarras como que no puede haber 2 iguales. aunke ya te digo que supongo que legalmente eso es imposible, que haya 2 iguales. Respecto al formato, nunca tube que tocar nada, así que no se a que se refiere, lo siento . Esto es solo una idea, cada programador tiene sus gustos y lo entiendo. Un saludo.
123
« en: Martes 28 de Febrero de 2006, 10:47 »
Salu2. Se instala la aplicacion en win98 y al ejecutar el exe de tu aplicación casca? o Casca la instalación de tu aplicación en el HD ? Espero no ser pesado.
124
« en: Lunes 27 de Febrero de 2006, 19:13 »
Salu2. Te contesto aquí porque no se como hacerlo en el otro lado . Hace mas de 2 años que lo hice, de hecho no tengo ni las fuentes, pero es muy sencillo. lleva como un ladrón de clavija de teclado y se pone con el teclado. Te creas el formulario con un textbox por ejemplo, y procura que siempre esté el setfocus en el, lo demás es simplemente diseño a gusto del programador, creo que deberias de empezar comprando uno de esos lectores de códigos para hacer tus pruebas, la programacion es exactamente igual. Siento no poderte ser de mas ayuda
125
« en: Lunes 27 de Febrero de 2006, 15:10 »
Salu2. Solo he utilizado una vez, y no tube que hacer nada, el lector de códigos de barras se acoplaba al teclado, al pasarlo se escribe en el campo activo y hago lo que quiero con él. Respecto a donde comprarlo, entre en una tienda de informática y me lo facilitaron. no llevaba ni software ni nada. así que puedes imaginarte la sencillez del tema. Espero que te ayude en algo, aunque la verdad es que no haymucho que explicar.
Páginas: 1 ... 3 4 [5] 6 7 ... 13
|
|
|
Mostrar Mensajes
