1.-Abre Inicio001
2.- Escribe esta sintaxis en la linea 4 Me.BorderStyle = 1
3.-Que este antes de la linea Me.Caption = Ambiente.Empresa
4,.Guarda el Procedimiento
5-Ejecuta el Punto de Venta
Existe un error al intentar hacer la conexión -2147467259 Error al procesar el registro de la base de datos ‘C: \MyBusinessDatabase\MyBusinessPOS2012.mdf’. Si es posible, restaure la base de datos a partir de una copia de seguridad. Si no dispone de una copia de seguridad, puede ser necesario generar de nuevo el registro. código duro 5
Este es un ejemlo de cómo exportar a un archivo de texto.
Sub Main()
Dim rstClientes
Dim s
Set rstClientes = CreaRecordSet( _
"SELECT * FROM clients", Ambiente.Connection )
s = ""
If ExisteArchivo( "c:\clientes.txt" ) = True Then
If Question( "Desea eliminar el archivo", 2 ) = True Then
EliminaArchivo "c:\clientes.txt"
End If
End If
While Not rstClientes.EOF
s = Chr(34) & rstClientes("cliente") & Chr(34) & _
Chr(9) & Chr(34) & rstClientes("nombre") & Chr(34) & _
Chr(9) & Chr(34) & rstClientes("telefono") & Chr(34) & vbCrLf
OutLine "c:\clientes.txt", s
rstClientes.MoveNext
Wend
If Question( "Desea abrir el archivo", 1 ) = True Then
ShellRun Parent.hWnd, "Open", "c:\clientes.txt"
End If
End Sub
Este script puede ser de utilidad si quisiéramos ver un texto con los clientes o cualquier otro layout que se requiera para otros sistemas.
He utilizado para servicoos como facturación cfdi y para tiempo aire.
La función ExisteArchivo es genial porque lo único que escribimos como parámetro es la ruta de nuestro archivo de texto.
Lo importante es probar todas las posibilidades que existen para tener la información disponible para hacer lo que las reglas del negocio requiere.