io_keygen= new sigesp_c_generar_consecutivo(); $this->io_include=new sigesp_include(); $io_connect=$this->io_include->uf_conectar(); $this->io_dataprov= new class_datastore(); $this->io_datadocu= new class_datastore(); $this->io_datavali= new class_datastore(); $this->io_seguridad= new sigesp_c_seguridad(); $this->io_sql= new class_sql($io_connect); $this->io_function= new class_funciones(); $this->io_msg= new class_mensajes(); $this->io_fec= new class_fecha(); $this->la_empresa= $_SESSION["la_empresa"]; $this->ls_codusu= $_SESSION["la_logusr"]; $this->ls_basdatcmp=$_SESSION["la_empresa"]["basdatcmp"]; require_once($ruta."shared/class_folder/sigesp_conexiones.php"); $this->io_conexiones=new conexiones(); if($propiedades['habilitar_json_lib']){ require_once($ruta.'shared/class_folder/JSON.php'); $this->json = new JSON(); } if($this->ls_basdatcmp!="") { $this->io_include->uf_obtener_parametros_conexion($as_path,$this->ls_basdatcmp,$as_hostname,$as_login,$as_password,$as_gestor); if($as_hostname!="") { $this->io_keygen->io_conexion=$this->io_include->uf_conectar_otra_bd($as_hostname, $as_login, $as_password,$this->ls_basdatcmp,$as_gestor); $this->io_keygen->io_sql=new class_sql($this->io_keygen->io_conexion); $io_connectaux=$this->io_include->uf_conectar_otra_bd($as_hostname, $as_login, $as_password,$this->ls_basdatcmp,$as_gestor); $this->io_sqlaux=new class_sql($io_connectaux); } else { $this->io_msg->message("Esta mal configurada la BD integradora"); print ""; } } // require_once("../shared/class_folder/sigesp_c_reconvertir_monedabsf.php"); // $this->io_rcbsf= new sigesp_c_reconvertir_monedabsf(); // $this->li_candeccon=$_SESSION["la_empresa"]["candeccon"]; // $this->li_tipconmon=$_SESSION["la_empresa"]["tipconmon"]; // $this->li_redconmon=$_SESSION["la_empresa"]["redconmon"]; $this->ls_codemp=$_SESSION["la_empresa"]["codemp"]; } /******************************************************************************************************************/ /*********************************** FUNCIONES DE BUSQUEDA ************************************************/ /******************************************************************************************************************/ function uf_get_provbene($as_mes,$as_agno,$as_probendesde,$as_probenhasta,$as_tipo,$as_tiporet,&$aa_sujret) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_get_provbene // Access: public // Argument: $as_mes // Mes | $as_agno // Año // $as_probendesde // Codigo de Proveedor o Benficiario | $as_probenhasta // Codigo de Proveedor o Benficiario // $as_tipo // Indica si se trabaja con proveedores o beneficiarios // $as_tiporet // Indica el tipo de retencion // $aa_sujret // arreglo con el resultado de la busqueda // Description: Función que genera una lista con proveedores o beneficiarios con posibilidad de tener movimientos // que ameriten la generacion de un comprobante de retencion // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 14/09/2007 ////////////////////////////////////////////////////////////////////////////// $ld_fecdesde= $this->io_function->uf_convertirdatetobd("01/".$as_mes."/".$as_agno); $ld_hasta = $this->io_fec->uf_last_day($as_mes,$as_agno); $ld_fechasta= $this->io_function->uf_convertirdatetobd($ld_hasta); $lb_valido = true; if($as_tiporet=="I") { $ls_sqlaux = ""; if (!empty($as_probendesde) && !empty($as_probenhasta)) { $ls_sqlaux = "AND (RD.cod_pro BETWEEN '".$as_probendesde."' AND '".$as_probenhasta."')"; } if($as_tipo=='P') { $ls_sql = "SELECT RD.cod_pro,MAX(RDD.codded) AS codded,MAX(RDD.numrecdoc) AS numrecdoc,MAX(PRO.nompro) AS nompro, MAX(PRO.dirpro) AS dirpro,MAX(PRO.rifpro) AS rifpro,MAX(RD.codproalt) as codproalt FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,rpc_proveedor PRO, cxp_dt_solicitudes DS,cxp_solicitudes SO WHERE SD.codemp='".$this->la_empresa["codemp"]."' AND SD.iva=1 $ls_sqlaux AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."') AND RD.estprodoc='C' AND RDD.estcmp='0' AND SD.codemp=RDD.codemp AND SD.codemp=RD.codemp AND SD.codemp=PRO.codemp AND SD.codemp=DS.codemp AND SD.codemp=SO.codemp AND SD.codded=RDD.codded AND RDD.numrecdoc=RD.numrecdoc AND RD.cod_pro=PRO.cod_pro AND RDD.cod_pro=RD.cod_pro AND RDD.codtipdoc=RD.codtipdoc AND RD.numrecdoc=DS.numrecdoc AND RD.cod_pro=DS.cod_pro AND DS.numsol=SO.numsol GROUP BY RD.cod_pro,RD.codproalt"; } else { $ls_sqlaux = ""; if (!empty($as_probendesde) && !empty($as_probenhasta)) { $ls_sqlaux = "AND (RD.ced_bene BETWEEN '".$as_probendesde."' AND '".$as_probenhasta."')"; } if (strtoupper($_SESSION["ls_gestor"])==strtoupper("mysqlt")){ $ls_parametro="CONCAT(BEN.nombene,BEN.apebene) AS nompro"; } elseif(strtoupper($_SESSION["ls_gestor"])==strtoupper("postgres")){ $ls_parametro="(MAX(BEN.nombene)||MAX(BEN.apebene)) AS nompro"; } $ls_sql = "SELECT RD.ced_bene as cod_pro,MAX(RDD.codded) AS codded,MAX(RDD.numrecdoc) AS numrecdoc,$ls_parametro, MAX(BEN.dirbene) as dirpro,MAX(BEN.rifben) as rifpro,RD.codproalt FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,rpc_beneficiario BEN,cxp_dt_solicitudes DS, cxp_solicitudes SO WHERE SD.codemp='".$this->la_empresa["codemp"]."' AND SD.iva=1 AND RD.estprodoc='C' $ls_sqlaux AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."') AND RDD.estcmp='0' AND SD.codemp=RDD.codemp AND SD.codemp=RD.codemp AND SD.codemp=BEN.codemp AND SD.codemp=DS.codemp AND SD.codemp=SO.codemp AND SD.codded=RDD.codded AND RDD.numrecdoc=RD.numrecdoc AND RD.ced_bene=BEN.ced_bene AND RDD.ced_bene=RD.ced_bene AND RDD.codtipdoc=RD.codtipdoc AND RD.numrecdoc=DS.numrecdoc AND RD.ced_bene=DS.ced_bene AND DS.numsol=SO.numsol GROUP BY RD.ced_bene,RD.codproalt"; } } elseif($as_tiporet=="M") { if($as_tipo=='P') { $ls_sql = " SELECT RD.cod_pro,MAX(RDD.codded) AS codded,MAX(RDD.numrecdoc) AS numrecdoc,". " MAX(PRO.nompro) AS nompro,MAX(PRO.dirpro) AS dirpro,MAX(PRO.rifpro) AS rifpro,RD.codproalt". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,rpc_proveedor PRO ,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE (SD.codemp='".$this->la_empresa["codemp"]."') AND (SD.codemp=RDD.codemp) AND (SD.codemp=RD.codemp)". " AND (SD.codemp=PRO.codemp) AND (SD.codemp=DS.codemp) AND (SD.codemp=SO.codemp)". " AND (SD.estretmun=1) AND (SD.codded=RDD.codded) AND (RDD.numrecdoc=RD.numrecdoc) AND RDD.estcmp='0' AND". " (RD.cod_pro BETWEEN '".$as_probendesde."' AND '".$as_probenhasta."') AND". " (RD.cod_pro=PRO.cod_pro) AND (RDD.cod_pro=RD.cod_pro) AND (RDD.codtipdoc=RD.codtipdoc)". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."') AND (RD.estprodoc='C') AND". " (RD.numrecdoc=DS.numrecdoc) AND (RD.cod_pro=DS.cod_pro) AND (DS.numsol=SO.numsol)". " GROUP BY RD.cod_pro,RD.codproalt"; } else { if (strtoupper($_SESSION["ls_gestor"])==strtoupper("mysqlt")){ $ls_parametro="CONCAT(BEN.nombene,BEN.apebene) AS nompro"; } elseif(strtoupper($_SESSION["ls_gestor"])==strtoupper("postgres")){ $ls_parametro="(MAX(BEN.nombene) ||MAX(BEN.apebene)) AS nompro"; } $ls_sql = " SELECT RD.ced_bene as cod_pro,MAX(RDD.codded) AS codded,MAX(RDD.numrecdoc)". " AS numrecdoc,".$ls_parametro.",MAX(BEN.dirbene) as dirpro,MAX(BEN.rifben) as rifpro,RD.codproalt". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,rpc_beneficiario BEN". " ,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE (SD.codemp='".$this->la_empresa["codemp"]."') AND (SD.codemp=RDD.codemp) AND RDD.estcmp='0' AND". " (SD.codemp=RD.codemp) AND (SD.codemp=BEN.codemp) AND (SD.codemp=DS.codemp) AND (SD.codemp=SO.codemp)". " AND (SD.estretmun=1) AND (SD.codded=RDD.codded) AND (RDD.numrecdoc=RD.numrecdoc) AND". " (RD.ced_bene BETWEEN '".$as_probendesde."' AND '".$as_probenhasta."') AND". " (RD.ced_bene=BEN.ced_bene) AND (RDD.ced_bene=RD.ced_bene) AND (RDD.codtipdoc=RD.codtipdoc)". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."') AND (RD.estprodoc='C') AND". " (RD.numrecdoc=DS.numrecdoc) AND (RD.ced_bene=DS.ced_bene) AND (DS.numsol=SO.numsol)". " GROUP BY RD.ced_bene,RD.codproalt"; } } elseif($as_tiporet=="A") { if($as_tipo=='P') { $ls_sql = "SELECT RD.cod_pro,MAX(RDD.codded) AS codded,MAX(RDD.numrecdoc) AS numrecdoc,". " MAX(PRO.nompro) AS nompro,MAX(PRO.dirpro) AS dirpro,MAX(PRO.rifpro) AS rifpro,RD.codproalt". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,rpc_proveedor PRO,". " cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp". " AND SD.codemp=RD.codemp". " AND SD.codemp=PRO.codemp". " AND SD.codemp=DS.codemp". " AND SD.codemp=SO.codemp". " AND SD.retaposol=1". " AND SD.codded=RDD.codded". " AND RDD.numrecdoc=RD.numrecdoc". " AND (RD.cod_pro BETWEEN '".$as_probendesde."' AND '".$as_probenhasta."')". " AND RDD.estcmp='0'". " AND RD.cod_pro=PRO.cod_pro". " AND RDD.cod_pro=RD.cod_pro". " AND RDD.codtipdoc=RD.codtipdoc". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND RD.estprodoc='C'". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.cod_pro=DS.cod_pro". " AND DS.numsol=SO.numsol". " GROUP BY RD.cod_pro,RD.codproalt"; } else { if (strtoupper($_SESSION["ls_gestor"])==strtoupper("mysqlt")){ $ls_parametro="CONCAT(BEN.nombene,BEN.apebene) AS nompro"; } elseif(strtoupper($_SESSION["ls_gestor"])==strtoupper("postgres")){ $ls_parametro="(MAX(BEN.nombene) ||MAX(BEN.apebene)) AS nompro"; } $ls_sql ="SELECT RD.ced_bene as cod_pro,MAX(RDD.codded) AS codded,MAX(RDD.numrecdoc)". " AS numrecdoc,".$ls_parametro.",MAX(BEN.dirbene) as dirpro,MAX(BEN.rifben) as rifpro,RD.codproalt". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,rpc_beneficiario BEN,". " cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp ". " AND SD.codemp=RD.codemp". " AND SD.codemp=BEN.codemp". " AND SD.codemp=DS.codemp". " AND SD.codemp=SO.codemp". " AND SD.retaposol=1". " AND RDD.estcmp='0'". " AND SD.codded=RDD.codded". " AND RDD.numrecdoc=RD.numrecdoc". " AND (RD.ced_bene BETWEEN '".$as_probendesde."' AND '".$as_probenhasta."') ". " AND RD.ced_bene=BEN.ced_bene". " AND RDD.ced_bene=RD.ced_bene". " AND RDD.codtipdoc=RD.codtipdoc". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND (RD.estprodoc='C') ". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.ced_bene=DS.ced_bene". " AND DS.numsol=SO.numsol". " GROUP BY RD.ced_bene,RD.codproalt"; } } elseif($as_tiporet=="1") { if($as_tipo=='P') { $ls_sql = "SELECT RD.cod_pro,MAX(RDD.codded) AS codded,MAX(RDD.numrecdoc) AS numrecdoc,". " MAX(PRO.nompro) AS nompro,MAX(PRO.dirpro) AS dirpro,MAX(PRO.rifpro) AS rifpro,RD.codproalt". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,rpc_proveedor PRO,". " cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp". " AND SD.codemp=RD.codemp". " AND SD.codemp=PRO.codemp". " AND SD.codemp=DS.codemp". " AND SD.codemp=SO.codemp". " AND SD.estretmil='1'". " AND RDD.estcmp='0'". " AND SD.codded=RDD.codded". " AND RDD.numrecdoc=RD.numrecdoc". " AND (RD.cod_pro BETWEEN '".$as_probendesde."' AND '".$as_probenhasta."')". " AND RD.cod_pro=PRO.cod_pro". " AND RDD.cod_pro=RD.cod_pro". " AND RDD.codtipdoc=RD.codtipdoc". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND RD.estprodoc='C'". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.cod_pro=DS.cod_pro". " AND DS.numsol=SO.numsol". " GROUP BY RD.cod_pro,RD.codproalt"; } else { if (strtoupper($_SESSION["ls_gestor"])==strtoupper("mysqlt")){ $ls_parametro="CONCAT(BEN.nombene,BEN.apebene) AS nompro"; } elseif(strtoupper($_SESSION["ls_gestor"])==strtoupper("postgres")){ $ls_parametro="(MAX(BEN.nombene) ||MAX(BEN.apebene)) AS nompro"; } $ls_sql ="SELECT RD.ced_bene as cod_pro,MAX(RDD.codded) AS codded,MAX(RDD.numrecdoc)". " AS numrecdoc,".$ls_parametro.",MAX(BEN.dirbene) as dirpro,MAX(BEN.rifben) as rifpro,RD.codproalt". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,rpc_beneficiario BEN,". " cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp ". " AND SD.codemp=RD.codemp". " AND SD.codemp=BEN.codemp". " AND SD.codemp=DS.codemp". " AND SD.codemp=SO.codemp". " AND SD.estretmil='1'". " AND RDD.estcmp='0'". " AND SD.codded=RDD.codded". " AND RDD.numrecdoc=RD.numrecdoc". " AND (RD.ced_bene BETWEEN '".$as_probendesde."' AND '".$as_probenhasta."') ". " AND RD.ced_bene=BEN.ced_bene". " AND RDD.ced_bene=RD.ced_bene". " AND RDD.codtipdoc=RD.codtipdoc". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND (RD.estprodoc='C') ". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.ced_bene=DS.ced_bene". " AND DS.numsol=SO.numsol". " GROUP BY RD.ced_bene,RD.codproalt"; } } elseif($as_tiporet=="R") { if($as_tipo=='P') { $ls_sql = "SELECT RD.cod_pro,MAX(RDD.codded) AS codded,MAX(RDD.numrecdoc) AS numrecdoc,". " MAX(PRO.nompro) AS nompro,MAX(PRO.dirpro) AS dirpro,MAX(PRO.rifpro) AS rifpro,RD.codproalt". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,rpc_proveedor PRO,". " cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp". " AND SD.codemp=RD.codemp". " AND SD.codemp=PRO.codemp". " AND SD.codemp=DS.codemp". " AND SD.codemp=SO.codemp". " AND SD.islr=1". " AND RDD.estcmp='0'". " AND SD.codded=RDD.codded". " AND RDD.numrecdoc=RD.numrecdoc". " AND (RD.cod_pro BETWEEN '".$as_probendesde."' AND '".$as_probenhasta."')". " AND RD.cod_pro=PRO.cod_pro". " AND RDD.cod_pro=RD.cod_pro". " AND RDD.codtipdoc=RD.codtipdoc". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND RD.estprodoc='C'". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.cod_pro=DS.cod_pro". " AND DS.numsol=SO.numsol". " GROUP BY RD.cod_pro,RD.codproalt"; } else { if (strtoupper($_SESSION["ls_gestor"])==strtoupper("mysqlt")){ $ls_parametro="CONCAT(BEN.nombene,BEN.apebene) AS nompro"; } elseif(strtoupper($_SESSION["ls_gestor"])==strtoupper("postgres")){ $ls_parametro="(MAX(BEN.nombene) ||MAX(BEN.apebene)) AS nompro"; } $ls_sql ="SELECT RD.ced_bene as cod_pro,MAX(RDD.codded) AS codded,MAX(RDD.numrecdoc)". " AS numrecdoc,".$ls_parametro.",MAX(BEN.dirbene) as dirpro,MAX(BEN.rifben) as rifpro,RD.codproalt". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,rpc_beneficiario BEN,". " cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp ". " AND SD.codemp=RD.codemp". " AND SD.codemp=BEN.codemp". " AND SD.codemp=DS.codemp". " AND SD.codemp=SO.codemp". " AND SD.islr=1". " AND RDD.estcmp='0'". " AND SD.codded=RDD.codded". " AND RDD.numrecdoc=RD.numrecdoc". " AND (RD.ced_bene BETWEEN '".$as_probendesde."' AND '".$as_probenhasta."') ". " AND RD.ced_bene=BEN.ced_bene". " AND RDD.ced_bene=RD.ced_bene". " AND RDD.codtipdoc=RD.codtipdoc". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND (RD.estprodoc='C') ". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.ced_bene=DS.ced_bene". " AND DS.numsol=SO.numsol". " GROUP BY RD.ced_bene,RD.codproalt"; } } $rs_result=$this->io_sql->select($ls_sql); //echo $ls_sql; //exit(); if($rs_result===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_get_nrocomprobante ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); $lb_valido=false; } else { if($row=$this->io_sql->fetch_row($rs_result)) { $aa_sujret=$this->io_sql->obtener_datos($rs_result); } $this->io_sql->free_result($rs_result); } return $lb_valido; }//FIN DE LA FUNCION uf_get_provbene function uf_get_documento($as_mes,$as_agno,$as_codprobene,$as_tipo,$as_tiporet,$as_codproalt,&$as_RD) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_get_documento // Access: public // Argument: $as_mes // Mes | $as_agno // Año // $as_codpro // Codigo del proveedor o beneficiaro // $as_tipo // Indica si se trabaja con proveedores o beneficiarios | $as_tiporet // Indica el tipo de retencion // $aa_sujret // arreglo con el resultado de la busqueda // Description: Función que genera una lista con proveedores o beneficiarios con posibilidad de tener movimientos // que ameriten la generacion de un comprobante de retencion // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $ld_fecdesde= $this->io_function->uf_convertirdatetobd("01/".$as_mes."/".$as_agno); $ld_hasta = $this->io_fec->uf_last_day($as_mes,$as_agno); $ld_fechasta= $this->io_function->uf_convertirdatetobd($ld_hasta); $lb_valido = true; if (strtoupper($_SESSION["ls_gestor"])==strtoupper("mysqlt")) { if($as_tiporet=='I') { $ls_id="CONCAT(RD.numrecdoc,RDC.porcar)"; } else { $ls_id="CONCAT(RD.numrecdoc,RDD.porded)"; } } elseif(strtoupper($_SESSION["ls_gestor"])==strtoupper("postgres")) { if($as_tiporet=='I') { $ls_id="RD.numrecdoc || RDC.porcar"; } else { $ls_id="RD.numrecdoc || RDD.porded"; } } $ls_joinalt=""; if($as_codproalt!="") $ls_joinalt="AND RD.codproalt='".$as_codproalt."'"; if($as_tiporet=='I') { if($as_tipo=='P') { $ls_sql = " SELECT ".$ls_id." as id,RD.numrecdoc,RD.fecemidoc,SUM(RDC.monobjret) AS basimpiva,MAX(RD.codproalt) as codproalt,". " MAX(RD.montotdoc+RD.mondeddoc) AS totconiva,SUM(RDC.monobjret) AS monobjret,MAX(RDC.porcar) AS porcar,SUM(RDC.monret) AS totiva,". " MAX(RDD.monret) AS ivaret,DS.numsol as numsop,RDD.codded,MAX(RDD.sc_cuenta) as cuenta, ". " RD.numref, MAX(RD.codtipdoc) as codtipdoc ,MAX(RD.cod_pro) as cod_pro, MAX(RD.ced_bene) as ced_bene,MAX(RD.codemp)". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,cxp_rd_cargos RDC". " ,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE (SD.codemp='".$this->la_empresa["codemp"]."') AND (SD.codemp=RDD.codemp) AND". " (SD.codemp=RD.codemp) AND (SD.codemp=RDC.codemp) AND (SD.codemp=DS.codemp) AND". " (SD.codemp=SO.codemp) AND (SD.iva=1) AND (SD.codded=RDD.codded) AND (RDD.estcmp='0')". " AND (RDD.numrecdoc=RD.numrecdoc) AND (RDC.numrecdoc=RD.numrecdoc ) AND (RDD.codtipdoc=RD.codtipdoc)". " AND (RDD.cod_pro='".$as_codprobene."') AND (RDD.cod_pro=RD.cod_pro) AND (RDC.cod_pro=RD.cod_pro)". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')AND (RD.estprodoc='C')". $ls_joinalt." AND". " (RD.numrecdoc=DS.numrecdoc) AND (RD.cod_pro=DS.cod_pro) AND (DS.numsol=SO.numsol) AND (SO.estprosol<>'A') ". " AND DS.codemp=RD.codemp". " AND DS.numrecdoc=RD.numrecdoc". " AND DS.codtipdoc=RD.codtipdoc". " AND DS.cod_pro=RD.cod_pro". " AND DS.ced_bene=RD.ced_bene". " GROUP by id,RD.numrecdoc,RD.fecemidoc,numsop,RDD.codded,RD.numref"; } else { $ls_sql = " SELECT ".$ls_id." as id,RD.numrecdoc,RD.fecemidoc,SUM(RDC.monobjret) AS basimpiva,MAX(RD.codproalt) as codproalt,". " MAX(RD.montotdoc+RD.mondeddoc) AS totconiva,SUM(RDC.monobjret) AS monobjret,MAX(RDC.porcar) AS porcar,SUM(RDC.monret) AS totiva,". " MAX(RDD.monret) AS ivaret,DS.numsol as numsop,RDD.codded,MAX(RDD.sc_cuenta) as cuenta, ". " RD.numref, MAX(RD.codtipdoc) as codtipdoc ,MAX(RD.cod_pro) as cod_pro, MAX(RD.ced_bene) as ced_bene,MAX(RD.codemp) ". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,cxp_rd_cargos RDC". " ,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE (SD.codemp='".$this->la_empresa["codemp"]."') AND (SD.codemp=RDD.codemp) AND". " (SD.codemp=RD.codemp) AND (SD.codemp=RDC.codemp) AND (SD.codemp=DS.codemp) AND". " (SD.codemp=SO.codemp) AND (SD.iva=1) AND (SD.codded=RDD.codded) AND (RDD.estcmp='0')". $ls_joinalt. " AND (RDD.numrecdoc=RD.numrecdoc) AND (RDC.numrecdoc=RD.numrecdoc ) AND (RDD.codtipdoc=RD.codtipdoc)". " AND (RDD.ced_bene='".$as_codprobene."') AND (RDD.ced_bene=RD.ced_bene) AND (RDC.ced_bene=RD.ced_bene)". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')AND (RD.estprodoc='C') AND". " (RD.numrecdoc=DS.numrecdoc) AND (RD.cod_pro=DS.cod_pro) AND (DS.numsol=SO.numsol) AND (SO.estprosol<>'A')". " AND DS.codemp=RD.codemp". " AND DS.numrecdoc=RD.numrecdoc". " AND DS.codtipdoc=RD.codtipdoc". " AND DS.cod_pro=RD.cod_pro". " AND DS.ced_bene=RD.ced_bene". " GROUP by id,RD.numrecdoc,RD.fecemidoc,numsop,RDD.codded,RD.numref"; } } elseif($as_tiporet=='M') { if($as_tipo=='P') { $ls_sql =" SELECT ".$ls_id." as id,RD.numrecdoc,RD.fecemidoc,SUM(RDD.monobjret) AS basimpiva,MAX(RD.codproalt) as codproalt,". " MAX(RD.montotdoc+RD.mondeddoc) AS totconiva,SUM(RDD.monobjret) AS monobjret,MAX(RDD.porded) AS porcar,SUM(RDD.monret) AS totiva,". " MAX(RDD.monret) AS ivaret,DS.numsol as numsop,RDD.codded,MAX(RDD.sc_cuenta) as cuenta, ". " RD.numref, MAX(RD.codtipdoc) as codtipdoc ,MAX(RD.cod_pro) as cod_pro, MAX(RD.ced_bene) as ced_bene,MAX(RD.codemp) ". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE (SD.codemp='".$this->la_empresa["codemp"]."') AND (SD.codemp=RDD.codemp) AND (SD.codemp=RD.codemp)". $ls_joinalt. " AND (SD.codemp=SO.codemp) AND (SD.codemp=DS.codemp ) AND (SD.estretmun=1) AND (SD.codded=RDD.codded)". " AND (RDD.estcmp='0') AND (RDD.numrecdoc=RD.numrecdoc) AND (RDD.codtipdoc=RD.codtipdoc) AND". " (RDD.cod_pro='".$as_codprobene."') AND (RDD.cod_pro=RD.cod_pro) AND". " (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."') AND (RD.estprodoc='C')". " AND (RD.numrecdoc=DS.numrecdoc) AND (RD.cod_pro=DS.cod_pro) AND (DS.numsol=SO.numsol) AND (SO.estprosol<>'A')". " AND DS.codemp=RD.codemp". " AND DS.numrecdoc=RD.numrecdoc". " AND DS.codtipdoc=RD.codtipdoc". " AND DS.cod_pro=RD.cod_pro". " AND DS.ced_bene=RD.ced_bene". " GROUP by id,RD.numrecdoc,RD.fecemidoc,RDD.porded,numsop,RDD.codded,RD.numref "; } else { $ls_sql =" SELECT ".$ls_id." as id,RD.numrecdoc,RD.fecemidoc,SUM(RDD.monobjret) AS basimpiva,MAX(RD.codproalt) as codproalt,". " MAX(RD.montotdoc+RD.mondeddoc) AS totconiva,SUM(RDD.monobjret) AS monobjret,MAX(RDD.porded) AS porcar,SUM(RDD.monret) AS totiva,". " MAX(RDD.monret) AS ivaret,DS.numsol as numsop,RDD.codded,MAX(RDD.sc_cuenta) as cuenta, ". " RD.numref, MAX(RD.codtipdoc) as codtipdoc ,MAX(RD.cod_pro) as cod_pro, MAX(RD.ced_bene) as ced_bene,MAX(RD.codemp)". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE (SD.codemp='".$this->la_empresa["codemp"]."') AND (SD.codemp=RDD.codemp) AND (SD.codemp=RD.codemp)". " AND (SD.codemp=SO.codemp) AND (SD.codemp=DS.codemp ) AND (SD.estretmun=1) AND (SD.codded=RDD.codded)". $ls_joinalt. " AND (RDD.estcmp='0') AND (RDD.numrecdoc=RD.numrecdoc) AND (RDD.codtipdoc=RD.codtipdoc) AND". " (RDD.ced_bene='".$as_codprobene."') AND (RDD.ced_bene=RD.ced_bene) AND". " (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."') AND (RD.estprodoc='C')". " AND (RD.numrecdoc=DS.numrecdoc) AND (RD.ced_bene=DS.ced_bene) AND (DS.numsol=SO.numsol) AND (SO.estprosol<>'A')". " AND DS.codemp=RD.codemp". " AND DS.numrecdoc=RD.numrecdoc". " AND DS.codtipdoc=RD.codtipdoc". " AND DS.cod_pro=RD.cod_pro". " AND DS.ced_bene=RD.ced_bene". " GROUP by id,RD.numrecdoc,RD.fecemidoc,RDD.porded,numsop,RDD.codded,RD.numref "; } } elseif($as_tiporet=='A') { if($as_tipo=='P') { $ls_sql ="SELECT ".$ls_id." as id,RD.numrecdoc,RD.fecemidoc,SUM(RDD.monobjret) AS basimpiva,MAX(RD.codproalt) as codproalt,". " MAX(RD.montotdoc+RD.mondeddoc) AS totconiva,SUM(RDD.monobjret) AS monobjret,". " MAX(RDD.porded) AS porcar,0 AS totiva,MAX(RDD.monret) AS ivaret,DS.numsol as numsop, ". " RDD.codded,MAX(RDD.sc_cuenta) as cuenta,RD.numref ". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp". " AND SD.codemp=RD.codemp". " AND SD.codemp=SO.codemp". " AND SD.codemp=DS.codemp". " AND SD.retaposol=1". " AND SD.codded=RDD.codded". " AND RDD.estcmp='0'". $ls_joinalt. " AND RDD.numrecdoc=RD.numrecdoc". " AND RDD.codtipdoc=RD.codtipdoc ". " AND RDD.cod_pro='".$as_codprobene."'". " AND (RDD.cod_pro=RD.cod_pro) ". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND RD.estprodoc='C'". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.cod_pro=DS.cod_pro". " AND DS.numsol=SO.numsol". " AND SO.estprosol<>'A' ". " AND DS.codemp=RD.codemp". " AND DS.numrecdoc=RD.numrecdoc". " AND DS.codtipdoc=RD.codtipdoc". " AND DS.cod_pro=RD.cod_pro". " AND DS.ced_bene=RD.ced_bene". " GROUP by id,RD.numrecdoc,RD.fecemidoc,RDD.porded,numsop,RDD.codded,RD.numref "; } else { $ls_sql ="SELECT ".$ls_id." as id,RD.numrecdoc,RD.fecemidoc,SUM(RDD.monobjret) AS basimpiva,MAX(RD.codproalt) as codproalt,". " MAX(RD.montotdoc+RD.mondeddoc) AS totconiva,SUM(RDD.monobjret) AS monobjret,". " MAX(RDD.porded) AS porcar,SUM(RDD.monret) AS totiva,MAX(RDD.monret) AS ivaret,DS.numsol as numsop, ". " RDD.codded,MAX(RDD.sc_cuenta) as cuenta,RD.numref ". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp". " AND SD.codemp=RD.codemp". " AND SD.codemp=SO.codemp". " AND SD.codemp=DS.codemp". " AND SD.retaposol=1". " AND SD.codded=RDD.codded". " AND RDD.estcmp='0'". $ls_joinalt. " AND RDD.numrecdoc=RD.numrecdoc". " AND RDD.codtipdoc=RD.codtipdoc ". " AND RDD.ced_bene='".$as_codprobene."'". " AND RDD.ced_bene=RD.ced_bene ". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND RD.estprodoc='C'". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.ced_bene=DS.ced_bene". " AND DS.numsol=SO.numsol". " AND SO.estprosol<>'A' ". " AND DS.codemp=RD.codemp". " AND DS.numrecdoc=RD.numrecdoc". " AND DS.codtipdoc=RD.codtipdoc". " AND DS.cod_pro=RD.cod_pro". " AND DS.ced_bene=RD.ced_bene". " GROUP by id,RD.numrecdoc,RD.fecemidoc,RDD.porded,numsop,RDD.codded,RD.numref "; } } elseif($as_tiporet=='1') { if($as_tipo=='P') { $ls_sql ="SELECT ".$ls_id." as id,RD.numrecdoc,RD.fecemidoc,SUM(RDD.monobjret) AS basimpiva,MAX(RD.codproalt) as codproalt,". " MAX(RD.montotdoc+RD.mondeddoc) AS totconiva,SUM(RDD.monobjret) AS monobjret,". " MAX(RDD.porded) AS porcar,0 AS totiva,MAX(RDD.monret) AS ivaret,DS.numsol as numsop, ". " RDD.codded,MAX(RDD.sc_cuenta) as cuenta,RD.numref ". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp". " AND SD.codemp=RD.codemp". " AND SD.codemp=SO.codemp". " AND SD.codemp=DS.codemp". " AND SD.estretmil='1'". " AND SD.codded=RDD.codded". " AND RDD.estcmp='0'". $ls_joinalt. " AND RDD.numrecdoc=RD.numrecdoc". " AND RDD.codtipdoc=RD.codtipdoc ". " AND RDD.cod_pro='".$as_codprobene."'". " AND (RDD.cod_pro=RD.cod_pro) ". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND RD.estprodoc='C'". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.cod_pro=DS.cod_pro". " AND DS.numsol=SO.numsol". " AND SO.estprosol<>'A' ". " AND DS.codemp=RD.codemp". " AND DS.numrecdoc=RD.numrecdoc". " AND DS.codtipdoc=RD.codtipdoc". " AND DS.cod_pro=RD.cod_pro". " AND DS.ced_bene=RD.ced_bene". " GROUP by id,RD.numrecdoc,RD.fecemidoc,RDD.porded,numsop,RDD.codded,RD.numref "; } else { $ls_sql ="SELECT ".$ls_id." as id,RD.numrecdoc,RD.fecemidoc,SUM(RDD.monobjret) AS basimpiva,MAX(RD.codproalt) as codproalt,". " MAX(RD.montotdoc+RD.mondeddoc) AS totconiva,SUM(RDD.monobjret) AS monobjret,". " MAX(RDD.porded) AS porcar,SUM(RDD.monret) AS totiva,MAX(RDD.monret) AS ivaret,DS.numsol as numsop, ". " RDD.codded,MAX(RDD.sc_cuenta) as cuenta,RD.numref ". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp". " AND SD.codemp=RD.codemp". " AND SD.codemp=SO.codemp". " AND SD.codemp=DS.codemp". " AND SD.estretmil='1'". $ls_joinalt. " AND SD.codded=RDD.codded". " AND RDD.estcmp='0'". " AND RDD.numrecdoc=RD.numrecdoc". " AND RDD.codtipdoc=RD.codtipdoc ". " AND RDD.ced_bene='".$as_codprobene."'". " AND RDD.ced_bene=RD.ced_bene ". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND RD.estprodoc='C'". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.ced_bene=DS.ced_bene". " AND DS.numsol=SO.numsol". " AND SO.estprosol<>'A' ". " AND DS.codemp=RD.codemp". " AND DS.numrecdoc=RD.numrecdoc". " AND DS.codtipdoc=RD.codtipdoc". " AND DS.cod_pro=RD.cod_pro". " AND DS.ced_bene=RD.ced_bene". " GROUP by id,RD.numrecdoc,RD.fecemidoc,RDD.porded,numsop,RDD.codded,RD.numref "; } } elseif($as_tiporet=='R') { if($as_tipo=='P') { $ls_sql ="SELECT ".$ls_id." as id,RD.numrecdoc,RD.fecemidoc,SUM(RDD.monobjret) AS basimpiva,MAX(RD.codproalt) as codproalt,". " MAX(RD.montotdoc+RD.mondeddoc) AS totconiva,SUM(RDD.monobjret) AS monobjret,". " MAX(RDD.porded) AS porcar,0 AS totiva,MAX(RDD.monret) AS ivaret,DS.numsol as numsop, ". " RDD.codded,MAX(RDD.sc_cuenta) as cuenta,RD.numref ". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp". " AND SD.codemp=RD.codemp". " AND SD.codemp=SO.codemp". " AND SD.codemp=DS.codemp". " AND SD.islr=1". " AND SD.codded=RDD.codded". " AND RDD.estcmp='0'". $ls_joinalt. " AND RDD.numrecdoc=RD.numrecdoc". " AND RDD.codtipdoc=RD.codtipdoc ". " AND RDD.cod_pro='".$as_codprobene."'". " AND (RDD.cod_pro=RD.cod_pro) ". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND RD.estprodoc='C'". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.cod_pro=DS.cod_pro". " AND DS.numsol=SO.numsol". " AND SO.estprosol<>'A' ". " AND DS.codemp=RD.codemp". " AND DS.numrecdoc=RD.numrecdoc". " AND DS.codtipdoc=RD.codtipdoc". " AND DS.cod_pro=RD.cod_pro". " AND DS.ced_bene=RD.ced_bene". " GROUP by id,RD.numrecdoc,RD.fecemidoc,RDD.porded,numsop,RDD.codded,RD.numref "; } else { $ls_sql ="SELECT ".$ls_id." as id,RD.numrecdoc,RD.fecemidoc,SUM(RDD.monobjret) AS basimpiva,MAX(RD.codproalt) as codproalt,". " MAX(RD.montotdoc+RD.mondeddoc) AS totconiva,SUM(RDD.monobjret) AS monobjret,". " MAX(RDD.porded) AS porcar,SUM(RDD.monret) AS totiva,MAX(RDD.monret) AS ivaret,DS.numsol as numsop, ". " RDD.codded,MAX(RDD.sc_cuenta) as cuenta,RD.numref ". " FROM sigesp_deducciones SD,cxp_rd_deducciones RDD,cxp_rd RD,cxp_dt_solicitudes DS,cxp_solicitudes SO". " WHERE SD.codemp='".$this->la_empresa["codemp"]."'". " AND SD.codemp=RDD.codemp". " AND SD.codemp=RD.codemp". " AND SD.codemp=SO.codemp". " AND SD.codemp=DS.codemp". " AND SD.islr=1". $ls_joinalt. " AND SD.codded=RDD.codded". " AND RDD.estcmp='0'". " AND RDD.numrecdoc=RD.numrecdoc". " AND RDD.codtipdoc=RD.codtipdoc ". " AND RDD.ced_bene='".$as_codprobene."'". " AND RDD.ced_bene=RD.ced_bene ". " AND (SO.fecaprosol BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."')". " AND RD.estprodoc='C'". " AND RD.numrecdoc=DS.numrecdoc". " AND RD.ced_bene=DS.ced_bene". " AND DS.numsol=SO.numsol". " AND SO.estprosol<>'A' ". " AND DS.codemp=RD.codemp". " AND DS.numrecdoc=RD.numrecdoc". " AND DS.codtipdoc=RD.codtipdoc". " AND DS.cod_pro=RD.cod_pro". " AND DS.ced_bene=RD.ced_bene". " GROUP by id,RD.numrecdoc,RD.fecemidoc,RDD.porded,numsop,RDD.codded,RD.numref "; } }//print $ls_sql."

"; $rs_result=$this->io_sql->select($ls_sql); if($rs_result===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_get_documento ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); $lb_valido=false; } else { if($row=$this->io_sql->fetch_row($rs_result)) { $as_RD=$this->io_sql->obtener_datos($rs_result); } else { $lb_valido=false; } $this->io_sql->free_result($rs_result); } return $lb_valido; }//FIN DE LA FUNCION uf_get_documento /******************************************************************************************************************/ /*********************************** INSERCION DE DATA **************************************************/ /******************************************************************************************************************/ function uf_crear_comprobante($as_codret,$as_numcom,$as_fecrep,$as_perfiscal,$as_codsujret,$as_nomsujret,$as_dirsujret,$as_rif,$as_nit,$as_estcmpret,$as_codusu,$as_numlic,$as_origen,$aa_seguridad,$tipsolpag='') { ////////////////////////////////////////////////////////////////////////////// // Function: uf_crear_comprobante // Access: public // Argument: $as_codret // Codigo de la retencion,$as_numcom // Numero del comprobante // $as_fecrep // Fecha del comprobante,$as_perfiscal // perido fiscal // $as_codsujret // Codigo del proveedor o beneficiario,$as_nomsujret // Nombre del proveedor o beneficiario // $as_dirsujret // Direccion del proveedor o beneficiario ,$as_rif // RIF del proveedor o beneficiario // $as_nit // NIT del proveedor ,$as_estcmpret // Estatus del comprobante, // $as_codusu // codigo del usuario ,$as_numlic // Numero de licencia del proveedor,$as_origen // Description: Función que guarda la cabezera de un comprobante de retencion // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $lb_valido=true; $tipsolpag = $tipsolpag?$tipsolpag:'SOPA'; $ls_sql=" INSERT INTO scb_cmp_ret (codemp,codret,numcom,fecrep,perfiscal,codsujret,nomsujret,dirsujret,rif,". " nit,estcmpret,codusu,numlic,origen,tipsolpag,cmp_cedbene,cmp_codpro,cmp_tipproben)". " VALUES ('".$this->la_empresa["codemp"]."','".$as_codret."','".$as_numcom."','".$as_fecrep."',". " '".$as_perfiscal."','".$as_codsujret."','". $as_nomsujret."','".$as_dirsujret."','".$as_rif."',". " '".$as_nit."','".$as_estcmpret."','".$as_codusu."','".$as_numlic."','".$as_origen."','".$tipsolpag."', '".$this->cmp_cedbene."','".$this->cmp_codpro."','".$this->cmp_tipproben."')"; $li_result=$this->io_sql->execute($ls_sql); //echo $ls_sql.'

'; if($li_result===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_crear_comprobante ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); $lb_valido=false; } else { ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="INSERT"; $ls_descripcion ="Insertó el Comprobante ".$as_numcom. " Asociado a la empresa ".$this->la_empresa["codemp"]; $lb_valido= $this->io_seguridad->uf_sss_insert_eventos_ventana($aa_seguridad["empresa"], $aa_seguridad["sistema"],$ls_evento,$aa_seguridad["logusr"], $aa_seguridad["ventanas"],$ls_descripcion); ///////////////////////////////// SEGURIDAD ///////////////////////////// } return $lb_valido; }//FIN DE LA FUNCION uf_crear_comprobante function uf_crear_comprobante_consolida($as_codret,&$as_numcom,$as_fecrep,$as_perfiscal,$as_codsujret,$as_nomsujret,$as_dirsujret,$as_rif,$as_nit,$as_estcmpret,$as_codusu,$as_numlic,$as_origen,$aa_seguridad) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_crear_comprobante_consolida // Access: public // Argument: $as_codret // Codigo de la retencion,$as_numcom // Numero del comprobante // $as_fecrep // Fecha del comprobante,$as_perfiscal // perido fiscal // $as_codsujret // Codigo del proveedor o beneficiario,$as_nomsujret // Nombre del proveedor o beneficiario // $as_dirsujret // Direccion del proveedor o beneficiario ,$as_rif // RIF del proveedor o beneficiario // $as_nit // NIT del proveedor ,$as_estcmpret // Estatus del comprobante, // $as_codusu // codigo del usuario ,$as_numlic // Numero de licencia del proveedor,$as_origen // Description: Función que guarda la cabezera de un comprobante de retencion // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $lb_valido=true; $ls_basdatori=$_SESSION["ls_database"]; $ls_sql=" INSERT INTO scb_cmp_ret (codemp,codret,numcom,fecrep,perfiscal,codsujret,nomsujret,dirsujret,rif,". " nit,estcmpret,codusu,numlic,origen,basdatori)". " VALUES ('".$this->la_empresa["codemp"]."','".$as_codret."','".$as_numcom."','".$as_fecrep."',". " '".$as_perfiscal."','".$as_codsujret."','". $as_nomsujret."','".$as_dirsujret."','".$as_rif."',". " '".$as_nit."','".$as_estcmpret."','".$as_codusu."','".$as_numlic."','".$as_origen."','".$ls_basdatori."')"; $li_result=$this->io_sqlaux->execute($ls_sql); if($li_result===false) { if($this->io_sql->errno=='23505' || $this->io_sql->errno=='1062' || $this->io_sql->errno=='-239' || $this->io_sql->errno=='-5'|| $this->io_sql->errno=='-1') { $this->uf_get_nrocomprobante($as_codret,$as_perfiscal,$as_numcom); $this->uf_crear_comprobante_consolida($as_codret,$as_numcom,$as_fecrep,$as_perfiscal,$as_codsujret,$as_nomsujret,$as_dirsujret,$as_rif, $as_nit,$as_estcmpret,$as_codusu,$as_numlic,$as_origen,$aa_seguridad); } else { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_crear_comprobante_consolida ERROR->".$this->io_function->uf_convertirmsg($this->io_sqlaux->message)); $lb_valido=false; } } else { ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="INSERT"; $ls_descripcion ="Insertó el Comprobante ".$as_numcom. " Asociado a la empresa ".$this->la_empresa["codemp"]; $lb_valido= $this->io_seguridad->uf_sss_insert_eventos_ventana($aa_seguridad["empresa"], $aa_seguridad["sistema"],$ls_evento,$aa_seguridad["logusr"], $aa_seguridad["ventanas"],$ls_descripcion); ///////////////////////////////// SEGURIDAD ///////////////////////////// } return $lb_valido; }//FIN DE LA FUNCION uf_crear_comprobante_consolida function uf_guardar_detallecmp($as_codret,$as_numcom,$as_numope,$as_fecfac,$as_numfac,$as_numcon,$as_numnd,$as_numnc, $as_tiptrans,$as_tot_cmp_sin_iva,$as_tot_cmp_con_iva,$as_basimp,$as_porimp,$as_totimp, $as_ivaret,$as_desope,$as_numsop,$as_codban,$as_ctaban,$as_numdoc,$as_codope,$tipsolpag='') { ////////////////////////////////////////////////////////////////////////////// // Function: uf_crear_comprobante // Access: public // Argument: $as_codret // Codigo de la retencion,$as_numcom // Numero del comprobante // $as_fecrep // Fecha del comprobante,$as_perfiscal // perido fiscal // $as_codsujret // Codigo del proveedor o beneficiario,$as_nomsujret // Nombre del proveedor o beneficiario // $as_dirsujret // Direccion del proveedor o beneficiario ,$as_rif // RIF del proveedor o beneficiario // $as_nit // NIT del proveedor ,$as_estcmpret // Estatus del comprobante, // $as_codusu // codigo del usuario ,$as_numlic // Numero de licencia del proveedor,$as_origen // Description: Función que guarda la cabezera de un comprobante de retencion // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $lb_valido=true; $tipsolpag=$tipsolpag?$tipsolpag:'SOPA'; $ls_sql = " INSERT INTO scb_dt_cmp_ret (codemp,codret,numcom,numope,fecfac,numfac,numcon,numnd,numnc,tiptrans,". " totcmp_sin_iva,totcmp_con_iva,basimp,porimp,totimp,iva_ret,desope,". " numsop,codban,ctaban,numdoc,codope,tipsolpag, cmp_porcret, cmp_monobjret, cmp_monret, cmp_sc_cuenta,cmp_codret) ". " VALUES ('".$this->la_empresa["codemp"]."','".$as_codret."','".$as_numcom."','".$as_numope."',". " '".$as_fecfac."','".$as_numfac."','".$as_numcon."','".$as_numnd."','".$as_numnc."',". " '".$as_tiptrans."','".$as_tot_cmp_sin_iva."','".$as_tot_cmp_con_iva."','".$as_basimp."',". " '".$as_porimp."','".$as_totimp."','".$as_ivaret."','".$as_desope."','".$as_numsop."',". " '".$as_codban."','".$as_ctaban."','".$as_numdoc."','".$as_codope."','".$tipsolpag."', '".$this->cmp_porcret."','".$this->cmp_monobjret."','".$this->cmp_monret."','". $this->cmp_sc_cuenta."','".$this->cmp_codret."')"; $li_result=$this->io_sql->execute($ls_sql); //echo $ls_sql.'

'; if($li_result ===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_guardar_detallecmp ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); $lb_valido=false; } return $lb_valido; }//FIN DE LA FUNCION uf_guardar_detallecmp function uf_guardar_detallecmp_consolida($as_codret,$as_numcom,$as_numope,$as_fecfac,$as_numfac,$as_numcon,$as_numnd,$as_numnc,$as_tiptrans,$as_tot_cmp_sin_iva, $as_tot_cmp_con_iva,$as_basimp,$as_porimp,$as_totimp,$as_ivaret,$as_desope,$as_numsop,$as_codban,$as_ctaban, $as_numdoc,$as_codope) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_crear_comprobante // Access: public // Argument: $as_codret // Codigo de la retencion,$as_numcom // Numero del comprobante // $as_fecrep // Fecha del comprobante,$as_perfiscal // perido fiscal // $as_codsujret // Codigo del proveedor o beneficiario,$as_nomsujret // Nombre del proveedor o beneficiario // $as_dirsujret // Direccion del proveedor o beneficiario ,$as_rif // RIF del proveedor o beneficiario // $as_nit // NIT del proveedor ,$as_estcmpret // Estatus del comprobante, // $as_codusu // codigo del usuario ,$as_numlic // Numero de licencia del proveedor,$as_origen // Description: Función que guarda la cabezera de un comprobante de retencion // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $lb_valido=true; $ls_sql = " INSERT INTO scb_dt_cmp_ret (codemp,codret,numcom,numope,fecfac,numfac,numcon,numnd,numnc,tiptrans,". " totcmp_sin_iva,totcmp_con_iva,basimp,porimp,totimp,iva_ret,desope,". " numsop,codban,ctaban,numdoc,codope) ". " VALUES ('".$this->la_empresa["codemp"]."','".$as_codret."','".$as_numcom."','".$as_numope."',". " '".$as_fecfac."','".$as_numfac."','".$as_numcon."','".$as_numnd."','".$as_numnc."',". " '".$as_tiptrans."','".$as_tot_cmp_sin_iva."','".$as_tot_cmp_con_iva."','".$as_basimp."',". " '".$as_porimp."','".$as_totimp."','".$as_ivaret."','".$as_desope."','".$as_numsop."',". " '".$as_codban."','".$as_ctaban."','".$as_numdoc."','".$as_codope."')"; $li_result=$this->io_sqlaux->execute($ls_sql); if($li_result===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_guardar_detallecmp ERROR->".$this->io_function->uf_convertirmsg($this->io_sqlaux->message)); $lb_valido=false; } return $lb_valido; }//FIN DE LA FUNCION uf_crear_comprobante /******************************************************************************************************************/ /**************************** PROCESO CREACION COMPROBANTE *********************************************/ /******************************************************************************************************************/ function uf_procesar_cmp_retencion($as_mes,$as_agno,$as_probendesde,$as_probenhasta,$as_tipo,$as_tiporet,&$aa_numcmp,$aa_seguridad) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_procesar_cmp_retencion // Access: public // Argument: $as_mes // Mes | $as_agno // Año // $as_probendesde // Codigo de Proveedor o Benficiario | $as_probenhasta // Codigo de Proveedor o Benficiario // $as_tipo // Indica si se trabaja con proveedores o beneficiarios // $as_tiporet // Indica el tipo de retencion // $aa_numcmp // Arreglo con los numeros de los comprobantes generados // Description: Función que se encarga de generar los comprobante de retencion // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 14/09/2007 ////////////////////////////////////////////////////////////////////////////// $aa_numcmp [0] =""; $li_numcmp= 0; $ls_codemp= $this->la_empresa["codemp"]; $ls_fecact= date('Y-m-d'); $ls_perfis= $as_agno.$as_mes; $lb_provbene=$this->uf_get_provbene($as_mes,$as_agno,$as_probendesde,$as_probenhasta,$as_tipo,$as_tiporet,$la_sujret); if($as_tiporet=="I") { $ls_codded="0000000001"; } elseif($as_tiporet=="M") { $ls_codded="0000000003"; } elseif($as_tiporet=="A") { $ls_codded="0000000004"; } elseif($as_tiporet=="1") { $ls_codded="0000000005"; } elseif($as_tiporet=="R") { $ls_codded="0000000006"; } if($lb_provbene) { $this->io_dataprov->data=$la_sujret; $li_totalfilaspro=$this->io_dataprov->getRowCount("cod_pro"); } else {$li_totalfilaspro=0;} $this->io_sql->begin_transaction(); $lb_valido=false; for($li_i=1;$li_i<=$li_totalfilaspro;$li_i++) { $ls_codpro=$this->io_dataprov->getValue("cod_pro",$li_i); $ls_nompro=$this->io_dataprov->getValue("nompro",$li_i); $ls_dirpro=$this->io_dataprov->getValue("dirpro",$li_i); $ls_rifpro=$this->io_dataprov->getValue("rifpro",$li_i); $ls_codproalt=$this->io_dataprov->getValue("codproalt",$li_i); $ls_nitpro="";//eliminado del select $ls_numlic="";//eliminado del select $this->uf_get_documento($as_mes,$as_agno,$ls_codpro,$as_tipo,$as_tiporet,$ls_codproalt,$la_RD); $li_rowrd=count($la_RD); if($li_rowrd>0) { $lb_valido=$this->uf_validar_rdmanual($ls_codpro,$la_RD,$as_tipo); if($lb_valido) { $this->io_datadocu->data=$la_RD; $li_totalfilas=$this->io_datadocu->getRowCount("id"); $this->uf_get_nrocomprobante($ls_codded,$ls_perfis,$ls_nrocomp); if($this->ls_basdatcmp!="") { $lb_valido=$this->uf_crear_comprobante_consolida($ls_codded,$ls_nrocomp,$ls_fecact,$ls_perfis,$ls_codpro,$ls_nompro,$ls_dirpro,$ls_rifpro, $ls_nitpro,"1",$this->ls_codusu,$ls_numlic,"A",$aa_seguridad); } if($lb_valido) { $lb_valido=$this->uf_crear_comprobante($ls_codded,$ls_nrocomp,$ls_fecact,$ls_perfis,$ls_codpro,$ls_nompro,$ls_dirpro,$ls_rifpro, $ls_nitpro,"1",$this->ls_codusu,$ls_numlic,"A",$aa_seguridad); } if($lb_valido) { $li_numcmp++; $aa_numcmp [$li_numcmp]=$ls_nrocomp; //$li_i=0; //$ls_codproalt=""; for($li_j=1;$li_j<=$li_totalfilas;$li_j++) { // $li_j++; $ls_coddoc=$this->io_datadocu->getValue("numrecdoc",$li_j); $ls_fecha=$this->io_datadocu->getValue("fecemidoc",$li_j); $ls_basimpiva=$this->io_datadocu->getValue("basimpiva",$li_j); $ls_totconiva=$this->io_datadocu->getValue("totconiva",$li_j); $ls_monobjret=$this->io_datadocu->getValue("monobjret",$li_j); $ls_porcar=$this->io_datadocu->getValue("porcar",$li_j); $ls_totiva=$this->io_datadocu->getValue("totiva",$li_j); $ls_ivaret=$this->io_datadocu->getValue("ivaret",$li_j); $ls_numsop=$this->io_datadocu->getValue("numsop",$li_j); $ls_corete=$this->io_datadocu->getValue("codded",$li_j); $ls_cuenta=$this->io_datadocu->getValue("cuenta",$li_j); $ls_numref=$this->io_datadocu->getValue("numref",$li_j); $ls_codtipdoc=$this->io_datadocu->getValue("codtipdoc",$li_j); $ls_cod_pro=$this->io_datadocu->getValue("cod_pro",$li_j); $ls_ced_bene=$this->io_datadocu->getValue("ced_bene",$li_j); // $ls_codproalt=$this->io_datadocu->getValue("codproalt",$li_j); $ls_numope=$this->uf_get_nrooperacion($li_j); $ls_totconiva=$ls_totconiva+$this->uf_buscar_monto_rdmanual($ls_codpro,$ls_coddoc,$as_tipo); if($as_tiporet=="I") { $ls_totsiniva=$ls_totconiva-($ls_basimpiva+$ls_totiva); } else { $ls_totsiniva=$ls_totconiva-$ls_basimpiva; } if($as_tiporet=="A") { $ls_totsiniva=0; $ls_totiva=$ls_totconiva-$ls_basimpiva; } $lb_valido=$this->uf_validar_dt_rdmanual($ls_codpro,$ls_coddoc,$ls_cuenta,$as_tipo); if($lb_valido) { if($this->ls_basdatcmp!="") { $lb_valido=$this->uf_guardar_detallecmp_consolida($ls_codded,$ls_nrocomp,$ls_numope,$ls_fecha,$ls_coddoc,$ls_numref,'','',"01-reg", $ls_totsiniva,$ls_totconiva,$ls_monobjret,$ls_porcar,$ls_totiva,$ls_ivaret,"", $ls_numsop,"","",$ls_coddoc,"01"); } if($lb_valido) { $lb_valido=$this->uf_guardar_detallecmp($ls_codded,$ls_nrocomp,$ls_numope,$ls_fecha,$ls_coddoc,$ls_numref,'','', "01-reg",$ls_totsiniva,$ls_totconiva,$ls_monobjret,$ls_porcar,$ls_totiva, $ls_ivaret,"",$ls_numsop,"","",$ls_coddoc,"01"); if($lb_valido){ $lb_valido=$this->uf_actualizar_estcmp($ls_coddoc,$ls_codpro,$ls_corete,$as_tipo); } } } if(($lb_valido)&&($ls_codded=="0000000001")) { $lb_valido=$this->uf_procesar_ndnc($ls_numsop,$ls_coddoc,$ls_codtipdoc,$ls_cod_pro,$ls_ced_bene, $li_i,$ls_nrocomp,$ls_fecha,$ls_numref,$ls_codded); } } if(trim($ls_codproalt)!="") { $lb_valido=$this->uf_update_datos_proveedor($ls_codded,$ls_nrocomp,$ls_numsop,$ls_codproalt); } } else $li_totalfilas=0; } else { $this->io_msg->message("No se logro verificar la deducción en la Recepción de Documentos"); } } else { $this->io_msg->message("No existen documentos validos para realizar el proceso"); } }//$lb_valido=false; if(($lb_valido)&&($li_numcmp>0)) { $this->io_sql->commit(); } else { $this->io_sql->rollback(); $li_numcmp=0; } return $li_numcmp; } function uf_procesar_ndnc($as_numsop,$as_coddoc,$as_codtipdoc,$as_cod_pro,$as_ced_bene,&$ai_i,$as_nrocomp,$as_fecha,$as_numref,$as_codded) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_procesar_ndnc // Access: public // Argument: $ls_numsol // Numero de solicitud de pago // $ls_numrecdoc // Número de Recepcion de Documento // $ls_codtipdoc // Codigo de Tipo de documento // $ls_cod_pro // Codigo de proveedor // $ls_ced_bene // Cedula de Beneficiario // Description: Función que verifica si existen notas de debito o credito asociadas al pago // Creado Por: Ing. Luis Anibal Lang // Fecha Creación: 16/09/2008 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $lb_valido=true; $ls_sql="SELECT cxp_sol_dc.codope,cxp_sol_dc.numrecdoc,cxp_sol_dc.numdc,cxp_sol_dc.fecope,cxp_sol_dc.monto,". " cxp_sol_dc.moncar,cxp_dc_cargos.porcar ". " FROM cxp_sol_dc,cxp_dc_cargos". " WHERE cxp_sol_dc.codemp='".$this->ls_codemp."'". " AND cxp_sol_dc.numsol='".$as_numsop."'". " AND cxp_sol_dc.numrecdoc='".$as_coddoc."'". " AND cxp_sol_dc.codtipdoc='".$as_codtipdoc."'". " AND cxp_sol_dc.cod_pro='".$as_cod_pro."'". " AND cxp_sol_dc.ced_bene='".$as_ced_bene."'". " AND cxp_sol_dc.estnotadc='C'". " AND cxp_sol_dc.codemp=cxp_dc_cargos.codemp". " AND cxp_sol_dc.numsol=cxp_dc_cargos.numsol". " AND cxp_sol_dc.numrecdoc=cxp_dc_cargos.numrecdoc". " AND cxp_sol_dc.ced_bene=cxp_dc_cargos.ced_bene". " AND cxp_sol_dc.cod_pro=cxp_dc_cargos.cod_pro". " AND cxp_sol_dc.codope=cxp_dc_cargos.codope". " AND cxp_sol_dc.numdc=cxp_dc_cargos.numdc"; $rs_data=$this->io_sql->select($ls_sql); if($rs_data===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_procesar_ndnc ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); return false; } else { while($row=$this->io_sql->fetch_row($rs_data)) { $ai_i=$ai_i+1; $ls_codope=$row["codope"]; $ls_numdc=$row["numdc"]; $ld_fecope=$row["fecope"]; $li_monto=$row["monto"]; $li_moncar=$row["moncar"]; $ls_porcar=$row["porcar"]; $li_basimp=$li_monto-$li_moncar; $ls_numope=$this->uf_get_nrooperacion($ai_i); if($ls_codope=="NC") { $ls_numnd=""; $ls_numnc=$ls_numdc; $li_monto=$li_monto*(-1); $li_basimp=$li_basimp*(-1); $li_moncar=$li_moncar*(-1); } else { $ls_numnd=$ls_numdc; $ls_numnc=""; } if($this->ls_basdatcmp!="") { $lb_valido=$this->uf_guardar_detallecmp_consolida($as_codded,$as_nrocomp,$ls_numope,$ld_fecope,$as_coddoc,$as_numref,$ls_numnd,$ls_numnc,"01-reg", 0,$li_monto,$li_basimp,$ls_porcar,$li_moncar,0,"", $as_numsop,"","",$as_coddoc,"01"); } if($lb_valido) { $lb_valido=$this->uf_guardar_detallecmp($as_codded,$as_nrocomp,$ls_numope,$ld_fecope,$as_coddoc,$as_numref,$ls_numnd,$ls_numnc, "01-reg",0,$li_monto,$li_basimp,$ls_porcar,$li_moncar, 0,"",$as_numsop,"","",$as_coddoc,"01"); } // $ls_concomiva=$row["concomiva"]; } $this->io_sql->free_result($rs_data); } return $lb_valido; } function uf_update_datos_proveedor($as_codded,$as_nrocomp,$as_numsop,$as_codproalt) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_update_datos_proveedor // Access: public // Argument: $ls_numsol // Numero de solicitud de pago // $ls_numrecdoc // Número de Recepcion de Documento // $ls_codtipdoc // Codigo de Tipo de documento // $ls_cod_pro // Codigo de proveedor // $ls_ced_bene // Cedula de Beneficiario // Description: Función que verifica si existen notas de debito o credito asociadas al pago // Creado Por: Ing. Luis Anibal Lang // Fecha Creación: 16/09/2008 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $lb_valido=true; $ls_sql="SELECT cxp_rd.codproalt, rpc_proveedor.cod_pro, rpc_proveedor.nompro,". " rpc_proveedor.dirpro, rpc_proveedor.rifpro, rpc_proveedor.nitpro". " FROM cxp_solicitudes,cxp_dt_solicitudes,cxp_rd,rpc_proveedor". " WHERE cxp_solicitudes.codemp='".$this->ls_codemp."'". " AND cxp_solicitudes.numsol='".$as_numsop."'". " AND cxp_rd.codproalt='".$as_codproalt."'". " 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.ced_bene=cxp_rd.ced_bene". " AND cxp_dt_solicitudes.cod_pro=cxp_rd.cod_pro". " AND cxp_dt_solicitudes.codtipdoc=cxp_rd.codtipdoc". " AND cxp_rd.codemp=rpc_proveedor.codemp". " AND cxp_rd.codproalt=rpc_proveedor.cod_pro"; $rs_data=$this->io_sql->select($ls_sql); if($rs_data===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_update_datos_proveedor ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); return false; } else { if($row=$this->io_sql->fetch_row($rs_data)) { $ai_i=$ai_i+1; $ls_codproalt=$row["cod_pro"]; $ls_nomproalt=$row["nompro"]; $ls_dirproalt=$row["dirpro"]; $ls_rifproalt=$row["rifpro"]; $ls_nitproalt=$row["nitpro"]; $lb_valido=$this->uf_update_cabecera($as_codded,$as_nrocomp,$ls_codproalt,$ls_nomproalt,$ls_dirproalt,$ls_rifproalt,$ls_nitproalt); } $this->io_sql->free_result($rs_data); } return $lb_valido; } function uf_update_cabecera($as_codded,$as_nrocomp,$as_codproalt,$as_nomproalt,$as_dirproalt,$as_rifproalt,$as_nitproalt) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_update_cabecera // Access: public // Argument: $as_numrecdoc // Número de Recepcion de Documento // $as_codprobene // Codigo del proveedor o beneficiario // $as_codret // Codigo de Retencion // $as_tipo // Indica si el codprobene es un proveedor o un beneficiario // Description: Función que actualiza el campo estcmp al valor 1 en la tabla cxp_rd_deducciones lo // que indica que ese item ya fue procesado en un comprobante // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $lb_valido=true; $ls_sql="UPDATE scb_cmp_ret". " SET codsujret='".$as_codproalt."',nomsujret='".$as_nomproalt."',". " dirsujret='".$as_dirproalt."',rif='".$as_rifproalt."',nit='".$as_nitproalt."'". " WHERE codemp='".$this->la_empresa["codemp"]."'". " AND codret='".$as_codded."'". " AND numcom='".$as_nrocomp."'"; $li_result=$this->io_sql->execute($ls_sql); if($li_result===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_update_cabecera ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); $lb_valido=false; } return $lb_valido; } function uf_actualizar_estcmp($as_numrecdoc,$as_codprobene,$as_codret,$as_tipo) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_actualizar_estcmp // Access: public // Argument: $as_numrecdoc // Número de Recepcion de Documento // $as_codprobene // Codigo del proveedor o beneficiario // $as_codret // Codigo de Retencion // $as_tipo // Indica si el codprobene es un proveedor o un beneficiario // Description: Función que actualiza el campo estcmp al valor 1 en la tabla cxp_rd_deducciones lo // que indica que ese item ya fue procesado en un comprobante // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $lb_valido=true; if($as_tipo=="P"){ $ls_filtro="cod_pro='".$as_codprobene."'"; } elseif($as_tipo="B"){ $ls_filtro="ced_bene='".$as_codprobene."'"; } $ls_sql="UPDATE cxp_rd_deducciones". " SET estcmp='1'". " WHERE codemp='".$this->la_empresa["codemp"]."'". " AND numrecdoc='".$as_numrecdoc."'". " AND ".$ls_filtro."". " AND codded='".$as_codret."'"; $li_result=$this->io_sql->execute($ls_sql); if($li_result===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_actualizar_estcmp ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); $lb_valido=false; } return $lb_valido; } /******************************************************************************************************************/ /************************ UTILIDADES (CORELATIVOS,VALIDACIONES) *******************************************/ /******************************************************************************************************************/ function uf_get_nrocomprobante($as_codret,$as_periodofiscal,&$as_nrocomp) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_get_nrocomprobante // Access: public // Argument: $as_codret // Codigo de Retencion // $as_periodofiscal // Perido fiscal AAAAMM // $as_nrocomp // Numero del Comprobante generado // Description: Función que genera el numero del comprobante // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $ls_sql=" SELECT numcom ". " FROM scb_cmp_ret". " WHERE codemp='".$this->la_empresa["codemp"]."'". " AND codret='".$as_codret."'". " ORDER by numcom desc "; $rs_result=$this->io_sql->select($ls_sql); if($rs_result===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_get_nrocomprobante ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); return false; } else { if($row=$this->io_sql->fetch_row($rs_result)) { $ls_nrocom=$this->io_keygen->uf_generar_numero_nuevo("CXP","scb_cmp_ret","SUBSTR(numcom,7,14)","CXPCMP",8,"","codret",$as_codret); $as_nrocomp=$as_periodofiscal.$ls_nrocom; } else { $codigo=$this->uf_load_numeroinicial($as_codret); if($codigo==0) { $codigo=1; } $as_nrocomp=$this->io_function->uf_cerosizquierda($codigo,8); $this->io_sql->free_result($rs_result); $as_nrocomp=$as_periodofiscal.$as_nrocomp; } } } //----------------------------------------------------------------------------------------------------------------------------------- function uf_load_numeroinicial($as_codret) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_load_numeroinicial // Access: public // Argument: $as_codret // Codigo de retencion // Description: Función que busca la configuracion del numero inicial // Creado Por: Ing. Luis Anibal Lang // Fecha Creación: 26/02/2008 Fecha Última Modificación : ////////////////////////////////////////////////////////////////////////////// $ls_concomiva=1; $ls_sql="SELECT concomiva,concommun,concommil ". " FROM sigesp_empresa ". " WHERE codemp='".$this->ls_codemp."'"; $rs_data=$this->io_sql->select($ls_sql); if($rs_data===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_load_numeroinicial ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); return false; } else { if($row=$this->io_sql->fetch_row($rs_data)) { switch($as_codret) { case "0000000001": $ls_concomiva=$row["concomiva"]; break; case "0000000003": $ls_concomiva=$row["concommun"]; break; case "0000000005": $ls_concomiva=$row["concommil"]; break; case "0000000004": $ls_concomiva=$row["concommun"]; break; } } $this->io_sql->free_result($rs_data); } return $ls_concomiva; }// end function uf_load_numeroinicial //----------------------------------------------------------------------------------------------------------------------------------- function uf_get_nrooperacion($as_num) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_get_nrooperacion // Access: public // Argument: $as_num // Numero de operacion // Description: Función que le da el formato al numero de operacion // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// settype($as_num,'string'); $ls_codigo=$this->io_function->uf_cerosizquierda($as_num,10); return $ls_codigo; } function uf_validar_estempresa() { ////////////////////////////////////////////////////////////////////////////// // Function: uf_validar_estempresa // Access: public // Argument: Sin argumentos // Description: Función que valida segun la configuracion de empresa si los comprobantes de // impuesto municipal pueden ser generados por Cuentas por pagar // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $lb_flag=true; $ls_sql="SELECT modageret ". " FROM sigesp_empresa". " WHERE codemp='".$this->la_empresa["codemp"]."'"; $rs_result=$this->io_sql->select($ls_sql); if($rs_result===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_validar_estempresa ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); return false; } else { if ($row=$this->io_sql->fetch_row($rs_result)) { $ls_modret=$row["modageret"]; if($ls_modret=='B') { $lb_flag=false; } } } return $lb_flag; } function uf_validar_rdmanual($as_codprobene,$aa_rd,$as_tipo) { /////////////////////////////////////////////////////////////////////////////// // Function: uf_validar_rdmanual // Access: public // Argument: $as_codprobene // Codigo del proveedo o beneficiario // $as_tipo // Indica si el codprobene es un proveedor o un beneficiario // $aa_rd // arreglo que contiene los detalles de la recepcion // Description: Función que valida un grupo de detalles en el caso de las recepciones manuales // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $lb_flag=false; if($as_tipo=="P"){ $ls_filtro="cod_pro='".$as_codprobene."'"; } elseif($as_tipo="B"){ $ls_filtro="ced_bene='".$as_codprobene."'"; } $this->io_datavali->data=$aa_rd; $li_tfilas=$this->io_datavali->getRowCount("id"); for($li_j=1;$li_j<=$li_tfilas;$li_j++) { $ls_coddoc=$this->io_datavali->getValue("numrecdoc",$li_j); $ls_sql=" SELECT numrecdoc". " FROM cxp_rd_scg". " WHERE codemp='".$this->la_empresa["codemp"]."'". " AND numrecdoc='".$ls_coddoc."'". " AND ".$ls_filtro."". " AND (estasicon='M' OR estasicon='A')". " AND debhab='H'"; $rs_result=$this->io_sql->select($ls_sql); if($rs_result===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_validar_rdmanual ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); return false; } else { if ($row=$this->io_sql->fetch_row($rs_result)) { $lb_flag=true; } } } return $lb_flag; } function uf_validar_dt_rdmanual($as_codprobene,$as_numrd,$as_cuenta,$as_tipo) { /////////////////////////////////////////////////////////////////////////////// // Function: uf_validar_dt_rdmanual // Access: public // Argument: $as_codprobene // Codigo del proveedo o beneficiario // $as_tipo // Indica si el codprobene es un proveedor o un beneficiario // $as_munrd // numero de la recepcion de documento // $as_cuenta //Codigo de la cuenta contable asociada a ese detalle // Description: Función que valida un grupo de detalles en el caso de las recepciones manuales // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 13/09/2007 Fecha Última Modificación : 13/09/2007 ////////////////////////////////////////////////////////////////////////////// $lb_flag=false; if($as_tipo=="P"){ $ls_filtro="cod_pro='".$as_codprobene."'"; } elseif($as_tipo="B"){ $ls_filtro="ced_bene='".$as_codprobene."'"; } $ls_sql="SELECT estasicon,debhab". " FROM cxp_rd_scg ". " WHERE codemp='".$this->la_empresa["codemp"]."'". " AND numrecdoc='".$as_numrd."'". " AND ".$ls_filtro."". " AND sc_cuenta='".$as_cuenta."'"; $rs_result=$this->io_sql->select($ls_sql); if($rs_result===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_validar_dt_rdmanual ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); return false; } else { if ($row=$this->io_sql->fetch_row($rs_result)) { $ls_estasi=$row["estasicon"]; $ls_debhab=$row["debhab"]; if($ls_estasi=='A') { $lb_flag=true; } elseif($ls_estasi=='M') { if($ls_debhab=='D') { $lb_flag=true; } } } } return $lb_flag; } function uf_buscar_monto_rdmanual($as_codprobene,$as_numrd,$as_tipo) { /////////////////////////////////////////////////////////////////////////////// // Function: uf_buscar_monto_rdmanual // Access: public // Argument: $as_codprobene // Codigo del proveedo o beneficiario // $as_tipo // Indica si el codprobene es un proveedor o un beneficiario // $as_munrd // numero de la recepcion de documento // Description: Función que ubica el monto de el detalle manual incluido por el haber para balancear // el monto total presentado en el comprobante // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 18/09/2007 Fecha Última Modificación : ////////////////////////////////////////////////////////////////////////////// $ld_monto=0; if($as_tipo=="P"){ $ls_filtro="cod_pro='".$as_codprobene."'"; } elseif($as_tipo="B"){ $ls_filtro="ced_bene='".$as_codprobene."'"; } $ls_sql="SELECT monto ". " FROM cxp_rd_scg ". " WHERE codemp='".$this->la_empresa["codemp"]."'". " AND numrecdoc='".$as_numrd."'". " AND ".$ls_filtro."". " AND estasicon='M'". " AND debhab='H'"; $rs_result=$this->io_sql->select($ls_sql); if($rs_result===false) { $this->io_msg->message("CLASE->Generar Comprobate MÉTODO->uf_buscar_monto_rdmanual ERROR->".$this->io_function->uf_convertirmsg($this->io_sql->message)); return false; } else { if ($row=$this->io_sql->fetch_row($rs_result)) { $ld_monto=$row["monto"]; } } return $ld_monto; } function uf_cmb_mes($as_mes) { /////////////////////////////////////////////////////////////////////////////// // Function: uf_cmb_mes // Access: public // Argument: $as_mes // numero que representa el mes en curso // Description: Función que construye el combo de meses // Creado Por: Ing. Gerardo Cordero // Fecha Creación: 26/09/2007 Fecha Última Modificación : ////////////////////////////////////////////////////////////////////////////// switch ($as_mes) { case '01': $lb_selEnero="selected"; $lb_selFebrero=""; $lb_selMarzo=""; $lb_selAbril=""; $lb_selMayo=""; $lb_selJunio=""; $lb_selJulio=""; $lb_selAgosto=""; $lb_selSeptiembre=""; $lb_selOctubre=""; $lb_selNoviembre=""; $lb_selDiciembre=""; break; case '02': $lb_selEnero=""; $lb_selFebrero="selected"; $lb_selMarzo=""; $lb_selAbril=""; $lb_selMayo=""; $lb_selJunio=""; $lb_selJulio=""; $lb_selAgosto=""; $lb_selSeptiembre=""; $lb_selOctubre=""; $lb_selNoviembre=""; $lb_selDiciembre=""; break; case '03': $lb_selEnero=""; $lb_selFebrero=""; $lb_selMarzo="selected"; $lb_selAbril=""; $lb_selMayo=""; $lb_selJunio=""; $lb_selJulio=""; $lb_selAgosto=""; $lb_selSeptiembre=""; $lb_selOctubre=""; $lb_selNoviembre=""; $lb_selDiciembre=""; break; case '04': $lb_selEnero=""; $lb_selFebrero=""; $lb_selMarzo=""; $lb_selAbril="selected"; $lb_selMayo=""; $lb_selJunio=""; $lb_selJulio=""; $lb_selAgosto=""; $lb_selSeptiembre=""; $lb_selOctubre=""; $lb_selNoviembre=""; $lb_selDiciembre=""; break; case '05': $lb_selEnero=""; $lb_selFebrero=""; $lb_selMarzo=""; $lb_selAbril=""; $lb_selMayo="selected"; $lb_selJunio=""; $lb_selJulio=""; $lb_selAgosto=""; $lb_selSeptiembre=""; $lb_selOctubre=""; $lb_selNoviembre=""; $lb_selDiciembre=""; break; case '06': $lb_selEnero=""; $lb_selFebrero=""; $lb_selMarzo=""; $lb_selAbril=""; $lb_selMayo=""; $lb_selJunio="selected"; $lb_selJulio=""; $lb_selAgosto=""; $lb_selSeptiembre=""; $lb_selOctubre=""; $lb_selNoviembre=""; $lb_selDiciembre=""; break; case '07': $lb_selEnero=""; $lb_selFebrero=""; $lb_selMarzo=""; $lb_selAbril=""; $lb_selMayo=""; $lb_selJunio=""; $lb_selJulio="selected"; $lb_selAgosto=""; $lb_selSeptiembre=""; $lb_selOctubre=""; $lb_selNoviembre=""; $lb_selDiciembre=""; break; case '08': $lb_selEnero=""; $lb_selFebrero=""; $lb_selMarzo=""; $lb_selAbril=""; $lb_selMayo=""; $lb_selJunio=""; $lb_selJulio=""; $lb_selAgosto="selected"; $lb_selSeptiembre=""; $lb_selOctubre=""; $lb_selNoviembre=""; $lb_selDiciembre=""; break; case '09': $lb_selEnero=""; $lb_selFebrero=""; $lb_selMarzo=""; $lb_selAbril=""; $lb_selMayo=""; $lb_selJunio=""; $lb_selJulio=""; $lb_selAgosto=""; $lb_selSeptiembre="selected"; $lb_selOctubre=""; $lb_selNoviembre=""; $lb_selDiciembre=""; break; case '10': $lb_selEnero=""; $lb_selFebrero=""; $lb_selMarzo=""; $lb_selAbril=""; $lb_selMayo=""; $lb_selJunio=""; $lb_selJulio=""; $lb_selAgosto=""; $lb_selSeptiembre=""; $lb_selOctubre="selected"; $lb_selNoviembre=""; $lb_selDiciembre=""; break; case '11': $lb_selEnero=""; $lb_selFebrero=""; $lb_selMarzo=""; $lb_selAbril=""; $lb_selMayo=""; $lb_selJunio=""; $lb_selJulio=""; $lb_selAgosto=""; $lb_selSeptiembre=""; $lb_selOctubre=""; $lb_selNoviembre="selected"; $lb_selDiciembre=""; break; case '12': $lb_selEnero=""; $lb_selFebrero=""; $lb_selMarzo=""; $lb_selAbril=""; $lb_selMayo=""; $lb_selJunio=""; $lb_selJulio=""; $lb_selAgosto=""; $lb_selSeptiembre=""; $lb_selOctubre=""; $lb_selNoviembre=""; $lb_selDiciembre="selected"; break; } print ""; print "ENERO"; print "FEBRERO"; print "MARZO"; print "ABRIL"; print "MAYO"; print "JUNIO"; print "JULIO"; print "AGOSTO"; print "SEPTIEMBRE"; print "OCTUBRE"; print "NOVIEMBRE"; print "DICIEMBRE"; print ""; } function BuscarRecepcionesOld($param=array()) { ////////////////////////////////////////////////////////////////////////////// // Function: BuscarRecepciones // Access: public // Argument: $param ----> Parametros // Description: Busca las recepciones pendientres por generar comprobante de retención // Creado Por: Lic. Edgar A. Quintero U. // Fecha Creación: 30/12/2012 ////////////////////////////////////////////////////////////////////////////// $fecdesde= $this->io_function->uf_convertirdatetobd("01/".$param['mes']."/".$param['ano']); $hasta = $this->io_fec->uf_last_day($param['mes'],$param['ano']); $fechasta= $this->io_function->uf_convertirdatetobd($hasta); $criterio = ""; switch($param['tipo_ret']){ case 'I': $sqlRet = " AND ded.iva=1 "; break; case 'M': $sqlRet = " AND ded.estretmil='1' "; break; case 'A': $sqlRet = " AND ded.retaposol=1 "; break; case '1': $sqlRet = " AND ded.estretmil='1' "; break; case 'R': $sqlRet = " AND ded.islr=1 "; break; } if($param['mes'] and $param['ano']){ $criterio .= " AND (so.fecaprosol BETWEEN '".$fecdesde."' AND '".$fechasta."')"; } if($param['tipsolpag']){ switch($param['tipsolpag']){ case 'SOPA': $criterio .= " AND (so.tipsolpag ='SOPA' OR so.tipsolpag ='FOAN' OR so.tipsolpag ='FOAV' OR so.tipsolpag ='LIQA') "; break; case 'ORPA': $criterio .= " AND so.tipsolpag ='ORPA' "; break; } } if($param['buscar_detalle']){ $criterio .= " AND rdd.numrecdoc='".$param['numrecdoc']."' AND rdd.codtipdoc='".$param['codtipdoc']."' AND rdd.ced_bene='".$param['ced_bene']."' AND rdd.cod_pro='".$param['cod_pro']."' AND rdd.codded='".$param['codded']."' AND rdd.procede_doc='".$param['procede_doc']."' AND rdd.numdoccom='".$param['numdoccom']."' "; if($param['codcar']){ $criterio .= " AND rdc.codcar = '".$param['codcar']."' "; } } if($param['tipproben']=="P"){ $CamposSujRet = "pro.nompro,pro.rifpro,"; $JoinSujREt = " INNER JOIN rpc_proveedor pro ON rd.cod_pro=pro.cod_pro "; $criterio .= " AND rd.tipproben='P' "; if($param['cod_pro'] and !$param['buscar_detalle']){ if(!$param['cod_pro2']){$criterio .= " AND so.cod_pro='".$param['cod_pro']."' ";} else{$criterio .= " AND so.cod_pro>='".$param['cod_pro']."' AND so.cod_pro<='".$param['cod_pro2']."' ";} } } if($param['tipproben']=="B"){ $CamposSujRet = " ben.dirbene as dirpro, ben.rifben as rifpro,ben.nombene||ben.apebene AS nompro, "; $JoinSujREt = " INNER JOIN rpc_beneficiario ben ON rd.ced_bene=ben.ced_bene "; $criterio .= " AND rd.tipproben='B' "; if($param['cod_pro'] and !$param['buscar_detalle']){ if(!$param['cod_pro2']){$criterio .= " AND rd.ced_bene='".$param['cod_pro']."' ";} else{$criterio .= " AND rd.ced_bene>='".$param['cod_pro']."' AND rd.ced_bene<='".$param['cod_pro2']."' ";} } } $ls_sql=" SELECT rd.tipproben,so.cod_pro,rd.ced_bene,".$CamposSujRet." so.numsol,so.estprosol,so.tipsolpag,e_estaprosol.descequiv AS desc_estaprosol,e_estprosol.descequiv AS desc_estprosol, rd.numrecdoc,rd.dencondoc,rdd.codtipdoc, e_estprodoc.descequiv AS estatus_rd, e_estaprord.descequiv AS estatus_aprord, rdd.procede_doc, rdd.numdoccom, rdd.codded,ded.dended, rd.numrecdoc, rd.montotdoc,rd.mondeddoc,rd.moncardoc, rdd.monobjret,rdd.monret, rdc.monobjret AS subtotbasimp, rdc.monret AS moncar, rdc.codcar,rdc.porcar, rdc.formula, so.fechaconta,so.fecemisol, so.fecaprosol,rd.fecemidoc,rd.fecregdoc,rd.fecaprord, rdd.sc_cuenta,rd.numref, rd.codproalt,proalt.nompro AS nomproalt,proalt.rifpro AS rifproalt FROM cxp_solicitudes so INNER JOIN cxp_dt_solicitudes ds ON so.codemp=ds.codemp AND so.numsol=ds.numsol INNER JOIN cxp_rd rd ON rd.codemp=ds.codemp AND rd.numrecdoc=ds.numrecdoc AND rd.codtipdoc=ds.codtipdoc AND rd.ced_bene=ds.ced_bene AND rd.cod_pro=ds.cod_pro INNER JOIN cxp_rd_deducciones rdd ON rdd.codemp=ds.codemp AND rdd.numrecdoc=ds.numrecdoc AND rdd.codtipdoc=ds.codtipdoc AND rdd.ced_bene=ds.ced_bene AND rdd.cod_pro=ds.cod_pro INNER JOIN sigesp_deducciones ded ON ded.codemp=rdd.codemp AND ded.codded=rdd.codded ".$JoinSujREt." LEFT JOIN rpc_proveedor proalt ON rd.codproalt=proalt.cod_pro LEFT JOIN cxp_rd_cargos rdc ON rdc.codemp=rd.codemp AND rdc.numrecdoc=rd.numrecdoc AND rdc.codtipdoc=rd.codtipdoc AND rdc.ced_bene=rd.ced_bene AND rdc.cod_pro=rd.cod_pro AND ded.iva=1 LEFT JOIN covensol_sigesp_equiv e_estprosol ON e_estprosol.dominio='cxp_solicitudes' AND e_estprosol.campo='estprosol' AND e_estprosol.valor= so.estprosol::text LEFT JOIN covensol_sigesp_equiv e_estaprosol ON e_estaprosol.dominio='cxp_solicitudes' AND e_estaprosol.campo='estaprosol' AND e_estaprosol.valor= so.estaprosol::text LEFT JOIN covensol_sigesp_equiv e_estprodoc ON e_estprodoc.dominio='cxp_rd' AND e_estprodoc.campo='estprodoc' AND e_estprodoc.valor= rd.estprodoc::text LEFT JOIN covensol_sigesp_equiv e_estaprord ON e_estaprord.dominio='cxp_rd' AND e_estaprord.campo='estaprord' AND e_estaprord.valor= rd.estaprord::text WHERE so.codemp='".$this->ls_codemp."' ".$sqlRet." AND so.estprosol<>'A' AND rd.estprodoc='C' AND rdd.estcmp='0' ".$criterio." ORDER BY so.cod_pro,so.numsol,rd.numrecdoc"; $RsDoc=$this->io_sql->execute($ls_sql); //echo $ls_sql.'

'; if($RsDoc===false){ $this->io_msg->message("CLASE->sigesp_cxp_c_cmp_retencion MÉTODO->BuscarRecepciones ERROR->".$this->io_sql->message); return false; } return $RsDoc; } function BuscarRecepciones($param=array()) { ////////////////////////////////////////////////////////////////////////////// // Function: BuscarDetalleRet // Access: public // Argument: $param ----> Parametros // Description: Busca las recepciones pendientres por generar comprobante de retención // Creado Por: Lic. Edgar A. Quintero U. // Fecha Creación: 30/12/2012 ////////////////////////////////////////////////////////////////////////////// $fecdesde= $this->io_function->uf_convertirdatetobd("01/".$param['mes']."/".$param['ano']); $hasta = $this->io_fec->uf_last_day($param['mes'],$param['ano']); $fechasta= $this->io_function->uf_convertirdatetobd($hasta); $criterio = ""; switch($param['tipo_ret']){ case 'I': $sqlRet = " AND ded.iva=1 "; break; case 'M': $sqlRet = " AND ded.estretmil='1' "; break; case 'A': $sqlRet = " AND ded.retaposol=1 "; break; case '1': $sqlRet = " AND ded.estretmil='1' "; break; case 'R': $sqlRet = " AND ded.islr=1 "; break; } if($param['mes'] and $param['ano']){ $criterio .= " AND (so.fecaprosol BETWEEN '".$fecdesde."' AND '".$fechasta."')"; } if($param['tipsolpag']){ switch($param['tipsolpag']){ case 'SOPA': $criterio .= " AND (so.tipsolpag ='SOPA' OR so.tipsolpag ='FOAN' OR so.tipsolpag ='FOAV' OR so.tipsolpag ='LIQA') "; break; case 'ORPA': $criterio .= " AND so.tipsolpag ='ORPA' "; break; } } $estcmp = " AND rdd.estcmp='0' "; if($param['buscar_detalle']){ $criterio .= " AND rdd.numrecdoc='".$param['numrecdoc']."' AND rdd.codtipdoc='".$param['codtipdoc']."' AND rdd.ced_bene='".$param['ced_bene']."' AND rdd.cod_pro='".$param['cod_pro']."' AND rdd.codded='".$param['codded']."' AND rdd.procede_doc='".$param['procede_doc']."' AND rdd.numdoccom='".$param['numdoccom']."' "; if($param['codcar'] and $param['tipo_ret']!='I'){ $criterio .= " AND rdc.codcar = '".$param['codcar']."' "; } if($param['tipo_ret']=='I'){ $criterio .= " AND rdc.porcar = '".$param['porcar']."' "; } $estcmp = ""; } if($param['tipproben']=="P"){ $CamposSujRet = "pro.nompro,pro.rifpro,"; $JoinSujREt = " INNER JOIN rpc_proveedor pro ON rd.cod_pro=pro.cod_pro "; $criterio .= " AND rd.tipproben='P' "; $Camposgroup = "pro.nompro,pro.rifpro,"; if($param['cod_pro'] and !$param['buscar_detalle']){ if(!$param['cod_pro2']){$criterio .= " AND so.cod_pro='".$param['cod_pro']."' ";} else{$criterio .= " AND so.cod_pro>='".$param['cod_pro']."' AND so.cod_pro<='".$param['cod_pro2']."' ";} } } if($param['tipproben']=="B"){ $CamposSujRet = " ben.dirbene as dirpro, ben.rifben as rifpro,ben.nombene||ben.apebene AS nompro, "; $JoinSujREt = " INNER JOIN rpc_beneficiario ben ON rd.ced_bene=ben.ced_bene "; $criterio .= " AND rd.tipproben='B' "; $Camposgroup = "ben.dirbene,ben.rifben,ben.nombene,ben.apebene,"; if($param['cod_pro'] and !$param['buscar_detalle']){ if(!$param['cod_pro2']){$criterio .= " AND rd.ced_bene='".$param['cod_pro']."' ";} else{$criterio .= " AND rd.ced_bene>='".$param['cod_pro']."' AND rd.ced_bene<='".$param['cod_pro2']."' ";} } } $ls_sql=" SELECT rd.tipproben,so.cod_pro,rd.ced_bene,".$CamposSujRet." so.numsol,so.estprosol,so.tipsolpag,e_estaprosol.descequiv AS desc_estaprosol, e_estprosol.descequiv AS desc_estprosol, rd.numrecdoc,rd.dencondoc,rdd.codtipdoc, e_estprodoc.descequiv AS estatus_rd, e_estaprord.descequiv AS estatus_aprord, rdd.procede_doc, rdd.numdoccom, rdd.codded,ded.dended, rd.numrecdoc, rd.montotdoc,rd.mondeddoc,rd.moncardoc, rdd.monobjret, rdd.monret, ded.porded, sum(rdc.monobjret) AS subtotbasimp, sum(rdc.monret) AS moncar, round((sum(rdc.monret)*(ded.porded/100))::numeric,2) as subtotret, MAX(rdc.codcar) AS codcar, rdc.porcar, rdc.formula, so.fechaconta, so.fecemisol, so.fecaprosol,rd.fecemidoc, rd.fecregdoc,rd.fecaprord, rdd.sc_cuenta,rd.numref, rd.codproalt,proalt.nompro AS nomproalt,proalt.rifpro AS rifproalt,ded.iva FROM cxp_solicitudes so INNER JOIN cxp_dt_solicitudes ds ON so.codemp=ds.codemp AND so.numsol=ds.numsol INNER JOIN cxp_rd rd ON rd.codemp=ds.codemp AND rd.numrecdoc=ds.numrecdoc AND rd.codtipdoc=ds.codtipdoc AND rd.ced_bene=ds.ced_bene AND rd.cod_pro=ds.cod_pro INNER JOIN cxp_rd_deducciones rdd ON rdd.codemp=ds.codemp AND rdd.numrecdoc=ds.numrecdoc AND rdd.codtipdoc=ds.codtipdoc AND rdd.ced_bene=ds.ced_bene AND rdd.cod_pro=ds.cod_pro INNER JOIN sigesp_deducciones ded ON ded.codemp=rdd.codemp AND ded.codded=rdd.codded ".$JoinSujREt." LEFT JOIN rpc_proveedor proalt ON rd.codproalt=proalt.cod_pro LEFT JOIN cxp_rd_cargos rdc ON rdc.codemp=rd.codemp AND rdc.numrecdoc=rd.numrecdoc AND rdc.codtipdoc=rd.codtipdoc AND rdc.ced_bene=rd.ced_bene AND rdc.cod_pro=rd.cod_pro AND ded.iva=1 /*AND rdd.monobjret = rdc.monret*/ LEFT JOIN covensol_sigesp_equiv e_estprosol ON e_estprosol.dominio='cxp_solicitudes' AND e_estprosol.campo='estprosol' AND e_estprosol.valor= so.estprosol::text LEFT JOIN covensol_sigesp_equiv e_estaprosol ON e_estaprosol.dominio='cxp_solicitudes' AND e_estaprosol.campo='estaprosol' AND e_estaprosol.valor= so.estaprosol::text LEFT JOIN covensol_sigesp_equiv e_estprodoc ON e_estprodoc.dominio='cxp_rd' AND e_estprodoc.campo='estprodoc' AND e_estprodoc.valor= rd.estprodoc::text LEFT JOIN covensol_sigesp_equiv e_estaprord ON e_estaprord.dominio='cxp_rd' AND e_estaprord.campo='estaprord' AND e_estaprord.valor= rd.estaprord::text WHERE so.codemp='".$this->ls_codemp."' ".$sqlRet." AND so.estprosol<>'A' AND rd.estprodoc='C' ".$estcmp." ".$criterio." GROUP BY rd.tipproben,so.cod_pro,rd.ced_bene,".$Camposgroup." so.numsol,so.estprosol,so.tipsolpag,e_estaprosol.descequiv, e_estprosol.descequiv, rd.numrecdoc, rd.dencondoc,rdd.codtipdoc, e_estprodoc.descequiv, e_estaprord.descequiv, rdd.procede_doc, rdd.numdoccom, rdd.codded,ded.dended, rd.numrecdoc, rd.montotdoc, rd.mondeddoc, rd.moncardoc, rdd.monobjret, rdd.monret, ded.porded, rdc.porcar, rdc.formula, so.fechaconta,so.fecemisol, so.fecaprosol, rd.fecemidoc,rd.fecregdoc,rd.fecaprord, rdd.sc_cuenta,rd.numref, rd.codproalt, proalt.nompro,proalt.rifpro,ded.iva ORDER BY so.cod_pro,so.numsol,rd.numrecdoc"; $RsDoc=$this->io_sql->execute($ls_sql); //echo $ls_sql.'


'; if($RsDoc===false){ $this->io_msg->message("CLASE->sigesp_cxp_c_cmp_retencion MÉTODO->BuscarRecepciones ERROR->".$this->io_sql->message); return false; } return $RsDoc; } function ProcCmpRet($param=array()){ ////////////////////////////////////////////////////////////////////////////// // Function: ProcCmpRet // Access: public // Argument: $param ----> Parametros // Description: Procesa y Genera los comprobantes de Retención // Creado Por: Lic. Edgar A. Quintero U. // Fecha Creación: 30/12/2012 ////////////////////////////////////////////////////////////////////////////// $aa_numcmp = array(); $li_numcmp= 0; $fecact= date('Y-m-d'); $perfis= $param['ano'].$param['mes']; $fecdesde= $this->io_function->uf_convertirdatetobd("01/".$param['mes']."/".$param['ano']); $hasta = $this->io_fec->uf_last_day($param['mes'],$param['ano']); $fechasta= $this->io_function->uf_convertirdatetobd($hasta); $as_tipo=$param['tipproben']?$param['tipproben']:"P"; $provant = ""; switch($param['tipo_ret']){ case 'I': $codtipret="0000000001"; break; case 'M': $codtipret="0000000003"; break; case 'A': $codtipret="0000000004"; break; case '1': $codtipret="0000000005"; break; case 'R': $codtipret="0000000006"; break; } $param['docs'] = explode(',',$param['docs']); if(sizeof($param["docs"])<1){$this->io_conexiones->mensajes_ajax("No hay retenciones que procesar !"); return true;} $this->io_sql->begin_transaction(); $nro = 1; for($i = 0; $i < sizeof($param["docs"]); $i++){ $DatosDoc=explode('|',$param["docs"][$i]); $DocProv['numsol'] = $DatosDoc[0]; $DocProv['numrecdoc'] = $DatosDoc[1]; $DocProv['codtipdoc'] = $DatosDoc[2]; $DocProv['ced_bene'] = $DatosDoc[3]; $DocProv['cod_pro'] = $DatosDoc[4]; $DocProv['procede_doc'] = $DatosDoc[5]; $DocProv['numdoccom'] = $DatosDoc[6]; $DocProv['tipsolpag'] = $DatosDoc[7]; $DocProv['codded'] = $DatosDoc[8]; $DocProv['codcar'] = $DatosDoc[9]; $DocProv['tipproben'] = $DatosDoc[10]; $DocProv['codproalt'] = $DatosDoc[11]; $DocProv['porded'] = $DatosDoc[12]; $DocProv['porcar'] = $DatosDoc[13]; $DocProv['tipo_ret'] = $param['tipo_ret']; $DocProv['mes'] = $param['mes']; $DocProv['ano'] = $param['ano']; $provact = ($param['tipproben']=="P")?$DocProv['cod_pro']:$DocProv['ced_bene']; $provaltact = $DocProv['codproalt']; if($param['tipproben']=="P"){ $rsSujRet = $this->BuscarDatosProv($DocProv); if($rsSujRet===false){return false;} } if($param['tipproben']=="B"){ $rsSujRet = $this->BuscarDatosBenef($DocProv); if($rsSujRet===false){return false;} } if(($provant!=$provact) or ($provaltant!=$provaltact)){ $nrocomp = $this->GenerarNroCmp($codtipret,$perfis,$DocProv['tipsolpag']); if($nrocomp===false){$this->io_sql->rollback(); return false;} $this->cmp_cedbene = $DocProv['ced_bene']; $this->cmp_codpro = $DocProv['cod_pro']; $this->cmp_tipproben = $DocProv['tipproben']; $resul=$this->uf_crear_comprobante($codtipret,$nrocomp,$fecact,$perfis,$provact, $rsSujRet->fields['nompro'],$rsSujRet->fields['dirpro'],$rsSujRet->fields['rifpro'], "","1",$this->ls_codusu,"","A",$this->Seguridad,$DocProv['tipsolpag']); if($resul===false){$this->io_sql->rollback(); return false;} $this->CmpGen[]=$nrocomp; $nro = 1; } $DocProv['buscar_detalle'] = 1; $RsDed = $this->BuscarRecepciones($DocProv); if($RsDed===false){$this->io_sql->rollback(); return false;} $DocProv['buscar_detalle'] = 0; /****************************************************************************************************/ /*********** SI ES UNA LIQUIDACIÓN DE ANTICIPO EL TOTAL DE LA FACTURA ES EL TOTAL SPG ***************/ /****************************************************************************************************/ if($DocProv['tipsolpag']=='LIQA'){ $montotfact = $this->MonTotLiqAnt($DocProv); if($montotfact===false){return false;} $RsDed->fields['montotdoc'] = $montotfact-$RsDed->fields['mondeddoc']; } /****************************************************************************************************/ $numope = str_pad($nro,10,"0",STR_PAD_LEFT); $ls_totsiniva = $RsDed->fields['montotdoc']+$RsDed->fields['mondeddoc']-$RsDed->fields['moncardoc']; $ls_totconiva = $RsDed->fields['montotdoc']+$RsDed->fields['mondeddoc']; $baseimp = $RsDed->fields['subtotbasimp']?$RsDed->fields['subtotbasimp']:$RsDed->fields['monobjret']; $ls_totiva = $RsDed->fields['moncar']?$RsDed->fields['moncar']:0; $ls_ivaret = $RsDed->fields['monret']; $porcar = $RsDed->fields['porcar']?$RsDed->fields['porcar']:0; if($param['tipo_ret']=='I'){ $ls_ivaret = $RsDed->fields['subtotret']; } $this->cmp_porcret = $DocProv['porded']; $this->cmp_monobjret = $baseimp; $this->cmp_monret = $ls_ivaret; $this->cmp_sc_cuenta = $RsDed->fields['sc_cuenta']; $this->cmp_codret = $DocProv['codded']; $valido=$this->uf_guardar_detallecmp($codtipret,$nrocomp,$numope,$RsDed->fields['fecemidoc'],$RsDed->fields['numrecdoc'],$RsDed->fields['numref'],'','', "01-reg",$ls_totsiniva,$ls_totconiva,$baseimp,$porcar,$ls_totiva, $ls_ivaret,"",$RsDed->fields['numsol'],"","",$RsDed->fields['numrecdoc'],"01",$RsDed->fields['tipsolpag']); if($valido===false){$this->io_sql->rollback(); return false;} $valido=$this->uf_actualizar_estcmp($RsDed->fields['numrecdoc'],$provact,$RsDed->fields['codded'],$RsDed->fields['tipproben']); if($valido===false){$this->io_sql->rollback(); return false;} if($codtipret=="0000000001"){ $valido=$this->uf_procesar_ndnc($RsDed->fields['numsol'],$RsDed->fields['numrecdoc'],$RsDed->fields['codtipdoc'],$RsDed->fields['cod_pro'],$RsDed->fields['ced_benes'], $nro,$nrocomp,$RsDed->fields['fecemidoc'],$RsDed->fields['numref'],$RsDed->fields['codded']); if($valido===false){$this->io_sql->rollback(); return false;} } if(trim($DocProv['codproalt'])!="" and $codtipret=="0000000001"){ $valido=$this->uf_update_datos_proveedor($codtipret,$nrocomp,$RsDed->fields['numsol'],$RsDed->fields['codproalt']); if($valido===false){$this->io_sql->rollback(); return false;} } $nro++; $provant = ($param['tipproben']=="P")?$DocProv['cod_pro']:$DocProv['ced_bene']; $provaltant = $DocProv['codproalt']; } //$this->io_sql->rollback(); $this->io_sql->commit(); return true; } function GenerarNroCmp($as_codret,$as_periodofiscal,$tipsolpag='SOPA'){ ////////////////////////////////////////////////////////////////////////////// // Function: GenerarNroCmp // Access: public // Argument: $param ----> Parametros // Description: Genera el Número correlativo de Comprobante de Retención // Creado Por: Lic. Edgar A. Quintero U. // Fecha Creación: 30/12/2012 ////////////////////////////////////////////////////////////////////////////// if($tipsolpag){ switch($tipsolpag){ case 'LIQA'://LIQUIDACIÓN DE ANTICIPO case 'FOAV'://FONDO EN AVANCE case 'FOAN'://FONDO EN ANTICIPO case 'SOPA'://SOLICITUD DE PAGO $criterio .= " AND (tipsolpag ='SOPA' OR tipsolpag ='FOAN' OR tipsolpag ='FOAV' OR tipsolpag ='LIQA') "; break; case 'ORPA'://ORDEN DE PAGO (TESORERÍA NACIONAL) $criterio .= " AND tipsolpag ='ORPA' "; break; } } //echo $tipsolpag.'
'; $ls_sql=" SELECT numcom FROM scb_cmp_ret WHERE codemp='".$this->ls_codemp."' AND codret='".$as_codret."' ".$criterio." ORDER by numcom DESC LIMIT 1 "; $rs=$this->io_sql->select($ls_sql); //echo $ls_sql.'
'; if($rs===false){ $this->io_msg->message("CLASE->sigesp_cxp_c_cmp_retencion MÉTODO->GenerarNroCmp ERROR->".$this->io_sql->message); return false; } if($rs->RecordCount()){ $nrocom=substr($rs->fields['numcom'],-8); $nrocom = (integer)$nrocom; $nrocom++; $nrocom=str_pad($nrocom,8,"0",STR_PAD_LEFT); switch($tipsolpag){ case 'LIQA'://LIQUIDACIÓN DE ANTICIPO case 'FOAV'://FONDO EN AVANCE case 'FOAN'://FONDO EN ANTICIPO case 'SOPA'://SOLICITUD DE PAGO $nrocom=$as_periodofiscal.$nrocom; return $nrocom; break; case 'ORPA'://ORDEN DE PAGO (TESORERÍA NACIONAL) $nrocom='CMPORP'.$nrocom; return $nrocom; break; } } $codigo=$this->uf_load_numeroinicial($as_codret); if($codigo==0){$codigo=1;} $nrocomp=str_pad($codigo,8,"0",STR_PAD_LEFT); switch($tipsolpag){ case 'LIQA'://LIQUIDACIÓN DE ANTICIPO case 'FOAV'://FONDO EN AVANCE case 'FOAN'://FONDO EN ANTICIPO case 'SOPA'://SOLICITUD DE PAGO $nrocomp=$as_periodofiscal.$nrocomp; return $nrocomp; break; case 'ORPA'://ORDEN DE PAGO (TESORERÍA NACIONAL) $nrocomp='CMPORP'.$nrocomp; return $nrocomp; break; } } function BuscarDatosProv($param=array()) { ////////////////////////////////////////////////////////////////////////////// // Function: BuscarDatosProv // Access: public // Argument: $param ----> Parametros // Description: Busca los datos del proveedor // Creado Por: Lic. Edgar A. Quintero U. // Fecha Creación: 30/12/2012 ////////////////////////////////////////////////////////////////////////////// $ls_sql=" SELECT pro.* FROM rpc_proveedor pro WHERE pro.cod_pro='".$param['cod_pro']."' "; $RsProv=$this->io_sql->execute($ls_sql); //echo $ls_sql; if($RsProv===false){ $this->io_msg->message("CLASE->sigesp_cxp_c_cmp_retencion MÉTODO->BuscarDatosProv ERROR->".$this->io_sql->message); return false; } return $RsProv; } function BuscarDatosBenef($param=array()) { ////////////////////////////////////////////////////////////////////////////// // Function: BuscarDatosBenef // Access: public // Argument: $param ----> Parametros // Description: Busca los datos del proveedor // Creado Por: Lic. Edgar A. Quintero U. // Fecha Creación: 30/12/2012 ////////////////////////////////////////////////////////////////////////////// $ls_sql=" SELECT ben.ced_bene,ben.dirbene as dirpro, ben.rifben as rifpro,ben.nombene||ben.apebene AS nompro FROM rpc_beneficiario ben WHERE ben.ced_bene='".$param['ced_bene']."' "; $RsProv=$this->io_sql->execute($ls_sql); //echo $ls_sql; if($RsProv===false){ $this->io_msg->message("CLASE->sigesp_cxp_c_cmp_retencion MÉTODO->BuscarDatosBenef ERROR->".$this->io_sql->message); return false; } return $RsProv; } function MonTotLiqAnt($param=array()){ $ls_sql2=" SELECT COALESCE(sum(rdspg.monto),0) AS total FROM cxp_dt_solicitudes dt INNER JOIN cxp_solicitudes sol ON dt.codemp = sol.codemp AND dt.numsol = sol.numsol INNER JOIN cxp_rd_spg rdspg ON rdspg.codemp = dt.codemp AND rdspg.numrecdoc = dt.numrecdoc AND rdspg.codtipdoc = dt.codtipdoc AND rdspg.ced_bene = dt.ced_bene AND rdspg.cod_pro = dt.cod_pro WHERE sol.codemp='".$_SESSION["la_empresa"]["codemp"]."' AND sol.numsol='".$param["numsol"]."' AND dt.numrecdoc='".$param["numrecdoc"]."' "; $rsComp=$this->io_sql->select($ls_sql2); if($rsComp===false){ $this->io_mensajes->message("CLASE->Report MÉTODO->MonTotLiqAnt ERROR->".$this->io_sql->message); return false; } if(!$rsComp->RecordCount()){return 0;} return $rsComp->fields['total']; } } ?>