none
problema con estructura RRS feed

  • Pregunta

  • al llamar una funcion me sale este error

    Intento de leer o escribir en la memoria protegida. A menudo, esto indica que hay otra memoria dañada.

    Declare Function fAltaDocumento Lib "MGW_SDK.DLL" (ByRef aIdDocumento As Long, aDocto As tDocumento) As Long

     Structure tDocumento

            Public aFolio As Double
            Public aNumMoneda As Integer
            Public aTipoCambio As Double
            Public aImporte As Double       ' Importe se asigna solamente cuando se va crear un documento de CxC o CxP, en otro su valor es cero.
            Public aDescuentoDoc1 As Double ' No tiene uso, valor de omision = 0
            Public aDescuentoDoc2 As Double ' No tiene uso, valor de omision = 0
            Public aSistemaOrigen As Integer   ' Valor mayor a 5 que indica una aplicación diferente a los PAQ's
            Public aCodConcepto As String
            Public aSerie As String
            Public aFecha As String  ' Formato mm/dd/aaaa. Las diagonales "/" son parte del formato
            Public aCodigoCteProv As String
            Public aCodigoAgente As String
            Public aReferencia As String
            Public aAfecta As Integer          ' No tiene uso, valor de omision = 0
        End Structure

    Dim aDocto As tDocumento

     With aDocto
                                    .aFolio = aFolio
                                    MessageBox.Show("folio es " & aDocto.aFolio)
                                    .aNumMoneda = 1
                                    MessageBox.Show("Sistema moneda es " & aDocto.aNumMoneda)
                                    .aTipoCambio = CDbl(1)
                                    MessageBox.Show("Sistema tipocambio es " & aDocto.aTipoCambio)
                                    .aImporte = CDbl(0)
                                    MessageBox.Show("Sistema importe es " & aDocto.aImporte)
                                    .aDescuentoDoc1 = CDbl(0)
                                    MessageBox.Show("Sistema descuento1 es " & aDocto.aDescuentoDoc1)
                                    .aDescuentoDoc2 = CDbl(0)
                                    MessageBox.Show("Sistema descuento2 es " & aDocto.aDescuentoDoc2)
                                    .aSistemaOrigen = CInt(5)
                                    MessageBox.Show("Sistema de origen es " & aDocto.aSistemaOrigen)
                                    .aCodConcepto = aCodigoConcepto
                                    f_RellenaConBlancos(aDocto.aCodConcepto, kLongCodigo)
                                    MessageBox.Show("Sistema codconcepto es " & aDocto.aCodConcepto)
                                    .aSerie = aSerie
                                    f_RellenaConBlancos(aDocto.aSerie, kLongNumSerie)
                                    MessageBox.Show("Sistema Serie es " & aDocto.aSerie & "mmmm")

                                    Dim fechassd As String
                                    fechassd = "02/02/2013"
                                    .aFecha = fechassd 'Format(Now, "MM/DD/YYYY")
                                    f_RellenaConBlancos(aDocto.aFecha, kLongFecha)
                                    MessageBox.Show("Sistema Fehca es " & aDocto.aFecha)
                                    prov = "244"
                                    .aCodigoCteProv = prov
                                    f_RellenaConBlancos(aDocto.aCodigoCteProv, kLongCodigo)
                                    MessageBox.Show("Sistema de codigocteProv es " & aDocto.aCodigoCteProv)

                                    .aCodigoAgente = agente
                                    f_RellenaConBlancos(aDocto.aCodigoAgente, kLongCodigo)
                                    MessageBox.Show("Sistema codagenten es " & aDocto.aCodigoAgente)
                                    ref = "1"
                                    .aReferencia = ref
                                    f_RellenaConBlancos(aDocto.aReferencia, kLongReferencia)
                                    MessageBox.Show("Sistema de Referencia es " & aDocto.aReferencia)
                                    .aAfecta = CDbl(0)
                                    MessageBox.Show("Sistema afecto es " & aDocto.aAfecta)
                                End With

     lError = fAltaDocumento(aIdDocumento, aDocto) 'paso los parametros

    miércoles, 27 de febrero de 2013 17:49

Todas las respuestas