FiveTech Support Forums

Description:
  A problem caused this program to stop interacting with Windows.

Problem signature:
  Problem Event Name:   AppHangB1
  Application Name: vimfa.exe
  Application Version:  0.0.0.0
  Application Timestamp:    00000000
  Hang Signature:   521e
  Hang Type:    0
  OS Version:   6.1.7601.2.1.0.256.48
  Locale ID:    1033
  Additional Hang Signature 1:  521e9c610211bde94178e59d988aade6
  Additional Hang Signature 2:  ba33
  Additional Hang Signature 3:  ba3395d0c97c9a5a3e9ecff21551e88e
  Additional Hang Signature 4:  521e
  Additional Hang Signature 5:  521e9c610211bde94178e59d988aade6
  Additional Hang Signature 6:  ba33
  Additional Hang Signature 7:  ba3395d0c97c9a5a3e9ecff21551e88e

Read our privacy statement online:
  http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0409

If the online privacy statement is not available, please read our privacy statement offline:
  C:\Windows\system32\en-US\erofflps.txt

#include "fivewin.ch"


function main
  local oDlg
  local oFont
  local nRate := 597.67
  local nQTy := 100
  local nAmt := ( nRate *  nQTy )
  local aoGET := Array(5)
  local oBrw
  local aInvData := {{ "Prd 1" , 597.67 , 100 , 0 } }



   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 900,700 PIXEL TRUEPIXEL FONT oFont

   @ 020, 020 XBROWSE oBrw SIZE 540, 200 PIXEL OF oDlg FONT oApp:oFontGet  ;
      DATASOURCE aInvData ;
      COLUMNS 1, 2, 3, 4  ;
      HEADERS "Item ", "Rate",  "Qty.",  "Amount" ;
      PICTURES NIL,    "@Z 99,999.99", "@Z 99,999", "@Z 99,99,999.99" ;
      COLSIZES 200,    100,100, 110 ;
      CELL LINES NOBORDER FASTEDIT FOOTERS

   WITH OBJECT oBrw:aCols[ 2 ]

      :nEditType     = EDIT_GET
      :bEditValid := < | oGet |

                     oBrw:aCols[ 4 ]:Value := ( oGet:VarGet()  * oBrw:aCols[ 3 ]:Value ) // Rate * Qty
                     oBrw:MakeTotals()
                     oBrw:Refresh()

                     return .t.
                     >

   END

   WITH OBJECT oBrw:aCols[ 3 ]

      :nEditType     = EDIT_GET
      :bEditValid := < | oGet |

                     oBrw:aCols[ 4 ]:Value := ( oBrw:aCols[ 2 ]:Value  * oGet:VarGet() ) // Rate * Qty
                     oBrw:MakeTotals()
                     oBrw:Refresh()

                     return .t.
                     >

   END

   WITH OBJECT oBrw

      :CreateFromCode()
   END


//PICTURE "@Z 99,99,99,99,999.99"
   ACTIVATE DIALOG oDlg


return nil

#include "fivewin.ch"

function Main()

  local oDlg
  local oFont
  local nRate := 597.67
  local nQTy := 100
  local nAmt := ( nRate *  nQTy )
  local aoGET := Array(5)
  local oBrw
  local aInvData := {{ "Prd 1" , 597.67 , 100 , 0 } }
  local aBlank := { Space( 5 ), 0.00, 0.00, 0.00 }

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 900,700 PIXEL TRUEPIXEL FONT oFont

   @ 020, 020 XBROWSE oBrw SIZE 540, 200 PIXEL OF oDlg FONT oFont  ;
      DATASOURCE aInvData ;
      COLUMNS 1, 2, 3, 4  ;
      HEADERS "Item ", "Rate",  "Qty.",  "Amount" ;
      PICTURES NIL,    "@Z 99,999.99", "@Z 99,999", "@Z 99,99,999.99" ;
      COLSIZES 200,    100,100, 110 ;
      CELL LINES NOBORDER FASTEDIT FOOTERS

   WITH OBJECT oBrw:aCols[ 1 ]
      :nEditType     = EDIT_GET
   END

   WITH OBJECT oBrw:aCols[ 2 ]
      :bEditWhen     = { || !Empty( oBrw:aRow[ 1 ] ) }
      :nEditType     = EDIT_GET
   END

   WITH OBJECT oBrw:aCols[ 3 ]
      :bEditWhen     = { || !Empty( oBrw:aRow[ 1 ] ) }
      :nEditType     = EDIT_GET
      :nFooterType   = AGGR_SUM
   END

   WITH OBJECT oBrw:aCols[ 4 ]
      :bEditValue    = { || oBrw:aRow[ 4 ] := oBrw:aRow[ 2 ] * oBrw:aRow[ 3 ] }
      :nFooterType   = AGGR_SUM
   END

   WITH OBJECT oBrw
      :bClrStd    := { || { CLR_BLACK, If( Empty( oBrw:aRow[ 1 ] ), CLR_YELLOW, CLR_WHITE ) } }

      :bPastEof   := <||
         if !Empty( oBrw:aRow[ 1 ] )
            AAdd( oBrw:aArrayData, AClone( aBlank ) )
            oBrw:GoDown()
         endif
         return nil
         >

      :bChange    := <||
         if oBrw:nArrayAt < Len( oBrw:aArrayData )
            if Empty( ATail( oBrw:aArrayData )[ 1 ] )
               ASize( oBrw:aArrayData, oBrw:nLen - 1 )
               oBrw:Refresh()
            endif
         endif
         return nil
         >

      :MakeTotals()
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

return nil