EVOLUTION-MANAGER
Edit File: cobrar-pago-inicial.frm.php
<?php /** * @author Balam Gonzalez Luis Humberto * @version 0.0.01 * @package */ //===================================================================================================== include_once("../core/go.login.inc.php"); include_once("../core/core.error.inc.php"); include_once("../core/core.html.inc.php"); include_once("../core/core.init.inc.php"); include_once("../core/core.db.inc.php"); $theFile = __FILE__; $permiso = getSIPAKALPermissions($theFile); if($permiso === false){ header ("location:../404.php?i=999"); } $_SESSION["current_file"] = addslashes( $theFile ); //===================================================================================================== $xHP = new cHPage("TR.ARRENDAMIENTO .- COBRO DE PAGO INICIAL", HP_FORM); $xQL = new MQL(); $xLi = new cSQLListas(); $xF = new cFecha(); $xDic = new cHDicccionarioDeTablas(); $xRuls = new cReglaDeNegocio(); //$jxc = new TinyAjax(); //$tab = new TinyAjaxBehavior(); //$tab -> add(TabSetValue::getBehavior("idide", $x)); //return $tab -> getString(); //$jxc ->exportFunction('datos_del_pago', array('idsolicitud', 'idparcialidad'), "#iddatos_pago"); //$jxc ->process(); $clave = parametro("id", 0, MQL_INT); $clave = parametro("clave", $clave, MQL_INT); $fecha = parametro("idfecha-0", false, MQL_DATE); $fecha = parametro("idfechaactual", $fecha, MQL_DATE); $fecha = parametro("idfecha", $fecha, MQL_DATE); $persona = parametro("persona", DEFAULT_SOCIO, MQL_INT); $persona = parametro("socio", $persona, MQL_INT); $persona = parametro("idsocio", $persona, MQL_INT); $credito = parametro("credito", DEFAULT_CREDITO, MQL_INT); $credito = parametro("idsolicitud", $credito, MQL_INT); $credito = parametro("solicitud", $credito, MQL_INT); $cuenta = parametro("cuenta", DEFAULT_CUENTA_CORRIENTE, MQL_INT); $cuenta = parametro("idcuenta", $cuenta, MQL_INT); $jscallback = parametro("callback"); $tiny = parametro("tiny"); $form = parametro("form"); $action = parametro("action", SYS_NINGUNO); $monto = parametro("monto",0, MQL_FLOAT); $monto = parametro("idmonto",$monto, MQL_FLOAT); $recibo = parametro("recibo", 0, MQL_INT); $recibo = parametro("idrecibo", $recibo, MQL_INT); $empresa = parametro("empresa", 0, MQL_INT); $empresa = parametro("idempresa", $empresa, MQL_INT); $empresa = parametro("iddependencia", $empresa, MQL_INT); $empresa = parametro("dependencia", $empresa, MQL_INT); $grupo = parametro("idgrupo", 0, MQL_INT); $grupo = parametro("grupo", $grupo, MQL_INT); $ctabancaria = parametro("idcodigodecuenta", 0, MQL_INT); $ctabancaria = parametro("cuentabancaria", $ctabancaria, MQL_INT); $observaciones = parametro("idobservaciones"); $xHP->init(); $xFRM = new cHForm("frmcobropagoinit", "./"); $xSel = new cHSelect(); $xTxt = new cHText(); $xFRM->setTitle($xHP->getTitle()); $xFRM->setNoAcordion(); $IvaNoInc = $xRuls->getValorPorRegla($xRuls->reglas()->CREDITOS_ARREND_IVA_NOINC); if($credito <= DEFAULT_CREDITO){ //$xFRM->addCreditBasico(); $xHP->goToPageX("../frmcreditos/buscar-creditos.frm.php?tipoensistema=" . SYS_PRODUCTO_ARREND . "&next=../frmcaja/cobrar-pago-inicial.frm.php"); } else { $xCred = new cCredito($credito); if($xCred->init() == true){ $persona = $xCred->getClaveDePersona(); $periodo = 0; $idleasing = $xCred->getClaveDeOrigen(); $xLeas = new cCreditosLeasing($idleasing); $xLeas->init(); $idrecarch = $xLeas->getCodigoReciboPagoInit(); if($idrecarch > 0){ $xFRM->addAvisoInicial("El Pago Inicial Existe.", true); $xFRM->addCerrar(); } else { $TasaIVA = TASA_IVA; $xFRM->addSeccion("iddc", "TR.CREDITO"); $xFRM->addHElem( $xCred->getFichaMini() ); $xFRM->OHidden("idleasing", $idleasing); $xFRM->OHidden("credito", $credito); $xFRM->endSeccion(); $xTxt->setDivClass(""); $xFRM->OButton("TR.COTIZADOR", "var xC=new CredGen();xC.getLeasingCotizacion(" . $xCred->getClaveDeOrigen() . ");", $xFRM->ic()->REPORTE, "cmdcotizador"); if($action == SYS_NINGUNO){ $xFRM->setAction("../frmcaja/cobrar-pago-inicial.frm.php?action=" . MQL_ADD, true); $xFRM->addFechaRecibo($fecha); $xFRM->addCobroBasico(); $xFRM->addObservaciones(); $AnticipoRentas = $xLeas->getAnticipo(); $ComisionApertura = $xLeas->getMontoComision(); $RentaEnDeposito = $xLeas->getMontoDepositoGarantia(); $RentaAnticipada = $xLeas->getMontoRentaProporcional(); $RatificacionContrato = $xLeas->getMontoNotario(); //Gastos Notariales $SeguroInicial = $xLeas->getSeguroInicial(); //Editable $Placas = $xLeas->getMontoPlacas(); //Editable $factorIVA = 1; $BaseIVA = 0; if($IvaNoInc == true){ $factorIVA = 1 / (1+($TasaIVA)); $AnticipoRentas = $AnticipoRentas * $factorIVA; $ComisionApertura = $ComisionApertura * $factorIVA; $RentaEnDeposito = $RentaEnDeposito * $factorIVA; $RentaAnticipada = $RentaAnticipada * $factorIVA; $RatificacionContrato = $RatificacionContrato * $factorIVA; $SeguroInicial = $SeguroInicial * $factorIVA; $Placas = $Placas * $factorIVA; } $BaseIVA = $AnticipoRentas + $ComisionApertura + $RentaAnticipada + $RatificacionContrato + $SeguroInicial + $Placas; $Iva = round(($BaseIVA * $TasaIVA),2); $SubTotal = $BaseIVA + $RentaEnDeposito; $Total = $Iva + $SubTotal; $xFRM->OHidden("anticiporentas", $AnticipoRentas); $xFRM->OHidden("comisionapertura", $ComisionApertura); $xFRM->OHidden("rentadeposito", $RentaEnDeposito); $xFRM->OHidden("rentaanticipada", $RentaAnticipada); $xFRM->OHidden("iva", $Iva); $xFRM->OHidden("subtotal", $SubTotal); $xFRM->OHidden("tasaiva", $TasaIVA); $xFRM->OHidden("gastosnotariales", $RatificacionContrato); $xTbl = new cHTabla("idtblpagos", "listado"); $xTbl->initRow(); $xTbl->addTH("TR.CONCEPTO"); $xTbl->addTH("TR.MONTO"); $xTbl->endRow(); /* ------ Anticipo Rentas ------*/ $xTbl->initRow(); $xTbl->addTD($xFRM->getT("TR.ANTICIPORENTA")); $xTbl->addTD(getFMoney($AnticipoRentas), " class='izq' "); $xTbl->endRow(); /* ------ Comision por Apertura ------*/ $xTbl->initRow("trOdd"); $xTbl->addTD($xFRM->getT("TR.COMISION_POR_APERTURA")); $xTbl->addTD(getFMoney($ComisionApertura), " class='izq' "); $xTbl->endRow(); /* ------ Renta de Deposito ------*/ $xTbl->initRow(); $xTbl->addTD($xFRM->getT("TR.RENTADEPOSITO")); $xTbl->addTD(getFMoney($RentaEnDeposito), " class='izq' "); $xTbl->endRow(); /* ------ Primera Renta ------*/ $xTbl->initRow("trOdd"); $xTbl->addTD($xFRM->getT("TR.PRIMERARENTA")); $xTbl->addTD(getFMoney($RentaAnticipada), " class='izq' "); $xTbl->endRow(); /* ------ Gastos Notariales ------*/ $xTbl->initRow(); $xTbl->addTD($xFRM->getT("TR.GASTOSNOTARIALES")); $xTbl->addTD(getFMoney($RatificacionContrato), " class='izq' "); $xTbl->endRow(); /* ------ Seguro de Auto ------*/ $xTbl->initRow("trOdd"); $xTbl->addTD($xFRM->getT("TR.AUTOSEGURO")); $xTbl->addTD($xTxt->getDeMoneda2("montoseguro", "", $SeguroInicial)); $xTbl->endRow(); /* ------ Costo Placas ------*/ $xTbl->initRow(""); $xTbl->addTD($xFRM->getT("TR.COSTOPLACAS")); $xTbl->addTD($xTxt->getDeMoneda2("montoplacas", "", $Placas)); $xTbl->endRow(); /* ------ Subtotal ------*/ $xTbl->initRow("trOdd"); $xTbl->addTD($xFRM->getT("TR.SUBTOTAL")); $xTbl->addTD(getFMoney($SubTotal), " class='izq total' id='tdsubtotal' "); $xTbl->endRow(); /* ------ IVA ------*/ $xTbl->initRow(""); $xTbl->addTD($xFRM->getT("TR.IVA")); $xTbl->addTD(getFMoney($Iva), " class='izq' id='tdiva' "); $xTbl->endRow(); /* ------ Total ------*/ $xTbl->initRow("trOdd"); $xTbl->addTD($xFRM->getT("TR.TOTAL")); $xTbl->addTD(getFMoney($Total), " class='izq total' id='tdtotal' "); $xTbl->endRow(); $xFRM->addSeccion("idddp", "TR.PAGO"); $xFRM->addHElem( $xTbl->get() ); $xFRM->endSeccion(); $xFRM->setValidacion("montoseguro_mny", "jsActualizarTotal"); $xFRM->setValidacion("montoplacas_mny", "jsActualizarTotal"); $xFRM->addGuardar("", "", "TR.GUARDAR PAGO"); } else { $montoseguro = parametro("montoseguro",0, MQL_FLOAT); $montoplacas = parametro("montoplacas",0, MQL_FLOAT); $idleasing = parametro("idleasing",0, MQL_INT); $anticiporentas = parametro("anticiporentas",0, MQL_FLOAT); $comisionapertura = parametro("comisionapertura",0, MQL_FLOAT); $rentadeposito = parametro("rentadeposito",0, MQL_FLOAT); $rentaanticipada = parametro("rentaanticipada",0, MQL_FLOAT); $iva = parametro("iva",0, MQL_FLOAT); $subtotal = parametro("subtotal",0, MQL_FLOAT); $tasaiva = parametro("tasaiva",0, MQL_FLOAT); $gastosnotariales = parametro("gastosnotariales",0, MQL_FLOAT); $ctipo_pago = parametro("ctipo_pago", SYS_NINGUNO, MQL_RAW); $cheque = parametro("cheque"); $foliofiscal = parametro("foliofiscal"); $idobservaciones = parametro("idobservaciones"); //Aplicar pago if($subtotal > 0){ //var_dump($_REQUEST); $xRec = new cReciboDeOperacion(); $recibo = $xRec->setNuevoRecibo($persona, $credito, $fecha, $periodo, RECIBOS_TIPO_PRIMERPAG, $observaciones, $cheque, $ctipo_pago, $foliofiscal); if($montoseguro>0){ $xRec->addMovimiento(OPERACION_CLAVE_PAGO_SEGURO_V, $montoseguro, $periodo); } if($montoplacas>0){ $xRec->addMovimiento(OPERACION_CLAVE_PAGO_PLACAS, $montoplacas, $periodo); } if($anticiporentas > 0){ $xRec->addMovimiento(178, $anticiporentas, $periodo); } if($rentadeposito > 0){ $xRec->addMovimiento(179, $rentadeposito, $periodo); } if($comisionapertura > 0){ $xRec->addMovimiento(OPERACION_CLAVE_COMISION_APERTURA, $comisionapertura, $periodo); } if($gastosnotariales > 0){ $xRec->addMovimiento(177, $gastosnotariales, $periodo); } $IvaPagado = 0; if($rentaanticipada > 0){ //Aplicar Al Pago 1 $xLetra = new cParcialidadDeCredito(); $xPag = new cCreditosPagos($credito); $diluir = $rentaanticipada; if($xLetra->init($persona, $credito, 1) == true){ $capital = $xLetra->getCapital(); $interes = $xLetra->getInteres(); $otros = $xLetra->getOtros(); $idperiodo = 1; $xLetra->setClaveDePlan($xCred->getNumeroDePlanDePagos()); //necesario para actualizacion RAW //== Interes if($interes >= $diluir){ $interes = $diluir; $diluir = 0; } else { $diluir = $diluir - $interes; } if($interes > 0){ $xPag->addPagoInteres($interes, $idperiodo, $observaciones, $ctipo_pago, $fecha, $recibo); $xLetra->setActualizarInteres($interes, "-"); } //== Otros if($otros >= $diluir){ $otros = $diluir; $diluir = 0; } else { $diluir = $diluir - $otros; } if($otros > 0){ $xPag->addPagoOtros($otros, $idperiodo, $observaciones, $ctipo_pago, $fecha, $recibo); $xLetra->setActualizarDesglose($otros, "-"); } //== Cpital if($capital >= $diluir){ $capital = $diluir; $diluir = 0; } else { $diluir = $diluir - $capital; } if($capital>0){ $xPag->setAbonoCapital($capital, $idperiodo, $cheque, $ctipo_pago, $foliofiscal, $observaciones, false, $fecha, $recibo); $xLetra->setActualizarCapital($capital, "-"); } $IvaPagado = $xPag->getIVAAplicado(); } } //================= Pago de IVA $iva = $iva - $IvaPagado; if($iva>0){ $xRec->addMovimiento(OPERACION_CLAVE_PAGO_IVA_ARR, $iva, $periodo); } $xRec->setForceUpdateSaldos(true); $xRec->setFinalizarRecibo(true); $xFRM->addJsCode($xRec->getJsPrint(false)); $xFRM->addImprimir("", "printrec();"); $xFRM->addCerrar(); /*------------------------ AHORA -------------------------------- */ $xTbl = new cHTabla("idtblpagos", "listado"); $xTbl->initRow(); $xTbl->addTH("TR.CONCEPTO"); $xTbl->addTH("TR.MONTO"); $xTbl->endRow(); /* ------ Anticipo Rentas ------*/ $xTbl->initRow(); $xTbl->addTD($xFRM->getT("TR.ANTICIPORENTA")); $xTbl->addTD(getFMoney($anticiporentas), " class='izq' "); $xTbl->endRow(); /* ------ Comision por Apertura ------*/ $xTbl->initRow("trOdd"); $xTbl->addTD($xFRM->getT("TR.COMISION_POR_APERTURA")); $xTbl->addTD(getFMoney($comisionapertura), " class='izq' "); $xTbl->endRow(); /* ------ Renta de Deposito ------*/ $xTbl->initRow(); $xTbl->addTD($xFRM->getT("TR.RENTADEPOSITO")); $xTbl->addTD(getFMoney($rentadeposito), " class='izq' "); $xTbl->endRow(); /* ------ Primera Renta ------*/ $xTbl->initRow("trOdd"); $xTbl->addTD($xFRM->getT("TR.PRIMERARENTA")); $xTbl->addTD(getFMoney($rentaanticipada), " class='izq' "); $xTbl->endRow(); /* ------ Gastos Notariales ------*/ $xTbl->initRow(); $xTbl->addTD($xFRM->getT("TR.GASTOSNOTARIALES")); $xTbl->addTD(getFMoney($gastosnotariales), " class='izq' "); $xTbl->endRow(); /* ------ Seguro de Auto ------*/ $xTbl->initRow("trOdd"); $xTbl->addTD($xFRM->getT("TR.AUTOSEGURO")); $xTbl->addTD(getFMoney($montoseguro), " class='izq' "); $xTbl->endRow(); /* ------ Costo Placas ------*/ $xTbl->initRow(""); $xTbl->addTD($xFRM->getT("TR.COSTOPLACAS")); $xTbl->addTD(getFMoney($montoplacas), " class='izq' "); $xTbl->endRow(); /* ------ Subtotal ------*/ $xTbl->initRow("trOdd"); $xTbl->addTD($xFRM->getT("TR.SUBTOTAL")); $xTbl->addTD(getFMoney($subtotal), " class='izq total' id='tdsubtotal' "); $xTbl->endRow(); /* ------ IVA ------*/ $xTbl->initRow(""); $xTbl->addTD($xFRM->getT("TR.IVA")); $xTbl->addTD(getFMoney($iva), " class='izq' id='tdiva' "); $xTbl->endRow(); /* ------ Total ------*/ $total = $subtotal + $iva; $xTbl->initRow("trOdd"); $xTbl->addTD($xFRM->getT("TR.TOTAL")); $xTbl->addTD(getFMoney($total), " class='izq total' id='tdtotal' "); $xTbl->endRow(); $xFRM->addSeccion("idddp", "TR.PAGO"); $xFRM->addHElem( $xTbl->get() ); $xFRM->endSeccion(); } } } } } echo $xFRM->get(); //$jxc ->drawJavaScript(false, true); ?> <script> var xG = new Gen(); function jsActualizarTotal(){ var tasaiva = flotante($("#tasaiva").val()); var montoseguro = flotante($("#montoseguro_mny").val()); //var montoseguro = $("#montoseguro").val(); var montoplacas = flotante($("#montoplacas_mny").val()); //var montoplacas = $("#montoplacas").val(); //var idleasing = $("#idleasing").val(); var anticiporentas = flotante($("#anticiporentas").val()); var comisionapertura = flotante($("#comisionapertura").val()); var rentadeposito = flotante($("#rentadeposito").val()); var rentaanticipada = flotante($("#rentaanticipada").val()); var ratificacion = flotante($("#gastosnotariales").val()); var baseiva = montoseguro + montoplacas + anticiporentas + comisionapertura + rentaanticipada + ratificacion; var iva = redondear((baseiva * tasaiva)); var subtotal = baseiva + rentadeposito; //setLog(montoseguro); $("#iva").val(iva); $("#subtotal").val(subtotal); $("#tdiva").html(getFMoney(iva)); $("#tdsubtotal").html(getFMoney(subtotal)); $("#tdtotal").html(getFMoney((iva+subtotal))); return true; } </script> <?php $xHP->fin(); ?>