FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Re: Fastrepor Como defino un Picture - SOLUCIONADO
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Fastrepor Como defino un Picture - SOLUCIONADO
Posted: Fri Jun 07, 2013 04:22 PM

Saludos al forum-

Como defino un picture como en clipper o Harbour , cuando el valro es zero imprima blancos.

Gracias

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 401
Joined: Thu Oct 06, 2005 10:15 PM
Re: Fastrepor Como defino un Picture
Posted: Fri Jun 07, 2013 04:56 PM
En la clase tGet sustituye este metodo

Code (fw): Select all Collapse
METHOD DispText() CLASS TGet

   if ::lPassword .and. ::oGet:Type == "C"
      #ifdef __CLIPPER__
         SetWindowText( ::hWnd, Replicate( "*", Len( Trim( ::oGet:buffer ) ) ) )
      #else
         SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ), "*" ),;
                                           Len( Trim( ::oGet:buffer ) ) ) )
      #endif
   ElseIf ::oGet:Type == "N" .and. SubStr( ::cPicture,1,2 ) == "@Z" .and. Val( ::oGet:buffer ) == 0 // pablovidal // cuando el campo es cero y numerico que aparesca en blanco
    SetWindowText( ::hWnd, " " )
   else
      SetWindowText( ::hWnd, If( ! Empty( ::cCueText );
                                   .and. Empty( ::oGet:VarGet() );
                                   .and. GetFocus() != ::hWnd,;  // Focus is outside
                                   "", ::oGet:buffer ) )
   endif

return nil
Saludos,



Pablo Alberto Vidal

/*

------------------------------------------------------

Harbour 3.2.0, Fivewin 17.02, BCC7

------------------------------------------------------

*/
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Fastrepor Como defino un Picture - SOLUCIONADO
Posted: Fri Jun 07, 2013 06:13 PM

Gracias compañero.

Pero es para el Fastreport, dicho reporteador ya tiene definido los picture pero no veo como controlar que no me imprima lo zeros. Ya lo solucione.

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 205
Joined: Fri Oct 07, 2005 05:07 PM
Re: Fastrepor Como defino un Picture - SOLUCIONADO
Posted: Fri Jun 07, 2013 07:58 PM

Cual es la solución?

Saludos/regards

RenOmaS



skype: americo.balboa
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Fastrepor Como defino un Picture - SOLUCIONADO
Posted: Fri Jun 07, 2013 08:10 PM
ruben Dario wrote:Saludos al forum-

Como defino un picture como en clipper o Harbour , cuando el valro es zero imprima blancos.

Gracias

En las funciones de FR dice como hacerlo con las mismas funciones de HARBOUR, saludos... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Fastrepor Como defino un Picture - SOLUCIONADO
Posted: Fri Jun 07, 2013 09:44 PM

Lo solucione de eata manera.

Me ubico en an valor definido en la banda selecciono la variable que voy a imprimir , le doy Click derecho y aparece unas opciones , marco ocultar zeros, con esto lo solucione.

Saludos

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Continue the discussion