";
print "
";
print "| Documento | ";
print "Operación | ";
print "Fecha | ";
print "Concepto | ";
print "Monto | ";
print "Monto Obj.Ret. | ";
print "Monto Ret. | ";
print "Procede | ";
print "Voucher | ";
print "Proveedor | ";
print "Beneficiario | ";
print "Nombre Prov.\Benef. | ";
print "Banco | ";
print "Nombre Banco | ";
print "Cuenta | ";
print "Denominación Cuenta | ";
print "Estatus | ";
print "
";
if($ls_operacion=="BUSCAR")
{
$ls_sql="SELECT * FROM scb_movbco
WHERE codemp='".$as_codemp."' AND numdoc like '".$ls_documento."' AND codope='CH' AND estbpd ='D'";
if((($ls_fecdesde!="")&&($ls_fecdesde!="01/01/1900"))&&(($ls_fechasta!="")&&($ls_fechasta!="01/01/1900")))
{
$ls_fecdesde=substr($ls_fecdesde,6,4)."/".substr($ls_fecdesde,3,2)."/".substr($ls_fecdesde,0,2);
$ls_fechasta=substr($ls_fechasta,6,4)."/".substr($ls_fechasta,3,2)."/".substr($ls_fechasta,0,2);
$ls_sql=$ls_sql." AND fecha>='".$ls_fecdesde."' AND fecha<='".$ls_fechasta."'";
}
if(($ls_tipo=="P")&&($ls_provben!=""))
{
$ls_sql=$ls_sql." AND cod_pro like '".$ls_provben."'";
}
elseif(($ls_tipo=="B")&&($ls_provben!=""))
{
$ls_sql=$ls_sql." AND ced_bene like'".$ls_provben."'";
}
if($ls_estmov!="-")
{
$ls_sql=$ls_sql." AND estmov='".$ls_estmov."'";
}
$rs_mov=$SQL_mov->select($ls_sql);
$data=$rs_mov;
if(($rs_mov==false)&&($SQL_mov->message!=""))
{
$io_msg->message($io_function->uf_convertirmsg($SQL_mov->message));
}
else
{
if($row=$SQL_mov->fetch_row($rs_mov))
{
$data=$SQL_mov->obtener_datos($rs_mov);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds->data=$data;
$totrow=$ds->getRowCount("numdoc");
for($z=1;$z<=$totrow;$z++)
{
$ls_documento=$data["numdoc"][$z];
$ls_codope =$data["codope"][$z];
$ls_fecha=$data["fecmov"][$z];
$ls_fecha=substr($ls_fecha,8,2)."/".substr($ls_fecha,5,2)."/".substr($ls_fecha,0,4);
$ls_descripcion=$data["conmov"][$z];
$ldec_monto =$data["monto"][$z];
$ldec_monobjret=$data["monobjret"][$z];
$ldec_monret=$data["monret"][$z];
$ls_procedencia=$data["procede"][$z];
$ls_voucher =$data["chevau"][$z];
$ls_prov=$data["cod_pro"][$z];
$ls_bene=$data["ced_bene"][$z];
$ls_provbene=$data["nomproben"][$z];
$ls_codban=$data["codban"][$z];
$ls_nomban=uf_select_data($SQL,"SELECT * FROM scb_banco WHERE codemp='".$as_codemp."' AND codban='".$ls_codban."'","nomban");
$ls_ctaban=$data["ctaban"][$z];
$ls_dencta=uf_select_data($SQL,"SELECT * FROM scb_ctabanco WHERE codemp='".$as_codemp."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."'","dencta");
$ls_estmov=$data["estmov"][$z];
$ls_cuenta_scg=uf_select_data($SQL,"SELECT * FROM scb_ctabanco WHERE codemp='".$as_codemp."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."'","sc_cuenta");
$li_cobing=$data["estcobing"][$z];
$li_estint=$data["estmovint"][$z];
$ls_codconmov=$data["codconmov"][$z];
$io_ctabanco->uf_verificar_saldo($ls_codban,$ls_ctaban,$ldec_saldo);
$ldec_saldo=number_format($ldec_saldo,2,",",".");
print "
";
print "| ".$ls_documento." | ";
print "".$ls_codope." | ";
print "".$ls_fecha." | ";
print "".$ls_descripcion." | ";
print "".$ldec_monto." | ";
print "".$ldec_monobjret." | ";
print "".$ldec_monret." | ";
print "".$ls_procedencia." | ";
print "".$ls_voucher." | ";
print "".$ls_prov." | ";
print "".$ls_bene." | ";
print "".$ls_provbene." | ";
print "".$ls_codban." | ";
print "".$ls_nomban." | ";
print "".$ls_ctaban." | ";
print "".$ls_dencta." | ";
print "".$ls_estmov." | ";
print "
";
}
$SQL_mov->free_result($rs_mov);
}
else
{
$io_msg->message("No se han realizado emisiones de Cheques");
}
}
}
print "";
?>