bet greičiausiai turėtų būti kažkokia ataskaitų duomenų bazė, nes jei programoje yra tiek daug laukų kuruos galima pildyti - tai matyt galima matyti galutinėje s/f tuos duomenis. Spėju, kad kreipiantis į Rivile - jie paprašys atlygio už "naujos ataskaitos sukūrimą" ar klystu?

Na, aš visai žalias.. Kur randasi prekės kortelė?

Sveiki,
kadangi šioje temoje yra milijonas žinučių - tai tikrai būtų keblu surasti ko man reikia, bet iš anksto atsiprašau, jei apie tai jau buvo rašyta ir atsakyta.
Neseniai pradėjau naudotis šia programa, todėl reikia šiek tiek pagalbos.
1. Norėčiau, kad pardavimo s/f matytųsi papildoma informacija, t.y. kiek prekių mato vnt yra originalioje pakuotėje. Ar yra koks "laisvas" laukas, kur galėčiau įvesti tokią informaciją kiekvienoje prekės kortelėje ir kad ta informacija būtų matoma galutinėje sąskaitoje?
2. Ar yra galimybė, kad s/f būtų matomas prekių aprašymas dviem kalbomis (prekės kortėlėje galima įvesti aprašymą net keliomis kalbomis).
3. Jei kiekvienos prekės kortelėje yra įvestas prekių gamintojas - ar galima ištraukti pardavimų statistiką pagal gamintojus?
Ačiū

siek tiek pakoregavau formule ir gavosi:

Function Suma_zodziais(NumberArg As Double, Optional intCase As Integer = 0) As String
Dim strSuma As String
Dim strMilijonai As String
Dim strTukstanciai As String
Dim strSimtai As String
Dim m1 As String
Dim m2 As String
Dim t1 As String
Dim t2 As String
Dim r1 As String
Dim r2 As String
Dim v As String
Dim d As String
Dim strRezultatas As String
strSuma = Format(NumberArg, "000,000,000.00")
strMilijonai = Mid(strSuma, 1, 3)
strTukstanciai = Mid(strSuma, 5, 3)
strSimtai = Mid(strSuma, 9, 3)
If NumberArg < 1 Then
strRezultatas = "NULIS EURŲ "
GoTo pabaiga
End If
If strMilijonai <> "000" Then
m1 = TrysSkaitmenys(strMilijonai)
d = Mid(strMilijonai, 2, 1)
v = Right(strMilijonai, 1)
Select Case d
Case "1"
m2 = "MILIJONŲ "
Case Else
Select Case v
Case "0"
m2 = "MILIJONŲ "
Case "1"
m2 = "MILIJONAS "
Case Else
m2 = "MILIJONAI "
End Select
End Select
End If
If strTukstanciai <> "000" Then
t1 = TrysSkaitmenys(strTukstanciai)
d = Mid(strTukstanciai, 2, 1)
v = Right(strTukstanciai, 1)
Select Case d
Case "1"
t2 = "TŪKSTANČIŲ "
Case Else
Select Case v
Case "0"
t2 = "TŪKSTANCIŲ "
Case "1"
t2 = "TŪKSTANTIS "
Case Else
t2 = "TŪKSTANČIAI "
End Select
End Select
End If
r1 = TrysSkaitmenys(strSimtai)
d = Mid(strSimtai, 2, 1)
v = Right(strSimtai, 1)
Select Case d
Case "1"
r2 = "EURŲ "
Case Else
Select Case v
Case "0"
r2 = "EURŲ "
Case "1"
r2 = "EURAS "
Case Else
r2 = "EURAI "
End Select
End Select
strRezultatas = m1 + m2 + t1 + t2 + r1 + r2 + " "
pabaiga:
Select Case intCase
Case 0
Suma_zodziais = UCase(Left(strRezultatas, 1)) + LCase(Mid(strRezultatas, 2)) + Right(strSuma, 2) + " ct"
Case 1
Suma_zodziais = UCase(strRezultatas + Right(strSuma, 2) + " ct")
Case 2
Suma_zodziais = LCase(strRezultatas + Right(strSuma, 2) + " ct")
End Select
End Function
Private Function TrysSkaitmenys(strNum3 As String) As String
Dim s1 As String * 1 'ššimtai
Dim d1 As String * 1 'deššimtys
Dim d2 As String * 2 'deššimtys ir vienetai
Dim v1 As String * 1 'vienetai
Dim s3 As String
Dim v3 As String
s1 = Left(strNum3, 1)
d1 = Mid(strNum3, 2, 1)
d2 = Mid(strNum3, 2, 2)
v1 = Right(strNum3, 1)
Select Case s1
Case "1"
s3 = "VIENAS ŠŠIMTAS "
Case "2"
s3 = "DU ŠŠIMTAI "
Case "3"
s3 = "TRYS ŠŠIMTAI "
Case "4"
s3 = "KETURI ŠŠIMTAI "
Case "5"
s3 = "PENKI ŠŠIMTAI "
Case "6"
s3 = "ŠEŠI ŠŠIMTAI "
Case "7"
s3 = "SEPTYNI ŠŠIMTAI "
Case "8"
s3 = "AŠTUONI ŠŠIMTAI "
Case "9"
s3 = "DEVYNI ŠŠIMTAI "
End Select
Select Case d1
Case "1"
Select Case d2
Case "10"
d3 = "DEŠŠIMT "
Case "11"
d3 = "VIENUOLIKA "
Case "12"
d3 = "DVYLIKA "
Case "13"
d3 = "TRYLIKA "
Case "14"
d3 = "KETURIOLIKA "
Case "15"
d3 = "PENKIOLIKA "
Case "16"
d3 = "ŠEŠŠIOLIKA "
Case "17"
d3 = "SEPTYNIOLIKA "
Case "18"
d3 = "AŠŠTUONIOLIKA "
Case "19"
d3 = "DEVYNIOLIKA "
End Select
Case "2"
d3 = "DVIDEŠŠIMT "
Case "3"
d3 = "TRISDEŠŠIMT "
Case "4"
d3 = "KETURIASDEŠŠIMT "
Case "5"
d3 = "PENKIASDEŠŠIMT "
Case "6"
d3 = "ŠŠEŠIASDEŠIMT "
Case "7"
d3 = "SEPTYNIASDEŠŠIMT "
Case "8"
d3 = "AŠTUONIASDEŠŠIMT "
Case "9"
d3 = "DEVYNIASDEŠŠIMT "
End Select
If d1 <> "1" Then
Select Case v1
Case "1"
v3 = "VIENAS "
Case "2"
v3 = "DU "
Case "3"
v3 = "TRYS "
Case "4"
v3 = "KETURI "
Case "5"
v3 = "PENKI "
Case "6"
v3 = "ŠEŠŠI "
Case "7"
v3 = "SEPTYNI "
Case "8"
v3 = "AŠŠTUONI "
Case "9"
v3 = "DEVYNI "
End Select
End If
TrysSkaitmenys = s3 + d3 + v3
End Function

ačiū, versija xls;o anglų, bet reik lietuviškų žodžių. Dabar gaunasi, bet vietoje lietuviškų raidžių eina hieoroglifai..

Sveiki,
tuomet gal galite rekomenduoti programa, tenkinancia musu lukescius? Domintu nebrangus variantas..
Aciu