Visual Basic - sistema de facturacion

Life is soft - evento anual de software empresarial
 
Vista:

sistema de facturacion

Publicado por fede (189 intervenciones) el 23/06/2005 14:16:05
Hola [email protected]:
les escribo para ver como hago con un codigo.
tengo un sistema de facturacion en el cual voy ingresando articulos en un datagrid, cuando sale de la primer celda del dgrid lo valido a ese articulo yo hice esto pero no anda

If DG1.Col = 0 Then
If DG1.Text = "" Then
GoTo salio:
End If
Dim codart As String
'repite
With dtetecno.rsingreso
If .RecordCount >= 1 Then
.MoveFirst
DG1.Col = 0
codart = "Idarticulo =" + Trim(DG1.Text)
'dtetecno.rsart.MoveFirst
dtetecno.rsingreso.Find codart, 0, adSearchForward
If available Then
MsgBox "ELARTYAESTA", vbCritical
Else
GoTo salio:

'codart =
'.Find "codart='" & Trim(DG1.Text) & "'", 0, adSearchForward

If .EOF Then
DG1.Text = dtetecno.rsart!detalle
DG1.Col = 2
DG1.Text = dtetecno.rsart!tipo
DG1.Col = 4
DG1.Text = dtetecno.rsart!puint

Else
DG1.Col = 1
MsgBox "ELARTYAESTA", vbCritical
DG1.Col = 0
DG1.SetFocus
Exit Sub
End If
End If
End With
Gracias - fede
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