wqweto

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

[
  uuid(0DF264F1-248C-4cf7-A9C7-8BB3CED7B3BA),
  version(1.0),
  helpstring("OLEDB Interfaces 1.0")
]
library OLEDBInterfaces
{
    importlib("stdole2.tlb");
    importlib("msdatsrc.tlb");

wqweto

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

/*
SuffixExpr
    = AsyncPrefix SuffixExpr FnCallArgumnets
     / PrimaryExpr SuffixOp*
*/
SuffixExpr
    = AsyncPrefix (PrimaryExpr SuffixOpBeforeLParen?) FnCallArgumnets
     / (PrimaryExpr SuffixOp*)
     
SuffixOpBeforeLParen

wqweto

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

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

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

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

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

wqweto

'--- mdAesCtr.bas
Option Explicit
DefObj A-Z

#Const HasPtrSafe = (VBA7 <> 0) Or (TWINBASIC <> 0)

'=========================================================================
' API
'=========================================================================

wqweto

IF OBJECT_ID('usp_adm_ScriptTableData') IS NOT NULL DROP PROC usp_adm_ScriptTableData
GO
------------------------------------------------------------------------------------------------------------------------------------------------
-- exec usp_adm_ScriptTableData 'nom_Contragents', 'Name LIKE ''%нап%''', 'Note
CU
CD
LU
LD', 1
-- exec usp_adm_ScriptTableData 'backupset', @ColumnNames=1, @ResetAuditInfo=1
-- exec usp_adm_ScriptTableData 'acc_Wizard', @ColumnNames=1, @ResetAuditInfo=1
-- exec usp_adm_ScriptTableData 'nom_Holidays', @ColumnNames=2, @ResetAuditInfo=0, @WhereClause='Year(Date)=2013', @OrderClause='Date'

CREATE PROC usp_adm_ScriptTableData (
            @TableName      SYSNAME

wqweto

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "UPrinter"
Attribute VB_GlobalNameSpace = False

wqweto

--
-- lm_main.lua - a simple markdown to html converter with some twists
--   
-- original battle at http://forums.bgdev.org/index.php?showtopic=49993
--
local lpeg = require("lpeg")
local re = require("lpeg.re")

local esc_pattern = lpeg.Cs((lpeg.P"<"/"&lt;" + lpeg.P">"/"&gt;" + lpeg.P"&"/"&amp;" + 1)^0)
local function html_escape(text)