近期需要对用友ERP轻量MES之间做集成，主要需要实现U8前端单据保存后将某些数量、等发送到MES上面去

前端发起一个HTTP请求、搭建中转服务，用作处理前端发过来的请求。然后将整个处理逻辑写在中转服务器的代码上，这样可以随时方便的修改与第三方系统之间的系统集成逻辑，

U8前端主要使用的是Vb语言，后端使用Python Django来处理后端逻辑

Imports System.Data
Imports System.Data.SqlClient
Imports System.Text
Imports System.Windows
Imports System.Windows.Forms
Imports System.Windows.Forms.Form
Imports MSXML2
Imports Newtonsoft.Json
Imports U8VouchList
Imports UAPVoucherControl85
Imports System.Threading.Tasks
Imports System.Net.Http
Public Class clsButtonLinkCc
    '调用自己增加的按钮代码在这里写

    Public Function RunCommand(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object, ByVal sKey As String, ByVal VarentValue As Object, ByVal other As String) As Boolean
        If (objLogin Is Nothing) Then
            Windows.Forms.MessageBox.Show("未正常登录", "提示", Windows.Forms.MessageBoxButtons.OK, Windows.Forms.MessageBoxIcon.Information)
            Exit Function
        End If

    End Function

    '初始化功能，在窗体Toolbar初始化时执行一次
    'objLogin代表UFToolbar上取得的Login信息
    'objForm代表该Toolbar所在的窗体信息
    'objVoucher代表Toolbar所在窗体上的单据控件对象或者单据列表对象
    'msbar代表窗体上的MsToolbar对象
    Public Function Init(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object, ByVal msbar As Object) As Boolean


    End Function

    '执行按钮前执行该方法，objVoucher为单据或列表对象
    'VarentValue为在表中预置的cVariant的值。
    'objLogin代表UFToolbar上取得的Login信息
    'objForm代表该Toolbar所在的窗体信息
    'objVoucher代表Toolbar所在窗体上的单据控件对象或者单据列表对象
    'sKey代表该按钮的ButtonKey
    'VarentValue代表数据库预置的Varent值

    Public Function BeforeRunSysCommand(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object,
                            ByVal sKey As String, ByVal VarentValue As Object, ByRef Cancel As Boolean, ByVal other As String) As Boolean
        Dim cCusCode As String
        Dim cInvCode As String
        Dim cinvname As String
        Dim iquantity As String
        Dim sql As String
        Dim Dt_data As New DataTable
        Dim result As String = SendPostJsonRequest()
        '使用 Newtonsoft.Json 将 JSON 字符串反序列化为 Dictionary
        Dim response As JsonResponse = JsonConvert.DeserializeObject(Of JsonResponse)(result)

        U8SQLHelper.U8DB.connectionString = objLogin.UfDbName

        If sKey = "tlbSave" Then
            Console.WriteLine(objVoucher)
            Forms.MessageBox.Show("服务器返回：" & response.number)
            Dim number As Integer
            number = response.number
            If number = 2 Then
                MsgBox("接收数据为2，后端服务器响应成功")
            End If
            For i = 1 To objVoucher.Rows
                If Not String.IsNullOrEmpty(objVoucher.bodyText(i, "cInvCode")) Then
                    cInvCode = objVoucher.bodyText(i, "cInvCode")
                    cinvname = objVoucher.bodyText(i, "cinvname")
                    iquantity = objVoucher.bodyText(i, "iquantity")
                    MsgBox(iquantity)
                    cCusCode = objVoucher.headerText("cCusCode")
                    If (cCusCode = "00000001" And cInvCode = "01000001") Then

                        Cancel = True
                        Exit Function
                    End If
                End If
            Next
        End If
        Cancel = False
    End Function
    Public Function AfterRunSysCommand(ByVal objLogin As Object, ByVal objForm As Object, ByVal objVoucher As Object,
                           ByVal sKey As String, ByVal VarentValue As Object, ByRef Cancel As Boolean, ByVal other As String)

    End Function

    Public Function SendPostJsonRequest() As String
        Dim url As String = "http://192.168.1.185:8000/reg/test/"

        ' 构造 JSON 参数
        Dim postData As New System.Text.StringBuilder()
        postData.Append("{""number"": 2, ""product"": 4}")

        Dim jsonBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(postData.ToString())

        Try
            Dim request As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
            request.Method = "POST"
            request.ContentType = "application/json"
            request.ContentLength = jsonBytes.Length

            Using stream As System.IO.Stream = request.GetRequestStream()
                stream.Write(jsonBytes, 0, jsonBytes.Length)
            End Using

            ' 获取响应
            Using response As System.Net.HttpWebResponse = CType(request.GetResponse(), System.Net.HttpWebResponse)
                Using reader As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
                    Dim responseJson As String = reader.ReadToEnd()
                    Console.WriteLine("返回的 JSON 是: " & responseJson)
                    Return responseJson
                End Using
            End Using

        Catch ex As System.Net.WebException
            Console.WriteLine("HTTP 请求出错: " & ex.Message)
            Return "Error: " & ex.Message
        Catch ex As Exception
            Console.WriteLine("发生错误: " & ex.Message)
            Return "Error: " & ex.Message
        End Try
    End Function


End Class

Public Class JsonResponse
    Public Property number As Integer
    Public Property product As Integer
End Class

在请求中设定请求的服务器地址，并验证，如果正确则提示

@csrf_exempt
def test(request):
    if request.method == 'POST':
    
        raw_body = request.body
        print("原始请求体 bytes:", raw_body)

        try:
     
            data = json.loads(raw_body.decode('utf-8'))
            print("解析后的 JSON 数据:", data)

            number = data.get('number')      # ✅ 从 JSON 中取 number
            product = data.get('product')    # ✅ 从 JSON 中取 product

            return JsonResponse({
                'number': number,
                'product': product,
                'message': 'JSON 数据解析成功'
            })
        except Exception as e:
            return JsonResponse({
                'error': 'JSON 解析失败',
                'details': str(e)
            }, status=400)
    else:
        return JsonResponse({'error': '只支持 POST 请求'}, status=405)

用友U8二次开发-与第三方系统集成

AIT主管

后端

实现用友U8与MES系统集成方案，通过VB前端发起HTTP请求，Python Django搭建中转服务处理数据交互。核心流程包括U8单据保存时触发请求，中转服务接收并处理JSON数据，实现ERP与MES系统间数量等关键数据的实时传输。采用中间层架构便于后期集成逻辑调整，确保系统间数据同步高效可靠。

数据库

服务器

Windows

JSON

4核4G3M云服务器 新用户低至38元/年！

AI驱动 智领未来

tencentdb-catalog

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

用友U8二次开发-与第三方系统集成-腾讯云开发者社区-腾讯云

用友U8二次开发-与第三方系统集成

用友U8二次开发-与第三方系统集成

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐