Documento			Fecha	Desde
Tipo	Proveedor Beneficiario Ninguno			Hasta
				Estatus	>Ninguno >No Contabilizado >Contabilizado >No Contabilizable >Anulado >Original
	Buscar

 

 

 

"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; if($ls_operacion=="BUSCAR") { $ls_sql="SELECT scb_movbco.*, (SELECT MAX(codfuefin) ". " FROM scb_movbco_fuefinanciamiento ". " WHERE codemp = scb_movbco.codemp ". " AND codban = scb_movbco.codban ". " AND ctaban = scb_movbco.ctaban ". " AND numdoc = scb_movbco.numdoc ". " AND codope = scb_movbco.codope ". " AND estmov = scb_movbco.estmov) AS fuentefinanciamiento ". " FROM scb_movbco ". " WHERE codemp='".$as_codemp."' AND numdoc like '".$ls_documento."' "; if((($ls_fecdesde!="")&&($ls_fecdesde!="01/01/1900"))&&(($ls_fechasta!="")&&($ls_fechasta!="01/01/1900"))) { $ls_fecdesde=$fun->uf_convertirdatetobd($ls_fecdesde); $ls_fechasta=$fun->uf_convertirdatetobd($ls_fechasta); $ls_sql=$ls_sql." AND fecmov>='".$ls_fecdesde."' AND fecmov<='".$ls_fechasta."'"; } if($ls_codope!="N") { $ls_sql=$ls_sql." AND codope ='".$ls_codope."'"; } 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."'"; } $ls_sql=$ls_sql." ORDER BY fecmov ASC,numdoc ASC"; $rs_mov=$SQL_mov->select($ls_sql); $data=$rs_mov; 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]; $li_estserext = $data["estserext"][$z]; $ls_codope = $data["codope"][$z]; $ls_fecha = $data["fecmov"][$z]; $ls_fecha=$fun->uf_convertirfecmostrar($ls_fecha); $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]; //Busco los datos del Proveedor o Beneficiario $ls_tipo_destino=$data["tipo_destino"][$z]; $ls_prov=$data["cod_pro"][$z]; $ls_bene=$data["ced_bene"][$z]; $ls_provbene=$data["nomproben"][$z]; $ls_codbansig=$data["codban"][$z];//Banco con el que se realizo el movimiento $rs_banco=uf_select_rowdata($SQL,"SELECT * FROM scb_banco WHERE codemp='".$as_codemp."' AND codban='".$ls_codbansig."'"); $ls_ctabansig=$data["ctaban"][$z];//Cuenta con que se realizo el movimiento if(!empty($rs_banco)) { $ls_nomban=$rs_banco["nomban"]; } else { $ls_nomban="---"; } $rs_ctabanco=uf_select_rowdata($SQL,"SELECT * FROM scb_ctabanco WHERE codemp='".$as_codemp."' AND codban='".$ls_codbansig."' AND ctaban='".$ls_ctabansig."'"); $ls_dencta=$rs_ctabanco["dencta"]; $ls_cuenta_scg=$rs_ctabanco["sc_cuenta"]; $ls_estmov=$data["estmov"][$z]; $li_cobing=$data["estcobing"][$z]; $li_estint=$data["estmovint"][$z]; $ls_codconmov=$data["codconmov"][$z]; $li_estimpche=$data["estimpche"][$z]; $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 { $ls_codban=""; $ls_ctaban=""; $ls_nomban=""; $ls_codbanaut=""; $ls_ctabanaut=""; $ls_nombanaut=""; $ls_nombenaut=""; $ls_rifaut=""; } print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; } $SQL_mov->free_result($rs_mov); } else { $io_msg->message("No se han creado Ordenes de Pago Directas"); } } print "

"; print "

Documento

Operación

Fecha

Concepto

Monto

Monto Obj.Ret.

Monto Ret.

Procede

Voucher

Proveedor

Beneficiario

Nombre Prov.\Benef.

Banco

Nombre Banco

Cuenta

Denominación Cuenta

Estatus

Carta Orden

".$ls_documento."

".$ls_codope."

".$ls_fecha."

".$ls_descripcion."

".$ldec_monto."

".$ldec_monobjret."

".$ldec_monret."

".$ls_procedencia."

".$ls_voucher."

".$ls_prov."

".$ls_bene."

".$ls_provbene."

".$ls_codban."

".$ls_nomban."

".$ls_ctaban."

".$ls_dencta."

".$ls_estmov."

".$ls_numcarord."

"; ?>