ulvham

var frm_element = document.getElementsByTagName('*');

for(var i=0; i<frm_element.length; i++) {
if(frm_element[i].className == "Line" || frm_element[i].parentNode.className == "Line" || frm_element[i].getAttribute('title')=='Zip')
{
    var vis = frm_element[i].style;
    vis.color = 'red';
    vis.fontSize = "36pt";
} else {
	var vis = frm_element[i].style;

ulvham

Private Sub CommandButton1_Click()
	On Error Resume Next
	path1 = [Q1]
	path2 = [Q2]
	shablon = [Q3]
	Application.ScreenUpdating = False
	For Each num In ActiveSheet.Range([Q4])
		path_ = Replace(Replace(Replace(shablon, "№", num.Row), "@@@", path2), "###", path1)
		ActiveSheet.Cells(num.Row, "P").FormulaLocal = "=" + path_
	Next num

ulvham

Sub Go()
        Dim objMyConn As ADODB.Connection
        Dim objMyCmd As ADODB.Command
        Dim objMyRecordset As ADODB.Recordset

        Set objMyConn = New ADODB.Connection
        Set objMyCmd = New ADODB.Command
        Set objMyRecordset = New ADODB.Recordset
        
        Set objMyCmd1 = New ADODB.Command

ulvham

Файл не информативен. Совсем.
Уточню информацию, которая должна присутствовать в нём
1) Дата платежа (обязательно)
2) Информация о плательщике (лицевой счёт или номер договора, фио, адрес)
3) Сумма платежа
4) Номер реестра, чтобы сверять с Системой Город можно было, а не пальцах объяснять что где потерялось или нашлось.

Естественно скорее всего полностью удовлетворяющего файла не найти, но обязательно нужен ЛС, который присвоила СГ, раз другого нет (он же номер договора в будущем)

ulvham

Функция ПодключитьКоннектор() Экспорт

	ОбъектСоед = Новый COMОбъект("V82.COMConnector.1");
	СтрокаПодключения = "Srvr=10.4.122.9; Ref=Abon_Demo;Usr=Администратор;Pwd=ufp;";

	Соединение = ОбъектСоед.Connect(СтрокаПодключения);
	Возврат Соединение;
	
КонецФункции

ulvham

|ВЫБРАТЬ
|	ДосудебнаяРабота.Ссылка,
|	ДосудебнаяРабота.Должник
|ИЗ
|	Документ.ДосудебнаяРабота КАК ДосудебнаяРабота
|ГДЕ
|	ДосудебнаяРабота.Дата > ДАТАВРЕМЯ(2015, 1, 20)

ulvham

Sub run() 
runremotescript "tachka", "domain\admin", "pass", "notepad" 
End Sub 

Sub runremotescript(compname, domainuser, pass, appname) 
Dim objLocator, objWMIService, objScheduledJob 
Dim tyear, datex, datey, martdate, octoberdate, i 
Dim CurrTimePlusOneMin, RunTime, Res, intJobID 
Set objLocator = CreateObject("wbemscripting.swbemlocator") 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") 

ulvham

Dark Souls II does not recognize or take input from my controller. If you are experiencing this problem, try the following: "Open up Device Manager and under Human Interface Devices, right click and disable all HID-compliant game controllers, and if you have a G13 disable the Logitch G13 Joystick. Restart the game and it should work. You may also need to disable any virtual HID-compliant game controllers as well." If you continue to experience this issue, please get in touch with our support team and let them know what controller you are trying to use. We’ll do our best to assist you from there. We will continue to update this space with more information on this issue.

мне помогло это x360ce только чистый кидаете в папку с игрой\Game. После запуска проги при включенном гейпаде выдаст типа того что бы использовать ini файл нажимаете да.Потом высвечиваеться search automatically for settings. Он автоматом найдет ваш гейпад.

https://steamcommunity.com/linkfilter/http://www.mediafire.com/download/fp350nfwerd5a1f

ulvham

#include "widget.h"
#include "ui_widget.h"

bool flag_exit=false;
DataBase db;
QSettings settings("base");
QString path_db = settings.value("databasepathclosemonth").toString ();
QString query_db = "SELECT c.name, c.num_contract FROM contragents c ORDER BY c.name ASC";

Widget::Widget(QWidget *parent) :

ulvham

#include "database.h"
#include "axobjects.h"
#include "viewmodel.h"
#include "settings.h"

bool flag_exit=false;
QStringList listcheck;
QStringList listcheck1;
QString pathdb;
QString currentcontragent;