FiveTech Software tech support forums

... de varias maneras usando oBrw:aSelected y oBrw:BookMark y no logro hacerlo funcionar. Ademas hay alguna manera de poder hacer algo similar al Goto(nReg) para poder posicionar el cursor en una linea especifica del browse ? muchas gracias a todos

... fila++ PageEnd() ENDPRINT RETURN NIL y por ultimo... la misma historia por excel... Function Exe_Hora() local oFileXLS Local lIni := .t., nReg := RecNo() local nFormat1, nFormat2 local nFont1, nFont2, nFont3, nFont4 Local nRow, nRowActividad DEFINE XLS FONT nFont1 NAME "Arial" ...

Saludos, si quieres el numero de registro nReg := oBrw:nArrayAt / oBrw:KeyNo() si qieres el valor de una celda determinada: Valor_Celda := oBrw]:aArrayData[ oBrw:nArrayAt, nCol ] nCol es el numero de la columna de la cual quieres obtener el valor ...

... METHOD Enviarsms(cOrden,cTlf) CLASS TServicio LOCAL cMensa:="" LOCAL cHost,lRet:=.F. LOCAL oHttp,cFuncion,oError,cTextohtml,cXml,xDato,nReg:=0,nI:=0 if empty(cTlf) msgstop("No hay celular para enviar mensaje","verifique la ficha") Return Self Endif cMensa:="Informa%20=%20Se%20ha%20cargado%20la%20orden%20de%20servicio%20"+Alltrim(Oemtoansi(cOrden))+"%20"+; ...

... puede utilizar la cláusula WHERE, pero los registros de consulta no trabajar como DBF RDD para que pueda hacerlo, pero hay que laterar código. EX NREG: = RECNO () // esto asume que la inscripción está fuera del filtro USO CTable SET PARA FILTTER somevalue GO TOP GO NREG // esto fuera del filtro ...

... que en la tabla detalle, por lo mismo hago este ajusteBodega . STATIC FUNCTION AjusteBodega(oDlg,oProgress1) *---------------------------- Local nReg:=TablaRecout("exi_suc") Local oma_arti,cSql,cExi_Det Local totini,totent,totsal Local oCmd,oRsCmd Local nCount:=0 nActual := 0 nTotal ...

... 2 field in seek exp means new recordset with where clause. do while .... .... skip enddo resetseek() //returning to previous recordset go to nreg //it might work if we save and restore previous set otherwise it not guaranteed. Besides this it seems that all navigation,relations, seek, find,adding ...

Antonio, use something = select * from .... browse() // you will see all records nreg := recno() seek whatever = select * from .... where (seek expression) browse() //you will only see the seek matching record(s) go to nreg //this doesnt exist anymore You will see ...

... a los que cargarás con los datos del Dbf FUNCTION MOD_PBAS() LOCAL oItem:=oMOpc,oBrw1,oBrw2,oBrw3 lSelSeg:= .F. NivBal := 4 aTot := {{0,0,0,0}} nReg := 0 aDato1 := {} aDato2 := { { space(2),0.00 , , , , , , , } } // Es un ejemplo aDato1 := CargaDatos() // Aq Además deberías llevarte esta inicialización ...

... a los que cargarás con los datos del Dbf FUNCTION MOD_PBAS() LOCAL oItem:=oMOpc,oBrw1,oBrw2,oBrw3 lSelSeg:= .F. NivBal := 4 aTot := {{0,0,0,0}} nReg := 0 aDato1 := {} aDato2 := { { space(2),0.00 , , , , , , , } } // Es un ejemplo aDato1 := CargaDatos() // Aq Además deberías llevarte esta inicialización ...

Enrique,

Si necesitas usar un diálogo no modal ahí no hay otra que usar NOMODAL

Que acciones realizas en CloseDlg( nOpc, nAre, nReg ) ? Puedes mostrar el código ?

... .and. wfempt # "1",(oAu4:hide(), oDe4:hide(), oAs4:hide(), oAz4:hide()), NIL) ON CLICK oDlg:update() VALID CloseDlg( nOpc, nAre, nReg ) Activacion que ya no me saco del dialogo despues del enter ACTIVATE DIALOG oDlg ON INIT iif(wfcua # "S" .and. wfempt # "1",(oAu4:hide(), ...

... registros de la DBF #include "fivewin.ch" #include "xbrowse.ch" MEMVAR oWndPrinc STATIC CODBCO, NOMBCO, CTABCO, CTACTA, GRA, NREG, oDlg, oBrw, oCol, cCODANT, oRpt STATIC TNUEVO := .T. STATIC LVAN := .F. FUNCTION BANCOS() LOCAL oWndBCO, cTitle, oFont, oBar, oMeter, oText, cAlias, ...

Pedro, siguiendo tu sugerencia deberia quedar asi,. STATIC FUNCTION BCONUEVO(TNUEVO) IF TNUEVO NREG:=BANCO->(RECNO()) BANCO->(DBGOBOTTOM()) //-----> ir al final de la tabla CODBCO := VAL(BANCO->CODBCO) +1 CODBCO := SPACE (12) NOMBCO := SPACE(30) CTABCO := SPACE(30) ...

... 40, 10 ; VALID (CODBCO := StrZero( Val( CODBCO), 12 ), CODBCO: = cCODANT+1, oCodigo:Refresh(), .T. ) STATIC FUNCTION BCONUEVO(TNUEVO) IF TNUEVO NREG:=BANCO->(RECNO()) CODBCO := SPACE(12) NOMBCO := SPACE(30) CTABCO := SPACE(30) ELSE NREG:=BANCO->(RECNO()) CODBCO := BANCO->BCO_CODIGO ...