Amigos tengo dos problemas, ojala me puedan ayudar, me tienen entrampado, ahi van:
1. como cambio esto para que sea igual en la clase TDATABASE
Select 90
Do While .T.
If NET_USE("Inv_Cfa1",.F.,5)
Set Index to Inv_Cfa1,Cfa_Fec1
Set order to 1
Exit
Else
ESTADO_DBF()
RETURN
Endif
Enddo
2. Y si uso esto mismo
Select 50
N := 1
Do While .t.
ARCHI = "TEM_FAC" + StrZero(N,1)
If net_use(ARCHI,.T.,5)
zap
go top
exit
else
N++
IF N > 5
RETURN
ENDIF
Endif
Enddo
el asunto es que esto con la clase tsbrowse, me funciona bien, pero cuando debo editar el campo de la clase, se cae y no funciona
Add Column To Browse oLbx1;
DATA FieldWBlock("Can_Art",Select("&(archi)"));
EDITABLE;
3DLOOK TRUE MOVE DT_MOVE_RIGHT;
PICTURE "9999.99";
Head "Cantidad" Width 70 Align 2,1;
COLORS nRgb(0,0,0),nRgb(160,235,170)