'   .   ,  
dim OstPlatForm
dim ddd
dim CHBOX
dim qqplat
dim query
',   
'    CHARSET'
' ,     ..
'   :
'   self
'    mainform
'   .  
Function ON_Create(inBLOB)
self.controls("KBK").MAXLENGTH=20
OSTATKI=self.controls("ostatki")
ostatki.SetHandler
ON_Create = "1"
end function

sub OSTATKI_onClick
' MsgBox "   3 ",0," BARS"
 set FS=CreateObject("Scripting.FileSystemObject")
  tt=FS.GetFolder("macroses")
  set fs=nothing
  putch = tt & "\ostatok.dfm"
 if(isEmpty(OstPlatForm)) then
  self.Add "Ost1PlatForm","TForm"
  qqplat=self.controls("qPlat")
  set OstPlatForm=Ost1PlatForm
  OstPlatForm.CREATEFORMBYDFM(putch)
  CHBOX=OstPlatForm.controls("CHBOX")
  CHBOX.SetHandler
  set query=OstPlatForm.controls("Query")
  query.database=mainform.controls("Database")
 end if
  call CHBOX_OnClick()
  c11=OstPlatForm.ShowModal()
end sub

sub CHBOX_OnClick
   query.sql.clear
   if(CHBox.checked=true) then
     query.sql.add "select accnumberout, rez, summa_ost,datout from ostat_platP(current_timestamp,'')"
   else
     query.sql.add "select accnumberout, rez, summa_ost,datout from ostat_platP(current_timestamp,'" &  qqplat.fieldbynamestring("schetplatel") & "')"
   end if
 query.active=true
end sub

'sub summarub_onchange
'MsgBox " change"
'end sub

'    
'     ..
'       
' .  ,  . 0  1
Function ON_Save(inBLOB)

Skachok=Self.ActiveControl
self.Controls("NAMEPLATEL").SetFocus
RetVal="1"
set c=self.controls("qPlat")

'   

  MessageString=""

  '
  SUMMARUB = c.FieldByNameString("SUMMARUB")
  SUMMAKOP = c.FieldByNameString("SUMMAKOP")

   
  if(SUMMARUB="") then
    if(SUMMAKOP="" or SUMMAKOP="0" or SUMMAKOP="00") then
      MessageString=MessageString+vbcrlf+"    "
      RetVal= "0"
    end if
  end if


  ' 
  NAMEPLATEL = self.Controls("NAMEPLATEL").Text
  if(NAMEPLATEL="") then
    MessageString=MessageString+vbcrlf+"   ( )"
    RetVal= "0"
  end if

  '  
  NAMEBANKPLATEL = self.Controls("NAMEBANKPLATEL").Text
  if(NAMEBANKPLATEL="") then
    MessageString=MessageString+vbcrlf+"   "
    RetVal= "0"
  end if

  ' 
  NAMEPOLUCHAT = self.Controls("NAMEPOLUCHAT").Text
  if(NAMEPOLUCHAT="") then
    MessageString=MessageString+vbcrlf+"  "
    RetVal= "0"
  end if
'100
  '  
  NAMEBANKPOLUCH = self.Controls("NAMEBANKPOLUCH").Text
  if(NAMEBANKPOLUCH="") then
    MessageString=MessageString+vbcrlf+"   "
    RetVal= "0"
  end if


  ' 
  SCHETPLATEL = c.FieldByNameString("SCHETPLATEL")
  SCHETPLATEL = self.Controls("SCHETPLATEL").Text
  if(SCHETPLATEL="") then
    MessageString=MessageString+vbcrlf+"   "
    RetVal= "0"
  end if

  ' 
  SCHETPOLUCH = c.FieldByNameString("SHETPOLUCH")
'  SCHETPOLUCH = self.Controls("SCHETPOLUCH").Text
  if(SCHETPOLUCH="") then
    MessageString=MessageString+vbcrlf+"   "
    RetVal= "0"
  end if

  '  
'  self.Controls("NAMEBANKPOLUCH").SetFocus
'  if (SCHETPLATEL<>"") and (SCHETPOLUCH<>"") then
'    LenPlat=Len(SCHETPLATEL)
'    LenPol=Len(SCHETPOLUCH)
'    if (LenPlat>LenPol) then 
'      AbsLen=LenPlat-LenPol
'    Else
'      AbsLen=LenPol-LenPlat
'    end if      
'    if (AbsLen>5) then
'      MessageString=MessageString+vbcrlf+"   5 "
'      RetVal= "0"
'    end if
'  end if


  ' 
  NAZNPLATEZ = self.Controls("NAZNPLATEZ").Text
  if(NAZNPLATEZ="") then
    MessageString=MessageString+vbcrlf+"   "
    RetVal= "0"
  end if

  NDSTEXT = self.Controls("NDSTEXT").Text


  '     ..  210 
  if (NAZNPLATEZ<>"") or (NDSTEXT<>"") then
    SumSimv = Len(NAZNPLATEZ)
    SumSimv = SumSimv+Len(NDSTEXT)
    if (SumSimv>210) then
      Raznica=SumSimv-210
      Soob="            " + CStr(Raznica)
      MessageString=MessageString+vbcrlf+Soob
      RetVal= "0"
    end if
  end if

'===========================================================================
'  
  
  ' 
  STATNAL = c.FieldByNameString("STATNAL")

  if STATNAL="" then

    '  
    SearchStr1 = ""      
    SearchStr2 = ""      

    '    
    if (NDSTEXT<>"") then
      MyPos1 = Instr(1, NDSTEXT, SearchStr1, 1)    
      MyPos2 = Instr(1, NDSTEXT, SearchStr2, 0)    
      if MyPos1<1 then
        if MyPos2<1 then
          Self.Enabled=False      
          MainForm.enabled=false
          MsgBox "    "
          Self.Enabled=True    
          MainForm.enabled=true
        end if
      end if  

    else
      MessageString=MessageString+vbcrlf+"    "
      RetVal= "0"
    end if
  else
    self.Controls("NDSTEXT").Text=""    
  end if 
  
  Dat2005Str="01.01.2005"
  DatPlStr=c.FieldByNameString("DAT")

  Dat2005Dt=cDate(Dat2005Str)
  DatPlDt=cDate(DatPlStr)

  if STATNAL<>"" then
    KBKTEXT=Self.Controls("KBK").Text
    if (KBKTEXT="") then
      MessageString=MessageString+vbcrlf+"  "
      RetVal="0"
    else
      if (Len(KBKTEXT)<20) then
        if (DatPlDt>=Dat2005Dt)then
          MessageString=MessageString+vbcrlf+"  "
          RetVal="0"
        end if
      end if
    end if
    
  end if

' 
'==================================================================================
    
  if MessageString<>"" then 
    Self.Enabled=False    
    MainForm.enabled=false
    MsgBox MessageString,0," BARS"
    Self.Enabled=True    
    MainForm.enabled=true
    
  end if
  ON_Save = RetVal

Self.ActiveControl=Skachok
end function

'     
'     ..
'       
' .  ,  . 0  1
Function ON_SignDoc(inBLOB)

'MsgBox ""
ON_SignDoc = "1"

end function

Function ON_Delete(inBLOB)

'MsgBox ""
ON_Delete = "1"

end function
