ALIAS VB_CART

VARIAVEL #TEXTO_FONTE
 
   oLst:cAlias_DataCols := '_cart'
   oLst:cAliasMaster    := '_cart'
   oLst:lPortrait := .t.
   
   oLst:sPrtLineLen := 70
   oLst:lGeraDbTmp := .t.
   oLst:lOutputFr3 := .t.
   oLst:lOutputPdf := .f.

   oLst:AddCol('Cod;Recno();P;999999;6;;')
   oLst:AddCol('Nome;CTNOME;C;@s16;16;S;')
   oLst:AddCol('Dia;dia_Rec;N;999;3;S;')
   oLst:AddCol('Taxa;taxa;N;99.99;5;S;')
   oLst:AddCol('TEF;tef;C;xxx;3;S;')
   oLst:AddCol('Num_TEF;Bandeira;N;9;7;S;')
   oLst:AddCol('Oper;Oper;C;xxxx;4;S;')

   oLst:Cab1( "Cartoes Cadastrados, em "+Dtoc(s_datual)+" as "+time() )
   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

  
   VB_CART->(DbGoTop(), oLst:DbEval() )

   debugalert('finalizou VB_CART...')
 
#FIM_TEXTO_FONTE