Buenas tardes, sabria agradecer mucho si alguien me ayuda con este error, puede que sea algo sencillo pero no tengo idea como resolverlo... gracias de antemano a quien me pueda ayudar el error es: el argumento no es opcional y este es el codigo en Vb 6 con una base de datos en sql server
Public Function GenerarNoH(CentProg As String, Anio2 As String) As String
Dim rsOts As ADODB.Recordset
Dim CentProg1 As String, OTS_MAX As String
Dim TxtSQL As String
CentProg = Trim(CentProg)
CentProg1 = CentProg & Anio2 & "0001"
CentProg2 = CentProg & Anio2 & "00001"
Set rsOts = CrearRS("SELECT SolicServ.CodSolicServ FROM SolicServ WHERE CodSolicServ='" & CentProg1 & "' Or CodSolicServ='" & CentProg2 & "'")
If rsOts.RecordCount = 0 Then
GenerarNoH = "00001"
Exit Function
Else
CentProg1 = CentProg & Anio2 & "99999"
TxtSQL = "SELECT MAX(CONVERT(NUMERIC(5), RIGHT(RTRIM(CodSolicServ), LEN(CodSolicServ) - 6))) AS OTS_MAX " _
& "From SolicServ WHERE (LEFT(CodSolicServ, 6) = LEFT('" & CentProg1 & "', 6))"
Clipboard.Clear
Clipboard.SetText TxtSQL
Set rsOts = CrearRS(TxtSQL)
If Len(Trim(rsOts("OTS_MAX"))) = 10 Then
GenerarNoH = "0" & Right(Incrementar(rsOts("OTS_MAX")), 4)
Else
GenerarNoH = Quitarnulo(
Right(Incrementar(rsOts("OTS_MAX"))), 5)
End If
GenerarNoH = CompletarCeros(GenerarNoH, 5)
End If
End Function
da el error en estas lineas de codigo
Public Function GenerarNoH(CentProg As String, Anio2 As String) As String
GenerarNoH = Quitarnulo(
Right(Incrementar(rsOts("OTS_MAX"))), 5)
