Amigo, disculpa despues de dias entro a la web del programador
prueba con estas modificaciones
thisform.manoobra=0
SELECT "v_ordencobro"
GO TOP IN "v_ordencobro"
SCAN REST
m.Orden = str (val (v_ordencobro.orden), 5, 0)
m.clv = "Servicio" + m.orden
SELECT "clientes"
set order to ordena
if seek (m.orden)
m.total = total
m.pagado = pagado
IF m.pagado = 1 then
thisform.manoobra = thisform.manoobra + m.total
ThisForm.txtsubtotal.Refresh
endif
endif
SELECT "v_ordencobro"
ENDSCAN
thisform.Refresh
thisform.refaccion=0
SELECT "vistapcobro"
GO TOP IN "vistapcobro"
SCAN REST
m.Orden = str (val (vistapcobro.orden), 5, 0)
m.clv = "Servicio" + m.orden
SELECT "clientes"
set order to ordena
if seek (m.orden)
IF m.pagado = 1 then
thisform.refaccion = thisform.refaccion + vistapcobro.importe
ThisForm.txtsubtotal.Refresh
endif
endif
SELECT "vistapcobro"
ENDSCAN
Amigo te recomiendo que ordenes tus tablas desde el entorno de datos, tambien debes tener en cuenta que cada vez que cambias de selec el control del puntero pasa a la otra tabla por lo que debes volver a la tabla que teien el control del scan... endscan, tambien te recomiendo que los nombres de las tablas que seleccionas lo hagas entre comillas (select "tabla1")
Avisame si te funciona
saludos