Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - fkof

#1
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 :D
#2
Cita de: BrokerJoker en 23 Enero 2012, 23:23 PM
y para hacer lo mismo pero con esto

        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
#3
.NET (C#, VB.NET, ASP) / Re: Pintar objetos
23 Enero 2012, 19:06 PM
puedes hacerlo con graficas, busca graficas en .net esta facil :D, es el evento paint, es lo que recuerdo xD
#4
if timer1.enable=true then
timer1.enable=false
else
timer1.enable=true



asi de sencillo :D
#5
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
#6
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
#7
no te da la barra de al lado que se llama explorador se soluciones???,
abres el archivo .snl???
#8
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.
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