Skip to content

Instantly share code, notes, and snippets.

Microsoft Windows [Version 6.1.7600]
(c) Корпорация Майкрософт (Microsoft Corp.), 2009. Все права защищены.
C:\Users\forenheith>ipconfig /all
Настройка протокола IP для Windows
Имя компьютера . . . . . . . . . : forenheith_envy
Основной DNS-суффикс . . . . . . :
Тип узла. . . . . . . . . . . . . : Гибридный
const
CT_VPN = 0;
CT_LAN = 1;
CT_WAN = 2;
AAPath = 'd:\Dropbox\addons\AA.exe';
TempFile: string = 'input.qry';
type
CellInfo = record
function TMain.GetLastCartridgeChangeDate: TDate;
var
LI : TListItem;
StoreID, sDate: string;
begin
LI := GetActiveListView.Selected;
StoreID := GetSubitemValue(LI, 7);
sDate := HttpClient.Get(SYNC_Host + '/get_cartridge_lastchangedate^'
+ StoreID);
if not sDate.IsEmpty then
SELECT C.NAME
S.GOODUC
SG.SERIES
S.BASETOTAL
S.TOTAL
S.DELTA
S.RPRICE
FROM SDOC0182 S
GOODS C
SERIESGUIDE SG
AddOperator(Num: Byte; name, Pass: string)
FiscalPrinter.Open(PrinterType,PrinterPort,{Активный_пользователь_название});
FiscalPrinter.AddOperator('01','0000','Тёркин Василий Петрович');
FiscalPrinter.Close();
@forenheith
forenheith / gist:dde8bd1febdfb173d6fc41ea30e6877c
Created January 19, 2017 12:57
ВыполнитьОперацию
Процедура ВыполнитьОперацию;
Если (PrinterType = 0) Тогда
И_Сообщение('Принтер НЕустановлен или НЕизвестный тип Фискального Регистратора');
Завершить;
КонецЕсли;
Выбор ({Ярлык}) Из
//Печать Х-отчёта
1:
FiscalPrinter.Open(PrinterType,PrinterPort,{Активный_пользователь_название});
@forenheith
forenheith / th.sql
Created February 3, 2017 07:13
tickets history request
select
id, sender, store_id, reg_date, reg_time, body, processed, dept_id, proc_date, proc_time, sender_ip,
(select full_name from employees e where e.id= handler_id) as handler
from tickets
where store_id=45 order by id
// Simple
IEnumerable<ISong> songsList = null;
foreach (var element in db.TracksSet)
{
((List<ISong>)songsList).Add(new Song() { Artist = element.Artist, Name = element.Name });
}
return songsList;
//LINQ
return (from vote in dataset.VotesSet
let userId = songsRepo.Find(vote.TrackId)
let user = userRepo.Find(Converter.Int2Guid(vote.UserId))
select new UserVote(vote.Id, user, song, vote.Mark, vote.Comments)).ToList();