FoxPro/Visual FoxPro - REPORTE DE VENTAS!!!!, EL CODIGO.

Select Contratos
Set Order to 2
Set Filter To !Deleted()
Go Top
Browse NoAppend NoDelete NoModifi
ThisForm.TxtCCLAVE.Value = Contratos.CCLAVE

Set Filter To

Select contratos.dfecha,Contratos.CCLAVE,contratos.cnombre,;
contratos.cappat,contratos.capmat,;
contratos.cdescrip,contratos.ncantfin,contratos.lblcredito FROM Contratos WHERE ThisForm.TxtCCLAVE.Value = Contratos.CCLAVE;
AND Contratos.CCLAVE = VenCont.CCLAVE Order By Contratos.CCLAVE ASC INTO CURSOR tmpcredito

SELECT vencont.dfecha,vencont.CCLAVE,vencont.cnombre,;
vencont.cappat,vencont.capmat,vencont.cdescrip,vencont.npreccont,vencont.lblcontado FROM vencont WHERE ThisForm.TxtCCLAVE.Value = VenCont.CCLAVE;
AND Contratos.CCLAVE = VenCont.CCLAVE Order By VenCont.CCLAVE ASC INTO CURSOR tmpcontado

thisform.grid1.recordsource = 'tmpcredito'
ThisForm.Grid1.Refresh
thisform.grid2.recordsource = 'tmpcontado'
ThisForm.Grid2.Refresh

ThisForm.command5.SetFocus