Форумы Айтида

Код: Выделить всё

//если загружаем постановку на кран, то необходимо сформировать документ для отправки в ЧЗ
		IF ( VAL( chequeType ) == 27 )
		{
			КомментарийПостановки = "Касса """ + ALLTRIM( ИМЯОБОРУДОВАНИЯ ) + """ | " + 
			ALLTRIM( tranzCount ) + " | " + 
			ALLTRIM( tranzDate ) + " | " + 
			ALLTRIM( tranzTime ) + " | " + 
			"док. № " + ALLTRIM( chequeNumber );
			
		IF ( !ПУСТО( store_period ) )
			expirationDate = ДОБАВИТЬДНИ( CTOD( tranzDate + " " + tranzTime ), store_period );
		ELSE
			expirationDate = "";
		
		__SQL()
		{
			IF NOT EXISTS( SELECT TOP 1 * FROM mark_reciept_spec spec
            INNER JOIN mark_reciept mark ON mark.identity_column = spec.ic
            WHERE CONVERT( varchar(150), spec.mark ) = '[[ STDF( sgtin ) ]]' AND mark.action = 'TAP' AND mark.note = '[[ КомментарийПостановки ]]' )
			BEGIN
				EXEC sp_rmk_markdoc '[[ firm ]]', '[[ nn ]]', '[[ КомментарийПостановки ]]', '[[ STDF( sgtin ) ]]', [[ kolp ]], '[[ expirationDate ]]', 'beer'
			END 				
		}
		SQLERROR
		{
			СООБЩЕНИЕ( "Ошибка при записи документа ""Постановка на кран"" с номером " + 
			chequeNumber + " от " + tranzDate + " " + tranzTime + CHR(13) + CHR(10) +
			"Описание ошибки: " + _ERRORDESCRIPTION, "Загрузка Постановки на кран" );				
		}
	} 

Код: Выделить всё

INSERT INTO mark_reciept ( ent, ndok, date, note, action, document_name, withdrawal, osu, rid )
VALUES ( ISNULL( @ent, '' ), ISNULL( @ndok, '' ), ISNULL( @date, '' ), ISNULL( @note, '' ), 
		 ISNULL( @action, '' ), ISNULL( @docname, '' ), ISNULL( @withdrawal, '' ), 0, @mtrid );

Код: Выделить всё

//если загружаем постановку на кран, то необходимо сформировать документ для отправки в ЧЗ
		IF ( VAL( chequeType ) == 27 )
		{
			КомментарийПостановки = "Касса """ + ALLTRIM( ИМЯОБОРУДОВАНИЯ ) + """ | " + 
			ALLTRIM( tranzCount ) + " | " + 
			ALLTRIM( tranzDate ) + " | " + 
			ALLTRIM( tranzTime ) + " | " + 
			"док. № " + ALLTRIM( chequeNumber );
			
			ДатаВремяПостановки = CTOD( tranzDate + " " + tranzTime, 4 );
			
			IF ( !ПУСТО( store_period ) )
				expirationDate = ДОБАВИТЬДНИ( ДатаВремяПостановки, store_period );
			ELSE
				expirationDate = "";
			
			__SQL()
			{
				--добавим документ постановки на кран
				
				IF NOT EXISTS( SELECT TOP 1 * FROM mark_reciept_spec spec
                INNER JOIN mark_reciept mark ON mark.identity_column = spec.ic
                WHERE CONVERT( varchar(150), spec.mark ) = '[[ STDF( sgtin ) ]]' 
				AND mark.action = 'TAP' 
				AND mark.note = '[[ КомментарийПостановки ]]' )				
				BEGIN
					EXEC sp_rmk_markdoc '[[ firm ]]', '[[ nn ]]', '[[ КомментарийПостановки ]]', '[[ STDF( sgtin ) ]]', [[ kolp ]], '[[ TTOC( expirationDate ) ]]', 'beer'
				 
				
					--установим дату для созданного документа из транзакций и установим склад
				
					UPDATE mark_reciept
					SET date = '[[ TTOC( ДатаВремяПостановки ) ]]',
					sklad = '[[ sklad ]]'
					WHERE identity_column = ( SELECT TOP 1 ic FROM mark_reciept_spec spec 
										WHERE CONVERT( varchar(150), spec.mark ) = '[[ STDF( sgtin ) ]]' )
					AND action = 'TAP' 
					AND note = '[[ КомментарийПостановки ]]'
				END	
			}
			SQLERROR
			{
				СООБЩЕНИЕ( "Ошибка при записи документа ""Постановка на кран"" с номером " + 
				chequeNumber + " от " + tranzDate + " " + tranzTime + CHR(13) + CHR(10) +
				"Описание ошибки: " + _ERRORDESCRIPTION, "Загрузка Постановки на кран" );				
			}
		}

Код: Выделить всё

--установим дату для созданного документа из транзакций и установим склад
				
				UPDATE mark_reciept
				SET date = '[[ TTOC( ДатаВремяПостановки ) ]]',
				sklad = '[[ sklad ]]'
				WHERE identity_column = ( SELECT TOP 1 ic FROM mark_reciept_spec spec 
									WHERE CONVERT( varchar(150), spec.mark ) = '[[ STDF( sgtin ) ]]' )
				AND action = 'TAP' 
				AND note = '[[ КомментарийПостановки ]]'