FiveTech Software tech support forums

... SIZE 80,20 PICTURE "999.999999" RIGHT; WHEN .f. PIXEL OF oWnd @ 94, 5 SAY "Lon dec." SIZE 50,20 RIGHT PIXEL @ 94, 60 GET oGps:nLong SIZE 80,20 PICTURE "999.999999" RIGHT; WHEN .f. PIXEL OF oWnd @ 118, 5 SAY "Fix" SIZE 50,20 RIGHT PIXEL @ 116, 60 GET oGps:cFix ...

... SIZE 80,20 PICTURE "999.999999" RIGHT; WHEN .f. PIXEL OF oWnd @ 94, 5 SAY "Lon dec." SIZE 50,20 RIGHT PIXEL @ 94, 60 GET oGps:nLong SIZE 80,20 PICTURE "999.999999" RIGHT; WHEN .f. PIXEL OF oWnd @ 118, 5 SAY "Fix" SIZE 50,20 RIGHT PIXEL @ 116, 60 GET oGps:cFix ...

... xBrowse(mMatriz) Aparece en Xbrowse : A B C D E 01 02 03 04 05 Pero si hago esto : Local pari:= '{' Local parf:= '}' Local coma:= ',' Local nlon:='', npar:='' Local mMatriz:= {{}} Asize(mMatriz,0) For i:=1 to 5 npar := '"'+Ltrim(Str(i))+'"' If i > 1 .AND. i < 6 nlon := nlon+coma+npar ...

... añade espacios hasta la longitud dada, sino tambien trunca la longitud si la string original la supera. Un saludo, Carlos. function _scFill(c, nLon) ...... return ( c+space(nSp) ) saludos cordiales.

... al guardar ,, sobre todo cuando es edicion,, oRecordSet:Fields("Apellido1"):value := _scFill( mAp1, 15 ) oRecordSet:update() function _scFill(c, nLon) local nLen local nSp if valtype(c) <> "C" c := '' ENDIF nLen := len(c) nSp := len(space(nLon-nLen)) return ( c+space(nSp) ) saludos cordiales.

... VerMapa (oDlg, nOption) ACTIVATE DIALOG oDlg CENTERED RETURN NIL Function VerMapa( oDlgp, nMapa ) local ownd, oactivex LOCAL cHtml LOCAL nLat, nLon, nZoom DO CASE CASE nMapa == 1 nLat := 48.858333 nLon := 2.295000 nZoom := 20 CASE nMapa == 2 nLat := 39.183994491715936 nLon := -0.31486988067626952 ...

Ótimo!!!
Saberias me dizer quais são os limites do ZOOM ?

Me localizo em:
nLat := 20.211945
nLon := -50.9269528