if ($rs_mov === false) {
$io_msg->message("Error en select");
} 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("cod_pro");
for ($z = 1; $z <= $totrow; $z++) {
$ls_prov = $data["cod_pro"][$z];
$ls_nompro = $data["nompro"][$z];
$ls_codban = $data["codban"][$z];
$ls_ctaban = $data["ctaban"][$z];
$ls_nomban = uf_select_data($SQL, "SELECT * FROM scb_banco WHERE codemp='" . $as_codemp . "' AND codban='" . $ls_codban . "'", "nomban");
$ls_dencta = uf_select_data($SQL, "SELECT * FROM scb_ctabanco WHERE codemp='" . $as_codemp . "' AND codban='" . $ls_codban . "' AND ctaban='" . $ls_ctaban . "'", "dencta");
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: uf_aceptar('{$ls_prov}','{$ls_nompro}','{$ls_codban}','{$ls_nomban}','{$ls_ctaban}','{$ls_dencta}');\">" . $ls_prov . "</a></td>";
print "<td>" . $ls_nompro . "</td>";
print "<td>" . $ls_codban . "</td>";
print "<td>" . $ls_nomban . "</td>";
print "<td>" . $ls_ctaban . "</td>";
print "<td>" . $ls_dencta . "</td>";
print "</tr>";
}
$SQL_mov->free_result($rs_mov);
} else {
$io_msg->message("No se han realizado programaciones de pago");
}
}
}
$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 "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: uf_aceptar('$ls_documento','$ls_codope','$ls_fecha','$ls_descripcion','$ldec_monto','$ldec_monobjret','$ldec_monret','$ls_prov','$ls_bene','$ls_provbene','$ls_codban','$ls_nomban','$ls_ctaban','$ls_dencta','$ls_estmov','$ls_cuenta_scg','$li_cobing','$li_estint','$ls_codconmov','$ldec_saldo');\">".$ls_documento."</a></td>";
print "<td>".$ls_codope."</td>";
print "<td>".$ls_fecha."</td>";
print "<td>".$ls_descripcion."</td>";
print "<td>".$ldec_monto."</td>";
print "<td>".$ldec_monobjret."</td>";
print "<td>".$ldec_monret."</td>";
print "<td>".$ls_procedencia."</td>";
print "<td>".$ls_voucher."</td>";
$ls_tipo_destino=$data["tipo_destino"][$z];
$ls_numcarord=$data["numcarord"][$z];
$io_ctabanco->uf_verificar_saldo($ls_codbansig,$ls_ctabansig,&$ldec_saldo);
$ls_fecordpagsig = $fun->uf_convertirfecmostrar($data["fecordpagsig"][$z]);
$ls_tipdocressig = $data["tipdocressig"][$z];
$ls_numdocressig = $data["numdocressig"][$z];
$ls_estmodordpag = $data["estmodordpag"][$z];
$ls_codfuefin = $data["fuentefinanciamiento"][$z];
$ls_forpagsig = $data["forpagsig"][$z];
$ls_medpagsig = $data["medpagsig"][$z];
$ls_coduniadm = $data["coduniadmsig"][$z];
$rs_unidad=uf_select_rowdata($SQL,"SELECT * FROM spg_ministerio_ua WHERE codemp='".$as_codemp."' AND coduac='".$ls_coduniadm."'");
$ls_denuniadm=$rs_unidad["denuac"];
$ls_codestpro=$data["codestprosig"][$z];
$ls_nrocontrol=$data["nrocontrolop"][$z];
$ls_proyecto=uf_select_data($SQL,"SELECT denestpro1 FROM spg_ep1 WHERE codemp='".$as_codemp."' AND codestpro1='".$ls_codestpro."'","denestpro1");
$ldec_saldo=number_format($ldec_saldo,2,",",".");
$rs_dt_op=uf_select_rowdata($SQL,"SELECT * FROM scb_dt_op WHERE codemp='".$as_codemp."' AND codban='".$ls_codbansig."' AND ctaban='".$ls_ctabansig."' AND numdoc='".$ls_documento."' AND codope='OP'");
if(!empty($rs_dt_op))
{
$ls_codban=$rs_dt_op["codbanbene"];//Banco del proveedor al que se hizo el pago
$ls_ctaban=$rs_dt_op["ctabanbene"];//Cuenta Bancaria del proveedor al que se hizo el pago
$ls_nomban=$rs_dt_op["nombanbene"];//Nombre Banco del proveedor al que se hizo el pago
$ls_codbanaut=$rs_dt_op["codbanaut"];//Banco del autorizado al cobro
$ls_ctabanaut=$rs_dt_op["ctabanaut"];//Cuenta del autorizado al cobro
$ls_nombanaut=$rs_dt_op["nombanaut"];//Nombre del banco del autorizado
$ls_nombenaut=$rs_dt_op["nombenaut"];//Nombre del autorizado
$ls_rifaut=$rs_dt_op["rifbenaut"];//Nombre del autorizado
}
else
{