tengo una estruntura de datos
Código:
Public 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 Long ' No tiene uso, valor de omision = 0
End Structure
la lleno
Código:
RegDocumento.aFolio = aFolio
RegDocumento.aNumMoneda = 1
RegDocumento.aTipoCambio = CDbl(1)
' RegDocumento.aImporte = CDbl(0)
RegDocumento.aImporte = CDbl(0)
RegDocumento.aDescuentoDoc1 = CDbl(0)
RegDocumento.aDescuentoDoc2 = CDbl(0)
RegDocumento.aSistemaOrigen = CLng(5)
Dim prov, agente, ref As String
agente = "24"
RegDocumento.aCodigoAgente = agente
f_RellenaConBlancos(RegDocumento.aCodigoAgente, kLongCodigo)
RegDocumento.aFecha = "02/02/2013" 'Format(Now, "MM/DD/YYYY")
f_RellenaConBlancos(RegDocumento.aFecha, kLongFecha)
'llenamos el aCodigoConcepto con vacios y un caracter nulo
f_RellenaConBlancos(aCodigoConcepto, kLongCodigo)
RegDocumento.aCodConcepto = aCodigoConcepto
f_RellenaConBlancos(aSerie, kLongNumSerie)
RegDocumento.aSerie = aSerie
prov = "243"
RegDocumento.aCodigoCteProv = prov
f_RellenaConBlancos(RegDocumento.aCodigoCteProv, kLongCodigo)
ref = "1"
RegDocumento.aReferencia = ref
f_RellenaConBlancos(RegDocumento.aReferencia, kLongReferencia)
RegDocumento.aAfecta = 0
pero a la hora de usar una funcion
Código:
sdxas = fAltaDocumento(aIdDocumento, RegDocumento)
me marca el error que lleva el nombre este comentario,, por su ayuda muchas gracias