uf_conectar(); require_once("../../shared/class_folder/class_mensajes.php"); $io_msg=new class_mensajes(); require_once("../../shared/class_folder/class_sql.php"); $SQL=new class_sql($con); $ds=new class_datastore(); require_once("../../shared/class_folder/class_funciones.php"); $fun=new class_funciones(); $ls_codemp=$arr["codemp"]; require_once("sigesp_c_cuentas_banco.php"); $io_ctaban = new sigesp_c_cuentas_banco(); if(array_key_exists("operacion",$_POST)) { $ls_operacion=$_POST["operacion"]; $ls_codigo=$_POST["txtcodban"]; $ls_ctaban=$_POST["cuenta"]; } else { $ls_operacion=""; $ls_codigo=""; $ls_ctaban=""; } ?>
Catálogo de Cuentas
Banco
Cuenta
Buscar
"; print "
"; print "
Banco
"; print "
Cuenta
"; print "
Denominación
"; print "
"; print "
"; if($ls_operacion=="BUSCAR") { $ls_sql="SELECT scb_ctabanco.ctaban as ctaban,scb_ctabanco.dencta as dencta,scb_ctabanco.codban as codban,". " scb_banco.nomban as nomban,scb_ctabanco.codtipcta as codtipcta,scb_tipocuenta.nomtipcta as nomtipcta". " FROM scb_ctabanco,scb_tipocuenta,scb_banco ". " WHERE scb_ctabanco.codemp='".$ls_codemp."'". " AND scb_ctabanco.codtipcta=scb_tipocuenta.codtipcta". " AND scb_ctabanco.codban=scb_banco.codban". " AND scb_ctabanco.ctaban <> '-------------------------'". " AND scb_banco.nomban like '%".$ls_codigo."%'". " AND scb_ctabanco.ctaban like '%".$ls_ctaban."%'". " ORDER BY scb_banco.nomban"; $rs_cta=$SQL->select($ls_sql); if($rs_cta===false) { $io_msg->message("Error en select"); } else { if($row=$SQL->fetch_row($rs_cta)) { $data=$SQL->obtener_datos($rs_cta); $arrcols=array_keys($data); $totcol=count($arrcols); $ds->data=$data; $totrow=$ds->getRowCount("ctaban"); for($z=1;$z<=$totrow;$z++) { print "
"; $ls_codban=$data["codban"][$z]; $ls_nomban=$data["nomban"][$z]; $ls_ctaban=$data["ctaban"][$z]; $ls_dencta=$data["dencta"][$z]; print "
"; print "
"; print "
"; print "
"; print "
"; } } else { $io_msg->message("No se han definido Cuentas de Banco"); } } } print ""; ?>