DULPHI
18 de Febrero del 2010

PRIMERO EN MI TRABAJO TRABAJABA CON EL FOX PRO Y VISUAL BASIC 6.0 Y A LA HORA DE CAMBIAR A LA BASE DE DATOS ORACLE TENGO CONFLICTOS CON ALGUNAS SENTENCIAS POR EJEM EL FORMAT LO CAMBIO POR TO_CHAR Y ME PIDEN UN SUB FUNCION COMO PUEDO SOLUCIONAR LES MANDO EL CODIGO
Private Sub Editar()

Dim i As Integer


If flex.Row = 0 Then Exit Sub

With w_editactividad

.lblID = flex.TextMatrix(flex.Row, 8)


.CboTrim.Value = "Trim " & flex.TextMatrix(flex.Row, 0)
.CboSitAct.Value = flex.TextMatrix(flex.Row, 7) & " -" & flex.TextMatrix(flex.Row, 9)
.lblRSocial.Caption = Me.TextRsocial.Text

.TextFENVDP.Text = TO_CHAR(flex.TextMatrix(flex.Row, 1), "Short Date")
.TextFCARGO.Text = TO_CHAR(flex.TextMatrix(flex.Row, 2), "Short Date")
.TextFENV1M.Text = TO_CHAR(flex.TextMatrix(flex.Row, 3), "Short Date")
.TextFENVUM.Text = TO_CHAR(flex.TextMatrix(flex.Row, 4), "Short Date")
.TextFOFRES.Text = TO_CHAR(flex.TextMatrix(flex.Row, 5), "Short Date")
.TextFLLEGA.Text = TO_CHAR(flex.TextMatrix(flex.Row, 6), "Short Date")


.lblANIO = Cboperiodo.Text
.lblRUC = Trim(Me.TextRUC.Text)
.ACCION = EDITAR_REGISTRO2
.Caption = "Actividades. Editar Registro"

.Show vbModal
Call conexcargaFlex

End With

End Sub