FiveTech Software tech support forums

Antonio Codigo de la funcion: //----------------------static function manifiesto(aAlias)local seguir:=.F.local oDlg,oDlg1,oGet,oSay,oBrw1,oBrw2,oBrw3local cini:=Date()local titulo:= "Preparacion del Manifiesto"local titulopantalocal tboton,ruta,nuconduc,noconduclocal ...

... ) } } - Si en la base de datos la forma de pago es Giro y no está pagada, (Color fuente normal y fondo Rojo) :bClrStd := {|| If(((aAlias[22])->clasef="2" .and. (aAlias[22])->estado="1" ),{CLR_HRED,CLR_BLACK,If( oLbx:KeyNo % 2 == 0, nRGB(242,247,252),nRGB(226,226,208) ...

For I=1 To [Numeros de columnas] If I=8 oBrw:aCols[I]:bClrStd:={|| If(((aAlias[22])->clasef="1" .and. (aAlias[22])->estado="1" ),{CLR_BLACK,nRGB(250,219,216)}, {CLR_BLACK,If( oLbx:KeyNo % 2 == 0, nRGB(242,247,252),nRGB(226,226,208) ...

JoseLuis wrote:

Code: Select all  Expand view

(aAlias[24])->(Ordsetfocus(nindex))
(aAlias[24])->(Dbgotop())
RETURN NIL
 

y si le pones
(aAlias[24])->(dbsetorder(nindex))

He repasado y efectivamente van por ahí los tiros.

Pero no consigo remediar nada, si en lugar de TO "Tfecha1" pongo TAG "Tfecha1", lo que pasa es que además se corrompe o lo que sea el índice CDX que tengo en (aAlias[24]) y tengo que volver a indexar todo.

... ) https://file.io/tue77U link to screenshot image: https://file.io/tue77U This happened when issuing the command: cAlias := oConn:aAlias[MasterDB] DBSelectArea( cAlias ) xBrowse( cAlias ) I can confirm that the table is not empty by using the lastrec() function, I tested xbrowse ...

... oPanel ; FIELDS ; "'"+(alias_articu)->Ar_Codig, ; (alias_articu)->Ar_Descr, ; iif( (alias_articu)->Ar_N_Inv, 0, Stocksucursal(aAlias,aGet2,aBodega)),; (alias_articu)->(vPrecioArt()*val("1."+alltrim(str((alias_parame)->Iva)))),; (alias_articu)->ar_m_des,; ...

... : added parameter lDefault Open dialog is only used when this parameter is .F. Starting the aplication with default dbf's (start parameters or AALIAS section in (x)ini-file), will not show the open dialog ! Default values will be used ! 1/5/2013 : XBRDBUFD5.ZIP ------------------------ * Preferences ...

... la aplicacion me llega otra cosa diferente (&wq78Ç), algunos valores del peso pero otros no llegan y caracteres extraños. FUNCTION CapPes_Des(aAlias,aVars) LOCAL cCad cCad := "" // abre puerto IF !AbrePu_Des() RETURN (NIL) ENDIF f_info("Ahora ponga el articulo en la bascula") ...

Por el momento encontre declarando la variable como publica

PUBLIC aAlias[10]


si hay otra alternativa favor postear..

... no debería hacer el on change, 2º si en vez de poner el update en el on change lo pones en la funcion ponotra, ON CHANGE (ponotra(cquehago,seltar,aAlias, oDlg )) hasta que no llegue a esa funcion no hara el update del dialogo, prueba en el ejemplo a poner un msginfo en la funcion y veras que hasta ...

... el código y he añadido un Radio más como he dicho anteriormente para salir del atolladero. static FUNCTION Entalba(cTitulo,cQueHago,reconduc,aAlias)   local oBmp   local cCodProTem   local cCodconTem   LOCAL cCodartTem   local oboton   local onumero   local oDlg,oGet   local ocodprou   local ...

... la funcion que quieres cuando se cumpla el valor que quieres o 1 o 2, espero me hayas entendido... on change (iif(seltar == 1, ponotra(seltar,aAlias), .t. ) se repite 2 veces creo que por los tantos refresh y update...

... espero te sirva mi opinion... :shock: REDEFINE RADIO oRadio3 VAR seltar ID 37, 38 OF oDlg update; When cQuehago$"AM" .and. !Empty((aAlias[21])->Tipo1); ON CHANGE( ponotra(seltar,aAlias) )

... ;    OF oWindow TITLE "Nota de venta "+ALLTRIM(oHdr:HDR_FAC);    COPIES (cFolNdv)->FOL_CDN    oVrd:aAlias := {(cEmpresa),;    //  1        (cHdrOpe),;                 //  2        (cDetOpe),;                 //  3      ...