<IsisScript>
	<trace>xOn</trace>
	<section>

		<field action=cgi tag=5015>cipar</field>
   		<field action=cgi tag=5001>base</field>
 		<field action=cgi tag=3000>Expresion</field>
   		<field action=cgi tag=3030>Formato</field>
   		<field action=cgi tag=3031>Pft</field>
   		<field action=cgi tag=4000>desde</field>
   		<field action=cgi tag=4001>cuenta</field>
		<field action=cgi tag=9001>Opcion</field>
		<field action=cgi tag=1>path_db</field>

<display><pft></pft></display>
   		<parm name=cipar>
      		<pft>replace(s(cat(v5015)),'%path_database%',v1)/</pft>
      	</parm>

		<flow action=jump>
  			<pft>
				select s(v9001)
					case 'libros_prestados':'LIBROSPRESTADOS'
					case 'disponibilidad':'DISPONIBILIDAD'
				endsel
			</pft>
   		</flow>

<!-- Se busca el libro en la base de datos para ver el número de ejemplares -->
<!-- Si activa desde un usuario la expresión de búsqueda se genera en el paso anterior -->

			<do task=search>
             	<parm name=db><pft>'trans'</pft></parm>
             	<parm name=from><pft>v4000,"1"n4000</pft></parm>
             	<parm name=count><pft>v4001</pft></parm>
             	<parm name=expression><pft>v3000</pft></parm>
	      		<field action=define tag=1001>Isis_Current</field>
    	     	<field action=define tag=1002>Isis_Total</field>
             	<field action=define tag=1031>Isis_From</field>
             	<field action=define tag=1032>Isis_To</field>
             	<loop>
					<field action=import tag=3000>3000</field>
 					<display>
    					<pft>if v1='P' then (v800^c'^'v800^n'^'v800^a,"/"v800^t'^'v800^p'^'v800^h'^'v800^o,'^'f(mfn,1,0)/) fi</pft>
  					</display>
             	</loop>
               <display><pft>/'$$TOTAL:' v1002/</pft></display>
          	</do>
        	<flow action=exit>1</flow>


       	<label>DISPONIBILIDAD</label>
          	<do task=search>
             	<parm name=db><pft>v5001</pft></parm>
             	<parm name=from><pft>'1'</pft></parm>
             	<parm name=expression><pft>v3000</pft></parm>
             	<parm name=from><pft>v4000,"1"n4000</pft></parm>
             	<parm name=count><pft>v4001</pft></parm>
             	<field action=define tag=1001>Isis_Current</field>
             	<field action=define tag=1002>Isis_Total</field>
             	<field action=define tag=1031>Isis_From</field>
             	<field action=define tag=1032>Isis_To</field>

             	<loop>
					<field action=import tag=3000>3000</field>
					<field action=import tag=3030>3030</field>
					<field action=import tag=3031>3031</field>
					<display>
    						<pft type=reload><pft>if p(v3030) then '@'v3030 else v3031 fi/</pft></pft>
                	</display>
             	</loop>
				<display><pft>/#'$$TOTAL:' v1002/</pft></display>
          	</do>
        	<flow action=exit>1</flow>


  		<label>DEVOLVER</label>

			<do task=update>
				<parm name=db>presta</parm>
            	<parm name=mfn><pft>v2000</pft></parm>
            	<parm name=lockid><pft>v9060</pft></parm>
				<parm name=fst>
					<pft>cat('presta.fst')</pft>
				</parm>
            	<field action=define tag=1101>Isis_Lock</field>
            	<field action=define tag=1102>Isis_Status</field>
            	<update>
					<write>Lock</write>
            		<proc><pft>'d1'/'a1~X~''a980~'v9060'^d'date'~'</pft></proc>
                   	<write>Unlock</write>
<!--					<display><pft>if val(v1102)=0 then
 							'<b>Préstamo devuelto!</b> 'v800'<b>' fi</pft>
					</display> -->
				</update>
       		</do>
       		<flow action=exit>1</flow>

  		<label>RENOVAR</label>
			<do task=update>
				<parm name=db>presta</parm>
            	<parm name=mfn><pft>v2000</pft></parm>
            	<parm name=lockid><pft>v9060</pft></parm>
				<parm name=fst>
					<pft>cat('presta.fst')</pft>
				</parm>
            	<field action=define tag=1101>Isis_Lock</field>
            	<field action=define tag=1102>Isis_Status</field>
            	<update>
					<write>Lock</write>
            		<proc><pft>'a980~'v9060'^d'date'~'</pft></proc>
                   	<write>Unlock</write>
<!--					<display><pft>if val(v1102)=0 then
 							'<b>Préstamo devuelto!</b> 'v800'<b>' fi</pft>
					</display> -->
				</update>
       		</do>
       		<flow action=exit>1</flow>


    </section>
 </IsisScript>