Contactanos y Personaliza tu Punto de Venta MybusinessPOS
Nestor Octavio Guzman Bernal
Desarrollador de Soluciones
Cel.: (722) 7 70 16 56
WhatsApp: (722) 7 70 16 56
Contacto: jofelchez@gmail.com Blog idependiente del fabricante que tiene como objetivo apoyar a los compañeros distribuidores y usuarios finales que han tenido problemas críticos con este software y sobre todo porque en Soporte Técnico no los atienden, Reportes, Configuraciones y Ajustes del Sistema de Punto de Venta MyBusiness POS. Escribe tus Comentarios...
Nestor Octavio Guzman Bernal
Desarrollador de Soluciones
Cel.: (722) 7 70 16 56
WhatsApp: (722) 7 70 16 56
Esta Poderosa Herramienta. Te dará Oportunidad de Hacerlo
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