Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / PowerBuilder Read/Convert/Print File / 17 сообщений из 17, страница 1 из 1
08.02.2006, 18:09
    #33532359
Lana Shulman
Lana Shulman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
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, 21:50
    #33532632
Локшин Марк
Локшин Марк
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
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, 22:14
    #33532650
Lana Shulman
Lana Shulman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
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
| Ответить | Цитировать | Написать  
09.02.2006, 01:49
    #33532807
Tea-pot
Tea-pot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
<skipped>

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

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

Или вы не знаете как программировать в PB?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2006, 11:45
    #33533523
Anatoly Moskovsky
Anatoly Moskovsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
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, 16:12
    #33534796
гость форума
гость форума
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
авторUsing INVOIC Invoice Message Framework – UN/EDIFACT Version D.96B
Боюсь, что здесь вы имеете случай с обработкой данных в промышленном стандарте обмена данными EDIFACT (вот первая попавшаяся ссылка) . Т.е. задача состоит в написании парсера данных. По моим представлениям, в России данный стандарт не популярен... Так что искать помощи в данном вопросе на этом форуме бесполезно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2006, 20:12
    #33535466
Lana Shulman
Lana Shulman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
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
| Ответить | Цитировать | Написать  
10.02.2006, 02:03
    #33535738
Tea-pot
Tea-pot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
Наша фирма использует 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, 07:54
    #33535886
Филипп
Филипп
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
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, 11:47
    #33536543
Dmitry.
Dmitry.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
Лана!
Ну выложите нам файл и то что из него должно получится!
Народ хочет разобраться!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2006, 17:50
    #33537961
Lana Shulman
Lana Shulman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
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:54
    #33537972
Lana Shulman
Lana Shulman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
Output sample File
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2006, 17:57
    #33537973
Lana Shulman
Lana Shulman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
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, 23:50
    #33538392
voronk
voronk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
Если я чего не понял поправьте плиз.

Если есть дата-файл, почему не сделать импорт в datawindow, а потом не сказать dw.Print()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2006, 00:16
    #33538412
Lana Shulman
Lana Shulman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
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
| Ответить | Цитировать | Написать  
14.02.2006, 17:49
    #33544453
Dmitry.
Dmitry.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
посмотрел я ваши файлы.
dat файл - обычный текстовый файл.
этот файл разделен не табами а пробелами и импорту (ImportFile) в датавиндов не подлежит.
кроме того он имеет первую и последнюю строки отличные от остальных (хедер и футер), формат хедера, футера и каждой строки описан в Release.xls.

читать файл вам надо с помощью FileOpen(...,LineMode!), FileRead, FileClose и отрезать строки (mid) из прочитанных согласно Release.xls.
вставлять это все в датавиндов или датастор и печатать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.02.2006, 21:00
    #33544827
PL99
PL99
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PowerBuilder Read/Convert/Print File
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
| Ответить | Цитировать | Написать  
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / PowerBuilder Read/Convert/Print File / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 433ms
Закрыть
start [/forum/topic.php?fid=15&mobile=1&tid=1337911]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 59ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 68ms
get tp. blocked users:
 1ms
others: 258ms
total:  433ms
x
x
Закрыть


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