$xFRM->addCobroBasico();
$xFRM->OText("idconceptomulta", "", "TR.Concepto de Multa");
$xFRM->OMoneda("idmontomulta", 0, "TR.Monto de Multa", true);
$xFRM->addGuardar();
} else {
$xT = new cTipos();
//===========================================================================
$idsocio = isset($_POST["idsocio"]) ? $xT->cInt($_POST["idsocio"]) : 0;
$observaciones = isset($_POST["idconceptomulta"]) ? $xT->cChar($_POST["idconceptomulta"]) : "";
$monto = isset($_POST["idmontomulta"]) ? $xT->cFloat($_POST["idmontomulta"]) : 0;
$cheque = isset($_POST["cheque"]) ? $xT->cChar($_POST["cheque"]) : DEFAULT_CHEQUE;
$comopago = isset($_POST["ctipo_pago"]) ? $xT->cChar($_POST["ctipo_pago"]) : DEFAULT_TIPO_PAGO;
$foliofiscal = isset($_POST["foliofiscal"]) ? $xT->cChar($_POST["foliofiscal"]) : DEFAULT_RECIBO_FISCAL;
if (setNoMenorQueCero($idsocio) <= 0) {
//header("location: frmcobrodemultas.php?msg=FALTAN_DATOS");
$xFRM->addAvisoRegistroError();
} else {
if (setNoMenorQueCero($monto) <= 0) {
$xFRM->addAvisoRegistroError();
} else {
$iddocto = DEFAULT_CREDITO;
$xRec = new cReciboDeOperacion(RECIBOS_TIPO_TERCEROS, false, false);
$xRec->setGenerarBancos();
$xRec->setGenerarPoliza();
$xRec->setGenerarTesoreria();
$idrecibo = $xRec->setNuevoRecibo($idsocio, $iddocto, $fecha, 1, RECIBOS_TIPO_TERCEROS, $observaciones, $cheque, $comopago, $foliofiscal);
$xRec->setNuevoMvto($fecha, $monto, OPERACION_CLAVE_MULTAS, 1, $observaciones, 1, TM_ABONO, $idsocio);
$xRec->addMvtoContableByTipoDePago($monto, TM_CARGO);
$xRec->setFinalizarRecibo(true);
$xFRM->addHTML($xRec->getFichaSocio());
$xFRM->addHTML($xRec->getFicha());