tamaņo,10
color,negro
tipo,Arial
@3,5,MOVIMIENTO  +TIMOV_MI
@30,5,CLPRV_MI
@56,5,FECHA   +FEDOC_MI
*dato,cadena1,Observaciones
*@3,20,cadena1
*si([004]>50)
*@60,1,TIMOV_MI
*terminacondicion
saltar(8)
variable3=0
variable4=0
&iniciadetalle
@3,1,CANTI_MI
@11,1,CLPRO_MI
@30,1,DESCR_MI
moneda(50,1,PUNIT_MI,)
variable3=PUNIT_MI*CANTI_MI
moneda(62,1,variable3,)
variable4=variable4+variable3

formato(#,##0.00)
saltar(1)
&terminadetalle
saltar(2)
@52,1,TOTAL 
moneda(60,1,variable4,)