Mensajes

ya pude conectarme el error es por la configuracion regional de la makina donde lo estoy haciendo deve terner la config regional del sat, la de guadalajara, saludos y pos el moderador puede cerrar el tema gacias

y para hacer lo mismo pero con esto

Código [Seleccionar] Expandir


        Dim hotkey As Boolean
        hotkey = GetAsyncKeyState(Keys.F10)
        If hotkey = True Then

Como se haria?

busca ammm algo de atajos con teclado, alli una propiedad o evento algo asi no recuero pero lo allas con eso

puedes hacerlo con graficas, busca graficas en .net esta facil , es el evento paint, es lo que recuerdo xD

if timer1.enable=true then
timer1.enable=false
else
timer1.enable=true



asi de sencillo

mira yo lo hago asi xD, amm bueno este codigo sirver para  crear la bd, en una ruta y despues conectarte a ella y crear una tabla dentro del mismo bd, amm nada mas estudiate el cod alli esta la cadena de conexion hacia el accses:D

Imports ADOX
Imports System.Data.OleDb
Public Class Form1
    Dim dt As DataTable
    Dim cmd As OleDb.OleDbCommand
    Public DataSet1 As DataSet
    Dim el_patch As String = "C:\bd"
    Dim DatabaseFullPath As String = "C:\bd\hola.mdb"
    Dim sCreateString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseFullPath
    Dim bd As New OleDbConnection(sCreateString)
    Dim objcreatablas As creatabla = New creatabla
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Dir(el_patch, vbDirectory) = vbNullString Then
            'Crea la carpeta 
            Call MkDir(el_patch)
        End If

        Dim bAns As Boolean
        If el_patch = vbNullString Then
            Exit Sub
        End If
        If Dir("C:\bd\hola.mdb", vbDirectory) = vbNullString Then
            Dim cat As New ADOX.Catalog()
            Try
                cat.Create(sCreateString)
                bAns = True

                bd.ConnectionString = sCreateString
                bd.Open()

                objcreatablas.creatabla("CREATE TABLE customer" & _
                                        "(Name char(50)," & _
                                        "direccion char(50)," & _
                                        "telefono char(50))")

               
            Catch Excep As System.Runtime.InteropServices.COMException
                bAns = False

            Finally
                cat = Nothing
            End Try


        End If
     
    End Sub
    'DEMO
    '      If CreateAccessDatabase("F:\test.mdb") = True Then
    '           MsgBox("Database Created")
    '      Else
    '           MsgBox("Database Creation Failed")
    '      End If

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        objcreatablas.creatabla(String.Format("insert into customer values('{0}','{1}','{2}')", TextBox1.Text, TextBox2.Text, TextBox3.Text))
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        bd.Open()

        Dim da As New OleDbDataAdapter("SELECT * FROM customer", bd)
        Dim ds As New DataSet
        da.Fill(ds)
        data.DataSource = ds.Tables(0)
        bd.Close()

    End Sub
End Class

la primera vez que oprimas f10, preguntas si el timer esta funcionando
si no lo esta que comienze, y si esta pos que se detenga asi lo aria

no te da la barra de al lado que se llama explorador se soluciones???,
abres el archivo .snl???

hola a a todos soi nuevo en este foro , y kisiera hacerles una pregunta, alguien ha hecho ya la conexion con el SAT de mex, para lo de la ventanilla unica?? pero con servidor proxy, yo tengo ya como pero el codigo me arroja un erro :S y me dice que no puedo conectame a la pagina :S

este es el error :S
An unsecured or incorrectly secured fault was received from the other party. See the inner FaultException for the fault code and detail.

y aqui mi codigo por si alguien ya lo hizo  o empezara pos tambien que les ayude.

Código [Seleccionar] Expandir

Imports ServiceReference1
Imports ServiceReference2
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim cliente As New ServiceReference1.ReceptorClient
    Dim comprobantes() As ComprobanteValorElectronico
    Dim c As New ComprobanteValorElectronico
    Dim acuse As New Acuse
    Protected Sub ASPxButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ASPxButton1.Click
        cliente.ClientCredentials.UserName.UserName = "CXX1111169M5"
        cliente.ClientCredentials.UserName.Password = "wUDoo7g0ffPmRB+mfyfiMEbMxRTXjXrOb1Jv6IKvxChLZaFyBf/pjMQLw5lk0YsP"

        c.tipoIdentificador = 1
        c.rfcConsulta = "KAAAR6606"
        c.correoElectronico = "correo@gmail.com"
        ReDim comprobantes(0)
        comprobantes(0) = c


        Try
            acuse = cliente.RecibirCove(comprobantes)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class


esta hecho en asp.net con vb, espero y puedan ayudarme, yo pienso que el error es por el proxy pero = y este equivocado..
saludos