function crearDatosBanco()
{
$objConcepto = new Concepto();
$objTipoCta = new TipoCuenta();
$objBanco = new Banco();
$objCtaBanco = new CuentaBanco();
$objCartaOrden = new CartaOrden();
//Insertar conceptos por defecto
$objConcepto->codconmov = '---';
$objConcepto->denconmov = 'Ninguno';
$objConcepto->codope = '--';
$objConcepto->incluir();
//Insertar tipo de cuenta por defecto
$objTipoCta->codtipcta = '---';
$objTipoCta->nomtipcta = 'Ninguno';
$objTipoCta->incluir();
//Insertar banco por defecto
$objBanco->codemp = '0001';
$objBanco->codban = '---';
$objBanco->nomban = 'Ninguno';
$objBanco->dirban = '';
$objBanco->gerban = '';
$objBanco->telban = '';
$objBanco->conban = '';
$objBanco->movcon = '';
$objBanco->esttesnac = 0;
$objBanco->codsudeban = '';
$objBanco->incluir();
//Insertar cuenta de banco por defecto
$objCtaBanco->codemp = '0001';
$objCtaBanco->codban = '---';
$objCtaBanco->ctaban = '-------------------------';
$objCtaBanco->codtipcta = '---';
$objCtaBanco->ctabanext = '-------------------------';
$objCtaBanco->dencta = 'Ninguno';
$objCtaBanco->sc_cuenta = '';
$objCtaBanco->fecapr = '1900-01-01';
$objCtaBanco->feccie = '1900-01-01';
$objCtaBanco->estact = 0;
$objCtaBanco->incluir();
//Insertar carta orden por defecto
$objCartaOrden->codemp = '0001';
$objCartaOrden->codigo = '000';
$objCartaOrden->encabezado = 'NULL';
$objCartaOrden->cuerpo = 'NULL';
$objCartaOrden->pie = 'NULL';
$objCartaOrden->nombre = 'Cheque Voucher';
$objCartaOrden->status = 1;
$objCartaOrden->archrtf = '';
$objCartaOrden->incluir();
$objCartaOrden = new CartaOrden();
$objCartaOrden->codemp = '0001';
$objCartaOrden->codigo = '001';
$objCartaOrden->encabezado = 'Dirigido a: ';
$objCartaOrden->cuerpo = 'Nos dirigimos a ustedes en la oportunidad de saludarlos y a la vez solicitarles que transfieran de la Cuenta @tipocuenta@ No @cuenta@ a nombre de @empresa@ la cantidad de @montoletras@ (Bs. @monto@), a la cuenta que a continuacion se menciona:\\r\\n\\r\\n<b>CUENTA @tipocuenta@ No @cuenta@ </b>\\r\\n\\r\\n<b>MONTO TOTAL A TRANSFERIR @monto@</b>\\r\\n';
$objCartaOrden->pie = 'Agradeciendo de antemano su atencion, nos reiteramos de ustedes.';
$objCartaOrden->nombre = 'Carta Orden Ejemplo 1';
$objCartaOrden->status = 0;
$objCartaOrden->archrtf = '';
$objCartaOrden->incluir();
unset($objBanco);
unset($objCartaOrden);
unset($objConcepto);
unset($objCtaBanco);
unset($objTipoCta);
}
$arreglo[0]['mensaje'] = obtenerMensaje('DATA_NO_EXISTE');
$arreglo[0]['valido'] = false;
$respuesta = array('raiz' => $arreglo);
$respuesta = json_encode($respuesta);
echo $respuesta;
}
} else {
$arreglo[0]['mensaje'] = obtenerMensaje('OPERACION_FALLIDA');
$arreglo[0]['valido'] = false;
$respuesta = array('raiz' => $arreglo);
$respuesta = json_encode($respuesta);
echo $respuesta;
}
break;
case 'obtenerCuenta':
$objCuenta = new CuentaBanco();
$objCuenta->codemp = $_SESSION['la_empresa']['codemp'];
$objCuenta->servidor = $_SESSION['sigesp_servidor_apr'];
$objCuenta->usuario = $_SESSION['sigesp_usuario_apr'];
$objCuenta->clave = $_SESSION['sigesp_clave_apr'];
$objCuenta->basedatos = $_SESSION['sigesp_basedatos_apr'];
$objCuenta->gestor = $_SESSION['sigesp_gestor_apr'];
$objCuenta->tipoconexionbd = 'ALTERNA';
$i = 0;
$objCuenta->criterio[$i]['operador'] = "AND";
$objCuenta->criterio[$i]['criterio'] = "codban";
$objCuenta->criterio[$i]['condicion'] = "=";
$objCuenta->criterio[$i]['valor'] = "'" . $objdata->codban . "'";
$datos = $objCuenta->leer();
if ($objCuenta->valido) {
if (!$datos->EOF) {
