Hola Gerardo,

Perdón por la demora, ayer vi el mensaje pero ando bastante ocupado te
paso un trozo de codigo chiquito si necesitas mas aclaraciones me
avisas, yo tengo varios clientes trabajando con la 715

IF nSobre == 0
nSobre := "000000000000"
ELSE
nSobre := ( punto->numero * 100000000 ) + nSobre
nSobre := tran( strzero( nSobre, 12 ), "@R ####-########" )
END

IF rec:iva == 1 .or. ( rec:iva == 2 .and. .not. rec:buso )
Credito_Init( oDoc, "A", nSobre )

ELSEIF rec:iva == 2 .and. rec:buso
Credito_Init( oDoc, "B", nSobre,,,,,, rec:buso )

ELSE
Credito_Init( oDoc, "B", nSobre )

END

Saludos,
Luis R. Stach

Saturday, January 20, 2007, 8:31:31 AM, you wrote:

GJB>
GJB>
GJB>
GJB> No hay nadie en el grupo que trabaje con una 715F y emita notas de crédito???
GJB>
GJB> Necesito solucionarlo el fin de semana.
GJB>
GJB> También me sirve un ejemplo con la lib de Hasar.
GJB>
GJB> Gracias.
GJB>
GJB>  
GJB>
GJB>
GJB> Gerardo J. Biagiotti
GJB> Analista de Sistemas
GJB> (2580) Marcos Juárez
GJB> Córdoba - Argentina
GJB>
GJB>
GJB> Mail:  gjbiagiotti@...
GJB> MSN: gerardo_biagiotti@...
GJB>          gjbiagiotti@...
GJB>          gjbiagiotti@...
GJB>
GJB>
GJB>
GJB> De: ifclipper@...
GJB> [mailto:ifclipper@...] En nombre de Gerardo J. Biagiotti
GJB> Enviado el: Viernes, 19 de Enero de 2007 04:33 p.m.
GJB> Para: IFCLIPPER - GRUPO
GJB> Asunto: [ifclipper] HASAR 715 y Nota de Crédito.
GJB>
GJB>
GJB>
GJB>  
GJB>
GJB>
GJB>
GJB>
GJB>
GJB> Necesito si alguien puede enviarme un ejemplo para hacer una
GJB> nota de crédito con las rutinas de Torrillo, en una HASAR 715F.
GJB>
GJB> Gracias.
GJB>
GJB>  
GJB>
GJB> Gerardo J. Biagiotti
GJB> Analista de Sistemas
GJB> (2580) Marcos Juárez
GJB> Córdoba - Argentina
GJB>
GJB> Mail:  gjbiagiotti@...
GJB> MSN: gerardo_biagiotti@...
GJB>          gjbiagiotti@...
GJB>          gjbiagiotti@...
GJB>
GJB>
GJB>
GJB>
GJB>
GJB>
GJB>
GJB> __________ Información de NOD32, revisión 1991 (20070119) __________
GJB>
GJB> Este mensaje ha sido analizado con NOD32 antivirus system
GJB> http://www.nod32.com
GJB>

GJB>