金税接口文本的格式拆分

todaynew

用记录集解决比较方便。

.....
if me.金额.value>999999.99 then
   x=me.金额.value
   y=me.数量.value
   j=int（me.金额.value/999999.99)
   for i=1 to j+1
       rs.addnew
       rs("单号")=me.单号.value
       rs("名称描述")=me.名称描述.value
       rs("单位")=me.单位.value
       rs("客户材料")=me.客户材料.value
       if i<=j then
          rs("数量")=me.数量.value * 999999.99 / me.金额.value
          rs("金额")=999999.99
       else
          rs("数量")=y
          rs("金额")=x
       end if
       rs.Update
       x = x - rs("金额")
       y = y - rs（"数量"）
   next
end if
....