function updateCGAGpo($idGrupo, $forzarMov = 0)
{
$db = new DB_Sql();
$db->connect("MscCobranza", "localhost", "root", "");
$db2 = new DB_Sql();
$db2->connect("MscCobranza", "localhost", "root", "");
$db3 = new DB_Sql();
$db3->connect("MscCobranza", "localhost", "root", "");
//echo "Gpo:$idGrupo || forzaMov:$forzarMov <br>";
// ---------------------------------
// PROCESO PARA ACTUALIZAR LAS C.G.A
// ---------------------------------
$ano = date("Y");
$anoAnt = $ano - 1;
$grupo = getValueTable("grupo", "D_GRUPO", "id_grupo", $idGrupo);
$cgaAct = getValueTable("cga", "D_GRUPO", "id_grupo", $idGrupo);
$cgaOld = getValueTable("cga_old", "D_GRUPO", "id_grupo", $idGrupo);
// * DETECTAR REGISTROS DEL CLIENTE
$sql2 = "select a.id_calculo as IDCALCULO, a.carta_g as CGACAL, a.id_bl_conte as IDBLCONTE ";
$sql2 .= "from D_CALCULO a, D_CLIENTE b ";
$sql2 .= "where ";
$sql2 .= "a.id_cliente=b.id_cliente and b.id_grupo='{$idGrupo}' and ";
if ($forzarMov == '0') {
$sql2 .= "a.carta_g='' and ";
}
$sql2 .= "(libre_f1 BETWEEN '{$anoAnt}-01-01' and '{$ano}-12-31%' )";
$db2->query($sql2);
while ($db2->next_record()) {
$idCalculo = $db2->f(IDCALCULO);
//echo "idCalculo=$idCalculo <br>";
$idBlConte = $db2->f(IDBLCONTE);
$cgaCal = $db2->f(CGACAL);
$idBl = getValueTable("id_bl", "BL_CONTE", "id_bl_conte", $idBlConte);
$bl = getValueTable("Bl", "EXPO", "Id_expo", $idBl);
$idBarco = getValueTable("Id_barco", "EXPO", "Id_expo", $idBl);
$eta = getValueTable("Eta1", "BARCO", "Id_barco", $idBarco);
if (preg_match("/^(\\d{4})/i", $eta, $parts)) {
$etaAno = $parts[1];
}
// * CGA - ACTUAL
if (!empty($cgaAct) && (empty($cgaCal) || $forzarMov == 1)) {
if (preg_match("/CGA {$etaAno}/i", $cgaAct)) {
$sql3 = "update D_CALCULO set carta_g='{$cgaAct}' where id_calculo='{$idCalculo}'";
$db3->query($sql3);
//echo "$bl [CGA - Actualizada]...<br>";
}
}
// * CGA - ANTERIOR
if (!empty($cgaOld) && (empty($cgaCal) || $forzarMov == 1)) {
if (preg_match("/CGA {$etaAno}/i", $cgaOld)) {
$sql3 = "update D_CALCULO set carta_g='{$cgaOld}' where id_calculo='{$idCalculo}'";
$db3->query($sql3);
//echo "$bl [CGA - Actualizada]...<br>";
}
}
}
}
function DbConnect()
{
$DBHandle = new DB_Sql();
$DBHandle->Database = DBNAME;
$DBHandle->Host = HOST;
$DBHandle->User = USER;
$DBHandle->Password = PASS;
$DBHandle->connect();
return $DBHandle;
}
$hoy = date("Y-m-d");
// ---------------
// CONFIGURACION
// -------------
$hoy = date("Y-m-d");
// --- SION CONEXIONES ---
$sionDB = "MscCobranza";
$sionSrv = "10.110.0.5";
$db = new DB_Sql();
$db2 = new DB_Sql();
$dbf = new DB_Sql();
$dbX = new DB_Sql();
$db->connect($sionDB, $sionSrv, "linkuser", "pincheschinos.com");
$db2->connect($sionDB, $sionSrv, "linkuser", "pincheschinos.com");
$dbf->connect($sionDB, $sionSrv, "linkuser", "pincheschinos.com");
$dbX->connect($sionDB, $sionSrv, "linkuser", "pincheschinos.com");
// --- MSCLINK SQL SERVER ---
$linkUsr = "******";
$linkPass = "******";
// Test 10.100.131.70
// Production 10.100.131.78
$linkSrv = "10.100.131.78";
$linkDB = "Interlink_Main90";
$info = array('Database' => $linkDB, 'UID' => $linkUsr, 'PWD' => $linkPass);
// -------------------------------------------------------------------------------
// ODBC
// El sistema se trata de conectar mediante ODBC nativo a la base de datos MscLink
// -------------------------------------------------------------------------------
$dsn = "Driver={SQL Server};Server={$linkSrv};Database={$linkDB};Integrated Security=SSPI;Persist Security Info=False;";
// Se realiza la conex�n con los datos especificados anteriormente
$conn = odbc_connect($dsn, $linkUsr, $linkPass);
}
}
include_once "db_mysqli.inc";
/// Fecha actual.
$hoy = date("Y-m-d H:i:s");
$hoyF = date("Y-m-d");
$db = new DB_Sql();
$db->connect("nesoftwa_ANAKOSTA", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$db2 = new DB_Sql();
$db2->connect("nesoftwa_ANAKOSTA", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$db3 = new DB_Sql();
$db3->connect("nesoftwa_ANAKOSTA", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$dbX = new DB_Sql();
$dbX->connect("nesoftwa_ANAKOSTA", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$dbf = new DB_Sql();
$dbf->connect("nesoftwa_ANAKOSTA", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
// ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
function normaliza($cadena)
{
// NOTA IMPORTANTE : TENER MUCHO CUIDADO YA QUE PUEDE CAMBIAR CARACTERES EN LOS BLS
// POR EJEMPLO UN RH1234567 LO CAMBIA POR BH1234567. PELIGROSO. ATT. Nestor 20150106
/*
$originales = 'ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûýýþÿ´R´r';
$modificadas = 'aaaaaaaceeeeiiiidnoooooouuuuybsaaaaaaaceeeeiiiidnoooooouuuyybyRr';
$cadena = utf8_decode($cadena);
$cadena = strtr($cadena, utf8_decode($originales), $modificadas);
$cadena = strtolower($cadena);
return utf8_encode($cadena);
*/
// METODO 2
$charset = 'UTF-8';
function connect_to_db()
{
if (!$this->is_conneted) {
$this->db->connect();
}
}
function addContenedor($bl)
{
global $serverName, $db, $usuario, $pass;
$dbf = new DB_Sql();
$dbf->connect("MscCobranza", "10.110.13.13", "root", "");
$dsn = "Driver={SQL Server};Server={$serverName};Database={$db};Integrated Security=SSPI;Persist Security Info=False;";
$conn2 = odbc_connect($dsn, $usuario, $pass);
$blSION = str_replace("MSCU", "", $bl);
// Consultar los contenedores y despues agregarlos al SION.
$sql = "\n SELECT DISTINCT\n\tCH.Container_Number as CONTE,\n\tC.EQ_Type AS EQUIPO,\n\tC.Shipper_Owned AS SOC\n FROM\n Interlink_DFeed90.dfeed.FNTB_Bill_Of_Lading (1, NULL) BL\n INNER JOIN Interlink_DFeed90.dfeed.FNTB_Charge (1, NULL) CH ON BL.Bill_of_Lading_id = CH.Bill_Of_Lading_id\n INNER JOIN Interlink_DFeed90.dfeed.FNTB_BOLREP_Container () C ON CH.Container_Number = C.Container_Number\n WHERE\n BL.Include_In_Manifest_And_DTX = '1'\n AND CH.Container_Number <> ''\n AND BL.Bill_Of_Lading_Number='{$bl}'\n ";
$rsf = odbc_exec($conn2, $sql);
while (odbc_fetch_row($rsf)) {
$conte = odbc_result($rsf, "CONTE");
$equipo = odbc_result($rsf, "EQUIPO");
$soc = odbc_result($rsf, "SOC");
// Detectar el Equipo en SION.
$sql2 = "select id_equipo from EQUIPO where equipo_link='{$equipo}' ";
$dbf->query($sql2);
while ($dbf->next_record()) {
$idEquipo = $dbf->f('id_equipo');
}
// Comprobar si existe en el SION,
// Si existe, entonces actualzar equipo y SOC.
// No existe, agregar.
$sql2 = "select id_contenedor from CONTENEDOR where numero='{$conte}' ";
$dbf->query($sql2);
while ($dbf->next_record()) {
$idConte = $dbf->f('id_contenedor');
}
if (!empty($idConte)) {
// Actualizar
$sql2 = "update CONTENEDOR set id_equipo='{$idEquipo}',soc='{$soc}' where id_contenedor='{$idConte}'";
$dbf->query($sql2);
unset($idConte);
} else {
// Nuevo contenedor
$sql2 = "insert into CONTENEDOR (";
$sql2 .= "numero,id_equipo,soc";
$sql2 .= ") values (";
$sql2 .= "'{$conte}','{$idEquipo}','{$soc}'";
$sql2 .= ")";
$dbf->query($sql2);
}
$sql2 = "select id_contenedor from CONTENEDOR where numero='{$conte}' ";
$dbf->query($sql2);
while ($dbf->next_record()) {
$idConte = $dbf->f('id_contenedor');
}
$sql2 = "select Id_expo from EXPO where Bl='{$blSION}' ";
$dbf->query($sql2);
while ($dbf->next_record()) {
$idBlSion = $dbf->f('Id_expo');
}
if (!empty($idConte) && !empty($idBlSion)) {
// Comprobar que no exista en SION : BL_CONTE,
// Si no existe, entonces grabarlo en la relación bl-conte.
$sql2 = "select id_bl_conte from BL_CONTE where id_bl='{$idBlSion}' and id_contenedor='{$idConte}' ";
$dbf->query($sql2);
while ($dbf->next_record()) {
$idBlConte = $dbf->f('id_bl_conte');
}
if (empty($idBlConte)) {
$sql2 = "insert into BL_CONTE (";
$sql2 .= "id_bl,id_contenedor";
$sql2 .= ") values (";
$sql2 .= "'{$idBlSion}','{$idConte}'";
$sql2 .= ")";
$dbf->query($sql2);
unset($idConte);
unset($idBlSion);
echo "[Cargado] {$bl} | {$conte} <br>\n";
}
}
}
//odbc_close($conn2);
}
}
}
include_once "db_mysqli.inc";
/// Fecha actual.
$hoy = date("Y-m-d H:i:s");
$hoyF = date("Y-m-d");
$db = new DB_Sql();
$db->connect("nesoftwa_ALMARTCON", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$db2 = new DB_Sql();
$db2->connect("nesoftwa_ALMARTCON", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$db3 = new DB_Sql();
$db3->connect("nesoftwa_ALMARTCON", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$dbX = new DB_Sql();
$dbX->connect("nesoftwa_ALMARTCON", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$dbf = new DB_Sql();
$dbf->connect("nesoftwa_ALMARTCON", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
// ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
function normaliza($cadena)
{
// NOTA IMPORTANTE : TENER MUCHO CUIDADO YA QUE PUEDE CAMBIAR CARACTERES EN LOS BLS
// POR EJEMPLO UN RH1234567 LO CAMBIA POR BH1234567. PELIGROSO. ATT. Nestor 20150106
/*
$originales = 'ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûýýþÿ´R´r';
$modificadas = 'aaaaaaaceeeeiiiidnoooooouuuuybsaaaaaaaceeeeiiiidnoooooouuuyybyRr';
$cadena = utf8_decode($cadena);
$cadena = strtr($cadena, utf8_decode($originales), $modificadas);
$cadena = strtolower($cadena);
return utf8_encode($cadena);
*/
// METODO 2
$charset = 'UTF-8';
<?php
/**
* [PHPB2B] Copyright (C) 2007-2099, Ualink Inc. All Rights Reserved.
* The contents of this file are subject to the License; you may not use this file except in compliance with the License.
*
* @version $Revision: 2075 $
*/
@set_time_limit(1000);
require "../libraries/common.inc.php";
require "session_cp.inc.php";
require LIB_PATH . "db_mysql.inc.php";
uses("log");
$log = new Logs();
$db = new DB_Sql();
$conn = $db->connect($dbname, $dbhost, $dbuser, $dbpasswd);
$tpl_file = "db";
if (!($backupdir = $pdb->GetOne("SELECT valued FROM {$tb_prefix}settings WHERE variable='backup_dir'"))) {
$backupdir = pb_radom(6);
$db->query("REPLACE INTO {$tb_prefix}settings (variable, valued) values ('backup_dir', '{$backupdir}')");
}
require LIB_PATH . "func.db.php";
require LIB_PATH . "func.sql.php";
if (isset($_POST['do'])) {
$do = trim($_POST['do']);
if (!file_exists(DATA_PATH . "backup_" . $backupdir)) {
pb_create_folder(DATA_PATH . "backup_" . $backupdir);
}
if ($do == "query" && !empty($_POST['sql_content'])) {
if ($admin_runquery) {
$result = sql_run($_POST['sql_content']);
function sendMail($vessel, $voyage, $email)
{
global $hoy, $sionSrv, $sionDB;
$db = new DB_Sql();
$db->connect($sionDB, $sionSrv, "root", "");
$mail = new phpmailer();
$mail->Priority = 0;
// Se declara la prioridad del mensaje.
// ------------------------------------------------
// CONFIGURAR EMAIL.
// ------------------------------------------------
//Definimos las propiedades y llamamos a los m�todos
//correspondientes del objeto mail
//Con PluginDir le indicamos a la clase phpmailer donde se
//encuentra la clase smtp que como he comentado al principio de
//este ejemplo va a estar en el subdirectorio includes
$mail->PluginDir = "../include/";
$mail->Mailer = "smtp";
// ++ EXCHANGE MSC ++
$userName = '******';
$linkPass = '******';
$mail->IsSMTP();
$mail->SMTPSecure = 'tls';
$mail->SMTPAuth = true;
$mail->Host = 'mail.mscgva.ch';
// IP 193.138.73.142
$mail->Username = $userName;
$mail->Password = $linkPass;
$mail->Port = 25;
$mail->From = '*****@*****.**';
$mail->FromName = 'Robot.SION';
$mail->Timeout = 10;
//El valor por defecto 10 de Timeout es un poco escaso dado que voy a usar
//una cuenta gratuita, por tanto lo pongo a 30
//$mail->Timeout=10;
$mail->Timeout = 10;
// --------------------
// FORMATO HTML
// --------------------
$mail->Body = "\n <html>\n <body>\n <center>\n <table border=0 cellpadding=2 cellspacing=1>\n <tr>\n <td width=\"60\" height=\"40\" valign=top align=right><img src=\"http://148.245.13.34/nestor/images/logoMscGoldSmall.gif\" ></td>\n <td valign=top align=center>\n <font size=\"4\"><b>Mediterranean Shipping Company México S.A. de C.V.</b></font><br>\n <font size=\"2\">Sólo como agentes / As agents only</font>\n </td>\n </tr>\n <tr>\n <td colspan=2><hr></td>\n </tr>\n </table>\n <font size=\"4\"><b>NOTIFICACION - BUQUE CARGADO {$vessel} - {$voyage}</font>\n </center>\n <p>\n\n Estimado\n <p>\n El proceso de cargar buques ha terminado.\n <p>\n <i>\n Att. Robot SION.<br>\n </i>\n <p>\n <hr>\n <font color=\"red\" size=\"2\">\n <i>Este es un correo de envio automático por nuestro sistema SION, por favor no responda este email.</i>\n </font>\n <br>\n <br>\n <br>\n\n </body>\n </html>\n\n ";
// -------------------------------------------------------
// FORMATO TEXTO
// Definimos AltBody por si el destinatario del correo
// no admite email con formato html
// -------------------------------------------------------
$mail->AltBody = "\n MEDITERRANEAN SHIPPING COMPANY M�XICO\n MSC M�xico (As Agents Only-Solo como Agentes)\n =====================================================================\n ";
// Nota :
// La direccion PARA solo se puede manejar 1.
// Las direcciones CC puede manejar N correos.
// -------------
// Destinatarios
// -------------
$mail->ClearAddresses();
// ------------------------------------------------
/*
$arrDirDestino[] ="*****@*****.**";
foreach ( $arrDirDestino as $emailDestino ) {
if (! empty ( $emailDestino )) {
$mail->AddAddress ( $emailDestino );
$emailDesTxt .= "$emailDestino,";
}
}
*/
$mail->AddAddress("{$email}");
$mail->Subject = "[SRDO] Vessel Extract Finished / {$vessel} {$voyage}";
// Incluir Attach.
//$mail->AddAttachment("../files/demo.txt","demo.txt");
// Se envia el mensaje, si no ha habido problemas, la variable $exito tendra el valor true
$exito = $mail->Send();
// PARA INTAR REENVIARLO
//Si el mensaje no ha podido ser enviado se realizaran 4 intentos mas como mucho
//para intentar enviar el mensaje, cada intento se hara 5 segundos despues
//del anterior, para ello se usa la funcion sleep
$intentos = 1;
while (!$exito && $intentos < 5) {
sleep(5);
$exito = $mail->Send();
$intentos = $intentos + 1;
}
if (!$exito) {
echo "[ <font color=red><b>Problema de envio</b></font> ] {$emailDestino} -> {$valor}" . $mail->ErrorInfo . "<br>\n";
} else {
echo "[ <font color=green><b>Enviado</b></font> ] <br>";
}
}
}
}
include_once "db_mysqli.inc";
/// Fecha actual.
$hoy = date("Y-m-d H:i:s");
$hoyF = date("Y-m-d");
$db = new DB_Sql();
$db->connect("nesoftwa_MOPSAPRO", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$db2 = new DB_Sql();
$db2->connect("nesoftwa_MOPSAPRO", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$db3 = new DB_Sql();
$db3->connect("nesoftwa_MOPSAPRO", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$dbX = new DB_Sql();
$dbX->connect("nesoftwa_MOPSAPRO", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$dbf = new DB_Sql();
$dbf->connect("nesoftwa_MOPSAPRO", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
// ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
function normaliza($cadena)
{
// NOTA IMPORTANTE : TENER MUCHO CUIDADO YA QUE PUEDE CAMBIAR CARACTERES EN LOS BLS
// POR EJEMPLO UN RH1234567 LO CAMBIA POR BH1234567. PELIGROSO. ATT. Nestor 20150106
/*
$originales = 'ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûýýþÿ´R´r';
$modificadas = 'aaaaaaaceeeeiiiidnoooooouuuuybsaaaaaaaceeeeiiiidnoooooouuuyybyRr';
$cadena = utf8_decode($cadena);
$cadena = strtr($cadena, utf8_decode($originales), $modificadas);
$cadena = strtolower($cadena);
return utf8_encode($cadena);
*/
// METODO 2
$charset = 'UTF-8';
/**
* Created by PhpStorm.
* User: Nestor
* Date: 6/20/2015
* Time: 5:42 AM
*/
include_once "../include/db_mysql.inc";
include_once "../include/template.inc";
//include_once("../include/confGral.php");
require '../PHPMailer/PHPMailerAutoload.php';
require '../include/PHPExcel/PHPExcel.php';
require '../include/PHPExcel/PHPExcel/Reader/Excel2007.php';
$t = new Template("../templates", "keep");
$db = new DB_Sql();
$db->connect("MSC_SRDO", "localhost", "root", "");
/* fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff */
// ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
function eliminarDir($carpeta)
{
foreach (glob($carpeta . "/*") as $archivos_carpeta) {
// echo $archivos_carpeta;
if (is_dir($archivos_carpeta)) {
eliminarDir($archivos_carpeta);
} else {
unlink($archivos_carpeta);
}
}
}
// ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
function sendMail($mail, $serie = "", $folio = "", $email1 = "", $email2 = "", $email3 = "", $email4 = "")
function __construct($database, $user, $password)
{
parent::connect($database, '127.0.0.1', $user, $password);
}
}
}
include_once "db_mysqli.inc";
/// Fecha actual.
$hoy = date("Y-m-d H:i:s");
$hoyF = date("Y-m-d");
$db = new DB_Sql();
$db->connect("nesoftwa_TRANE", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$db2 = new DB_Sql();
$db2->connect("nesoftwa_TRANE", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$db3 = new DB_Sql();
$db3->connect("nesoftwa_TRANE", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$dbX = new DB_Sql();
$dbX->connect("nesoftwa_TRANE", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$dbf = new DB_Sql();
$dbf->connect("nesoftwa_TRANE", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
// ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
function normaliza($cadena)
{
// NOTA IMPORTANTE : TENER MUCHO CUIDADO YA QUE PUEDE CAMBIAR CARACTERES EN LOS BLS
// POR EJEMPLO UN RH1234567 LO CAMBIA POR BH1234567. PELIGROSO. ATT. Nestor 20150106
/*
$originales = 'ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûýýþÿ´R´r';
$modificadas = 'aaaaaaaceeeeiiiidnoooooouuuuybsaaaaaaaceeeeiiiidnoooooouuuyybyRr';
$cadena = utf8_decode($cadena);
$cadena = strtr($cadena, utf8_decode($originales), $modificadas);
$cadena = strtolower($cadena);
return utf8_encode($cadena);
*/
// METODO 2
$charset = 'UTF-8';
function xmlCI($fec1 = '', $fec2 = '', $pais)
{
// xmlCI : Customer Invoices XML interface
// --- SION CONEXIONES ---
switch ($pais) {
case 'GT':
$sionDB = "MSC_GUATEMALA";
$sionSrv = "10.110.40.130";
$dirPath = "../../sapXmlGT/";
$lugarFactu = "GTXXX";
$refer = "GT";
$companyCode = '8500';
break;
case 'HN':
$sionDB = "MSC_HONDURAS";
$sionSrv = "10.110.50.140";
$dirPath = "../../sapXmlHN/";
$lugarFactu = "HNSPS";
$refer = "HN";
$companyCode = '7100';
break;
case 'SV':
$sionDB = "MSC_SALVADOR";
$sionSrv = "10.110.60.160";
$dirPath = "../../sapXmlSV/";
$lugarFactu = "SVSAL";
$refer = "SV";
$companyCode = '7A00';
break;
case 'NI':
$sionDB = "MSC_NICARAGUA";
$sionSrv = "10.110.0.40";
$dirPath = "../../sapXmlNI/";
$lugarFactu = "NIMGA";
$refer = "NI";
$companyCode = '8F00';
break;
case 'MX':
$companyCode = '5501';
break;
}
// usuario : sapuser
// pass : mscsap
$dbf = new DB_Sql();
$dbf->connect($sionDB, $sionSrv, "root", "sionca2016");
$dbf2 = new DB_Sql();
$dbf2->connect($sionDB, $sionSrv, "root", "sionca2016");
$dbX = new DB_Sql();
$dbX->connect($sionDB, $sionSrv, "root", "sionca2016");
// ---------------------------
// CUSTOMER INVOCE INTERFACE
// ---------------------------
$xml = new DOMDocument('1.0', 'utf-8');
$xml->formatOutput = true;
$sql = "select * from FT_MSC \n\twhere femitida BETWEEN '{$fec1}' and '{$fec2}' and sap_gen_xml='1' ";
$dbf->query($sql);
while ($dbf->next_record()) {
$folio = $dbf->f('folio');
$idFactura = $dbf->f('id_factura');
$sapCustomerNum = getCustomerNum($idFactura, $dbX);
//echo "$idFactura <br>";
//$codPais = getValueTable("clave_pais","INFO","id_info",1,$dbX);
//$mdaLocal = getValueTable("mda","INFO","id_info",1,$dbX);
// Ayuda.
// Crear elemento: DocDom -> createElement('nombreElemento')
// Crear Datos: DocDom -> createTextNode($datos)
// Asociar: $Hijo = $Padre -> appendChild($hijo)
// Creo elemento
$ns1 = $xml->createElement('CustomerInvoices');
//$ns1->setAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance");
//$ns1->setAttribute("xmlns:ns1","urn:msc.com:msc_gva_fs:customerinvoice");
//$ns1->setAttribute("xsi:schemaLocation","urn:msc.com:msc_gva_fs:customerinvoice CustomerInvoiceAgencies_v14.xsd");
$ns1->setAttribute("xmlns:xsd", "http://www.w3.org/2001/XMLSchema");
$ns1->setAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance");
$ns1->setAttribute("xmlns", "urn:msc.com:msc_gva_fs:customerinvoice");
$ns1 = $xml->appendChild($ns1);
$cus = $xml->createElement("CustomerInvoice");
$cus = $ns1->appendChild($cus);
// ------------------------------------
// EXTRACCION DE DATOS
// ------------------------------------
$fecFactu = $dbf->f('femitida');
$fecFactu = str_replace("-", "", $fecFactu);
$posDate = $fecFactu;
// Moneda
$idMoneda = $dbf->f('moneda');
$cur = getValueTable("moneda", "MONEDA", "id_moneda", $idMoneda, $dbX);
$cur = strtoupper($cur);
$traDate = $fecFactu;
$serie = $dbf->f('serie');
$folio = $dbf->f('folio');
if ($serie == '-') {
$serie = '';
}
$facNum = $serie . $folio;
// codigo de cliente
$idCli = $dbf->f('id_cliente');
$codCli = getValueTable("codigo", "FT_CLIENTE", "id_cliente", $idCli, $dbX);
$total = $dbf->f('total');
// Lugar donde se origina toda la factu
// $lugarFactu = $db->f(lugar);
// -----------------------
// --- HEADER ---
// -----------------------
$hea = $xml->createElement("Header");
$hea = $cus->appendChild($hea);
//$hea = $ns1->appendChild($hea);
$comCod = $xml->createElement("CompanyCode", $companyCode);
$comCod = $hea->appendChild($comCod);
$DocumentType = $xml->createElement("DocumentType", "XL");
$DocumentType = $hea->appendChild($DocumentType);
$DocumentDate = $xml->createElement("DocumentDate", $fecFactu);
$DocumentDate = $hea->appendChild($DocumentDate);
$PostingDate = $xml->createElement("PostingDate", $fecFactu);
$PostingDate = $hea->appendChild($PostingDate);
$TransactionCurrency = $xml->createElement("TransactionCurrency", $cur);
$TransactionCurrency = $hea->appendChild($TransactionCurrency);
$Reference = $xml->createElement("Reference", $facNum);
$Reference = $hea->appendChild($Reference);
// Investigando...
// Martino P. : In your current system the document (customer or vendor invoice) has the number 12345. Ok then in this field you can specify this code 12345 to link and identify in the unique way the document in SAP and the document in your operational system. Por lo tanto metemos el idFactura para que podamos enlazar e identificar la factura en SAP y SION.
$AgencyDocNbr = $xml->createElement("AgencyDocNbr", $idFactura);
$AgencyDocNbr = $hea->appendChild($AgencyDocNbr);
// -----------------------
// -- CustomerOpenItem --
// -----------------------
$coi = $xml->createElement("CustomerOpenItem");
//$coi = $cus->appendChild($coi);
$coi = $cus->appendChild($coi);
// Codigo del cliente
// 1000000225 Pruebas... creo.
//$CustomerNbr = $xml->createElement("CustomerNbr","1000000225");
$CustomerNbr = $xml->createElement("CustomerNbr", $sapCustomerNum);
$CustomerNbr = $coi->appendChild($CustomerNbr);
// Total de la factura en positivo
$AmntTransactCur = $xml->createElement("AmntTransactCur", $total);
$AmntTransactCur = $coi->appendChild($AmntTransactCur);
$BaselineDate = $xml->createElement("BaselineDate", $fecFactu);
$BaselineDate = $coi->appendChild($BaselineDate);
$DueDate = $xml->createElement("DueDate", $fecFactu);
$DueDate = $coi->appendChild($DueDate);
// -------------------------------
// -- Other Items --
// -------------------------------
// $cus es su padre.
$ois = $xml->createElement("OtherItems");
$ois = $cus->appendChild($ois);
// -------------------------------
// Other Item
// -------------------------------
// CONCEPTOS INFO
$sql2 = "select * from FT_REL_CONCEPTO where id_factura='{$idFactura}' ";
$dbf2->query($sql2);
while ($dbf2->next_record()) {
$idCpto = $dbf2->f(id_concepto);
$cpto = getValueTable("concepto", "FT_CONCEPTO", "id_concepto", $idCpto, $dbX);
$codCpto = getValueTable("codigo_sap", "FT_CONCEPTO", "id_concepto", $idCpto, $dbX);
$preciou = $dbf2->f(preciou);
$tax = $dbf2->f(iva);
$taxPor = $dbf2->f(pctj_iva);
$um = getValueTable("um", "FT_CONCEPTO", "id_concepto", $idCpto, $dbX);
$cantidad = $dbf2->f(cantidad);
$bls = $dbf2->f(bl);
$bls = trim($bls);
$conteTex = $dbf2->f(conte);
$conteTex = trim($conteTex);
$idBarco = getValueTable("Id_barco", "EXPO", "Bl", $bl, $dbX);
$impoExpo = getValueTable("Impo_expo", "BARCO", "Id_barco", $idBarco, $dbX);
//if( $impoExpo=="E" )$impoExpo="Export";
//if( $impoExpo=="I" )$impoExpo="Import";
// DETECTAR UNIDAD DE MEDIDA.
unset($arrConte);
unset($arrBl);
if ($um == "CTR") {
$arrConte = explode("\n", $conteTex);
for ($i = 0; $i < count($arrConte); $i++) {
if (!empty($arrConte[$i])) {
// -----------------------
// OtherItem CTR
// -----------------------
// Padre
$oi = $xml->createElement("OtherItem");
$oi = $ois->appendChild($oi);
// Hijos
$tax = $preciou * ($taxPor / 100);
// En negativo
$preciouNeg = ($preciou + $tax) * -1;
$preciouNeg = number_format($preciouNeg, 2);
$preciouNeg = str_replace(",", "", $preciouNeg);
$AmntTransacCur = $xml->createElement("AmntTransacCur", $preciouNeg);
$AmntTransacCur = $oi->appendChild($AmntTransacCur);
$AmntCpyCur = $xml->createElement("AmntCpyCur", $preciouNeg);
$AmntCpyCur = $oi->appendChild($AmntCpyCur);
// <TaxCode/> you can send A0 for tax code.
$TaxCode = $xml->createElement("TaxCode", "A0");
$TaxCode = $oi->appendChild($TaxCode);
if (!empty($um)) {
$BaseUnitMeasure = $xml->createElement("BaseUnitMeasure", $um);
$BaseUnitMeasure = $oi->appendChild($BaseUnitMeasure);
}
$Qty = $xml->createElement("Qty", "1");
$Qty = $oi->appendChild($Qty);
$ProfitCenter = $xml->createElement("ProfitCenter", "Z99999");
$ProfitCenter = $oi->appendChild($ProfitCenter);
if (!empty($codCpto)) {
$ChargeCode = $xml->createElement("ChargeCode", $codCpto);
$ChargeCode = $oi->appendChild($ChargeCode);
}
if (!empty($bls)) {
$BlNmr = $xml->createElement("BL", "MSCU" . $bls);
$BlNmr = $oi->appendChild($BlNmr);
}
// CONTENEDORES
$ctNumero = $arrConte[$i];
$ctNumero = trim($ctNumero);
$idEq = getValueTable("id_equipo", "CONTENEDOR", "numero", $ctNumero, $dbX);
$equipoTex = getValueTable("equipo", "EQUIPO", "id_equipo", $idEq, $dbX);
if (preg_match("/(\\d{2})(\\D{2})/", $equipoTex, $parts)) {
$ctSize = $parts[1];
$ctTipo = $parts[2];
if ($ctTipo == "DC") {
$ctTipo = "DV";
}
}
if (!empty($ctNumero)) {
$CtrNbr = $xml->createElement("CtrNbr", $ctNumero);
$CtrNbr = $oi->appendChild($CtrNbr);
}
if (!empty($ctTipo)) {
$CtrType = $xml->createElement("CtrType", $ctTipo);
$CtrType = $oi->appendChild($CtrType);
}
if (!empty($ctSize)) {
$CtrSize = $xml->createElement("CtrSize", $ctSize);
$CtrSize = $oi->appendChild($CtrSize);
}
if (!empty($lugarFactu)) {
// Lugar de la factura
$PortLocation = $xml->createElement("PortLocation", $lugarFactu);
$PortLocation = $oi->appendChild($PortLocation);
}
$idBl = getValueTable("Id_expo", "EXPO", "Bl", $bls, $dbX);
if ($idBl > 0) {
$pol = getValueTable("Loading", "EXPO", "Id_expo", $bl, $dbX);
$pod = getValueTable("Discharge", "EXPO", "Id_expo", $bl, $dbX);
if (!empty($pol)) {
$POL = $xml->createElement("POL", $pol);
$POL = $oi->appendChild($POL);
}
if (!empty($pod)) {
$POD = $xml->createElement("POD", $pod);
$POD = $oi->appendChild($POD);
}
}
}
}
} elseif ($um == "BL") {
$arrBl = explode("\n", $bls);
for ($i = 0; $i < count($arrBl); $i++) {
if (!empty($arrBl[$i])) {
// -----------------------
// OtherItem
// -----------------------
$bl = trim($arrBl[$i]);
$tax = $preciou * ($taxPor / 100);
// Padre
$oi = $xml->createElement("OtherItem");
$oi = $ois->appendChild($oi);
// Hijos
// Negativo
$preciouNeg = ($preciou + $tax) * -1;
$preciouNeg = number_format($preciouNeg, 2);
$preciouNeg = str_replace(",", "", $preciouNeg);
$AmntTransacCur = $xml->createElement("AmntTransacCur", $preciouNeg);
$AmntTransacCur = $oi->appendChild($AmntTransacCur);
$AmntCpyCur = $xml->createElement("AmntCpyCur", $preciouNeg);
$AmntCpyCur = $oi->appendChild($AmntCpyCur);
// <TaxCode/> you can send A0 for tax code.
$TaxCode = $xml->createElement("TaxCode", "");
$TaxCode = $oi->appendChild($TaxCode);
if (!empty($um)) {
$BaseUnitMeasure = $xml->createElement("BaseUnitMeasure", $um);
$BaseUnitMeasure = $oi->appendChild($BaseUnitMeasure);
}
$Qty = $xml->createElement("Qty", "1");
$Qty = $oi->appendChild($Qty);
$ProfitCenter = $xml->createElement("ProfitCenter", "Z99999");
$ProfitCenter = $oi->appendChild($ProfitCenter);
$ChargeCode = $xml->createElement("ChargeCode", $codCpto);
$ChargeCode = $oi->appendChild($ChargeCode);
$BlNmr = $xml->createElement("BL", "MSCU" . $bl);
$BlNmr = $oi->appendChild($BlNmr);
if (!empty($lugarFactu)) {
$PortLocation = $xml->createElement("PortLocation", $lugarFactu);
$PortLocation = $oi->appendChild($PortLocation);
}
$idBl = getValueTable("Id_expo", "EXPO", "Bl", $bl, $dbX);
if ($idBl > 0) {
$pol = getValueTable("Loading", "EXPO", "Id_expo", $bl, $dbX);
$pod = getValueTable("Discharge", "EXPO", "Id_expo", $bl, $dbX);
if (!empty($pol)) {
$POL = $xml->createElement("POL", $pol);
$POL = $oi->appendChild($POL);
}
if (!empty($pod)) {
$POD = $xml->createElement("POD", $pod);
$POD = $oi->appendChild($POD);
}
}
}
}
} elseif ($um == "EA") {
//$precioTl = ($preciou * $cantidad) * -1;
$tax = $preciou * ($taxPor / 100);
// Padre
$oi = $xml->createElement("OtherItem");
$oi = $ois->appendChild($oi);
// Hijos
// Hijos
// Negativo
$preciouNeg = $cantidad * ($preciou + $tax) * -1;
$preciouNeg = number_format($preciouNeg, 2);
$preciouNeg = str_replace(",", "", $preciouNeg);
$AmntTransacCur = $xml->createElement("AmntTransacCur", $preciouNeg);
$AmntTransacCur = $oi->appendChild($AmntTransacCur);
$AmntCpyCur = $xml->createElement("AmntCpyCur", $preciouNeg);
$AmntCpyCur = $oi->appendChild($AmntCpyCur);
if (!empty($um)) {
$BaseUnitMeasure = $xml->createElement("BaseUnitMeasure", $um);
$BaseUnitMeasure = $oi->appendChild($BaseUnitMeasure);
}
$qty = $xml->createElement("Qty", $cantidad);
$qty = $oi->appendChild($qty);
$ProfitCenter = $xml->createElement("ProfitCenter", "Z99999");
$ProfitCenter = $oi->appendChild($ProfitCenter);
$ChargeCode = $xml->createElement("ChargeCode", $codCpto);
$ChargeCode = $oi->appendChild($ChargeCode);
if (!empty($lugarFactu)) {
$PortLocation = $xml->createElement("PortLocation", $lugarFactu);
$PortLocation = $oi->appendChild($PortLocation);
}
}
}
// ---------------------------------------------------------------------
// Nombre de Archivo
// Naming Convention of Customer Invoice XML's :
// CompanyCode_XL_YYYYMMDD(DocumentDate)_InvoiceSequentialNumber
// i.e. Z999_XL_20140404_???????
// ---------------------------------------------------------------------
$fileName = $companyCode . "_XL_" . $fecFactu . "_" . $idFactura . ".xml";
//$path= "../files/SAP_XML/invoice/$lugarFactu/$fileName";
$path = $dirPath . $fileName;
$xml->save($path);
}
}
function getValueTable($campo, $tabla, $idTabla, $idEnviado)
{
// Extrae solo info de SION
global $sionSrv, $sionDB;
/*
* @return Info de un campo especifico
* @param string $campo
* @param string $tabla
* @param string $idTabla
* @param string $idEnviado
* @desc Esta funcion sirve para traer informacion de x campo de cualquier tabla.
*/
$dbf = new DB_Sql();
$dbf->connect($sionDB, $sionSrv, "root", "");
$sql = "select {$campo} from {$tabla} where {$idTabla}='{$idEnviado}'";
$dbf->query($sql);
while ($dbf->next_record()) {
$valor = $dbf->f($campo);
return $valor;
// No mover el return, podria ser peligroso!.
}
}
define("NUM", 5);
//定义每次显示的新闻条数
$smarty = new Smarty();
//建立smarty实例对象$smarty
$smarty->templates_dir = "./templates";
//设置模板目录
$smarty->compile_dir = "./templates_c";
//设置编译目录
$smarty->cache_dir = "./cache";
//设置缓存目录
$smarty->caching = false;
//这里是调试时设为false,发布时请使用true
$smarty->left_delimiter = "<{";
//设置左边界符
$smarty->right_delimiter = "}>";
//设置右边界符
//=========@@@@help 2.实例化一个类，并设置类的Host, Database, User, Password属性, 最后connect数据库=========================
$db = new DB_Sql();
//实例化一个DB类
$db->Host = "localhost";
// 数据库主机名
$db->Database = "techflash";
//数据库名称
$db->User = "******";
//用户名
$db->Password = "******";
//密码
$db->connect();
//进行数据库连接
//设置Mysql编码
mysql_query("set names " . $dbcharset);
function sendMail($bl, $pod)
{
global $hoy, $sionSrv, $sionDB;
$db = new DB_Sql();
$db->connect($sionDB, $sionSrv, "root", "");
$mail = new phpmailer();
$mail->Priority = 0;
// Se declara la prioridad del mensaje.
// ------------------------------------------------
// CONFIGURAR EMAIL.
// ------------------------------------------------
//Definimos las propiedades y llamamos a los m�todos
//correspondientes del objeto mail
//Con PluginDir le indicamos a la clase phpmailer donde se
//encuentra la clase smtp que como he comentado al principio de
//este ejemplo va a estar en el subdirectorio includes
$mail->PluginDir = "../include/";
$mail->Mailer = "smtp";
// ++ EXCHANGE MSC ++
$userName = '******';
$linkPass = '******';
$mail->IsSMTP();
$mail->SMTPSecure = 'tls';
$mail->SMTPAuth = true;
$mail->Host = 'mail.mscgva.ch';
// IP 193.138.73.142
$mail->Username = $userName;
$mail->Password = $linkPass;
$mail->Port = 25;
$mail->From = '*****@*****.**';
$mail->FromName = 'Robot.SION';
$mail->Timeout = 10;
//El valor por defecto 10 de Timeout es un poco escaso dado que voy a usar
//una cuenta gratuita, por tanto lo pongo a 30
//$mail->Timeout=10;
$mail->Timeout = 10;
$paisSan = getValueTable("country", "DOC_PAIS_SANCIONADO", "code", $pod);
// --------------------
// FORMATO HTML
// --------------------
$mail->Body = "\n <html>\n <body>\n <center>\n <table border=0 cellpadding=2 cellspacing=1>\n <tr>\n <td width=\"60\" height=\"40\" valign=top align=right><img src=\"http://148.245.13.34/nestor/images/logoMscGoldSmall.gif\" ></td>\n <td valign=top align=center>\n <font size=\"4\"><b>Mediterranean Shipping Company M�xico S.A. de C.V.</b></font><br>\n <font size=\"2\">S�lo como agentes / As agents only</font>\n </td>\n </tr>\n <tr>\n <td colspan=2><hr></td>\n </tr>\n </table>\n <font size=\"4\"><b>NOTIFICACION - SANCTIONS COMPLIANCE<br>({$paisSan})</b><BR>{$bl}</font>\n </center>\n <p>\n\n Estimado Ejecutivo de Ventas\n <p>\n El bl de referencia tiene un destino a uno de los pa�ses sancionados.\n Por favor confirmar si el procedimiento de las pol�ticas de conformidad ha sido realizado y firmado por el Sr. Alonso Sope�a y/o el Sr. Homely Rojas\n de lo contrario la carga no podr� ser embarcada.\n <p>\n En espera de sus urgentes comentarios.\n <br>\n Este mensaje es enviado por razones de SEGURIDAD.\n <p>\n <i>\n Att. Robot SION.<br>\n </i>\n <p>\n <hr>\n <font color=\"red\" size=\"2\">\n <i>Este es un correo de envio autom�tico por nuestro sistema SION, por favor no responda este email.</i>\n </font>\n <br>\n <br>\n <br>\n\n </body>\n </html>\n\n ";
// -------------------------------------------------------
// FORMATO TEXTO
// Definimos AltBody por si el destinatario del correo
// no admite email con formato html
// -------------------------------------------------------
$mail->AltBody = "\n MEDITERRANEAN SHIPPING COMPANY M�XICO\n MSC M�xico (As Agents Only-Solo como Agentes)\n =====================================================================\n ";
// Nota :
// La direccion PARA solo se puede manejar 1.
// Las direcciones CC puede manejar N correos.
// -------------
// Destinatarios
// -------------
$mail->ClearAddresses();
// ------------------------------------------------
/*
$arrDirDestino[] ="*****@*****.**";
foreach ( $arrDirDestino as $emailDestino ) {
if (! empty ( $emailDestino )) {
$mail->AddAddress ( $emailDestino );
$emailDesTxt .= "$emailDestino,";
}
}
*/
$mail->AddCC("*****@*****.**");
// Copia Ciega
$mail->AddBCC("*****@*****.**");
$mail->AddBCC("*****@*****.**");
//$mail->AddAddress("*****@*****.**");
//if(!empty($sndCC))$mail->AddCC($sndCC);
// -----------------------------------------
// Subject
//-----------------------------------------
$sql = "select * from DOC_CTRL_EXPO ";
$sql .= "where bl='{$bl}' ";
$db->query($sql);
while ($db->next_record()) {
// -----------------------------------------
// Comprobar q no tenga la firma BL-REVISION
// -----------------------------------------
$bl = $db->f(bl);
$bkg = $db->f(bkg);
$bkgp = $db->f(bkg_party);
$executive = $db->f(bkg_executive);
$exeMail1 = getValueTable("mail1", "DOC_CAT_EJE", "cod", $executive);
$exeMail2 = getValueTable("mail2", "DOC_CAT_EJE", "cod", $executive);
$exeMail3 = getValueTable("mail3", "DOC_CAT_EJE", "cod", $executive);
if (!empty($exeMail1)) {
$mail->AddAddress($exeMail1);
}
if (!empty($exeMail2)) {
$mail->AddAddress($exeMail2);
}
if (!empty($exeMail3)) {
$mail->AddAddress($exeMail3);
}
$pol = $db->f(pol);
$pod = $db->f(pod);
$who = $db->f(who);
$idBarco = getValueTable("id_barco", "DOC_CTRL_EXPO", "id_bl", $idBl);
$vessel = getValueTable("Nombre", "BARCO", "Id_barco", $idBarco);
$voy = getValueTable("Viaje", "BARCO", "Id_barco", $idBarco);
$eta = getValueTable("Eta1", "BARCO", "Id_barco", $idBarco);
$vesVoy = "{$vessel} / {$voy} (<font color=maroon>{$idBarco}</font>)";
$puerto = getValueTable("puerto", "CS_CODIGO", "codigo", $pod);
$pais = getValueTable("pais", "CS_CODIGO", "codigo", $pod);
}
// VERACRUZ : MXVER
// ALTAMIRA : MXLMR,MXATM
// PACIFICO : MXZLO,MXMZT,MXSCX,MXLZC,MXPMS,MXGYM
if ($pol == "MXVER") {
$mail->AddCC("*****@*****.**");
} elseif ($pol == "MXZLO" || $pol == "MXMZT" || $pol == "MXSCX" || $pol == "MXLZC" || $pol == "MXPMS" || $pol == "MXGYM") {
$mail->AddCC("*****@*****.**");
} elseif ($pol == "MXLMR" || $pol == "MXATM") {
$mail->AddCC("*****@*****.**");
} else {
$mail->AddCC("*****@*****.**");
}
$paisSan = getValueTable("country", "DOC_PAIS_SANCIONADO", "code", $pol);
$txtSubj = "SANCTIONS COMPLIANCE {$paisSan} / [{$who}] / {$vessel} {$voy} / MSCU{$bl} / {$bkg} / {$bkgp} / {$pol} / {$pol} / [{$who}] %0A%0A";
$txtSubj = str_replace("&", "AND", $txtSubj);
$mail->Subject = "{$txtSubj}";
// Incluir Attach.
//$mail->AddAttachment("../files/demo.txt","demo.txt");
// Se envia el mensaje, si no ha habido problemas, la variable $exito tendra el valor true
$exito = $mail->Send();
/*
// PARA INTAR REENVIARLO
//Si el mensaje no ha podido ser enviado se realizaran 4 intentos mas como mucho
//para intentar enviar el mensaje, cada intento se hara 5 segundos despues
//del anterior, para ello se usa la funcion sleep
$intentos=1;
while ((!$exito) && ($intentos < 5)) {
sleep(5);
$exito = $mail->Send();
$intentos=$intentos+1;
}
*/
if (!$exito) {
echo "[ <font color=red><b>Problema de envio</b></font> ] {$emailDestino} -> {$valor}" . $mail->ErrorInfo . "<br>\n";
} else {
echo "[ <font color=green><b>Enviado</b></font> ] <br>";
}
}
<?php
//--------------------------------------------
// Fecha: 20051017
//--------------------------------------------
include_once "../include/confGral.php";
$dbK = new DB_Sql();
$dbK->connect("MscCobranza", "localhost", "root", "");
// fffffffffffffffffffffffffffffffffffffffffff
function generateXMLCN($idNC = '', $idND = '', $tipoNCND)
{
// ----- CREDIT NOTE / DEBIT NOTE ------------
global $dbK, $hoy;
if ($tipoNCND == "NC") {
// Validar si no ha sido enviado el XML
$xmlSendFlg = getValueTable("xml_send_flg", "FT_NC", "id_ft_nc", $idNC);
} elseif ($tipoNCND == "ND") {
$xmlSendFlg = getValueTable("xml_send_flg", "FT_ND", "id_ft_nd", $idND);
}
if ($xmlSendFlg == 1) {
return false;
} else {
$xml = new DOMDocument('1.0', 'utf-8');
$xml->formatOutput = true;
/*
* Crear elemento: DocDom -> createElement('nombreElemento')
* Crear Datos: DocDom -> createTextNode($datos)
* Asociar: $Hijo = $Padre -> appendChild($hijo)
*/
// Creo elemento
$ns1 = $xml->createElement('ns1:CustomerInvoices');
}
}
include_once "db_mysqli.inc";
/// Fecha actual.
$hoy = date("Y-m-d H:i:s");
$hoyF = date("Y-m-d");
$db = new DB_Sql();
$db->connect("nesoftwa_LITION", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$db2 = new DB_Sql();
$db2->connect("nesoftwa_LITION", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$db3 = new DB_Sql();
$db3->connect("nesoftwa_LITION", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$dbX = new DB_Sql();
$dbX->connect("nesoftwa_LITION", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
$dbf = new DB_Sql();
$dbf->connect("nesoftwa_LITION", "localhost", "nesoftwa_root", ";L9Nehbfaxts");
// ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
function normaliza($cadena)
{
// NOTA IMPORTANTE : TENER MUCHO CUIDADO YA QUE PUEDE CAMBIAR CARACTERES EN LOS BLS
// POR EJEMPLO UN RH1234567 LO CAMBIA POR BH1234567. PELIGROSO. ATT. Nestor 20150106
/*
$originales = 'ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûýýþÿ´R´r';
$modificadas = 'aaaaaaaceeeeiiiidnoooooouuuuybsaaaaaaaceeeeiiiidnoooooouuuyybyRr';
$cadena = utf8_decode($cadena);
$cadena = strtr($cadena, utf8_decode($originales), $modificadas);
$cadena = strtolower($cadena);
return utf8_encode($cadena);
*/
// METODO 2
$charset = 'UTF-8';
<?php
include_once "../include/db_mysql.inc";
// -------------
$sionDB = "MscCobranza";
$sionSrv = "10.110.0.5";
$db = new DB_Sql();
$db2 = new DB_Sql();
$db3 = new DB_Sql();
$db->connect($sionDB, $sionSrv, "root", "");
$db2->connect($sionDB, $sionSrv, "root", "");
$db3->connect($sionDB, $sionSrv, "root", "");
// ---------------------------------------------------------------------------------
// --- MSCLINK SQL SERVER ---
$linkUsr = "******";
$linkPass = "******";
// Test 10.100.131.70
// Production 10.100.131.78
$linkSrv = "10.100.131.78";
$linkDB = "Interlink_Main90";
$info = array('Database' => $linkDB, 'UID' => $linkUsr, 'PWD' => $linkPass);
// -------------------------------------------------------------------------------
// ODBC
// El sistema se trata de conectar mediante ODBC nativo a la base de datos MscLink
// -------------------------------------------------------------------------------
$dsn = "Driver={SQL Server};Server={$linkSrv};Database={$linkDB};Integrated Security=SSPI;Persist Security Info=False;";
// Se realiza la conex�n con los datos especificados anteriormente
$conn = odbc_connect($dsn, $linkUsr, $linkPass);
// ---------------------------------------------------------------------------------------
if ($_POST['modo'] == "ok") {
$salesExe = "";
session_start();
//--------------------------------------------
// Autor: Néstor Pérez Navarro.
// Desc : Runita q sirve para ...
//--------------------------------------------
include_once "../include/db_mysqli.inc";
include_once "../include/template.inc";
include_once "../include/confGral.php";
include_once "../include/acceso.class.php";
$usuario = new Acceso();
$t = new Template("../templates", "keep");
$db = new DB_Sql();
$db->connect("MscCobranza", "10.110.0.5", "consultor", "");
$db2 = new DB_Sql();
$db2->connect("MscCobranza", "10.110.0.5", "consultor", "");
if ($usuario->havePerm("1", $mscArrPerms)) {
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="es">
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO8859-1" />
<title></title>
<link href="../include/estiloLamina.css" rel="stylesheet" type="text/css">
<script src="../include/funcionesG.js" language="javascript"></script>
</head>
<body>
<h2>MIGRACION OPEMANTRA-PATIOS A TMA<hr></h2>
