by elmoiquique » Thu May 28, 2009 11:31 pm
if NetUse("\ml2004\unidad",.t. ) ****aca me da el error en esta linea
OrdListAdd("\ml2004\unidad","codigo","familia")
DATABASE oDbfFp
oDbffp:Load()
else
MsgStop( "Fichero UNIDAD DE MEDIDA Bloqueado" )
return nil
endif
Seek (oDbf3:calias)->rcoduni
cunidad:=substr(((oDbfFP:calias)->sigla),1,3)
if NetUse("codigos",.t. )
OrdListAdd("codigos","codigo","familia")
DATABASE oDbfFp
oDbffp:Load()
else
MsgStop( "Fichero CODIGOS Bloqueado" )
return nil
endif
seek (odbf3:calias)->rcodigo
Fivewin 11.07