stasgm

execute block returns( fb_arch varchar(50) )
as
    declare a_connect_with_usr varchar(31) default 'SYSDBA';
    declare a_connect_with_pwd varchar(31) default 'masterkey';
    declare cur_server_pid int;
    declare ext_server_pid int;
    declare att_protocol varchar(255);
    declare v_test_sttm varchar(255);
    declare v_fetches_beg bigint;
    declare v_fetches_end bigint;

stasgm

{
      "type": "node",
      "request": "launch",
      "name": "Jest Test",
      "program": "${workspaceFolder}\\node_modules\\jest\\bin\\jest",
      "args": ["--runInBand", "--config=${workspaceFolder}\\jest.config.js"],
      "console": "integratedTerminal",
      "internalConsoleOptions": "neverOpen"
},

stasgm

1) открыть окно командной строки в режиме админа
2) yarn global add ndb
3) заходим в папку gdmn-back
4) yarn rebuild
5) ndb node ./dist/src/index.js

запустится отладчик, где можно открывать исходники, ставить точки останова и т.п.

если надо поставить точку останова ДО запуска бэка, то запускаем отладчик так

stasgm

  FirstDayCM = DateSerial(year(date), Month(date), 1) ' Первый день текущего месяца
  LastDayCM = DateAdd("m", 1, FirstDayCM) - 1 ' Последний день текущего месяца

stasgm

###create a new repository on the command line
echo "# html-test" >> README.md
git init
git add README.md
git commit -m "first commit"
git remote add origin https://github.com/stasgm/html-test.git
git push -u origin master


###push an existing repository from the command line

stasgm

SELECT
  g.name goodname,
  v.name valname,
  con.name depname,
  sum(m.balance)
FROM
  ( SELECT
    M.CARDKEY,
    M.CONTACTKEY,
    M.BALANCE

stasgm

select DATEADD(month, 1, DATEADD(DAY, -EXTRACT(DAY FROM CURRENT_DATE) + 1, CURRENT_DATE)) from rdb$database

stasgm

select
  current_date - EXTRACT(DAY FROM current_date) + 1 FirstDay,
  current_date - EXTRACT(DAY FROM current_date) + 32 - EXTRACT(DAY FROM current_date - EXTRACT(DAY FROM current_date) + 32) LastDay
from
  rdb$database

stasgm

Set objWsNet = CreateObject("WScript.Network")
strComputer = objWsNet.ComputerName
Set objWsNet = Nothing
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")

For Each objUser In objGroup.Members
  If StrComp(objUser.Class, "user", vbTextCompare) = 0 Then strList = strList & objUser.Name & vbNewLine
Next

MsgBox strList

stasgm

'==========================================================================
' JSON Encoder for VBScript
' Copyright (c) 2013 Atif Aziz. All rights reserved.
'
' Licensed under the Apache License, Version 2.0 (the "License");
' you may not use this file except in compliance with the License.
' You may obtain a copy of the License at
'
'    http://www.apache.org/licenses/LICENSE-2.0
'