Skip to content

Instantly share code, notes, and snippets.

Avatar

Vladimir Vissoultchev wqweto

  • Unicontsoft
  • Sofia, Bulgaria
View GitHub Profile
@wqweto
wqweto / Form1.frm
Last active Mar 25, 2019
PNG filter on save
View Form1.frm
Option Explicit
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function GdiplusStartup Lib "gdiplus" (hToken As Long, pInputBuf As Any, Optional ByVal pOutputBuf As Long = 0) As Long
Private Declare Function GdipLoadImageFromFile Lib "gdiplus" (ByVal lFilenamePtr As Long, hImage As Long) As Long
Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal hImage As Long) As Long
Private Sub Form_Load()
Dim aInput(0 To 3) As Long
@wqweto
wqweto / LabelVert.ctl
Created Mar 7, 2019
Windowless Vertical Label control
View LabelVert.ctl
VERSION 5.00
Begin VB.UserControl LabelVert
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
CanGetFocus = 0 'False
ClientHeight = 3372
ClientLeft = 0
ClientTop = 0
ClientWidth = 4980
@wqweto
wqweto / mdJson.bas
Last active Dec 17, 2020
JSON parsing/dumping/accessing functions for VB6 and VBA
View mdJson.bas
'=========================================================================
'
' https://github.com/wqweto/UcsFiscalPrinters/blob/master/src/Shared/mdJson.bas
' JSON parsing and dumping functions
'
'=========================================================================
Option Explicit
DefObj A-Z
Private Const MODULE_NAME As String = "mdJson"
@wqweto
wqweto / mdCollection.bas
Last active Dec 16, 2020
[VB6/VBA] Collection keys
View mdCollection.bas
Option Explicit
#Const HasPtrSafe = (VBA7 <> 0)
#Const LargeAddressAware = (Win64 = 0 And VBA7 = 0 And VBA6 = 0 And VBA5 = 0)
'--- for CopyMemory
#If HasPtrSafe Then
Private Const NULL_PTR As LongPtr = 0
#Else
Private Const NULL_PTR As Long = 0
@wqweto
wqweto / mdBlurBitmap.bas
Last active Oct 18, 2019
[VB6] Blur effect on GDI+ bitmaps
View mdBlurBitmap.bas
Option Explicit
DefObj A-Z
'--- for VirtualProtect
Private Const PAGE_EXECUTE_READWRITE As Long = &H40
Private Const MEM_COMMIT As Long = &H1000
'--- for CryptStringToBinary
Private Const CRYPT_STRING_BASE64 As Long = 1
'--- for gdi+
Private Const ImageLockModeRead As Long = &H1
@wqweto
wqweto / oledbinterfaces.idl
Created Dec 6, 2018
OLEDB interfaces for feeding DataSource property of bound-controls
View oledbinterfaces.idl
[
uuid(0DF264F1-248C-4cf7-A9C7-8BB3CED7B3BA),
version(1.0),
helpstring("OLEDB Interfaces 1.0")
]
library OLEDBInterfaces
{
importlib("stdole2.tlb");
importlib("msdatsrc.tlb");
@wqweto
wqweto / usp_nom_Gener_PriceListsChildren.sql
Created Nov 16, 2018
This stored procedure generates client price lists upon parent price list modification
View usp_nom_Gener_PriceListsChildren.sql
IF OBJECT_ID('usp_nom_Gener_PriceListsChildren') IS NOT NULL DROP PROC usp_nom_Gener_PriceListsChildren
GO
-- exec usp_sys_StartOperation @User='ucs'
/*
BEGIN TRAN
exec dbo.usp_nom_Gener_PriceListsChildren 1,NULL,'{B0CEBE23-AA32-42D3-9FEC-082CA8B977F8}',NULL,NULL,'F715F915-4D3F-4710-A257-DD34BD2442B1'
-- exec dbo.usp_nom_Gener_PriceListsChildren 3, 7, '{F0736D5D-0004-43BE-859D-731DDD2EC5A8}', NULL, NULL, '6F0D3E0C-7CEE-4A2B-985B-C3C40ED6015C'
SELECT * FROM nom_priceLists WHERE PriceList_ID = 'B0CEBE23-AA32-42D3-9FEC-082CA8B977F8'
ROLLBACK
*/
@wqweto
wqweto / suffix.peg
Created Oct 31, 2018
PEG.js proof of concept for zig
View suffix.peg
/*
SuffixExpr
= AsyncPrefix SuffixExpr FnCallArgumnets
/ PrimaryExpr SuffixOp*
*/
SuffixExpr
= AsyncPrefix (PrimaryExpr SuffixOpBeforeLParen?) FnCallArgumnets
/ (PrimaryExpr SuffixOp*)
SuffixOpBeforeLParen
@wqweto
wqweto / cPrintersCombo.cls
Created Oct 17, 2018
Based on [Retrieving icons of current user printers](https://stackoverflow.com/a/1183185/40691)
View cPrintersCombo.cls
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "cPrintersCombo"
Attribute VB_GlobalNameSpace = False
@wqweto
wqweto / README.md
Last active Sep 28, 2018
FAQ for Dreem POS
View README.md

Q: Как да избера най-бързо клиентска карта по код, дори ако кодът съвпада с ИН/БУЛСТАТ на друг контрагент?
A: На новия ред напишете кода на картата, след което натиснете F2, например 204 F2

Q: Как да изтрия последния избран продукт без да използвам стрелки от клавиатурата?
A: Натиснете Del на новия ред

Q: Как да променя количеството на последния избран продукт без да използвам стрелки от клавиатурата?
A: Натиснете F4 на новия ред и редактирайте реквизит Количество, например "Супа от губи" в последствие се разбира че е половинка

Q: Как да създам нов контрагент за фактура без да въвеждам име и адрес?