next item/problem
- Posted by gwalters at sc.rr.com
Jul 26, 2001
This is a multi-part message in MIME format.
------=_NextPart_000_00A9_01C115C9.6462F060
boundary="----=_NextPart_001_00AA_01C115C9.6462F060"
------=_NextPart_001_00AA_01C115C9.6462F060
charset="Windows-1252"
I've gotten a lot farther with the suggestions received. My problem now =
is that I can't seem to get the label text to change. I need a fixed =
pitch font, but setFont does not seem to change the font. What am I =
doing wrong. The program is attached...
...confused george
------=_NextPart_001_00AA_01C115C9.6462F060
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Dwindows-1252" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.3105.105" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>I've gotten a lot farther with the suggestions =
received. My=20
problem now is that I can't seem to get the label text to change. I need =
a fixed=20
pitch font, but setFont does not seem to change the font. What am I =
doing wrong.=20
The program is attached...</FONT></DIV>
<DIV> </DIV>
------=_NextPart_001_00AA_01C115C9.6462F060--
------=_NextPart_000_00A9_01C115C9.6462F060
Content-Type: application/octet-stream;
name="arf020.exw"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
filename="arf020.exw"
-- Screen Manager ala Windows
without warning
--with trace
--trace(1)
include w32lib.ew
--include theos/numeric.e
--include theos/string.e
constant ARF020 =
create(Window,"ARF020-Customer File Maintenance",0,50,50,680,420,0)
-- Accounts Receivable Customer File maintenance screen table
global sequence screen
screen = {
{1,3,"Customer Number+ ",1,1,2,0,5,0,6,0,10},
{10,4,"Name..: ",0,1,3,-99,40,0,0,0,20},
{10,5,"Addr 1: ",0,1,4,-99,25,0,0,0,30},
{10,6,"Addr 2: ",0,1,5,-99,25,0,0,0,40},
{10,7,"City..: ",0,1,6,-99,20,0,0,0,50},
{40,7,"State: ",0,1,7,99,2,0,0,0,60},
{53,7,"Zip: ",0,1,8,99,10,0,0,0,70},
{1,9,"Contact Nbr 1..: ",0,1,10,-99,30,0,0,0,80},
{1,10,"Contact Nbr 2..: ",0,1,11,-99,30,0,0,0,90},
{50,9,"Phone: ",0,1,9,99,17,0,0,0,100},
{50,10,"FAX..: ",0,1,32,99,17,0,0,0,110},
{50,11,"Email: ",0,1,34,-99,24,0,11,0,110},
{1,12,"Salesman Number: ",1,1,12,0,3,0,12,0,120},
{1,13,"Statements(Y/N): ",1,1,23,96,1,0,0,5,130},
{1,14,"Tax Auth Code..+ ",1,1,24,99,2,0,4,1,140},
{25,14,"Taxable: ",1,1,30,96,1,0,0,2,150},
{36,14,"@(Y/N)",0,0,0,0,0,0,0,0,0},
{1,15,"Tax Id.........: ",0,1,33,99,16,0,0,0,150},
{1,16,"Default Shp Via+ ",1,1,42,99,2,0,7,0,190},
{25,16,"FOB....+ ",1,1,43,99,2,0,8,0,190},
{1,17,"Customer Group.: ",0,1,26,99,2,0,0,0,160},
{1,18,"Cust Price Lvl.: ",1,1,14,0,2,0,2,3,170},
{25,18,"Prod Price Tbl: ",0,1,31,99,2,0,9,0,180},
{1,19,"Payment Terms..+ ",1,1,29,99,2,0,5,0,190},
{1,20,"Credit Limit...: ",0,1,27,2,10,0,0,0,200},
{1,21,"Fin Chg (Y/N)..: ",1,1,25,96,1,0,0,4,210},
{25,21,"Bill-to Cust #: ",0,1,13,0,5,0,3,0,220},
{1,22,"Elec. Invoice..: ",0,1,35,99,1,0,10,0,220},
{21,22,"@(N,E,F)",0,0,0,0,0,0,0,0,0},
{50,12,"Last Invoice Dt.: ",0,1,15,98,8,1,0,0,230},
{50,13,"Last Invoice Amt: ",0,1,16,2,9,1,0,0,240},
{50,14,"Last Payment Dt.: ",0,1,17,98,8,1,0,0,250},
{50,15,"Last Payment Amt: ",0,1,18,2,9,1,0,0,260},
{50,17,"Avg Days to Pay.: ",0,1,21,0,4,1,0,0,270},
{50,18,"Invoices Paid...: ",0,1,20,0,4,1,0,0,280},
{50,19,"Current Balance.: ",0,1,22,2,9,1,0,0,290},
{50,20,"YTD Sales.......: ",0,1,19,2,9,1,0,0,300},
{50,21,"Last Year Sales.: ",0,1,28,2,9,1,0,0,310},
{50,22,"Date Cust Added.: ",0,1,38,98,8,0,1,0,310},
{99,0,"",0,0,0,0,0,0,0,0,0}
}
sequence sle, lbl
integer x,y,xt,yt,fl,lth
sle={}
lbl={}
global procedure processARF020()
end procedure
-- Setup Screen Control
for i = 1 to 99 do
if screen[i][1] = 99 then
exit
else
x = screen[i][1]*9-8
y = screen[i][2]*18-45
lth = length(screen[i][3])*9
xt = x + lth-10
yt = y
if screen[i][8]>0 then
fl = screen[i][8]*9+9
else
fl = 0
end if
setFont(ARF020,"Courier New",9,Bold)
lbl = append(lbl,create(LText,screen[i][3],ARF020,x,y,lth,25,0))
if fl > 0 then
sle = append(sle,create(EditText,"",ARF020,xt,yt,fl,20,0))
end if
end if
end for
setFont(ARF020,"Courier New",9,Bold)
WinMain(ARF020,Normal)
------=_NextPart_000_00A9_01C115C9.6462F060--
|
Not Categorized, Please Help
|
|
