Отправлено: 21.05.12 16:52. Заголовок: Снова EXCEL (продолжение)

Ранее с Excel из Harbour ни когда не работал.
Поставили тут задачу.
У некоторых поставщиков есть определенные формы заказов.
Набраны они в Excel. Сейчас народ руками заполняет эти формы
и шлет по электронке поставщикам.
Задача сводится к тому что бы в этих формах находить
нужные коды товара и в нужной ячейке проставлять заказ.
Может ткнет кто носом с чего начать что бы не напороться на грабли.
Спасибо
Сами формы тут http://zalil.ru/33279066

 Отправлено: 24.03.25 14:27. Заголовок: Dima структура XML ф..

Dima
структура XML файла
Формирование XML файла
1. При формировании файла все теги должны иметь открывающий и закрывающий тег <Products></Products>
2. В случае необязательных полей, тег можно удалить либо оставить пустым <WriteOffReasonCode></WriteOffReasonCode>
3. Поля необходимо заполнить согласно следующему порядку.
• FacilityId
• WriteOffReasonCode
• Comment
• AccountingSystemId
o ProductId
o UnitCode
o Amount
o Price
 MarkCode

 Отправлено: 24.03.25 14:50. Заголовок: Oskar_AAA Поищите н..

Oskar_AAA
Поищите на форуме "xml по схеме"
может что найдете для себя

 Отправлено: 24.03.25 15:03. Заголовок: Oskar_AAA Должно бы..

Oskar_AAA
Должно быть нормальное описание а не абы что
Например вот от Пан Агента , описание XML (PLIST)
https://fex.net/ru/s/4lampmp

 Отправлено: 24.03.25 17:12. Заголовок: копия описания из MS..

копия описания из MS Word

Электронный формат документа ЭТТН по списанию

I. ОБЩИЕ СВЕДЕНИЯ
Настоящий документ описывает структуру XML файла (далее - файлам обмена) передачи сведений документа ЭТНН по списанию
II. ОПИСАНИЕ ФАЙЛА ВЫГРУЗКИ
Таблица 1

Элемент XML (Writeoff)

Наименование элемента Сокращенное наименование (код) элемента Значение
Версия файла FileVer Последняя версия элемента
Тип файла InfoType Значение документа - Writeoff
Документы ЭТТН оприходования Writeoffs Состав элемента представлен в табл. 2.



Таблица 2
Элемент XML (Writeoff)

Наименование элемента Сокращенное наименование (код) элемента Дополнительная информация
Склад списания FacilityId GUID склада списания
Код вида поставки DeliveryTypeCode Код из справочника “Виды поставок”
Причина списания WriteOffReasonCode Код из справочника “Причина списания”
Комментарий Comment
Статус Status Числовое значение статуса
Статус StatusText Текстовое значение статуса
Номер документа в учетной системе AccountingSystemId GUID учетной системы
Дата создания Created
Дата подтверждения ConfirmDate Отображается, если статус “Подтвержден”
Номер документа DocumentNumber
Товары Products Состав элемента представлен в табл. 3


Таблица 3
Сведения о товарах для оприходования (WriteoffProduct)

Наименование элемента Сокращенное наименование (код) элемента Дополнительная информация
Идентификатор товара

ProductId
Код единицы измерения товара UnitCode Код из справочника “Единиц измерения”
Количество товара Amount
Цена товара Price
Коды маркировки MarkCodes Список кодов маркировок

Таблица 4
Сведения о кодах маркировки (MarkCodes)

Наименование элемента Сокращенное наименование (код) элемента Дополнительная информация
Код маркировки MarkCode Код маркировки

 Отправлено: 24.03.25 18:17. Заголовок: сомневаюсь что можно..

сомневаюсь что можно сделать XML из такого скудного описания формата

 Отправлено: 24.03.25 18:24. Заголовок: Судя по всему, перед..

Судя по всему, перед Oskar_AAA, стоит задача по формированию ЭДО из учетной системы.
Предлагаю обсудить совместно в отдельной теме, тк задача актуальная и для меня тоже, да и к MS Excel имеет мало отношения, нужен чистый XML.

 Отправлено: 24.03.25 18:26. Заголовок: Sergy Я так понимаю..

Sergy
Я так понимаю должно быть нормальное описание структуры XML , каким оно
примерно должно быть , я выложил выше ссылочку на доку из Пан Агента. Там все ясно
и понятно и делал стыковку с этой прогой юзая ихнее руководство.
Sergy пишет:

цитата:

Предлагаю обсудить совместно в отдельной теме, тк задача актуальная и для меня тоже, да и к MS Excel имеет мало отношения, нужен чистый XML.

Заводи раз надо

 Отправлено: 30.03.25 12:36. Заголовок: Всем привет. Хотел р..

Всем привет.
Хотел разобраться с рядом контролов , но что то лыжи не едут.
Может кто юзал и подскажет.
Все вопросы в коментах сырца

 
 #include "excel.ch" 
 #translate CRLF => hb_OsNewLine() 
 #define RGB( nR,nG,nB ) ( nR + ( nG * 256 ) + ( nB * 256 * 256 ) )  
  
 Local oExcel 
 Local oSheet, oRange 
 local btn 
 local lb 
 local macros:="" 
 local cb 
 REQUEST HB_CODEPAGE_RU1251 
 hb_cdpSelect( "RU1251" ) 
  
 oExcel := win_OleCreateObject( "Excel.Application" ) 
 oExcel:WorkBooks:Add() 
 oSheet := oExcel:ActiveSheet 
 oExcel:Visible := .t. 
  
 oRange := oSheet:Range(oSheet:Cells(1,1), oSheet:Cells(2,3)) 
  
  
 btn:= oExcel:ActiveSheet:Buttons:Add(oRange:Left,oRange:Top,oRange:Width,oRange:Height) 
  
 WITH OBJECT btn 
       :Caption:= "Кнопочка"  
       :Name:= "Btn"  
       :OnAction:="Btns" 
 ENDWITH 
 macros:='Private Sub btns()'+CRLF+'MsgBox("Hello Word")'+CRLF+'End Sub' 
  
 /* пробую зашить макрос , ни чего не выходит , что не так делаю ? 
 oSheet:VBProject:VBComponents("Лист1"):CodeModule:InsertLines(1, macros) 
 oExcel:VBProject:VBComponents:Item("ThisWorkbook"):CodeModule:AddFromString (macros) 
 */ 
  
  
 lb:=oExcel:ActiveSheet:ListBoxes:Add(40, 42.6, 159.6, 54) 
  
 WITH OBJECT lb 
   :Name:="Test" 
   :AddItem("111111") 
   :AddItem({"222222","3333333"}) 
 ENDWITH 
 /* 
 Как добраться к Properties контрола LB 
 Например цвет фона сменить BackColor ? 
 */ 
             
  
 cb:=oExcel:ActiveSheet:DropDowns:Add(100, 100, 150, 15) 
 WITH OBJECT cb 
   :Caption:="Test 2" 
   :AddItem({"11133333","33333333333","Проверка","Колбаса","8888888888"}) 
 //  :DropDownLines:=3 // кол-во видимых пунктов при нажатии 
 //  :Enabled:=.f. // lock 
 ENDWITH 
 * тут нет вопросов 
  
  
 

 Отправлено: 30.03.25 14:40. Заголовок: Dima пишет: /* про..

Dima пишет:

цитата:

/* пробую зашить макрос , ни чего не выходит , что не так делаю ? oSheet:VBProject:VBComponents("Лист1"):CodeModule:InsertLines(1, macros) oExcel:VBProject:VBComponents:Item("ThisWorkbook"):CodeModule:AddFromString (macros) */

Вот так работает :)

 
 owb:=oExcel:WorkBooks:Add() 
 macros:='Private Sub btns()'+CRLF+'MsgBox("Hello Word")'+CRLF+'End Sub' 
 hb_memowrit(hb_dirbase()+"test.bas",macros) 
 owb:VBProject:VBComponents:import(hb_dirbase()+"test.bas") 
 

Правда в безопасности Excel надо включить
Доверять доступ к объектной модели проектов VBA

 Отправлено: 30.03.25 19:07. Заголовок: Dima пишет: Как доб..

Dima пишет:

цитата:

Как добраться к Properties контрола LB Например цвет фона сменить BackColor ?

Нет там такого , смотрел не ту доку

 Отправлено: 02.03.26 08:08. Заголовок: Решил отрицательные ..

Решил отрицательные числа сделать красным и не пашет , падает Excel

oSheet:Range(osheet:cells(j,1),osheet:cells(j,4)):NumberFormat:={"@","@", "# ##0.00;[Red]# ##0.00","# ##0.00;[Red]# ##0.00"}

*harbour форматирование ячеек на отрицательное значение
* Определяем диапазон для проверки (например, колонка 3)
*oRangeCheck := oSheet_S:Range(oSheet_S:Cells(5, 3), oSheet_S:Cells(cRecno, 3))
* 1. Очищаем старые правила (на всякий случай)
*oRangeCheck:FormatConditions:Delete()
* 2. Добавляем новое правило: если значение < 0
*// Параметры Add: Type (1 = xlCellValue), Operator (6 = xlLess), Formula1 ("0")
*oCond := oRangeCheck:FormatConditions:Add( 1, 6, "0" )
* 3. Устанавливаем цвет шрифта (красный)
*oCond:Font:Color := 255 // Красный (RGB: 255, 0, 0)
* Если нужно сделать шрифт жирным:
*oCond:Font:Bold := .T.
* Если нужно закрасить саму ячейку розовым (интерьер):
* oCond:Interior:Color := 13551615
//

 Отправлено: 02.03.26 08:37. Заголовок: Oskar_AAA выше глян..

Oskar_AAA
выше глянь на эту тему
а вообще вот
"# ##0.00;[Красный]# ##0.00"

 Отправлено: 02.03.26 10:54. Заголовок: не сработало.... про..

не сработало.... пробовал RED красный. Этот вариант прошел

 Отправлено: 02.03.26 14:03. Заголовок: Oskar_AAA Вот, дела..

Oskar_AAA
Вот, делал на коленке

 
 #include "excel.ch"   
 local oExcel,oWorkBook,oSheet 
 local LangID:=1 
 local C_color:="[Red]" 
  
 REQUEST HB_CODEPAGE_RU866 
 hb_cdpSelect( "RU866" ) 
  
 oExcel := win_oleCreateObject( "Excel.Application" )  
 oWorkBook := oExcel:WorkBooks:Add() 
 oSheet := oExcel:ActiveSheet() 
  
 LangID:= oExcel:Application:International(xlCountryCode) 
 oSheet:Cells( 1, 1 ):Value :=1  
 oSheet:Cells( 2, 1 ):Value :=-2  
 C_color:=if(LangID==7,"[Красный]",C_color) 
  
  
 oSheet:Range(osheet:cells(1,1),osheet:cells(2,1)):NumberFormat:={"# ##0.00;"+C_color+"# ##0.00","# ##0.00;"+C_color+"# ##0.00"}  
 oExcel:Visible := .t. 
  
 

 Отправлено: 03.03.26 05:47. Заголовок: Доброе утро. Спасибо..

Доброе утро. Спасибо, учтем и такой вариант