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);
}
