🚀 go-pugleaf

***********************This is form No. 1  ***********************

Procedure IMPORTBUTTON_OnClick
      LOCAL myPos,newPos,findCode,e,f,g,o
      e=form.DATAMODREF1.ref.pbookv1.rowset
      e.indexname="CGRPFILTER"
      f=form.DATAMODREF1.ref.pbook1.rowset
      f.indexname="CCODE"
      g= form.DATAMODREF1.ref.ordhdr1.rowset
      g.indexname="HORDNO"
      o=form.DATAMODREF1.ref.orddet1.rowset
      o.indexname="ORDNO"
      if form.efItemCode.visible=.T.
         if empty(form.efItemCode.Value)
            ??chr(7)
            form.efItemCode.SetFocus()
            return
         else
            findCode=form.efitemcode.Value
         endif
      else
         findCode=e.fields["ccode"].value
      endif
      IF f.findkey(findCode)
         if
(P_ProdLine="4".and.empty(f.fields["cflgcc"].value)).or.(P_ProdLine="1".and.empty(f.fields["cflgbk"].value))

            ?chr(7)
            MsgBox("Item not available in this product
line...","Warning",16)
         else
            form.grid1.SetFocus()

            myPos = o.fields["oposno"].value
            newPos=class::MakePos(myPos)
            o.beginAppend()
            o.fields["ordno"].value = P_OrdNo
            o.fields["oitemcd"].value = f.fields["ccode"].value
            o.fields["oitemdes"].value = f.fields["cdesc"].value
            o.fields["oitemdes2"].value = f.fields["cdesc2"].value
            o.fields["oposno"].value = newPos
            L_PosNo = newPos
            o.fields["oQty"].value =  1
            o.fields["onrdoors"].value =
VAL(SUBSTR(f.fields["cdoors"].value,g.fields["hRegAl"].value * 2-1,2))
            o.fields["onrldraw"].value =
VAL(SUBSTR(f.fields["clargedraw"].value,g.fields["hRegAl"].value *
2-1,2))
            o.fields["onrsdraw"].value =
VAL(SUBSTR(f.fields["csmalldraw"].value,g.fields["hRegAl"].value *
2-1,2))
            o.fields["onrdoorfr"].value =
VAL(SUBSTR(f.fields["cdoorfront"].value,g.fields["hRegAl"].value *
2-1,2))
            o.fields["olrflag"].value = f.fields["clrside"].value
            o.fields["oaccflg"].value = f.fields["caccflg"].value
            o.fields["ocubmeter"].value = f.fields["cubicmeter"].value
            o.fields["cgrpfilter"].value = f.fields["cgrpfilter"].value
            o.save()

            if P_ProdLine = "4"
               o.fields["oprice"].value = f.fields["cpricecc"].value
            else
               o.fields["oprice"].value = f.fields["cpriceb"].value
            endif

            if .not.empty(f.fields["cAskSize"].value)
               ?chr(7)

form.AskSizeForm.Text1.Text=LEFT(f.fields["cAskSize"].value,1)

form.AskSizeForm.Text2.Text=SUBSTR(f.fields["cAskSize"].value,2,1)

form.AskSizeForm.Text3.Text=RIGHT(f.fields["cAskSize"].value,1)
               form.AskSizeForm.ReadModal()
            endif

            if .not.empty(f.fields["clrside"].value)
               ?chr(7)
               form.LRSideForm.ReadModal()
            else
               o.fields["oleftright"].value = SPACE(1)
            endif

            CLASS::MPCheck()

         endif
      else
         ?chr(7)
         MsgBox("Invalid Item Code!","Alert",16)
      endif
      o.last()
      if form.grid1.visible=.T.
         form.grid1.SetFocus()
      else
         form.efItemCode.Value=""
         form.efItemCode.SetFocus()
      endif
   Return


**************  This iz code from "AskSize" Form  ********************

Procedure OkButton
      LOCAL L_SqrMeter,L_Ok,L_Desc,f,g,o
      L_Ok = .T.
      if (form.efsz1.Visible).and.(form.efsz1.Value<=0)
         L_Ok = .F.
      endif
      if (form.efsz2.Visible).and.(form.efsz2.Value<=0)
         L_Ok = .F.
      endif
      if (form.efsz3.Visible).and.(form.efsz3.Value<=0)
         L_Ok = .F.
      endif
      if L_Ok
      f=form.DATAMODREF1.ref.pbook1.rowset
      f.indexname="CCODE"
      g= form.DATAMODREF1.ref.fromcad1.rowset
      o=form.DATAMODREF1.ref.orddet1.rowset
      o.indexname="ORDNO"
            IF askk=.T. .and. standarditem=.F.
             IF g.fields["MSQR"].value = 1
               if form.efsz2.Visible
                  L_SqrMeter =
ROUND(form.efsz1.Value*form.efsz2.Value*.0001,2)  && sqr meter
                  L_SqrMeter = IIF(L_SqrMeter<.5,.5,L_SqrMeter)
               else
                   L_SqrMeter = form.efsz1.Value*.01
               endif
             ELSE
               L_SqrMeter=1
             ENDIF
         ELSEIF askk=.T. .and. standarditem=.T.
          if .not.empty(f.fields["cMSqr"].value)
            if form.efsz2.Visible
               L_SqrMeter =
ROUND(form.efsz1.Value*form.efsz2.Value*.0001,2)  && sqr meter
               L_SqrMeter = IIF(L_SqrMeter<.5,.5,L_SqrMeter)
            else
               L_SqrMeter = form.efsz1.Value*.01
            endif
          else
            L_SqrMeter=1
          endif
         ELSE

         o.last()
         f.findkey(o.fields["oitemcd"].value)


          if f.fields["cMSqr"].value <> ""

            if form.efsz2.Visible
               L_SqrMeter =
ROUND(form.efsz1.Value*form.efsz2.Value*.0001,2)  && sqr meter
               L_SqrMeter = IIF(L_SqrMeter<.5,.5,L_SqrMeter)
            else
               L_SqrMeter = form.efsz1.Value*.01
            endif
          else
            L_SqrMeter=1
          endif
         ENDIF
         o.fields["oprice"].value = L_SqrMeter *
o.fields["oprice"].value


******************** after this line I had message "Retraying Lock. Row
is in use by*******

onother. Retrying Lock..."
******************** What's going
on******************************************
******************** How I can solve this problem
*******************************


         o.beginAppend()
         o.fields["oposno"].value = L_PosNo
         o.fields["ordno"].value = P_OrdNo
          o.save()
         L_Desc=left(form.Text1.Text,1)+"="+;
              ltrim(IIF(right(str(form.efsz1.Value,6,2),3)=".00",;
              left(str(form.efsz1.Value,6,2),3),;
              str(form.efsz1.Value,6,2)))+"cm"

         if .not.empty(form.Text2.Text)
            L_Desc=L_Desc+","+left(form.Text2.Text,1)+"="+;
              ltrim(IIF(right(str(form.efsz2.Value,6,2),3)=".00",;
              left(str(form.efsz2.Value,6,2),3),;
              str(form.efsz2.Value,6,2)))+"cm"

         endif
         o.fields["oitemdes"].value =  L_Desc
         if .not.empty(form.Text3.Text)
            L_Desc=left(form.Text3.Text,1)+"="+;
              ltrim(IIF(right(str(form.efsz3.Value,6,2),3)=".00",;
              left(str(form.efsz3.Value,6,2),3),;
              str(form.efsz3.Value,6,2)))+"cm"
            o.fields["oitemdes2"].value = L_Desc
             o.save()
         endif
         askk=.F.
          o.save()
         form.Close()
      else
         ?chr(7)
         MSGBOX("Size must be specified!!!","Warning",16)
         form.efsz1.SetFocus()
      endif

   Return



Nothing I've tried seems to work, any suggestions ?
Thank you very much for your time.

Enes