Tengo lo siguiente en un xbrowse con recordset de detalle si ya tiene registros y le agrego mas, lo muestra sin problema... peroooooo mi problema es al ingresar un maestro(cabecera) nuevo obviamente muestra el browse vacío y al irle agregando nuevos en el detalle no los muestra no refresca, mas si los graba
Ya intente de todo hasta asignarle otro recordset y nada.
- Code: Select all Expand view
ACTION ( GrabaDatos(cAccion), ;
CapturaDet("A",cClave,oDlg,@oGet),;
oRsDetOrdSrv:close(),;
scopeorden(cClave), ;
oBrwDet:ReFresh(.t.),;
oDlg:update(),;
oSay[2]:refresh(),;
- Code: Select all Expand view
STAT FUNC scopeOrden(cClave2)
cSQL := "SELECT * FROM detordsrv WHERE ORDENSRV = '" + cClave2 +"'"
oRsDetOrdSrv := TOleAuto():New( "ADODB.Recordset" )
oRsDetOrdSrv:CursorType := 1 // opendkeyset
oRsDetOrdSrv:CursorLocation := 3 // local cache
oRsDetOrdSrv:LockType := 3 // lockoportunistic
TRY
oRsDetOrdSrv:Open(cSQL,oApp:oCon )
CATCH oErr
MsgInfo( "Error al abrir la detOrdSrv " )
ShowError(oErr)
RETURN(.F.)
END TRY
/* do while !oRsDetOrdSrv:eof()
? oRsDetOrdSrv:fields("CONTENEDOR"):value
oRsDetOrdSrv:movenext()
enddo
*/
// oRsDetOrdSrv:moveFIRST()
return nil
