";
print "
";
print "| Código | ";
print "Denominación | ";
print "Banco | ";
print "Tipo de Cuenta | ";
print "Cuenta Contable | ";
print "Denominación Cta. Contable | ";
print "Apertura | ";
print "
";
if ($ls_operacion=="BUSCAR")
{
$ls_sql = "SELECT scb_ctabanco.ctaban as ctaban,scb_ctabanco.dencta as dencta,
trim(scb_ctabanco.sc_cuenta) as sc_cuenta,
scg_cuentas.denominacion as denominacion,scb_ctabanco.codban as codban,scb_banco.nomban as nomban,
scb_ctabanco.codtipcta as codtipcta,scb_tipocuenta.nomtipcta as nomtipcta,
scb_ctabanco.fecapr as fecapr,scb_ctabanco.feccie as feccie,scb_ctabanco.estact as estact
FROM scb_ctabanco, scb_tipocuenta, scb_banco, scg_cuentas
WHERE scb_ctabanco.codemp='".$ls_codemp."'
AND scb_ctabanco.codban like '%".$ls_codigo."%'
AND scb_ctabanco.ctaban like '".$ls_ctaban."'
AND scb_ctabanco.codtipcta=scb_tipocuenta.codtipcta
AND scb_ctabanco.codban=scb_banco.codban
AND trim(scb_ctabanco.sc_cuenta)=trim(scg_cuentas.sc_cuenta)
AND scb_ctabanco.codemp=scg_cuentas.codemp
ORDER BY ctaban ASC";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data===false)
{
$io_msg->message("Error en Consulta, Contacte al Administrador del Sistema !!!");
}
else
{
$li_totrows = $io_sql->num_rows($rs_data);
if ($li_totrows>0)
{
while(!$rs_data->EOF)
{
$ls_codban = $rs_data->fields["codban"];
$ls_denban = $rs_data->fields["nomban"];
$ls_ctaban = $rs_data->fields["ctaban"];
$ls_denctaban = $rs_data->fields["dencta"];
$ls_codtipcta = $rs_data->fields["codtipcta"];
$ls_nomtipcta = $rs_data->fields["nomtipcta"];
$ls_scgcta = $rs_data->fields["sc_cuenta"];
$ls_denscgcta = $rs_data->fields["denominacion"];
$fecapertura = $io_funcion->uf_convertirfecmostrar($rs_data->fields["fecapr"]);
$feccierre = $io_funcion->uf_convertirfecmostrar($rs_data->fields["feccie"]);
$io_ctaban->uf_verificar_saldo($ls_codban,$ls_ctaban,$adec_saldo);
if ($adec_saldo>0)
{
echo "
";
}
else
{
echo "
";
}
$ldec_saldo = number_format($adec_saldo,2,',','.');
$ls_estctaban = $rs_data->fields["estact"];
echo "| ".$ls_ctaban." | ";
echo "".$ls_denctaban." | ";
echo "".$ls_denban." | ";
echo "".$ls_nomtipcta." | ";
echo "".$ls_scgcta." | ";
echo "".$ls_denscgcta." | ";
echo "".$fecapertura." | ";
echo "
";
$rs_data->MoveNext();
}
}
else
{
$io_msg->message("No se han definido Cuentas Bancarias !!!");
}
}
}
echo "";
?>