FiveTech Support Forums

  XbrNumFormat( 'A', .t. )

  REDEFINE XBROWSE oBrw ID 181 OF oDlg ;
      COLUMNS "Codigo","Nombre","Tipo","Fecha","Td","Docum","Debe","Vence","NumDocPago","FechPago","SaldoAct","Concepto" ;
      FIELDSIZES 80,200,30,70,24,66,80,70,66,70,80,470 ;
      HEADERS "Codigo","Nombre","Tipo","Fecha","Td","Docum No.","Valor","Vence","Doc Pago","Fecha Pago","Saldo Act","Concepto" ;
      ALIAS (cAlias) CELL LINES FOOTERS  // FASTEDIT

  WITH OBJECT oBrw
    :nMarqueeStyle       := MARQSTYLE_HIGHLROW    // HIGHLCELL
    :nColDividerStyle    := LINESTYLE_LIGHTGRAY   //INSET 
    :nRowDividerStyle    := LINESTYLE_LIGHTGRAY   //INSET 
    :lColDividerComplete := .t. 
    :nStretchCol         := STRETCHCOL_LAST    //llenar espacio con ultima columna
    :nRowHeight    := 18  //altura entre lineas

    :nHeaderHeight        := 30   //Altura cabeceras de col
    :lFooter              := .t.  //Que tendrá footer 
    :nFooterLines         := 2    //Lineas del footer 
    :nFooterHeight        := 24   //Altura del  Footer  42
    :lRecordSelector      := .t.  //poner o no, COL de la flechita de la izq

    :bClrHeader     := {|| { nRGB(140,  0,  0), nRGB( 231, 242, 255 ), } } 
    :bClrFooter     := oBrw:bClrHeader
    :bClrStd        := {|| { nRGB(  0,  0,  0), nRGB(255,255,255) } }  // colores para lineas normales
    :bClrSel        := {|| { nRGB(  0,  0,  0), aGradRowSel } }  // para barra de linea selecc cuando el control tiene el foco
    :bClrSelFocus   := { || { CLR_BLACK, aGradBarSel } }     // para barra de linea selecc cuando el control tiene el foco
    :nHeadStrAligns := AL_CENTER
  END 

  WITH OBJECT oBrw:SaldoAct
    :nEditType   := EDIT_GET
    :bEditWhen   := { || MsgInfo("Deberia revisar sus transacciones antes de editar este valor.","Advertencia"), .t. }
   * :bEditValid  := {|oGet| if( len(Alltrim(str(oGet:Value))) > len(Str((cAlias)->SaldoAct)), (MsgInfo("Valor fuera de rango","Alto"),.f.),.t.) }
    :bOnPostEdit := { | oCol, xVal, nKey |  nSdoActAnt:=(cAlias)->SaldoAct, If( nKey == VK_RETURN, if( (cAlias)->(RLock()), ((cAlias)->SaldoAct := xVal, (cAlias)->(DbUnLock()), ActProce(nSdoActAnt,xVal,(cAlias)->nombre,(cAlias)->Docum,(cAlias)->concepto) ),) ,(cAlias)->(DbUnLock())) } 
    *:bOnPreEdit  := { || If(oRsDetail:Fields("Inventory Id"):Value = "  ", , __Keyboard( Chr( VK_HOME ))) }
  END

#include "dbstruct.ch"

function main()
  local cAlias := "test"
  local hPictures

  DBUseArea( .T., "DBFNTX",  "test", cAlias )

  hPictures = DBFAutoPicture( cAlias )

  ? "Field SALARY AutoPicture = ", hPictures["SALARY"]

  ? AutoPicture( "N", 13, 2 )

  (cAlias)->( DBCloseArea() )

return nil


function DBFAutoPicture( cAlias )

  local hPict := {=>}
  local aStructure
  local field

  aStructure = ( cAlias )->( DBStruct() )

  for each field in aStructure
    hPict[Upper( field[DBS_NAME] )] = AutoPicture( field[ DBS_TYPE ], field[ DBS_LEN ], field[ DBS_DEC ])
  next

return hPict


function AutoPicture( cType, nLen, nDecimales )

  local j, cPicture := ""

  if cType == "N"
    if nLen > 2
      for j = nLen to 1 step - 1
        if j%3 == 0 .and. j != nLen
          cPicture += ","
        endif
        cPicture += "9"
      next
    else
      cPicture = Replicate( "9", nLen )
    endif

    if nDecimales > 0
      cPicture += ( "." + Replicate( "9", nDecimales ) )
    endif
  endif

return cPicture