$aa
"); $bb="ALTER TABLE $EEE"."XF3 AUTO_INCREMENT=1"; $grabar=mysql_query($bb); if (!$grabar) die("$bb
"); //----------------- Lectura de la tabla APL (Aplicaciones) del CRM 701 ------------------ $NomAplic='GWT1'. $BD . $EEE; $Dominio=$_SERVER["SERVER_NAME"]; if($Dominio!='www.net2client.net') { require("rutinas/abrir701.php"); } $q = "SELECT APLCodigo,APLEnlace1,APLEnlace4 FROM 701APL WHERE APLNombre='$NomAplic' AND APLLinea2='$Dominio' ORDER BY APLCodigo"; $LectA = mysql_query($q); $CantA = mysql_num_rows($LectA); if ($CantA==0){ die("La aplicación no está registrada en la tabla de Aplicaciones
"); } $rowA = mysql_fetch_assoc($LectA); $CodAplic=$rowA[APLCodigo]; $Empresa=$rowA[APLEnlace1]; $OPC=$rowA[APLEnlace4]; $Aplicacion = $CodAplic . " - " . $NomAplic; $Estado='2-Facturada'; //----------------- Lectura de la tabla FAC (Facturas) del CRM 701 ------------------ $q = "SELECT FACCodigo,FACBloque2,FACCant2,FACMonto9,FACLista3,FACLinea1 FROM 701FAC WHERE FACLinea4='$Aplicacion' AND FACLista4='$Estado' AND FACLink1_AR1='$Empresa' AND FACEnlace4='$OPC' ORDER BY FACCodigo"; $LectF = mysql_query($q); $CantF = mysql_num_rows($LectF); if ($CantF==0){ die("No existen facturas pendientes por pagar
"); } for ($i=0; $i<$CantF; $i++){ $rowF = mysql_fetch_assoc($LectF); $Concepto=$rowF[FACBloque2]; $NroMensajes=$rowF[FACCant2]; $TotalCosto=$rowF[FACMonto9]; $Moneda=$rowF[FACLista3]; $NroFactura=$rowF[FACLinea1]; $ConceptoF[]=$Concepto; $NroMensajesF[]=$NroMensajes; $TotalCostoF[]=$TotalCosto; $MonedaF[]=$Moneda; $NroFacturaF[]=$NroFactura; $ContFact=$ContFact+1; } if (!defined('N2CBD')) define('N2CBD', $BD); require("rutinas/cerrar701.php"); require_once("basedatos/abrir.php"); if (abrir("$BD","")!=1) die("Stoping execution. Could not open database
"); //----------------- Generación Registros con datos de la Factura en la tabla XF3 ------------------ for ($n=0; $n<$ContFact; $n++) { $cc="INSERT INTO $EEE"."XF3 (XF3CodAgente,XF3Bloque1,XF3Cant1,XF3Monto1,XF3Lista1,XF3Linea1) VALUES ('$CookieAGENTE','$ConceptoF[$n]','$NroMensajesF[$n]','$TotalCostoF[$n]','$MonedaF[$n]','$NroFacturaF[$n]')"; //echo "$cc$cc
"); } //----------------- Generación Reporte de Facturas de Compras de Mensajes sin pagar ------------------ ?>