โปรแกรมขายสินค้าสําเร็จรูปฟรี: นี่คือโพสต์ที่เกี่ยวข้องกับหัวข้อนี้
��鹵��� 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/
นอกจากการดูบทความนี้แล้ว คุณยังสามารถดูข้อมูลที่เป็นประโยชน์อื่นๆ อีกมากมายที่เราให้ไว้ที่นี่: ดูเพิ่มเติม
ERP โปรแกรมฟรีที่ไม่ธรรมดา
ดาวน์โหลด : https://www.mindphp.com/download/alldownload/documents/5openerp70os.html
erp คือโปรแกรมฟรีที่ใช้งานในการควบคุมระบบต่าง ๆ ทั้งระบบโรงงานและ sme ขนาดเล็ก และกลาง
โปรแกรมขายหน้าร้าน 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, เครื่องบันทึกเงินสด, เครื่องแคชเชียร์, เครื่องคิดเงิน, เครื่องขายหน้าร้าน, เครื่องเก็บเงิน, โปรแกรมร้านค้าปลีก, โปรแกรมคิดเงิน, โปรแกรมขายของ, โปรแกรมค้าปลีกค้าส่ง, โปรแกรมจัดสต๊อก, จัดสต๊อกสินค้า
สอนฟรี ! ยิง 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
ขอบคุณที่รับชมกระทู้ครับ โปรแกรมขายสินค้าสําเร็จรูปฟรี