function jsaSetGenerarPolizaPorRecibo($numero)
{
if (setNoMenorQueCero($numero) > 0) {
//return $tab -> getString();
$Recibo = $numero;
$msg = "";
$Regenerar = true;
//( strtoupper($id2) == "SI") ? true : false;
$xUCont = new cUtileriasParaContabilidad();
$xBtn = new cHButton();
if ($Regenerar == true) {
$msg .= $xUCont->setRegenerarPrepolizaContable(false, $Recibo);
}
$xUCont->setPolizaPorRecibo($Recibo);
$idPol = trim($xUCont->getIDPoliza());
$xPolCW = new cPolizaCompacW(0);
$xPolCW->initByID($idPol);
$xPolCW->setRun();
$strDown = $xPolCW->setExport();
if (MODO_DEBUG == true) {
$xLog = new cFileLog();
$xLog->setWrite($xUCont->getMessages());
$xLog->setClose();
$strDown .= $xLog->getLinkDownload("TR.Log");
}
//return $xBtn->getBasic("TR.Modificar Poliza","jsModificarPoliza('$idPol')", $xBtn->ic()->EDITAR, "cmdeditpoliza") . $strDown ;
} else {
return "NO HAY REGISTRO QUE GENERAR [{$numero}]";
}
}
function jsaSetCreditosADespedidos($credito, $fecha, $observaciones)
{
$msg = "";
$xCred = new cCredito($credito);
$xCred->init();
$xdat = new cFecha(0);
$fecha = $xdat->getFechaISO($fecha);
$xCred->init();
$socio = $xCred->getClaveDePersona();
$xSoc = new cSocio($socio);
$xSoc->init();
$xCred->setCambioProducto(CREDITO_PRODUCTO_DESTINO_DESCARTADOS);
$xCred->setResetPersonaAsociada($fecha, $observaciones);
//Agregar operacion de desvinculacion
$xRe = new cReciboDeOperacion(RECIBOS_TIPO_ESTADISTICO, false, DEFAULT_RECIBO);
$xRe->init();
$xRe->setNuevoMvto($fecha, $xCred->getSaldoActual(), OPERACION_CLAVE_DESVINCULACION, $xCred->getPeriodoActual(), "", 1, false, $socio, $credito, $fecha);
$xRe->setFinalizarRecibo();
$msg .= $xSoc->getMessages(OUT_TXT);
$msg .= $xCred->getMessages(OUT_TXT);
$msg .= $xRe->getMessages(OUT_TXT);
$xRN = new cReglaDeNegocio();
$xEmp = new cEmpresas($xCred->getClaveDeEmpresa());
$xEmp->init();
$oP = $xCred->getOPersona();
$xRN->setVariables(array("nombre_de_persona" => $oP->getNombreCompleto(), "mensaje" => $observaciones, "saldo_del_credito" => $xCred->getSaldoActual(), "nombre_de_la_empresa" => $xEmp->getNombreCorto()));
$xRN->setExecuteActions($xRN->reglas()->RN_NOMINA_AL_DESPEDIR);
$xF = new cFileLog();
$xF->setWrite($msg);
$xF->setClose();
return $xF->getLinkDownload("Descarga de Log");
}
function jsaGuardarReestructura($credito, $monto, $pagos, $periocidad, $tasa, $observaciones, $producto, $tipopago)
{
$tasa = $tasa / 100;
$xCred = new cCredito($credito);
$xCred->init();
$xCred->setReconvenido($monto, 0, $tasa, $periocidad, $pagos, $observaciones, false, false, $tipopago, $producto);
$xF = new cFileLog();
$xF->setWrite($xCred->getMessages());
$xF->setClose();
return $xCred->getMessages(OUT_HTML) . $xF->getLinkDownload("Descarga de Log");
}
function jsaGetFiles($uLike)
{
//Crea Archivos a partir de un Read de Files en el Archivo
//principal
$d = dir(PATH_TMP);
$links = "";
while ($entry = $d->read()) {
$OName = $entry;
$siPoint = strpos($OName, ".");
$i = 0;
if (!$siPoint) {
$handle = opendir($d->path . "/" . $OName);
while ($file = readdir($handle)) {
$siTXT = strpos($file, ".txt");
$siLOG = strpos($file, "log");
if ($siLOG !== false and $siTXT !== false) {
//si no es linux
//bkp y no es
//texto
$file = str_replace(".txt", "", $file);
$xF = new cFileLog($file);
if ($uLike != "") {
if (strpos($file, $uLike) !== false) {
$links .= "<tr><td colspan='3'>" . $xF->getLinkDownload($file) . "</td></tr>";
$i++;
}
} else {
$links .= "<tr><td colspan='3'>" . $xF->getLinkDownload($file) . "</td></tr>";
$i++;
}
if ($i > 25) {
break;
}
}
}
closedir($handle);
}
}
$d->close();
echo $links;
}
$xLoc->clave_de_municipio(1);
$xLoc->clave_unica($xT->cInt($idlocalidad));
$xLoc->latitud(0);
$xLoc->longitud(0);
$xLoc->nombre_de_la_localidad($nombrelocal);
$xLoc->clave_de_pais($paislocal);
$ins = $xLoc->query()->insert();
$ins->save();
$msg .= $ins->getMessages(OUT_TXT);
}
$linea++;
}
}
$msg .= $xFil->getMessages();
if (MODO_DEBUG == true) {
$xFl = new cFileLog();
$xFl->setWrite($msg);
$xFl->setClose();
$xFRM->addToolbar($xFl->getLinkDownload("TR.archivo de eventos", ""));
} else {
echo JS_CLOSE;
}
echo $xFRM->get();
}
//$jsb->show();
?>
<!-- HTML content -->
<script>
</script>
<?php
$xHP->fin();
}
} else {
$msg .= "{$socio}\tNO.EXIST\t0\t{$sdoCW}\t0\tSocio No existe en la Sucursal\r\n";
}
}
$html = new cHTMLObject();
$fileDw = getSucursal() . "-compacw-comparacion_auxiliares_del_catalogo-" . date("ydmHsi");
$fileDi = getSucursal() . "-{$TipoDeImportacion}-diferencias_compaqw-vs-safe_" . date("ydmHsi");
$cF = new cFileLog($fileDw);
$cFd = new cFileLog($fileDi);
$cF->setWrite($msg);
$cF->setClose();
//
$cFd->setWrite($msgD);
$cFd->setClose();
echo $cFd->getLinkDownload("Archivo de diferencias");
echo $cF->getLinkDownload("Datos del proceso de Comparacion");
} else {
echo "<p class='aviso'>EL TIPO DE ARCHIVO DE " . $usrFiles[$i]['name'] . "(" . $mExt . ") NO ES SOPORTADO</p>";
}
}
}
?>
</fieldset>
</form>
<?php
}
if (!isset($iReg)) {
$iReg = 0;
}
?>
$msg .= "{$iReg}\tOMITIDO\t{$socio}\tSocio[{$socio}] y Dato Omitido\r\n";
}
}
$iReg++;
}
}
fclose($gestor);
$html = new cHTMLObject();
if ($TipoDeSalida == "comparable") {
$msg = "SOCIO,NOMBRE,MONTO,CUENTA,ESTATUS\r\n";
$msg .= $txt;
}
$cF = new cFileLog();
$cF->setWrite($msg);
$cF->setClose();
echo $cF->getLinkDownload("Mostrar Datos del Proceso");
} else {
echo "<p class='aviso'>EL TIPO DE ARCHIVO DE " . $usrFiles[$i]['name'] . "(" . $mExt . ") NO ES SOPORTADO</p>";
}
}
}
}
if (!isset($iReg)) {
$iReg = 0;
}
?>
</fieldset>
</form>
</body>
<script >
</script>
while (!feof($gestor)) {
$bufer = fgets($gestor, 4096);
//$bufer = stream_get_line($gestor, "\r\n");
if (!isset($bufer)) {
$msg .= "{$iReg}\t\tERROR\tLa Linea({$iReg}) no se leyo({$bufer})\r\n";
} else {
$bufer = trim($bufer);
$datos = explode(",", $bufer, 6);
$socio = $cT->cInt($datos[0]);
}
$iReg++;
}
}
fclose($gestor);
$xLog->setWrite($msg);
echo $xLog->getLinkDownload("Archivo del proceso");
} else {
echo "<p class='aviso'>EL TIPO DE ARCHIVO DE " . $usrFiles[$i]['name'] . "(" . $mExt . ") NO SE ACEPTA</p>";
}
}
}
}
if (!isset($iReg)) {
$iReg = 0;
}
?>
</fieldset>
</form>
</body>
<script >
</script>
$oficial_de_seguimiento = $xConv->getOficialDeSeguimiento();
}
if ($esrenovado == true) {
$TipoDeAutorizacion = CREDITO_AUTORIZACION_RENOVADO;
$msg .= "WARN\tCredito marcado como Renovado \r\n";
}
$xCred = new cCredito();
$result = $xCred->add($tipoconvenio, $persona, $contrato_corriente, $monto_solicitado, $periocidad, $numeropagos, $dias_solicitados, $rubro_destino, false, $grupo_asociado, $amp_destino, $observaciones, $oficial_de_credito, $fecha_solicitud, $tipo_de_pago, INTERES_POR_SALDO_INSOLUTO, false, $fecha_ministracion, $xSoc->getClaveDeEmpresa(), $TipoDeAutorizacion);
if ($result == false) {
$xFRM->addToolbar($xBtn->getRegresar("solicitud_de_credito.frm.php", true));
$xFRM->addAviso($xHP->lang(MSG_ERROR_SAVE));
$xFL = new cFileLog();
$xFL->setWrite($xCred->getMessages(OUT_TXT));
$xFL->setWrite($xSoc->getMessages());
$xFL->setClose();
$xFRM->addToolbar($xFL->getLinkDownload("Log de eventos", ""));
$xFRM->addAviso($xCred->getMessages());
} else {
$xCred->init();
$credito = $xCred->getNumeroDeCredito();
//Si es Automatizado
$xCat = new cCreditosOtrosDatos();
if ($tieneprops == true) {
$xCred->setOtrosDatos($xCat->AML_CON_PROPIETARIO, "1");
}
if ($tieneprovs == true) {
$xCred->setOtrosDatos($xCat->AML_CON_PROVEEDOR, "1");
}
if ($xCred->getTipoDeAutorizacion() == CREDITO_TIPO_AUTORIZACION_AUTOMATICA) {
//$saldo_actual = $monto_autorizado;
//TODO: Acabar con este modulo
function jsaSetAplicarPerfiles($id)
{
$xP = new cSystemPermissions();
$xP->setAplicarPerfil();
$xFil = new cFileLog();
$xFil->setWrite($xP->getMessages());
$xFil->setClose();
return $xFil->getLinkDownload("Cambios");
}
reset($arrAbonos);
foreach ($arrAbonos as $key => $value) {
$msg .= "{$key},FRACASO,0," . $arrInfo[$key] . ",0," . $value . "\r\n";
unset($arrAbonos[$key]);
$busq++;
}
//Eliminar Cargos
reset($arrCargos);
foreach ($arrCargos as $key => $value) {
$msg .= "{$key},FRACASO,0," . $arrInfo[$key] . "," . $value . ",0\r\n";
$busq++;
unset($arrCargos[$key]);
}
$xLog->setWrite($msg);
unset($msg);
echo $xLog->getLinkDownload("Archivo del proceso con {$busq} Busquedas");
} else {
echo "<p class='aviso'>EL TIPO DE ARCHIVO DE " . $usrFiles[$i]['name'] . "(" . $mExt . ") NO SE ACEPTA</p>";
}
}
}
}
function EsValido($valor, $comparado1, $comparado2 = 0, $comparado3 = 0)
{
$comp = $comparado1 + $comparado2 + $comparado3;
$ret = false;
if ($valor < $comp + 4.99 and $valor > $comp - 4.99) {
$ret = true;
}
return $ret;
}
function addLog($msg)
{
//if(MODO_DEBUG == true){
$xFL = new cFileLog(false, true);
$xFL->setWrite($msg);
$xFL->setClose();
unset($msg);
$this->addToolbar($xFL->getLinkDownload("TR.LOG_FILE", ""));
//}
}
$fecha = $rw["fecha_afectacion"];
$detalles = $rw["detalles"];
if ($cuenta_movible != $cuenta) {
$mvto = 0;
$saldo = 0;
$init = "<tr><td colspan='8' ><hr /></td></tr>";
} else {
$mvto++;
$init = "";
}
$saldo += $importe * $rw["afectacion"];
$txt .= "{$socio}\t{$cuenta}\t{$mvto}\t{$fecha}\t" . round($importe, 2) . "\t" . $arrConvMvto[$rw["afectacion"]] . "\t" . round($saldo, 2) . "\t{$detalles}\r\n";
$cuenta_movible = $cuenta;
$limit++;
if ($limit == 35000) {
$x = new cFileLog($filename . "_hasta_" . $cuenta);
$x->setWrite($txt);
$x->setClose();
echo $x->getLinkDownload("Archivo para Importar") . "<br />";
$limit = 0;
$txt = "";
}
}
?>
</body>
<script >
function initComponents(){
//window.print();
}
</script>
</html>
$oFrm->addToolbar($xhBtn->getBasic("TR.PAGO COMPLETO", "jsGetPago('pc')", "dinero", "pc1", false));
break;
default:
$oFrm->addToolbar($xhBtn->getBasic("TR.LETRA COMPLETA", "jsGetPago('plc')", "dinero", "pc2", false));
$oFrm->addToolbar($xhBtn->getBasic("TR.LETRA VARIABLE", "jsGetPago('pli')", "dinero", "pc3", false));
$oFrm->addToolbar($xhBtn->getBasic("TR.PAGO COMPLETO", "jsGetPago('pc')", "dinero", "pc1", false));
$defaultPago = OPERACION_PAGO_LETRA_COMPLETA;
break;
}
$oFrm->addToolbar($xhBtn->getRegresar("../index.xul?p=frmcaja/frmcobrosdecreditos.php", true));
$oFrm->addToolbar($xhBtn->getBasic("TR.Recargar", "jsCargarFrame()", "refrescar", "idrefrescar", false));
if (MODO_DEBUG == true and $xCred->getTipoEnSistema() != CREDITO_PRODUCTO_NOMINA) {
$xLog = new cFileLog(false, true);
$xLog->setWrite($msg);
$xLog->setClose();
$oFrm->addToolbar($xLog->getLinkDownload("Log de descargas", ""));
}
$xSelP->addEvent("showInCommand()", "onblur");
$xTxt = new cHText("idobservaciones");
$html = "";
$oFrm->addFooterBar("<h3>FECHA DE PAGO : [" . $xF->getFechaDDMM($Fecha) . "] NUMERO DE PARCIALIDAD: [{$parcialidad}]</h3>");
$html .= $xCred->getFicha(false, "", false, true);
$xHCob->setEvents("onblur='jsGetPago()'");
$html .= $xHCob->get(false, "", "", false);
$html .= $xTxt->get("idobservaciones", "", "Observaciones");
$html .= "<iframe id=\"idFPrincipal\" src=\"./../principal.php\" width='100%' height=\"800px\" ></iframe>";
$oFrm->addHElem($html);
echo $oFrm->get();
echo $xHP->setBodyEnd();
?>
<script>
} else {
$msg .= "WARN\tLINEA OMITIDA\r\n";
}
}
$msg .= $xCred->getMessages();
$msg .= $xPlan->getMessages();
$mObj = $xPlan->getObjRec();
if ($mObj != null) {
$mObj->setFinalizarRecibo(true);
$msg .= $mObj->getMessages(OUT_TXT);
}
}
$msg .= $xFil->getMessages();
if (MODO_DEBUG == true) {
$xFl = new cFileLog();
$xFl->setWrite($msg);
$xFl->setClose();
$xFRM->addHTML($xFl->getLinkDownload("archivo de eventos"));
} else {
echo JS_CLOSE;
}
echo $xFRM->get();
}
echo $xHP->setBodyEnd();
//$jsb->show();
?>
<!-- HTML content -->
<script>
</script>
<?php
$xHP->end();
$ql = new MQL();
$sql = "SHOW TABLES IN " . MY_DB_IN;
$rs = $ql->getDataRecord($sql);
foreach ($rs as $row) {
$tabla = $row["Tables_in_" . MY_DB_IN];
$isql = "UPDATE {$tabla} SET sucursal='{$asucursal}' WHERE sucursal='{$desucursal}' ";
$ql->setRawQuery($isql);
$ql->setRawQuery("UPDATE {$tabla} SET sucursal=LOWER(sucursal)");
}
break;
}
if ($command != false) {
//Graba los Mensajes del LOG y cierra el Archivo
$xFLog->setWrite($msg);
$xFLog->setClose();
echo $xFLog->getLinkDownload("Registro de Eventos");
}
?>
</fieldset>
<?php
$jxc->drawJavaScript(false, true);
?>
<script >
var mFrm = document.frmUtils;
function myInfoUtil(){
jsinfo_util();
<?php
echo $jsExtra;
?>
function jsaVincularEmpresa($credito, $observaciones, $empresa)
{
$msg = "";
$xCred = new cCredito($credito);
$xCred->init();
$xdat = new cFecha(0);
$fecha = $xdat->get();
// FechaISO($fecha);
$xCred->init();
$socio = $xCred->getClaveDePersona();
$xSoc = new cSocio($socio);
$xSoc->init();
$xCred->setCambioProducto(CREDITO_PRODUCTO_NOMINA);
$xCred->setResetPersonaAsociada($fecha, $observaciones, $empresa);
//Agregar operacion de desvinculacion
$xRe = new cReciboDeOperacion(RECIBOS_TIPO_ESTADISTICO, false, DEFAULT_RECIBO);
$xRe->init();
$xRe->setNuevoMvto($fecha, $xCred->getSaldoActual(), OPERACION_CLAVE_VINCULACION, $xCred->getPeriodoActual(), "", 1, false, $socio, $credito, $fecha);
$xRe->setFinalizarRecibo();
$msg .= $xSoc->getMessages(OUT_TXT);
$msg .= $xCred->getMessages(OUT_TXT);
$msg .= $xRe->getMessages(OUT_TXT);
$xF = new cFileLog();
$xF->setWrite($msg);
$xF->setClose();
return $xF->getLinkDownload("Descarga de Log");
}
if ($TipoDeImportacion == "credito") {
$sqlD = "DELETE FROM sisbancs_temp_creditos WHERE sucursal != '" . getSucursal() . "' ";
my_query($sqlD);
} else {
$sqlD = "DELETE FROM sisbancs_temp_depositos WHERE sucursal != '" . getSucursal() . "' ";
my_query($sqlD);
}
}
fclose($gestor);
$html = new cHTMLObject();
//$htmlmsg = $html->setInHTML($msg);
//echo "<p class ='aviso'>$htmlmsg</p>";
$cF = new cFileLog();
$cF->setWrite($msg);
$cF->setClose();
echo $cF->getLinkDownload("Datos del proceso");
//echo $msg;
} else {
echo "<p class='aviso'>EL TIPO DE ARCHIVO DE " . $usrFiles[$i]['name'] . "(" . $mExt . ") NO ES SOPORTADO</p>";
}
}
}
?>
</fieldset>
</form>
<?php
}
//end else action
if (!isset($iReg)) {
$iReg = 0;
}
my_query($sql);
}
$msg .= "{$ClaveEntidad}\t{$claveMunicipio}\t{$ClaveLocalidad}\tAgregando la Localidad {$NombreLocalidad} con codigo {$ClaveUnica}\r\n";
}
$iReg++;
}
}
@fclose($gestor);
$html = new cHTMLObject();
//$htmlmsg = $html->setInHTML($msg);
$xlog = new cFileLog("carga_batch-localidades-" . date("Ymd"), true);
$xlog->setWrite($msg);
$xBtn = new cHButton("");
echo $xBtn->getSalir();
$xlog->setClose();
echo $xlog->getLinkDownload("Archivo de Resultados de la Carga");
//echo "<p class ='aviso'>$htmlmsg</p>";
//echo $msg;
} else {
echo "<p class='aviso'>EL TIPO DE ARCHIVO DE " . $usrFiles[$i]['name'] . "(" . $mExt . ") NO SE ACEPTA</p>";
}
}
}
}
if (!isset($iReg)) {
$iReg = 0;
}
?>
</fieldset>
</form>
</body>
$xFRM->addToolbar($xBtn->getBasic($xFRM->lang("imprimir", "orden de desembolso"), "jsImprimirOrdenDesembolso()", "lista", "cm2", false));
$xFRM->addToolbar($xBtn->getBasic($xFRM->lang(array("imprimir", "CONTRATO de", "credito")), "jsImprimirContrato()", "lista", "cm3", false));
$xFRM->addToolbar($xBtn->getBasic($xFRM->lang("imprimir", "recibo"), "jsImprimirReciboDePrestamo()", "lista", "cm4", false));
$xFRM->addToolbar($xBtn->getBasic($xFRM->lang("imprimir", "mandato"), "jsImprimirMandato()", "lista", "cm5", false));
$xFRM->addToolbar($xBtn->getBasic($xFRM->lang("imprimir", "pagare"), "jsImprimirPagare()", "lista", "cm6", false));
$xFRM->addHElem("<div class='tx4'><label for='idNoAvales'>No Mostrar Avales</label><input name=\"noAvales\" id=\"idNoAvales\" type=\"checkbox\" onchange=\"setNoAvales()\" /></div>");
}
//Graba los Mensages del LOG y cierra el Archivo
$msg .= $xPlan->getMessages();
$msg .= $msgM;
$msg .= $msgC;
$msg .= $msgPIE;
if (MODO_DEBUG == true) {
$xLog->setWrite($msg);
$xLog->setClose();
$xFRM->addToolbar($xLog->getLinkDownload("Archivo de Eventos", ""));
}
}
$xFRM->addAviso($msgAlertas);
echo $xFRM->get();
?>
</body>
<script >
var siAvales = "si";
var vCredito = <?php
echo $solicitud;
?>
;
var urlPagare = "<?php
echo $urlsend;
?>
if ($xSoc->init() == true) {
$xSoc->addActividadEconomica($xFi->getV($tmp->EMPRESA_TRABAJO, ""), $ingreso, $xFi->getV($tmp->OCUPACION, ""));
}
}
}
}
$msg .= $xSoc->getMessages();
}
$conteo++;
}
}
$msg .= $xFi->getMessages();
if (MODO_DEBUG == true) {
$xLog = new cFileLog();
$xLog->setWrite($msg);
$xFRM->addToolbar($xLog->getLinkDownload("Archivo del proceso", ""));
}
//==================================================================================================================
/* fclose ($gestor);
$xLog->setWrite($msg);
$xFRM->addToolbar( $xLog->getLinkDownload("Archivo del proceso", ""));
} else {
$xFRM->addAviso("EL TIPO DE ARCHIVO DE " . $usrFiles[0]['name'] . "(" .$mExt . ") NO SE ACEPTA");
}
}*/
}
if (!isset($iReg)) {
$iReg = 0;
}
echo $xFRM->get();
function setExport($FechaInicial = false, $FechaFinal = false)
{
$wByFi = $FechaInicial == false ? "" : " WHERE fecha_de_alta>='{$FechaInicial}' ";
$wByFf = $FechaFinal == false ? "" : " AND fecha_de_alta<='{$FechaFinal}' ";
$sucursal = getSucursal();
$arrTipos = array("AD" => "A", "AA" => "B", "PD" => "C", "PA" => "D", "CD" => "E", "CA" => "F", "RD" => "G", "RA" => "H", "OD" => "K", "OA" => "L", "ED" => "I", "EA" => "J");
//safe => Compaq
$arrMayor = array("3" => "1", "4" => "2", "1" => "3", "2" => "4");
//3 safe mayor
$WriteText = "F 00000000000000\r\n";
//cuenta de flujo de efectivo
$sql = "SELECT numero, equivalencia, nombre, tipo, ctamayor, afectable, centro_de_costo, fecha_de_alta, digitoagrupador \r\n \t\t\tFROM contable_catalogo {$wByFi} {$wByFf} \r\n \t\t\tORDER BY numero\r\n \t\t\t";
$rs = mysql_query($sql, cnnGeneral());
if (!$rs) {
//Codigo de Control de Error
saveError(2, $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"], "Depurar :" . mysql_error() . "|||Numero: " . mysql_errno() . "|||Instruccion SQL: \n " . $sql);
}
//$WriteText .= "$sql\r\n";
while ($rw = mysql_fetch_array($rs)) {
//XXX: Si el titulo asignar 0 a superior
//$WriteText .= "C ";
//CompAQi
$WriteText .= "C ";
//$WriteText .= substr(str_pad($rw["numero"], 20, " ", STR_PAD_RIGHT), 0, 20);
$WriteText .= substr(str_pad($rw["numero"], 30, " ", STR_PAD_RIGHT), 0, 30);
$WriteText .= " ";
$WriteText .= substr(str_pad(trim($rw["nombre"]), 50, " ", STR_PAD_RIGHT), 0, 50);
$WriteText .= " ";
$WriteText .= substr(str_pad("", 50, " ", STR_PAD_RIGHT), 0, 50);
$WriteText .= " ";
//cuenta superior, mod a 30. compaqi
//$WriteText .= substr(str_pad( cuenta_superior( $rw["numero"] ), 20, " ", STR_PAD_RIGHT), 0, 20);
$WriteText .= $rw["ctamayor"] == 1 ? substr(str_pad(cuenta_superior("0"), 30, " ", STR_PAD_RIGHT), 0, 30) : substr(str_pad(cuenta_superior($rw["numero"]), 30, " ", STR_PAD_RIGHT), 0, 30);
$WriteText .= " ";
$WriteText .= $arrTipos[$rw["tipo"]];
$WriteText .= " ";
$WriteText .= "0 ";
//Baja
$WriteText .= $arrMayor[$rw["ctamayor"]];
$WriteText .= " ";
$WriteText .= "0 ";
$WriteText .= date("Ymd", strtotime($rw["fecha_de_alta"]));
$WriteText .= " ";
//Actualizacion ContPAQi
$WriteText .= "81 ";
//Sistema de Origen
$WriteText .= " 1 ";
//Moneda
$WriteText .= " 0 ";
//Digito Agrupador
$WriteText .= "0 ";
//Segmento de Negocio
$WriteText .= "0 ";
//Mvto.Segmento de Negocio
$WriteText .= "\r\n";
//$WriteText .= "01 01 0000 000\r\n";
}
$nombre = "{$sucursal}-catalogo-contable-" . date("Ymd", strtotime(fechasys())) . "-" . rand(0, 1000) . "";
$xFile = new cFileLog($nombre);
$xFile->setWrite($WriteText);
$xFile->setClose();
return $xFile->getLinkDownload($nombre);
}
$xRec->setNumeroDeRecibo($recibo, true);
$xFRM->addHTML($xRec->getFichaSocio());
$xFRM->addHTML($xRec->getFicha(true));
$xFRM->addHTML($xRec->getJsPrint(true));
if (CAPTACION_IMPUESTOS_A_DEPOSITOS_ACTIVO == true) {
if ($ReciboIDE != 0) {
$xFRM->addToolbar($xBtn->getBasic("TR. Imprimir recibo de impuestos", "jsPrintIDE()", "imprimir", "idrec-ide", false));
}
}
if (MODO_DEBUG == true) {
$msg .= $xCta->getMessages();
$msg .= $xRec->getMessages();
$xFL = new cFileLog(false, true);
$xFL->setWrite($msg);
$xFL->setClose();
$xFRM->addToolbar($xFL->getLinkDownload("TR.Archivo de sucesos", ""));
}
$xFRM->addToolbar($xBtn->getBasic("TR. Imprimir recibo de deposito", "jsImprimirRecibo()", "imprimir", "idrec-dep", false));
} else {
$msg .= "ERROR\tLA CUENTA NO ES OPERATIVA EN LA FECHA {$Fecha}\r\n";
}
$xFRM->addToolbar($xBtn->getIrAlInicio(true));
}
$xFRM->addAviso($msg, "idmsg", true);
}
echo $xFRM->get();
?>
</body>
<script >
function jsPrintIDE() {
function jsaSetGenerarPolizaPorRecibo($numero)
{
if (setNoMenorQueCero($numero) > 0) {
$Recibo = $numero;
$xPol = new cPoliza(false);
$idpoliza = "";
$msg = "";
if ($xPol->setPorRecibo($numero) == true) {
$idpoliza = $xPol->getCodigo();
} else {
$xUCont = new cUtileriasParaContabilidad();
$xUCont->setRegenerarPrepolizaContable(false, $Recibo);
$xUCont->setPolizaPorRecibo($Recibo);
$idpoliza = $xUCont->getIDPoliza();
$msg .= $xUCont->getMessages();
}
$msg .= $xPol->getMessages();
//exportar
$xPolCW = new cPolizaCompacW(0);
$xPolCW->initByID($idpoliza);
$xPolCW->setRun();
$msg .= $xPolCW->getMessages();
$strDown = $xPolCW->setExport();
if (MODO_DEBUG == true) {
$xLog = new cFileLog();
$xLog->setWrite($msg);
$strDown .= $xLog->getLinkDownload("TR.Eventos");
}
$xBtn = new cHButton();
return $xBtn->getBasic("TR.Modificar Poliza", "jsModificarPoliza('{$idpoliza}')", $xBtn->ic()->EDITAR, "cmdeditpoliza") . $strDown;
} else {
return "NO HAY REGISTRO QUE GENERAR [{$numero}]";
}
}
