Visual Basic - error con visual basic 6.0

Life is soft - evento anual de software empresarial
   
Vista:

error con visual basic 6.0

Publicado por Reina Suarez (2 intervenciones) el 03/06/2013 21:34:53
Alguien que me pueda ayudar el siguiente código me da error 3163, me dice que el campo es demasiado pequeño error FrmLiquidacion::Comand2_Click


Private Sub CmdGenerar_Click()
Dim parrafosancion As String, vigenciacot As String, vigenciacottxt As String, Aparte As String, apartetexto As String, TextoNumeral As String, itprimera As String, imparcot As String
Dim segundamas As String, itextoconut As String, impartcot As String, reporteliq As String, textoreq As String
Dim NroResol As String, parrafo1 As String
Dim nprovidencia As Integer
Dim textoincre As String
Dim recaux2 As Recordset, recprovce1 As Recordset, recprovce2 As Recordset
On Error GoTo ErrCode
CallStackPush "FrmLiquidacion::Command2_Click"
EntryPoint = 0
Set tNum2Text = New cNum2Text
DbReporte.Execute "DELETE * FROM LIQUIDACION_PARRAFOS;"
DbReporte.Execute "DELETE * FROM LIQUIDACION_CONCURRENCIA;"
AbrirRec recresolucion, "Liquidacion_Parrafos", DbReporte, Dynaset
AbrirRec Recdetalleres, "Liquidacion_Concurrencia", DbReporte, Dynaset
strSQL = "SELECT * from Dependencias WHERE Cod_Dependencia=" & lblsectorsus.Caption & ";"
AbrirRec recaux2, strSQL, Db, Snapshot
If recaux2.RecordCount <> 0 Then
If Entrada = 3 Then
parrafobl = recaux2!Base_Legal
ElseIf Entrada = 10 Then

parrafobl = recaux2!Base_LegalCE
ElseIf Entrada = 5 Then
parrafobl = recaux2!Base_LegalDR
End If
tipodepsus = recaux2!Tipo_Dependencia
siglasdep = recaux2!Siglas_CodDep
ciudadresol = recaux2!Ciudad_CodDep
End If
numero = CLng(txtnroexp.Text)
anno = CLng(txtannoexp.Text)

If Entrada = 3 Then '//AQUI TAMBIEN CAMBIA EL CODIGO AL DESCENTRALIZAR LOS SECTORES
generarResolFisca
ElseIf Entrada = 7 Then
generarResolReint
ElseIf Entrada = 10 Then
'generamos la resolucion de contribuyentes especiales
generarResolCE
ElseIf Entrada = 5 Then
'generamos la resolucion de Cobros Administrativos
generarResolCobros

Else
MsgBox "Opción no disponible"
End If
CallStackPop
Exit Sub
ErrCode:
RaiseErrMsg "FrmLiquidacion::Command2_Click", Err
Resume Next
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder