记录企业erp软件编写点滴

yzt880

编写软件涉及的知识是多方面的。不仅仅是会写代码那么简单。会涉及很多预想不到的事情。就讲讲我遇到的网络风暴问题。
引起网络风暴的原因很多，其中一种就是网络环路。我遇到了两次。
第一次是在一家医药公司。突然有一天，公司的网络时断时续，一会可以上网，一会中断上网。ping网关断断续续。查找了一个上午的原因也没有找到。最后在一个办公室的交换机上发现一根网线的两端分别插在两个端口。拔掉后网络正常。
第二次就在前几天，混凝土公司的网络时断时续。他们找了联通的维修人员，查找了两天也没有解决。最后找到我。排查中确定有一条网线拔掉公司的网络就恢复正常，插上后整个公司的网络就瘫痪了。这次没有怀疑环路的问题，只是考虑是不是这条线有短路什么的。这条线是公司的监控网络。问题没有解决。
后来想到了环路问题。顺着这个思路，确定是从一个交换机分出的两条线，绕了好几个交换机后最终插在了一个交换机上。造成了网路环路，断开一条后问题解决。
总结：网路时断时续时拔插网线ping工具。排除其他原因后要怀疑网路环路。但是复杂的网路很难找到环路的网线。这两次也是我运气好。经验很重要。附图一张

zhafs

膜拜大神！

yancx

非常好的经验分享

yzt880

删除不了？

yzt880

分享一些自己的经验。
前年买了三个天龙的heos音箱，在家没事听听。
这个是网络音箱，可以把几个音箱连在一起听网络音乐。但是由于国内你懂得的原因，想连接音箱公司提供的音乐服务器和tune的广播是不可能的，
理论上可以建立一个音乐服务器。
最近我建立一个nas，就是黑群晖。上传了很多歌曲。这个在家里的局域网音箱连接没有问题。
我把nas放到有ip公网的机房后，电脑共享连接没有问题，
但是音箱无法连接。我特意咨询了天龙公司的技术人员，也是蒙圈，说是很麻烦，几乎无法解决。
后来我无意中调整nas的smb设置，解决了网络连接问题。
smb是一个通讯协议。
开始为什么不能连接？使用的是smb3和smb2协议。
当调到smb1协议的时候连接就完成了。我记得xp系统和win10以上操作系统在共享上发生问题的时候也是由于smb协议引起的。
写在这里，备忘。再就是又遇到类似问题的也是个经验吧。

yzt880

这是导出.xml文件的代码实例。在access中导出可以在税务软件（金税3）导入的xml文件。有需要的可以参考。


Dim j, i, k, n, m, q, p As Integer
Dim Aw, Nm, Zs, Dn, spb As String


    Nm = Me.List0.Column(1, 1)
    Zs = Me.List0.Column(0, 1)

    m = 0
   
   
    myfile = path & "\金税\" & Format(Date, "YYYY-MM-DD") & Nm & "-" & Zs & "-金税2.0导入.xml"
    If Dir(myfile) <> "" Then Kill myfile
    Open myfile For Append As #1
    Print #1, "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "GBK" & Chr(34) & " ?>"  '<?xml version="1.0" encoding="GBK" ?>
    Print #1, "<Kp>"
    Print #1, "<Version>2.0</Version>" '//有此节点，则表示用带分类编码
    Print #1, "  <Fpxx>"
    Print #1, "  <Zsl>" & Trim(Text14) & "</Zsl>"                          '//此文件含有的单据信息数量,(文件中含有多少份发票<=500)
    Print #1, "  <Fpsj>"
'For j = 1 To k
    Print #1, "  <Fp>"
    Print #1, "      <Djh>" & Trim(Text14) & "</Djh>"            '//单据号（20字节）
    Print #1, "      <Gfmc>"; "</Gfmc>"        '//购方名称（100字节）
    Print #1, "      <Gfsh>"; "</Gfsh>"          '//购方税号
    Print #1, "      <Gfyhzh>"; "</Gfyhzh>"     '//购方银行账号（100字节）
    Print #1, "      <Gfdzdh>"; "</Gfdzdh>"     '//购方地址电话（100字节）
    Print #1, "      <Bz>"; "</Bz>"             '//备注（240字节）
    Print #1, "      <Fhr>"; "</Fhr>"           '//复核人（8字节）
    Print #1, "      <Skr>" & "</Skr>"             '//收款人（8字节）
    Print #1, "      <Spbmbbh>1.0</Spbmbbh>"
    Print #1, "      <Hsbz>0</Hsbz>"
    Print #1, "      <Spxx>"

For i = 1 To Me.List1.ListCount - 1
   
    m = m + 1
    Print #1, "          <Sph>"
    Print #1, "              <Xh>" & Format(Trim(Text14), "#####") & "</Xh>"               '//序号
    Print #1, "              <Spmc>" & Trim(List1.Column(3, i)) & "</Spmc>"                            '//商品名称，金额为负数时此项为折扣行数（100字节）
    Print #1, "              <Ggxh>" & Trim(List1.Column(4, i)) & "</Ggxh>"                            '//规格型号（40字节）
   
    Select Case Trim(List1.Column(12, i))
Case "1"
spb = "1070302120000000000" '片剂
Case "3"
spb = "1070304010000000000" '片剂
Case "2"
spb = "1070302050000000000" '片剂
Case "4"
spb = "1070302140000000000" '片剂
Case "5"
spb = "1070302070000000000" '片剂
Case "6"
spb = "1070302060000000000" '胶囊剂
Case "8"
spb = "1070304990000000000" '片剂
Case "9"
spb = "1070302030000000000" '注射剂
Case "10"
spb = "1070308010000000000" '片剂
Case "11"
spb = "1070302130000000000" '片剂
Case "12"
spb = "1070304060000000000" '片剂
Case "13"
spb = "1070302130000000000" '片剂
Case "14"
spb = "1070302090000000000" '片剂
Case "15"
spb = "1070302120000000000" '片剂
Case "16"
spb = "1070302130000000000" '片剂
Case "17"
spb = "1070304990000000000" '片剂
Case "18"
spb = "1070304060000000000" '片剂
Case "19"
spb = "1070304060000000000" '片剂
Case "20"
spb = "1070302140000000000" '片剂
Case "21"
spb = "1070302140000000000" '片剂
Case "22"
spb = "1070302100000000000" '片剂
Case "23"
spb = "1070302100000000000" '片剂
Case "24"
spb = "1070302070000000000" '片剂
Case "25"
spb = "1070304990000000000" '片剂
Case "26"
spb = "1070302130000000000" '片剂
Case "27"
spb = "1070302100000000000" '颗粒剂
Case "28"
spb = "1070302130000000000" '片剂
Case "29"
spb = "1070302130000000000" '片剂
Case "30"
spb = "1070302090000000000" '片剂
Case "31"
spb = "1070304010000000000" '片剂
Case "32"
spb = "1070302060000000000" '片剂
Case "33"
spb = "1070302070000000000" '片剂
Case "34"
spb = "1070304990000000000" '片剂
Case "35"
spb = "1070303010000000000" '片剂
Case "36"
spb = "1070304990000000000" '片剂
Case "37"
spb = "1070302140000000000" '片剂
Case Else
spb = "1070302140000000000" '颗粒剂
End Select
   
   
    Print #1, "              <Jldw>" & Trim(List1.Column(5, i)) & "</Jldw>"                            '//计量单位（32字节）
    Print #1, "              <Spbm>" & spb & "</Spbm>"                            '//Spbm（32字节）
    Print #1, "            <Qyspbm>"; "</Qyspbm>"
    Print #1, "              <Syyhzcbz>0</Syyhzcbz>"
    Print #1, "            <Lslbz>"; "</Lslbz>"                      '//零税率标识   空：非零税率，0：出口退税，1：免税，2：不征收，3普通零税率（                                                       1字节）"
    Print #1, "            <Yhzcsm>"; "</Yhzcsm>"
    Print #1, "              <Dj>" & Format(Trim(List1.Column(8, i)), "0.##############") & "</Dj> "  '//单价（不含税单价）
    Print #1, "              <Sl>" & Format(Trim(List1.Column(6, i)), "0.######") & "</Sl>"            '//数量
    Print #1, "              <Je>" & Format(Trim(List1.Column(9, i)), "0.######") & "</Je>"           '//金额【金额=Round(不含税金额,2)】，当金额为负数时为折扣行
    Print #1, "              <Slv>" & Format(Text11, "0.######") & "</Slv>"         '//税率,税金=ROUND(ROUND(不含税金额,2)*税率,2)
    Print #1, "     <Kce>"; "</Kce>"                        '//扣除额，用于差额税计算"
    Print #1, "          </Sph>"
   
   
Next i
    Print #1, "      </Spxx>"
    Print #1, "  </Fp>"
'Next j
    Print #1, "  </Fpsj>"
    Print #1, "  </Fpxx>"
    Print #1, "</Kp>"
    Close #1
  
   
MsgBox "完成导出，您可以在桌面金税文件夹中找到该文件导入金税2.0!", , "提示"

yzt880

其中循环取得是列表框数据。  Print #1, "              <Spmc>" & Trim(List1.Column(3, i)) & "</Spmc>"