Hola Silvina, te cuento como lo hago yo:
FUNCTION IFPercep( aDoc, cDescri, nMonto )
LOCAL lRsp := TRUE
LOCAL aData := {}
IF GetMarca() == "HASAR"
AAdd( aData, "**.**" )
AAdd( aData, PadR( cDescri, 20 ) )
AAdd( aData, NtoStr( nMonto, 10, 02 ) )
IF ! PF_SendCMD( 96, aData )
aDoc[ PFDI_LASTERROR ] := { "096", cDescri, aData }
lRsp := FALSE
ENDIF
ELSE
Alert( "Percepciones no soportadas!" )
ENDIF
IF !lRsp .AND. PF_BreakOnError()
BREAK
ENDIF
RETURN lRsp
Luego, antes de cerrar el comprobante:
IFPercep( aDoc, "PERC.IIBB. " + Str( nAlicuota, 5, 2 ) + "%", nMontoPerc )
Cualquier duda preguntá.
--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...
Matrícula Nº 801 CPCIBA Ley 13016
----- Original Message -----
From: Silvina Mazzaro
To: ifclipper@...
Sent: Thursday, September 03, 2009 12:00 PM
Subject: [ifclipper] RETENCIONES EN HASAR 320
Hola todos: tengo un programa en clipper DOS con las rutinas de Torrillo con
una fiscal Hasar 320 . Necesito imprimir ademas de neto e IVA una eventual
retención/percepcion. No encuentro la rutina donde imprime la deducción para
agregarsela. alguien tiene alguna idea?
mil gracias
silvina
[Se han eliminado los trozos de este mensaje que no contenían texto]
[Se han eliminado los trozos de este mensaje que no contenían texto]