Skip to content
Home » [Update] ᨡ��ի������������к�����Թ��� – Point Of Sale | โปรแกรมขายสินค้าสําเร็จรูปฟรี – NATAVIGUIDES

[Update] ᨡ��ի������������к�����Թ��� – Point Of Sale | โปรแกรมขายสินค้าสําเร็จรูปฟรี – NATAVIGUIDES

โปรแกรมขายสินค้าสําเร็จรูปฟรี: นี่คือโพสต์ที่เกี่ยวข้องกับหัวข้อนี้

  • ��鹵͹��� 2

    ���Դ੾�е͹���ӡ����䢢�������ҹ�� … ��蹤���ԡԴ�ѹ�֡��¡�â���Թ�������� ���١����Դ�׹�Թ��ҡ�Ѻ��
    ��Ҩ֧��ͧ�� �ӹǹ�Թ��� ������͡���� � tblInvoiceDetail �׹��Ѻ������¡���Թ��� (tblProduct) ���¡�͹
    �ҡ�س���Ѵʵ�ͤ �������ǹ���������

    ��÷���¡�â�����

    ��÷���¡�â�����

    ��÷���¡�â������ ���� �����䢢����� �������������¡�÷�� 2 ����ѹ����

    ��÷���¡�â������ ���� �����䢢����� �������������¡�÷�� 2 ����ѹ����

    ��㹵��ҧ������ tblInvoiceDetail �ѹ�ѧ������¡�â���������
    �ѧ�����ҵ�ͧ�ӡ�ä׹�ӹǹ�Թ��ҹ���Ѻ���ʵ�ͤ仡�͹
    … �������ͤ�Ѻ
    ������ҵ����㺢���Թ���㺹�� (InvoicePK = 1) �ͧ���ҧ tblInvoiceDetail
    ��Ҩ�ź��¡�â���Թ������㹵��ҧ������ tblInvoiceDetail ����͡���������͹ (����㹢�鹵͹��� 3)
    �ҡ��鹡������Ң����ŻѨ�غѹ�������㹵��ҧ��Դ �ҷӡ�úѹ�֡����᷹�ѧ���Ф�Ѻ (����㹢�鹵͹��� 4)

    ��㹵��ҧ������ tblInvoiceDetail �ѹ�ѧ������¡�â���������… �������ͤ�Ѻ(����㹢�鹵͹��� 3)(����㹢�鹵͹��� 4)

    
        ' #########################################################
        ' ���ͺ����բ������Թ�������㹵��ҧ tblInvoiceDetail �������
        Dim blnData As Boolean
        ' �Ѻ��� Primary Key �ͧ�Թ��ҹ�������͹
        Dim ProdPK As Long
        
        ' #########################################################
        ' ��鹵͹��� ��� �óբͧ���������䢢����� �����Դ���ź�������Թ����͡仨ҡ���ҧ��Դ
        ' �ѧ��鹵�ͧ��Ң����ŷ��������Ǣͧ���ҧ��Դ ����º��º�Ѻ������������ InvoicePK � tblInvoiceDetail
        ' �ҡ��������㹵��ҧ tblInvoiceDetail �������㹵��ҧ��Դ �ʴ�����ա��ź�������Թ�������͡�
        ' ��Ҩе�ͧ�ӡ�ùӨӹǹ�Թ��ҷ������㹵��ҧ tblInvoiceDetail �觤׹��Ѻ������ҧ�Թ��� tblProduct
        ' ���ͻ�Ѻ�ӹǹʵ�ͤ���ç�Ѻ�����繨�ԧ (�١����Ҩ�׹�Թ��ҡ�Ѻ�����Ф�Ѻ)
        ' ���Դ�˵ء�ó��Ǩ�ͺ���������ǹ���੾�С����䢢�������ҹ��
        ' #########################################################
        
        ' �ѧ��� Not True ���� ����ԧ ���� �� ����ͧ ���ͨ���¹ If NewData = False ����
        If Not NewData Then
            '
            ' #########################################################
            ' ������Ҩзӡ��ź�����ŷ�������� InvoicePK ��ǻѨ�غѹ�����价�駪ش � tblInvoiceDetail
            ' ���Ǥ��·ӡ�úѹ�֡�����Ũҡ���ҧ��Դ�������� (㹢�鹵͹��� 4)
            ' #########################################################
            Set RS = New Recordset
            Statement = "SELECT * FROM tblInvoiceDetail WHERE InvoicePK = " & PK
            RS.CursorLocation = adUseClient
            RS.Open Statement, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
            
            blnData = False
            ' #########################################################
            ' ੾�С������������¡�â���Թ�����ҹ�� ǹ�ͺ����ӹǹ��� Primary Key �ͧ㺢���Թ���
            ' #########################################################
            Do Until RS.EOF
                ' ǹ�ͺ����ӹǹ�Ǣͧ���ҧ��Դ
                For Rec = 1 To fgData.Rows - 1
                    ' ���º��º�ҡ���ҧ������ (tblInvoiceDetail) �ҡ�դ�ҵç�ѹ�Ѻ Primary Key �ͧ�Թ���
                    ' ����͡�ҡ Loop For ���� �����ʴ�����繢������Թ��ҵ�������������
                    ' ��ѡ 0 ����͹������ͧ���ҧ��Դ ��� ��� Primary Key �ͧ�Թ��ҹ���
                    If RS("ProductFK") = CLng(fgData.TextMatrix(Rec, 0)) Then
                        blnData = True
                        Exit For
                        
                    ' �óշ�����͢�����㹵��ҧ tblInvoiceDetail ����辺㹵��ҧ��Դ �ʴ���� User ź�����Ţ���Թ�������͡�
                    ' ��ͧŧ任�Ѻ�ӹǹʵ�ͤ�Թ������� �ҧ��ҹ��ҧ
                    Else
                        ' �纤�� Primary Key �ͧ�Թ������͹Өӹǹ��Ѻ令׹ʵ�ͤ
                        ProdPK = RS("ProductFK")
                        blnData = False
                    End If
                Next
                
                ' �����͡�ҡǧ�ͺ FOR �ҡ��辺��¡���Թ��� blnData = False
                ' �ӡ�ä׹��Ѻ�Թ������ʵ�ͤ�ç���
                If Not blnData Then
                    Set DS = New Recordset
                    SQLStmt = "SELECT ProductPK, Stocked FROM tblProduct " & _
                                        " WHERE [ProductPK] = " & ProdPK & _
                                        " ORDER BY ProductPK"
                    DS.CursorLocation = adUseClient
                    DS.Open SQLStmt, ConnDB, adOpenKeyset, adLockOptimistic, adCmdText
                    If DS.RecordCount > 0 Then
                        ' #####################################################
                        ' �ѧࡵ���¹�Ф�Ѻ RS("Quantity") �繤�Ҩӹǹ�Թ��Ҩҡ���ҧ tblInvoiceDetail
                        ' ��ǹ DS("Stocked") �繤�ҷ������㹵��ҧ�Թ��� tblProduct
                        ' �������¹����Һ������� ����С���� RecordSet ����ҹ����Թ 3 �����͡��Ѻ
                        ' �������¡�����¹������ ... �ҡ��С�Ⱦ�������͡��ͧ�Թ Memory �٧ ��� �͡�ʼԴ��Ҵ�����٧����
                        '
                        DS("Stocked") = DS("Stocked") + RS("Quantity")
                        '
                        ' #####################################################
                        DS.Update
                    End If
                    DS.Close:   Set DS = Nothing
                End If
                ' ����͹��¡�èҡ���ҧ������
                RS.MoveNext
            Loop
    
            RS.Close:   Set RS = Nothing
        
        End If
        ' #########################################################
    
  • [Update] ᨡ��ի������������к�����Թ��� – Point Of Sale | โปรแกรมขายสินค้าสําเร็จรูปฟรี – NATAVIGUIDES

  • ��鹵͹��� 2

    ���Դ੾�е͹���ӡ����䢢�������ҹ�� … ��蹤���ԡԴ�ѹ�֡��¡�â���Թ�������� ���١����Դ�׹�Թ��ҡ�Ѻ��
    ��Ҩ֧��ͧ�� �ӹǹ�Թ��� ������͡���� � tblInvoiceDetail �׹��Ѻ������¡���Թ��� (tblProduct) ���¡�͹
    �ҡ�س���Ѵʵ�ͤ �������ǹ���������

    ��÷���¡�â�����

    ��÷���¡�â�����

    ��÷���¡�â������ ���� �����䢢����� �������������¡�÷�� 2 ����ѹ����

    ��÷���¡�â������ ���� �����䢢����� �������������¡�÷�� 2 ����ѹ����

    ��㹵��ҧ������ tblInvoiceDetail �ѹ�ѧ������¡�â���������
    �ѧ�����ҵ�ͧ�ӡ�ä׹�ӹǹ�Թ��ҹ���Ѻ���ʵ�ͤ仡�͹
    … �������ͤ�Ѻ
    ������ҵ����㺢���Թ���㺹�� (InvoicePK = 1) �ͧ���ҧ tblInvoiceDetail
    ��Ҩ�ź��¡�â���Թ������㹵��ҧ������ tblInvoiceDetail ����͡���������͹ (����㹢�鹵͹��� 3)
    �ҡ��鹡������Ң����ŻѨ�غѹ�������㹵��ҧ��Դ �ҷӡ�úѹ�֡����᷹�ѧ���Ф�Ѻ (����㹢�鹵͹��� 4)

    ��㹵��ҧ������ tblInvoiceDetail �ѹ�ѧ������¡�â���������… �������ͤ�Ѻ(����㹢�鹵͹��� 3)(����㹢�鹵͹��� 4)

    
        ' #########################################################
        ' ���ͺ����բ������Թ�������㹵��ҧ tblInvoiceDetail �������
        Dim blnData As Boolean
        ' �Ѻ��� Primary Key �ͧ�Թ��ҹ�������͹
        Dim ProdPK As Long
        
        ' #########################################################
        ' ��鹵͹��� ��� �óբͧ���������䢢����� �����Դ���ź�������Թ����͡仨ҡ���ҧ��Դ
        ' �ѧ��鹵�ͧ��Ң����ŷ��������Ǣͧ���ҧ��Դ ����º��º�Ѻ������������ InvoicePK � tblInvoiceDetail
        ' �ҡ��������㹵��ҧ tblInvoiceDetail �������㹵��ҧ��Դ �ʴ�����ա��ź�������Թ�������͡�
        ' ��Ҩе�ͧ�ӡ�ùӨӹǹ�Թ��ҷ������㹵��ҧ tblInvoiceDetail �觤׹��Ѻ������ҧ�Թ��� tblProduct
        ' ���ͻ�Ѻ�ӹǹʵ�ͤ���ç�Ѻ�����繨�ԧ (�١����Ҩ�׹�Թ��ҡ�Ѻ�����Ф�Ѻ)
        ' ���Դ�˵ء�ó��Ǩ�ͺ���������ǹ���੾�С����䢢�������ҹ��
        ' #########################################################
        
        ' �ѧ��� Not True ���� ����ԧ ���� �� ����ͧ ���ͨ���¹ If NewData = False ����
        If Not NewData Then
            '
            ' #########################################################
            ' ������Ҩзӡ��ź�����ŷ�������� InvoicePK ��ǻѨ�غѹ�����价�駪ش � tblInvoiceDetail
            ' ���Ǥ��·ӡ�úѹ�֡�����Ũҡ���ҧ��Դ�������� (㹢�鹵͹��� 4)
            ' #########################################################
            Set RS = New Recordset
            Statement = "SELECT * FROM tblInvoiceDetail WHERE InvoicePK = " & PK
            RS.CursorLocation = adUseClient
            RS.Open Statement, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
            
            blnData = False
            ' #########################################################
            ' ੾�С������������¡�â���Թ�����ҹ�� ǹ�ͺ����ӹǹ��� Primary Key �ͧ㺢���Թ���
            ' #########################################################
            Do Until RS.EOF
                ' ǹ�ͺ����ӹǹ�Ǣͧ���ҧ��Դ
                For Rec = 1 To fgData.Rows - 1
                    ' ���º��º�ҡ���ҧ������ (tblInvoiceDetail) �ҡ�դ�ҵç�ѹ�Ѻ Primary Key �ͧ�Թ���
                    ' ����͡�ҡ Loop For ���� �����ʴ�����繢������Թ��ҵ�������������
                    ' ��ѡ 0 ����͹������ͧ���ҧ��Դ ��� ��� Primary Key �ͧ�Թ��ҹ���
                    If RS("ProductFK") = CLng(fgData.TextMatrix(Rec, 0)) Then
                        blnData = True
                        Exit For
                        
                    ' �óշ�����͢�����㹵��ҧ tblInvoiceDetail ����辺㹵��ҧ��Դ �ʴ���� User ź�����Ţ���Թ�������͡�
                    ' ��ͧŧ任�Ѻ�ӹǹʵ�ͤ�Թ������� �ҧ��ҹ��ҧ
                    Else
                        ' �纤�� Primary Key �ͧ�Թ������͹Өӹǹ��Ѻ令׹ʵ�ͤ
                        ProdPK = RS("ProductFK")
                        blnData = False
                    End If
                Next
                
                ' �����͡�ҡǧ�ͺ FOR �ҡ��辺��¡���Թ��� blnData = False
                ' �ӡ�ä׹��Ѻ�Թ������ʵ�ͤ�ç���
                If Not blnData Then
                    Set DS = New Recordset
                    SQLStmt = "SELECT ProductPK, Stocked FROM tblProduct " & _
                                        " WHERE [ProductPK] = " & ProdPK & _
                                        " ORDER BY ProductPK"
                    DS.CursorLocation = adUseClient
                    DS.Open SQLStmt, ConnDB, adOpenKeyset, adLockOptimistic, adCmdText
                    If DS.RecordCount > 0 Then
                        ' #####################################################
                        ' �ѧࡵ���¹�Ф�Ѻ RS("Quantity") �繤�Ҩӹǹ�Թ��Ҩҡ���ҧ tblInvoiceDetail
                        ' ��ǹ DS("Stocked") �繤�ҷ������㹵��ҧ�Թ��� tblProduct
                        ' �������¹����Һ������� ����С���� RecordSet ����ҹ����Թ 3 �����͡��Ѻ
                        ' �������¡�����¹������ ... �ҡ��С�Ⱦ�������͡��ͧ�Թ Memory �٧ ��� �͡�ʼԴ��Ҵ�����٧����
                        '
                        DS("Stocked") = DS("Stocked") + RS("Quantity")
                        '
                        ' #####################################################
                        DS.Update
                    End If
                    DS.Close:   Set DS = Nothing
                End If
                ' ����͹��¡�èҡ���ҧ������
                RS.MoveNext
            Loop
    
            RS.Close:   Set RS = Nothing
        
        End If
        ' #########################################################
    

  • การทำงานของ โปรแกรมขายหน้าร้าน แจกฟรี ( Nanosoft FreePOS )


    โปรแกรม Nanosoft FreePOS เป็นโปรแกรม ขายหน้าร้าน แจกฟรี สามารถใช้ออกบิล ออกใบเสร็จ ทำสต๊อกได้ ที่สำคัญคือ ใช้ฟรีไม่มีเงื่อนไข
    รายละเอียดเพิ่มเติม
    https://www.nanosoft.co.th/download.php
    ติดต่อสอบถาม
    Tel. 053444111
    Phone. 0881410428
    Email: [email protected]
    Website: https://www.nanosoft.co.th/

    นอกจากการดูบทความนี้แล้ว คุณยังสามารถดูข้อมูลที่เป็นประโยชน์อื่นๆ อีกมากมายที่เราให้ไว้ที่นี่: ดูเพิ่มเติม

    การทำงานของ โปรแกรมขายหน้าร้าน แจกฟรี ( Nanosoft FreePOS )

    ERP โปรแกรมฟรีที่ไม่ธรรมดา


    ดาวน์โหลด : https://www.mindphp.com/download/alldownload/documents/5openerp70os.html
    erp คือโปรแกรมฟรีที่ใช้งานในการควบคุมระบบต่าง ๆ ทั้งระบบโรงงานและ sme ขนาดเล็ก และกลาง

    ERP โปรแกรมฟรีที่ไม่ธรรมดา

    โปรแกรมขายหน้าร้าน POSPOS – เพิ่มสินค้าด้วยการสแกนบาร์โค้ด


    ทดลองใช้งานฟรีได้ที่ https://www.pospos.co/
    🏆 ระบบบริหารจัดการร้านค้า POSPOS ที่ใช้งานง่ายที่สุด 🏆
    ✅ มีเจ้าหน้าที่สอนและช่วยเหลือการเริ่มต้นสร้างร้าน \”ฟรี !! ตลอดอายุการใช้งาน\”
    ✅ สอบถามให้คำปรึกษาเรื่อง POS ฟรี !!
    ✅ สามารถใช้งานแบบออฟไลน์ได้
    📌 โปรแกรม POS
    📌 โปรแกรมขายหน้าร้าน
    📌 โปรแกรมขายสินค้า
    📌 โปรแกรมคิดเงิน
    📌 โปรแกรมร้านค้าปลีก ร้านค้าส่ง
    📌 โปรแกรมร้านอาหาร
    📌 โปรแกรมพิมพ์บาร์โค้ด
    📌 โปรแกรมบริหารสต๊อกสินค้า
    📌 โปรแกรมบริหารจัดการร้านค้า
    👑 ระบบและฟีเจอร์ของเรา POSPOS 👑
    💎 ขายสินค้า
    💎 สินค้าขายด่วน
    💎 ค้างจ่าย ผ่อนชำระ
    💎 พักการขาย
    💎 พิมพ์ใบเสร็จ
    💎 พิมพ์ใบกำกับภาษี
    💎 ใบเสนอราคา
    💎 ใบรับของ
    💎 ใบแจ้งหนี้
    💎 ระบบกะการขาย
    💎 ออก VAT
    💎 ส่วนลดและโปรโมชั่น
    💎 Dashboard สรุปยอดขายรายวัน
    💎 ใบออเดอร์ จัดรายการสินค้า
    💎 จัดสต๊อกสินค้า
    💎 ระบบสาขา
    💎 โอนย้ายสินค้าระหว่างสาขา
    💎 สร้างบาร์โค้ด
    💎 แสดงบาร์โค้ดขายสินค้า
    💎 ราคาขายส่ง
    💎 ระดับราคา
    💎 ท๊อปปิ้ง
    💎 นำเข้าสินค้าหลายชิ้นผ่าน Excel
    💎 รายงานการขายรายวัน, รายเดือน, รายปี
    💎 รายงานติดตามยอดขาย
    💎 รายงานแสดงต้นทุนและกำไร
    💎 ระบบพนักงาน สิทธ์พนักงาน
    💎 ระบบสมาชิก
    💎 แต้มสะสม
    💎 นำเข้าสินค้าแบบ PO
    💎 หน้าจอแสดงผลฝั่งลูกค้า
    💎 การจัดการสินค้า Delivery
    👑 และอื่นๆอีกมากมายอัพเดทระบบทุกวัน 👑
    สามารถดูความสามารถของระบบทั้งหมดได้ที่
    https://www.pospos.co/property
    💥💥💥💥💥💥💥💥💥💥💥💥💥💥💥
    รองรับการใช้งานทุกอุปกรณ์
    ✅ คอมพิวเตอร์ PC , Notebook , Macbook
    ✅ โทรศัพท์ สมาร์ทโฟนทุกยี่ห้อ Android , IOS
    ✅ Tablet , iPad
    รองรับการเชื่อมต่อกับอุปกรณ์ต่อพ่วงอื่นๆได้
    ✅ เครื่องพิมพ์ใบเสร็จ
    ✅ เครื่องยิงบาร์โค้ด
    ✅ ลิ้นชักเก็บเงินอัตโนมัติ
    ✅ อุปกรณ์ POS อื่นๆ
    🔔 สอบถามเพิ่มเติม หรือ สั่งซื้ออุปกรณ์ POS ครบชุดพร้อมเปิดร้านขาย 🔔
    ☎️ โทร. 0813599468
    💚 Line id : @pospos
    💚 http://line.me/ti/p/@pospos
    🌐 Facebook : https://www.facebook.com/posposco
    📩 Email : [email protected]
    โปรแกรมPOS, โปรแกรมขายหน้าร้าน, โปรแกรมขายสินค้า, โปรแกรมคิดเงิน, โปรแกรมร้านค้าปลีกร้านค้าส่ง, โปรแกรมร้านอาหาร, โปรแกรมพิมพ์บาร์โค้ด, โปรแกรมบริหารสต๊อกสินค้า, โปรแกรมบริหารจัดการร้านค้า, POSPOS, ระบบpos, ระบบจัดการหน้าร้าน, ระบบจัดการร้านค้าออนไลน์, ยิงบาร์โค้ด, โปรแกรมpos, โปรแกรมหน้าร้าน, โปรแกรมยิงบาร์โค้ด, โปรแกรมเช็คสต๊อกสินค้า, โปรแกรมขายของหน้าร้าน, เครื่องpos, เครื่องบันทึกเงินสด, เครื่องแคชเชียร์, เครื่องคิดเงิน, เครื่องขายหน้าร้าน, เครื่องเก็บเงิน, โปรแกรมร้านค้าปลีก, โปรแกรมคิดเงิน, โปรแกรมขายของ, โปรแกรมค้าปลีกค้าส่ง, โปรแกรมจัดสต๊อก, จัดสต๊อกสินค้า

    โปรแกรมขายหน้าร้าน POSPOS - เพิ่มสินค้าด้วยการสแกนบาร์โค้ด

    สอนฟรี ! ยิง Ads หลัก 100 ให้ได้ 1,000,000


    สอนฟรี ! ยิง Ads หลัก 100 ให้ได้ 1,000,000

    แจกฟรี! ไฟล์โปรแกรมบันทึกรายรับรายจ่าย สำหรับทุกคนที่ใช้วินโดว์ พัฒนาต่อได้เลย(บอกวิธีไว้แล้วในคลิป)


    ลิ้งค์โหลดไฟล์ เวอร์ชั่นใหม่(เพิ่มกราฟแท่งและอื่นๆ): https://bit.ly/3hY7hhN
    ลิ้งค์โหลดไฟล์ เวอร์ชั่นเก่าในคลิป: https://bit.ly/3wECqwg
    สำหรับเครื่องที่ไม่มีโปรแกรม MS Access มาก่อนเลย แนะนำให้โหลดตัว MS Access 365 Runtime ครับ (ค้นหาดาวน์โหลดได้จาก Google)
    แวะชมสักนิด เพื่อวินัยทางการเงินที่ดีขึ้นของคุณ
    ต่อจากนี้ การตัดสินใจทางการเงินของคุณจะมาจากข้อมูลทางการเงิน มิใช่ความรู้สึกอีกต่อไป
    เป็นของขวัญก่อนปีใหม่กันนะครับ แนะนำว่าดีมาก เรื่องของการจดบันทึกรายรับรายจ่าย ทำให้เรารู้สภาพทางการเงินของเรา เห็นภาพรวม วางแผนร่วงหน้าได้ดีมากขึ้น ต่อจากนี้ การตัดสินใจในการใช้เงิน จะเป็นการตัดสินใจด้วยข้อมูลทางการเงิน ไม่ใช่ความรู้สึกอีกต่อไป

    แจกฟรี! ไฟล์โปรแกรมบันทึกรายรับรายจ่าย สำหรับทุกคนที่ใช้วินโดว์ พัฒนาต่อได้เลย(บอกวิธีไว้แล้วในคลิป)

    นอกจากการดูบทความนี้แล้ว คุณยังสามารถดูข้อมูลที่เป็นประโยชน์อื่นๆ อีกมากมายที่เราให้ไว้ที่นี่: ดูบทความเพิ่มเติมในหมวดหมู่LEARN TO MAKE A WEBSITE

    ขอบคุณที่รับชมกระทู้ครับ โปรแกรมขายสินค้าสําเร็จรูปฟรี

    Leave a Reply

    Your email address will not be published. Required fields are marked *