958 lines
37 KiB
JavaScript
958 lines
37 KiB
JavaScript
// //
|
||
// JavaScript Functions //
|
||
// //
|
||
//////////////////////////////////////
|
||
// Algunas variables Globales
|
||
var entorno = new entObj(0);
|
||
|
||
<!-- constructor for object used to step through id|name lists -->
|
||
function entObj(appreg) {
|
||
this.DirBase="http://ctasapagar.malaga.sando.es/Ctas_a_Pagar";
|
||
this.w_parambase="toolbar=yes,location=no,directories=no,menubar=no,status=yes,scrollbars=yes,resizable=yes";
|
||
this.w_paramApp="toolbar=yes,location=no,directories=no,menubar=no,status=yes,scrollbars=yes,resizable=yes";
|
||
this.appreg=appreg;
|
||
this.es_inicio=0;
|
||
}
|
||
|
||
<!-- connect to database if necessary -->
|
||
function dbConnect() {
|
||
// if (client.es_inicio == 0 ) {
|
||
// entorno.es_inicio=client.es_inicio;
|
||
// redirect("go_close.html");
|
||
// initial.html?ipw=1");
|
||
// parent.window.close();
|
||
//}
|
||
//else
|
||
// client.es_inicio=0 ;
|
||
if (!database.connected()) {
|
||
// arguments:
|
||
// database type INFORMIX
|
||
// database server <your db server name>
|
||
// database login <your db login name>
|
||
// database pw <your db password>
|
||
// database name tock
|
||
// make sure you use a database login that has connect, select, update,
|
||
// insert, and delete privileges on the tock database
|
||
// database.connect("INFORMIX","appalanche_db", "informix", "informix", "tock");
|
||
|
||
client.type = "INFORMIX";
|
||
client.db_id = "ctpagar";
|
||
client.database = "sando_adm";
|
||
client.server = "sandodbs";
|
||
client.password = "15-admisys";
|
||
|
||
status=database.connect(client.type,
|
||
client.server,
|
||
client.db_id,
|
||
client.password,
|
||
client.database);
|
||
DbsError(status,-1);
|
||
}
|
||
}
|
||
|
||
function dbAcl()
|
||
{
|
||
chkBrowser(); // control del Browser
|
||
// if (request.FrameType)
|
||
// client.FrameType=request.FrameType;
|
||
// else
|
||
// request.FrameType=client.FrameType;
|
||
// Aqu<71> va el control de acceso
|
||
// Reasignamos algunas variables globales para el Server
|
||
// Algunos formatos para fechas.
|
||
NLDF="D/M/YY"; // para columnas en las queries INFORMIX
|
||
IFDF="D/M/YY"; // para columnas en SQL seg<65>n DBDATE
|
||
nprinter="hp4mp";
|
||
spoolpath="c:/tmprpts/spool/";
|
||
// Algunos formatos para nros.
|
||
NF2="##"
|
||
NF3="###"
|
||
NF4="#.###"
|
||
NF5="##.###"
|
||
NF6="###.###"
|
||
NF7="#.###.###"
|
||
NF8="##.###.###"
|
||
NF9="###.###.###"
|
||
NF09="***.***.***"
|
||
NFY9="&&&.&&&.&&&"
|
||
NF10="#.###.###.###"
|
||
NF11="##.###.###.###"
|
||
NF12="###.###.###.###"
|
||
// client.acl=2;
|
||
if (!request.uid || request.uid == null)
|
||
redirect("alertpage.html?alert=90");
|
||
// request.uid=client.id;
|
||
// if (!client.acl) { // Ha perdido el acl !!!!
|
||
login = database.cursor("select acl from user where id='"+request.uid+"'");
|
||
if (login.next()) {
|
||
client.acl = login.acl;
|
||
}
|
||
login.close();
|
||
// }
|
||
if (client.acl == 0 || client.acl == null )
|
||
redirect("alertpage.html?alert=0");
|
||
// if ( request.ViewFkey == "S" || request.ViewFkey == "N" )
|
||
// client.ViewFkey = request.ViewFkey;
|
||
// client.FrameType= request.FrameType;
|
||
// request.FrameType="L";
|
||
if (client.acl == 1 ) {
|
||
request.waux="1";
|
||
baseHtml="FrameType="+request.FrameType+"&ViewFkey="+request.ViewFkey+"&uid="+request.uid+"&waux=1"
|
||
}else
|
||
baseHtml="FrameType="+request.FrameType+"&ViewFkey="+request.ViewFkey+"&uid="+request.uid
|
||
}
|
||
function setUrl(docpath,reqObj) {
|
||
baseReq="FrameType="+request.FrameType+"&ViewFkey="+request.ViewFkey+"&uid="+request.uid
|
||
if (!reqObj || reqObj == "")
|
||
var HtmlRef=docpath+"?"+baseReq;
|
||
else
|
||
var HtmlRef=docpath+"?"+reqObj+"&"+baseReq;
|
||
// load_url("main",HtmlRef);
|
||
debug(HtmlRef);
|
||
return HtmlRef;
|
||
}
|
||
function getHtmlRef() {
|
||
return "FrameType="+request.FrameType+"&ViewFkey="+request.ViewFkey+"&uid="+request.uid
|
||
}
|
||
//
|
||
function Go_BaseFrame(FrameType,ViewFkey,MsgScroll,username) {
|
||
parent.document.location.href=entorno.DirBase+"/reinitial.html?FrameType="+FrameType+
|
||
"&ViewFkey="+ViewFkey+
|
||
"&MsgScroll="+MsgScroll+
|
||
"&username="+username
|
||
|
||
// var mainFrame=find_frame(top,"contents");
|
||
// mainFrame.document.f_contents.action=entorno.DirBase+"/ctasapagar.html?FrameType="+FrameType
|
||
// mainFrame.document.f_contents.submit();
|
||
}
|
||
function IniciaRequest(objeto) {
|
||
if (objeto == "us_" || objeto == "all" ) {
|
||
// user ->
|
||
// request.id
|
||
// request.login
|
||
// request.password
|
||
// request.firstname
|
||
// request.lastname
|
||
// request.fullname
|
||
// request.title
|
||
// request.phone
|
||
// request.email
|
||
// request.active
|
||
// request.status
|
||
// request.admin
|
||
// request.def_project
|
||
// request.def_category
|
||
}
|
||
if (objeto == "ac_" || objeto == "all" ) {
|
||
// aptecuentas ->
|
||
request.ac_nro_reg=0
|
||
request.ac_nro_lin=0
|
||
request.ac_cod_cta=""
|
||
request.acf_clave="";
|
||
request.acf_concepto="";
|
||
request.ac_importe=0
|
||
request.ac_tipo_apte="";
|
||
request.ac_fecha="";
|
||
}
|
||
if (objeto == "tc_" || objeto == "all" ) {
|
||
// traspaso_ctas ->
|
||
request.tc_cta_contable="";
|
||
request.tc_importe=0;
|
||
request.tc_es_nueva="N";
|
||
}
|
||
if (objeto == "pr_" || objeto == "all" ) {
|
||
// proveedores ->
|
||
request.pr_nif="";
|
||
request.pr_razon_social="";
|
||
request.pr_cta_contable="";
|
||
request.pr_cond_pago="";
|
||
request.pr_domicilio="";
|
||
request.pr_localidad="";
|
||
request.pr_cod_postal="";
|
||
request.pr_attn_envio="";
|
||
request.pr_direccion_envio="";
|
||
request.pr_localidad_envio="";
|
||
request.pr_cod_postal_envio="";
|
||
request.pr_telefono_1="";
|
||
request.pr_telefono_2="";
|
||
request.pr_fax="";
|
||
request.pr_e_mail="";
|
||
request.pr_observaciones="";
|
||
request.pr_expediente="";
|
||
request.pr_t_condpago="";
|
||
request.pr_t_localidad="";
|
||
request.pr_t_loc_envio="";
|
||
}
|
||
if (objeto == "ce_" || objeto == "all" ) {
|
||
// centros ->
|
||
request.ce_cod_centro="";
|
||
request.ce_cod_departamento="";
|
||
request.ce_descripcion="";
|
||
}
|
||
if (objeto == "cp_" || objeto == "all" ) {
|
||
// cond_pago ->
|
||
request.cp_cond_pago="";
|
||
request.cp_descripcion="";
|
||
request.cp_vencimiento=0
|
||
}
|
||
if (objeto == "pe_" || objeto == "all" ) {
|
||
// pedidos ->
|
||
request.pe_nro_pedido="";
|
||
request.pe_descripcion="";
|
||
request.pe_nif_proveedor="";
|
||
request.pe_cod_centro="";
|
||
request.pe_cond_pago="";
|
||
request.pe_fecha_pedido="";
|
||
request.pe_fecha_entrega="";
|
||
request.pe_importe=0;
|
||
request.pe_observaciones="";
|
||
request.pe_expediente="";
|
||
}
|
||
if (objeto == "ct_" || objeto == "all" ) {
|
||
// ctas_contables ->
|
||
request.ct_cta_contable="";
|
||
request.ct_descripcion="";
|
||
request.ct_es_nueva="";
|
||
}
|
||
if (objeto == "cv_" || objeto == "all" ) {
|
||
// ctas_contables ->
|
||
request.cv_cod_clave="";
|
||
request.cv_descripcion="";
|
||
}
|
||
if (objeto == "al_" || objeto == "all" ) {
|
||
// albalineas ->
|
||
request.al_nro_lin=0;
|
||
request.al_nro_reg="";
|
||
request.al_cantidad=0;
|
||
request.al_referencia="";
|
||
request.al_descripcion="";
|
||
request.al_precio_und=0;
|
||
}
|
||
if (objeto == "lo_" || objeto == "all" ) {
|
||
// localidades ->
|
||
request.lo_cod_localidad="";
|
||
request.lo_descripcion="";
|
||
}
|
||
if (objeto == "re_" || objeto == "all" ) {
|
||
// registros ->
|
||
request.rg_tipo_reg="";
|
||
request.rg_nro_reg=0;
|
||
}
|
||
if (objeto == "ab_" || objeto == "all" ) {
|
||
// albaranes ->
|
||
request.ab_nro_reg="";
|
||
request.ab_is_locked="N";
|
||
request.ab_fra_reg="";
|
||
request.ab_fecha_emision="";
|
||
request.ab_cod_centro="";
|
||
request.ab_nif=" ";
|
||
request.ab_por_reten=client.pa_reten_1;
|
||
request.ab_importe_reten=0;
|
||
request.ab_nro_pedido="";
|
||
request.ab_vto_jefe_obra="";
|
||
request.ab_vto_jefe_grupo="";
|
||
request.ab_vto_proveedor="";
|
||
request.ab_observaciones="";
|
||
request.ab_expediente="";
|
||
}
|
||
if (objeto == "af_" || objeto == "all" ) {
|
||
// albafras ->
|
||
request.af_nroreg_albafact="";
|
||
request.af_nroreg_factura="";
|
||
request.af_nroreg_albaran="";
|
||
request.af_observaciones="";
|
||
}
|
||
if (objeto == "ba_" || objeto == "all" ) {
|
||
// bancos ->
|
||
request.ba_cod_banco="";
|
||
request.ba_nombre="";
|
||
request.ba_domicilio="";
|
||
request.ba_localidad="";
|
||
request.ba_cod_postal="";
|
||
request.ba_entidad="";
|
||
request.ba_sucursal="";
|
||
request.ba_cod_control="";
|
||
request.ba_nro_cc="";
|
||
request.ba_nro_lins="";
|
||
request.ba_l_importe="";
|
||
request.ba_c_importe="";
|
||
request.ba_l_paguese="";
|
||
request.ba_c_paguese="";
|
||
request.ba_l1_nroletra="";
|
||
request.ba_c1_nroletra="";
|
||
request.ba_l2_nroletra="";
|
||
request.ba_c2_nroletra="";
|
||
request.ba_l_fecha="";
|
||
request.ba_c_fecha="";
|
||
request.ba_l_mes="";
|
||
request.ba_c_mes="";
|
||
request.ba_l_anno="";
|
||
request.ba_c_anno="";
|
||
request.ba_l1_firmado="";
|
||
request.ba_c1_firmado="";
|
||
request.ba_l2_firmado="";
|
||
request.ba_c2_firmado="";
|
||
request.ba_t1_firmado="";
|
||
request.ba_t2_firmado="";
|
||
}
|
||
if (objeto == "fa_" || objeto == "all" ) {
|
||
// facturas ->
|
||
request.fa_nro_reg="";
|
||
request.fa_nro_regn="";
|
||
request.fa_nro_regy="";
|
||
request.fa_is_locked="N";
|
||
request.fa_mes=NroFormat(HOY.getMonth()+1,"00");
|
||
request.fa_nro_fra="";
|
||
request.fa_f_emision="";
|
||
request.fa_f_recepcion="";
|
||
request.fa_f_pago="";
|
||
request.fa_tipo_fra=1;
|
||
request.fa_tipo_calc_iva=1;
|
||
request.fa_importe_total=0;
|
||
request.fa_nif="";
|
||
request.fa_cod_centro="";
|
||
request.fa_nro_pedido="";
|
||
request.fa_cond_pago="";
|
||
request.fa_tipo_doc_pago=1;
|
||
request.fa_nro_doc_pago="";
|
||
request.fa_f_emision_pago="";
|
||
request.fa_cod_localidad="";
|
||
request.fa_cod_banco="";
|
||
request.fa_base_1=0;
|
||
request.fa_por_ret1=0;
|
||
request.fa_ret_1=0;
|
||
request.fa_por_iva1=client.pa_iva_1;
|
||
request.fa_iva_1=0;
|
||
request.fa_base_2=0;
|
||
request.fa_por_ret2=0;
|
||
request.fa_ret_2=0;
|
||
request.fa_por_iva2=client.pa_iva_2;
|
||
request.fa_iva_2=0;
|
||
request.fa_base_3=0;
|
||
request.fa_por_ret3=0;
|
||
request.fa_ret_3=0;
|
||
request.fa_por_iva3=client.pa_iva_3;
|
||
request.fa_iva_3=0;
|
||
request.fa_canexen=0;
|
||
request.fa_base_imponible=0;
|
||
request.fa_tipo_retencion=1;
|
||
request.fa_tipo_deduccion="";
|
||
request.fa_deducciones=0;
|
||
request.fa_sin_pedido="";
|
||
request.fa_traspaso_gasto="N";
|
||
request.fa_traspaso_vto="N";
|
||
request.fa_traspaso_pago="N";
|
||
request.fa_nro_reg_vto="";
|
||
request.fa_vto_pago="";
|
||
request.fa_observaciones="";
|
||
request.fa_expediente="";
|
||
}
|
||
if (objeto == "acf_" || objeto == "all" ) {
|
||
// aptectasfra ->
|
||
request.acf_nro_reg="";
|
||
request.acf_nro_lin=0;
|
||
request.acf_tipolin="";
|
||
request.acf_cod_cta="";
|
||
request.acf_clave="";
|
||
request.acf_concepto="";
|
||
request.acf_importe=0;
|
||
request.acf_tipo_apte="";
|
||
request.acf_fecha="";
|
||
}
|
||
if (objeto == "pa_" || objeto == "all" ) {
|
||
request.pa_id = 1;
|
||
request.pa_nro_reg = "";
|
||
request.pa_longcta = 0;
|
||
request.pa_dia_pago_1 = 0;
|
||
request.pa_dia_pago_2 = 0;
|
||
request.pa_ex_dia_pago = "";
|
||
request.pa_iva_1 = 0;
|
||
request.pa_iva_2 = 0;
|
||
request.pa_reten_1 = 0;
|
||
request.pa_ctas_reten_1 = "";
|
||
request.pa_clave_reten_1 = "";
|
||
request.pa_reten_2 = 0;
|
||
request.pa_ctas_reten_2 = "";
|
||
request.pa_clave_reten_2 = "";
|
||
request.pa_ctas_iva = "";
|
||
request.pa_clave_iva = "";
|
||
request.pa_ctas_cont = "";
|
||
request.pa_clave_cont = "";
|
||
request.pa_ctas_comp = "";
|
||
request.pa_clave_comp = "";
|
||
request.pa_ctas_coniva = "";
|
||
request.pa_clave_coniva = "";
|
||
request.pa_ctas_siniva = "";
|
||
request.pa_clave_siniva = "";
|
||
request.pa_ctas_dev = "";
|
||
request.pa_clave_dev = "";
|
||
}
|
||
}
|
||
// ---------------------- Select Tablas ----------------------------------
|
||
|
||
function CursorTabla(CodTabla,clave,criterio,chk,forupdate)
|
||
{
|
||
if ( CodTabla == "pa" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_parametros=database.cursor("SELECT * FROM parametros WHERE "+ clave +criterio , forupdate );
|
||
status=c_parametros.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "acf" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_aptectasfra=database.cursor("SELECT * FROM aptectasfra WHERE "+ clave +criterio , forupdate );
|
||
// status=c_aptectasfra.next();
|
||
// if ( chk == true )
|
||
// DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "ac" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_aptecuentas=database.cursor("SELECT * FROM aptecuentas WHERE "+ clave +criterio , forupdate );
|
||
if ( chk == true )
|
||
status=c_aptecuentas.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "tc" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_traspaso_ctas=database.cursor("SELECT * FROM traspaso_ctas WHERE "+ clave +criterio , forupdate );
|
||
status=c_traspaso_ctas.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "pr" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_proveedores=database.cursor("SELECT * FROM proveedores WHERE "+ clave +criterio , forupdate );
|
||
status=c_proveedores.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "ce" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_centros=database.cursor("SELECT * FROM centros WHERE "+ clave +criterio , forupdate );
|
||
status=c_centros.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "pl" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_plan_contable=database.cursor("SELECT * FROM plan_contable WHERE "+ clave +criterio , forupdate );
|
||
status=c_plan_contable.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
|
||
if ( CodTabla == "cp" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_cond_pago=database.cursor("SELECT * FROM cond_pago WHERE "+ clave +criterio , forupdate );
|
||
status=c_cond_pago.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "pe" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_pedidos=database.cursor("SELECT * FROM pedidos WHERE "+ clave +criterio , forupdate );
|
||
status=c_pedidos.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "lo" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_localidades=database.cursor("SELECT * FROM localidades WHERE "+ clave +criterio , forupdate );
|
||
status=c_localidades.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "fa" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_facturas=database.cursor("SELECT * FROM facturas WHERE "+ clave +criterio , forupdate );
|
||
status=c_facturas.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "ct" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_ctas_contables=database.cursor("SELECT * FROM ctas_contables WHERE "+ clave +criterio , forupdate );
|
||
status=c_ctas_contables.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "ba" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_bancos=database.cursor("SELECT * FROM bancos WHERE "+ clave +criterio , forupdate );
|
||
status=c_bancos.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "al" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_albalineas=database.cursor("SELECT * FROM albalineas WHERE "+ clave +criterio , forupdate );
|
||
if ( chk == true )
|
||
status=c_albalineas.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "cv" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_claves=database.cursor("SELECT * FROM claves WHERE "+ clave +criterio , forupdate );
|
||
status=c_claves.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "re" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_registro=database.cursor("SELECT * FROM registro WHERE "+ clave +criterio , forupdate );
|
||
status=c_registro.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "ab" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_albaranes=database.cursor("SELECT * FROM albaranes WHERE "+ clave +criterio , forupdate );
|
||
status=c_albaranes.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "af" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_albafras=database.cursor("SELECT * FROM albafras WHERE "+ clave +criterio , forupdate );
|
||
if ( chk == true )
|
||
status=c_albafras.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
if ( CodTabla == "pa" ) {
|
||
//Si se busca la fila ... usando la clave primaria de la relaci<63>n
|
||
c_parametros=database.cursor("SELECT * FROM parametros WHERE "+ clave +criterio , forupdate );
|
||
status=c_parametros.next();
|
||
if ( chk == true )
|
||
DbsError(true,status);
|
||
}
|
||
}
|
||
|
||
function LoadHidden(htmlBaseRef) {
|
||
writeln('<INPUT type="hidden" NAME="FrameType" VALUE="'+request.FrameType+'" SIZE=1 maxlength=1 >');
|
||
writeln('<INPUT type="hidden" NAME="uid" VALUE="'+request.uid+'" SIZE=1 maxlength=1 >');
|
||
writeln('<INPUT type="hidden" NAME="ViewFkey" VALUE="'+request.ViewFkey+'" SIZE=1 maxlength=1 >');
|
||
writeln('<INPUT type="hidden" NAME="htmlBaseRef" VALUE="'+htmlBaseRef+'" SIZE=200>');
|
||
}
|
||
function ObjHeadBar(valor,texto,obj) {
|
||
writeln('<CENTER>');
|
||
writeln('<TABLE BORDER=6><TR>');
|
||
writeln(' <TD><A HREF="logout.html?bb=1" target="_top">');
|
||
writeln(' <IMG SRC="images/bb_logout.gif"');
|
||
writeln(' ALT="Logout" BORDER=0 HEIGHT=61 WIDTH=66></A></TD>');
|
||
writeln(' <TD ALIGN=LEFT>');
|
||
if ( obj != "rpt" ) {
|
||
if (!valor)
|
||
writeln("<INPUT type='submit' name='add' value='Confirmar'><BR>");
|
||
if (valor && request.nvo)
|
||
writeln("<INPUT type='submit' name='add' value='Confirmar'><BR>");
|
||
if (valor && !request.nvo && request.lock)
|
||
writeln("<INPUT type='submit' name='upd' value='Confirmar'><BR>");
|
||
if (valor && !request.nvo && !request.lock)
|
||
writeln("<INPUT type='submit' name='lock' value='Modificar'><BR>");
|
||
if ( request.ViewFkey == "S" && request.lock )
|
||
writeln("<INPUT type='button' name='ir' value='Ir a' onClick='Enfoca(this)' >");
|
||
if ( request.ViewFkey == "N" && request.lock )
|
||
writeln("<INPUT type='button' name='ver' value='Ver' onClick='FormPaint(this)'>");
|
||
}
|
||
if ( obj == "ab_" && request.lock) {
|
||
writeln("<INPUT type='button' name='linCta' value='Cta.' onClick='Enfoca(this)' >");
|
||
writeln("<INPUT type='button' name='linAlb' value='L<>nea' onClick='Enfoca(this)'>");
|
||
}
|
||
if ( obj == "fa_" && request.lock) {
|
||
writeln("<INPUT type='button' name='linCta' value='Cta.' onClick='Enfoca(\"linCta\")' >");
|
||
writeln("<INPUT type='button' name='linAlb' value='Alb.' onClick='Enfoca(\"linAlb\")'>");
|
||
}
|
||
writeln(' <A HREF="javascript:history.back()">');
|
||
writeln(' <IMG SRC="images/l_arrowg.gif" ALT="Volver" BORDER=0 HEIGHT=35 WIDTH=47></TD>');
|
||
writeln(' <TD><H1 ALIGN=CENTER><FONT SIZE=+3><FONT COLOR="#008000">');
|
||
writeln(' '+texto+'');
|
||
writeln(' </FONT><FONT COLOR="#FF00FF"></FONT></FONT></H1></TD>');
|
||
writeln(' <TD ALIGN=RIGHT>');
|
||
if ( obj != "rpt" ) {
|
||
if (request.lock)
|
||
writeln('<INPUT type="reset" value="Deshacer"><BR> ');
|
||
if (valor && !request.nvo )
|
||
writeln("<INPUT type='submit' name='del' value='Borrar'>");
|
||
}
|
||
writeln(' </TD><TD><A HREF="fr_main.html?goback=1" onClick="NetHelp(\'intro\')">');
|
||
writeln(' <IMG SRC="images/bb_help.gif" ALT="Ayuda" BORDER=0 HEIGHT=61 WIDTH=61></A></TD></TR>');
|
||
writeln('</TABLE></CENTER>');
|
||
writeln('<HR SIZE=3 WIDTH="100%">');
|
||
}
|
||
function QueryHeadBar(texto,criterio,obj) {
|
||
writeln('<CENTER>');
|
||
writeln('<TABLE BORDER=6>');
|
||
writeln(' <TR><TD ALIGN=LEFT>');
|
||
writeln(' <A HREF="logout.html?bb=1" target="_top">');
|
||
writeln(' <IMG SRC="images/bb_logout.gif"');
|
||
writeln(' ALT="Logout" BORDER=0 HEIGHT=61 WIDTH=66></A><BR></TD>');
|
||
writeln(' <TD ALIGN=LEFT>');
|
||
if ( obj != "rpt" ) {
|
||
if (client.acl != 1 && !request.waux)
|
||
writeln(' <INPUT type="submit" value="Alta">');
|
||
}
|
||
writeln(' <A HREF="javascript:history.back();history.back();">');
|
||
writeln(' <IMG SRC="images/l_arrowg.gif"');
|
||
writeln(' ALT="Volver" BORDER=0 HEIGHT=35 WIDTH=47><BR></A></TD>');
|
||
writeln(' <TD><H1 ALIGN=CENTER><FONT SIZE=+3><FONT COLOR="#008000">');
|
||
writeln(' '+texto+'</FONT><BR>');
|
||
writeln('<!-- <FONT COLOR="#FF00FF"> -->');
|
||
writeln(' <FONT SIZE=+2>'+criterio+'</FONT></FONT></H1></TD>');
|
||
writeln(' <TD ALIGN=RIGHT>');
|
||
writeln(' <A HREF="javascript:history.forward()">');
|
||
writeln(' <IMG SRC="images/r_arrowg.gif"');
|
||
writeln(' ALT="Volver" BORDER=0 HEIGHT=35 WIDTH=47></A></TD>');
|
||
writeln(' <TD ALIGN=RIGHT><BR>');
|
||
writeln(' <A HREF="fr_main.html?goback=1"');
|
||
writeln(' onClick="NetHelp(\'intro\')">');
|
||
writeln(' <IMG SRC="images/bb_help.gif"');
|
||
writeln(' ALT="Ayuda" BORDER=0 HEIGHT=61 WIDTH=61></A><BR></TD></TR>');
|
||
writeln('</TABLE></CENTER>');
|
||
writeln('<HR SIZE=3 WIDTH="100%">');
|
||
}
|
||
function execMainFrm(obj) {
|
||
var accion=obj.name;
|
||
var mainFrame=find_frame(top,"main");
|
||
var f_form=mainFrame.document.forms[0];
|
||
if ( accion == "add" ) {
|
||
if (mainFrame.Chek_fields(f_form) == true) {
|
||
f_form.action=f_form.htmlBaseRef.value+"&add=1";
|
||
f_form.submit();
|
||
}
|
||
}
|
||
if ( accion == "Actualizar" ) {
|
||
if (mainFrame.Chek_fields(f_form) == true) {
|
||
f_form.action=f_form.htmlBaseRef.value+"&upd=1";
|
||
f_form.submit();
|
||
}
|
||
}
|
||
if ( accion == "Modificar" ) {
|
||
f_form.action=f_form.htmlBaseRef.value+"&lock=true";
|
||
f_form.submit();
|
||
}
|
||
if ( accion == "Ir a" )
|
||
mainFrame.Enfoca("Ir a");
|
||
if ( accion == "Refrescar" ) {
|
||
f_form.action=f_form.htmlBaseRef.value+"&cookie=1&lock=true";
|
||
f_form.submit();
|
||
}
|
||
if ( accion == "Deshacer" )
|
||
f_form.reset();
|
||
if ( accion == "Borrar" ) {
|
||
f_form.action=f_form.htmlBaseRef.value+"&del=1";
|
||
f_form.submit();
|
||
}
|
||
if ( accion == "Cta." )
|
||
mainFrame.Enfoca("linCta");
|
||
if ( accion == "Alb." )
|
||
mainFrame.Enfoca("linAlb");
|
||
};
|
||
|
||
function ObjButtons(valor,texto,obj) {
|
||
writeln(' ndoc.close();');
|
||
writeln(' ndoc.open();');
|
||
writeln(' ndoc.clear();');
|
||
writeln(' ndoc.writeln(\'<HTML><HEAD></HEAD>\');');
|
||
// writeln(' ndoc.writeln(\'<SCRIPT SRC="global.js">\');');
|
||
// writeln(' ndoc.writeln(\'</SCRIPT>\');');
|
||
writeln(' ndoc.writeln(\'<BODY BACKGROUND="images/backgrnd.gif">\');');
|
||
writeln(' ndoc.writeln(\'<FORM NAME="f_buttons" METHOD="post" action="\'+formAction+\'">\');');
|
||
writeln(' ndoc.writeln(\'<CENTER>\');');
|
||
writeln(' ndoc.writeln(\'<TABLE BORDER=6><TR>\');');
|
||
writeln(' ndoc.writeln(\' <TD><A HREF="logout.html?bb=1" target="_top">\');');
|
||
writeln(' ndoc.writeln(\' <IMG SRC="images/bb_logout.gif"\');');
|
||
writeln(' ndoc.writeln(\' ALT="Logout" BORDER=0 HEIGHT=61 WIDTH=66></A></TD>\');');
|
||
writeln(' ndoc.writeln(\' <TD ALIGN=LEFT>\');');
|
||
if ( obj != "rpt" ) {
|
||
if (!valor)
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="add" value="Confirmar" onClick="parent.execMainFrm(this)"><BR>\');');
|
||
if (valor && request.nvo)
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="add" value="Confirmar" onClick="parent.execMainFrm(this)"><BR>\');');
|
||
if (valor && !request.nvo && request.lock)
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="Actualizar" value="Confirmar" onClick="parent.execMainFrm(this)"><BR>\');');
|
||
if (valor && !request.nvo && !request.lock)
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="Modificar" value="Modificar" onClick="parent.execMainFrm(this)"><BR>\');');
|
||
if ( request.ViewFkey == "S" && request.lock )
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="Ir a" value="Ir a" onClick="parent.execMainFrm(this)">\');');
|
||
if ( request.ViewFkey == "N" && request.lock )
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="Refrescar" value="Ver" onClick="parent.execMainFrm(this)"><BR>\');');
|
||
}
|
||
if ( obj == "ab_") {
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="Cta." value="Cta." onClick="parent.execMainFrm(this)">\');');
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="Linea" value="L<>nea" onClick="parent.execMainFrm(this)" >\');');
|
||
}
|
||
if ( obj == "fa_") {
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="Cta." value="Cta." onClick="parent.execMainFrm(this)">\');');
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="Alb." value="Alb." onClick="parent.execMainFrm(this)">\');');
|
||
}
|
||
// writeln(' ndoc.writeln(\' <A HREF="javascript:history.back()" target="_parent">\');');
|
||
// writeln(' ndoc.writeln(\' <IMG SRC="images/l_arrowg.gif" ALT="Volver" BORDER=0 HEIGHT=35 WIDTH=47></TD>\');');
|
||
writeln(' ndoc.writeln(\' <TD><H1 ALIGN=CENTER><FONT SIZE=+3><FONT COLOR="#008000">\');');
|
||
writeln(' ndoc.writeln(\' '+texto+'\');');
|
||
writeln(' ndoc.writeln(\' </FONT><FONT COLOR="#FF00FF"></FONT></FONT></H1></TD>\');');
|
||
writeln(' ndoc.writeln(\' <TD ALIGN=RIGHT>\');');
|
||
if ( obj != "rpt" ) {
|
||
if (request.lock)
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="Deshacer" value="Deshacer" onClick="parent.execMainFrm(this)"><BR>\');');
|
||
if (valor && !request.nvo )
|
||
writeln(' ndoc.writeln(\'<INPUT type="button" name="Borrar" value="Borrar" onClick="parent.execMainFrm(this)">\');');
|
||
}
|
||
writeln(' ndoc.writeln(\' </TD><TD><A HREF="\'+formAction+\'&gofunc=Ayuda&valor=intro">\');');
|
||
// writeln(" ndoc.writeln(' </TD><TD><A HREF=\"fr_main.html?goback=1\" onClick=\"NetHelp(\\'intro\\')\">');");
|
||
writeln(' ndoc.writeln(\' <IMG SRC="images/bb_help.gif" ALT="Ayuda" BORDER=0 HEIGHT=61 WIDTH=61></A></TD></TR>\');');
|
||
writeln(' ndoc.writeln(\'</TABLE></CENTER></FORM>\');');
|
||
writeln(' ndoc.writeln(\'<HR SIZE=3 WIDTH="100%">\');');
|
||
writeln(' ndoc.close();');
|
||
}
|
||
function QueryButtons(texto,criterio,obj) {
|
||
writeln(' ndoc.close();');
|
||
writeln(' ndoc.open();');
|
||
writeln(' ndoc.clear();');
|
||
writeln(' ndoc.writeln(\'<HTML><HEAD></HEAD>\');');
|
||
writeln(' ndoc.writeln(\'<BODY BACKGROUND="images/backgrnd.gif">\');');
|
||
writeln(' ndoc.writeln(\'<FORM NAME="f_Querybuttons" METHOD="post" action="\'+formAction+\'">\');');
|
||
writeln(' ndoc.writeln(\'<CENTER>\');');
|
||
writeln(' ndoc.writeln(\'<TABLE BORDER=6><TR>\');');
|
||
writeln(' ndoc.writeln(\' <TD><A HREF="logout.html?bb=1" target="_top">\');');
|
||
writeln(' ndoc.writeln(\' <IMG SRC="images/bb_logout.gif"\');');
|
||
writeln(' ndoc.writeln(\' ALT="Logout" BORDER=0 HEIGHT=61 WIDTH=66></A></TD>\');');
|
||
writeln(' ndoc.writeln(\' <TD ALIGN=LEFT>\');');
|
||
if ( obj != "rpt" ) {
|
||
if (client.acl != 1 && !request.waux)
|
||
writeln(' ndoc.writeln(\' <INPUT type="submit" name="gofunc" value="Alta">\');');
|
||
}
|
||
// writeln(' ndoc.writeln(\' <A HREF="javascript:history.back()" target="_parent">\');');
|
||
// writeln(' ndoc.writeln(\' <IMG SRC="images/l_arrowg.gif" ALT="Volver" BORDER=0 HEIGHT=35 WIDTH=47></TD>\');');
|
||
writeln(' ndoc.writeln(\' <TD><H1 ALIGN=CENTER><FONT SIZE=+3><FONT COLOR="#008000">\');');
|
||
writeln(' ndoc.writeln(\' '+texto+'</FONT><BR>\');');
|
||
writeln(' ndoc.writeln(\'<!-- <FONT COLOR="#FF00FF"> -->\');');
|
||
writeln(' ndoc.writeln(\' <FONT SIZE=+2>'+criterio+'</FONT></FONT></H1></TD>\');');
|
||
writeln(' ndoc.writeln(\' <TD ALIGN=RIGHT>\');');
|
||
writeln(' ndoc.writeln(\' </TD><TD><A HREF="\'+formAction+\'&gofunc=Ayuda&valor=intro">\');');
|
||
// writeln(" ndoc.writeln(' </TD><TD><A HREF=\"fr_main.html?goback=1\" onClick=\"NetHelp(\\'intro\\')\">');");
|
||
writeln(' ndoc.writeln(\' <IMG SRC="images/bb_help.gif" ALT="Ayuda" BORDER=0 HEIGHT=61 WIDTH=61></A></TD></TR>\');');
|
||
writeln(' ndoc.writeln(\'</TABLE></CENTER></FORM>\');');
|
||
writeln(' ndoc.writeln(\'<HR SIZE=3 WIDTH="100%">\');');
|
||
writeln(' ndoc.close();');
|
||
}
|
||
|
||
function writeSignature(showfull) {
|
||
if (showfull == true) {
|
||
writeln('<CENTER><HR SIZE=3 WIDTH="100%">');
|
||
writeln('<TABLE BORDER=1 ALIGN=CENTER>');
|
||
writeln(' <CAPTION></CAPTION>');
|
||
writeln(' <TR>');
|
||
writeln(' <TD ALIGN=LEFT>');
|
||
writeln(' <BGCOLOR="#FFFFFF" >');
|
||
writeln(' <A HREF="http://ctasapagar">');
|
||
writeln(' <IMG SRC="images/SGRP.jpg" BORDER=0 HEIGHT=76 WIDTH=86>');
|
||
writeln(' </A>');
|
||
writeln(' </TD>');
|
||
writeln(' <TD><I><FONT COLOR="#FF0080"><FONT SIZE=+2><B>');
|
||
writeln(' <A HREF="fr_main.html">');
|
||
writeln(' Dpto. Cuentas a Pagar');
|
||
writeln(' </A></B> </FONT></FONT></I>');
|
||
writeln(' </TD>');
|
||
writeln(' </TR>');
|
||
writeln('</TABLE></CENTER>');
|
||
writeln('<HR SIZE=3 WIDTH="100%">');
|
||
}
|
||
writeln('<CENTER>');
|
||
writeln('<FONT SIZE=-1>');
|
||
writeln('<B>Contactar con</B>: <ctasapagar></FONT><FONT SIZE=+1>');
|
||
writeln('<A HREF="mailto:ctasapagar%3Csando_malaga@admisys.com%3E">');
|
||
writeln(' Departamento de Cuentas a Pagar<BR>');
|
||
writeln('</A>');
|
||
writeln('</FONT><FONT SIZE=-1>Copyright © 1997 </FONT>');
|
||
writeln('<A HREF="mailto:info%3Csando_malaga@admisys.com%3E">');
|
||
writeln(' Construcciones SANDO SA');
|
||
writeln('</A>');
|
||
writeln('<FONT SIZE=-1>& </FONT>');
|
||
writeln('<A HREF="mailto:info@admisys.com">');
|
||
writeln(' AdmiSys SL');
|
||
writeln('</A>');
|
||
writeln('<FONT SIZE=-1>');
|
||
writeln('<BR>Rev. 1.0 </FONT>');
|
||
writeln('<A HREF="mailto:webteam@admisys.com">');
|
||
writeln(' webteam@admisys.com');
|
||
writeln('</A>');
|
||
writeln('<FONT SIZE=-1><BR></CENTER>');
|
||
}
|
||
|
||
function LoadParametros() {
|
||
UnLoadParametros();
|
||
c_param = database.cursor("select * from parametros where id=1");
|
||
if (c_param.next()) {
|
||
client.pa_id = c_param.id;
|
||
client.pa_nro_reg = StringClip(false,c_param.nro_reg);
|
||
client.pa_longcta = c_param.longcta;
|
||
client.pa_dia_pago_1 = c_param.dia_pago_1;
|
||
client.pa_dia_pago_2 = c_param.dia_pago_2;
|
||
client.pa_ex_dia_pago = StringClip(false,c_param.ex_dia_pago);
|
||
client.pa_iva_1 = c_param.iva_1;
|
||
client.pa_iva_2 = c_param.iva_2;
|
||
client.pa_iva_3 = c_param.iva_3;
|
||
client.pa_reten_1 = c_param.reten_1;
|
||
client.pa_cta_reten_1 = StringClip(false,c_param.cta_reten_1);
|
||
client.pa_clave_reten_1 = StringClip(false,c_param.clave_reten_1);
|
||
client.pa_reten_2 = c_param.reten_2;
|
||
client.pa_cta_reten_2 = StringClip(false,c_param.cta_reten_2);
|
||
client.pa_clave_reten_2 = StringClip(false,c_param.clave_reten_2);
|
||
client.pa_cta_iva = StringClip(false,c_param.cta_iva);
|
||
client.pa_clave_iva = StringClip(false,c_param.clave_iva);
|
||
client.pa_cta_cont = StringClip(false,c_param.cta_cont);
|
||
client.pa_clave_cont = StringClip(false,c_param.clave_cont);
|
||
client.pa_cta_comp = StringClip(false,c_param.cta_comp);
|
||
client.pa_clave_comp = StringClip(false,c_param.clave_comp);
|
||
client.pa_cta_coniva = StringClip(false,c_param.cta_coniva);
|
||
client.pa_clave_coniva = StringClip(false,c_param.clave_coniva);
|
||
client.pa_cta_siniva = StringClip(false,c_param.cta_siniva);
|
||
client.pa_clave_siniva = StringClip(false,c_param.clave_siniva);
|
||
client.pa_cta_dev = StringClip(false,c_param.cta_dev);
|
||
client.pa_clave_dev = StringClip(false,c_param.clave_dev);
|
||
client.pa_cp_lock = StringClip(false,c_param.cp_lock);
|
||
}
|
||
c_param.close();
|
||
}
|
||
function SetParametros() {
|
||
writeln('// Variables de Entorno ');
|
||
writeln(' pa_id='+ client.pa_id + ' ;');
|
||
writeln(' pa_nro_reg='+ client.pa_nro_reg + ' ;');
|
||
writeln(' pa_nro_remesa='+ client.pa_nro_remesa + ' ;');
|
||
writeln(' pa_longcta='+ client.pa_longcta + ' ;');
|
||
writeln(' pa_dia_pago_1='+ client.pa_dia_pago_1 + ' ;');
|
||
writeln(' pa_dia_pago_2='+ client.pa_dia_pago_2 + ' ;');
|
||
writeln(' pa_ex_dia_pago='+ client.pa_ex_dia_pago + ' ;');
|
||
writeln(' pa_iva_1='+ client.pa_iva_1 + ' ;');
|
||
writeln(' pa_iva_2='+ client.pa_iva_2 + ' ;');
|
||
writeln(' pa_iva_3='+ client.pa_iva_3 + ' ;');
|
||
writeln(' pa_reten_1='+ client.pa_reten_1 + ' ;');
|
||
writeln(' pa_cta_reten_1="'+ client.pa_cta_reten_1 + '" ;');
|
||
writeln(' pa_clave_reten_1="'+ client.pa_clave_reten_1 + '" ;');
|
||
writeln(' pa_reten_2='+ client.pa_reten_2 + ' ;');
|
||
writeln(' pa_cta_reten_2="'+ client.pa_cta_reten_2 + '" ;');
|
||
writeln(' pa_clave_reten_2="'+ client.pa_clave_reten_2 + '" ;');
|
||
writeln(' pa_cta_iva="'+ client.pa_cta_iva + '" ;');
|
||
writeln(' pa_clave_iva="'+ client.pa_clave_iva + '" ;');
|
||
writeln(' pa_cta_cont="'+ client.pa_cta_cont + '" ;');
|
||
writeln(' pa_clave_cont="'+ client.pa_clave_cont + '" ;');
|
||
writeln(' pa_cta_comp="'+ client.pa_cta_comp + '" ;');
|
||
writeln(' pa_clave_comp="'+ client.pa_clave_comp + '" ;');
|
||
writeln(' pa_cta_coniva="'+ client.pa_cta_coniva + '" ;');
|
||
writeln(' pa_clave_coniva="'+ client.pa_clave_coniva + '" ;');
|
||
writeln(' pa_cta_siniva="'+ client.pa_cta_siniva + '" ;');
|
||
writeln(' pa_clave_siniva="'+ client.pa_clave_siniva + '" ;');
|
||
writeln(' pa_cta_dev="'+ client.pa_cta_dev + '" ;');
|
||
writeln(' pa_clave_dev="'+ client.pa_clave_dev + '" ;');
|
||
writeln(' pa_cp_lock="'+ client.pa_cp_lock + '" ;');
|
||
writeln(' baseHtml="'+ baseHtml + '" ;');
|
||
writeln('//');
|
||
}
|
||
function UnLoadParametros() {
|
||
client.pa_id = null;
|
||
client.pa_nro_reg = null;
|
||
client.pa_nro_remesa = null;
|
||
client.pa_longcta = null;
|
||
client.pa_dia_pago_1 = null;
|
||
client.pa_dia_pago_2 = null;
|
||
client.pa_ex_dia_pago = null;
|
||
client.pa_iva_1 = null;
|
||
client.pa_iva_2 = null;
|
||
client.pa_iva_3 = null;
|
||
client.pa_reten_1 = null;
|
||
client.pa_cta_reten_1 = null;
|
||
client.pa_calve_reten_1 = null;
|
||
client.pa_reten_2 = null;
|
||
client.pa_cta_reten_1 = null;
|
||
client.pa_calve_reten_1 = null;
|
||
client.pa_cta_iva = null;
|
||
client.pa_clave_iva = null;
|
||
client.pa_cta_cont = null;
|
||
client.pa_clave_cont = null;
|
||
client.pa_cta_comp = null;
|
||
client.pa_clave_comp = null;
|
||
client.pa_cta_siniva = null;
|
||
client.pa_clave_siniva = null;
|
||
client.pa_cta_coniva = null;
|
||
client.pa_clave_coniva = null;
|
||
client.pa_cta_dev = null;
|
||
client.pa_clave_dev = null;
|
||
client.pa_cp_lock = null;
|
||
}
|
||
|
||
function CtaNroPad(obj) {
|
||
if ( obj.value.length == 0 )
|
||
return;
|
||
var nro=parseInt(obj.value);
|
||
if ( nro+1 > 0 )
|
||
var c_nro=nro+"";
|
||
else {
|
||
alert("El dato: '"+obj.value+"' Contiene caracteres no v<>lidos");
|
||
obj.focus();
|
||
return;
|
||
}
|
||
for (var j=c_nro.length ; j<pa_longcta ; j++ ) {
|
||
c_nro=c_nro+"0";
|
||
}
|
||
obj.value=c_nro.substring(0,pa_longcta);
|
||
if ( obj.value.length > pa_longcta ) {
|
||
alert("La cuenta: '"+obj.value+"' contiene m<>s caracteres !!! ");
|
||
obj.focus();
|
||
}
|
||
}
|
||
|
||
function substCta(stringCta,formato) {
|
||
if (!formato)
|
||
return stringCta+" ";
|
||
var nro="";
|
||
nro=NroUnformat(stringCta+" ");
|
||
if ( nro.length > 0 )
|
||
c_nro=nro+" ";
|
||
else
|
||
return "0" ;
|
||
var cadena="";
|
||
var nrolon=c_nro.length;
|
||
var f_size=formato.length;
|
||
var f_char="";
|
||
for (var i=0; i < f_size ; i++) {
|
||
f_char=formato.substring(i,i+1);
|
||
// alert(cadena+"--"+i+"-"+c_nro.substring(i,i+1)+"--"+formato.substring(i,i+1))
|
||
if ( f_char == "?" )
|
||
cadena=cadena+c_nro.substring(i,i+1);
|
||
if ( f_char == "*" ) {
|
||
cadena=cadena+c_nro.substring(i,nrolon);
|
||
break;
|
||
}
|
||
if ( f_char != "*" && f_char != "?" )
|
||
cadena=cadena+f_char;
|
||
}
|
||
return cadena;
|
||
}
|
||
|
||
function getSeqPrt(nprinter) {
|
||
var nomFile=spoolpath+nprinter+"/seq";
|
||
var seqprtfile=new File(nomFile);
|
||
project.lock();
|
||
seqprtfile.open("r");
|
||
s_seq=seqprtfile.readln();
|
||
seqprtfile.close();
|
||
var n_seq=parseInt(s_seq);
|
||
if ( n_seq > 0 )
|
||
n_seq++;
|
||
else
|
||
n_seq=1;
|
||
seqprtfile.open("w");
|
||
seqprtfile.write(n_seq);
|
||
seqprtfile.close();
|
||
project.unlock();
|
||
return n_seq;
|
||
}
|
||
|
||
function skipTopPage(nrolinea,PaperLines){
|
||
for (nl=nrolinea ; nl <= PaperLines ; nl++)
|
||
fileRpt.writeln("<BR>");
|
||
} |