ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / PowerBuilder Read/Convert/Print File
17 сообщений из 17, страница 1 из 1
PowerBuilder Read/Convert/Print File
    #33532359
Lana Shulman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lana Shulman
Гость
Convert .DAT File to Readable Text Format.
U menia ext’ vse Fields Specifications , mne nuzhno Read File from PowerBuilder Application, convert ego and print.

Spasibo bol’shoe za pomosch,
Lana
...
Рейтинг: 0 / 0
08.02.2006, 18:09
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33532632
Локшин Марк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Локшин Марк
Участник
Lana ShulmanConvert .DAT File to Readable Text Format.
U menia ext’ vse Fields Specifications , mne nuzhno Read File from PowerBuilder Application, convert ego and print.
Лана, извините, но вопрос совершенно не понятен. Попытайтесь его переформулировать уточнив детали.
...
Рейтинг: 0 / 0
08.02.2006, 21:50
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33532650
Lana Shulman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lana Shulman
Гость
Ia poluchau .dat files. Vot primer:
H00000INVOICK9 KALITTA AIR, LLC 0012005102907061409K9 06053021none
D0000009 06K9 00003 K9 I 00000000000000000000000 00000 Y K9 06053021none none 20051104 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000009900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000744

Mne nuzno convert etot file v takoi Format:

USPS International Implementation of
“INVOIC ADV” (Version 1, Release 1, USPS03)

Using INVOIC Invoice Message Framework – UN/EDIFACT Version D.96B



Introduction:

A message claiming payment for goods or services supplied under conditions agreed between the seller and the buyer.
The United Nations Standard Invoice Message, with correct data qualification, serves also as the specification for Debit Note and Credit Note messages. Throughout this document, the reference to 'Invoice' may be interpreted as conveying the wider meaning of 'Invoice/Credit Note/Debit Note'.

The USPS implementation of this message is to provide invoice advice to its transport providers of the items, which comprise amounts payable for transportation services.


Heading Section:

USPS Pos. Seg. Req. Group Notes and
Reqd No. ID Name Des. Max.Use Repeat Comments
M 0010 UNH Message Header M 1 Message ID
M 0020 BGM Beginning of Message M 1 Invoice number, record type
M 0030 DTM Date/Time/Period M 35 Consignment Completion Date
O 0030 DTM Date/Time/Period O 35 Critical Entry Date/Time
M 0030 DTM Date/Time/Period M 35 Scheduled Invoice Date
O 0030 DTM Date/Time/Period O 35 Entered Date
0080 Segment Group 1: RFF-DTM C 99
0090 RFF Reference M 1 Contract Type
0090 RFF Reference C 1 Contract Number
0090 RFF Reference C 1 Control Number

0110 Segment Group 2: NAD C 99
M 0120 NAD Name and Address M 1 Carrier/Provider Code, Carrier

Eto primer.

Ya dolzna eto delat' cherez PowerBuilder Application. Drugimi slovami, customer nazmet na knopku kotoraia convert file v pravil'ni format i napechataet file.
U menia esti Excel File s format specifications.
Ia ne imeu poniatia kak eto vse sdelat'
Please help
...
Рейтинг: 0 / 0
08.02.2006, 22:14
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33532807
Tea-pot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tea-pot
Участник
<skipped>

Обьясните, в чем конкретно проблема.

Вы не знаете как считывать данные из файла, или вы не знаете как перенести это в MS документ? Или вам нужно просто послать на печать из датавиндоу?

Или вы не знаете как программировать в PB?
...
Рейтинг: 0 / 0
09.02.2006, 01:49
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33533523
Фотография Anatoly Moskovsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Moskovsky
Участник
Lana ShulmanIa poluchau .dat files. Vot primer:
H00000INVOICK9 KALITTA AIR, LLC 0012005102907061409K9
....

Mne nuzno convert etot file v takoi Format:
USPS International Implementation of
“INVOIC ADV” (Version 1, Release 1, USPS03)

Using INVOIC Invoice Message Framework – UN/EDIFACT Version D.96B
...


Насколько я понял, исходный формат - это текст с разделителем TAB в одной или нескольких строках.
Значит Вам надо считывать файл построчно : FileOpen (..., LineMode! ...), FileRead
Затем используя фунции Pos(..., "~t"), Mid(...) в цикле разбить по табу в массив. Затем зная по описанию исходного формата соответствие порядкового номера поля и его имени надо опираясь на спецификацию конечного формата сохранить в файл (ф-я FileWrite)

Если в строках исходного формата кол-во полей строго одинаковое, то вместо ручного разбора в массив можно импортировать в подготовленное DW ф-ей dw.ImportString или ImportFile

А что касается непосредственно алгоритма конвертации, то боюсь, что вряд ли кто-то сможет помочь :)
...
Рейтинг: 0 / 0
09.02.2006, 11:45
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33534796
гость форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гость форума
Гость
авторUsing INVOIC Invoice Message Framework – UN/EDIFACT Version D.96B
Боюсь, что здесь вы имеете случай с обработкой данных в промышленном стандарте обмена данными EDIFACT (вот первая попавшаяся ссылка) . Т.е. задача состоит в написании парсера данных. По моим представлениям, в России данный стандарт не популярен... Так что искать помощи в данном вопросе на этом форуме бесполезно.
...
Рейтинг: 0 / 0
09.02.2006, 16:12
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33535466
Lana Shulman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lana Shulman
Гость
Bol'shoe spasibo vsem.

I guess I do need someone to help me write the Converter. I figured out how to print the file from PB so far,but the converter is a problem.
...
Рейтинг: 0 / 0
09.02.2006, 20:12
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33535738
Tea-pot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tea-pot
Участник
Наша фирма использует EDI (Electronic Data Interchange) для коммуникации с таможней и компаниями занимаюшимися перевозкой по морю.

И я искренне хочу помочь.
Но не пойму, в чем именно проблема. В чем именно помощь нужна?
Подсказать функции для работаты с фаилами и строковыми переменными?
Или в незнании РВ?
Или ей достаточно этой ссылки http://www.dmovers.com/edioutsourcing.html?
Или может быть ей нужен пример кода?

Мы настраиваем парсер с помощью специальной программы. Потом им пользуемся.

В результате код в РВ выглядит примерно так :

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
OleObject l_parser
OleObject l_batch
....
l_parser = Create OleObject
ll_RetCode=l_parser.ConnectToNewObject('customs_ics_04FEB.inputparser')
.....
l_batch = create OleObject 

ll_RetCode =l_batch.ConnectToNewObject('customs_ics_04FEB.msgBATCH')

.....
l_batch = l_parser.parse(ls_msg_string)

....
ls_date = Right('000000'+String(l_batch.UNB.DateTimeOfPreperation.Date.Value), 6 )
ls_date = Right(ls_date, 2 )+'/'+Mid(ls_date, 3 , 2 )+'/'+left(ls_date, 2 )

ls_time = Right('0000'+String(l_batch.UNB.DateTimeOfPreperation.Time.Value), 4 )
ls_time = Left(ls_time, 2 )+':'+Right(ls_time, 2 )

ld_Transmission = Datetime(Date(ls_date),Time(ls_time))

ll_interchange = Long(l_batch.UNB.InterchangeControlReference.Value)
ls_creator 		= String(l_batch.UNB.InterchangeSender.SenderIdentification.Value)
ls_owner 		= String(l_batch.UNB.InterchangeSender.AddressForReverseRouting.Value)
ls_recipient 	= String(l_batch.UNB.InterchangeRecipient.RecipientIdentification.Value)
.....

Et Cetera
...
Рейтинг: 0 / 0
10.02.2006, 02:03
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33535886
Фотография Филипп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Филипп
Участник
Tea-potМы настраиваем парсер с помощью специальной программы. Потом им пользуемся.

В результате код в РВ выглядит примерно так :

[src]
OleObject l_parser
OleObject l_batch
....
l_parser = Create OleObject
ll_RetCode=l_parser.ConnectToNewObject('customs_ics_04FEB.inputparser')
Так вы какой-то покупной контрол для парсания используете. Какое это имеет отношение к знанию/незнанию РВ или примерам кода?
Дама хочет знать, как на PowerScripte написать то, что у вас ActiveX делает...
...
Рейтинг: 0 / 0
10.02.2006, 07:54
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33536543
Фотография Dmitry.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry.
Участник
Лана!
Ну выложите нам файл и то что из него должно получится!
Народ хочет разобраться!!!
...
Рейтинг: 0 / 0
10.02.2006, 11:47
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33537961
Lana Shulman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lana Shulman
Гость
I can send the files ( data, format and output).

Thanks for your help everyone.
I am sorry , its easier for me to write in English.
Although my Russian is perferct, after all ia rodilas' i virosla v Rossii.
...
Рейтинг: 0 / 0
10.02.2006, 17:50
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33537972
Lana Shulman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lana Shulman
Гость
Output sample File
...
Рейтинг: 0 / 0
10.02.2006, 17:54
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33537973
Lana Shulman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lana Shulman
Гость
Sorry the previous File is not the output sample, The output sample that Ihave is too big to attach.
The Excel File is the format specs.
Thanks again to everyone for helping me.
...
Рейтинг: 0 / 0
10.02.2006, 17:57
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33538392
Фотография voronk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
voronk
Участник
Если я чего не понял поправьте плиз.

Если есть дата-файл, почему не сделать импорт в datawindow, а потом не сказать dw.Print()
...
Рейтинг: 0 / 0
10.02.2006, 23:50
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33538412
Lana Shulman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lana Shulman
Гость
Eto ne plohaia idea. Esli ya Import v datawindow, ya mogu pomaniat' format as I run it?
How do I import it to datawindow?
...
Рейтинг: 0 / 0
11.02.2006, 00:16
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33544453
Фотография Dmitry.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry.
Участник
посмотрел я ваши файлы.
dat файл - обычный текстовый файл.
этот файл разделен не табами а пробелами и импорту (ImportFile) в датавиндов не подлежит.
кроме того он имеет первую и последнюю строки отличные от остальных (хедер и футер), формат хедера, футера и каждой строки описан в Release.xls.

читать файл вам надо с помощью FileOpen(...,LineMode!), FileRead, FileClose и отрезать строки (mid) из прочитанных согласно Release.xls.
вставлять это все в датавиндов или датастор и печатать.
...
Рейтинг: 0 / 0
14.02.2006, 17:49
| Ответить | Цитировать | Написать  
PowerBuilder Read/Convert/Print File
    #33544827
Фотография PL99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PL99
Участник
IMHO, обсуждение проблемы зашло в тупик :-(

Грубый пример чтения и разбора строки файла приведен ниже.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
string docname, named
integer value, li_FileNum
string ls_InputLine, lsFF
string lsMsgNum
value = GetFileOpenName("Select EDIFACT DAT File",  docname, named, "DAT", "EDIFACT Files (*.DAT),*.DAT")
IF value <>  1  THEN Return

li_FileNum=FileOpen(docname)
do while true
	value = FileRead(li_FileNum, ls_InputLine) //header line
	if value = - 100  then exit //EOF
	//First field
	lsFF = left(ls_InputLine,  6 )
	lsMsgNum = mid(lsFF,  2 )
	choose case left(lsFF,  1 )
		case "H" 
			// Parce header
			string lsFileType, lsCarrierCode, lsCarrierName, lsFileVersion
			string lsDateTime, lsPaymentType, lsInvoiceNum
			lsFileType = mid(ls_InputLine,  7 ,  6 ) // "INVOIC"
			lsCarrierCode =  mid(ls_InputLine,  13 ,  5 )// "K9   "
			lsCarrierName = mid(ls_InputLine,  18 ,  30 )//"KALITTA AIR, LLC             "
			lsFileVersion = mid (ls_InputLine,  48 ,  3 )//"001"
			lsDateTime    = mid (ls_InputLine,  51 ,  14 )//"20051029070614" -  2005 . 10 . 29   07 : 06 : 14 
			lsPaymentType = mid (ls_InputLine,  65 ,  2 )//"09"
			lsInvoiceNum = mid (ls_InputLine,  67 ,  30 )//"K9 06053021none              "
		CASE "D"
			// Parse detail
		CASE "T"
			// Parse tail
		case else
	end choose
loop
К сожалению, по описанию автора топика, не смог понять, что именно следует сделать с разобранной строкой...
Ниасилил :-))
...
Рейтинг: 0 / 0
14.02.2006, 21:00
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / PowerBuilder Read/Convert/Print File
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&fpage=75&tid=1337911]:
 0ms
get settings:
 7ms
get forum list:
 17ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 27ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 218ms
total:  348ms
созд. / загр.: 348ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]