Class: Oddb2tdat

Inherits:
Object
  • Object
show all
Defined in:
lib/oddb2tdat.rb

Overview

01 RECA Recordart 001 – 002 2 alpha: 11 02 CMUT Mutationscode 003 – 003 1 num: 3 ausser Handel (AE) sonst 1.

If there is no Pharmacode or G

03 PHAR Pharmacode 004 – 010 7 num: Pharmacode (G) 04 ABEZ Artikelbezeichnung 011 – 060 50 alpha: Präparate (H,K) 05 PRMO Arztpreis (=Galexis-Basis-Preis) 061 – 066 6 num: NIL 06 PRPU Publikumspreis (inkl. MWSt) 067 – 072 6 num: PP (N) 07 CKZL Kassenzulässigkeit 073 – 073 1 num: (Q,V)

1 = SL (Q)
2 = LPPV (V)
3 = hors list (No SL, should be 3 not 0)

08 CLAG Lagerart 074 – 074 1 num: NIL 09 CBGG Betäubung - Gift 075 – 075 1 num: (AI) 10 CIKS Swissmedic-Listencode 076 – 076 1 alpha: (P) 11 ITHE Index-Therapeutikus 077 – 083 7 num: (AH) 12 CEAN EAN-Code 084 – 096 13 num: (E) 13 CMWS Mehrwertsteuer-Code 097 - 097 1 num: 2

Constant Summary collapse

VERSION = 
'1.1.2'
COL = 
{
  :ODDB => {
    :CMUT => 30, # AE
    :PHAR => 6,  # G
    :ABEZ => 7,  # H
    :PRMO => 12, # M
    :PRPU => 13, # N
    :CKZL1 => 16, # Q
    :CKZL2 => 21, # V
    :CBGG => 34, # AI
    :CIKS => 15, # P
    :ITHE => 33, # AH
    :CEAN => 4,  # E
    :PACK => 10, # K
    :GULT => 23, # X
  },
  :MIGEL => {
    :PHAR => 1, # G
    :ABEZ => 3, # H
    :PRMO => 6, # M
    :PRPU => 7, # N
    :CEAN => 2, # E
  }
}
LEN = 
{
  :RECA => 2,
  :CMUT => 1,
  :PHAR => 7,
  :ABEZ => 50,
  :PRMO => 6,
  :PRPU => 6,
  :CKZL => 1,
  :CLAG => 1,
  :CBGG => 1,
  :CIKS => 1,
  :ITHE => 7,
  :CEAN => 13,
  :CMWS => 1,
}
POS = 
{
  :PHAR => 3,
  :PRMO => 60,
  :PRPU => 66,
  :CEAN => 83,
}

Instance Attribute Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(input, output, *options) ⇒ Oddb2tdat

Returns a new instance of Oddb2tdat.



76
77
78
79
80
81
82
83
84
85
86
87
88
 
# File 'lib/oddb2tdat.rb', line 76

def initialize(input, output, *options)
  @target   = [:oddb]
  @transfer = false
  @import   = nil
  @input    = input
  @output   = output
  @options  = options
  @counts   = { # for report
    :oddb  => 0,
    :migel => 0,
    :prmo  => 0,
  }
end

Instance Attribute Details

#counts ⇒ Object (readonly)

Returns the value of attribute counts.



75
76
77
 
# File 'lib/oddb2tdat.rb', line 75

def counts
  @counts
end

#target ⇒ Object

Returns the value of attribute target.



74
75
76
 
# File 'lib/oddb2tdat.rb', line 74

def target
  @target
end

#transfer ⇒ Object

Returns the value of attribute transfer.



74
75
76
 
# File 'lib/oddb2tdat.rb', line 74

def transfer
  @transfer
end

#updated_prmo ⇒ Object (readonly)

Returns the value of attribute updated_prmo.



75
76
77
 
# File 'lib/oddb2tdat.rb', line 75

def updated_prmo
  @updated_prmo
end

Instance Method Details

#expired?(date_str) ⇒ Boolean

Returns:

  • (Boolean) 


125
126
127
128
129
130
131
132
 
# File 'lib/oddb2tdat.rb', line 125

def expired?(date_str)
  d = date_str.split('.')
  if d.length == 3
    d.map!{|i| i.to_i}
    date = Date.new(d[2],d[1],d[0])
    Date.today > date
  end
end

#format_date(date_str, len = 7) ⇒ Object 



118
119
120
121
122
123
124
 
# File 'lib/oddb2tdat.rb', line 118

def format_date(date_str, len=7)
  date = date_str.gsub('.','')
  if date.size < len
    date = date + '0'*(len-date.size)
  end
  date[0,len]
end

#format_price(price_str, len = 6, int_len = 4, frac_len = 2) ⇒ Object 



102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
 
# File 'lib/oddb2tdat.rb', line 102

def format_price(price_str, len=6, int_len=4, frac_len=2)
  price = price_str.split('.')
  pre = ''
  las = ''
  pre = "%0#{int_len}d" % (price[0] ? price[0] : '0')
  las = if price[1]
          if price[1].size < frac_len
            price[1] + "0"*(frac_len-price[2].size)
          else
            price[1][0,frac_len]
          end
        else
          '0'*frac_len
        end
  (pre.to_s + las.to_s)[0,len]
end

#import_prmo ⇒ Object 



207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
 
# File 'lib/oddb2tdat.rb', line 207

def import_prmo
  import_ean = {}
  import_pha = {}
  File.readlines(@import).each do |line|
    import_ean.store(line[POS[:CEAN], LEN[:CEAN]], line.chomp)
    import_pha.store(line[POS[:PHAR], LEN[:PHAR]], line.chomp)
  end
  @rows = []
  @updated_prmo = 0
  File.readlines(@input).each do |line|
    row = ''
    if (ean_code = line[POS[:CEAN], LEN[:CEAN]] and line_imp = import_ean[ean_code]) \
      or (pharma_code = line[POS[:PHAR], LEN[:PHAR]] and line_imp = import_pha[pharma_code])
      row << line[0..(POS[:PRMO]-1)]
      row << line_imp[POS[:PRMO], LEN[:PRMO]]
      row << line[POS[:PRPU], 1000].chomp
      @updated_prmo += 1
    else
      row << line.chomp
    end
    @rows << row
  end
  @counts[:prmo] = @rows.length
  output
end

#output ⇒ Object 



232
233
234
235
236
237
238
 
# File 'lib/oddb2tdat.rb', line 232

def output
  open(@output, "w") do |out|
    @rows.each do |line|
      out.print line, "\n"
    end
  end
end

#parse ⇒ Object 



133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
 
# File 'lib/oddb2tdat.rb', line 133

def parse
  @rows = []
  File.open(@input, 'r:iso-8859-1') do |input|
    while line=input.gets
      row  = ''
      cols = line.split(/;/)
      if cmut = cols[COL[:ODDB][:CMUT]] and cmut =~ /Ja/ or cmut =~ /Nein/
        row << "%#{LEN[:RECA]}s"  % '11'
        row << "%#{LEN[:CMUT]}s"  % if(phar = cols[COL[:ODDB][:PHAR]] and phar.size > 3) or (!expired?(cols[COL[:ODDB][:GULT]]))
                                      (cmut =~ /Ja/ ? '3':'1')
                                    else
                                      '3'
                                    end
        row << "%0#{LEN[:PHAR]}d" % cols[COL[:ODDB][:PHAR]].to_i
        row << "%-#{LEN[:ABEZ]}s" % (cols[COL[:ODDB][:ABEZ]].to_s.gsub(/"/,'') + " " + cols[COL[:ODDB][:PACK]]).to_s[0,LEN[:ABEZ]].gsub(/"/,'')
        row << "%#{LEN[:PRMO]}s"  % format_price(cols[COL[:ODDB][:PRMO]])
        row << "%#{LEN[:PRPU]}s"  % format_price(cols[COL[:ODDB][:PRPU]])
        row << "%#{LEN[:CKZL]}s"  % if cols[COL[:ODDB][:CKZL1]] =~ /Ja/
                                      1
                                    elsif cols[COL[:ODDB][:CKZL2]] =~ /Ja/
                                      2
                                    else
                                      3
                                    end
        row << "%#{LEN[:CLAG]}s"  % 0
        row << "%#{LEN[:CBGG]}s"  % (cols[COL[:ODDB][:CBGG]] =~ /Ja/ ? 1:0)
        row << "%#{LEN[:CIKS]}s"  % if ciks = cols[COL[:ODDB][:CIKS]] and (ciks != '""' and ciks != '')
                                      ciks.gsub(/(\+|\s)/, '')
                                    else
                                      0
                                    end
        row << "%#{LEN[:ITHE]}s"  % format_date(cols[COL[:ODDB][:ITHE]])
        row << "%#{LEN[:CEAN]}s"  % cols[COL[:ODDB][:CEAN]]
        row << "%#{LEN[:CMWS]}s"  % '2'
        @rows << row
      end
    end
  end
  @counts[:oddb] = @rows.length
end

#parse_migel ⇒ Object 



173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
 
# File 'lib/oddb2tdat.rb', line 173

def parse_migel
  return if @rows.empty?
  File.open(@input, 'r:utf-8:iso-8859-1') do |input|
    while line=input.gets
      row  = ''
      cols = line.split(/,/)
      if cols[COL[:MIGEL][:CEAN]].length == LEN[:CEAN]
        row << "%#{LEN[:RECA]}s"  % '11'
        row << "%#{LEN[:CMUT]}s"  % if (phar = cols[COL[:MIGEL][:PHAR]] and phar.size > 3)
                                      '1'
                                    else
                                      '3'
                                    end
        row << "%0#{LEN[:PHAR]}d" % cols[COL[:MIGEL][:PHAR]].to_i
        row << "%-#{LEN[:ABEZ]}s" % (cols[COL[:MIGEL][:ABEZ]].to_s.gsub(/"/,'')).to_s[0,LEN[:ABEZ]].gsub(/"/,'')
        row << "%#{LEN[:PRMO]}s"  % format_price(cols[COL[:MIGEL][:PRMO]].to_i.to_s) if cols[COL[:MIGEL][:PRMO]]
        row << "%#{LEN[:PRPU]}s"  % format_price(cols[COL[:MIGEL][:PRPU]].to_i.to_s) if cols[COL[:MIGEL][:PRPU]]
        row << "%#{LEN[:CKZL]}s"  % 3
        row << "%#{LEN[:CLAG]}s"  % 0
        row << "%#{LEN[:CBGG]}s"  % 0
        row << "%#{LEN[:CIKS]}s"  % ' ' # no category
        row << "%0#{LEN[:ITHE]}d" % 0
        row << "%0#{LEN[:CEAN]}d" % if (ean = cols[COL[:MIGEL][:CEAN]] and !ean.empty?)
                                      ean.to_i
                                    else
                                      0
                                    end
        row << "%#{LEN[:CMWS]}s"  % '2'
        @rows << row
      end
    end
  end
  @counts[:migel] = (@rows.length - @counts[:oddb])
end

#run ⇒ Object 



89
90
91
92
93
94
95
96
97
98
99
100
101
 
# File 'lib/oddb2tdat.rb', line 89

def run
  parse
  if @target.include?(:migel)
    @input = @options.first
    parse_migel
  end
  output
  if @transfer
    @import = @options.last
    @input  = @output
    import_prmo
  end
end