uf_conectar();
// $con->debug=true;
$this->io_sql=new class_sql($con);
$this->io_funscb = new class_funciones_banco();
$this->fun=new class_funciones();
$this->msg=new class_mensajes();
$this->dat=$_SESSION["la_empresa"];
$this->ls_codemp=$_SESSION["la_empresa"]["codemp"];
$this->ds_temp=new class_datastore();
$this->ds_sol=new class_datastore();
}
function uf_cargar_programaciones($as_tipproben,$as_codproben,$as_codban,$as_ctaban,&$object,&$li_totsolpag,&$ls_conmov,$as_numordpagmin,$as_codtipfon)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_cargar_programaciones
// Access: private
// Arguments: $as_tipproben = Tipo de Proveedor (P) o Beneficiario (B).
// $as_codproben = Código del Proveedor/Beneficiario.
// $as_codban = Código del Banco.
// $as_ctaban = Cuenta Bancaria.
// $object = Arreglo cargado con las Solicitudes de Pago listas para Emisión del Cheque.
// $li_totsolpag = Total de Solicitudes de pago previstas para la Emisión del Cheque.
// $ls_conmov = Concepto de la Solicitud de Pago.
// Returns: lb_valido True si se ejecuto el insert ó False si hubo error en el insert
// Description: Funcion que actualiza la solicitud de Ejecución Presupuestaria
// Creado Por: Ing. Néstor Falcón.
// Fecha Creación: 17/03/2007. Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$li_i = 0;
$li_estciespg = $this->io_funscb->uf_obtenervalor("hidestciespg",0);
$li_estciespi = $this->io_funscb->uf_obtenervalor("hidestciespi",0);
$li_estciescg = $this->io_funscb->uf_obtenervalor("hidestciescg",0);
// AGREGADO POR OFIMATICA DE VENEZUELA EL 27-04-2012, PARA BUSCAR LA CONFIGURACION DE LAS PARTIDAS PRESUPUESTARIAS DE LOS VIAIICOS.
require_once("../scv/sigesp_scv_c_calcularviaticos.php");
$io_scv= new sigesp_scv_c_calcularviaticos();
$io_scv->uf_scv_load_config($ls_codemp,'SCV','CONFIG','NACIONALES',$ls_ctanacional);
$io_scv->uf_scv_load_config($ls_codemp,'SCV','CONFIG','INTERNACIONALES',$ls_ctainternacional);
unset($io_scv);
// FIN DE LO AGREGADO POR OFIMATICA DE VENEZUELA
$ls_codemp = $this->dat["codemp"];
$ld_fecha = date("Y-m-d");
if ($as_tipproben=='P')
{
$ls_tabla = ', rpc_proveedor';
$ls_campo = 'cod_pro';
$ls_campos = ',cxp_solicitudes.cod_pro as cod_pro, rpc_proveedor.nompro';
$ls_sqlaux = " AND cxp_solicitudes.tipproben='P' AND cxp_solicitudes.cod_pro=rpc_proveedor.cod_pro";
}
elseif($as_tipproben=='B')
{
$ls_tabla = ', rpc_beneficiario';
$ls_campo = 'ced_bene';
$ls_campos = ',cxp_solicitudes.ced_bene,rpc_beneficiario.nombene,rpc_beneficiario.apebene';
$ls_sqlaux = " AND cxp_solicitudes.tipproben='B' AND cxp_solicitudes.ced_bene=rpc_beneficiario.ced_bene";
}
if (!empty($as_numordpagmin) && !empty($as_codtipfon) && $as_numordpagmin!='-' && $as_codtipfon!='----')
{
$ls_sqlaux = $ls_sqlaux." AND trim(cxp_solicitudes.numordpagmin) = '".$as_numordpagmin."'
AND cxp_solicitudes.codtipfon = '".$as_codtipfon."'";
}
else
{
/* $ls_sqlaux = $ls_sqlaux." AND trim(cxp_solicitudes.numordpagmin) = '-'
AND cxp_solicitudes.codtipfon = '----'";*/
}
$ls_sql = "SELECT cxp_solicitudes.numsol as numsol,
cxp_solicitudes.consol as consol,
cxp_solicitudes.monsol as monsol,
scb_prog_pago.codban as codban,
scb_prog_pago.ctaban as ctaban,
cxp_solicitudes.codfuefin $ls_campos,
(SELECT benefaltrd FROM cxp_dt_solicitudes dsol
WHERE dsol.codemp=cxp_solicitudes.codemp
AND dsol.numsol=cxp_solicitudes.numsol
AND dsol.ced_bene=cxp_solicitudes.ced_bene
AND dsol.cod_pro=cxp_solicitudes.cod_pro
AND dsol.benefaltrd!=''
LIMIT 1
) AS benefaltrd,
cxp_solicitudes.nombenaltcre,
cxp_solicitudes.codfuefin $ls_campos,
(SELECT count(cxp_rd_spg.spg_cuenta)
FROM cxp_rd_spg, cxp_rd, cxp_dt_solicitudes
WHERE cxp_solicitudes.codemp=cxp_dt_solicitudes.codemp
AND cxp_solicitudes.numsol=cxp_dt_solicitudes.numsol
AND cxp_dt_solicitudes.codemp=cxp_rd_spg.codemp
AND cxp_dt_solicitudes.numrecdoc=cxp_rd_spg.numrecdoc
AND cxp_dt_solicitudes.codtipdoc=cxp_rd_spg.codtipdoc
AND cxp_dt_solicitudes.cod_pro=cxp_rd_spg.cod_pro
AND cxp_dt_solicitudes.ced_bene=cxp_rd_spg.ced_bene
AND cxp_rd.codemp=cxp_rd_spg.codemp
AND cxp_rd.numrecdoc=cxp_rd_spg.numrecdoc
AND cxp_rd.codtipdoc=cxp_rd_spg.codtipdoc
AND cxp_rd.cod_pro=cxp_rd_spg.cod_pro
AND cxp_rd.ced_bene=cxp_rd_spg.ced_bene) as detspg,
cxp_solicitudes.tipsolpag
FROM cxp_solicitudes, scb_prog_pago $ls_tabla
WHERE cxp_solicitudes.codemp='".$ls_codemp."'
AND trim(cxp_solicitudes.$ls_campo)='".trim($as_codproben)."'
AND cxp_solicitudes.estprosol='S'
AND scb_prog_pago.estmov='P'
AND scb_prog_pago.codban='".$as_codban."'
AND scb_prog_pago.ctaban='".$as_ctaban."'
AND scb_prog_pago.fecpropag<='".$ld_fecha."' $ls_sqlaux
AND cxp_solicitudes.numsol=scb_prog_pago.numsol
AND cxp_solicitudes.codemp=scb_prog_pago.codemp
ORDER BY cxp_solicitudes.numsol ASC";
$rs_data = $this->io_sql->select($ls_sql);//echo "SQL=>".$ls_sql.' ';
if ($rs_data===false)
{
$this->is_msg_error="Error en consulta, ".$this->fun->uf_convertirmsg($this->io_sql->message);
echo $this->io_sql->message;
$lb_valido=false;
}
else
{
while (!$rs_data->EOF)
{
$li_detspg = $rs_data->fields["detspg"];
if (($li_estciespg==1 || $li_estciespi==1) && ($li_detspg==0 && $li_estciescg==0) ||
($li_estciespg==0 && $li_estciespi==0 && $li_estciescg==0))
{
$li_i++;
if ($as_tipproben=='P')
{
$ls_codprovben = trim($rs_data->fields["cod_pro"]);
$ls_nomproben = $rs_data->fields["nompro"];
}
else
{
$ls_codprovben = trim($rs_data->fields["ced_bene"]);
$ls_nomproben = $rs_data->fields["nombene"].', '.$rs_data->fields["apebene"];
}
$ls_numsol = trim($rs_data->fields["numsol"]);
// AGREGADO POR OFIMATICA DE VENEZUELA EL 27-04-2012, PARA BUSCAR LA CONFIGURACION DE LAS PARTIDAS PRESUPUESTARIAS DE LOS VIAIICOS.
$ls_procede = $this->uf_buscar_procede_solicitud($ls_codemp, $ls_numsol);
// FIN DE LO AGREGADO POR OFIMATICA DE VENEZUELA
$ls_consol = $rs_data->fields["consol"];
$ldec_monsol = $rs_data->fields["monsol"];
$ls_codban = $rs_data->fields["codban"];
$ls_ctaban = $rs_data->fields["ctaban"];
// AGREGADO POR OFIMATICA DE VENEZUELA EL 27-04-2012, PARA BUSCAR LA CONFIGURACION DE LA CUENTA BANCARIA.
if($ls_procede=='SCVSOV')
{
$ls_cajachicaext=$this->uf_verificar_cuenta_cajachicaext($ls_codemp, $ls_codban, $ls_ctaban);
}
else
{
$ls_cajachicaext=0;
}
// FIN DE LO AGREGADO POR OFIMATICA DE VENEZUELA
$ls_codfuefin = $rs_data->fields["codfuefin"];
$ls_nombenealt = $rs_data->fields["nombenaltcre"];
$benefalt = $rs_data->fields["benefaltrd"];
$descbene = $benefalt?' Ben. Alterno: '.$benefalt:"";
$ldec_montocancelado = $this->uf_select_solcxp_montocancelado($ls_codemp,$ls_numsol,$ls_codban,$ls_ctaban);
$ai_montonotas=0;
$lb_valido=$this->uf_load_notas_asociadas($ls_codemp,$ls_numsol,$ai_montonotas);
// AGREGADO POR OFIMATICA DE VENEZUELA EL 27-04-2012, PARA BUSCAR EL MONTO DE A PAGAR DE ACUERDO A SI EL VIATICOS ES NACIONAL O INTERNACIONAL
/*
if($ls_procede=='SCVSOV')
{
if($ls_cajachicaext==1)
{
$ldec_montoimputacion = $this->uf_obtener_monto_imputacion($ls_codemp, $ls_numsol,$ls_ctainternacional);
}
else
{
$ldec_montoimputacion = $this->uf_obtener_monto_imputacion($ls_codemp, $ls_numsol,$ls_ctanacional);
}
$ldec_montopagar = $ldec_montoimputacion;
}
*/
$ldec_montopendiente = ($ldec_monsol-$ldec_montocancelado)+$ai_montonotas;
// FIN DE LO AGREGADO POR OFIMATICA DE VENEZUELA
$descbene=$benefalt?$descbene:"";
$object[$li_i][1] = "";
$object[$li_i][2] = "";
$object[$li_i][3] = "".$descbene;
$object[$li_i][4] = "";
$object[$li_i][5] = "";
// AGREGADO POR OFIMATICA DE VENEZUELA EL 27-04-2012, PARA MOSTRAR EL MONTO DE A PAGAR DE ACUERDO A SI EL VIATICOS ES NACIONAL O INTERNACIONAL
//COVENSOL: SE ELIMINO LO AGREGADO POR OFIMATICA YA QUE NO PERMITE SACAR CHEQUES A BENEFICIARIOS DE VIÁTICOS
$object[$li_i][6] = "".
"".
"".
"";
$object[$li_i][7] = $rs_data->fields["tipsolpag"];
// FIN DE LO AGREGADO POR OFIMATICA DE VENEZUELA
/*
$object[$li_i][6] = "".
"".
"";
*/
}
$rs_data->MoveNext();
}
if ($li_i==0)
{
$li_i=1;
$object[$li_i][1] = "";
$object[$li_i][2] = "";
$object[$li_i][3] = "";
$object[$li_i][4] = "";
$object[$li_i][5] = "";
$object[$li_i][6] = "".
"".
"".
"";
$object[$li_i][7] = $rs_data->fields["tipsolpag"];
}
$this->io_sql->free_result($rs_data);
}
$li_totsolpag=$li_i;
}//Fin de uf_cargar_programaciones
function uf_select_solcxp_montocancelado($ls_codemp,$ls_numsol,$ls_codban,$ls_ctaban)
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_select_solcxp_montocancelado
// Access: public
// Returns: Decimal--- Valor decimal con el monto que ha sido cancelado o abonado para la solicitud
// Description: Funcion que suma los montos cancelados o abonados para cada solicitud
//////////////////////////////////////////////////////////////////////////////
/*$ls_sql="SELECT sum(monto) as monto
FROM cxp_sol_banco
WHERE codemp='".$ls_codemp."' AND numsol='".$ls_numsol."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."' AND estmov<>'A' AND estmov<>'O'";*/
$ls_sql = "SELECT sum(monto) as monto
FROM cxp_sol_banco
WHERE codemp='".$ls_codemp."'
AND numsol='".$ls_numsol."'
AND estmov<>'A'
AND estmov<>'O'";
$rs_data = $this->io_sql->select($ls_sql);
if($rs_data===false)
{
$this->is_msg_error="Error en consulta,".$this->fun->uf_convertirmsg($this->io_sql->message);
}
else
{
if($row=$this->io_sql->fetch_row($rs_data))
{
$ldec_montocancelado=$row["monto"];
}
else
{
$ldec_montocancelado=0;
}
$this->io_sql->free_result($rs_data);
}
return $ldec_montocancelado;
}//Fin de uf_select_solcxp_montocancelado
function uf_load_notas_asociadas($as_codemp,$as_numsol,&$ai_montonotas)
{
//////////////////////////////////////////////////////////////////////////////
// Metodo: uf_load_notas_asociadas
// Access: public
// Arguments as_codemp // Código de la Empresa.
// as_numsol // Número de Identificación de la Solicitud de Pago.
// ai_montonotas // monto de las Notas de Débito y Crédito.
// Returns: lb_valido.
// Description: Función que se encarga de buscar las notas de debito y crédito asociadas a la solicitud de pago.
// Elaborado Por: Ing. Yesenia Moreno
// Fecha de Creación: 26/09/2007 Fecha Última Actualización:
//////////////////////////////////////////////////////////////////////////////
$lb_valido=true;
$ai_montonotas=0;
$ls_sql= "SELECT SUM(CASE cxp_sol_dc.codope WHEN 'NC' THEN (-1*cxp_sol_dc.monto) ".
" ELSE (cxp_sol_dc.monto) END) as total ".
" FROM cxp_dt_solicitudes, cxp_sol_dc ".
" WHERE cxp_dt_solicitudes.codemp='".$as_codemp."' ".
" AND cxp_dt_solicitudes.numsol='".$as_numsol."' ".
" AND cxp_sol_dc.estnotadc= 'C' ".
" AND cxp_dt_solicitudes.codemp = cxp_sol_dc.codemp ".
" AND cxp_dt_solicitudes.numsol = cxp_sol_dc.numsol ".
" AND cxp_dt_solicitudes.numrecdoc = cxp_sol_dc.numrecdoc ".
" AND cxp_dt_solicitudes.codtipdoc = cxp_sol_dc.codtipdoc ".
" AND cxp_dt_solicitudes.ced_bene = cxp_sol_dc.ced_bene ".
" AND cxp_dt_solicitudes.cod_pro = cxp_sol_dc.cod_pro";
$rs_data=$this->io_sql->select($ls_sql);
if ($rs_data===false)
{
$lb_valido=false;
$this->is_msg_error="Error en metodo uf_load_notas_asociadas".$this->fun->uf_convertirmsg($this->SQL->message);
}
else
{
if($row=$this->io_sql->fetch_row($rs_data))
{
$ai_montonotas=$row["total"];
}
}
return $lb_valido;
}
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function uf_select_ctaprovbene($as_provbene,$as_codprobene,&$as_codban,&$as_ctaban)
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_select_catprovben
// Access: public
// Returns: String--- Retorno la cuenta contable del proveedor o beneficiario y como parametro de referenica el banco y la cuenta de banco del mismo
// Description: Funcion que busca el banco, la cuenta de banbco y la cuenta contable del proveedor o beneficiario.
//////////////////////////////////////////////////////////////////////////////
$ls_codemp=$this->dat["codemp"];
if($as_provbene=='P')
{
$ls_sql="SELECT codban,ctaban,sc_cuenta
FROM rpc_proveedor
WHERE codemp='".$ls_codemp."' AND cod_pro='".$as_codprobene."'";
}
else
{
$ls_sql="SELECT codban,ctaban,sc_cuenta
FROM rpc_beneficiario
WHERE codemp='".$ls_codemp."' AND ced_bene='".$as_codprobene."'";
}
$rs_data= $this->io_sql->select($ls_sql);
if($rs_data===false)
{
$this->is_msg_error="Error en consulta,".$this->fun->uf_convertirmsg($this->io_sql->message);
}
else
{
if($row=$this->io_sql->fetch_row($rs_data))
{
$as_codban=$row["codban"];
$as_ctaban=$row["ctaban"];
$ls_cuenta_scg=$row["sc_cuenta"];
}
else
{
$ls_cuenta_scg="";
}
$this->io_sql->free_result($rs_data);
}
return $ls_cuenta_scg;
}//Fin de uf_select_ctaprovbene
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function uf_select_ctacxpclasificador($as_numsol,$as_provbene,$as_codprobene)
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_select_ctacxpclasificador
// Access: public
// Returns: String--- Retorno la cuenta contable del catalogo de clasificación de CXP
// Description: Funcion que busca la cuenta contable de la recepción o recepciones
//////////////////////////////////////////////////////////////////////////////
$ls_codemp=$this->dat["codemp"];
if($as_provbene=='P')
{
$ls_sql= "SELECT sc_cuenta ".
" FROM cxp_rd_scg, cxp_dt_solicitudes ".
" WHERE cxp_rd_scg.codemp='".$ls_codemp."' ".
" AND cxp_rd_scg.cod_pro='".$as_codprobene."' ".
" AND cxp_rd_scg.debhab='H' ".
" AND cxp_dt_solicitudes.numsol='".$as_numsol."' ".
" AND cxp_rd_scg.codemp=cxp_dt_solicitudes.codemp ".
" AND cxp_rd_scg.cod_pro=cxp_dt_solicitudes.cod_pro ".
" AND cxp_rd_scg.numrecdoc=cxp_dt_solicitudes.numrecdoc ";
}
else
{
$ls_sql= "SELECT sc_cuenta ".
" FROM cxp_rd_scg, cxp_dt_solicitudes ".
" WHERE cxp_rd_scg.codemp='".$ls_codemp."' ".
" AND cxp_rd_scg.ced_bene='".$as_codprobene."' ".
" AND cxp_rd_scg.debhab='H' ".
" AND cxp_dt_solicitudes.numsol='".$as_numsol."' ".
" AND cxp_rd_scg.codemp=cxp_dt_solicitudes.codemp ".
" AND cxp_rd_scg.cod_pro=cxp_dt_solicitudes.cod_pro ".
" AND cxp_rd_scg.numrecdoc=cxp_dt_solicitudes.numrecdoc ";
}
$rs_data= $this->io_sql->select($ls_sql);
if($rs_data===false)
{
$this->is_msg_error="Error en consulta,".$this->fun->uf_convertirmsg($this->io_sql->message);
}
else
{
if($row=$this->io_sql->fetch_row($rs_data))
{
$ls_cuenta_scg=$row["sc_cuenta"];
}
else
{
$ls_cuenta_scg="";
}
$this->io_sql->free_result($rs_data);
}
return $ls_cuenta_scg;
}//Fin de uf_select_ctacxpclasificador
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function uf_actualizar_estatus_ch($ls_codban,$ls_ctaban,$ls_numdoc,$ls_numchequera)
{
if (!empty($ls_numdoc)&(!empty($ls_numchequera)))
{
$ls_sql = "SELECT numche
FROM scb_cheques
WHERE codban='".$ls_codban."'
AND ctaban='".$ls_ctaban."'
AND numche='".$ls_numdoc."'
AND numchequera='".$ls_numchequera."'";
$rs_data=$this->io_sql->select($ls_sql);
if ($rs_data===false)
{
$this->is_msg_error="Error en actualizar estatus Cheque.".$this->fun->uf_convertirmsg($this->io_sql->message);
return false;
}
else
{
if ($row=$this->io_sql->fetch_row($rs_data))
{
$ls_sql = "UPDATE scb_cheques
SET estche=1
WHERE codban='".$ls_codban."'
AND ctaban='".$ls_ctaban."'
AND numche='".$ls_numdoc."'
AND numchequera='".$ls_numchequera."'";
$rs_data = $this->io_sql->execute($ls_sql);
if ($rs_data===false)
{
$this->is_msg_error="Error en actualizar estatus Cheque.".$this->fun->uf_convertirmsg($this->io_sql->message);
return false;
}
else
{
return true;
}
}
else
{
return true;
}
}
}
else
{
return true;
}
}
function uf_procesar_emision_chq($ls_codban,$ls_ctaban,$ls_numdoc,$ls_codope,$ls_numsol,$ls_estmov,$ldec_monto,$ls_estdoc)
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_procesar_emision_scq
// Access: public
// Returns: Boolean Retorna si proceso correctamente
// Description: Funcion que se encarga de guardar los detalles d ela emision de cheque
//////////////////////////////////////////////////////////////////////////////
$ls_codemp=$this->dat["codemp"];
$ls_sql="INSERT INTO cxp_sol_banco(codemp,codban,ctaban,numdoc,codope,numsol,estmov,monto)
VALUES('".$ls_codemp."','".$ls_codban."','".$ls_ctaban."','".$ls_numdoc."','".$ls_codope."','".$ls_numsol."','".$ls_estmov."',".$ldec_monto.")";
$rs_data = $this->io_sql->execute($ls_sql);
if ($rs_data===false)
{
$lb_valido=false;
$this->is_msg_error="Error en insert cxp_sol_banco,".$this->fun->uf_convertirmsg($this->io_sql->message);
print $this->io_sql->message;
}
else
{
$lb_valido=true;
if ($ls_estdoc=='C')
{
$ls_sql = "UPDATE scb_prog_pago
SET estmov = '".$ls_estmov."'
WHERE codemp='".$ls_codemp."'
AND numsol='".$ls_numsol."'";
$rs_data = $this->io_sql->execute($ls_sql);
if ($rs_data===false)
{
$lb_valido=false;
$this->is_msg_error="Error en actualizar scb_prog_pago, ".$this->fun->uf_convertirmsg($this->io_sql->message);
print $this->is_msg_error;
}
else
{
$lb_valido=true;
$ls_sql = "UPDATE cxp_solicitudes
SET estprosol = 'P'
WHERE codemp='".$ls_codemp."'
AND numsol='".$ls_numsol."'";
$rs_data = $this->io_sql->execute($ls_sql);
if ($rs_data===false){
$lb_valido=false;
$this->is_msg_error="Error en actualizar scb_prog_pago, ".$this->fun->uf_convertirmsg($this->io_sql->message);
print $this->is_msg_error;
}
else{
$lb_valido=true;
}
}
}
}
return $lb_valido;
}//Fin de uf_procesar_emision_chq
function uf_buscar_dt_cxpspg($as_numsol)
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_buscar_dt_cxpspg
// Access: public
// Returns: Boolean Retorna si proceso correctamente
// Description: Funcion que se buscar el detalle presupuestario de una solicitud de pago
//////////////////////////////////////////////////////////////////////////////
$aa_dt_cxpspg = array();
$aa_dt_scbspg = array();
$aa_dt_spg = array();
$ls_codemp=$this->dat["codemp"];
//BUSCANDO LOS DETALLES PRESUPUESTARIOS DE LOS PAGOS ANTERIORES
$ls_sql="SELECT codestpro, spg_cuenta, sum(monto) as monto, estcla
FROM scb_movbco_spg
WHERE codemp='".$ls_codemp."'
AND procede_doc='CXPSOP'
AND documento ='".$as_numsol."'
AND estmov <> 'A'
AND estmov <> 'O'
GROUP BY codestpro, spg_cuenta, estcla";
$rs_dt_spgchq = $this->io_sql->select($ls_sql);
if ($rs_dt_spgchq===false){
$this->is_msg_error="Error en consulta,".$this->fun->uf_convertirmsg($this->io_sql->message);
return false;
}
//AHORA BUSCANDO LOS DETALLES PRESUPUESTARIOS DE LA SOLICITUD
$ls_conrecdoc=$_SESSION["la_empresa"]["conrecdoc"];
if($ls_conrecdoc!=1){
$ls_sql="SELECT spg_dt_cmp.codestpro1 as codestpro1,
spg_dt_cmp.codestpro2 as codestpro2,
spg_dt_cmp.codestpro3 as codestpro3,
spg_dt_cmp.codestpro4 as codestpro4,
spg_dt_cmp.codestpro5 as codestpro5,
spg_dt_cmp.spg_cuenta as spg_cuenta,
sum(spg_dt_cmp.monto) as monto,
spg_dt_cmp.descripcion as descripcion,
spg_dt_cmp.estcla as estcla,0 as nota
FROM sigesp_cmp, spg_dt_cmp
WHERE spg_dt_cmp.codemp='".$ls_codemp."'
AND spg_dt_cmp.procede='CXPSOP'
AND spg_dt_cmp.comprobante='".$as_numsol."'
AND sigesp_cmp.codemp=spg_dt_cmp.codemp
AND sigesp_cmp.procede=spg_dt_cmp.procede
AND sigesp_cmp.comprobante=spg_dt_cmp.comprobante
AND sigesp_cmp.fecha=spg_dt_cmp.fecha
AND sigesp_cmp.codban=spg_dt_cmp.codban
AND sigesp_cmp.ctaban=spg_dt_cmp.ctaban
GROUP BY spg_dt_cmp.codestpro1,spg_dt_cmp.codestpro2,spg_dt_cmp.codestpro3,spg_dt_cmp.codestpro4,
spg_dt_cmp.codestpro5,spg_dt_cmp.spg_cuenta,spg_dt_cmp.estcla,spg_dt_cmp.descripcion
UNION ".
"SELECT codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,spg_cuenta,sum(spg_dt_cmp.monto) as monto,descripcion,estcla,1 as nota ".
" FROM spg_dt_cmp, cxp_dt_solicitudes, cxp_sol_dc ".
" WHERE spg_dt_cmp.codemp='".$ls_codemp."' ".
" AND spg_dt_cmp.procede='CXPNOC' ".
" AND spg_dt_cmp.comprobante=LPAD(cxp_sol_dc.numdc,15,'0') ".
" AND cxp_dt_solicitudes.numsol='".$as_numsol."' ".
" AND cxp_dt_solicitudes.codemp = cxp_sol_dc.codemp ".
" AND cxp_dt_solicitudes.numsol = cxp_sol_dc.numsol ".
" AND cxp_dt_solicitudes.numrecdoc = cxp_sol_dc.numrecdoc ".
" AND cxp_dt_solicitudes.codtipdoc = cxp_sol_dc.codtipdoc ".
" AND cxp_dt_solicitudes.ced_bene = cxp_sol_dc.ced_bene ".
" AND cxp_dt_solicitudes.cod_pro = cxp_sol_dc.cod_pro ".
" GROUP BY codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,spg_cuenta,estcla,descripcion ".
" UNION ".
"SELECT codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,spg_cuenta,sum(spg_dt_cmp.monto) as monto,descripcion,estcla,2 as nota ".
" FROM spg_dt_cmp, cxp_dt_solicitudes, cxp_sol_dc ".
" WHERE spg_dt_cmp.codemp='".$ls_codemp."' ".
" AND spg_dt_cmp.procede='CXPNOD' ".
" AND spg_dt_cmp.comprobante=LPAD(cxp_sol_dc.numdc,15,'0') ".
" AND cxp_dt_solicitudes.numsol='".$as_numsol."' ".
" AND cxp_dt_solicitudes.codemp = cxp_sol_dc.codemp ".
" AND cxp_dt_solicitudes.numsol = cxp_sol_dc.numsol ".
" AND cxp_dt_solicitudes.numrecdoc = cxp_sol_dc.numrecdoc ".
" AND cxp_dt_solicitudes.codtipdoc = cxp_sol_dc.codtipdoc ".
" AND cxp_dt_solicitudes.ced_bene = cxp_sol_dc.ced_bene ".
" AND cxp_dt_solicitudes.cod_pro = cxp_sol_dc.cod_pro ".
" GROUP BY codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,spg_cuenta,estcla,descripcion ";
}
else{
$rs_dararec=$this->uf_obtener_recepciones_asociadas($as_numsol);
$li_i=0;
$ls_cadena="";
while ($row=$this->io_sql->fetch_row($rs_dararec)){
$li_i++;
$ls_numrecdoc=$row["numrecdoc"];
$ls_codrecdoc=$row["codrecdoc"];
if (empty($ls_cadena)){
$ls_cadena = "AND (spg_dt_cmp.comprobante='".$ls_codrecdoc."'";
}
else{
$ls_cadena=$ls_cadena." OR spg_dt_cmp.comprobante='".$ls_codrecdoc."'";
}
}
if (!empty($ls_cadena)){
$ls_cadena = $ls_cadena." OR spg_dt_cmp.comprobante='".$as_numsol."')";
}
else{
$ls_cadena = " AND comprobante='".$as_numsol."'";
}
$ls_sql = "SELECT spg_dt_cmp.codestpro1 as codestpro1,
spg_dt_cmp.codestpro2 as codestpro2,
spg_dt_cmp.codestpro3 as codestpro3,
spg_dt_cmp.codestpro4 as codestpro4,
spg_dt_cmp.codestpro5 as codestpro5,
spg_dt_cmp.spg_cuenta as spg_cuenta,
sum(spg_dt_cmp.monto) as monto,
spg_dt_cmp.descripcion as descripcion,
spg_dt_cmp.estcla as estcla,0 as nota
FROM sigesp_cmp, spg_dt_cmp
WHERE spg_dt_cmp.codemp='".$ls_codemp."'
AND sigesp_cmp.procede='CXPRCD' $ls_cadena
AND sigesp_cmp.codemp=spg_dt_cmp.codemp
AND sigesp_cmp.procede=spg_dt_cmp.procede
AND sigesp_cmp.comprobante=spg_dt_cmp.comprobante
AND sigesp_cmp.fecha=spg_dt_cmp.fecha
AND sigesp_cmp.codban=spg_dt_cmp.codban
AND sigesp_cmp.ctaban=spg_dt_cmp.ctaban
GROUP BY spg_dt_cmp.codestpro1,spg_dt_cmp.codestpro2,spg_dt_cmp.codestpro3,spg_dt_cmp.codestpro4,spg_dt_cmp.codestpro5,
spg_dt_cmp.spg_cuenta,spg_dt_cmp.estcla,spg_dt_cmp.descripcion
UNION ".
"SELECT codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,spg_cuenta,sum(spg_dt_cmp.monto) as monto,descripcion,estcla,1 as nota ".
" FROM spg_dt_cmp, cxp_dt_solicitudes, cxp_sol_dc ".
" WHERE spg_dt_cmp.codemp='".$ls_codemp."' ".
" AND spg_dt_cmp.procede='CXPNOC' ".
" AND spg_dt_cmp.comprobante=LPAD(cxp_sol_dc.numdc,15,'0') ".
" AND cxp_dt_solicitudes.numsol='".$as_numsol."' ".
" AND cxp_dt_solicitudes.codemp = cxp_sol_dc.codemp ".
" AND cxp_dt_solicitudes.numsol = cxp_sol_dc.numsol ".
" AND cxp_dt_solicitudes.numrecdoc = cxp_sol_dc.numrecdoc ".
" AND cxp_dt_solicitudes.codtipdoc = cxp_sol_dc.codtipdoc ".
" AND cxp_dt_solicitudes.ced_bene = cxp_sol_dc.ced_bene ".
" AND cxp_dt_solicitudes.cod_pro = cxp_sol_dc.cod_pro ".
" GROUP BY codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,spg_cuenta,estcla,descripcion ".
" UNION ".
"SELECT codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,spg_cuenta,sum(spg_dt_cmp.monto) as monto,descripcion,estcla,2 as nota ".
" FROM spg_dt_cmp, cxp_dt_solicitudes, cxp_sol_dc ".
" WHERE spg_dt_cmp.codemp='".$ls_codemp."' ".
" AND spg_dt_cmp.procede='CXPNOD' ".
" AND spg_dt_cmp.comprobante=LPAD(cxp_sol_dc.numdc,15,'0') ".
" AND cxp_dt_solicitudes.numsol='".$as_numsol."' ".
" AND cxp_dt_solicitudes.codemp = cxp_sol_dc.codemp ".
" AND cxp_dt_solicitudes.numsol = cxp_sol_dc.numsol ".
" AND cxp_dt_solicitudes.numrecdoc = cxp_sol_dc.numrecdoc ".
" AND cxp_dt_solicitudes.codtipdoc = cxp_sol_dc.codtipdoc ".
" AND cxp_dt_solicitudes.ced_bene = cxp_sol_dc.ced_bene ".
" AND cxp_dt_solicitudes.cod_pro = cxp_sol_dc.cod_pro ".
" GROUP BY codestpro1,codestpro2,codestpro3,codestpro4,codestpro5,spg_cuenta,estcla,descripcion ";
}
$rs_dt_cxpspg= $this->io_sql->select($ls_sql);
//echo $ls_sql.'
';
if($rs_dt_cxpspg===false){
$this->is_msg_error="Error en consulta,".$this->fun->uf_convertirmsg($this->io_sql->message);
return false;
}
if (!$rs_dt_cxpspg->EOF&&!$rs_dt_spgchq->EOF) {
$i = 0;
$ld_totpre=0;
$aa_dt_scbspg= $rs_dt_spgchq->GetArray();
$aa_dt_cxpspg = $rs_dt_cxpspg->GetArray();
foreach($aa_dt_cxpspg as $dt_cxpspg){
$ls_codestpro1 = $dt_cxpspg["codestpro1"];
$ls_codestpro2 = $dt_cxpspg["codestpro2"];
$ls_codestpro3 = $dt_cxpspg["codestpro3"];
$ls_codestpro4 = $dt_cxpspg["codestpro4"];
$ls_codestpro5 = $dt_cxpspg["codestpro5"];
$ls_estcla = $dt_cxpspg["estcla"];
$ls_spg_cuenta = trim($dt_cxpspg["spg_cuenta"]);
$ldec_monto = $dt_cxpspg["monto"];
$li_nota = $dt_cxpspg["nota"];
switch ($li_nota) {
case 0:
$ld_totpre = $ld_totpre + doubleval($ldec_monto);
break;
case 1:
$ld_totpre = $ld_totpre - doubleval($ldec_monto);
break;
case 2:
$ld_totpre = $ld_totpre + doubleval($ldec_monto);
break;
}
foreach($aa_dt_scbspg as $dt_scbspg){
$ls_estpro1 = substr($dt_scbspg["codestpro"],0,25);
$ls_estpro2 = substr($dt_scbspg["codestpro"],25,25);
$ls_estpro3 = substr($dt_scbspg["codestpro"],50,25);
$ls_estpro4 = substr($dt_scbspg["codestpro"],75,25);
$ls_estpro5 = substr($dt_scbspg["codestpro"],100,25);
$ls_tipcla = $dt_scbspg["estcla"];
$ls_cuentaspg = trim($dt_scbspg["spg_cuenta"]);
$ls_descripcion = $dt_scbspg["descripcion"];
$ldec_montotmp = $dt_scbspg["monto"];
if(($ls_codestpro1==$ls_estpro1)&&($ls_codestpro2==$ls_estpro2)&&($ls_codestpro3==$ls_estpro3)&&($ls_codestpro4==$ls_estpro4)&&($ls_codestpro5==$ls_estpro5)&&($ls_spg_cuenta==$ls_cuentaspg)&&($ls_estcla==$ls_tipcla)){
$ldec_new_monto = doubleval($ldec_monto)-doubleval($ldec_montotmp);
$aa_dt_spg[$i]["codestpro1"]=$ls_codestpro1;
$aa_dt_spg[$i]["codestpro2"]=$ls_codestpro2;
$aa_dt_spg[$i]["codestpro3"]=$ls_codestpro3;
$aa_dt_spg[$i]["codestpro4"]=$ls_codestpro4;
$aa_dt_spg[$i]["codestpro5"]=$ls_codestpro5;
$aa_dt_spg[$i]["estcla"]=$ls_estcla;
$aa_dt_spg[$i]["spg_cuenta"]=$ls_spg_cuenta;
$aa_dt_spg[$i]["descripcion"]=$ls_descripcion;
$aa_dt_spg[$i]["monto"]=$ldec_new_monto;
$i++;
}
}
}
}
else{
return $rs_dt_cxpspg->GetArray();;
}
unset($aa_dt_cxpspg);
unset($aa_dt_scbspg);
return $aa_dt_spg;
}//Fin uf_buscar_dt_cxpspg.
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_obtener_recepciones_asociadas($as_numsol)
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_load_recepciones
// Access: public
// Argument: as_numsol // Número de solicitud
// Description: Función que busca las recepciones de documentos asociadas a una solicitud
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 29/04/2007 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
$lb_valido=true;
$ls_sql="SELECT cxp_dt_solicitudes.numrecdoc, cxp_rd.codrecdoc".
" FROM cxp_solicitudes,cxp_dt_solicitudes,cxp_rd ".
" WHERE cxp_dt_solicitudes.codemp='".$this->ls_codemp."' ".
" AND cxp_dt_solicitudes.numsol='".$as_numsol."'".
" AND cxp_dt_solicitudes.codemp=cxp_solicitudes.codemp".
" AND cxp_dt_solicitudes.numsol=cxp_solicitudes.numsol".
" AND cxp_dt_solicitudes.codemp=cxp_rd.codemp".
" AND cxp_dt_solicitudes.numrecdoc=cxp_rd.numrecdoc".
" AND cxp_dt_solicitudes.codtipdoc=cxp_rd.codtipdoc".
" AND cxp_dt_solicitudes.cod_pro=cxp_rd.cod_pro".
" AND cxp_dt_solicitudes.ced_bene=cxp_rd.ced_bene";
$rs_data=$this->io_sql->select($ls_sql);
if($rs_data===false)
{
$this->msg->message("CLASE->Solicitud MÉTODO->uf_load_recepciones ERROR->".$this->io_funciones->uf_convertirmsg($this->io_sql->message));
return false;
}
return $rs_data;
}// end function uf_load_recepciones
//-----------------------------------------------------------------------------------------------------------------------------------
function uf_load_retenciones_iva_cxp($as_codemp,$as_numsol)
{
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_load_retenciones_iva_cxp
// Access: public
// Argument: $as_codemp = Código de la Empresa.
// $as_numsol = Número de la Solicitud de Pago.
// Description: Función que extrae la sumatoria de las retenciones de IVA Cuentas Por Pagar asociadas
// a una Solicitud de Pago.
// Creado Por: Ing. Néstor Falcón.
// Modificado por: Ing. Jennifer Rivero
// Fecha Creación: 23/06/2008
// Fecha de Modificación:17/10/2008
////////////////////////////////////////////////////////////////////////////////////////////////////////
$li_i = 0;
$la_deducciones = array();
$ls_sql = "SELECT max(cxp_rd_deducciones.codded) as codded, max(sigesp_deducciones.dended) as dended,
max(cxp_rd_deducciones.sc_cuenta) as sc_cuenta, max(cxp_rd_deducciones.monobjret) as monobjret,
COALESCE(sum(cxp_rd_deducciones.monret),0) as montotret
FROM cxp_dt_solicitudes, cxp_solicitudes, cxp_rd_deducciones, cxp_rd, sigesp_deducciones
WHERE cxp_solicitudes.codemp = '".$as_codemp."'
AND cxp_solicitudes.numsol = '".$as_numsol."'
AND sigesp_deducciones.iva=1
AND sigesp_deducciones.islr=0
AND sigesp_deducciones.estretmun=0
AND sigesp_deducciones.otras=0
AND cxp_solicitudes.codemp=cxp_dt_solicitudes.codemp
AND cxp_solicitudes.numsol=cxp_dt_solicitudes.numsol
AND cxp_dt_solicitudes.codemp=cxp_rd.codemp
AND cxp_dt_solicitudes.numrecdoc=cxp_rd.numrecdoc
AND cxp_dt_solicitudes.codtipdoc=cxp_rd.codtipdoc
AND cxp_dt_solicitudes.ced_bene=cxp_rd.ced_bene
AND cxp_dt_solicitudes.cod_pro=cxp_rd.cod_pro
AND cxp_dt_solicitudes.codemp=cxp_rd_deducciones.codemp
AND cxp_dt_solicitudes.numrecdoc=cxp_rd_deducciones.numrecdoc
AND cxp_dt_solicitudes.codtipdoc=cxp_rd_deducciones.codtipdoc
AND cxp_dt_solicitudes.ced_bene=cxp_rd_deducciones.ced_bene
AND cxp_dt_solicitudes.cod_pro=cxp_rd_deducciones.cod_pro
AND cxp_rd.codemp=cxp_rd_deducciones.codemp
AND cxp_rd.numrecdoc=cxp_rd_deducciones.numrecdoc
AND cxp_rd.codtipdoc=cxp_rd_deducciones.codtipdoc
AND cxp_rd.ced_bene=cxp_rd_deducciones.ced_bene
AND cxp_rd.cod_pro=cxp_rd_deducciones.cod_pro
AND sigesp_deducciones.codemp=cxp_rd_deducciones.codemp
AND sigesp_deducciones.codded=cxp_rd_deducciones.codded
GROUP BY cxp_solicitudes.numsol";
$ls_sql = $ls_sql." UNION ".
"SELECT max(cxp_rd_deducciones.codded) as codded, max(sigesp_deducciones.dended) as dended,
max(cxp_rd_deducciones.sc_cuenta) as sc_cuenta, max(cxp_rd_deducciones.monobjret) as monobjret,
COALESCE(sum(cxp_rd_deducciones.monret),0) as montotret
FROM cxp_dt_solicitudes, cxp_solicitudes, cxp_rd_deducciones, cxp_rd, sigesp_deducciones
WHERE cxp_solicitudes.codemp = '".$as_codemp."'
AND cxp_solicitudes.numsol = '".$as_numsol."'
AND sigesp_deducciones.iva=0
AND sigesp_deducciones.islr=1
AND sigesp_deducciones.estretmun=0
AND sigesp_deducciones.otras=0
AND cxp_solicitudes.codemp=cxp_dt_solicitudes.codemp
AND cxp_solicitudes.numsol=cxp_dt_solicitudes.numsol
AND cxp_dt_solicitudes.codemp=cxp_rd.codemp
AND cxp_dt_solicitudes.numrecdoc=cxp_rd.numrecdoc
AND cxp_dt_solicitudes.codtipdoc=cxp_rd.codtipdoc
AND cxp_dt_solicitudes.ced_bene=cxp_rd.ced_bene
AND cxp_dt_solicitudes.cod_pro=cxp_rd.cod_pro
AND cxp_dt_solicitudes.codemp=cxp_rd_deducciones.codemp
AND cxp_dt_solicitudes.numrecdoc=cxp_rd_deducciones.numrecdoc
AND cxp_dt_solicitudes.codtipdoc=cxp_rd_deducciones.codtipdoc
AND cxp_dt_solicitudes.ced_bene=cxp_rd_deducciones.ced_bene
AND cxp_dt_solicitudes.cod_pro=cxp_rd_deducciones.cod_pro
AND cxp_rd.codemp=cxp_rd_deducciones.codemp
AND cxp_rd.numrecdoc=cxp_rd_deducciones.numrecdoc
AND cxp_rd.codtipdoc=cxp_rd_deducciones.codtipdoc
AND cxp_rd.ced_bene=cxp_rd_deducciones.ced_bene
AND cxp_rd.cod_pro=cxp_rd_deducciones.cod_pro
AND sigesp_deducciones.codemp=cxp_rd_deducciones.codemp
AND sigesp_deducciones.codded=cxp_rd_deducciones.codded
GROUP BY cxp_solicitudes.numsol";
$rs_data = $this->io_sql->select($ls_sql);
if ($rs_data===false)
{
$lb_valido = false;
$this->msg->message("CLASS->sigesp_scb_report.php;MÉTODO->uf_load_retenciones_iva_cxp;ERROR->".$this->fun->uf_convertirmsg($this->io_sql->message));
echo $this->io_sql->message;
}
else
{
$li_numrows = $this->io_sql->num_rows($rs_data);
if ($li_numrows>0)
{
while($row=$this->io_sql->fetch_row($rs_data))
{
$li_i++;
$la_deducciones["codded"][$li_i] = $row["codded"];
$la_deducciones["dended"][$li_i] = $row["dended"];
$la_deducciones["sc_cuenta"][$li_i] = $row["sc_cuenta"];
$la_deducciones["monobjret"][$li_i] = $row["monobjret"];
$la_deducciones["monret"][$li_i] = $row["montotret"];
}
}
}
return $la_deducciones;
}
//--------------------------------------------------------------------------------------------------------------------------------------
function uf_buscar_anticipos($cod_prov, $ced_bene, &$monsal)
{
//////////////////////////////////////////////////////////////////////////////
// Metodo: uf_buscar_anticipos
// Access: public
// Arguments as_codemp // Código de la Empresa.
// Returns: lb_valido.
// Description: Función que busca si posee pago de anticipos (Contabilizados)
// Elaborado Por: Ing. Jennifer Rivero
// Fecha de Creación: 06/10/2008 Fecha Última Actualización:
//////////////////////////////////////////////////////////////////////////////
$lb_valido=true;
$ls_sql= " SELECT scb_movbco_anticipo.codemp, scb_movbco_anticipo.codban, scb_movbco_anticipo.ctaban,
scb_movbco_anticipo.numdoc, scb_movbco_anticipo.codope, scb_movbco_anticipo.estmov,
scb_movbco_anticipo.codamo, scb_movbco_anticipo.monamo, scb_movbco_anticipo.monsal,
scb_movbco_anticipo.montotamo, scb_movbco_anticipo.sc_cuenta,
scb_movbco.cod_pro, scb_movbco.ced_bene
FROM scb_movbco_anticipo
JOIN scb_movbco ON (scb_movbco.codemp = scb_movbco_anticipo.codemp
AND scb_movbco.codban = scb_movbco_anticipo.codban
AND scb_movbco.ctaban = scb_movbco_anticipo.ctaban
AND scb_movbco.numdoc = scb_movbco_anticipo.numdoc
AND scb_movbco.codope = scb_movbco_anticipo.codope
AND scb_movbco.estmov = scb_movbco_anticipo.estmov)
WHERE scb_movbco_anticipo.codemp='".$this->ls_codemp."'
AND scb_movbco_anticipo.estmov='C'
AND scb_movbco.estant='1'
AND scb_movbco.cod_pro='".$cod_prov."'
AND scb_movbco.ced_bene='".$ced_bene."'
AND scb_movbco_anticipo.monsal>0 ";
$rs_data=$this->io_sql->select($ls_sql);
if ($rs_data===false)
{
$lb_valido=false;
$this->is_msg_error="Error en metodo uf_buscar_anticipos".$this->fun->uf_convertirmsg($this->SQL->message);
}
else
{
if($row=$this->io_sql->fetch_row($rs_data))
{
$monsal=$row["monsal"];
}
}
return $lb_valido;
}// fin de uf_buscar_anticipos
//---------------------------------------------------------------------------------------------------------------------------------------
//---------------------------------------------------------------------------------------------------------------------------------------
function uf_guardar_anticipos($codban, $ctaban, $numdoc, $codope, $estmov, $codamo, $sc_cuenta,
$ls_monamo, $ls_monsal)
{
//////////////////////////////////////////////////////////////////////////////
// Metodo: uf_guardar_anticipos
// Access: public
// Arguments
// Returns: lb_valido.
// Description: Función que amortiza el saldo del anticipo
// Elaborado Por: Ing. Jennifer Rivero
// Fecha de Creación: 07/10/2008 Fecha Última Actualización:
//////////////////////////////////////////////////////////////////////////////
$lb_valido=true;
$ls_sql= " UPDATE scb_movbco_anticipo ".
" SET monamo=".$ls_monamo.", ".
" monsal=".$ls_monsal." ".
" WHERE codemp='".$this->ls_codemp."'".
" AND codban='".$codban."'".
" AND ctaban='".$ctaban."'".
" AND numdoc='".$numdoc."'".
" AND codope='".$codope."'".
" AND estmov='".$estmov."'".
" AND codamo='".$codamo."'".
" AND sc_cuenta='".$sc_cuenta."'";
$rs_data=$this->io_sql->execute($ls_sql);
if ($rs_data===false)
{
$lb_valido=false;
$this->is_msg_error="Error en metodo uf_guardar_anticipos".$this->fun->uf_convertirmsg($this->SQL->message);
}
else
{
$lb_valido=true;
}
return $lb_valido;
}// uf_guardar_anticipos
//---------------------------------------------------------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------------------------------------------------------
function select_dt_contable($as_codban, $as_ctaban, $as_numdoc, $as_codope, $ae_estmov, $as_scg_cuenta, $as_debhab,
$as_codded,$as_documento,&$ldec_actual)
{
$lb_valido=true;
$ls_codemp=$this->ls_codemp;
$ls_sql="SELECT monto
FROM scb_movbco_scg
WHERE codemp='".$ls_codemp."'
AND codban='".$as_codban."'
AND ctaban='".$als_ctaban."'
AND numdoc='".$as_numdoc."'
AND codope='".$as_codope."'
AND estmov='".$as_estmov."'
AND scg_cuenta='".$as_scg_cuenta."'
AND debhab='".$as_debhab."'
AND codded='".$as_codded."'
AND documento='".$as_documento."'";
$rs_dt_scg=$this->io_sql->select($ls_sql);
if(($rs_dt_scg===false))
{
$this->is_msg_error="Error en select detalle contable ".$this->fun->uf_convertirmsg($this->io_sql->message);
$lb_valido=false;
}
else
{
if($row=$this->io_sql->fetch_row($rs_dt_scg))
{
$lb_valido=true;
$ldec_actual=$row["monto"];
}
else
{
$lb_valido=false;
$ldec_actual=0;
}
}
return $lb_valido;
}/// fin de select_dt_contable
//--------------------------------------------------------------------------------------------------------------------------------------
function uf_contable_anticipo($as_codban, $as_ctaban, $as_numdoc, $as_codope, $ae_estmov, $as_scg_cuenta, $as_debhab,
$as_codded,$as_documento,$as_desmov, $as_procede,$as_monto,$as_monobjret)
{
//////////////////////////////////////////////////////////////////////////////
// Metodo: uf_contable_anticipo
// Access: public
// Arguments
// Returns: lb_valido.
// Description: Función que inserta los asientos contables
// Elaborado Por: Ing. Jennifer Rivero
// Fecha de Creación: 07/10/2008 Fecha Última Actualización:
//////////////////////////////////////////////////////////////////////////////
$lb_valido=true;
$ls_codemp=$this->ls_codemp;
$ldec_actual=0;
$as_monto=str_replace(",",".",$as_monto);
$as_monobjret=str_replace(",",".",$as_monobjret);
$this->select_dt_contable($as_codban, $as_ctaban, $as_numdoc, $as_codope, $ae_estmov, $as_scg_cuenta, $as_debhab,
$as_codded,$as_documento,$ldec_actual);
if ($ldec_actual==0)
{
$ls_sql= " INSERT INTO scb_movbco_scg(codemp, codban, ctaban, numdoc, codope, estmov, scg_cuenta, debhab, ".
" codded, documento, desmov, procede_doc, monto, monobjret) ".
" VALUES ('".$ls_codemp."','".$as_codban."','".$as_ctaban."','".$as_numdoc."','".$as_codope."', ".
" '".$ae_estmov."','".$as_scg_cuenta."','".$as_debhab."','".$as_codded."','".$as_documento."', ".
" '".$as_desmov."','".$as_procede."',".$as_monto.", ".$as_monobjret.");";
$rs_data=$this->io_sql->execute($ls_sql);
if ($rs_data===false)
{
$lb_valido=false;
$this->is_msg_error="Error en metodo uf_contable_anticipo".$this->fun->uf_convertirmsg($this->SQL->message);
}
else
{
$lb_valido=true;
}
}// fin del if
return $lb_valido;
}// fin uf_contable_anticipo()
//---------------------------------------------------------------------------------------------------------------------------------------
////////////////////////////////////////////////AGREGADO POR OFIMATICA DE VENEZUELA EL 01-06-2011/////////////////////////////////////////////////////////////
function uf_verificar_sol_repcajachica($as_codemp,$as_numsol)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////
// Metodo: uf_verificar_sol_repcajachica
// Access: public
// Arguments
// Returns: lb_valido.
// Description: Función que verifica si una solicitud corresponde a una reposición de caja chica
// Elaborado Por: OFIMATICA DE VENEZUELA,C.A. - Ing. Nelson Barraez
// Fecha de Creación: 01-06-2011 Fecha Última Actualización:
//////////////////////////////////////////////////////////////////////////////////////////////////////////
$ls_sql="SELECT repcajchi
FROM cxp_solicitudes
WHERE codemp='".$as_codemp."'
AND numsol='".$as_numsol."'";
$rs_dt_scg=$this->io_sql->select($ls_sql);
if(($rs_dt_scg===false))
{
$this->is_msg_error="Error en uf_verificar_sol_repcajachica ".$this->fun->uf_convertirmsg($this->io_sql->message);
$lb_valido=false;
}
else
{
if($row=$this->io_sql->fetch_row($rs_dt_scg))
{
$lb_valido=$row["repcajchi"];
}
else
{
$lb_valido=false;
}
}
return $lb_valido;
}/// fin uf_verificar_sol_repcajachica
/////////////////////////////////////////FIN BLOQUE AGREGADO POR OFIMATICA DE VENEZUELA/////////////////////////////////////////////////
function uf_buscar_procede_solicitud($as_codemp,$as_numsol)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////
// Metodo: uf_buscar_procede_solicitud
// Access: public
// Arguments
// Returns: lb_valido.
// Description: Función que busca la procedencia de las RD asociadas a la Solicitud de Pago
// Elaborado Por: OFIMATICA DE VENEZUELA,C.A. - Lcdo. Anibal Barraez Guerra
// Fecha de Creación: 27-04-2012 Fecha Última Actualización:
//////////////////////////////////////////////////////////////////////////////////////////////////////////
$ls_sql="SELECT cxp_rd.procede
FROM cxp_dt_solicitudes, cxp_rd
WHERE cxp_dt_solicitudes.codemp='".$as_codemp."'
AND cxp_dt_solicitudes.numsol='".$as_numsol."'
AND cxp_dt_solicitudes.codemp=cxp_rd.codemp
AND cxp_dt_solicitudes.numrecdoc=cxp_rd.numrecdoc
AND cxp_dt_solicitudes.codtipdoc=cxp_rd.codtipdoc
AND cxp_dt_solicitudes.cod_pro=cxp_rd.cod_pro
AND cxp_dt_solicitudes.ced_bene=cxp_rd.ced_bene";
$rs_dt_scg=$this->io_sql->select($ls_sql);
if(($rs_dt_scg===false))
{
$this->is_msg_error="Error en uf_buscar_procede_solicitud ".$this->fun->uf_convertirmsg($this->io_sql->message);
$lb_valido=false;
}
else
{
if($row=$this->io_sql->fetch_row($rs_dt_scg))
{
$lb_valido=$row["procede"];
}
else
{
$lb_valido=false;
}
}
return $lb_valido;
}/// fin uf_buscar_procede_solicitud
function uf_verificar_cuenta_cajachicaext($as_codemp,$as_codban, $as_ctabanco)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////
// Metodo: uf_verificar_cuenta_cajachicaext
// Access: public
// Arguments
// Returns: lb_valido.
// Description: Función que verifica si la cuenta seleccionada para la cancelacion esta marcada como caja chica exterior
// Elaborado Por: OFIMATICA DE VENEZUELA,C.A. - Lcdo. Anibal Barraez Guerra
// Fecha de Creación: 27-04-2012 Fecha Última Actualización:
//////////////////////////////////////////////////////////////////////////////////////////////////////////
$ls_sql="SELECT cajachicaext
FROM scb_ctabanco
WHERE scb_ctabanco.codemp='".$as_codemp."'
AND scb_ctabanco.codban='".$as_codban."'
AND scb_ctabanco.ctaban='".$as_ctabanco."' ";
$rs_dt_scg=$this->io_sql->select($ls_sql);
if(($rs_dt_scg===false))
{
$this->is_msg_error="Error en uf_verificar_cuenta_cajachicaext ".$this->fun->uf_convertirmsg($this->io_sql->message);
$lb_valido=false;
}
else
{
if($row=$this->io_sql->fetch_row($rs_dt_scg))
{
$lb_valido=$row["cajachicaext"];
}
else
{
$lb_valido=false;
}
}
return $lb_valido;
}/// fin uf_verificar_cuenta_cajachicaext
function uf_obtener_monto_imputacion($as_codemp,$as_numsol,$as_cuenta)
{
//////////////////////////////////////////////////////////////////////////////////////////////////////////
// Metodo: uf_obtener_monto_imputacion
// Access: public
// Arguments
// Returns: lb_valido.
// Description: Función que verifica si la cuenta seleccionada para la cancelacion esta marcada como caja chica exterior
// Elaborado Por: OFIMATICA DE VENEZUELA,C.A. - Lcdo. Anibal Barraez Guerra
// Fecha de Creación: 27-04-2012 Fecha Última Actualización:
//////////////////////////////////////////////////////////////////////////////////////////////////////////
$ls_sql="SELECT SUM(cxp_rd_spg.monto) AS monto
FROM cxp_dt_solicitudes, cxp_rd_spg
WHERE cxp_dt_solicitudes.codemp='".$as_codemp."'
AND cxp_dt_solicitudes.numsol='".$as_numsol."'
AND cxp_dt_solicitudes.codemp=cxp_rd_spg.codemp
AND cxp_dt_solicitudes.numrecdoc=cxp_rd_spg.numrecdoc
AND cxp_dt_solicitudes.codtipdoc=cxp_rd_spg.codtipdoc
AND cxp_dt_solicitudes.cod_pro=cxp_rd_spg.cod_pro
AND cxp_dt_solicitudes.ced_bene=cxp_rd_spg.ced_bene
AND cxp_rd_spg.spg_cuenta='".$as_cuenta."' ";
$rs_dt_scg=$this->io_sql->select($ls_sql);
if(($rs_dt_scg===false))
{
$this->is_msg_error="Error en uf_obtener_monto_imputacion ".$this->fun->uf_convertirmsg($this->io_sql->message);
$lb_valido=false;
}
else
{
if($row=$this->io_sql->fetch_row($rs_dt_scg))
{
$lb_valido=$row["monto"];
}
else
{
$lb_valido=false;
}
}
return $lb_valido;
}/// fin uf_obtener_monto_imputacion
}// fin de la clase
?>