pb筆記

 is_FormId = dw_head.GetItemString(1,'pinu060_k1')

If is_FormId = 'FLHK' And dw_head.GetItemStatus(1, 0, Primary!) = NewModified! Then
    ls_pinu060_01 = dw_head.GetItemString(1,'pinu060_01')
    ls_year = char(65 + integer(mid(ls_pinu060_01,3,2)))
    ls_sysdate = String(SQLCA.of_sysdate(),'yyyymmdd')
    Choose Case Mid(ls_pinu060_01,5,2)
        Case '10'
            ls_month = 'A'
        Case '11'
            ls_month = 'B'
        Case '12'
            ls_month = 'C'
        Case Else
            ls_month = String(Long(Mid(ls_pinu060_01,5,2)))
    End Choose
   ls_date = Left(ls_pinu060_01, 6)
    SELECT MAX(pinu060_k1)
      INTO :ls_pinu060_k1
      FROM pinu060
     WHERE pinu060_01 LIKE :ls_date||'%'
       AND pinu060_k1 LIKE 'FLHK%';
    If Sqlca.Sqlcode = 100 Or Isnull(ls_pinu060_k1) Then
        ll_serial = 1
    ElseIf Sqlca.Sqlcode < 0 Then
        of_MessageBox("ъ虫沮絪腹程岿!"+Sqlca.Sqlerrtext)
        Return 1
    End If
    If Trim(ls_pinu060_k1) <> '' Or Not Isnull(ls_pinu060_k1) Then
      ll_serial = Dec(Right(ls_pinu060_k1, 4)) + 1
    End If
    is_FormId = 'FLHK' + ls_year + ls_month + String(ll_serial,'0000')
    dw_head.SetItem(1,'pinu060_k1',is_FormId)
    
    If dw_body.RowCount() > 0 Then
        For ll_i = 1 To dw_body.RowCount()
            dw_body.SetItem(ll_i,1,is_FormId)
        Next
    End If    
End If
If Not Match(is_FormId,"^FLHK[0-9A-Z][0-9A-Z][0-9][0-9][0-9][0-9]$") Then
    of_MessageBox("FLHK秨﹍,ゲ斗10絏,4计!")
    Return 1
End If