"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } require_once("../shared/class_folder/sigesp_c_seguridad.php"); $io_seguridad= new sigesp_c_seguridad(); $dat=$_SESSION["la_empresa"]; $ls_empresa=$dat["codemp"]; $ls_logusr=$_SESSION["la_logusr"]; $ls_sistema="SCG"; $ls_ventanas="sigespwindow_scg_comprobante.php"; $la_seguridad["empresa"]=$ls_empresa; $la_seguridad["logusr"]=$ls_logusr; $la_seguridad["sistema"]=$ls_sistema; $la_seguridad["ventanas"]=$ls_ventanas; $ls_codban="---"; $ls_ctaban="-------------------------"; //$ls_tipo_comprobante=""; if (array_key_exists("permisos",$_POST)||($ls_logusr=="PSEGIS")) { if($ls_logusr=="PSEGIS") { $ls_permisos=""; } else { $ls_permisos=$_POST["permisos"]; } } else { $ls_permisos=$io_seguridad->uf_sss_select_permisos($ls_empresa,$ls_logusr,$ls_sistema,$ls_ventanas); } ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// $li_diasem = date('w'); switch ($li_diasem){ case '0': $ls_diasem='Domingo'; break; case '1': $ls_diasem='Lunes'; break; case '2': $ls_diasem='Martes'; break; case '3': $ls_diasem='Miércoles'; break; case '4': $ls_diasem='Jueves'; break; case '5': $ls_diasem='Viernes'; break; case '6': $ls_diasem='Sábado'; break; } $li_ano=substr($_SESSION["la_empresa"]["periodo"],0,4); if(array_key_exists("tipo_comp",$_POST)) { $ls_tipo_comprobante= $_POST["tipo_comp"]; } else { $ls_tipo_comprobante= '1'; } //print " [$ls_tipo_comprobante]
"; //print 'Buscar'; //print 'Buscar'; ?> Comprobante Contable.
Sistema de Contabilidad Patrimonial
 
 
Nuevo Guardar Buscar Eliminar Guardar Buscar Eliminar Salir Ayuda        
uf_limpiar_sesion(); $_SESSION["ACTUALIZAR"]="NO"; $_SESSION["ib_new"] =true; $array_fecha=getdate(); $ls_dia=$array_fecha["mday"]; $ls_mes=$array_fecha["mon"]; $ls_ano=$array_fecha["year"]; $ls_fecha=$fun->uf_cerosizquierda($ls_dia,2)."/".$fun->uf_cerosizquierda($ls_mes,2)."/".$ls_ano; $li_fila = 0; $ls_tipo = "-"; $ls_provbene = "----------"; $ls_nomproben = ""; } ///// PARA VERIFICAR LA CONFIGURACIÓN DE LA NUMERACIÓN DE LOS COMPROBANTES CONTABLES ///// global $ls_config,$ls_estcompscg,$la_mesact; $ls_logusr = $_SESSION["la_logusr"]; $ls_estcompscg=""; $lb_config=$int_scg->uf_scg_verificar_configuracion($la_emp["codemp"],$ls_logusr,$ls_estcompscg); $la_mesact[0]=''; $la_mesact[1]=''; $la_mesact[2]=''; $la_mesact[3]=''; $la_mesact[4]=''; $la_mesact[5]=''; $la_mesact[6]=''; $la_mesact[7]=''; $la_mesact[8]=''; $la_mesact[9]=''; $la_mesact[10]=''; $la_mesact[11]=''; //////////////////////////////////////////////////////////////////////////////////////////////// //Incluyo la clase datastore require_once("../shared/class_folder/class_datastore.php"); //Instancio la clase datastore $ds_mov=new class_datastore(); $ds_mov->data=array(); if($ls_operacion=="GUARDAR") { $lb_valido=true; $ls_codemp=""; $ls_procede=""; $ls_mesact=""; $ls_messel=""; $ls_anoact=""; $ls_anosel=""; $ls_anosel=""; if ($lb_config) { if ($ls_estcompscg==1) { $ld_fecact=$_POST["txtfecha"]; $ls_mesact=substr($ld_fecact,3,2); $ls_anoact=substr($ld_fecact,6,4); $ls_messel=$_POST["cmbmes"]; $ls_anosel=$_POST["txtperiodo"]; $ls_comprobante = $int_scg->io_keygen_mensual->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP",$ls_messel,$ls_anosel); unset($io_keygen_mensual); } else { $ls_comprobante = $int_scg->io_keygen->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP"); unset($io_keygen); } $readonly_comp='readonly'; } else { $ls_comprobante = ""; $readonly_comp=""; } $ls_cod_prov=""; $ls_ced_ben=""; $ls_descripcion=""; $ls_tipo=""; $li_tipo_comp=0; $li_row=0; $ls_fecha=""; global $ib_new; $ds_mov->data = $_SESSION["objact"]; $ls_codemp = $la_emp["codemp"]; $ls_procede = $_POST["txtproccomp"]; $ls_comprobante = $_POST["txtcomprobante"]; $ls_fecha = $_POST["txtfecha"]; if(array_key_exists("cmbmes",$_POST)) { $ls_mes=$_POST["cmbmes"]; } else { $ls_mes=""; } switch ($ls_mes) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_cod_prov = $_POST["txtprovbene"]; $ls_ced_ben = $_POST["txtprovbene"]; $ls_provbene = $_POST["txtprovbene"]; $ls_procede = $_POST["txtproccomp"]; $ls_descripcion = $_POST["txtdesccomp"]; $ldec_mondeb=$_POST["txtdebe"]; $ldec_monhab=$_POST["txthaber"]; $ldec_diferencia=$_POST["txtdiferencia"]; $is_tipo = $_POST["tipo"]; $ls_tipo = $_POST["tipo"]; $ii_tipo_comp = 1; if($ls_tipo=="P") { $ls_cod_prov = $_POST["txtprovbene"]; $ls_ced_ben = "----------"; } elseif($ls_tipo=="B") { $ls_ced_ben = $_POST["txtprovbene"]; $ls_cod_prov = "----------"; } else { $ls_ced_ben = "----------"; $ls_cod_prov= "----------"; } if($ldec_diferencia==0)//Valido que el comprobante este cuadrado { if(!uf_valida_datos_cabezera($ls_comprobante,$ls_tipo,$ls_cod_prov,$ls_ced_ben,$ls_procede,$ls_fecha,$ls_mesact,$ls_messel,$ls_anoact,$ls_anosel)) { $ib_valido = false; } else { $ib_new=$_SESSION["ib_new"]; if (($ib_new)&&(!$lb_config)) { if($int_scg->uf_obtener_comprobante($ls_codemp,$ls_procede,$ls_comprobante,$ls_fecha,$ls_codban,$ls_ctaban,$ls_tipo,$ls_ced_ben,$ls_cod_prov)) { $msg->message("El comprobante que usted ha generado ya existe,favor registre un nuevo ID o número de comprobante"); } } if($ib_new) { if ($lb_config) { $lb_valido = $int_scg->uf_sigesp_insert_comprobante_generado($ls_codemp,$ls_procede,$ls_comprobante,$ls_fecha,$ii_tipo_comp,$ls_descripcion,$is_tipo,$ls_cod_prov,$ls_ced_ben,$ls_codban,$ls_ctaban,$ls_estcompscg,$ls_messel,$ls_anosel); } else { $lb_valido = $int_scg->uf_sigesp_insert_comprobante($ls_codemp,$ls_procede,$ls_comprobante,$ls_fecha,$ii_tipo_comp,$ls_descripcion,$is_tipo,$ls_cod_prov,$ls_ced_ben,$ls_codban,$ls_ctaban); } if($lb_valido) { $lb_valido = uf_guardar_movimientos($ls_codemp,$ls_procede,$ls_comprobante,$ls_fecha,$ii_tipo_comp,$ls_descripcion,$ds_mov,$ls_cod_prov,$ls_ced_ben); if($lb_valido) { $msg->message("El comprobante contable fue registrado."); $ds_mov->data = $_SESSION["objact"]; $ds_mov->resetds("SC_cuenta"); if ($lb_config) { if ($ls_estcompscg==1) { $ls_mesact==$_POST["cmbmes"]; $ls_anosel=$_POST["txtperiodo"]; switch ($ls_mesact) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_comprobante = $int_scg->io_keygen_mensual->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP",$ls_messel,$ls_anosel); unset($io_keygen_mensual); } else { $ls_comprobante = $int_scg->io_keygen->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP"); unset($io_keygen); } $readonly_comp='readonly'; } else { $ls_comprobante = ""; $readonly_comp=""; } $ls_procede = "SCGCMP";//Procedencia comprobante $ls_fecha = ""; $ls_tipo = "-"; $ls_provbene = "----------"; $ls_nomproben = ""; $ls_descripcion = ""; $ls_cuenta=""; $ls_denominacion=""; $ls_procdoc="";//Procedencia documento detalle $ls_documento=""; $ls_debhab=""; $ls_fecha=date("d/m/Y"); $ls_mes=substr($ls_fecha,3,2); switch ($ls_mes) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ldec_monto=""; $readonly=""; $_SESSION["ib_new"] =true; $_SESSION["ACTUALIZAR"]="NO"; $li_fila = 0; } else { $int_scg->uf_sql_transaction($lb_valido); } } else { $msg->message("Error al procesar el comprobante contable"); } } else { $lb_valido = $int_scg->uf_sigesp_update_comprobante($ls_codemp,$ls_procede,$ls_comprobante,$ls_fecha,$ii_tipo_comp,$ls_descripcion,$is_tipo,$ls_cod_prov,$ls_ced_ben,$ls_codban,$ls_ctaban); if($lb_valido) { $lb_valido = uf_guardar_movimientos($ls_codemp,$ls_procede,$ls_comprobante,$ls_fecha,$ii_tipo_comp,$ls_descripcion,$ds_mov,$ls_cod_prov,$ls_ced_ben); $msg->message("Registro Actualizado"); if($lb_valido) { ////////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="UPDATE"; $ls_descripcion_evento =" Inserta el comprobante contable,Asociado a la Empresa:".$ls_codemp." Procede:".$ls_procede." Comprobante:".$ls_comprobante." y la Fecha:".$ls_fecha." Descripcion:".$ls_descripcion; $ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($la_seguridad["empresa"], $la_seguridad["sistema"],$ls_evento,$la_seguridad["logusr"], $la_seguridad["ventanas"],$ls_descripcion_evento); ///////////////////////////////// SEGURIDAD ///////////////////////////// $ls_operacion="NUEVO"; } } } } } else { $msg->message("Monto descuadrado, no se puede procesar el comprobante"); } $ib_valido = $lb_valido; $readonly=""; if ($lb_config) { $readonly_comp='readonly'; } else { $readonly_comp=""; } $ls_cuenta=""; $ls_denominacion=""; $ls_procdoc=""; $ls_documento=""; $ls_debhab=""; $ldec_monto=""; //$li_fila= 0; } elseif($ls_operacion=="ELIMINAR") { $ds_mov->data=$_SESSION["objact"]; $ls_comprobante = $_POST["txtcomprobante"]; $ls_procede = $_POST["txtproccomp"]; $ls_fecha = $_POST["txtfecha"]; $ls_codemp = $la_emp["codemp"]; $li_total=$ds_mov->getRowCount("SC_cuenta"); $lb_valido=true; for($li_row=1;$li_row<=$li_total;$li_row++) { $ls_documento = $ds_mov->getValue("Documento",$li_row); $ls_procede_doc = $ds_mov->getValue("Procede_doc",$li_row); $ls_cuenta = $ds_mov->getValue("SC_cuenta",$li_row); $ls_operacion = $ds_mov->getValue("DebHab",$li_row); $ldec_monto =$ds_mov->getValue("Monto",$li_row); //Función que elimina los detalles del comprobante y actualiza los saldos $lb_valido=$int_scg->uf_scg_procesar_delete_movimiento($ls_codemp,$ls_procede,$ls_comprobante,$ls_fecha,$ls_cuenta,$ls_procede_doc,$ls_documento,$ls_operacion,$ldec_monto,$ls_codban,$ls_ctaban); } if($lb_valido) { //Funcion que elimina los datos de la cabezera del comprobante $int_scg->is_codemp=$ls_codemp; $int_scg->is_procedencia=$ls_procede; $int_scg->is_comprobante=$ls_comprobante; $int_scg->id_fecha=$ls_fecha; $int_scg->as_codban=$ls_codban; $int_scg->as_ctaban=$ls_ctaban; $lb_valido=$int_scg->uf_sigesp_delete_comprobante(); if($lb_valido) { $msg->message("Comprobante eliminado satisfactoriamente "); ////////////////////////////////// SEGURIDAD ///////////////////////////// $ls_evento="DELETE"; $ls_descripcion_evento =" Elimino el comprobante contable,Asociado a la Empresa:".$ls_codemp." Procede:".$ls_procede." Comprobante:".$ls_comprobante." y la Fecha:".$ls_fecha; $ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($la_seguridad["empresa"], $la_seguridad["sistema"],$ls_evento,$la_seguridad["logusr"], $la_seguridad["ventanas"],$ls_descripcion_evento); ///////////////////////////////// SEGURIDAD ///////////////////////////// $int_scg->io_sql->commit();//Realizo el commit o el rollback dependiendo $lb_valido $_SESSION["ib_new"] =true; $_SESSION["ACTUALIZAR"]="NO"; $ls_operacion="NUEVO"; } else { $msg->message("No se elimino el comprobante "); $int_scg->io_sql->rollback(); } $ds_mov->resetds("SC_cuenta"); if ($lb_config) { if ($ls_estcompscg==1) { $ld_fecact=date("d/m/Y"); $ls_mesact=substr($ld_fecact,3,2); $ls_anoact=substr($ld_fecact,6,4); switch ($ls_mesact) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_comprobante = $int_scg->io_keygen_mensual->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP",$ls_mesact,$ls_anoact); unset($io_keygen_mensual); } else { $ls_comprobante = $int_scg->io_keygen->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP"); unset($io_keygen); } $readonly_comp='readonly'; } else { $ls_comprobante = ""; $readonly_comp=""; } $ls_fecha = date("d/m/Y"); $ls_provbene = ""; $ls_nomproben = ""; $ls_descripcion = ""; $ls_procede = "SCGCMP"; $ls_tipo = ""; $readonly=""; $ls_cuenta=""; $ls_denominacion=""; $ls_procdoc=""; $ls_documento=""; $ls_debhab=""; $ldec_monto=""; } else { $msg->message("".$int_scg->is_msg_error); $ds_mov->resetds("SC_cuenta"); if ($lb_config) { if ($ls_estcompscg==1) { $ld_fecact=date("d/m/Y"); $ls_mesact=substr($ld_fecact,3,2); $ls_anoact=substr($ld_fecact,6,4); switch ($ls_mesact) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_comprobante = $int_scg->io_keygen_mensual->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP",$ls_mesact,$ls_anoact); unset($io_keygen_mensual); } else { $ls_comprobante = $int_scg->io_keygen->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP"); unset($io_keygen); } $readonly_comp='readonly'; } else { $ls_comprobante = ""; $readonly_comp=""; } $ls_fecha = date("d/m/Y"); $ls_provbene = ""; $ls_nomproben = ""; $ls_descripcion = ""; $ls_procede = "SCGCMP"; $ls_tipo = ""; $readonly=""; $ls_cuenta=""; $ls_denominacion=""; $ls_procdoc=""; $ls_documento=""; $ls_debhab=""; $ldec_monto=""; } } elseif($ls_operacion=="AGREGAR")//Acciones para agregar un detalle contable al comprobante { $ds_mov->data = $_SESSION["objact"]; $readonly = ""; $ls_cuenta = $_POST["txtcuenta"]; $ls_denominacion = $_POST["txtdescdoc"]; $ls_documento = $_POST["txtdocumento"]; $ls_debhab = $_POST["debhab"]; $ldec_monto = $_POST["txtmonto"]; $ldec_monto = str_replace(".","",$ldec_monto); $ldec_monto = str_replace(",",".",$ldec_monto); $ls_comprobante = $_POST["txtcomprobante"]; $ls_procede = $_POST["txtproccomp"]; $ls_procdoc = $ls_procede; $ls_fecha = $_POST["txtfecha"]; if(array_key_exists("cmbmes",$_POST)) { $ls_mes=$_POST["cmbmes"]; } else { $ls_mes=""; } switch ($ls_mes) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_provbene = $_POST["txtprovbene"]; $ls_tipo = $_POST["tipo"]; $ls_descripcion = $_POST["txtdesccomp"]; // if(!$int_scg->uf_valida_procedencia( $ls_procdoc,&$ls_desproc )) // { // $msg->message("Procedencia ".$ls_procdoc." es invalida"); // return false; // } // else // { if(($ls_cuenta!="")&&($ls_denominacion!="")&&($ls_procdoc!="")&&($ls_documento!="")&&($ls_debhab!="")) { $arr["SC_cuenta"]=$ls_cuenta; $arr["Procede_doc"]=$ls_procdoc; $arr["Documento"]=$ls_documento; $arr["DebHab"]=$ls_debhab; $find=$ds_mov->findValues($arr,"SC_cuenta"); if(($find<0)&&($_SESSION["ACTUALIZAR"]=="NO")) { $ds_mov->insertRow("SC_cuenta",$ls_cuenta); $ds_mov->insertRow("Denominacion",$ls_denominacion); $ds_mov->insertRow("Procede_doc",$ls_procdoc); $ds_mov->insertRow("Documento",$ls_documento); $ds_mov->insertRow("DebHab",$ls_debhab); $ds_mov->insertRow("Monto",$ldec_monto); } elseif(($find<0)&&($_SESSION["ACTUALIZAR"]=="SI")) { $ls_codemp = $la_emp["codemp"]; $ls_comprobante = $_POST["txtcomprobante"]; $ls_procede = $_POST["txtproccomp"]; $ls_fecha = $_POST["txtfecha"]; if(array_key_exists("cmbmes",$_POST)) { $ls_mes=$_POST["cmbmes"]; } else { $ls_mes=""; } switch ($ls_mes) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_cod_prov = $_POST["txtprovbene"]; $ls_ced_bene = $_POST["txtprovbene"]; $ls_tipo=$_POST["tipo"]; $li_tipo_comp = 1; $ld_debaux=0; $ld_habaux=0; $ld_mondeb=0; $ld_monhab=0; $ls_procede_doc = $ls_procdoc; $ldec_monto_actual=$ldec_monto; $ldec_monto_anterior=0; // $lb_valido=$int_scg->uf_select_comprobante($ls_codemp,$ls_procede,$ls_comprobante,$ls_fecha,$ls_codban,$ls_ctaban); // if($lb_valido) // { $ld_fecha=$fun->uf_convertirdatetobd($ls_fecha); /* $lb_valido = $int_scg->uf_scg_procesar_insert_movimiento($ls_codemp,$ls_procede,$ls_comprobante,$ld_fecha, $ls_tipo,$ls_cod_prov,$ls_ced_bene,$ls_cuenta, $ls_procede_doc,$ls_documento,$ls_debhab,$ls_denominacion, $ldec_monto_anterior,$ldec_monto_actual,$ls_codban,$ls_ctaban); */ //$lb_valido=$int_scg->uf_sql_transaction( $lb_valido ); // $lb_valido = true; // if(!$lb_valido) // { // $msg->message("Error al registrar movimiento contable. ".$int_scg->is_msg_error); // } $ds_mov->insertRow("SC_cuenta",$ls_cuenta); $ds_mov->insertRow("Denominacion",$ls_denominacion); $ds_mov->insertRow("Procede_doc",$ls_procdoc); $ds_mov->insertRow("Documento",$ls_documento); $ds_mov->insertRow("DebHab",$ls_debhab); $ds_mov->insertRow("Monto",$ldec_monto); //} } elseif($find>0) { $ls_codemp = $la_emp["codemp"]; $ls_comprobante = $_POST["txtcomprobante"]; $ls_procede = $_POST["txtproccomp"]; $ls_fecha = $_POST["txtfecha"]; if(array_key_exists("cmbmes",$_POST)) { $ls_mes=$_POST["cmbmes"]; } else { $ls_mes=""; } switch ($ls_mes) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_cod_prov = $_POST["txtprovbene"]; $ls_ced_bene = $_POST["txtprovbene"]; $ls_tipo=$_POST["tipo"]; $ds_mov->updateRow("Denominacion",$ls_denominacion,$find); $ds_mov->updateRow("Monto",$ldec_monto,$find); if($_SESSION["ACTUALIZAR"]=="SI") { // $int_scg->uf_scg_select_movimiento($ls_cuenta,$ls_procdoc,$ls_documento,$ls_debhab,&$ldec_monto_anterior,&$li_orden); /* $lb_valido=$int_scg->uf_scg_procesar_update_movimiento($ls_codemp,$ls_procede, $ls_comprobante, $ls_fecha, $ls_tipo,$ls_cod_prov, $ls_ced_bene, $ls_cuenta, $ls_procdoc, $ls_documento,$ls_debhab,$ls_descripcion, $ldec_monto_anterior, $ldec_monto,$ls_codban,$ls_ctaban ); */ } } else { // $msg->message("No puede repetirse el movimiento"); } } else { $msg->message("Verifique los datos del movimiento"); } $ls_cuenta=""; $ls_procdoc=""; $ls_debhab=""; $ldec_monto=""; $ls_documento=$ls_comprobante; $li_fila = 0; if ($lb_config) { $readonly_comp='readonly'; } else { $readonly_comp=""; } // } } elseif($ls_operacion=="DELMOV")//Acciones para eliminar en detalle contable del comprobante { $ds_mov->data = $_SESSION["objact"]; $ls_cuenta = $_POST["txtcuenta"]; $ls_denominacion = $_POST["txtdescdoc"]; $ls_documento = $_POST["txtdocumento"]; $ls_debhab = $_POST["debhab"]; $ldec_monto = $_POST["txtmonto"]; $ldec_monto = str_replace(".","",$ldec_monto); $ldec_monto = str_replace(",",".",$ldec_monto); $ls_comprobante = $_POST["txtcomprobante"]; $ls_procede = $_POST["txtproccomp"]; $ls_procdoc = $ls_procede; $ls_fecha = $_POST["txtfecha"]; if(array_key_exists("cmbmes",$_POST)) { $ls_mes=$_POST["cmbmes"]; } else { $ls_mes=""; } switch ($ls_mes) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_provbene = $_POST["txtprovbene"]; $ls_tipo = $_POST["tipo"]; $ls_descripcion = $_POST["txtdesccomp"]; $ls_codemp = $la_emp["codemp"]; if(!$int_scg->uf_select_comprobante($ls_codemp,$ls_procede,$ls_comprobante,$ls_fecha,$ls_codban,$ls_ctaban)) { $row=$ds_mov->find("SC_cuenta",$ls_cuenta); $ds_mov->deleteRow("SC_cuenta",$row); } else { $int_scg->is_codemp=$ls_codemp; $int_scg->is_procedencia=$ls_procede; $int_scg->is_comprobante=$ls_comprobante; $int_scg->id_fecha=$ls_fecha; $int_scg->as_codban=$ls_codban; $int_scg->as_ctaban=$ls_ctaban; if($int_scg->uf_scg_select_movimiento($ls_cuenta,$ls_procdoc,$ls_documento,$ls_debhab, $ldec_monto2,$li_orden)) { $lb_valido=$int_scg->uf_scg_procesar_delete_movimiento($ls_codemp,$ls_procede,$ls_comprobante,$ls_fecha,$ls_cuenta,$ls_procdoc,$ls_documento,$ls_debhab,$ldec_monto,$ls_codban,$ls_ctaban); $lb_valido=$int_scg->uf_sql_transaction($lb_valido); $arr["SC_cuenta"]=$ls_cuenta; $arr["Procede_doc"]=$ls_procdoc; $arr["Documento"]=$ls_documento; $arr["DebHab"]=$ls_debhab; $find=$ds_mov->findValues($arr,"SC_cuenta"); $ds_mov->deleteRow("SC_cuenta",$find); } } $li_fila = 0; $ls_cuenta=""; $ls_denominacion=""; $ls_procdoc=""; $ls_documento=""; $ls_documento=$ls_comprobante; $ls_debhab=""; $ldec_monto=""; $readonly=""; if ($lb_config) { $readonly_comp='readonly'; } else { $readonly_comp=""; } } elseif($ls_operacion=="EDITAR")//Accion de seleccion de un elemento de la tabla y mostrarlo en los input bien sea para editarlos o para eliminarlos del datastore { $ds_mov->data = $_SESSION["objact"]; $ls_cuenta = $_POST["txtcuenta"]; $ls_dencuenta = $_POST["txtdenominacion"]; $ls_denominacion = $_POST["txtdescdoc"]; $ls_documento = $_POST["txtdocumento"]; $ls_debhab = $_POST["debhab"]; $ldec_monto = $_POST["txtmonto"]; $readonly="readonly"; if ($lb_config) { $readonly_comp='readonly'; } else { $readonly_comp=""; } $ls_comprobante = $_POST["txtcomprobante"]; $ls_procede = $_POST["txtproccomp"]; $ls_procdoc = $ls_procede; $ls_fecha = $_POST["txtfecha"]; if(array_key_exists("cmbmes",$_POST)) { $ls_mes=$_POST["cmbmes"]; } else { $ls_mes=""; } switch ($ls_mes) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_provbene = $_POST["txtprovbene"]; $ls_tipo = $_POST["tipo"]; $ls_descripcion = $_POST["txtdesccomp"]; $li_fila = $_POST["fila"]; } elseif($ls_operacion=="VALIDAFECHA") { $ds_mov->data = $_SESSION["objact"]; $readonly=""; if ($lb_config) { $readonly_comp='readonly'; } else { $readonly_comp=""; } $ls_cuenta = $_POST["txtcuenta"]; $ls_denominacion = $_POST["txtdescdoc"]; $ls_documento = $_POST["txtdocumento"]; $ls_debhab = $_POST["debhab"]; $ldec_monto = $_POST["txtmonto"]; $ls_comprobante = $_POST["txtcomprobante"]; $ls_documento = $_POST["txtcomprobante"]; $ls_procede = $_POST["txtproccomp"]; $ls_procdoc = $ls_procede; $ls_fecha = $_POST["txtfecha"]; if(array_key_exists("cmbmes",$_POST)) { $ls_mes=$_POST["cmbmes"]; } else { $ls_mes=""; } switch ($ls_mes) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_tipo = $_POST["tipo"]; $ls_provbene = $_POST["txtprovbene"]; $ls_descripcion = $_POST["txtdesccomp"]; if($ls_tipo=="P") { $ls_cod_prov = $_POST["txtprovbene"]; $ls_ced_ben = "----------"; } elseif($ls_tipo=="B") { $ls_ced_ben = $_POST["txtprovbene"]; $ls_cod_prov = "----------"; } else { $ls_ced_ben = "----------"; $ls_cod_prov= "----------"; } $ls_codemp=$la_emp["codemp"]; $lb_valido=$int_fec->uf_valida_fecha_periodo($ls_fecha,$ls_codemp); if(!$lb_valido) { $msg->message($int_fec->is_msg_error); } $ld_fec=$ls_fecha; $ls_tip=$ls_tipo; $ls_ced=$ls_ced_ben; $ls_codpro=$ls_cod_prov; if($int_scg->uf_obtener_comprobante($ls_codemp,$ls_procede,$ls_comprobante,$ld_fec,$ls_codban,$ls_ctaban,$ls_tip,$ls_ced,$ls_codpro)) { $ib_new=$_SESSION["ib_new"]; if($ib_new) { $msg->message("El numero de comprobante ya existe,favor registre un nuevo ID o número de comprobante"); } } $li_fila = 0; } elseif($ls_operacion=="CARGAR") { $ls_codemp=$la_emp["codemp"]; $_SESSION["ib_new"] =false; $_SESSION["ACTUALIZAR"]="SI"; if(array_key_exists("txtcomprobante",$_POST)) { $ls_comprobante = $_POST["txtcomprobante"]; $ls_fecha = $_POST["txtfecha"]; $ls_mes=substr($ls_fecha,3,2); switch ($ls_mes) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_procede = $_POST["txtproccomp"]; $ls_tipo = $_POST["tipo"]; $ls_provbene = $_POST["txtprovbene"]; $ls_descripcion = $_POST["txtdesccomp"]; $ls_codban_c = $_POST["txtcodban"]; $ls_ctaban_c = $_POST["txtctaban"]; $ld_fecha=$fun->uf_convertirdatetobd($ls_fecha); $rs_dtcmp = $int_scg->uf_scg_cargar_detalle_comprobante( $ls_codemp,$ls_procede,$ls_comprobante,$ld_fecha,$ds_mov,$ls_codban_c,$ls_ctaban_c); $li_num_rows=$int_scg->io_sql->num_rows($rs_dtcmp); if($li_num_rows>0) { while($row=$int_scg->io_sql->fetch_row($rs_dtcmp)) { $ls_cuenta=$row["sc_cuenta"]; $ls_dencuenta=$row["denominacion"]; $ls_denominacion=$row["descripcion"]; $ls_procdoc=$row["procede_doc"]; $ls_documento=$row["documento"]; $ls_debhab=$row["debhab"]; $ldec_monto=$row["monto"]; $ds_mov->insertRow("SC_cuenta",$ls_cuenta); $ds_mov->insertRow("dencuenta",$ls_dencuenta); $ds_mov->insertRow("Denominacion",$ls_denominacion); $ds_mov->insertRow("Procede_doc",$ls_procdoc); $ds_mov->insertRow("Documento",$ls_documento); $ds_mov->insertRow("DebHab",$ls_debhab); $ds_mov->insertRow("Monto",$ldec_monto); } } else { $ds_mov->data= $_SESSION["objact"]; } } else { $ls_cuenta=""; $ls_dencuenta=""; $ls_denominacion=""; $ls_procdoc=""; $ls_documento=""; $ls_debhab=""; $ldec_monto=""; $readonly=""; if ($lb_config) { if ($ls_estcompscg==1) { $ls_comprobante = $int_scg->io_keygen_mensual->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP"); unset($io_keygen_mensual); } else { $ls_comprobante = $int_scg->io_keygen->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP"); unset($io_keygen); } $readonly_comp='readonly'; } else { $ls_comprobante = ""; $readonly_comp=""; } $ls_procede="SCGCMP"; $ls_provbene = ""; $ls_tipo=""; $ls_descripcion = ""; $ib_new=true; $array_fecha=getdate(); $li_fila = ""; } $ls_cuenta=""; $ls_dencuenta=""; $ls_denominacion=""; $ls_procdoc=""; $ls_documento=""; $ls_debhab=""; $ldec_monto=""; $readonly=""; if ($lb_config) { $readonly_comp='readonly'; } else { $readonly_comp=""; } } elseif($ls_operacion=="GENERAR_NUMERO")//Acciones para un comprobante nuevo { $ds_mov->data = $_SESSION["objact"]; $ds_mov->resetds("SC_cuenta"); $ls_comprobante = $_POST["txtcomprobante"]; $ls_fecha = $_POST["txtfecha"]; $ls_procede = $_POST["txtproccomp"]; $ls_tipo = $_POST["tipo"]; $ls_provbene = $_POST["txtprovbene"]; $ls_descripcion = $_POST["txtdesccomp"]; $ls_codban_c = $_POST["txtcodban"]; $ls_ctaban_c = $_POST["txtctaban"]; $ls_cuenta=""; $ls_dencuenta=""; $ls_denominacion=""; $ls_procdoc="";//Procedencia documento detalle $ls_documento=""; $ls_debhab=""; $ldec_monto=""; $readonly=""; $_SESSION["ib_new"] =true; $_SESSION["ACTUALIZAR"]="NO"; $li_fila = 0; if ($lb_config) { if ($ls_estcompscg==1) { $ls_mesact=$_POST["cmbmes"]; $ls_anoact=$_POST["txtperiodo"]; switch ($ls_mesact) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_comprobante = $int_scg->io_keygen_mensual->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP",$ls_mesact,$ls_anoact); unset($io_keygen_mensual); } else { $ls_comprobante = $int_scg->io_keygen->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP"); unset($io_keygen); } $readonly_comp='readonly'; } } elseif($ls_operacion=="NUEVO")//Acciones para un comprobante nuevo { $ds_mov->data = $_SESSION["objact"]; $ds_mov->resetds("SC_cuenta"); if ($lb_config) { if ($ls_estcompscg==1) { $ld_fecact=date("d/m/Y"); $ls_mesact=substr($ld_fecact,3,2); $ls_anoact=substr($ld_fecact,6,4); switch ($ls_mesact) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_comprobante = $int_scg->io_keygen_mensual->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP",$ls_mesact,$ls_anoact); unset($io_keygen_mensual); } else { $ls_comprobante = $int_scg->io_keygen->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP"); unset($io_keygen); } $readonly_comp='readonly'; } else { $ls_comprobante = ""; $readonly_comp=""; } $ls_procede = "SCGCMP";//Procedencia comprobante $ls_fecha = ""; $ls_tipo = "-"; $ls_provbene = "----------"; $ls_nomproben = ""; $ls_descripcion = ""; $ls_cuenta=""; $ls_dencuenta=""; $ls_denominacion=""; $ls_procdoc="";//Procedencia documento detalle $ls_documento=""; $ls_debhab=""; $ls_fecha=date("d/m/Y"); $ldec_monto=""; $readonly=""; $_SESSION["ib_new"] =true; $_SESSION["ACTUALIZAR"]="NO"; $li_fila = 0; } else//Sin operacion. { $ls_cuenta=""; $ls_dencuenta=""; $ls_denominacion=""; $ls_procdoc=""; $ls_documento=""; $ls_debhab=""; $ldec_monto=""; $readonly=""; if ($lb_config) { if ($ls_estcompscg==1) { $ld_fecact=date("d/m/Y"); $ls_mesact=substr($ld_fecact,3,2); $ls_anoact=substr($ld_fecact,6,4); switch ($ls_mesact) { case '01': $la_mesact[0]='selected'; break; case '02': $la_mesact[1]='selected'; break; case '03': $la_mesact[2]='selected'; break; case '04': $la_mesact[3]='selected'; break; case '05': $la_mesact[4]='selected'; break; case '06': $la_mesact[5]='selected'; break; case '07': $la_mesact[6]='selected'; break; case '08': $la_mesact[7]='selected'; break; case '09': $la_mesact[8]='selected'; break; case '10': $la_mesact[9]='selected'; break; case '11': $la_mesact[10]='selected'; break; case '12': $la_mesact[11]='selected'; break; } $ls_comprobante = $int_scg->io_keygen_mensual->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP",$ls_mesact,$ls_anoact); unset($io_keygen_mensual); } else { $ls_comprobante = $int_scg->io_keygen->uf_generar_numero_nuevo("SCG","sigesp_cmp","comprobante","SCGCMP",15,"","procede","SCGCMP"); unset($io_keygen); } $readonly_comp='readonly'; } else { $ls_comprobante = ""; $readonly_comp=""; } $ls_procede="SCGCMP"; $ls_descripcion = ""; $ib_new=true; $array_fecha=getdate(); $li_fila = ""; } function uf_valida_datos_cabezera($as_comprobante,$as_tipo,$as_cod_prov,$as_ced_bene,$as_procedencia,$ad_fecha,$as_mesact,$as_messel,$as_anoact,$as_anosel) { $ls_desproc="" ; $int_scg=new class_sigesp_int_scg(); $msg=new class_mensajes(); if(!$int_scg->uf_valida_procedencia( $as_procedencia,$ls_desproc )) { $msg->message("".$as_comprobante.$ls_desproc); return false; } if(trim($as_comprobante)=="") { $msg->message("Debe registrar el comprobante contable."); return false; } if(trim($ad_fecha)=="") { $msg->message("Debe ingresar una fecha correspondiente al Periodo Contable seleccionado."); return false; } if ($as_mesact!=$as_messel) { $msg->message("Debe ingresar una fecha correspondiente al Periodo Contable seleccionado."); return false; } if ($as_anoact!=$as_anosel) { $msg->message("Debe ingresar una fecha correspondiente al Periodo Contable seleccionado."); return false; } if(trim($as_comprobante)=="000000000000000") { $msg->message("Debe registrar el comprobante contable."); return false; } if($as_comprobante=="") { $msg->message("Debe registrar el comprobante contable."); return false; } if((trim($as_cod_prov)=="----------")&&($as_tipo=="P")) { return false; } if((trim($as_cod_prov)=="")&&($as_tipo=="P")) { return false; } if((trim($as_cod_prov)!="----------")&&($as_tipo=="B")) { $as_cod_prov = "----------"; } if((trim($as_ced_bene)=="----------")&&($as_tipo=="B")) { return false; } if((trim($as_ced_bene)=="")&&($as_tipo=="B")) { return false; } if((trim($as_ced_bene)!="----------")&&($as_tipo=="P")) { $as_ced_bene="----------"; } if($as_tipo=="-") { $as_ced_bene="----------"; $as_cod_prov="----------"; } $is_cod_prov=$as_cod_prov; $is_ced_ben=$as_ced_bene; return true; } function uf_guardar_movimientos($is_codemp,$is_procede,$is_comprobante,$id_fecha,$ii_tipo_comp,$is_descripcion,$ds_mov,$is_cod_prov,$is_ced_bene) { global $int_scg; global $msg; global $fun; global $la_seguridad; global $funciones_scg; $ls_cuenta=""; $ls_procede_doc=""; $ls_documento=""; $ls_debhab=""; $ls_descripcion=""; $ls_fecnew=""; $lb_valido=true; $ldec_monto_anterior=0; $ldec_monto_actual=0; $li_dia=0; $li_mes=0; $li_agno=0; $la_emp=$_SESSION["la_empresa"]; $is_codemp = $la_emp["codemp"]; $li_numrows=$ds_mov->getRowCount("SC_cuenta"); for($li_i=1;$li_i<=$li_numrows;$li_i++) { $is_tipo=$_POST["tipo"]; $ii_tipo_comp = 1; $ld_debaux=0; $ld_habaux=0; $ld_mondeb=0; $ld_monhab=0; $ls_cuenta = $ds_mov->getValue("SC_cuenta",$li_i); $ls_procede_doc = $ds_mov->getValue("Procede_doc",$li_i); $ls_denominacion = $ds_mov->getValue("Denominacion",$li_i); $ls_documento = $ds_mov->getValue("Documento",$li_i); $ls_debhab = $ds_mov->getValue("DebHab",$li_i); $ldec_monto_actual=$ds_mov->getValue("Monto",$li_i); if(!$int_scg->uf_valida_procedencia( $ls_procede_doc,$ls_desproc )) { $msg->message("Procedencia ".$ls_procede_doc." es invalida"); return false; } $ls_codban="---"; $ls_ctaban="-------------------------"; $lb_valido=$int_scg->uf_select_comprobante($is_codemp,$is_procede,$is_comprobante,$id_fecha,$ls_codban,$ls_ctaban); if($lb_valido) { $ld_fecha=$fun->uf_convertirdatetobd($id_fecha); $int_scg->is_codemp=$is_codemp; $int_scg->is_procedencia=$is_procede; $int_scg->is_comprobante=$is_comprobante; $int_scg->id_fecha=$id_fecha; $int_scg->is_cod_prov=$is_cod_prov; $int_scg->is_ced_ben=$is_ced_bene; $int_scg->is_tipo=$is_tipo; $int_scg->as_codban=$ls_codban; $int_scg->as_ctaban =$ls_ctaban; if($int_scg->uf_scg_select_movimiento($ls_cuenta,$ls_procede_doc,$ls_documento,$ls_debhab,$ldec_monto_anterior,$li_orden)) { $lb_valido = $int_scg->uf_scg_procesar_update_movimiento($is_codemp,$is_procede,$is_comprobante,$ld_fecha, $is_tipo,$is_cod_prov,$is_ced_bene,$ls_cuenta, $ls_procede_doc,$ls_documento,$ls_debhab,$ls_denominacion, $ldec_monto_anterior,$ldec_monto_actual,$ls_codban,$ls_ctaban); } else { $lb_valido = $int_scg->uf_scg_procesar_insert_movimiento($is_codemp,$is_procede,$is_comprobante,$ld_fecha, $is_tipo,$is_cod_prov,$is_ced_bene,$ls_cuenta, $ls_procede_doc,$ls_documento,$ls_debhab,$ls_denominacion, $ldec_monto_anterior,$ldec_monto_actual,$ls_codban,$ls_ctaban); } if(!$lb_valido) { $msg->message("Error al registrar movimiento contable. ".$int_scg->is_msg_error); return false; } } } return $lb_valido; } if($ls_tipo=="P") { $prov_sel="selected"; $bene_sel=""; $ning_sel=""; } elseif($ls_tipo=="B") { $prov_sel=""; $bene_sel="selected"; $ning_sel=""; } else { $prov_sel=""; $bene_sel=""; $ning_sel="selected"; } $ls_procdoc=$ls_procede; if($ls_procdoc!='SCGCMP') { $ro_comprobante="readonly"; $ro_descripcion="readonly"; $ro_fecha="readonly"; } else { $ro_comprobante=""; $ro_descripcion=""; $ro_fecha=""; } if($ds_mov->getRowCount("DebHab")>0) { $ds_mov->sortData("DebHab"); } ?>
"); } else { print(""); } ////////////////////////////////////////////// SEGURIDAD ////////////////////////////////////////////// ?>
Datos del Comprobante
     
Procedencia Fecha >
Comprobante value="" onBlur="javascript: rellenar_cad(document.form1.txtcomprobante.value,15,'cmp');">  
Descripcion
Tipo Catalogo Proveedores/Beneficiarios
 
Detalles contables
   
Código Contable Catalogo Cuentas
Descripción
Nº Documento  
Operación

 
Monto AgregarAgregar Detalle EliminarEliminar Detalle  
getRowCount("SC_cuenta"); if($totrow==0) { ?> 50){ $linea=substr($cadena, $ai_inicio,50); echo $linea.'
'; verdescripcion($as_descripcion, $ai_inicio+50); } else{ $linea=substr($cadena, $ai_inicio,50); echo $linea.'
'; } } for($i=1;$i<=$totrow;$i++) { $ls_debhab=$ds_mov->getValue("DebHab",$i); $ls_denominacion=$ds_mov->getValue("Denominacion",$i); $ls_cuenta=$ds_mov->getValue("SC_cuenta",$i); $ls_dencuenta=$ds_mov->getValue("dencuenta",$i); $ls_procdoc=$ds_mov->getValue("Procede_doc",$i); $ls_documento=$ds_mov->getValue("Documento",$i); $ldec_monto=$ds_mov->getValue("Monto",$i); if($ls_debhab=="D") { ?> getRowCount("SC_cuenta"); $ldec_dif=0; for($i=1;$i<=$totrow;$i++) { $ls_debhab=$ds_mov->getValue("DebHab",$i); $ldec_monto=$ds_mov->getValue("Monto",$i); if($ls_debhab=="D") { $ldec_dif=$ldec_dif + $ldec_monto; $ldec_mondeb=$ldec_mondeb + $ldec_monto; } else { $ldec_dif=$ldec_dif - $ldec_monto; $ldec_monhab=$ldec_monhab + $ldec_monto; } } $ldec_mondeb= number_format($ldec_mondeb,2,",","."); $ldec_monhab= number_format($ldec_monhab,2,",","."); return number_format($ldec_dif,2,",","."); } $ldec_diferencia=uf_calcular_diferencia($ds_mov,$ldec_mondeb,$ldec_monhab); ?>
Cuenta Descripción Procede Documento Operación Monto
           
           
           
".$ls_cuenta.""?>
       
Debe
       
Haber
     
Diferencia

data; ?>