Fw: OT Filepro and Macintosh terminal emulation
Munir G. Mahomar
munirg at sigmanet.hn
Thu Aug 7 19:24:32 PDT 2008
The emulation on the Macintosh is vt102, as executing /bin/bash declares
terminal type $TERM in Mac as vt102, the emulation parameters say:
Escape non-ASCII characters
Paste newlines as carriage returns
Strict VT-100 keypad behavior
Reverse Linewrap
Audible bell
That is all I could find from the Mac (Terminal Inspector Config)
There is nothing else I could find that could be causing this behavior.
Any ideas?
Thanks to all that have replied
Best Regards
Munir
Munir G. Mahomar
----- Original Message -----
From: "Munir G. Mahomar" <munirg at sigmanet.hn>
To: "Jean-Pierre A. Radley" <appl at jpr.com>
Sent: Sunday, August 03, 2008 10:37 PM
Subject: Re: OT Filepro and Macintosh terminal emulation
> JP
> This is the actual processing
>
> ::dim cod(21)17; dim desc(21)(25,*)aa; dim cant(21)38; dim
> unid(21)(3,*)ba; dim totl(21)80:
> ::dim prec(21)59; dim cost(21)102;dim fuld(21)da:
> @entsel::showctr ("21") "Teclee Seleccion >":
> :@sn eq "9" or @sn eq "10":show popup ("23","10") "\r P \r-Postear
> Inventario \r Q \r-NO Postear Inventario \r X \r-Salir ":
> ::end:
> @keyD:123 ne "":beep; errorbox "Salida De Mercaderia Posteada NO Puede
> Borrar"; end:
> :123 eq "":beep; input popup lr(1,sino) "Esta Seguro Que Desea Borrar
> Registro (S/N)?":
> :lr eq "S":delete:
> :lr eq "N":end:
> ::end:
> @keyU:123 ne "":beep; errorbox "Salida De Mercaderia Ya Fue Posteada";
> end:
> ::end:
> @keyP:123 ne "":beep; errorbox "Salida De Mercaderia Ya Fue Posteada";
> end:
> nuevo::declare yes_no(1,sino):
> ::input popup yes_no "Desea Postear Al Inventario (S/N)?":
> :yes_no eq "":goto nuevo:
> :yes_no eq "N":end:
> :yes_no eq "S":goto sigue:
> sigue:10 eq "K" and 130 ne "FA":form "oficinaK"; form "despacho"; form
> "despacho":
> :10 eq "G" and 130 ne "FA":form "bodegaG"; form "despachoG":
> postinv:::
> ::n="1"; goto loop:
> loop:n gt "21":123="S"; end:
> :cod(n) ne "":pa(12,CODPRO)=cod(n); goto post2:
> :cod(n) ne "":cod(n)=inv2(1):
> ::display; n=n+"1"; goto loop;end:
> post2:pa eq "":return:
> ::lookup inv2 = inven k=pa i=A -nx:
> :not inv2:n=n+"1";goto loop:
> :10 eq "K":inv2(16)=inv2(16)-cant(n):
> :10 eq "G":inv2(17)=inv2(17)-cant(n):
> : ' Existencia al costo Kennedy
> Granja:inv2(10)=inv2(16)+inv2(17);
> inv2(151)=inv2(13)*inv2(10);inv2(174)=inv2(16)*inv2(13);inv2(175)=inv2(17)*inv2(13):
> : ' total a precio de Venta Costo:pb(12,.2)=cant(n)*prec(n);
> pc(6,F)=cant(n); pd(12,.2)=inv2(13)*cant(n):
> :' Total Venta A¤o Actual:inv2(111)=inv2(111)+pc:
> ::pe(2,*)=mid(2,"4","2"):
> :pe eq "01" 'Venta Acumul Unid / Venta Acumul Valor/ Salid Unid / Salid
> Valores:inv2(35)=inv2(35)+pc; inv2(74)=inv2(74)+pd:
> :'Saldo Actual Unidades / Saldo Actual
> Valores:inv2(48)=inv2(21)+inv2(22)-inv2(35);
> inv2(87)=inv2(60)+inv2(61)-inv2(74):
> :pe eq "02":inv2(36)=inv2(36)+pc; inv2(75)=inv2(75)+pd:
> ::inv2(49)=inv2(48)+inv2(23)-inv2(36);
> inv2(88)=inv2(87)+inv2(62)-inv2(75):
> :pe eq "03":inv2(37)=inv2(37)+pc; inv2(76)=inv2(76)+pd:
> ::inv2(50)=inv2(49)+inv2(24)-inv2(37);
> inv2(89)=inv2(88)+inv2(63)-inv2(76):
> :pe eq "04":inv2(38)=inv2(38)+pc; inv2(77)=inv2(77)+pd:
> ::inv2(51)=inv2(50)+inv2(25)-inv2(38);
> inv2(90)=inv2(89)+inv2(64)-inv2(77):
> :pe eq "05":inv2(39)=inv2(39)+pc; inv2(78)=inv2(78)+pd:
> ::inv2(52)=inv2(51)+inv2(26)-inv2(39);
> inv2(91)=inv2(90)+inv2(65)-inv2(78):
> :pe eq "06":inv2(40)=inv2(40)+pc; inv2(79)=inv2(79)+pd:
> ::inv2(53)=inv2(52)+inv2(27)-inv2(40);
> inv2(92)=inv2(91)+inv2(66)-inv2(79):
> :pe eq "07":inv2(41)=inv2(41)+pc; inv2(80)=inv2(80)+pd:
> ::inv2(54)=inv2(53)+inv2(28)-inv2(41);
> inv2(93)=inv2(92)+inv2(67)-inv2(80):
> :pe eq "08":inv2(42)=inv2(42)+pc; inv2(81)=inv2(81)+pd:
> ::inv2(55)=inv2(54)+inv2(29)-inv2(42);
> inv2(94)=inv2(93)+inv2(68)-inv2(81):
> :pe eq "09":inv2(43)=inv2(43)+pc; inv2(82)=inv2(82)+pd:
> ::inv2(56)=inv2(55)+inv2(30)-inv2(43);
> inv2(95)=inv2(94)+inv2(69)-inv2(82):
> :pe eq "10":inv2(44)=inv2(44)+pc; inv2(83)=inv2(83)+pd:
> ::inv2(57)=inv2(56)+inv2(31)-inv2(44);
> inv2(96)=inv2(95)+inv2(70)-inv2(83):
> :pe eq "11":inv2(45)=inv2(45)+pc; inv2(84)=inv2(84)+pd:
> ::inv2(58)=inv2(57)+inv2(32)-inv2(45);
> inv2(97)=inv2(96)+inv2(71)-inv2(84):
> :pe eq "12":inv2(46)=inv2(46)+pc; inv2(85)=inv2(85)+pd:
> ::inv2(59)=inv2(58)+inv2(33)-inv2(46);
> inv2(98)=inv2(97)+inv2(72)-inv2(85):
> :' Total salidas en
> Unidades:inv2(47)=inv2(35)+inv2(36)+inv2(37)+inv2(38)+inv2(39)+inv2(40)+inv2(41)+inv2(42)+inv2(43)+inv2(44)+inv2(45)+inv2(46):
> :' Total salidas en
> Valores:inv2(86)=inv2(74)+inv2(75)+inv2(76)+inv2(77)+inv2(78)+inv2(79)+inv2(80)+inv2(81)+inv2(82)+inv2(83)+inv2(84)+inv2(85):
> :3 eq "1376":lookup proy = DIproyec k=129 i=B -nx:
> :3 eq "1376":proy(2)=proy(2)+14:
> :3 eq "1376" and 130 ne "FA":lookup pro = DIpro_data r=free -e:
> :3 eq "1376" and 130 ne "FA" 'Compro# Fecha Proyecto # Codigo
> Produc Cantidad:pro(1)=1; pro(2)=2 ; pro(3)=129; pro(4)=cod(n);
> pro(5)=cant(n):
> :3 eq "1376" and 130 ne "FA" ' Precio Solicitado
> Por:pro(6)=prec(n); pro(7)=7; close pro:
> ::lookup aux = EIaux r=free -e:
> :' Lugar de fact fecha codigo numero req cantidad precio
> costo:aux(1)=10; aux(2)=2; aux(3)=cod(n); aux(4)=1; aux(5)=cant(n);
> aux(6)=prec(n); aux(7)=cost(n); aux(12)="4":
> :' salidas und a costo a p/venta:aux(16)=cant(n);
> aux(17)=cant(n)*cost(n); aux(18)=aux(6)*aux(16):
> :' cliente# nombre Cotiz# descuento vendedor OJO es
> nombre:aux(10)=3; aux(11)=4; aux(19)=6; aux(8)=18; aux(9)=5:
> ::aux(21)="EIrequis"; close aux; n=n+"1"; goto loop:
> @keyQ:'123 ne "":'beep; errorbox "Salida De Mercaderia Ya Fue Posteada";
> end:
> nuevo2::declare si_no(1,sino):
> ::input popup si_no "Desea Postear A Todo Menos A Inventario (S/N)?":
> :si_no eq "":goto nuevo2:
> :si_no eq "N":end:
> :si_no eq "S":goto sigue2:
>
> HERE IS THE FORM PRINT COMMAND
> sigue2:10 eq "K" and 130 ne "FA":form "oficinaK"; form "despacho"; form
> "despacho":
> :10 eq "G" and 130 ne "FA":form "bodegaG"; form "despachoG":
> TO HERE
> oficinaK is the laser printer, despacho is the Epson printer
>
> postin2:::
> ::g="1"; goto loop2:
> loop2:g gt "21":123="S"; end:
> :cod(g) ne "":pq(12,CODPRO)=cod(g); goto post3:
> :cod(g) ne "":cod(g)=inv2(1):
> ::display; g=g+"1"; goto loop2; end:
> post3:pq eq "":return:
> ::lookup inv2 = inven k=pq i=A -nx:
> :not inv2:g=g+"1";goto loop2:
> :3 eq "1376":lookup proy = DIproyec k=129 i=B -nx:
> :3 eq "1376":proy(2)=proy(2)+14:
> :3 eq "1376" and 130 ne "FA":lookup pro = DIpro_data r=free -e:
> :3 eq "1376" and 130 ne "FA" 'Compro# Fecha Proyecto # Codigo
> Produc Cantidad:pro(1)=1; pro(2)=2 ; pro(3)=129; pro(4)=cod(g);
> pro(5)=cant(g):
> :3 eq "1376" and 130 ne "FA" ' Precio Solicitado
> Por:pro(6)=prec(g); pro(7)=7; close pro:
> ::lookup aux = EIaux r=free -e:
> :' Lugar de fact fecha codigo numero req cantidad precio
> costo:aux(1)=10; aux(2)=2; aux(3)=cod(g); aux(4)=1; aux(5)=cant(g);
> aux(6)=prec(g); aux(7)=cost(g); aux(12)="4":
> :' salidas und a costo a p/venta:aux(16)=cant(g);
> aux(17)=cant(g)*cost(g); aux(18)=aux(6)*aux(16):
> :' cliente# nombre Cotiz# descuento vendedor OJO es
> nombre:aux(10)=3; aux(11)=4; aux(19)=6; aux(8)=18; aux(9)=5:
> ::aux(21)="EIrequis"; close aux; g=g+"1"; goto loop2:
>
> ----- Original Message -----
> From: "Jean-Pierre A. Radley" <appl at jpr.com>
> To: "FilePro Mailing List" <filepro-list at lists.celestial.com>
> Sent: Sunday, August 03, 2008 4:09 PM
> Subject: Re: OT Filepro and Macintosh terminal emulation
>
>
>> Munir G. Mahomar propounded (on Sun, Aug 03, 2008 at 12:36:05AM -0400):
>> | List:
>> | A client has SCO Unix Open Server 5.0.6 and filePro 5.0 32 users. All
>> users
>> | telnet using Winxp machines with Termlite (supplied by SCO), except one
>> that
>> | is a Macintosh.
>> |
>> | I wrote a process that generates a quotation and sends it to two
>> different
>> | printers, one and Epson Lx-300, the other an HP LaserJet 2300,
>> simultaneous,
>> | one is to the warehouse the other is to give to the customer. From any
>> winxp
>> | machine the report prints normally, but when the report is requested
>> from
>> | the Mac it only prints on the Epson, and nothing prints on the Laser.
>> |
>> | The process only generates a form "to Epson"; form "to Laser", there
>> are no
>> | embeded print codes so it is very simple . I cannot find anything to
>> account
>> | for the Laser not printing, if it prints when requested by any Winxp
>> | machine, why doesn't print to the Laser when the request comes from the
>> Mac.
>>
>> [ I see no reason for you to have marked your thread as "OT" ??? ]
>>
>> I'm not getting a clear picture of what you mean by 'process only
>> generates a form "to Epson"; form "to Laser"'. Please show us the
>> actual relevant lines in the processing table.
>>
>> --
>> JP
>> _______________________________________________
>> Filepro-list mailing list
>> Filepro-list at lists.celestial.com
>> http://mailman.celestial.com/mailman/listinfo/filepro-list
>>
>
More information about the Filepro-list
mailing list