/*
 * Metodo Consultar Ficha.
 */
Method ConsulFicha(x) Class TPrincipal
  Local Venta,Bus,Edit,fi:=Space(34),Mos,n:=0
  Local oNU,oTE,oNA,oDU,oCL,oTN,oTO,oAN,oA1,oA2,oA3,oA4,;
        oA5,oA6,oDR,oPR,oGI,oFO,oMU,oDI,oR1,oR2,oR3,oR4

  Mos:=Array(26)

// Abre Base de Datos y Busca la Ficha.
  if !Empty(x)
    Use FiPelicu Index FiPelicu New Via 'DbfCdx'
    FiPelicu->(OrdSetFocus('TN','FiPelicu'))
    DbSeek(x)
    n:=Recno()

// Iguala las Variables.
    oNU:=FiPelicu->NU;oTN:=FiPelicu->TN;oTO:=FiPelicu->TO
    oTE:=FiPelicu->TE;oNA:=FiPelicu->NA;oCL:=FiPelicu->CL
    oDU:=FiPelicu->DU;oAN:=FiPelicu->AN;oA1:=FiPelicu->A1
    oA2:=FiPelicu->A2;oA3:=FiPelicu->A3;oA4:=FiPelicu->A4
    oDR:=FiPelicu->DR;oPR:=FiPelicu->PR;oGI:=FiPelicu->GI
    oFO:=FiPelicu->FO;oMU:=FiPelicu->MU;oDI:=FiPelicu->DI
    oR1:=FiPelicu->R1;oR2:=FiPelicu->R2;oR3:=FiPelicu->R3
    oR4:=FiPelicu->R4
    if !eof()
      Close Data
// Si la Encuentra Nos la Muestra.
      Venta:= TForm():Create()
      Venta:BorderStyle := bsDialog
      Venta:SetBounds( 0, 0, 696, 490 )
      Venta:Position := poActiveCenter
      Venta:Caption:=Space(54)+'Es Esta la Ficha que Usted a Solicitado'
// Muestra Ficha Vacia.
      ::FichaVacia(mos,Venta,10,10,670,394,clAqua,,,,)
// Muestra los Datos de la Ficha.       
      ::SayDatos(mos,Venta,124,25,clAqua,,14,,,.f.,oTN)
      ::SayDatos(mos,Venta,570,25,clAqua,,14,,,.f.,strzero(oNU))
      ::SayDatos(mos,Venta,124,55,clAqua,,14,,,.f.,oTO)
      ::SayDatos(mos,Venta,580,55,clAqua,,14,,,.f.,oTE)
      ::SayDatos(mos,Venta,124,85,clAqua,,14,,,.f.,oNA)
      ::SayDatos(mos,Venta,618,85,clAqua,,14,,,.f.,oCL)
      ::SayDatos(mos,Venta,124,115,clAqua,,14,,,.f.,oDU)
      ::SayDatos(mos,Venta,618,115,clAqua,,14,,,.f.,oAN)
      ::SayDatos(mos,Venta,124,145,clAqua,,14,,,.f.,oA1)
      ::SayDatos(mos,Venta,466,145,clAqua,,14,,,.f.,oA2)
      ::SayDatos(mos,Venta,124,175,clAqua,,14,,,.f.,oA3)
      ::SayDatos(mos,Venta,466,175,clAqua,,14,,,.f.,oA4)      
      ::SayDatos(mos,Venta,124,205,clAqua,,14,,,.f.,oDR)
      ::SayDatos(mos,Venta,466,205,clAqua,,14,,,.f.,oPR)
      ::SayDatos(mos,Venta,124,235,clAqua,,14,,,.f.,oGI)
      ::SayDatos(mos,Venta,466,235,clAqua,,14,,,.f.,oFO)
      ::SayDatos(mos,Venta,124,265,clAqua,,14,,,.f.,oMU)
      ::SayDatos(mos,Venta,466,265,clAqua,,14,,,.f.,oDI)
      ::SayDatos(mos,Venta,114,310,clAqua,,11,,,.f.,oR1)
      ::SayDatos(mos,Venta,114,330,clAqua,,11,,,.f.,oR2)
      ::SayDatos(mos,Venta,114,350,clAqua,,11,,,.f.,oR3)
      ::SayDatos(mos,Venta,114,370,clAqua,,11,,,.f.,oR4)
      
// Boton Para Imprimir.
      ::CrearBoton(Venta,135,420,215,23,9,"Imprimir Esta Ficha",;
                        {|oSender|Venta:Close(),Venta:Destroy()})
// Boton Para Cancelar.
      ::CrearBoton(Venta,370,420,200,23,9,"Salir de Consultar Ficha",;
                             {|oSender|Venta:Close(),Venta:Destroy()})
      Venta:ShowModal()      
    endif
  endif

Return Nil