Es mas o menos asi:

Luego de :
x=Enviar("E")
ab:=TABLARESP(x)
NumCpb:=val(ab[3])

Func TABLARESP(Resp)
Local Origen,Bye,ab,BUFF
ab:={}
BUFF:=RESP
Origen:=Bye:=0
DO WHILE .T.
OffsetSep = AT(CHR(28),BUFF)
IF OffsetSep == 0
BYE:=1
OffsetSep = LEN(Resp)
ENDIF
AADD(AB,SUBSTR(BUFF,Origen+1,OffsetSep-1))
IF BYE=1 ; EXIT ; ENDIF
BUFF:=SUBSTR(BUFF,OffsetSep+1)
ENDDO
RETU ab




>From: patriciomonti@...
>Reply-To: ifclipper@...
>To: "Eduardo von Euw" <E200000@...>
>CC: ifclipper@...
>Subject: Re: Re: [ifclipper] Obtención de nº de comprob ante en Hasar 320
>(sin utilizar las rutina s de Torrillo)
>Date: Wed, 2 Nov 2005 16:45:33 +0300
>
>Gracias tanto a Marcelo como Eduardo:
>A ver si entendí bien:
>
>sería algo así
>
>s='E'
>x=Enviar(s)
>
>numcom=subsr(x,8,8)
>y en x queda guardado desde el octavo byte el nº de comprobante ? o donde ?
>
>Saludos y Gracias.
>
>Patricio.
>
>
>
> >Tenes que enviar el comando E (ASCII 69)
> >
> >El controlador te devolvera:
> >1 E (ASCII69)
> >4 Status de la impresora
> >4 Status Fiscal
> >8 Numero de comprobante fiscal recien emitido
> >
>
> >Eduardo
> >--------------------------------------
> >
> >
> >>From: "Marcelo Hacker (Cuenta Inicial)" <hacker@...>
> >>Reply-To: ifclipper@...
> >>To: <ifclipper@...>
> >>Subject: Re: [ifclipper] Obtención de nº de comprobante en Hasar 320
>(sin
>
> >>utilizar las rutinas de Torrillo)
> >>Date: Wed, 2 Nov 2005 16:06:19 -0300
> >>
> >>Hola Patricio,
> >>
> >>Como que no funciona con el clipper 5.20 ? Para nada!
> >>
> >>Precisamente es la versión más estable que existe del Clipper ! :-)
> >>
> >>Sds,
> >>Marcelo Hacker
> >>
> >>P.D.: Tambien me interesa la función esa... si es usando las rutinas de
> >>Claudio.. MEJOR! :-))))
> >>
> >>----- Original Message -----
> >>From: <patriciomonti@...>
> >>To: <ifclipper@...>
> >>Sent: Wednesday, November 02, 2005 9:09 AM
> >>Subject: [ifclipper] Obtención de nº de comprobante en Hasar 320 (sin
> >>utilizar las rutinas de Torrillo)
> >>
> >>
> >>Estimados compañeros de lista:
> >>
> >>Agradeceré si alguien conoce la secuencia de instrucciones clipper para
> >>obtener el número de comprobante en la impresora fiscal Hasar 320, sin
> >>tener que utilizar las rutinas de Claudio Torrillo, ya que dicho sistema
> >>funciona en clipper 5.01 y no hay posibilidad de cambiarlo a 5.2. Creo
>que
> >>hay una función (que provee Hasar que se llama Enviar(s)o algo parecido.
> >>
> >>Atentamente.
> >>
> >>Patricio M. Monti
> >>http://www.movicombs.com.ar
> >>
> >>
> >>
> >>Enlaces de Yahoo! Grupos
> >>
> >>
> >>
> >>
> >>
> >>
> >
> >
> >
> >
> >
> >Enlaces de Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
>http://www.movicombs.com.ar