chore: Last century javascript client/server
This commit is contained in:
parent
170557d88c
commit
18bc241c5d
137
albaran.js
Normal file
137
albaran.js
Normal file
@ -0,0 +1,137 @@
|
||||
// //
|
||||
// JavaScript Functions //
|
||||
// //
|
||||
//////////////////////////////////////
|
||||
// Algunas variables Globales
|
||||
|
||||
function InsAlbLins() {
|
||||
if ( !request.ab_nro_reg ) {
|
||||
status=-1
|
||||
return;
|
||||
}
|
||||
var i=1;
|
||||
var nrolineas=0;
|
||||
var nroctas=0, nro=0;
|
||||
nro=parseInt(request.nrolineas);
|
||||
if ( nro+1 > 1 ) {
|
||||
for (nl=1;nl<=nro;nl++) {
|
||||
eval('if ( request.al_'+i+'_cantidad+0 != 0 && request.al_'+i+'_precio_und+0 != 0 ) {'+
|
||||
'status=database.execute("INSERT INTO albalineas(" +'+
|
||||
'" nro_lin," +'+
|
||||
'" nro_reg," +'+
|
||||
'" cantidad," +'+
|
||||
'" referencia," +'+
|
||||
'" descripcion," +'+
|
||||
'" precio_und ) VALUES (\'" + StringClip(true,request.al_'+i+'_nro_lin) + "\',\'" +'+
|
||||
'StringClip(true,request.ab_nro_reg) + "\',\'"+'+
|
||||
'NroUnformat(request.al_'+i+'_cantidad) + "\',\'"+'+
|
||||
'StringClip(true,request.al_'+i+'_referencia) + "\',\'"+'+
|
||||
'StringClip(true,request.al_'+i+'_descripcion) + "\',\'"+'+
|
||||
'NroUnformat(request.al_'+i+'_precio_und ) + "\')");}');
|
||||
if ( status != 0 ) {
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
redirect('error.html?alert=11')
|
||||
}
|
||||
DbsError(true,status);
|
||||
}
|
||||
}
|
||||
nroctas=parseInt(request.nroctas);
|
||||
if ( nroctas+1 > 1 ) {
|
||||
for (nl=1;nl<=nroctas;nl++) {
|
||||
eval(' if ( request.ac_'+nl+'_importe+0 != 0 && request.ac_'+nl+'_cod_cta.length > 2 ) {'+
|
||||
' status=database.execute("INSERT INTO aptecuentas(" + '+
|
||||
'" nro_lin," + '+
|
||||
'" nro_reg," +'+
|
||||
'" tipolin," +'+
|
||||
'" cod_cta," +'+
|
||||
'" clave," +'+
|
||||
'" concepto," +'+
|
||||
'" importe," +'+
|
||||
'" tipo_apte," +'+
|
||||
'" fecha ) VALUES (\'" + StringClip(true,request.ac_'+nl+'_nro_lin) + "\',\'" + '+
|
||||
'StringClip(true,request.ab_nro_reg) + "\',\'"+'+
|
||||
'StringClip(true,request.ac_'+nl+'_tipolin) + "\',\'"+'+
|
||||
'StringClip(true,request.ac_'+nl+'_cod_cta) + "\',\'"+'+
|
||||
'StringClip(true,request.ac_'+nl+'_clave) + "\',\'"+'+
|
||||
'StringClip(true,request.ac_'+nl+'_concepto) + "\',\'"+'+
|
||||
'NroUnformat(request.ac_'+nl+'_importe) + "\',\'"+'+
|
||||
'StringClip(true,request.ac_'+nl+'_tipo_apte) + "\',\'"+'+
|
||||
'StringClip(true,datetoString(HOY)) + "\')");}');
|
||||
if ( status != 0 ) {
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
redirect('error.html?alert=12')
|
||||
}
|
||||
DbsError(true,status);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
function DelAlbLins() {
|
||||
status=database.execute("DELETE FROM albalineas WHERE nro_reg = \'" + request.ab_nro_reg + "\'");
|
||||
if ( status != 0 ) {
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
redirect('error.html')
|
||||
}
|
||||
DbsError(true,status);
|
||||
status=database.execute("DELETE FROM aptecuentas WHERE nro_reg = \'" + request.ab_nro_reg + "\'");
|
||||
if ( status != 0 ) {
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
redirect('error.html')
|
||||
}
|
||||
DbsError(true,status);
|
||||
}
|
||||
function scanClaveCta(icta) {
|
||||
var f=document.f_albaran;
|
||||
// eval("var clave=f.ac_"+icta+"_clave.value;");
|
||||
// alert("Clave:"+clave+" linea "+icta);
|
||||
var importe=0;
|
||||
var cta="", tipoAte="", tipoLin="";
|
||||
eval("importe=parseInt(NroUnformat(f.ac_"+icta+"_importe.value));");
|
||||
eval("cta=f.ac_"+icta+"_cod_cta.value;");
|
||||
eval("tipoApte=get_value(\'select\',f.ac_"+icta+"_tipo_apte);");
|
||||
eval("tipoLin=f.ac_"+icta+"_tipolin.value;");
|
||||
if ( tipoLin == "G" && importe == 0 ) { eval("f.ac_"+icta+"_clave.value=pa_clave_siniva;"); }
|
||||
if ( tipoLin == "G" && importe > 0 ) { eval("f.ac_"+icta+"_clave.value=pa_clave_coniva;"); }
|
||||
if ( tipoLin == "G" && importe < 0 ) { eval("f.ac_"+icta+"_clave.value=pa_clave_coniva;"); }
|
||||
// if ( tipoApte == "D" ) { }
|
||||
// if ( tipoApte == "H" ) { }
|
||||
// if ( TipoFra=="2") { // Dev. Retención
|
||||
// if ( tipoLin == "G" || tipoLin == "R" ) { eval("f.acf_"+icta+"_clave.value=pa_clave_dev;"); };
|
||||
// }
|
||||
// if ( TipoRet=="1") { // IRPF
|
||||
// if ( tipoLin == "G" || tipoLin == "R" ) { eval("f.acf_"+icta+"_clave.value=pa_clave_reten_1;"); }
|
||||
// }
|
||||
// if ( TipoRet=="2") { // Por Garantía
|
||||
// if ( tipoLin == "G" || tipoLin == "R" ) { eval("f.acf_"+icta+"_clave.value=pa_clave_reten_2;"); }
|
||||
// }
|
||||
// eval("var clave=f.ac_"+icta+"_clave.value;");
|
||||
// alert("Clave:"+clave);
|
||||
}
|
||||
function AlbDocuHtml(nro_reg) {
|
||||
var s_seq=getSeqPrt(nprinter);
|
||||
textoReqs=textoReqs+" "+s_seq;
|
||||
var nomFile=spoolpath+nprinter+"/req_"+s_seq+".html"
|
||||
fileRpt=new File(nomFile);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML><HEAD></HEAD>');
|
||||
nrolin=1;
|
||||
// CursorTabla("fa","nro_reg","=\'"+nro_reg+"\'",true,"");
|
||||
// Asignamos a request todas las columnas necesarias para el form.
|
||||
if (request.f_formato=="documento") {
|
||||
fileRpt.writeln('</TR></TABLE></CENTER>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
return nrolin;
|
||||
}
|
||||
fileRpt.writeln('</TR></TABLE></CENTER>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
return nrolin;
|
||||
}
|
||||
|
||||
958
ctasapagar.js
Normal file
958
ctasapagar.js
Normal file
@ -0,0 +1,958 @@
|
||||
// //
|
||||
// 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í 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ú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ó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ó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ó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ó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ó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ó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ó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ó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ó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ó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ó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ó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ó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ó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ó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ó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ó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ó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ó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>");
|
||||
}
|
||||
652
factura.js
Normal file
652
factura.js
Normal file
@ -0,0 +1,652 @@
|
||||
// //
|
||||
// JavaScript Functions //
|
||||
// //
|
||||
//////////////////////////////////////
|
||||
|
||||
function wfra(text){
|
||||
writeln("w_outfra.document.write('"+text+"\\n');");
|
||||
}
|
||||
|
||||
function InsFraLins() {
|
||||
if ( !request.fa_nro_reg ) {
|
||||
status=-1
|
||||
return;
|
||||
}
|
||||
var nl=0;
|
||||
var nrolineas=0;
|
||||
var nroctas=0;
|
||||
nrolineas=parseInt(request.nrolineas);
|
||||
if ( nrolineas+1 > 1 ) {
|
||||
for (nl=1;nl<=nrolineas;nl++) {
|
||||
eval('if ( request.af_'+nl+'_nroreg_albaran && request.af_'+nl+'_nroreg_albaran.length > 0 && NroUnformat(request.af_'+nl+'_sumaCtas)!= 0) { '+
|
||||
'status=database.execute("INSERT INTO albafras(" +'+
|
||||
'" nroreg_albafact," +'+
|
||||
'" nroreg_factura," +'+
|
||||
'" nroreg_albaran," +'+
|
||||
'" sumactas," +'+
|
||||
'" observaciones ) VALUES (\'" + StringClip(true,request.af_'+nl+'_nroreg_albafact) + "\',\'" +'+
|
||||
'StringClip(true,request.fa_nro_reg) + "\',\'"+'+
|
||||
'StringClip(true,request.af_'+nl+'_nroreg_albaran) + "\',\'"+ '+
|
||||
'NroUnformat(request.af_'+nl+'_sumaCtas) + "\',\'"+ '+
|
||||
'StringClip(true,request.af_'+nl+'_observaciones) + "\')");}');
|
||||
if ( status != 0 ) {
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
redirect('error.html?alert=11')
|
||||
}
|
||||
DbsError(true,status);
|
||||
eval('if ( request.af_'+nl+'_nroreg_albaran.length > 0 ) { '+
|
||||
'status=database.execute("UPDATE albaranes SET" +'+
|
||||
'" is_locked=\'S\',"+'+
|
||||
'" fra_reg=\'"+'+
|
||||
'StringClip(true,request.fa_nro_reg)+"\'"+'+
|
||||
'" WHERE nro_reg = \'"+'+
|
||||
'StringClip(true,request.af_'+nl+'_nroreg_albaran)+"\'")}')
|
||||
// eval('if ( request.af_'+nl+'_nroreg_albaran && request.af_'+nl+'_nroreg_albaran.length > 0 ) { '+
|
||||
if ( status != 0 ) {
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
eval("redirect('error.html?alert=14?key='+request.af_"+nl+"_nroreg_albaran)");
|
||||
}
|
||||
}
|
||||
}
|
||||
nroctas=parseInt(request.nroctas);
|
||||
if ( nroctas+1 > 1 ) {
|
||||
for (nl=1;nl<=nroctas;nl++) {
|
||||
// ' request.acf_'+nl+'_concepto=StringClip(true,request.acf_'+nl+'_concepto)+request.fa_nro_reg.substring(4,10)+" "+request.fa_nro_fra+" "+request.fa_t_razon_social;}');
|
||||
eval(' if ( request.acf_'+nl+'_concepto.substring(0,4) == " " ) {'+
|
||||
' request.acf_'+nl+'_concepto=request.fa_nro_fra+" "+request.fa_nro_reg.substring(4,10)+" "+request.fa_t_razon_social;}');
|
||||
eval(' if ( request.acf_'+nl+'_concepto.substring(0,1) == "-" ) {'+
|
||||
' request.acf_'+nl+'_concepto="-"+request.fa_nro_fra+" "+request.fa_nro_reg.substring(4,10)+" "+request.fa_t_razon_social;}');
|
||||
eval(' if ( request.acf_'+nl+'_concepto.substring(0,2) == "--" ) {'+
|
||||
' request.acf_'+nl+'_concepto="--"+request.fa_nro_fra+" "+request.fa_nro_reg.substring(4,10)+" "+request.fa_t_razon_social;}');
|
||||
eval(' if ( request.acf_'+nl+'_concepto.length < 4 ) {'+
|
||||
' request.acf_'+nl+'_concepto=request.acf_'+nl+'_concepto.substring(0,2)+" "+request.fa_nro_fra+" "+request.fa_nro_reg.substring(4,10)+" "+request.fa_t_razon_social;}');
|
||||
eval(' if ( request.acf_'+nl+'_importe+0 != 0 && request.acf_'+nl+'_cod_cta.length > 2 ) {'+
|
||||
' status=database.execute("INSERT INTO aptectasfra(" + '+
|
||||
'" nro_lin," + '+
|
||||
'" nro_reg," +'+
|
||||
'" tipolin," +'+
|
||||
'" albareg," +'+
|
||||
'" cod_cta," +'+
|
||||
'" clave," +'+
|
||||
'" concepto," +'+
|
||||
'" importe," +'+
|
||||
'" tipo_apte," +'+
|
||||
'" fecha ) VALUES (\'" + StringClip(true,request.acf_'+nl+'_nro_lin) + "\',\'" + '+
|
||||
'StringClip(true,request.fa_nro_reg) + "\',\'"+'+
|
||||
'StringClip(true,request.acf_'+nl+'_tipolin) + "\',\'"+'+
|
||||
'StringClip(true,request.acf_'+nl+'_albareg) + "\',\'"+'+
|
||||
'StringClip(true,request.acf_'+nl+'_cod_cta) + "\',\'"+'+
|
||||
'StringClip(true,request.acf_'+nl+'_clave) + "\',\'"+'+
|
||||
'StringClip(true,request.acf_'+nl+'_concepto) + "\',\'"+'+
|
||||
'NroUnformat(request.acf_'+nl+'_importe) + "\',\'"+'+
|
||||
'StringClip(true,request.acf_'+nl+'_tipo_apte) + "\',\'"+'+
|
||||
'StringClip(true,datetoString(HOY)) + "\')");}');
|
||||
if ( status != 0 ) {
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
redirect('error.html?alert=12')
|
||||
}
|
||||
DbsError(true,status);
|
||||
}
|
||||
}
|
||||
}
|
||||
function DelFraLins() {
|
||||
status=database.execute("DELETE FROM albafras WHERE nroreg_factura = \'" + request.fa_nro_reg + "\'");
|
||||
// if ( status != 0 ) {
|
||||
// client.is_trans=false;
|
||||
// database.rollbackTransaction();
|
||||
// redirect('error.html')
|
||||
// }
|
||||
// DbsError(true,status);
|
||||
status=database.execute("DELETE FROM aptectasfra WHERE nro_reg = \'" + request.fa_nro_reg + "\'");
|
||||
// if ( status != 0 ) {
|
||||
// client.is_trans=false;
|
||||
// database.rollbackTransaction();
|
||||
// redirect('error.html')
|
||||
// }
|
||||
// DbsError(true,status);
|
||||
// Liberamos albaranes
|
||||
status=database.execute("UPDATE albaranes SET" +
|
||||
" is_locked='N',"+
|
||||
" fra_reg=''"+
|
||||
" WHERE fra_reg = '"+
|
||||
StringClip(true,request.fa_nro_reg)+"'");
|
||||
if ( status != 0 ) {
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
eval("redirect('error.html?alert=14?key='+request.af_"+nl+"_nroreg_albaran)");
|
||||
}
|
||||
}
|
||||
|
||||
function ctasAlbtoFra(ialb,icta) {
|
||||
eval('CursorTabla("ab","nro_reg","=\'"+request.af_'+ialb+'_nroreg_albaran+"\'",true,"");');
|
||||
// Asignamos a request todas las columnas necesarias para el form.
|
||||
if ( c_albaranes.is_locked == "S" ) {
|
||||
eval('request.af_'+ialb+'_nroreg_albaran="";');
|
||||
eval('request.af_'+nl+'_observaciones="ALBARAN BLOQUEADO";');
|
||||
eval('request.af_'+ialb+'_toblink="on";');
|
||||
c_albaranes.close();
|
||||
return;
|
||||
}
|
||||
var ab_nif="", ab_cod_centro="", ab_nro_pedido="";
|
||||
ab_nif=StringClip(false,c_albaranes.nif);
|
||||
ab_cod_centro=StringClip(false,c_albaranes.cod_centro);
|
||||
ab_nro_pedido=StringClip(false,c_albaranes.nro_pedido);
|
||||
if ( ab_nif != null && ab_nif != request.fa_nif )
|
||||
eval('request.af_'+ialb+'_toblink="on";');
|
||||
if ( ab_cod_centro != null && ab_cod_centro != request.fa_cod_centro )
|
||||
eval('request.af_'+ialb+'_toblink="on";');
|
||||
// if ( ab_nro_pedido != null && ab_nro_pedido != request.fa_nro_pedido )
|
||||
// eval('request.af_'+ialb+'_toblink="on";');
|
||||
eval('request.af_'+ialb+'_nif=ab_nif');
|
||||
eval('request.af_'+ialb+'_nro_pedido=ab_nro_pedido');
|
||||
eval('request.af_'+ialb+'_cod_centro=ab_cod_centro');
|
||||
eval('CursorTabla("ac","nro_reg","=\'"+request.af_'+ialb+'_nroreg_albaran+"\'",false,"");');
|
||||
var sumaCtas=0; lin=0;
|
||||
eval ('if ( parseInt(request.acf_'+(icta+1)+'importe) == 0 ) { lin=1 } ');
|
||||
icta=icta-lin;
|
||||
var acumula=false;
|
||||
while (c_aptecuentas.next()) {
|
||||
// Si la Cuenta ya existe hay que acumular
|
||||
acumula=false;
|
||||
for (var i=1; i <= icta ; i++ ) {
|
||||
eval(' if (request.acf_'+i+'_cod_cta==StringClip(true,c_aptecuentas.cod_cta) '+
|
||||
' && request.acf_'+i+'_clave==StringClip(true,c_aptecuentas.clave) '+
|
||||
' && request.acf_'+i+'_concepto==StringClip(true,c_aptecuentas.concepto) '+
|
||||
' && request.acf_'+i+'_tipo_apte==StringClip(true,c_aptecuentas.tipo_apte) )'+
|
||||
' { acumula=true }');
|
||||
if ( acumula == true ) {
|
||||
eval(' request.acf_'+i+'_importe=NroFormat('+
|
||||
' parseFloat(NroUnformat(request.acf_'+i+'_importe))+c_aptecuentas.importe'+
|
||||
',NF9);');
|
||||
break;
|
||||
}
|
||||
}
|
||||
if ( acumula == false ) { // No ha acumulado la cuenta del albarán !!!
|
||||
icta++;
|
||||
eval(' request.acf_'+icta+'_esnva="0";');
|
||||
eval(' request.acf_'+icta+'_nro_lin='+icta+';');
|
||||
eval(' request.acf_'+icta+'_albareg=request.af_'+ialb+'_nroreg_albaran;');
|
||||
eval(' request.acf_'+icta+'_cod_cta=StringClip(true,c_aptecuentas.cod_cta);');
|
||||
eval(' request.acf_'+icta+'_clave=StringClip(true,c_aptecuentas.clave);');
|
||||
eval(' request.acf_'+icta+'_concepto=StringClip(true,c_aptecuentas.concepto);');
|
||||
eval(' request.acf_'+icta+'_tipo_apte=StringClip(true,c_aptecuentas.tipo_apte);');
|
||||
eval(' request.acf_'+icta+'_importe=NroFormat(c_aptecuentas.importe,NF9);');
|
||||
if ( c_aptecuentas.concepto.length < 3 || StringClip(false,c_aptecuentas.concepto)==" " ) {
|
||||
if ( c_aptecuentas.importe < 0 )
|
||||
eval('request.acf_'+icta+'_concepto="A"');
|
||||
if ( c_aptecuentas.importe >= 0 )
|
||||
eval('request.acf_'+icta+'_concepto=""');
|
||||
}
|
||||
eval(' if (request.acf_'+icta+'_concepto == " ") {request.acf_'+icta+'_concepto=""}');
|
||||
eval(' request.acf_'+icta+'_tipolin="A";');
|
||||
}
|
||||
if (c_aptecuentas.tipo_apte == "D" )
|
||||
sumaCtas=sumaCtas+c_aptecuentas.importe;
|
||||
if (c_aptecuentas.tipo_apte == "H" )
|
||||
sumaCtas=sumaCtas-c_aptecuentas.importe;
|
||||
}
|
||||
c_aptecuentas.close()
|
||||
if ( sumaCtas == 0 ) {
|
||||
eval(' request.af_'+ialb+'_observaciones="¡¡ No existe o con Importe 0 !!";');
|
||||
} else {
|
||||
eval(' request.af_'+ialb+'_esnva="0";');
|
||||
eval(' request.af_'+ialb+'_sumaCtas=NroFormat(sumaCtas,NF9);');
|
||||
eval(' request.af_'+ialb+'_observaciones=StringClip(false,c_albaranes.observaciones);');
|
||||
}
|
||||
c_albaranes.close();
|
||||
request.nroctas=icta+lin;
|
||||
}
|
||||
function scanClaveCta(icta) {
|
||||
var f=document.f_factura;
|
||||
// eval("var clave=f.acf_"+icta+"_clave.value;");
|
||||
// alert("Clave:"+clave+" linea "+icta);
|
||||
// eval("var importe=parseInt(NroUnforma(f.acf_"+icta+"_importe.value);");
|
||||
var SumaIVA=0;
|
||||
var cta="", tipoApte="", tipoLin="", TipoRet="", TipoFra="";
|
||||
eval("SumaIVA=parseFloat(NroUnformat(f.fa_SumaIva.value));");
|
||||
eval("cta=f.acf_"+icta+"_cod_cta.value;");
|
||||
eval("tipoApte=get_value(\'select\',f.acf_"+icta+"_tipo_apte);");
|
||||
eval("tipoLin=f.acf_"+icta+"_tipolin.value;");
|
||||
TipoRet=get_value("select",f.fa_tipo_retencion);
|
||||
TipoFra=get_value("select",f.fa_tipo_fra);
|
||||
if ( tipoLin == "G" && SumaIVA == 0 ) { eval("f.acf_"+icta+"_clave.value=pa_clave_siniva;"); }
|
||||
if ( tipoLin == "G" && SumaIVA > 0 ) { eval("f.acf_"+icta+"_clave.value=pa_clave_coniva;"); }
|
||||
if ( tipoLin == "G" && SumaIVA < 0 ) { eval("f.acf_"+icta+"_clave.value=pa_clave_coniva;"); }
|
||||
// if ( tipoApte == "D" ) { }
|
||||
// if ( tipoApte == "H" ) { }
|
||||
if ( TipoFra=="1") { // Albarán Interno
|
||||
}
|
||||
if ( TipoFra=="2") { // Dev. Retención
|
||||
if ( tipoLin == "G" || tipoLin == "R" ) { eval("f.acf_"+icta+"_clave.value=pa_clave_dev;"); };
|
||||
}
|
||||
if ( TipoFra=="4") { // Sin Albaranes
|
||||
}
|
||||
if ( TipoRet=="0") { // Sin Retención
|
||||
}
|
||||
if ( TipoRet=="1") { // IRPF
|
||||
if ( tipoLin == "G" || tipoLin == "R" ) { eval("f.acf_"+icta+"_clave.value=pa_clave_reten_1;"); }
|
||||
}
|
||||
if ( TipoRet=="2") { // Por Garantía
|
||||
if ( tipoLin == "G" || tipoLin == "R" ) { eval("f.acf_"+icta+"_clave.value=pa_clave_reten_2;"); }
|
||||
}
|
||||
if ( TipoCalculo=="1") { // Sobre Base
|
||||
} else { // Sobre Base - Retención
|
||||
}
|
||||
// eval("var clave=f.acf_"+icta+"_clave.value;");
|
||||
// alert("Clave:"+clave);
|
||||
}
|
||||
|
||||
function FraDocHtml(nro_reg) {
|
||||
var s_seq=getSeqPrt(nprinter);
|
||||
textoReqs=textoReqs+" "+s_seq;
|
||||
var nomFile=spoolpath+nprinter+"/req_"+s_seq+".html"
|
||||
fileRpt=new File(nomFile);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML><HEAD></HEAD>');
|
||||
nrolin=1;
|
||||
CursorTabla("fa","nro_reg","=\'"+nro_reg+"\'",true,"");
|
||||
// Asignamos a request todas las columnas necesarias para el form.
|
||||
request.fa_nro_reg=StringClip(false,c_facturas.nro_reg);
|
||||
var lon=request.fa_nro_reg.length;
|
||||
request.fa_nro_regn=request.fa_nro_reg.substring(4,lon);
|
||||
request.fa_nro_regy=request.fa_nro_reg.substring(0,4);
|
||||
request.fa_f_emision=datetoString(c_facturas.f_emision);
|
||||
request.fa_f_recepcion=datetoString(c_facturas.f_recepcion);
|
||||
request.fa_f_pago=datetoString(c_facturas.f_pago);
|
||||
request.fa_f_emision_pago=datetoString(c_facturas.f_emision_pago);
|
||||
request.fa_mes=StringClip(false,c_facturas.mes);
|
||||
request.fa_nro_fra=StringClip(false,c_facturas.nro_fra);
|
||||
request.fa_nif=StringClip(false,c_facturas.nif);
|
||||
request.fa_cod_centro=StringClip(false,c_facturas.cod_centro);
|
||||
request.fa_cond_pago=StringClip(false,c_facturas.cond_pago);
|
||||
request.fa_tipo_calc_iva=StringClip(false,c_facturas.tipo_calc_iva);
|
||||
request.fa_tipo_fra=StringClip(false,c_facturas.tipo_fra);
|
||||
request.fa_tipo_doc_pago=StringClip(false,c_facturas.tipo_doc_pago);
|
||||
request.fa_nro_doc_pago=StringClip(true,c_facturas.nro_doc_pago);
|
||||
request.fa_cod_localidad=StringClip(false,c_facturas.cod_localidad);
|
||||
request.fa_cod_banco=StringClip(true,c_facturas.cod_banco);
|
||||
request.fa_base_1=NroFormat(c_facturas.base_1,NF11);
|
||||
request.fa_por_ret1=NroFormat(c_facturas.por_ret1,NF2);
|
||||
request.fa_ret_1=NroFormat(c_facturas.ret_1,NF9);
|
||||
request.fa_por_iva1=NroFormat(c_facturas.por_iva1,NF2);
|
||||
request.fa_iva_1=NroFormat(c_facturas.iva_1,NF9);
|
||||
request.fa_base_2=NroFormat(c_facturas.base_2,NF11);
|
||||
request.fa_por_ret2=NroFormat(c_facturas.por_ret2,NF2);
|
||||
request.fa_ret_2=NroFormat(c_facturas.ret_2,NF9);
|
||||
request.fa_por_iva2=NroFormat(c_facturas.por_iva2,NF2);
|
||||
request.fa_iva_2=NroFormat(c_facturas.iva_2,NF9);
|
||||
request.fa_base_3=NroFormat(c_facturas.base_3,NF11);
|
||||
request.fa_por_ret3=NroFormat(c_facturas.por_ret3,NF2);
|
||||
request.fa_ret_3=NroFormat(c_facturas.ret_3,NF9);
|
||||
request.fa_por_iva3=NroFormat(c_facturas.por_iva3,NF2);
|
||||
request.fa_iva_3=NroFormat(c_facturas.iva_3,NF9);
|
||||
request.fa_canexen=NroFormat(c_facturas.canexen,NF11);
|
||||
request.fa_SumaBase=NroFormat(c_facturas.base_1+c_facturas.base_2+c_facturas.base_3+c_facturas.canexen,NF11);
|
||||
request.fa_SumaIva=NroFormat(c_facturas.iva_1+c_facturas.iva_2+c_facturas.iva_3,NF11);
|
||||
request.fa_SumaRet=NroFormat(c_facturas.ret_1+c_facturas.ret_2+c_facturas.ret_3,NF11);
|
||||
// if ( c_facturas.tipo_calc_iva == 2 )
|
||||
fa_Totaf_1=c_facturas.base_1+c_facturas.iva_1-c_facturas.ret_1;
|
||||
// else
|
||||
// fa_Totaf_1=c_facturas.base_1+c_facturas.iva_1+c_facturas.ret_1;
|
||||
// if ( c_facturas.tipo_calc_iva == 2 )
|
||||
fa_Totaf_2=c_facturas.base_2+c_facturas.iva_2-c_facturas.ret_2;
|
||||
// else
|
||||
// fa_Totaf_2=c_facturas.base_2+c_facturas.iva_2+c_facturas.ret_2;
|
||||
// if ( c_facturas.tipo_calc_iva == 2 )
|
||||
fa_Totaf_3=c_facturas.base_3+c_facturas.iva_3-c_facturas.ret_3;
|
||||
// else
|
||||
// fa_Totaf_3=c_facturas.base_3+c_facturas.iva_3+c_facturas.ret_3;
|
||||
var fa_Totex=c_facturas.canexen;
|
||||
request.fa_Totaf_1=NroFormat(fa_Totaf_1,NF11);
|
||||
request.fa_Totaf_2=NroFormat(fa_Totaf_2,NF11);
|
||||
request.fa_Totaf_3=NroFormat(fa_Totaf_3,NF11);
|
||||
request.fa_Totex=NroFormat(c_facturas.canexen,NF11);
|
||||
request.fa_deducciones=NroFormat(c_facturas.deducciones,NF9);
|
||||
request.fa_SumaImporte=NroFormat(fa_Totaf_1+fa_Totaf_2+fa_Totaf_3+fa_Totex,NF11);
|
||||
request.fa_importe_total=NroFormat(fa_Totaf_1+fa_Totaf_2+fa_Totaf_3+fa_Totex-c_facturas.deducciones,NF11);
|
||||
request.fa_tipo_retencion=StringClip(true,c_facturas.tipo_retencion);
|
||||
request.fa_tipo_deduccion=StringClip(true,c_facturas.tipo_deduccion);
|
||||
request.fa_nro_pedido=StringClip(false,c_facturas.nro_pedido);
|
||||
request.fa_traspaso_gasto=StringClip(false,c_facturas.traspaso_gasto);
|
||||
request.fa_traspaso_vto=StringClip(false,c_facturas.traspaso_vto);
|
||||
request.fa_traspaso_pago=StringClip(false,c_facturas.traspaso_pago);
|
||||
request.fa_nro_reg_pago=StringClip(false,c_facturas.nro_reg_pago);
|
||||
request.fa_vto_pago=datetoString(c_facturas.vto_pago);
|
||||
request.fa_observaciones=StringClip(false,c_facturas.observaciones);
|
||||
request.fa_is_locked=StringClip(false,c_facturas.is_locked);
|
||||
if (request.lock)
|
||||
c_facturas.close();
|
||||
if (request.fa_is_locked == "S" )
|
||||
request.waux=8;
|
||||
if (request.fa_cod_centro && request.fa_cod_centro != null) {
|
||||
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.fa_cod_centro)+"\'",false,false);
|
||||
request.fa_t_des_centro=c_centros.descripcion;
|
||||
c_centros.close();
|
||||
}
|
||||
else
|
||||
request.fa_t_des_centro="";
|
||||
if (request.fa_nro_pedido && request.fa_nro_pedido != null) {
|
||||
CursorTabla("pe","nro_pedido","=\'"+StringClip(true,request.fa_nro_pedido)+"\'",false,false);
|
||||
request.fa_t_des_pedido=c_pedidos.descripcion;
|
||||
if (request.fa_cond_pago.length==0)
|
||||
request.fa_cond_pago=c_pedidos.cond_pago;
|
||||
c_pedidos.close();
|
||||
}
|
||||
else
|
||||
request.fa_t_des_pedido="";
|
||||
if (request.fa_nif && request.fa_nif != null ) {
|
||||
CursorTabla("pr","nif","=\'"+StringClip(true,request.fa_nif)+"\'",false,false);
|
||||
request.fa_t_razon_social=StringClip(false,c_proveedores.razon_social);
|
||||
if ( request.fa_t_razon_social == " " ) {
|
||||
request.fa_t_razon_social="NO EXISTE";
|
||||
request.fa_cta_contable="";
|
||||
}
|
||||
else {
|
||||
request.fa_cta_contable=StringClip(false,c_proveedores.cta_contable);
|
||||
if (request.fa_cond_pago.length==0 || request.fa_cond_pago==client.pa_cp_lock)
|
||||
request.fa_cond_pago=c_proveedores.cond_pago;
|
||||
}
|
||||
c_proveedores.close();
|
||||
}
|
||||
else {
|
||||
request.fa_t_razon_social="";
|
||||
request.fa_cta_contable="";
|
||||
}
|
||||
if (request.fa_cond_pago && request.fa_cond_pago != null) {
|
||||
CursorTabla("cp","cond_pago","=\'"+StringClip(true,request.fa_cond_pago)+"\'",false,false);
|
||||
request.fa_t_condpago=c_cond_pago.descripcion;
|
||||
request.fa_cp_vto=c_cond_pago.vencimiento;
|
||||
c_cond_pago.close();
|
||||
}
|
||||
else {
|
||||
request.fa_cp_vto=0
|
||||
request.fa_t_condpago="";
|
||||
}
|
||||
if (request.fa_cod_banco && request.fa_cod_banco != null) {
|
||||
CursorTabla("ba","cod_banco","=\'"+StringClip(true,request.fa_cod_banco)+"\'",false,false);
|
||||
request.fa_t_nombre_banco=c_bancos.nombre;
|
||||
c_bancos.close();
|
||||
}
|
||||
else
|
||||
request.fa_t_nombre_banco="";
|
||||
fileRpt.writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER CELLSPACING=0 CELLPADDING=4><TR>');
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B> Nro.Reg.: </B>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_nro_regn+'/'+request.fa_nro_regy+'</B></FONT></TD></FONT>');
|
||||
if ( request.fa_is_locked == "S" )
|
||||
fileRpt.writeln('<FONT COLOR="#800040">Bloqueada:<B>'+request.fa_is_locked+'</FONT></TD></FONT></TR>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><B>Contabilizado:</B>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_mes+'</B></FONT></TD></TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><B>Nro. Fra.:</B>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_nro_fra+'</B></FONT></TD>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B> N.I.F. </B>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_nif+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_razon_social+'</FONT>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Centro</B>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_centro+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_des_centro+'</FONT></TD>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Pedido</B>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_nro_pedido+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_des_pedido+'</FONT></TD>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>C.Pago</B>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_cond_pago+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD><FONT COLOR="#800040">'+request.fa_t_condpago+'</FONT></TD></TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><B>Fecha Emisión:</B>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_f_emision+'</FONT></TD></FONT></TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><B>Fecha Recepción:</B>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_f_recepcion+'</FONT></TD></FONT>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><B>Fecha Pago:</B>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_f_pago+'</FONT></TD></FONT></TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Tipo de Factura:</B>');
|
||||
if (request.fa_tipo_fra=="1")
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> De Albarán Interno </B></FONT>');
|
||||
if (request.fa_tipo_fra=="2")
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Devolución Retención </B></FONT>');
|
||||
if (request.fa_tipo_fra=="4")
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sin Albaranes </B></FONT>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Retenciones:</B>');
|
||||
if (request.fa_tipo_retencion=="0")
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sin Retencion </B></FONT>');
|
||||
if (request.fa_tipo_retencion=="1")
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> I.R.P.F. </B></FONT>');
|
||||
if (request.fa_tipo_retencion=="2")
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Por Garantía </B></FONT>');
|
||||
fileRpt.writeln('<INPUT TYPE="hidden" NAME="fa_tipo_retencion" VALUE="'+request.fa_tipo_retencion+'"></TD>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Cálculo IVA:</B>');
|
||||
if (request.fa_tipo_calc_iva=="1")
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sobre Base </B></FONT>');
|
||||
else
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sobre Base - Retención </B></FONT>');
|
||||
fileRpt.writeln('<INPUT TYPE="hidden" NAME="fa_tipo_calc_iva" VALUE="'+request.fa_tipo_calc_iva+'"></TD>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<CENTER>');
|
||||
fileRpt.writeln('<TABLE BORDER='+request.borde+' CELLSPACING=0 CELLPADDING=4>');
|
||||
fileRpt.writeln('<TR>');
|
||||
fileRpt.writeln('<TD><B>Lin</B></TD>');
|
||||
fileRpt.writeln('<TD><B> Base Imponible </B> </TD>');
|
||||
fileRpt.writeln('<TD><B>%Ret</B></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><B> Imp. Ret </B> </TD>');
|
||||
fileRpt.writeln('<TD><B>%IVA</B></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><B> Imp. IVA </B> </TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><B>T O T A L</B> </TD>');
|
||||
fileRpt.writeln('</TR><TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD><b>1.-</b></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_base_1+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_ret1+'</FONT></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_ret_1+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_iva1+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_iva_1+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totaf_1+'</B></FONT></TD>');
|
||||
fileRpt.writeln('</TR><TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TD><b>2.-</b></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_base_2+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_ret2+'</FONT></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_ret_2+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_iva2+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_iva_2+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totaf_2+'</B></FONT></TD>');
|
||||
fileRpt.writeln('</TR><TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('</TR><TR><TD><b>3.-</b></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_base_3+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_ret3+'</FONT></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_ret_3+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_iva3+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_iva_3+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totaf_3+'</B></FONT></TD>');
|
||||
fileRpt.writeln('</TR><TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TD><b>Ex.</b></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_canexen+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD><TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totex+'</B></FONT></TD>');
|
||||
fileRpt.writeln('</TR><TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TD><b>Tot.</b><TD');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaBase+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER>---</TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaRet+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER>---</TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaIva+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaImporte+'</B></FONT></TD>');
|
||||
fileRpt.writeln('</TR><TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TD><B>Ded:</B></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_tipo_deduccion+'</FONT></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD><TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_deducciones+'</FONT></TD></FONT></TR>');
|
||||
fileRpt.writeln('</TR><TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TD><b>Totales</b></TD>');
|
||||
fileRpt.writeln('<TD></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD><TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_importe_total+'</B></FONT></TD>');
|
||||
fileRpt.writeln('</TR></TABLE>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<A NAME="lin-ctas"><CENTER><H2><FONT COLOR="#800040"> Apuntes Contables </FONT></H2></CENTER><A>');
|
||||
fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=CENTER><B>N.</B> </TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><B>Cuenta</B></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><B>Título Cuenta</B></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><B>Debe</B> </TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><B>Haber</B> </TD>');
|
||||
fileRpt.writeln('<TD><B>Clave</B></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><B>Concepto</B> </TD>');
|
||||
var lin=0;
|
||||
CursorTabla("acf","nro_reg","=\'"+c_facturas.nro_reg+"\' order by nro_lin ",false,"");
|
||||
var SumaDebe=0;
|
||||
var SumaHaber=0;
|
||||
request.nroctas=0;
|
||||
nl=0;
|
||||
while (c_aptectasfra.next()) {
|
||||
request.nroctas=c_aptectasfra.nro_lin;
|
||||
nro=c_aptectasfra.importe;
|
||||
nl=request.nroctas
|
||||
// if ( nro == 0 && nl < 10 ) {
|
||||
//fileRpt.writeln("</TR>");
|
||||
// continue;
|
||||
// }
|
||||
lin++;
|
||||
if ( nrolin+1 > request.maxLins ) {
|
||||
skipTopPage(nrolin,request.maxLins);
|
||||
nrolin=0;
|
||||
}
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD><FONT COLOR="#800040"><B>'+c_aptectasfra.nro_lin+'</B></FONT>')
|
||||
// var albareg=c_aptectasfra.albareg;
|
||||
fileRpt.writeln('<TD ALIGN=CENTER>'+c_aptectasfra.cod_cta+'<FONT COLOR="#800040"><B></TD>');
|
||||
valor=c_aptectasfra.cod_cta;
|
||||
if (valor != " " && valor != "" && valor != "null" ) {
|
||||
CursorTabla("ct","cta_contable","=\'"+StringClip(true,valor)+"\'",false,false);
|
||||
texto=StringClip(true,c_ctas_contables.descripcion);
|
||||
c_ctas_contables.close();
|
||||
}
|
||||
else {
|
||||
texto=" "
|
||||
}
|
||||
fileRpt.writeln('<TD><FONT COLOR="#800040">'+texto+'</FONT></TD>');
|
||||
if (c_aptectasfra.tipo_apte == "H") {SumaHaber=SumaHaber+nro} else {SumaDebe=SumaDebe+nro};
|
||||
if (c_aptectasfra.tipo_apte == "H") {fileRpt.writeln('<TD ALIGN=CENTER>-</TD>')};
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+NroFormat(c_aptectasfra.importe,NF9)+'</B></FONT></TD>');
|
||||
if (c_aptectasfra.tipo_apte == "D") {fileRpt.writeln('<TD ALIGN=CENTER>-</TD>')};
|
||||
fileRpt.writeln('<TD ALIGN=CENTER>'+c_aptectasfra.clave+'<FONT COLOR="#800040"><B></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER>'+c_aptectasfra.concepto+'<FONT COLOR="#800040"><B></TD>');
|
||||
fileRpt.writeln("</TR>");
|
||||
}
|
||||
// var acf_totalsaldo=NroFormat(SumaDebe-SumaHaber+" ",NF11);
|
||||
c_aptectasfra.close();
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TD ALIGN=CENTER>-</TD><TD ALIGN=CENTER>-</TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><FONT COLOR="#800040"><B>Totales ... </B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+NroFormat(SumaDebe+" ",NF11)+'</FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+NroFormat(SumaHaber+" ",NF11)+'</FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER>-</TD><TD ALIGN=CENTER>-</TD>');
|
||||
fileRpt.writeln('</TR></TABLE>');
|
||||
fileRpt.writeln('<INPUT TYPE="hidden" NAME="nrolineas" VALUE="'+request.nrolineas+'" SIZE=2 >');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<A NAME="lin-factura"><CENTER><H2><FONT COLOR="#800040"> Albaranes </FONT></H2></CENTER></A>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4>');
|
||||
fileRpt.writeln('<TR><TD ALIGN=CENTER><B>N.</B> </TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><B>Nro.Reg </B></TD> ');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><B>Suma Ctas.</B></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=CENTER><B>O b s e r v a c i o n e s</B> </TD>');
|
||||
fileRpt.writeln('</TR>');
|
||||
CursorTabla("af","nroreg_factura","=\'"+c_facturas.nro_reg+"\'",false,"");
|
||||
var sumalbs=0;
|
||||
request.nrolineas=0;
|
||||
while (c_albafras.next()) {
|
||||
request.nrolineas++;
|
||||
sumalbs=sumalbs+parseFloat(c_albafras.sumactas);
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD><FONT COLOR="#800040">');
|
||||
fileRpt.writeln('<B>'+c_albafras.nroreg_albafact+'</B></FONT>');
|
||||
fileRpt.writeln('</TD>');
|
||||
fileRpt.writeln('<TD><FONT COLOR="#800040"><B>'+c_albafras.nroreg_albaran+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+NroFormat(c_albafras.sumactas,NF9)+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+c_albafras.observaciones+'</B></FONT></TD>');
|
||||
fileRpt.writeln('</TR>');
|
||||
}
|
||||
c_albafras.close()
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD></TD>');
|
||||
fileRpt.writeln('<TD>Total:</TD>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+NroFormat(sumalbs,NF9)+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD></TD>');
|
||||
fileRpt.writeln('</TABLE>');
|
||||
// if (request.f_formato=="documento") {
|
||||
fileRpt.writeln('</TR></TABLE></CENTER>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
return nrolin;
|
||||
// }
|
||||
nrolin++;
|
||||
fileRpt.writeln('<A NAME="pago"><CENTER><H2><FONT COLOR="#800040"> Datos de Pago </FONT></H2></CENTER><A>');
|
||||
fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B> Banco: </B>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_banco+'</B></FONT></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_nombre_banco+'</FONT></TD>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Localidad:</B></TD><TD>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_localidad+'</FONT></TD></TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Fecha Emisión:</B></TD><TD>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_f_emision_pago+'</FONT></FONT></TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Tipo Doc. Pago:</B>');
|
||||
if (request.fa_tipo_doc_pago=="1")
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B> Pagaré </B></FONT>');
|
||||
if (request.fa_tipo_doc_pago=="2")
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B> Talón </B></FONT>');
|
||||
if (request.fa_tipo_doc_pago=="3")
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B> Compensación </B></FONT>');
|
||||
if (request.fa_tipo_doc_pago=="4")
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B> Domiciliación </B></FONT>');
|
||||
fileRpt.writeln('<INPUT TYPE="hidden" NAME="fa_tipo_doc_pago" VALUE="'+request.fa_tipo_doc_pago+'"></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_nro_doc_pago+'</FONT></FONT></TD></TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Vencimiento:</B></TD><TD>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_vto_pago+'</FONT></TD></FONT></TR>');
|
||||
fileRpt.writeln('</TR></TABLE>');
|
||||
fileRpt.writeln('<A NAME="pie-factura"><CENTER><H2><FONT COLOR="#800040"> Notas </FONT></H2></CENTER></A>');
|
||||
fileRpt.writeln('<TABLE BORDER=1 ALIGN=CENTER>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR> <TD ALIGN=RIGHT><B>Observaciones: </B></TD>');
|
||||
fileRpt.writeln('<FONT COLOR="#800040"><TD ALIGN=LEFT> <TEXTAREA NAME="fa_observaciones" ROWS=4 COLS=30 SIZE=30 maxlength=30 WRAP="virtual">'+request.fa_observaciones+'</TEXTAREA> </TD> </TR>');
|
||||
fileRpt.writeln('<TD ALIGN=RIGHT><B>Traspaso Contable:</B></TD>');
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_traspaso_ctable+'</B></FONT></TD></TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Traspaso de Pago:</B>');
|
||||
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_traspaso_pago+'</B></FONT></TD></TR>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Aptes.Pago</B></TD>');
|
||||
fileRpt.writeln('<TD><FONT COLOR="#800040"><B>'+request.fa_nro_reg_pago+'</B></FONT></TD>');
|
||||
nrolin++;
|
||||
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Expediente:</B></TD>');
|
||||
fileRpt.writeln('<TD><FONT COLOR="#800040"><B>'+request.fa_expediente+'</B></FONT></TD></TR>');
|
||||
fileRpt.writeln('</TR></TABLE></CENTER>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
return nrolin;
|
||||
}
|
||||
|
||||
|
||||
335
l_albaran.js
Normal file
335
l_albaran.js
Normal file
@ -0,0 +1,335 @@
|
||||
//////////////////////////////////////
|
||||
// //
|
||||
// JavaScript Functions //
|
||||
// //
|
||||
//////////////////////////////////////
|
||||
function report_alb() {
|
||||
var npag=0;
|
||||
var nrolin=0;
|
||||
while (c_albareg.next()) {
|
||||
// if ( nrolin <= request.maxLins && npag >0 ) {
|
||||
// skipTopPage(nrolin,request.maxLins);
|
||||
// nrolin=0;
|
||||
// }
|
||||
// npag++;;
|
||||
if (request.f_formato=="proveedor")
|
||||
AlbProveedorHtml();
|
||||
if (request.f_formato=="centro")
|
||||
AlbCentroHtml();
|
||||
if (request.f_formato=="pendientes")
|
||||
AlbCentroHtml();
|
||||
if (request.f_formato=="emitidos")
|
||||
AlbEmitidosHtml();
|
||||
if (request.f_formato=="provBloq")
|
||||
AlbRetenidosHtml();
|
||||
if (request.f_formato=="documento")
|
||||
nrolin=AlbDocHtml(c_albareg.nro_reg);
|
||||
}
|
||||
}
|
||||
|
||||
function sumalbctas() {
|
||||
CursorTabla("ac","nro_reg","=\'"+request.ab_nro_reg+"\'",false,"");
|
||||
request.ac_totaldebe=0;
|
||||
request.ac_totalhaber=0;
|
||||
request.ac_total=0;
|
||||
request.nroctas=0;
|
||||
while (c_aptecuentas.next()) {
|
||||
request.nroctas++;
|
||||
if ( c_aptecuentas.tipo_apte == "D" )
|
||||
request.ac_totaldebe=request.ac_totaldebe+c_aptecuentas.importe;
|
||||
if ( c_aptecuentas.tipo_apte == "H" )
|
||||
request.ac_totalhaber=request.ac_totalhaber+c_aptecuentas.importe;
|
||||
}
|
||||
request.ac_total=request.ac_totaldebe-request.ac_totalhaber;
|
||||
c_aptecuentas.close()
|
||||
}
|
||||
function AlbProveedorHtml() {
|
||||
var suma_total=0;
|
||||
var suma_prov=0;
|
||||
var nrolin=0;
|
||||
var keyLastRow="-";
|
||||
var is_newpag=true;
|
||||
while (true) {
|
||||
if ( nrolin+3 == request.maxLins ) {
|
||||
fileRpt.writeln('<BR><BR><BR>');
|
||||
nrolin=0;
|
||||
is_newpag=true;
|
||||
};
|
||||
if ( keyLastRow != c_albareg.nif && keyLastRow !="-") {
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<HR><TABLE BORDER='+request.borde+' ALIGN=CENTER><TR>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL .... </TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(suma_prov,NF11)+"</TD>");
|
||||
fileRpt.writeln('</TABLE><HR>');
|
||||
suma_prov=0;
|
||||
nrolin=nrolin+3
|
||||
set_head=true;
|
||||
}
|
||||
if ( is_newpag == true ) {
|
||||
if ( keyLastRow !="-" ) { fileRpt.writeln('</TABLE>')};
|
||||
fileRpt.writeln('<B><I>Dpto. Cuentas a Pagar</B></I><BR><HR>');
|
||||
fileRpt.writeln('<ALIGN=LEFT><H3><B>LISTADO DE ALBARANES POR PROVEEDOR</B></H3>');
|
||||
fileRpt.writeln('<HR>');
|
||||
is_newpag=false;
|
||||
nrolin=nrolin+4;
|
||||
set_head=true;
|
||||
}
|
||||
if ( set_head == true ) {
|
||||
fileRpt.writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT><B>"+c_albareg.nif +"</TD></B>"+
|
||||
"<TD ALIGN=RIGHT><B>"+c_albareg.razon_social+"</TD></B>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<HR><CENTER><TABLE BORDER='+request.borde+' ALIGN=CENTER>');
|
||||
fileRpt.writeln(" <TR><TD ALIGN=CENTER>Nro. Reg." +
|
||||
"<TD ALIGN=CENTER>F.Emisión </TD>"+
|
||||
"<TD ALIGN=CENTER>Nro. Fra.</TD>"+
|
||||
"<TD ALIGN=CENTER>Centro </TD>"+
|
||||
"<TD ALIGN=CENTER>Importe</TD></TR>");
|
||||
nrolin=nrolin+3; set_head=false;
|
||||
}
|
||||
request.ab_nro_reg=c_albareg.nro_reg;
|
||||
sumalbctas();
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>"+c_albareg.nro_reg+"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+datetoString(c_albareg.fecha_emision) +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+c_albareg.nro_fra +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+c_albareg.cod_centro +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(request.ac_total,NF11)+"</TD></TR>");
|
||||
suma_total=suma_total+request.ac_total;
|
||||
suma_prov=suma_prov+request.ac_total;
|
||||
keyLastRow=c_albareg.nif;
|
||||
nrolin++;
|
||||
if (!c_albareg.next())
|
||||
break;
|
||||
}
|
||||
// writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT></TD><TD ALIGN=RIGHT>----------------</TD>");
|
||||
// writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT>Suma Total:</TD><TD ALIGN=RIGHT>"+NroFormat(suma_total,NF10) +"</TD>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<TABLE BORDER=0 ALIGN=CENTER><TR>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL .... </TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(suma_prov,NF11)+"</TD>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<HR><TABLE BORDER=0 ALIGN=CENTER><TR>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL Acumulado....... </TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(suma_total,NF11)+"</TD>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
}
|
||||
function AlbCentroHtml() {
|
||||
request.s_ctas=0;
|
||||
request.s_total=0;
|
||||
request.s_prov=0;
|
||||
var nrolin=0;
|
||||
var keyLastRow="-";
|
||||
var desLastRow="";
|
||||
var keyLastPrv="-";
|
||||
var set_head=true;
|
||||
var s_seq=getSeqPrt(nprinter);
|
||||
textoReqs=textoReqs+" "+s_seq;
|
||||
var nomFile=spoolpath+nprinter+"/req_"+s_seq+".html"
|
||||
fileRpt=new File(nomFile);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML><HEAD></HEAD>');
|
||||
fileRpt.writeln('<BASEFONT SIZE=2>');
|
||||
status=database.execute("DELETE FROM sumactasalb where uid=\'" + request.uid+ "\'");
|
||||
while (true) {
|
||||
if ( nrolin+3 == request.maxLins ) {
|
||||
fileRpt.writeln('<BR><BR><BR>');
|
||||
nrolin=0;
|
||||
set_head=true;
|
||||
};
|
||||
if ( keyLastPrv == "-" )
|
||||
keyLastPrv=c_albareg.nif;
|
||||
if ( keyLastPrv != c_albareg.nif ) {
|
||||
keyLastPrv=c_albareg.nif;
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>TOTAL .... </FONT></B></TD>"+
|
||||
"<TD></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>..............</FONT></B></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>..............</FONT></B></TD>"+
|
||||
"<TD></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>"+NroFormat(request.s_prov,NF9)+"</FONT></B></TD>"+
|
||||
"<TD></TD>"+
|
||||
"</TR>")
|
||||
request.s_prov=0;
|
||||
}
|
||||
if ( keyLastRow != c_albareg.cod_centro && keyLastRow !="-" ) {
|
||||
nrolin++;
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>TOTAL .... </FONT></B></TD>"+
|
||||
"<TD></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>..............</FONT></B></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>..............</FONT></B></TD>"+
|
||||
"<TD></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>"+NroFormat(request.s_ctas,NF9)+"</FONT></B></TD>"+
|
||||
"<TD></TD>"+
|
||||
"</TR>")
|
||||
fileRpt.writeln('</TABLE><BR><BR>');
|
||||
AlbResCentrosHtml(keyLastRow,desLastRow);
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
s_seq=getSeqPrt(nprinter);
|
||||
textoReqs=textoReqs+" "+s_seq;
|
||||
nomFile=spoolpath+nprinter+"/req_"+s_seq+".html"
|
||||
fileRpt=new File(nomFile);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML><HEAD></HEAD>');
|
||||
fileRpt.writeln('<BASEFONT SIZE=2>');
|
||||
// if ( nrolin <= request.maxLins ) {
|
||||
// skipTopPage(nrolin,request.maxLins);
|
||||
// nrolin=0;
|
||||
// set_head=true;
|
||||
// }
|
||||
request.s_ctas=0;
|
||||
request.s_total=0;
|
||||
request.s_prov=0;
|
||||
nrolin=nrolin+3
|
||||
set_head=true;
|
||||
}
|
||||
if ( set_head == true ) {
|
||||
nrolin=nrolin+6;
|
||||
if ( keyLastRow !="-" )
|
||||
fileRpt.writeln("</TABLE>");
|
||||
AlbCentrosCab();
|
||||
set_head=false;
|
||||
}
|
||||
c_aptesalb = database.cursor("SELECT * from aptecuentas where nro_reg='"+
|
||||
c_albareg.nro_reg+"' ")
|
||||
if (c_aptesalb.next()) {
|
||||
instCtaAlb();
|
||||
if ( nrolin+1 > request.maxLins ) {
|
||||
skipTopPage(nrolin,request.maxLins);
|
||||
nrolin=6;
|
||||
fileRpt.writeln("</TABLE>");
|
||||
AlbCentrosCab();
|
||||
}
|
||||
nrolin++;
|
||||
importe=parseFloat(c_aptesalb.importe);
|
||||
if ( c_aptesalb.tipo_apte == "H" )
|
||||
importe=parseFloat(c_aptesalb.importe)*-1;
|
||||
request.s_prov=parseFloat(request.s_prov)+parseFloat(importe);
|
||||
fileRpt.writeln("<TR><TD ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_albareg.nro_reg+"</FONT></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+datetoString(c_albareg.fecha_emision) +"</FONT></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_albareg.nif+"</FONT></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_albareg.razon_social+"</FONT></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_aptesalb.cod_cta+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(importe,NF9)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_albareg.fra_reg+"</FONT></TD>"+
|
||||
"</TR>")
|
||||
request.s_total=parseFloat(request.s_total)+parseFloat(importe);
|
||||
request.s_ctas=parseFloat(request.s_ctas)+parseFloat(importe);
|
||||
}
|
||||
while (c_aptesalb.next()) {
|
||||
instCtaAlb();
|
||||
if ( nrolin+1 > request.maxLins ) {
|
||||
skipTopPage(nrolin,request.maxLins);
|
||||
nrolin=6;
|
||||
fileRpt.writeln("</TABLE>");
|
||||
AlbCentrosCab();
|
||||
}
|
||||
nrolin++;
|
||||
importe=parseFloat(c_aptesalb.importe);
|
||||
if ( c_aptesalb.tipo_apte == "H" )
|
||||
importe=parseFloat(c_aptesalb.importe)*-1;
|
||||
request.s_prov=parseFloat(request.s_prov)+parseFloat(importe);
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT NOWRAP VALIGN=TOP ></TD>"+
|
||||
"<TD></TD>"+
|
||||
"<TD></TD>"+
|
||||
"<TD></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_aptesalb.cod_cta+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(importe,NF9)+"</FONT></TD>"+
|
||||
"<TD></TD>"+
|
||||
"</TR>")
|
||||
request.s_total=parseFloat(request.s_total)+parseFloat(importe);
|
||||
request.s_ctas=parseFloat(request.s_ctas)+parseFloat(importe);
|
||||
}
|
||||
c_aptesalb.close();
|
||||
keyLastRow=c_albareg.cod_centro;
|
||||
desLastRow=c_albareg.descripcion;
|
||||
if (!c_albareg.next())
|
||||
break;
|
||||
}
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>TOTAL .... </FONT></B></TD>"+
|
||||
"<TD></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>..............</FONT></B></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>..............</FONT></B></TD>"+
|
||||
"<TD></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><B><FONT SIZE=-1>"+NroFormat(request.s_ctas,NF9)+"</FONT></B></TD>"+
|
||||
"<TD></TD>"+
|
||||
"</TR>")
|
||||
fileRpt.writeln('</TABLE>');
|
||||
AlbResCentrosHtml(keyLastRow,desLastRow);
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
}
|
||||
function instCtaAlb() {
|
||||
importe=parseFloat(c_aptesalb.importe);
|
||||
if ( c_aptesalb.tipo_apte == "H" )
|
||||
importe=parseFloat(c_aptesalb.importe)*-1;
|
||||
status=database.execute("INSERT INTO sumactasalb(" +
|
||||
" uid," +
|
||||
" cod_centro," +
|
||||
" cod_cta," +
|
||||
" importe) VALUES ('" +
|
||||
request.uid + "','" +
|
||||
StringClip(true,c_albareg.cod_centro) + "','" +
|
||||
StringClip(true,c_aptesalb.cod_cta) + "','" +
|
||||
importe+ "')");
|
||||
}
|
||||
function AlbResCentrosHtml(clave,desclave) {
|
||||
c_ctascentro = database.cursor("SELECT cod_cta,sum(importe) from sumactasalb where cod_centro=\'" +clave+"\' and uid=\'" + request.uid+
|
||||
"\' group by cod_cta ");
|
||||
fileRpt.writeln('<HR>');
|
||||
if (request.f_formato=="pendientes")
|
||||
fileRpt.writeln('<H4><B>RESUMEN CUENTAS DE ALBARANES PENDIENTES DE FACTURA</B></H4>');
|
||||
else
|
||||
fileRpt.writeln('<H4><B>RESUMEN DE CUENTAS POR CENTRO</B></H4>');
|
||||
fileRpt.writeln('<HR>');
|
||||
// fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER><TR>');
|
||||
// fileRpt.writeln("<TD ALIGN=LEFT><B>"+clave +"</B>"+
|
||||
// "<B>"+desclave+"</B>");
|
||||
// fileRpt.writeln('</TD></TR></TABLE><BR><BR><LEFT>');
|
||||
fileRpt.writeln("<FONT SIZE=+1>"+clave +desclave+"</FONT>");
|
||||
fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4 VALIGN="TOP"><TR>');
|
||||
fileRpt.writeln("<TR><TH ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Cod. Cta.</FONT></I></TH>" +
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Importe</FONT></I></TH>"+
|
||||
"</TR>");
|
||||
request.s_total=0;
|
||||
while ( c_ctascentro.next()) {
|
||||
fileRpt.writeln("<TR>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_ctascentro.cod_cta+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(c_ctascentro[1],NF11)+"</FONT></TD>"+
|
||||
"</TR>");
|
||||
request.s_total=parseFloat(request.s_total)+parseFloat(c_ctascentro[1]);
|
||||
}
|
||||
c_ctascentro.close();
|
||||
fileRpt.writeln("<TR><TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>TOTAL</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_total,NF11)+"</FONT></TH></TR>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<BR><BR>');
|
||||
}
|
||||
function AlbCentrosCab() {
|
||||
fileRpt.writeln('<H6><I>Dpto. Cuentas a Pagar</FONT></I>');
|
||||
fileRpt.writeln('<HR>');
|
||||
if (request.f_formato=="pendientes")
|
||||
fileRpt.writeln('<ALIGN=CENTER><H4><B>LISTADO DE ALBARANES PENDIENTES DE FACTURA</B></H4>');
|
||||
else
|
||||
fileRpt.writeln('<ALIGN=CENTER><H4><B>LISTADO DE ALBARANES POR CENTRO</B></H4>');
|
||||
fileRpt.writeln('<HR>');
|
||||
fileRpt.writeln('</TABLE><ALIGN=LEFT>');
|
||||
fileRpt.writeln("<ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=+1>"+c_albareg.cod_centro +c_albareg.descripcion+"</FONT>");
|
||||
fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4 VALIGN="TOP">');
|
||||
fileRpt.writeln("<TR><TH ALIGN=CENTER NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Nro.Alb.</FONT></I></TH>" +
|
||||
"<TH ALIGN=CENTER NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Fecha Al.</FONT></I></TH>"+
|
||||
"<TH ALIGN=CENTER NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>N.I.F.</FONT></I></TH>"+
|
||||
"<TH ALIGN=CENTER NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Razón Social</FONT></I></TH>"+
|
||||
"<TH ALIGN=CENTER NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Cuenta</FONT></I></TH>"+
|
||||
"<TH ALIGN=CENTER NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Imp.Cta.</FONT></I></TH>"+
|
||||
"<TH ALIGN=CENTER NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Reg.Fra.</TH>"+
|
||||
"</TR>");
|
||||
}
|
||||
function AlbPendientesHtml() {
|
||||
}
|
||||
function AlbEmitidosHtml() {
|
||||
}
|
||||
function AlbRetenidosHtml() {
|
||||
}
|
||||
|
||||
945
l_docpago.js
Normal file
945
l_docpago.js
Normal file
@ -0,0 +1,945 @@
|
||||
//////////////////////////////////////
|
||||
// //
|
||||
// JavaScript Functions //
|
||||
// //
|
||||
//////////////////////////////////////
|
||||
|
||||
function wrdocpago(text){
|
||||
// writeln("w_outdocpago.document.write('"+text+"\\n');");
|
||||
fileRpt.writeln(text);
|
||||
}
|
||||
|
||||
function chk_docspago() {
|
||||
var query;
|
||||
query = database.cursor("select count(*) FROM docspago WHERE uid=\'" + request.uid+ "\'");
|
||||
if (query.next()) {
|
||||
if (query[0] > 0) {
|
||||
tdoc = database.cursor("select unique tipo_doc_pago FROM docspago WHERE uid=\'" + request.uid+ "\'");
|
||||
tdoc.next();
|
||||
if ( tdoc.tipo_doc_pago=="1" ) {
|
||||
request.f_tipo_doc_pago="1";
|
||||
Palabra="Pagarés";
|
||||
}
|
||||
if ( tdoc.tipo_doc_pago=="2" ) {
|
||||
request.f_tipo_doc_pago="2";
|
||||
Palabra="Talones";
|
||||
}
|
||||
writeln(' alert("\\r Hay '+Palabra+' Pendientes de Confirmación !!!"); ');
|
||||
tdoc.close();
|
||||
request.opt_docpago="true";
|
||||
}
|
||||
}
|
||||
query.close();
|
||||
if (request.opt_docpago)
|
||||
return true
|
||||
else
|
||||
return false
|
||||
}
|
||||
|
||||
function updPagoFras() {
|
||||
client.is_trans=true;
|
||||
database.beginTransaction();
|
||||
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' order by nro_reg ");
|
||||
while (c_docspago.next()) {
|
||||
// DesBloquear factura
|
||||
status=database.execute("UPDATE facturas SET "+
|
||||
" is_locked='N',"+
|
||||
" tipo_doc_pago='" + c_docspago.tipo_doc_pago + "',"+
|
||||
" nro_doc_pago='" + c_docspago.nro_doc_pago + "',"+
|
||||
" f_emision_pago='" + DateFormat(datetoString(c_docspago.f_emision_pago),NLDF) + "',"+
|
||||
" vto_pago='" + DateFormat(datetoString(c_docspago.vto_pago),NLDF) + "',"+
|
||||
" cod_localidad='" + c_docspago.cod_localidad + "',"+
|
||||
" cod_banco='" + c_docspago.cod_banco + "'"+
|
||||
" WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
||||
|
||||
if ( status != 0 ) {
|
||||
c_docspago.close();
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
redirect(addClient('error.html?alert=9'));
|
||||
}
|
||||
}
|
||||
database.commitTransaction();
|
||||
client.is_trans=false;
|
||||
c_docspago.close();
|
||||
return true;
|
||||
}
|
||||
|
||||
function report_docpago() {
|
||||
// Borramos en tabla de pagos datos del usuario
|
||||
status=database.execute("DELETE FROM docspago WHERE uid=\'" + request.uid+ "\'");
|
||||
client.is_trans=true;
|
||||
database.beginTransaction();
|
||||
var s_lon=request.sel_nro_reg.length;
|
||||
if (s_lon == 0 )
|
||||
return;
|
||||
var s_lon=request.sel_nro_reg.length;
|
||||
var i=0;
|
||||
pos=request.sel_nro_reg.substring(i,s_lon).indexOf("|")
|
||||
var nregfra="";
|
||||
while (pos >0) {
|
||||
insertaDocPago(i,pos);
|
||||
i=pos+1;
|
||||
if ( i >= s_lon )
|
||||
break;
|
||||
pos=request.sel_nro_reg.substring(i,s_lon).indexOf("|")
|
||||
if (pos <= 0 )
|
||||
break;
|
||||
else
|
||||
pos=pos+i;
|
||||
}
|
||||
if (i==0)
|
||||
return;
|
||||
// Hay que buscar si tiene ABONOS
|
||||
chk_abonos();
|
||||
upd_docspago();
|
||||
database.commitTransaction();
|
||||
client.is_trans=false;
|
||||
if (preparamat("spa", "f") == false ) // Aquí se prepara la trad. de dígitos
|
||||
return;
|
||||
if (request.f_tipo_doc_pago == "1" )
|
||||
out_docpago()
|
||||
if (request.f_tipo_doc_pago == "2" )
|
||||
out_doctalon()
|
||||
writeln('w_outdocpago=window.open("'+urlFile+'","w_outdocpago","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
||||
}
|
||||
function rpt_doccarta() {
|
||||
out_doccarta()
|
||||
writeln('w_carta=window.open("'+urlCarta+'","w_carta","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
||||
}
|
||||
function rpt_docfile() {
|
||||
out_docfichero()
|
||||
writeln('w_carta=window.open("'+urlFich+'","w_file","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
||||
}
|
||||
function insertaDocPago(i,pos) {
|
||||
var nro_reg=request.sel_nro_reg.substring(i,pos);
|
||||
// debug(nro_reg);
|
||||
if ( nro_reg.length < 1 )
|
||||
return;
|
||||
c_facturas = database.cursor("SELECT nif, importe_total,cod_centro,f_pago,nro_fra,tipo_fra,tipo_doc_pago "+
|
||||
" FROM facturas WHERE nro_reg="+nro_reg);
|
||||
if (c_facturas.next()) {
|
||||
status=database.execute("INSERT INTO docspago(" +
|
||||
" uid," +
|
||||
" nro_reg," +
|
||||
" cod_centro," +
|
||||
" f_pago," +
|
||||
" nro_fra," +
|
||||
" tipo_fra," +
|
||||
" nif," +
|
||||
" tipo_doc_pago," +
|
||||
" nro_doc_pago," +
|
||||
" f_emision_pago," +
|
||||
" cod_localidad," +
|
||||
" vto_pago," +
|
||||
" cod_banco," +
|
||||
" importe_total ) VALUES ('" + request.uid+ "','" +
|
||||
nro_reg + "','"+
|
||||
StringClip(true,c_facturas.cod_centro) + "','"+
|
||||
DateFormat(datetoString(c_facturas.f_pago),NLDF) + "','"+
|
||||
StringClip(true,c_facturas.nro_fra) + "','"+
|
||||
StringClip(true,c_facturas.tipo_fra) + "','"+
|
||||
StringClip(false,c_facturas.nif) + "','"+
|
||||
StringClip(false,c_facturas.tipo_doc_pago) + "','"+
|
||||
"0','"+
|
||||
DateFormat(request.f_f_emision_pago,NLDF) + "','"+
|
||||
StringClip(true,request.f_cod_localidad) + "','"+
|
||||
DateFormat(datetoString(c_facturas.f_pago),NLDF) + "','"+
|
||||
StringClip(true,request.f_cod_banco) + "','"+
|
||||
c_facturas.importe_total + "')");
|
||||
if ( status != 0 ) {
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
redirect(addClient('error.html?alert=14&nro_reg='+nro_reg));
|
||||
}
|
||||
}
|
||||
c_facturas.close();
|
||||
}
|
||||
function chk_abonos() {
|
||||
// c_fraspago = database.cursor("SELECT sum(importe_total),nif FROM docspago WHERE uid='"+request.uid+"' group by nif ");
|
||||
// while (c_fraspago.next()) {
|
||||
// debug(c_fraspago[0]);
|
||||
// if ( c_fraspago[0] < 0 ) {
|
||||
// no se paga nada de nada ... nos Debe
|
||||
// status=database.execute("DELETE from docspago WHERE uid='" + request.uid+"'"+
|
||||
// " and nif = '"+c_fraspago.nif+"'");
|
||||
// }
|
||||
// }
|
||||
// c_fraspago.close();
|
||||
// Leemos los abonos de cada proveedor y buscamos fras. que lo cubran si no no se paga.
|
||||
// Para evitar problemas actualizamos centro y f_pago en el abono ...
|
||||
c_docsnif = database.cursor("SELECT UNIQUE nif FROM docspago WHERE uid='"+request.uid+"' ");
|
||||
while (c_docsnif.next()) {
|
||||
c_frasabono= database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' and nif ='"+c_docsnif.nif+"' and importe_total < 0 "+
|
||||
" order by importe_total");
|
||||
to_paynif=true;
|
||||
while (c_frasabono.next() && to_paynif == true ) {
|
||||
//debug(c_frasabono.nro_reg)
|
||||
to_payfra=false;
|
||||
c_fraspago = database.cursor("SELECT sum(importe_total),cod_centro,f_pago FROM docspago WHERE uid='"+request.uid+"' and nif ='"+c_docsnif.nif+"' and importe_total > 0 "+
|
||||
"group by cod_centro,f_pago ");
|
||||
while (c_fraspago.next() ) {
|
||||
//linea=c_fraspago[0]+" "+c_frasabono.importe_total;
|
||||
//debug(linea)
|
||||
if ( c_fraspago[0] > c_frasabono.importe_total*-1 ) {
|
||||
status=database.execute("UPDATE docspago SET cod_centro='"+c_fraspago.cod_centro+"',"+
|
||||
" f_pago='"+DateFormat(datetoString(c_fraspago.f_pago),NLDF)+"',"+
|
||||
" vto_pago='"+DateFormat(datetoString(c_fraspago.f_pago),NLDF)+
|
||||
"' WHERE nro_reg='"+c_frasabono.nro_reg+"'");
|
||||
|
||||
to_payfra=true
|
||||
break;
|
||||
}
|
||||
}
|
||||
c_fraspago.close();
|
||||
if ( to_payfra == false )
|
||||
to_paynif=false;
|
||||
}
|
||||
if ( to_paynif == false ) {
|
||||
status=database.execute("DELETE FROM docspago WHERE uid='" + request.uid+"'"+
|
||||
" and nif = '"+c_docsnif.nif+"'");
|
||||
}
|
||||
c_frasabono.close();
|
||||
}
|
||||
c_docsnif.close();
|
||||
}
|
||||
|
||||
function upd_docspago() {
|
||||
var nro_docpago=parseFloat(NroUnformat(request.f_nro_doc));
|
||||
var inro_docpago=nro_docpago;
|
||||
// Actualizar las Filas con su nro_doc_pago ...
|
||||
// c_docspago = database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' and importe_total > 0 order by nif,importe_total ");
|
||||
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' order by nif,importe_total ");
|
||||
while (c_docspago.next()) {
|
||||
// if (request.f_tipo_doc_pago=="1") // Pagaré
|
||||
// if (request.f_tipo_doc_pago=="2") // Talón
|
||||
// if (request.f_tipo_doc_pago=="3") // Compensación
|
||||
// if (request.f_tipo_doc_pago=="4") // Domiciliación
|
||||
// Asignar el nro. de documento de pago, el mismo si nif, centro y f_pago coinciden.
|
||||
c_haydocspago = database.cursor("SELECT nro_doc_pago FROM docspago WHERE uid='"+ request.uid+"' and nif = '"+StringClip(false,c_docspago.nif)+
|
||||
"' and nro_doc_pago !='0' and nro_reg != '"+c_docspago.nro_reg+
|
||||
"' and cod_centro ='"+c_docspago.cod_centro+
|
||||
"' and f_pago='"+DateFormat(datetoString(c_docspago.f_pago),NLDF)+"'");
|
||||
// "' and importe_total > 0 "+
|
||||
//debug(c_haydocspago.nro_doc_pago);
|
||||
var nro_doc_pago=nro_docpago;
|
||||
var hay_mas=false;
|
||||
if ( c_haydocspago.next() ) {
|
||||
nro_doc_pago=parseFloat(c_haydocspago.nro_doc_pago);
|
||||
if ( nro_doc_pago == 0 )
|
||||
nro_doc_pago=nro_docpago;
|
||||
else
|
||||
hay_mas=true;
|
||||
}
|
||||
c_haydocspago.close();
|
||||
status=database.execute("UPDATE docspago SET nro_doc_pago='"+nro_doc_pago+"' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
||||
if (hay_mas == false) { nro_docpago++ };
|
||||
// Bloquear la factura durante el curso del pago ... Así sólo es de lectura.
|
||||
status=database.execute("UPDATE facturas SET is_locked='S' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
||||
}
|
||||
c_docspago.close();
|
||||
}
|
||||
function no_sirve() {
|
||||
// Devoluciones ...
|
||||
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' and importe_total < 0 order by nro_reg ");
|
||||
while (c_docspago.next()) {
|
||||
var nro=c_docspago.importe_total*-1;
|
||||
// Asignar el nro. de documento de pago, el mismo si nif coincide.
|
||||
c_haydocspago = database.cursor("SELECT nro_doc_pago FROM docspago WHERE uid='"+ request.uid+"' and nif = '"+StringClip(false,c_docspago.nif)+
|
||||
"' and nro_doc_pago !='0' and nro_reg != '"+c_docspago.nro_reg+
|
||||
"' and importe_total > '"+nro+"'");
|
||||
if ( c_haydocspago.next() ) {
|
||||
status=database.execute("UPDATE docspago SET nro_doc_pago='"+c_haydocspago.nro_doc_pago+"' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
||||
// Bloquear la factura durante el curso del pago ... Así sólo es de lectura.
|
||||
status=database.execute("UPDATE facturas SET is_locked='S' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
||||
}
|
||||
c_haydocspago.close();
|
||||
}
|
||||
c_docspago.close();
|
||||
}
|
||||
function cleanup_docspago() {
|
||||
c_docspago = database.cursor("SELECT nro_reg FROM docspago WHERE uid='"+request.uid+"' order by nro_reg ");
|
||||
while (c_docspago.next()) {
|
||||
// DesBloquear factura
|
||||
status=database.execute("UPDATE facturas SET is_locked='' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
||||
}
|
||||
// Borramos en tabla de pagos datos del usuario
|
||||
status=database.execute("DELETE FROM docspago WHERE uid=\'" + request.uid+ "\'");
|
||||
}
|
||||
function out_docpago() {
|
||||
var fileRpt=new File(nomFile);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML>');
|
||||
fileRpt.writeln('<HEAD></HEAD>');
|
||||
fileRpt.writeln('<BODY>');
|
||||
fileRpt.writeln('<FONT SIZE=3>');
|
||||
fileRpt.writeln('<PRE> ');
|
||||
c_nrodocspago = database.cursor("SELECT UNIQUE nro_doc_pago FROM docspago WHERE uid="+ request.uid+" ORDER BY nro_doc_pago ");
|
||||
var PlusNroDoc=0; // Acumula incrementos en Nro. Doc si salto página
|
||||
var lnro="";
|
||||
var nlin=1
|
||||
while (c_nrodocspago.next()) {
|
||||
c_docspago = database.cursor("SELECT importe_total FROM docspago WHERE uid="+ request.uid+
|
||||
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ");
|
||||
var importeTotal=0;
|
||||
var NeedLins=0;
|
||||
while (c_docspago.next()) { // A Sumar ....
|
||||
importeTotal=importeTotal+parseFloat(c_docspago.importe_total);
|
||||
NeedLins++;
|
||||
}
|
||||
c_docspago.close();
|
||||
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid="+ request.uid+
|
||||
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ORDER BY importe_total ");
|
||||
c_docspago.next();
|
||||
CursorTabla("pr","nif","=\'"+StringClip(false,c_docspago.nif)+"\'",false,false);
|
||||
CursorTabla("ba","cod_banco","=\'"+StringClip(false,c_docspago.cod_banco)+"\'",false,false);
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
for (n=nlin; n<14 ; n++) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
fileRpt.writeln(lnro+" Málaga,"+datetoString(c_docspago.f_emision_pago));
|
||||
nlin++;
|
||||
// 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 23456789 123
|
||||
// direccion=StringClip(false,c_proveedores.direccion_envio);
|
||||
// localidad=StringClip(false,c_proveedores.cod_postal_envio)+" "+StringClip(false,c_proveedores.localidad_envio);
|
||||
// if ( direccion == "" || direccion == " " ) {
|
||||
direccion=StringClip(false,c_proveedores.domicilio);
|
||||
localidad=StringClip(false,c_proveedores.cod_postal)+" "+c_proveedores.localidad;
|
||||
// }
|
||||
// attn_envio=StringClip(false,c_proveedores.attn_envio);
|
||||
// fileRpt.writeln(lnro+" "+c_proveedores.attn_envio+" ");
|
||||
if (request.t_nl == "1") { lnro=nlin };
|
||||
fileRpt.writeln(lnro+" <B>"+StringClip(false,c_proveedores.razon_social)+"</B> ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin };
|
||||
fileRpt.writeln(lnro+" "+direccion+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin };
|
||||
fileRpt.writeln(lnro+" "+localidad+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin };
|
||||
for (n=1; n<3 ; n++) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin };
|
||||
}
|
||||
if ( NeedLins > BodyLines) {
|
||||
PlusNroDoc++;
|
||||
}
|
||||
var nro_doc_pago=parseFloat(c_docspago.nro_doc_pago)+PlusNroDoc;
|
||||
if (PlusNroDoc > 0 ) {
|
||||
status=database.execute("UPDATE docspago SET nro_doc_pago='"+nro_doc_pago+"' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
||||
}
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" Muy Sres. nuestros:");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" Adjunto les remitimos pagaré nro. <I>0"+nro_doc_pago+"</I> a cargo del ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" <I>"+StringClip(false,c_bancos.nombre)+"</I> de pesetas <B><I>"+NroFormat(importeTotal,NF9)+"</I></B>,");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" con el cual cancelamos las facturas siguientes: ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" Centro Registro Importe Nro.Fra ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ------ --------- ---------------- ----------------");
|
||||
nlin++;
|
||||
blin=0;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while (true) {
|
||||
blin++;
|
||||
codCentro=StringClip(false,c_docspago.cod_centro);
|
||||
if ( c_docspago.importe_total < 0 )
|
||||
codCentro=" ";
|
||||
var nreg=c_docspago.nro_reg.substring(4,10)+"/"+c_docspago.nro_reg.substring(2,4);
|
||||
fileRpt.writeln(lnro+" "+codCentro+" "+nreg+" "+NroFormat(c_docspago.importe_total,NF9)+" Ptas."+" "+StringClip(false,c_docspago.nro_fra));
|
||||
if (blin+1 > BodyLines ) {
|
||||
blin=0;
|
||||
nlin=FootPosLin;
|
||||
}
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
if ( nlin == FootPosLin ) {
|
||||
for (var i=nlin ; i <= PaperLines ; i++) {
|
||||
if (request.t_nl == "1") { lnro=i; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
}
|
||||
for (var i=nlin ; i <= HeadPosLin ; i++) {
|
||||
if (request.t_nl == "1") { lnro=i; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
}
|
||||
nlin=HeadPosLin;
|
||||
}
|
||||
if ( !c_docspago.next())
|
||||
break;
|
||||
}
|
||||
while ( blin < BodyLines ) {
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
blin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
fileRpt.writeln(lnro+" A la espera de que el mencionado importe sea de su entera ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" conformidad, reciban un cordial saludo.");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+"<I> CONSTRUCCIONES SANCHEZ DOMINGUEZ-SANDO, S.A.</I> ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while (nlin < FootPosLin) {
|
||||
// Salta hasta pie de Página
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
linea=NroFormat(importeTotal,NF9);
|
||||
fileRpt.writeln(lnro+" <FONT SIZE=-1>");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" "+StringClip(false,c_proveedores.nif)+" "+StringClip(false,c_docspago.cod_localidad)+" #"+StringClip(true,linea)+"#");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" "+datetoString(c_docspago.f_emision_pago)+" "+datetoString(c_docspago.f_pago)+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
// fileRpt.writeln(lnro+" "+CompLetOn+"orden"+CompLetOff);
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" no a la orden");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
// 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 23456789 123
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" "+StringClip(false,c_proveedores.razon_social)+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
num_let="";
|
||||
if (importeTotal > 0 )
|
||||
nro_letra(importeTotal, "spa", "f", "PESETAS", CarPad,LongLine,LongLine);
|
||||
//debug(num_let)
|
||||
//debug(num_let2)
|
||||
fileRpt.writeln(lnro+" "+num_let);
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" "+num_let2);
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
// fileRpt.writeln(lnro+" ");
|
||||
// nlin++;
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" "+c_bancos.nombre+" "+c_bancos.entidad+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" "+c_bancos.domicilio+" "+c_bancos.sucursal+" "+c_bancos.cod_control+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" "+c_bancos.cod_postal+" "+c_bancos.localidad+" "+c_bancos.nro_cc+" </FONT>");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while ( nlin <= PaperLines ) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
// Cerrando cursores
|
||||
c_proveedores.close();
|
||||
c_bancos.close();
|
||||
c_docspago.close();
|
||||
nlin=1;
|
||||
}
|
||||
c_nrodocspago.close();
|
||||
fileRpt.writeln('<PRE>');
|
||||
fileRpt.writeln('</FONT>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
}
|
||||
function out_doctalon() {
|
||||
var fileRpt=new File(nomFile);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML>');
|
||||
fileRpt.writeln('<HEAD></HEAD>');
|
||||
fileRpt.writeln('<BODY>');
|
||||
fileRpt.writeln('<FONT SIZE=2>');
|
||||
fileRpt.writeln('<PRE> ');
|
||||
c_nrodocspago = database.cursor("SELECT UNIQUE nro_doc_pago FROM docspago WHERE uid="+ request.uid+" ORDER BY nro_doc_pago ");
|
||||
var f_pago = new Date();
|
||||
var cadena=" ";
|
||||
var loncad=cadena.length;
|
||||
var nlin=1;
|
||||
var lnro="";
|
||||
while (c_nrodocspago.next()) {
|
||||
c_docspago = database.cursor("SELECT importe_total FROM docspago WHERE uid="+ request.uid+
|
||||
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ");
|
||||
var importeTotal=0;
|
||||
while (c_docspago.next()) { // A Sumar ....
|
||||
importeTotal=importeTotal+parseFloat(c_docspago.importe_total);
|
||||
}
|
||||
c_docspago.close();
|
||||
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid="+ request.uid+
|
||||
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ORDER BY nro_reg ");
|
||||
c_docspago.next();
|
||||
CursorTabla("pr","nif","=\'"+StringClip(false,c_docspago.nif)+"\'",false,false);
|
||||
CursorTabla("ba","cod_banco","=\'"+StringClip(false,c_docspago.cod_banco)+"\'",false,false);
|
||||
ntal=1;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
if ( nlin > 1 ) {
|
||||
for (n=1; n<1 ; n++) {
|
||||
fileRpt.writeln(nlin+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
}
|
||||
if ( nlin == 1 )
|
||||
ntal=3
|
||||
// 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 23456789 123
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while (ntal < c_bancos.l_importe) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
linea=cadena;
|
||||
nro=NroFormat(importeTotal,NF9);
|
||||
linea=linea.substring(0,c_bancos.c_importe)+"#"+StringClip(true,nro)+"#";
|
||||
fileRpt.writeln(linea);
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while (ntal < c_bancos.l_paguese) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
linea=cadena;
|
||||
linea=linea.substring(0,c_bancos.c_paguese)+StringClip(false,c_proveedores.razon_social);
|
||||
fileRpt.writeln(linea);
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while (ntal < c_bancos.l1_nroletra) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++; ntal++;
|
||||
}
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
num_let="";
|
||||
if (importeTotal > 0 )
|
||||
nro_letra(importeTotal, "spa", "f", "PESETAS", CarPad,LongLine,LongLine);
|
||||
//debug(num_let)
|
||||
//debug(num_let2)
|
||||
linea=cadena;
|
||||
linea=linea.substring(0,c_bancos.c1_nroletra)+num_let;
|
||||
fileRpt.writeln(linea);
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while (ntal < c_bancos.l2_nroletra) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++; ntal++;
|
||||
}
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
linea=cadena;
|
||||
linea=linea.substring(0,c_bancos.c2_nroletra)+num_let2;
|
||||
fileRpt.writeln(linea);
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
num_let="";
|
||||
AsignaFecha(datetoString(c_docspago.f_pago),f_pago);
|
||||
importeTotal=f_pago.getDate();
|
||||
if (importeTotal > 0 )
|
||||
nro_letra(importeTotal, "spa", "m", "", "",LongLine,LongLine);
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while (ntal < c_bancos.l_fecha) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
linea=cadena;
|
||||
linea=linea.substring(0,c_bancos.c_fecha)+num_let;
|
||||
lonlin=linea.length;
|
||||
linea=linea+cadena.substring(lonlin,loncad);
|
||||
linea=linea.substring(0,c_bancos.c_mes)+stringMonth(f_pago.getMonth()); //CalendarMonth();
|
||||
linea=linea+cadena.substring(lonlin,loncad);
|
||||
anno=""+f_pago.getYear();
|
||||
linea=linea.substring(0,c_bancos.c_anno)+anno; //.substring(2,4)
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(linea);
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while (ntal < c_bancos.l1_firmado) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
linea=cadena;
|
||||
linea=linea.substring(0,c_bancos.c1_firmado)+StringClip(false,c_bancos.t1_firmado);
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(linea);
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while (ntal < c_bancos.l2_firmado) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
linea=cadena;
|
||||
linea=linea.substring(0,c_bancos.c2_firmado)+StringClip(false,c_bancos.t2_firmado);
|
||||
fileRpt.writeln(linea);
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while (ntal < c_bancos.nro_lins) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++; ntal++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
// 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 23456789 123
|
||||
if (nlin == PaperTLines )
|
||||
nlin=1;
|
||||
// Cerrando cursores
|
||||
c_proveedores.close();
|
||||
c_bancos.close();
|
||||
c_docspago.close();
|
||||
}
|
||||
c_nrodocspago.close();
|
||||
fileRpt.writeln('<PRE>');
|
||||
fileRpt.writeln('</FONT>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
}
|
||||
function out_doccarta() {
|
||||
var fileRpt=new File(nomCarta);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML>');
|
||||
fileRpt.writeln('<HEAD></HEAD>');
|
||||
fileRpt.writeln('<BODY>');
|
||||
fileRpt.writeln('<FONT SIZE=3>');
|
||||
fileRpt.writeln('<PRE> ');
|
||||
c_nrodocspago = database.cursor("SELECT UNIQUE nro_doc_pago FROM docspago WHERE uid="+ request.uid+" ORDER BY nro_doc_pago ");
|
||||
var PlusNroDoc=0; // Acumula incrementos en Nro. Doc si salto página
|
||||
var lnro="";
|
||||
while (c_nrodocspago.next()) {
|
||||
c_docspago = database.cursor("SELECT importe_total FROM docspago WHERE uid="+ request.uid+
|
||||
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ");
|
||||
var importeTotal=0;
|
||||
var NeedLins=0;
|
||||
while (c_docspago.next()) { // A Sumar ....
|
||||
importeTotal=importeTotal+parseFloat(c_docspago.importe_total);
|
||||
NeedLins++;
|
||||
}
|
||||
c_docspago.close();
|
||||
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid="+ request.uid+
|
||||
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ORDER BY nro_reg ");
|
||||
c_docspago.next();
|
||||
CursorTabla("pr","nif","=\'"+StringClip(false,c_docspago.nif)+"\'",false,false);
|
||||
CursorTabla("ba","cod_banco","=\'"+StringClip(false,c_docspago.cod_banco)+"\'",false,false);
|
||||
nlin=1;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
for (n=1; n<13 ; n++) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
fileRpt.writeln(lnro+" Málaga,"+datetoString(c_docspago.f_emision_pago));
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
// 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 23456789 123
|
||||
// direccion=StringClip(false,c_proveedores.direccion_envio);
|
||||
// localidad=StringClip(false,c_proveedores.cod_postal_envio)+" "+StringClip(false,c_proveedores.localidad_envio);
|
||||
// if ( direccion == "" || direccion == " " ) {
|
||||
direccion=StringClip(false,c_proveedores.domicilio);
|
||||
localidad=StringClip(false,c_proveedores.cod_postal)+" "+c_proveedores.localidad;
|
||||
// }
|
||||
// attn_envio=StringClip(false,c_proveedores.attn_envio);
|
||||
// fileRpt.writeln(lnro+" "+c_proveedores.attn_envio+" ");
|
||||
fileRpt.writeln(lnro+" <B>"+StringClip(false,c_proveedores.razon_social)+"</B> ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" "+direccion+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" "+localidad+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
for (n=1; n<3 ; n++) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
if ( NeedLins > BodyLines) {
|
||||
PlusNroDoc++;
|
||||
}
|
||||
var nro_doc_pago=parseFloat(c_docspago.nro_doc_pago)+PlusNroDoc;
|
||||
if (PlusNroDoc > 0 ) {
|
||||
status=database.execute("UPDATE docspago SET nro_doc_pago='"+nro_doc_pago+"' WHERE nro_reg='"+c_docspago.nro_reg+"'");
|
||||
}
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" Muy Sres. nuestros:");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" Adjunto les remitimos talón nro. <B><I>"+nro_doc_pago+"</I></B> a cargo del ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" <I>"+StringClip(false,c_bancos.nombre)+"</I> de pesetas <B><I>"+NroFormat(importeTotal,NF9)+"</I></B>,");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" con el cual cancelamos las facturas siguientes: ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" Centro Registro Importe Nro.Fra ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ------ --------- ---------------- ----------------");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
blin=0;
|
||||
while (true) {
|
||||
blin++;
|
||||
codCentro=StringClip(false,c_docspago.cod_centro);
|
||||
if ( c_docspago.importe_total < 0 )
|
||||
codCentro=" ";
|
||||
var nreg=c_docspago.nro_reg.substring(4,10)+"/"+c_docspago.nro_reg.substring(2,4);
|
||||
fileRpt.writeln(lnro+" "+codCentro+" "+nreg+" "+NroFormat(c_docspago.importe_total,NF9)+" Ptas."+" "+StringClip(false,c_docspago.nro_fra));
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
if ( nlin == FootPosLin ) {
|
||||
for (var i=nlin ; i <= PaperLines ; i++) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
for (var i=nlin ; i <= HeadPosLin ; i++) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
nlin=HeadPosLin;
|
||||
}
|
||||
if ( !c_docspago.next())
|
||||
break;
|
||||
}
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while ( blin < BodyLines ) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
blin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
fileRpt.writeln(lnro+" A la espera de que el mencionado importe sea de su entera ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" conformidad, reciban un cordial saludo.");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
fileRpt.writeln(lnro+"<I> CONSTRUCCIONES SANCHEZ DOMINGUEZ-SANDO, S.A.</I> ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
while ( nlin <= PaperTray ) {
|
||||
fileRpt.writeln(lnro+" ");
|
||||
nlin++;
|
||||
if (request.t_nl == "1") { lnro=nlin; }
|
||||
}
|
||||
// Cerrando cursores
|
||||
c_proveedores.close();
|
||||
c_bancos.close();
|
||||
c_docspago.close();
|
||||
}
|
||||
c_nrodocspago.close();
|
||||
fileRpt.writeln('<PRE>');
|
||||
fileRpt.writeln('</FONT>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
}
|
||||
function out_docfichero() {
|
||||
var fileRpt=new File(nomFich);
|
||||
fileRpt.open("w");
|
||||
c_nrodocspago = database.cursor("SELECT UNIQUE nro_doc_pago FROM docspago WHERE uid="+ request.uid+" ORDER BY nro_doc_pago ");
|
||||
var PlusNroDoc=0; // Acumula incrementos en Nro. Doc si salto página
|
||||
var lnro="";
|
||||
while (c_nrodocspago.next()) {
|
||||
c_docspago = database.cursor("SELECT importe_total FROM docspago WHERE uid="+ request.uid+
|
||||
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ");
|
||||
var importeTotal=0;
|
||||
var NeedLins=0;
|
||||
while (c_docspago.next()) { // A Sumar ....
|
||||
importeTotal=importeTotal+parseFloat(c_docspago.importe_total);
|
||||
NeedLins++;
|
||||
}
|
||||
c_docspago.close();
|
||||
c_docspago = database.cursor("SELECT * FROM docspago WHERE uid="+ request.uid+
|
||||
" and nro_doc_pago='"+c_nrodocspago.nro_doc_pago+"' ORDER BY nro_reg ");
|
||||
c_docspago.next();
|
||||
|
||||
CursorTabla("pr","nif","=\'"+StringClip(false,c_docspago.nif)+"\'",false,false);
|
||||
linea=" ";
|
||||
linea=StringClip(false,c_proveedores.razon_social)+linea;
|
||||
fileRpt.writeln(linea.substring(0,40)+" "+importeTotal);
|
||||
// Cerrando cursores
|
||||
c_proveedores.close();
|
||||
c_docspago.close();
|
||||
}
|
||||
c_nrodocspago.close();
|
||||
fileRpt.close();
|
||||
}
|
||||
|
||||
function rpt_test() {
|
||||
var fileRpt=new File(nomTest);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML>');
|
||||
fileRpt.writeln('<HEAD></HEAD>');
|
||||
fileRpt.writeln('<BODY>');
|
||||
fileRpt.writeln('<FONT SIZE=3>');
|
||||
fileRpt.writeln('<PRE> ');
|
||||
var cadena="";
|
||||
for (n=1; n< 8 ; n++) {
|
||||
cadena=cadena+"123456789 "
|
||||
}
|
||||
fileRpt.writeln(cadena);
|
||||
for (n=1; n< PaperLines ; n++) {
|
||||
fileRpt.writeln(n);
|
||||
}
|
||||
fileRpt.writeln('<PRE>');
|
||||
fileRpt.writeln('</FONT>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
writeln('w_outtest=window.open("'+urlTest+'","w_test","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
||||
}
|
||||
|
||||
function rpt_docpago() {
|
||||
c_docspago= database.cursor("SELECT * FROM docspago WHERE uid='"+request.uid+"' order by nro_doc_pago ");
|
||||
var fileRpt=new File(nomList);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML><HEAD></HEAD>');
|
||||
fileRpt.writeln('<BODY BACKGROUND="images/backgrnd.gif">');
|
||||
var suma_total=0;
|
||||
var nlins=0;
|
||||
var npag=1;
|
||||
var is_newpag=true;
|
||||
request.maxLins=53;
|
||||
while (c_docspago.next()) {
|
||||
CursorTabla("pr","nif","=\'"+StringClip(false,c_docspago.nif)+"\'",false,false);
|
||||
CursorTabla("fa","nro_reg","=\'"+StringClip(false,c_docspago.nro_reg)+"\'",false,false);
|
||||
// if ( nlins+3 == request.maxLins ) {
|
||||
// fileRpt.writeln('<BR><BR><BR>');
|
||||
// nlins=0;
|
||||
// is_newpag=true;
|
||||
// };
|
||||
if ( is_newpag == true ) {
|
||||
if (npag > 1 ) { fileRpt.write('</TABLE>')};
|
||||
fileRpt.writeln('<B><I>Dpto. Cuentas a Pagar</B></I><BR><HR>');
|
||||
fileRpt.writeln('<ALIGN=LEFT><H3><B>LISTADO DE PAGOS PENDIENTES DE CONFIRMAR</B></H3>');
|
||||
fileRpt.writeln('<HR>');
|
||||
is_newpag=false;
|
||||
nlins=nlins+4;
|
||||
set_head=true;
|
||||
npag++;
|
||||
}
|
||||
if ( set_head == true ) {
|
||||
fileRpt.writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER>');
|
||||
fileRpt.writeln(" <TR><TD ALIGN=CENTER><B>N.Reg.</B>" +
|
||||
"<TD ALIGN=CENTER><B>F.Vto.Pago</B> </TD>"+
|
||||
"<TD ALIGN=CENTER><B>Centro </B></TD>"+
|
||||
"<TD ALIGN=CENTER><B>Proveedor</B></TD>"+
|
||||
"<TD ALIGN=CENTER><B>Tot.Fra.</B></TD>"+
|
||||
"<TD ALIGN=CENTER><B>Nro.Doc.</B></TD>"+
|
||||
"<TD ALIGN=CENTER><B>Banco</B></TD>"+
|
||||
"<TD ALIGN=CENTER><B>Importe</B></TD></TR>");
|
||||
nlins=nlins+2; set_head=false;
|
||||
}
|
||||
// "/" + c_docspago.nro_reg.substring(0,4) +"</TD>"+
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>"+c_docspago.nro_reg.substring(4,c_docspago.nro_reg.length) + "</TD>" +
|
||||
"<TD ALIGN=RIGHT>"+datetoString(c_docspago.vto_pago) +"</TD>"+
|
||||
"<TD ALIGN=CENTER>"+c_docspago.cod_centro +"</TD>"+
|
||||
"<TD ALIGN=CENTER>"+c_proveedores.razon_social +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(c_facturas.importe_total,NF9)+"</TD>"+
|
||||
"<TD ALIGN=CENTER>"+StringClip(false,c_docspago.nro_doc_pago) +"</TD>"+
|
||||
"<TD ALIGN=CENTER>"+StringClip(false,c_docspago.cod_banco) +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(c_docspago.importe_total,NF9)+"</TD></TR>");
|
||||
suma_total=suma_total+c_docspago.importe_total;
|
||||
nlins++;
|
||||
c_proveedores.close();
|
||||
c_facturas.close();
|
||||
}
|
||||
// writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT></TD><TD ALIGN=RIGHT>----------------</TD>");
|
||||
// writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT>Suma Total:</TD><TD ALIGN=RIGHT>"+NroFormat(suma_total,NF10) +"</TD>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<HR><TABLE BORDER=0 ALIGN=CENTER><TR>');
|
||||
fileRpt.writeln("<TR><TD></TD><TD ALIGN=RIGHT><B>TOTAL Acumulado....... </B></TD>"+
|
||||
"<TD ALIGN=RIGHT><B>"+NroFormat(suma_total,NF11)+"</B></TD>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('</FONT>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
writeln('w_outtest=window.open("'+urlList+'","w_list","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
||||
|
||||
}
|
||||
477
l_factura.js
Normal file
477
l_factura.js
Normal file
@ -0,0 +1,477 @@
|
||||
//////////////////////////////////////
|
||||
// //
|
||||
// JavaScript Functions //
|
||||
// //
|
||||
//////////////////////////////////////
|
||||
function report_fra() {
|
||||
var npag=0;
|
||||
var nrolin=0;
|
||||
while (c_factreg.next()) {
|
||||
// if ( nrolin <= request.maxLins && npag >0 ) {
|
||||
// skipTopPage(nrolin,request.maxLins);
|
||||
// nrolin=0;
|
||||
// }
|
||||
// npag++;;
|
||||
if (request.f_formato=="proveedor")
|
||||
FraProveedorHtml();
|
||||
if (request.f_formato=="centro")
|
||||
FraCentroHtml();
|
||||
if (request.f_formato=="pendientes")
|
||||
FraPendientesHtml();
|
||||
if (request.f_formato=="emitidas")
|
||||
FraEmitidasHtml();
|
||||
if (request.f_formato=="provBloq")
|
||||
FraRetenidasHtml();
|
||||
if (request.f_formato=="documento")
|
||||
nrolin=FraDocHtml(c_factreg.nro_reg);
|
||||
}
|
||||
}
|
||||
function FraProveedorHtml() {
|
||||
var suma_total=0;
|
||||
var suma_prov=0;
|
||||
var nrolin=0;
|
||||
var keyLastRow="-";
|
||||
var is_newpag=true;
|
||||
while (true) {
|
||||
if ( nrolin+3 == request.maxLins ) {
|
||||
fileRpt.writeln('<BR><BR><BR>');
|
||||
nrolin=0;
|
||||
is_newpag=true;
|
||||
};
|
||||
if ( keyLastRow != c_factreg.nif && keyLastRow !="-") {
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<HR><TABLE BORDER='+request.borde+' ALIGN=CENTER><TR>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL .... </TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(suma_prov,NF11)+"</TD>");
|
||||
fileRpt.writeln('</TABLE><HR>');
|
||||
suma_prov=0;
|
||||
nrolin=nrolin+3
|
||||
set_head=true;
|
||||
}
|
||||
if ( is_newpag == true ) {
|
||||
if ( keyLastRow !="-" ) { fileRpt.writeln('</TABLE>')};
|
||||
fileRpt.writeln('<B><I>Dpto. Cuentas a Pagar</B></I><BR><HR>');
|
||||
fileRpt.writeln('<ALIGN=LEFT><H3><B>LISTADO DE FACTURAS POR PROVEEDOR</B></H3>');
|
||||
fileRpt.writeln('<HR>');
|
||||
is_newpag=false;
|
||||
nrolin=nrolin+4;
|
||||
set_head=true;
|
||||
}
|
||||
if ( set_head == true ) {
|
||||
fileRpt.writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT><B>"+c_factreg.nif +"</TD></B>"+
|
||||
"<TD ALIGN=RIGHT><B>"+c_factreg.razon_social+"</TD></B>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<HR><CENTER><TABLE BORDER='+request.borde+' ALIGN=CENTER>');
|
||||
fileRpt.writeln(" <TR><TD ALIGN=CENTER>Nro. Reg." +
|
||||
"<TD ALIGN=CENTER>F.Emisión </TD>"+
|
||||
"<TD ALIGN=CENTER>Nro. Fra.</TD>"+
|
||||
"<TD ALIGN=CENTER>Centro </TD>"+
|
||||
"<TD ALIGN=CENTER>Vto. Pago</TD>"+
|
||||
"<TD ALIGN=CENTER>Importe</TD></TR>");
|
||||
nrolin=nrolin+3; set_head=false;
|
||||
}
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>"+c_factreg.nro_reg.substring(4,c_factreg.nro_reg.length) + "/" +
|
||||
c_factreg.nro_reg.substring(0,4) +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+datetoString(c_factreg.f_emision) +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+c_factreg.nro_fra +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+c_factreg.cod_centro +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+datetoString(c_factreg.vto_pago) +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(c_factreg.importe_total,NF9)+"</TD></TR>");
|
||||
suma_total=suma_total+c_factreg.importe_total;
|
||||
suma_prov=suma_prov+c_factreg.importe_total;
|
||||
keyLastRow=c_factreg.nif;
|
||||
nrolin++;
|
||||
if (!c_factreg.next())
|
||||
break;
|
||||
}
|
||||
// writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT></TD><TD ALIGN=RIGHT>----------------</TD>");
|
||||
// writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT>Suma Total:</TD><TD ALIGN=RIGHT>"+NroFormat(suma_total,NF10) +"</TD>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<TABLE BORDER=0 ALIGN=CENTER><TR>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL .... </TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(suma_prov,NF11)+"</TD>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<HR><TABLE BORDER=0 ALIGN=CENTER><TR>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL Acumulado....... </TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(suma_total,NF11)+"</TD>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
}
|
||||
function FraCentroHtml() {
|
||||
request.s_iva=0;
|
||||
request.s_ctas=0;
|
||||
request.s_ret=0;
|
||||
request.s_total=0;
|
||||
request.s_prov=0;
|
||||
request.s_albs=0;
|
||||
var nrolin=0;
|
||||
var keyLastRow="-";
|
||||
var desLastRow="";
|
||||
var keyLastPrv="";
|
||||
var set_head=true;
|
||||
var s_seq=getSeqPrt(nprinter);
|
||||
textoReqs=textoReqs+" "+s_seq;
|
||||
var nomFile=spoolpath+nprinter+"/req_"+s_seq+".html"
|
||||
fileRpt=new File(nomFile);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML><HEAD></HEAD>');
|
||||
fileRpt.writeln('<BASEFONT SIZE=2>');
|
||||
status=database.execute("DELETE FROM sumactasfra where uid=\'" + request.uid+ "\'");
|
||||
while (true){
|
||||
if ( nrolin+3 == request.maxLins ) {
|
||||
fileRpt.writeln('<BR><BR><BR>');
|
||||
nrolin=0;
|
||||
set_head=true;
|
||||
};
|
||||
if ( keyLastPrv != c_factreg.nif ) {
|
||||
keyLastPrv=c_factreg.nif;
|
||||
s_prov=0;
|
||||
}
|
||||
if ( keyLastRow != c_factreg.cod_centro && keyLastRow !="-" ) {
|
||||
nrolin++;
|
||||
fileRpt.writeln("<TR><TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>TOTAL .... </FONT></TH>"+
|
||||
// "<TH ALIGN=RIGHT>"+NroFormat(suma_ctas,NF11)+"</TH>");
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TH ALIGN=RIGHT><B>"+NroFormat(request.s_ctas,NF11)+"</FONT></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_ret,NF11)+"</FONT></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_iva,NF11)+"</FONT></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_total,NF11)+"</FONT></TH>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_albs,NF11)+"</FONT></TH>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"</TR>");
|
||||
fileRpt.writeln('</TABLE><BR><BR>');
|
||||
FraResCentrosHtml(keyLastRow,desLastRow);
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
s_seq=getSeqPrt(nprinter);
|
||||
textoReqs=textoReqs+" "+s_seq;
|
||||
nomFile=spoolpath+nprinter+"/req_"+s_seq+".html"
|
||||
fileRpt=new File(nomFile);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML><HEAD></HEAD>');
|
||||
fileRpt.writeln('<BASEFONT SIZE=2>');
|
||||
// if ( nrolin <= request.maxLins ) {
|
||||
// skipTopPage(nrolin,request.maxLins);
|
||||
// nrolin=0;
|
||||
// set_head=true;
|
||||
// }
|
||||
request.s_iva=0;
|
||||
request.s_ctas=0;
|
||||
request.s_ret=0;
|
||||
request.s_total=0;
|
||||
request.s_prov=0;
|
||||
request.s_albs=0;
|
||||
nrolin=nrolin+3
|
||||
set_head=true;
|
||||
}
|
||||
if ( set_head == true ) {
|
||||
nrolin=nrolin+6;
|
||||
if ( keyLastRow !="-" )
|
||||
fileRpt.writeln("</TABLE>");
|
||||
FraCentrosCab();
|
||||
set_head=false;
|
||||
}
|
||||
s_iva=c_factreg.iva_1+c_factreg.iva_2+c_factreg.iva_3;
|
||||
s_ret=c_factreg.ret_1+c_factreg.ret_2+c_factreg.ret_3;
|
||||
// request.s_prov=request.s_prov+c_factreg.importe_total;
|
||||
c_aptesfra = database.cursor("SELECT * from aptectasfra where nro_reg='"+
|
||||
c_factreg.nro_reg+"' and nro_lin > 9 ")
|
||||
c_albafra = database.cursor("SELECT * from albafras where nroreg_factura='"+
|
||||
c_factreg.nro_reg+"' order by nroreg_albafact ")
|
||||
if (c_aptesfra.next()) {
|
||||
insCtaFra();
|
||||
if (c_albafra.next()) {
|
||||
a_nroreg=c_albafra.nroreg_albaran;
|
||||
a_sumactas=NroFormat(c_albafra.sumactas,NF9)
|
||||
request.s_albs=parseFloat(request.s_albs)+parseFloat(c_albafra.sumactas);
|
||||
}
|
||||
else {
|
||||
a_nroreg="";
|
||||
a_sumactas="";
|
||||
}
|
||||
importe=parseFloat(c_aptesfra.importe);
|
||||
if ( c_aptesfra.tipo_apte == "H" )
|
||||
importe=parseFloat(c_aptesfra.importe)*-1;
|
||||
if ( nrolin+1 > request.maxLins ) {
|
||||
skipTopPage(nrolin,request.maxLins);
|
||||
nrolin=6;
|
||||
fileRpt.writeln("</TABLE>");
|
||||
FraCentrosCab();
|
||||
}
|
||||
nrolin++;
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_factreg.nro_reg.substring(4,c_factreg.nro_reg.length) +
|
||||
// "/" + c_factreg.nro_reg.substring(0,4) +
|
||||
"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_factreg.nro_fra +"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+datetoString(c_factreg.f_emision) +"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+datetoString(c_factreg.f_recepcion) +"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+datetoString(c_factreg.vto_pago) +"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_factreg.tipo_doc_pago+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+datetoString(c_factreg.f_emision_pago) +"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_aptesfra.cod_cta+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(importe,NF9)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(s_ret,NF9)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(s_iva,NF9)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(c_factreg.importe_total,NF9)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+a_nroreg+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+a_sumactas+"</FONT></TD>"+
|
||||
"<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_factreg.razon_social+"</FONT></TD>"+
|
||||
// "<TD ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_factreg.razon_social.substring(0,18)+"</FONT></TD>"+
|
||||
"</TR>")
|
||||
request.s_total=parseFloat(request.s_total)+parseFloat(c_factreg.importe_total);
|
||||
request.s_ret=parseFloat(request.s_ret)+parseFloat(s_ret);
|
||||
request.s_iva=parseFloat(request.s_iva)+parseFloat(s_iva);
|
||||
request.s_ctas=parseFloat(request.s_ctas)+parseFloat(importe);
|
||||
|
||||
}
|
||||
while (c_aptesfra.next()) {
|
||||
insCtaFra();
|
||||
if (c_albafra.next()) {
|
||||
a_nroreg=c_albafra.nroreg_albaran;
|
||||
a_sumactas=NroFormat(c_albafra.sumactas,NF9)
|
||||
request.s_albs=parseFloat(request.s_albs)+parseFloat(c_albafra.sumactas);
|
||||
}
|
||||
else {
|
||||
a_nroreg="";
|
||||
a_sumactas="";
|
||||
}
|
||||
importe=parseFloat(c_aptesfra.importe);
|
||||
if ( c_aptesfra.tipo_apte == "H" )
|
||||
importe=parseFloat(c_aptesfra.importe)*-1;
|
||||
if ( nrolin+1 > request.maxLins ) {
|
||||
skipTopPage(nrolin,request.maxLins);
|
||||
nrolin=6;
|
||||
fileRpt.writeln("</TABLE>");
|
||||
FraCentrosCab();
|
||||
}
|
||||
nrolin++;
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_aptesfra.cod_cta+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(importe,NF9)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+a_nroreg+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+a_sumactas+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"</TR>");
|
||||
request.s_ctas=parseFloat(request.s_ctas)+parseFloat(importe);
|
||||
}
|
||||
c_aptesfra.close();
|
||||
while (c_albafra.next()) {
|
||||
if ( nrolin+1 > request.maxLins ) {
|
||||
skipTopPage(nrolin,request.maxLins);
|
||||
nrolin=6;
|
||||
fileRpt.writeln("</TABLE>");
|
||||
FraCentrosCab();
|
||||
}
|
||||
nrolin++;
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_albafra.nroreg_albaran+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(c_albafra.sumactas,NF9)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"</TR>");
|
||||
request.s_albs=parseFloat(request.s_albs)+parseFloat(c_albafra.sumactas);
|
||||
}
|
||||
keyLastRow=c_factreg.cod_centro;
|
||||
desLastRow=c_factreg.descripcion;
|
||||
c_albafra.close();
|
||||
if (!c_factreg.next())
|
||||
break;
|
||||
}
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>TOTAL .... </FONT></TD>"+
|
||||
// "<TD ALIGN=RIGHT>"+NroFormat(suma_ctas,NF11)+"</TD>");
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_ctas,NF11)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_ret,NF11)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_iva,NF11)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_total,NF11)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_albs,NF11)+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT></TD>"+
|
||||
"</TR>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
FraResCentrosHtml(keyLastRow,desLastRow);
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
}
|
||||
function insCtaFra() {
|
||||
importe=parseFloat(c_aptesfra.importe);
|
||||
if ( c_aptesfra.tipo_apte == "H" )
|
||||
importe=parseFloat(c_aptesfra.importe)*-1;
|
||||
status=database.execute("INSERT INTO sumactasfra(" +
|
||||
" uid," +
|
||||
" cod_centro," +
|
||||
" cod_cta," +
|
||||
" importe) VALUES ('" +
|
||||
request.uid + "','" +
|
||||
StringClip(true,c_factreg.cod_centro) + "','" +
|
||||
StringClip(true,c_aptesfra.cod_cta) + "','" +
|
||||
importe+ "')");
|
||||
}
|
||||
function FraResCentrosHtml(clave,desclave) {
|
||||
c_ctascentro = database.cursor("SELECT cod_cta,sum(importe) from sumactasfra where cod_centro=\'" +clave+"\' and uid=\'" + request.uid+
|
||||
"\' group by cod_cta ");
|
||||
fileRpt.writeln('<HR>');
|
||||
fileRpt.writeln('<H4><B>RESUMEN DE CUENTAS POR CENTRO</B></H4>');
|
||||
fileRpt.writeln('<HR>');
|
||||
// fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER><TR>');
|
||||
// fileRpt.writeln("<TD ALIGN=LEFT><B>"+clave +"</B>"+
|
||||
// "<B>"+desclave+"</B>");
|
||||
// fileRpt.writeln('</TD></TR></TABLE><BR><BR><LEFT>');
|
||||
fileRpt.writeln("<FONT SIZE=+1>"+clave +desclave+"</FONT>");
|
||||
fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4 VALIGN="TOP"><TR>');
|
||||
fileRpt.writeln("<TR><TH ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Cod. Cta.</FONT></I></TH>" +
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Importe</FONT></I></TH>"+
|
||||
"</TR>");
|
||||
request.s_total=0;
|
||||
while ( c_ctascentro.next()) {
|
||||
fileRpt.writeln("<TR>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+c_ctascentro.cod_cta+"</FONT></TD>"+
|
||||
"<TD ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(c_ctascentro[1],NF11)+"</FONT></TD>"+
|
||||
"</TR>");
|
||||
request.s_total=parseFloat(request.s_total)+parseFloat(c_ctascentro[1]);
|
||||
}
|
||||
c_ctascentro.close();
|
||||
fileRpt.writeln("<TR><TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>TOTAL</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1>"+NroFormat(request.s_total,NF11)+"</FONT></TH></TR>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<BR><BR>');
|
||||
}
|
||||
function FraCentrosCab() {
|
||||
fileRpt.writeln('<H6><I>Dpto. Cuentas a Pagar</FONT></I>');
|
||||
fileRpt.writeln('<HR>');
|
||||
fileRpt.writeln('<ALIGN=CENTER><H4><B>LISTADO DE FACTURAS POR CENTRO</B></H4>');
|
||||
fileRpt.writeln('<HR>');
|
||||
fileRpt.writeln('</TABLE><ALIGN=LEFT>');
|
||||
fileRpt.writeln("<ALIGN=LEFT NOWRAP VALIGN=TOP ><FONT SIZE=+1>"+c_factreg.cod_centro +c_factreg.descripcion+"</FONT>");
|
||||
fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4 VALIGN="TOP">');
|
||||
fileRpt.writeln("<TR><TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Nro.Reg.</FONT></I></TH>" +
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Nro. Fra.</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>F.Fra.</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>F.Recep.</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>F.Pago</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>TD</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>F.Emis.</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Cuenta</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Imp.Cta.</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Retención</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>I.V.A.</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Total Fra.</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Alb.Int.</FONT></I></TH>"+
|
||||
"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Alb.Imp.</FONT></I></TH>"+
|
||||
"<TH ALIGN=CENTER NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Razón Social</FONT></I></TH>"+
|
||||
// "<TH ALIGN=CENTER NOWRAP VALIGN=TOP ><FONT SIZE=-1><I>Imp.Prov.</TH>"+
|
||||
"</TR>");
|
||||
}
|
||||
function FraPendientesHtml() {
|
||||
}
|
||||
function FraEmitidasHtml() {
|
||||
var suma_total=0;
|
||||
var suma_banco=0;
|
||||
var nrolin=0;
|
||||
var npag=1;
|
||||
var keyLastRow="";
|
||||
var is_newpag=true;
|
||||
while (true) {
|
||||
if ( nrolin+3 == request.maxLins ) {
|
||||
fileRpt.writeln('<BR><BR><BR>');
|
||||
nrolin=0;
|
||||
is_newpag=true;
|
||||
};
|
||||
if ( keyLastRow != c_factreg.nif && npag!=1 ) {
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<HR><TABLE BORDER=0 ALIGN=CENTER><TR>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL .... </TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(suma_banco,NF11)+"</TD>");
|
||||
fileRpt.writeln('</TABLE><HR>');
|
||||
suma_banco=0;
|
||||
nrolin=nrolin+3
|
||||
set_head=true;
|
||||
}
|
||||
if ( is_newpag == true ) {
|
||||
if (npag > 1 ) { fileRpt.writeln('</TABLE>')};
|
||||
fileRpt.writeln('<H6><I>Dpto. Cuentas a Pagar</B></I><BR><HR>');
|
||||
fileRpt.writeln('<ALIGN=LEFT><H3><B>LISTADO DE PAGARES EMITIDOS</B></H3>');
|
||||
// 'Pág.:'+npag+' ');
|
||||
fileRpt.writeln('<HR>');
|
||||
is_newpag=false;
|
||||
nrolin=nrolin+4;
|
||||
set_head=true;
|
||||
npag++;
|
||||
}
|
||||
if ( set_head == true ) {
|
||||
fileRpt.writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT><B>"+c_factreg.nif +"</TD></B>"+
|
||||
"<TD ALIGN=RIGHT><B>"+c_factreg.razon_social+"</TD></B>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<HR><CENTER><TABLE BORDER='+request.borde+' ALIGN=CENTER>');
|
||||
fileRpt.writeln(" <TR><TD ALIGN=CENTER>Nro. Reg." +
|
||||
"<TD ALIGN=CENTER>F.Emisión </TD>"+
|
||||
"<TD ALIGN=CENTER>Nro. Fra.</TD>"+
|
||||
"<TD ALIGN=CENTER>Centro </TD>"+
|
||||
"<TD ALIGN=CENTER>Vto. Pago</TD>"+
|
||||
"<TD ALIGN=CENTER>Importe</TD></TR>");
|
||||
nrolin=nrolin+3; set_head=false;
|
||||
}
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>"+c_factreg.nro_reg.substring(4,c_factreg.nro_reg.length) + "/" +
|
||||
c_factreg.nro_reg.substring(0,4) +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+datetoString(c_factreg.f_emision) +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+c_factreg.nro_fra +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+c_factreg.cod_centro +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+datetoString(c_factreg.vto_pago) +"</TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(c_factreg.importe_total,NF9)+"</TD></TR>");
|
||||
suma_total=suma_total+c_factreg.importe_total;
|
||||
suma_banco=suma_banco+c_factreg.importe_total;
|
||||
keyLastRow=c_factreg.nif;
|
||||
nrolin++;
|
||||
if (!c_factreg.next())
|
||||
break;
|
||||
}
|
||||
// writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT></TD><TD ALIGN=RIGHT>----------------</TD>");
|
||||
// writeln("<TR><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD ALIGN=RIGHT>Suma Total:</TD><TD ALIGN=RIGHT>"+NroFormat(suma_total,NF10) +"</TD>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<TABLE BORDER=0 ALIGN=CENTER><TR>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL .... </TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(suma_prov,NF11)+"</TD>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('<HR><TABLE BORDER=0 ALIGN=CENTER><TR>');
|
||||
fileRpt.writeln("<TR><TD ALIGN=RIGHT>TOTAL Acumulado....... </TD>"+
|
||||
"<TD ALIGN=RIGHT>"+NroFormat(suma_total,NF11)+"</TD>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
}
|
||||
function FraRetenidasHtml() {
|
||||
}
|
||||
|
||||
159
l_prevision.js
Normal file
159
l_prevision.js
Normal file
@ -0,0 +1,159 @@
|
||||
//////////////////////////////////////
|
||||
// //
|
||||
// JavaScript Functions //
|
||||
// //
|
||||
//////////////////////////////////////
|
||||
function report_prev() {
|
||||
var npag=0;
|
||||
var nrolin=0;
|
||||
// if (request.f_formato=="documento")
|
||||
PrevisionHtml();
|
||||
}
|
||||
function PrevisionHtml() {
|
||||
request.sumaret=0;
|
||||
request.sumapag=0;
|
||||
request.sumatal=0;
|
||||
request.linea="";
|
||||
request.suma_lin=0;
|
||||
request.suma_tot=0;
|
||||
var nrolin=0;
|
||||
var set_head=true;
|
||||
// var s_seq=getSeqPrt(nprinter);
|
||||
// textoReqs=textoReqs+" "+s_seq;
|
||||
// var nomFile=spoolpath+nprinter+"/req_"+s_seq+".html"
|
||||
fileRpt=new File(nomFile);
|
||||
fileRpt.open("w");
|
||||
fileRpt.writeln('<HTML><HEAD></HEAD>');
|
||||
fileRpt.writeln('<BASEFONT SIZE=1>');
|
||||
fileRpt.writeln('<FONT SIZE=1>');
|
||||
var keyLastRow="-";
|
||||
|
||||
c_vtosDate = database.cursor("SELECT unique vto_pago from facturas where tipo_doc_pago = '1' "+
|
||||
" and vto_pago >='"+
|
||||
request.f_entrada+"' order by vto_pago ")
|
||||
c_bancos = database.cursor("SELECT cod_banco,nombre FROM bancos where is_locked != 'S' ORDER BY cod_banco ");
|
||||
while (c_bancos.next()) {
|
||||
eval ("request.sum_"+c_bancos.cod_banco+"=0");
|
||||
}
|
||||
c_bancos.close();
|
||||
|
||||
while (c_vtosDate.next()){
|
||||
if ( nrolin+3 == request.maxLins ) {
|
||||
fileRpt.writeln('<BR><BR><BR>');
|
||||
nrolin=0;
|
||||
set_head=true;
|
||||
};
|
||||
if ( set_head == true ) {
|
||||
nrolin=nrolin+2;
|
||||
if ( keyLastRow !="-" )
|
||||
fileRpt.writeln("</TABLE>");
|
||||
PrevisionCab();
|
||||
set_head=false;
|
||||
}
|
||||
if ( nrolin+1 > request.maxLins ) {
|
||||
skipTopPage(nrolin,request.maxLins);
|
||||
nrolin=6;
|
||||
fileRpt.writeln("</TABLE>");
|
||||
PrevisionCab();
|
||||
}
|
||||
c_bancos = database.cursor("SELECT cod_banco,nombre FROM bancos where is_locked != 'S' ORDER BY cod_banco ");
|
||||
request.linea="<TD ALIGN=RIGHT><FONT SIZE=1>"+datetoString(c_vtosDate.vto_pago)+"</TD>";
|
||||
request.suma_lin=0;
|
||||
while (c_bancos.next()) {
|
||||
c_vtos = database.cursor("SELECT sum(importe_total) from facturas where tipo_doc_pago = '1' "+
|
||||
" and cod_banco = '"+c_bancos.cod_banco+
|
||||
"' and vto_pago ='"+datetoString(c_vtosDate.vto_pago)+
|
||||
"'")
|
||||
|
||||
c_vtos.next();
|
||||
numero=0;
|
||||
if ( c_vtos[0] > 0 || c_vtos[0] < 0 )
|
||||
numero=c_vtos[0];
|
||||
request.linea=request.linea+"<TD ALIGN=RIGHT><FONT SIZE=1>"+NroFormat(numero,NF11)+"</TD>"
|
||||
eval ("request.sum_"+c_bancos.cod_banco+"=parseFloat(request.sum_"+c_bancos.cod_banco+")+parseFloat("+numero+")");
|
||||
request.suma_lin=parseFloat(request.suma_lin)+parseFloat(numero);
|
||||
c_vtos.close();
|
||||
}
|
||||
c_bancos.close();
|
||||
c_pagemi = database.cursor("SELECT sum(importe_total),f_pago,tipo_doc_pago from facturas where tipo_doc_pago ='2' "+
|
||||
" and vto_pago is null and f_pago ='"+
|
||||
datetoString(c_vtosDate.vto_pago)+"' group by tipo_doc_pago, f_pago order by f_pago,tipo_doc_pago")
|
||||
c_pagemi.next();
|
||||
// Suma de Pagos tipo 2
|
||||
numero=0;
|
||||
if ( c_pagemi[0] > 0 || c_pagemi[0] < 0 )
|
||||
numero=c_pagemi[0];
|
||||
request.linea=request.linea+"<TD ALIGN=RIGHT><FONT SIZE=1>"+NroFormat(numero,NF11)+"</TD>"
|
||||
request.sumtal=parseFloat(request.sumatal+numero);
|
||||
request.suma_lin=parseFloat(request.suma_lin)+parseFloat(numero);
|
||||
c_pagemi.close();
|
||||
c_pagemi = database.cursor("SELECT sum(importe_total),f_pago,tipo_doc_pago from facturas where tipo_doc_pago = '1' "+
|
||||
" and vto_pago is null and f_pago ='"+
|
||||
datetoString(c_vtosDate.vto_pago)+"' group by tipo_doc_pago, f_pago order by f_pago,tipo_doc_pago")
|
||||
c_pagemi.next();
|
||||
// Suma de Pagos tipo 1
|
||||
numero=0;
|
||||
if ( c_pagemi[0] > 0 || c_pagemi[0] < 0 )
|
||||
numero=c_pagemi[0];
|
||||
request.linea=request.linea+"<TD ALIGN=RIGHT><FONT SIZE=1>"+NroFormat(numero,NF11)+"</TD>"
|
||||
request.sumpag=parseFloat(request.sumapag+numero);
|
||||
request.suma_lin=parseFloat(request.suma_lin)+parseFloat(numero);
|
||||
c_pagemi.close();
|
||||
c_reten = database.cursor("SELECT sum(importe_total),f_pago from facturas,proveedores where tipo_doc_pago between '1' and '2' "+
|
||||
" and f_emision_pago is null and f_pago ='"+
|
||||
datetoString(c_vtosDate.vto_pago)+"' "+
|
||||
" and facturas.nif=proveedores.nif "+
|
||||
" and ( proveedores.cond_pago = '99' or facturas.cond_pago = '99' )"+
|
||||
" group by cod_banco,f_pago order by f_pago")
|
||||
c_reten.next();
|
||||
// Suma de Retenciones
|
||||
numero=0;
|
||||
if ( c_reten[0] > 0 || c_reten[0] < 0 )
|
||||
numero=c_reten[0];
|
||||
request.linea=request.linea+"<TD ALIGN=RIGHT><FONT SIZE=1>"+NroFormat(numero,NF11)+"</TD>"
|
||||
request.sumret=parseFloat(request.sumaret+numero);
|
||||
request.suma_lin=parseFloat(request.suma_lin)+parseFloat(numero);
|
||||
c_reten.close();
|
||||
keyLastRow=c_vtosDate.vto_pago;
|
||||
request.suma_tot=parseFloat(request.suma_tot)+parseFloat(request.suma_lin);
|
||||
request.linea=request.linea+"<TD ALIGN=RIGHT><FONT SIZE=1>"+NroFormat(request.suma_lin,NF11)+"</TD>"
|
||||
nrolin++;
|
||||
fileRpt.writeln("<TR>"+request.linea+"</TR>")
|
||||
}
|
||||
// Acumulados totales
|
||||
c_vtosDate.close();
|
||||
request.linea="";
|
||||
c_bancos = database.cursor("SELECT cod_banco,nombre FROM bancos where is_locked != 'S' ORDER BY cod_banco ");
|
||||
while (c_bancos.next()) {
|
||||
eval ("request.linea=request.linea+'<TD ALIGN=RIGHT><FONT SIZE=1>'+NroFormat(request.sum_"+c_bancos.cod_banco+",NF11)+'</TD>'");
|
||||
}
|
||||
c_bancos.close();
|
||||
request.linea=request.linea+"<TD ALIGN=RIGHT><FONT SIZE=1>"+NroFormat(request.sumatal,NF11)+"</TD>"
|
||||
request.linea=request.linea+"<TD ALIGN=RIGHT><FONT SIZE=1>"+NroFormat(request.sumapag,NF11)+"</TD>"
|
||||
request.linea=request.linea+"<TD ALIGN=RIGHT><FONT SIZE=1>"+NroFormat(request.sumaret,NF11)+"</TD>"
|
||||
request.linea=request.linea+"<TD ALIGN=RIGHT><FONT SIZE=1>"+NroFormat(request.suma_tot,NF11)+"</TD>"
|
||||
fileRpt.writeln("<TR><TD><FONT SIZE=1>TOTALES</TD>"+request.linea+"</TR>");
|
||||
fileRpt.writeln('</TABLE>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
}
|
||||
function PrevisionCab() {
|
||||
request.linea="";
|
||||
fileRpt.writeln('<H6><I>Dpto. Cuentas a Pagar</FONT></I>');
|
||||
fileRpt.writeln('<HR>');
|
||||
fileRpt.writeln('<ALIGN=CENTER><H4><B>PREVISIONES</B></H4>');
|
||||
fileRpt.writeln('<HR>');
|
||||
fileRpt.writeln('</TABLE><ALIGN=LEFT>');
|
||||
fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4 VALIGN="TOP">');
|
||||
c_bancos = database.cursor("SELECT cod_banco,acronimo FROM bancos where is_locked != 'S' ORDER BY cod_banco ");
|
||||
while (c_bancos.next()) {
|
||||
request.linea=request.linea+"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><I><FONT SIZE=1>"+c_bancos.acronimo+"</I></TH> ";
|
||||
}
|
||||
c_bancos.close();
|
||||
request.linea=request.linea+"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><I><FONT SIZE=1>CONTADO</I></TH> ";
|
||||
request.linea=request.linea+"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><I><FONT SIZE=1>PAGARES</I></TH> ";
|
||||
request.linea=request.linea+"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><I><FONT SIZE=1>RETENIDO</I></TH> ";
|
||||
request.linea=request.linea+"<TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><I><FONT SIZE=1>TOTALES</I></TH> ";
|
||||
fileRpt.writeln("<TR><TH ALIGN=RIGHT NOWRAP VALIGN=TOP ><I><FONT SIZE=1> VTOS.</I></TH> "+request.linea+"</TR>");
|
||||
}
|
||||
386
l_trasp_old.js
Normal file
386
l_trasp_old.js
Normal file
@ -0,0 +1,386 @@
|
||||
//////////////////////////////////////
|
||||
// //
|
||||
// JavaScript Functions //
|
||||
// //
|
||||
//////////////////////////////////////
|
||||
|
||||
function wrtraspaso(text){
|
||||
// writeln("w_outtraspaso.document.write('"+text+"\\n');");
|
||||
fileRpt.writeln(text);
|
||||
}
|
||||
function chk_traspaso() {
|
||||
var query;
|
||||
c_query = database.cursor("select * FROM traspaso WHERE uid=\'" + request.uid+ "\'");
|
||||
if (c_query.next()) {
|
||||
request.criterio=StringClip(false,c_query.criterio);
|
||||
request.f_traspaso=StringClip(false,c_query.f_traspaso);
|
||||
request.f_emision=StringClip(false,c_query.f_emision);
|
||||
request.f_nro_doc=StringClip(false,c_query.f_nro_doc);
|
||||
request.sel_order=StringClip(false,c_query.sel_order);
|
||||
writeln(' alert("\\r Existe un Traspaso de '+request.f_traspaso+' Pendientes de Confirmación !!!"); ');
|
||||
request.opt_traspaso="true";
|
||||
}
|
||||
c_query.close();
|
||||
if (request.opt_traspaso)
|
||||
return true
|
||||
else
|
||||
return false
|
||||
}
|
||||
function insertaTrasp() {
|
||||
status=database.execute('INSERT INTO traspaso(' +
|
||||
' uid,' +
|
||||
' sel_order,'+
|
||||
' criterio,'+
|
||||
' f_traspaso,'+
|
||||
' f_emision,'+
|
||||
' f_nro_doc ) VALUES ("' + request.uid+ '","' +
|
||||
request.sel_order + '","'+
|
||||
request.criterio + '","'+
|
||||
request.f_traspaso + '","'+
|
||||
request.f_emision + '","'+
|
||||
request.f_nro_doc + '")');
|
||||
if ( status != 0 ) {
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
redirect(addClient('error.html?alert=14'));
|
||||
}
|
||||
}
|
||||
|
||||
function report_traspaso() {
|
||||
client.is_trans=true;
|
||||
database.beginTransaction();
|
||||
insertaTrasp();
|
||||
out_traspaso();
|
||||
database.commitTransaction();
|
||||
client.is_trans=false;
|
||||
}
|
||||
function rpt_traspaso_Doc() {
|
||||
writeln('w_carta=window.open("'+urlDoc+'","w_traspaso","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
||||
}
|
||||
function rpt_traspaso_Data() {
|
||||
writeln('w_carta=window.open("'+urlData+'","w_traspaso","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
||||
}
|
||||
|
||||
function cleanup_traspaso() {
|
||||
// Borramos en tabla de pagos datos del usuario
|
||||
status=database.execute("DELETE FROM traspaso WHERE uid=\'" + request.uid+ "\'");
|
||||
return;
|
||||
}
|
||||
|
||||
function out_traspaso() {
|
||||
var Clave="-";
|
||||
var SumaTotal=0;
|
||||
var fileRpt=new File(nomDoc);
|
||||
fileRpt.open("w");
|
||||
var fileData=new File(nomData);
|
||||
fileData.open("w");
|
||||
fileRpt.writeln('<HTML>');
|
||||
fileRpt.writeln('<HEAD></HEAD>');
|
||||
fileRpt.writeln('<BODY>');
|
||||
fileRpt.writeln('<B><I><CENTER> Traspaso de Facturas - '+request.f_traspaso+' - </B></I>');
|
||||
if (request.f_traspaso=="gasto")
|
||||
fileRpt.writeln('<FONT SIZE=1>');
|
||||
else
|
||||
fileRpt.writeln('<FONT SIZE=1>');
|
||||
fileRpt.writeln('<PRE> ');
|
||||
fileRpt.writeln('<HR>');
|
||||
if (request.f_traspaso=="gasto")
|
||||
fileRpt.writeln('<B>N.Doc. Línea Fecha Centro Cuenta Cv. DEBE HABER C o n c e p t o F. Vto. Contrap.</B>');
|
||||
else {
|
||||
fileRpt.writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
||||
fileRpt.writeln('<B>N.Doc. Línea Fecha Centro Cuenta Cv. DEBE HABER C o n c e p t o F. Vto. Contrap.</B>');
|
||||
}
|
||||
fileRpt.writeln('<HR>');
|
||||
linea=" ";
|
||||
// c_traspaso = database.cursor("SELECT * FROM traspaso WHERE uid="+ request.uid+" ORDER BY nro_reg ");
|
||||
var nlin=1
|
||||
var nro_doc=NroUnformat(request.f_nro_doc);
|
||||
while (c_traspdocs.next()) {
|
||||
if (request.f_traspaso=="pago")
|
||||
c_traspaso = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
|
||||
" and nro_doc_pago='"+c_traspdocs.nro_doc_pago+"' "+
|
||||
" ORDER BY " + request.sel_order);
|
||||
if (request.f_traspaso=="gasto")
|
||||
c_traspaso = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
|
||||
" and nro_reg='"+c_traspdocs.nro_reg+"' "+
|
||||
" ORDER BY " + request.sel_order);
|
||||
if (request.f_traspaso=="vto")
|
||||
c_traspaso = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
|
||||
" and nro_reg_vto='"+c_traspdocs.nro_reg_vto+"' "+
|
||||
" ORDER BY " + request.sel_order);
|
||||
while (c_traspaso.next()) {
|
||||
request.razon_social=c_traspaso.razon_social;
|
||||
if ( request.f_traspaso=="pago" && Clave == c_traspaso.nro_doc_pago )
|
||||
continue;
|
||||
if ( request.f_traspaso=="vto" && Clave == c_traspaso.nro_reg_vto )
|
||||
continue ;
|
||||
nrolin=1;
|
||||
if (request.f_traspaso!="vto")
|
||||
CursorTabla("acf","nro_reg","=\'"+c_traspaso.nro_reg+"\' order by nro_lin ",false,"");
|
||||
if (request.f_traspaso=="gasto") {
|
||||
fileRpt.writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
||||
while (c_aptectasfra.next()) {
|
||||
make_apte(nro_doc,"",StringClip(false,c_traspaso.cta_contable),"",nrolin,0);
|
||||
// if ( nrolin+1 > request.maxLins ) {
|
||||
// skipTopPage(nrolin,request.maxLins);
|
||||
// nrolin=0;
|
||||
// }
|
||||
fileData.writeln(request.linea);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
nrolin++;
|
||||
}
|
||||
fileRpt.writeln('</TABLE>');
|
||||
} else {
|
||||
if (request.f_traspaso!="vto")
|
||||
c_aptectasfra.next();
|
||||
// fileRpt.writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
||||
if (request.f_traspaso=="pago")
|
||||
CursorTabla("fa","nro_doc_pago","=\'"+c_traspaso.nro_doc_pago+"\'",true,"");
|
||||
if (request.f_traspaso=="vto")
|
||||
CursorTabla("fa","nro_reg_vto","=\'"+c_traspaso.nro_reg_vto+"\'",true,"");
|
||||
SumaTotal=0;
|
||||
request.cta_contable=c_traspaso.cta_contable;
|
||||
request.f_emision_pago=datetoString(c_traspaso.f_emision_pago);
|
||||
request.is_remesa ="N";
|
||||
while ( true ) {
|
||||
request.nro_reg=c_facturas.nro_reg;
|
||||
request.nro_fra=c_facturas.nro_fra;
|
||||
request.nro_doc_pago=c_facturas.nro_doc_pago;
|
||||
request.importe_total=c_facturas.importe_total;
|
||||
if ( c_traspaso.nro_doc_pago != c_facturas.nro_doc_pago )
|
||||
request.is_remesa ="S";
|
||||
if (request.f_traspaso=="pago") {
|
||||
traspaso_pago(nro_doc,nrolin,"D");
|
||||
if (c_facturas.tipo_doc_pago == "1" ) {
|
||||
fileData.writeln(request.linea);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
nrolin++;
|
||||
traspaso_pago(nro_doc,nrolin,"H");
|
||||
Clave=c_traspaso.nro_doc_pago;
|
||||
}
|
||||
}
|
||||
if (request.f_traspaso=="vto")
|
||||
traspaso_vto(nro_doc,nrolin,"D");
|
||||
fileData.writeln(request.linea);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
nrolin++;
|
||||
SumaTotal=parseFloat(c_facturas.importe_total)+parseFloat(SumaTotal);
|
||||
if (!c_facturas.next())
|
||||
break;
|
||||
}
|
||||
c_facturas.close();
|
||||
request.nro_reg=c_traspaso.nro_reg;
|
||||
request.nro_fra=c_traspaso.nro_fra;
|
||||
request.nro_doc_pago=c_traspaso.nro_doc_pago;
|
||||
request.importe_total=SumaTotal;
|
||||
if (request.f_traspaso=="pago" && c_traspaso.tipo_doc_pago == "2" ) {
|
||||
traspaso_pago(nro_doc,nrolin,"H");
|
||||
Clave=c_traspaso.nro_doc_pago;
|
||||
fileData.writeln(request.linea);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
nrolin++;
|
||||
}
|
||||
if (request.f_traspaso=="vto") {
|
||||
traspaso_vto(nro_doc,nrolin,"H");
|
||||
Clave=c_traspaso.nro_reg_vto;
|
||||
fileData.writeln(request.linea);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
nrolin++;
|
||||
}
|
||||
// fileRpt.writeln('</TABLE>');
|
||||
}
|
||||
if (request.f_traspaso!="vto")
|
||||
c_aptectasfra.close();
|
||||
fileRpt.writeln('<HR>');
|
||||
nro_doc++;
|
||||
}
|
||||
c_traspaso.close();
|
||||
}
|
||||
c_traspdocs.close();
|
||||
fileRpt.writeln('</TABLE>');
|
||||
request.lindoc="TOTALES DEBE : "+NroFormat(SumaDebe,NF11);
|
||||
// request.lindoc=request.lindoc.substring(0,46)+NroFormat(SumaDebe,NF11)+NroFormat(SumaHaber,NF11)+""
|
||||
fileRpt.writeln(request.lindoc);
|
||||
request.lindoc="TOTALES HABER: "+NroFormat(SumaHaber,NF11);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
fileRpt.writeln('<PRE>');
|
||||
fileRpt.writeln('</FONT>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
fileData.close();
|
||||
}
|
||||
function traspaso_pago(nro_doc,nrolin,tipoApte) {
|
||||
var DocNro="";
|
||||
var s_cta="";
|
||||
s_banco=parseInt(c_traspaso.cod_banco)+"";
|
||||
lon=s_banco.length;
|
||||
request.d_cod_cta=request.cta_contable;
|
||||
if (c_traspaso.tipo_doc_pago == "1" )
|
||||
s_cta=request.pag_hpag;
|
||||
if (c_traspaso.tipo_doc_pago == "2" )
|
||||
s_cta=request.pag_htal;
|
||||
s_lon=s_cta.length;
|
||||
request.h_cod_cta=s_cta.substring(0,s_lon-lon)+s_banco;
|
||||
s_lon=request.d_cod_cta.length;
|
||||
if ( tipoApte == "H") {
|
||||
DocNro=StringClip(false,request.nro_doc_pago)+"";
|
||||
make_apte(nro_doc,request.h_cod_cta,request.d_cod_cta,"H",nrolin,request.importe_total,DocNro);
|
||||
}
|
||||
if ( tipoApte == "D") {
|
||||
DocNro=StringClip(false,request.nro_fra)+" "+request.nro_reg.substring(4,10);
|
||||
make_apte(nro_doc,request.d_cod_cta,request.h_cod_cta,"D",nrolin,request.importe_total,DocNro);
|
||||
}
|
||||
}
|
||||
|
||||
function traspaso_vto(nro_doc,nrolin,tipoApte) {
|
||||
var DocNro="";
|
||||
var s_cta="";
|
||||
s_banco=parseInt(c_traspaso.cod_banco)+"";
|
||||
lon=s_banco.length;
|
||||
if (c_traspaso.tipo_doc_pago == "1" )
|
||||
s_cta=request.vto_dpag;
|
||||
if (c_traspaso.tipo_doc_pago == "2" )
|
||||
s_cta=request.vto_dtal;
|
||||
s_lon=s_cta.length;
|
||||
request.d_cod_cta=s_cta.substring(0,s_lon-lon)+s_banco;
|
||||
s_lon=request.vto_h.length;
|
||||
request.h_cod_cta=request.vto_h.substring(0,s_lon-lon)+s_banco;
|
||||
DocNro=StringClip(false,request.nro_doc_pago);
|
||||
if ( tipoApte == "H") {
|
||||
DocNro=StringClip(false,request.nro_doc_pago);
|
||||
if ( request.is_remesa == "S" ) {
|
||||
lon=c_traspaso.nro_reg_vto.length;
|
||||
request.razon_social="REMESA "+c_traspaso.nro_reg_vto.substring(5,lon);
|
||||
}
|
||||
make_apte(nro_doc,request.h_cod_cta,request.d_cod_cta,"H",nrolin,request.importe_total,DocNro);
|
||||
}
|
||||
if ( tipoApte == "D") {
|
||||
if ( request.is_remesa == "S" ) {
|
||||
CursorTabla("pr","nif","=\'"+StringClip(true,c_facturas.nif)+"\'",false,false);
|
||||
request.razon_social=StringClip(false,c_proveedores.razon_social);
|
||||
c_proveedores.close();
|
||||
}
|
||||
make_apte(nro_doc,request.d_cod_cta,request.h_cod_cta,"D",nrolin,request.importe_total,DocNro);
|
||||
DocNro=StringClip(false,request.nro_fra)+" "+request.nro_reg.substring(4,10);
|
||||
}
|
||||
}
|
||||
|
||||
function make_apte(nro_doc,cod_cta,c_cod_cta,tipo_apte,nl,Cantidad,DocNro) {
|
||||
linea=" ";
|
||||
request.linea=linea;
|
||||
request.lindoc="";
|
||||
cadena=parseInt(nro_doc)+"";
|
||||
lon=cadena.length;
|
||||
request.linea=request.linea.substring(0,p_nro_doc-lon)+cadena+linea;
|
||||
cadena=parseInt(nl)+"";
|
||||
lon=cadena.length;
|
||||
request.linea=request.linea.substring(0,p_nro_lin-lon)+cadena+linea;
|
||||
request.lindoc=StringClip(false,request.linea);
|
||||
s_cadena=request.f_emision;
|
||||
if (request.f_traspaso=="pago")
|
||||
s_cadena=request.f_emision_pago;
|
||||
cadena=datetoNString(s_cadena);
|
||||
lon=cadena.length;
|
||||
request.linea=request.linea.substring(0,p_f_cont-lon)+cadena+linea;
|
||||
request.linea=request.linea.substring(0,p_f_emis-lon)+cadena+linea;
|
||||
request.lindoc=request.lindoc+" "+s_cadena;
|
||||
cadena=StringClip(false,c_traspaso.cod_centro);
|
||||
request.lindoc=request.lindoc+" "+cadena;
|
||||
lon=cadena.length;
|
||||
request.linea=request.linea.substring(0,p_centro-lon)+cadena+linea;
|
||||
if (request.f_traspaso=="gasto")
|
||||
cadena=StringClip(false,c_aptectasfra.cod_cta);
|
||||
if (request.f_traspaso=="pago")
|
||||
cadena=StringClip(false,cod_cta)+"";
|
||||
if (request.f_traspaso=="vto")
|
||||
cadena=StringClip(false,cod_cta)+"";
|
||||
request.lindoc=request.lindoc+" "+cadena;
|
||||
lon=cadena.length;
|
||||
request.linea=request.linea.substring(0,p_cta-lon)+cadena+linea;
|
||||
if (request.f_traspaso=="gasto")
|
||||
cadena=c_aptectasfra.clave+"";
|
||||
if (request.f_traspaso=="pago")
|
||||
cadena=request.f_clave+"";
|
||||
if (request.f_traspaso=="vto")
|
||||
cadena=request.f_clave+"";
|
||||
request.lindoc=request.lindoc+" "+cadena;
|
||||
clave=cadena;
|
||||
if (request.f_traspaso=="gasto") {
|
||||
nro=c_aptectasfra.importe;
|
||||
tipo_apte=c_aptectasfra.tipo_apte;
|
||||
} else {
|
||||
nro=Cantidad;
|
||||
}
|
||||
if ( c_traspaso.tipo_doc_pago == "1" )
|
||||
cadDoc="P/";
|
||||
if ( c_traspaso.tipo_doc_pago == "2" )
|
||||
cadDoc="T/";
|
||||
if ( nro < 0 ) {
|
||||
nro=nro*-1;
|
||||
if (request.f_traspaso=="pago" && tipo_apte == "D")
|
||||
cadDoc="";
|
||||
if ( tipo_apte == "D" )
|
||||
tipo_apte="H";
|
||||
else
|
||||
tipo_apte="D";
|
||||
}
|
||||
if (tipo_apte == "H") {
|
||||
SumaHaber=SumaHaber+nro;
|
||||
request.lindoc=request.lindoc+" "+NroFormat(nro,NF9)+" ";
|
||||
} else {
|
||||
SumaDebe=SumaDebe+nro;
|
||||
request.lindoc=request.lindoc+" "+NroFormat(nro,NF9)+" ";
|
||||
};
|
||||
cadena=tipo_apte;
|
||||
lon=cadena.length;
|
||||
request.linea=request.linea.substring(0,p_tipo_apte-lon)+cadena+linea;
|
||||
cadena=NroUnformat(NroFormat(nro,NF9))+"";
|
||||
lon=cadena.length;
|
||||
request.linea=request.linea.substring(0,p_importe-lon)+cadena+linea;
|
||||
lon=clave.length;
|
||||
request.linea=request.linea.substring(0,p_clave-lon)+clave+linea;
|
||||
if (request.f_traspaso=="gasto") {
|
||||
cadena=StringClip(false,c_aptectasfra.concepto);
|
||||
// cadena=StringClip(false,c_traspaso.nro_fra)+" "+c_traspaso.nro_reg.substring(4,10)+" "+StringClip(false,request.razon_social);
|
||||
}
|
||||
if (request.f_traspaso=="pago" && tipo_apte == "H")
|
||||
cadena=cadDoc+DocNro+" "+StringClip(false,request.razon_social);
|
||||
if (request.f_traspaso=="pago" && tipo_apte == "D") {
|
||||
// cadena=StringClip(false,c_aptectasfra.concepto);
|
||||
cadena=DocNro+StringClip(false,request.razon_social);
|
||||
}
|
||||
if (request.f_traspaso=="vto" && tipo_apte == "D")
|
||||
cadena=cadDoc+DocNro+" "+StringClip(false,request.razon_social);
|
||||
if (request.f_traspaso=="vto" && tipo_apte == "H") {
|
||||
if ( request.is_remesa == "S" )
|
||||
cadena=StringClip(false,request.razon_social);
|
||||
else
|
||||
cadena=cadDoc+DocNro+" "+StringClip(false,request.razon_social);
|
||||
}
|
||||
lon=30; // lon=cadena.length;
|
||||
s_cadena=cadena+linea;
|
||||
request.lindoc=request.lindoc+" "+s_cadena.substring(0,lon);
|
||||
request.linea=request.linea.substring(0,p_concepto-lon)+cadena.substring(0,lon)+linea;
|
||||
if (request.f_traspaso=="gasto") {
|
||||
s_cadena=" ";
|
||||
cadena=s_cadena;
|
||||
}
|
||||
else {
|
||||
s_cadena=datetoString(c_traspaso.vto_pago);
|
||||
cadena=datetoNString(s_cadena);
|
||||
}
|
||||
request.lindoc=request.lindoc+" "+s_cadena;
|
||||
lon=cadena.length;
|
||||
request.linea=request.linea.substring(0,p_vto-lon)+cadena+linea;
|
||||
cadena=StringClip(false,c_cod_cta);
|
||||
lon=cadena.length;
|
||||
//texto="p_contracta="+p_contracta+" lon="+lon+" c_cod_cta="+c_cod_cta
|
||||
//debug(texto)
|
||||
//debug(request.linea)
|
||||
request.lindoc=request.lindoc+" "+cadena;
|
||||
// if (request.f_traspaso=="pago" && tipo_apte == "H" && cod_cta.substring(0,2) != "41")
|
||||
// lon=lon-4;
|
||||
request.linea=request.linea.substring(0,p_contracta-lon)+cadena;
|
||||
//debug(request.linea)
|
||||
}
|
||||
512
l_traspaso.js
Normal file
512
l_traspaso.js
Normal file
@ -0,0 +1,512 @@
|
||||
//////////////////////////////////////
|
||||
// //
|
||||
// JavaScript Functions //
|
||||
// //
|
||||
//////////////////////////////////////
|
||||
|
||||
function wrtraspaso(text){
|
||||
// writeln("w_outtraspaso.document.write('"+text+"\\n');");
|
||||
fileRpt.writeln(text);
|
||||
}
|
||||
function chk_traspaso() {
|
||||
var query;
|
||||
c_query = database.cursor("select * FROM traspaso WHERE uid=\'" + request.uid+ "\'");
|
||||
if (c_query.next()) {
|
||||
request.criterio=StringClip(false,c_query.criterio);
|
||||
request.f_traspaso=StringClip(false,c_query.f_traspaso);
|
||||
request.f_emision=StringClip(false,c_query.f_emision);
|
||||
request.f_nro_doc=StringClip(false,c_query.f_nro_doc);
|
||||
request.sel_order=StringClip(false,c_query.sel_order);
|
||||
writeln(' alert("\\r Existe un Traspaso de '+request.f_traspaso+' Pendientes de Confirmación !!!"); ');
|
||||
request.opt_traspaso="true";
|
||||
}
|
||||
c_query.close();
|
||||
if (request.opt_traspaso)
|
||||
return true
|
||||
else
|
||||
return false
|
||||
}
|
||||
function insertaTrasp() {
|
||||
status=database.execute('INSERT INTO traspaso(' +
|
||||
' uid,' +
|
||||
' sel_order,'+
|
||||
' criterio,'+
|
||||
' f_traspaso,'+
|
||||
' f_emision,'+
|
||||
' f_nro_doc ) VALUES ("' + request.uid+ '","' +
|
||||
request.sel_order + '","'+
|
||||
request.criterio + '","'+
|
||||
request.f_traspaso + '","'+
|
||||
request.f_emision + '","'+
|
||||
request.f_nro_doc + '")');
|
||||
if ( status != 0 ) {
|
||||
client.is_trans=false;
|
||||
database.rollbackTransaction();
|
||||
redirect(addClient('error.html?alert=14'));
|
||||
}
|
||||
}
|
||||
|
||||
function report_traspaso() {
|
||||
client.is_trans=true;
|
||||
database.beginTransaction();
|
||||
insertaTrasp();
|
||||
out_traspaso();
|
||||
database.commitTransaction();
|
||||
client.is_trans=false;
|
||||
}
|
||||
function rpt_traspaso_Doc() {
|
||||
writeln('w_carta=window.open("'+urlDoc+'","w_traspaso","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
||||
}
|
||||
function rpt_traspaso_Data() {
|
||||
writeln('w_carta=window.open("'+urlData+'","w_traspaso","toolbar=yes,directories=no,menubar=yes,status=no,scrollbars=yes,resizable=yes,width=600,height=500");');
|
||||
}
|
||||
|
||||
function cleanup_traspaso() {
|
||||
// Borramos en tabla de pagos datos del usuario
|
||||
status=database.execute("DELETE FROM traspaso WHERE uid=\'" + request.uid+ "\'");
|
||||
return;
|
||||
}
|
||||
|
||||
function out_traspaso() {
|
||||
var Clave="-";
|
||||
var SumaTotal=0;
|
||||
var fileRpt=new File(nomDoc);
|
||||
fileRpt.open("w");
|
||||
var fileData=new File(nomData);
|
||||
fileData.open("w");
|
||||
fileRpt.writeln('<HTML>');
|
||||
fileRpt.writeln('<HEAD></HEAD>');
|
||||
fileRpt.writeln('<BODY>');
|
||||
fileRpt.writeln('<B><I><CENTER> Traspaso de Facturas - '+request.f_traspaso+' - </B></I>');
|
||||
if (request.f_traspaso=="gasto")
|
||||
fileRpt.writeln('<FONT SIZE=1>');
|
||||
else
|
||||
fileRpt.writeln('<FONT SIZE=1>');
|
||||
fileRpt.writeln('<PRE> ');
|
||||
fileRpt.writeln('<HR>');
|
||||
if (request.f_traspaso=="gasto")
|
||||
fileRpt.writeln('<B>N.Doc. Línea Fecha Centro Cuenta Cv. DEBE HABER C o n c e p t o F. Vto. Contrap.</B>');
|
||||
else {
|
||||
fileRpt.writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
||||
fileRpt.writeln('<B>N.Doc. Línea Fecha Centro Cuenta Cv. DEBE HABER C o n c e p t o F. Vto. Contrap.</B>');
|
||||
}
|
||||
fileRpt.writeln('<HR>');
|
||||
linea=" ";
|
||||
// c_traspaso = database.cursor("SELECT * FROM traspaso WHERE uid="+ request.uid+" ORDER BY nro_reg ");
|
||||
var nlin=1
|
||||
var nro_doc=NroUnformat(request.f_nro_doc);
|
||||
while (c_traspdocs.next()) {
|
||||
if (request.f_traspaso=="pago")
|
||||
c_traspaso = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
|
||||
" and nro_doc_pago='"+c_traspdocs.nro_doc_pago+"' "+
|
||||
" ORDER BY " + request.sel_order);
|
||||
if (request.f_traspaso=="gasto")
|
||||
c_traspaso = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
|
||||
" and nro_reg='"+c_traspdocs.nro_reg+"' "+
|
||||
" ORDER BY " + request.sel_order);
|
||||
if (request.f_traspaso=="vto")
|
||||
c_traspaso = database.cursor("SELECT * FROM facturas,proveedores WHERE facturas.nif=proveedores.nif "+
|
||||
" and nro_reg_vto='"+c_traspdocs.nro_reg_vto+"' "+
|
||||
" ORDER BY " + request.sel_order);
|
||||
while (c_traspaso.next()) {
|
||||
request.razon_social=c_traspaso.razon_social;
|
||||
if ( request.f_traspaso=="pago" && Clave == c_traspaso.nro_doc_pago )
|
||||
continue;
|
||||
if ( request.f_traspaso=="vto" && Clave == c_traspaso.nro_reg_vto )
|
||||
continue ;
|
||||
jusnum="";
|
||||
nrolin=1;
|
||||
if (request.f_traspaso!="vto")
|
||||
CursorTabla("acf","nro_reg","=\'"+c_traspaso.nro_reg+"\' order by nro_lin ",false,"");
|
||||
if (request.f_traspaso=="gasto") {
|
||||
fileRpt.writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
||||
while (c_aptectasfra.next()) {
|
||||
make_apte(nro_doc,"",StringClip(false,c_traspaso.cta_contable),"",nrolin,0,jusnum,c_aptectasfra.tipoapte);
|
||||
// if ( nrolin+1 > request.maxLins ) {
|
||||
// skipTopPage(nrolin,request.maxLins);
|
||||
// nrolin=0;
|
||||
// }
|
||||
if (c_aptectasfra.tipoapte != "I1" ||
|
||||
c_aptectasfra.tipoapte != "I2" ||
|
||||
c_aptectasfra.tipoapte != "I3" )
|
||||
fileData.writeln(request.linea);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
nrolin++;
|
||||
if ( jusnum == "" )
|
||||
jusnum="0";
|
||||
}
|
||||
fileRpt.writeln('</TABLE>');
|
||||
} else {
|
||||
if (request.f_traspaso!="vto")
|
||||
c_aptectasfra.next();
|
||||
// fileRpt.writeln('<TABLE ALIGN="CENTER" BORDER=0>');
|
||||
if (request.f_traspaso=="pago")
|
||||
CursorTabla("fa","nro_doc_pago","=\'"+c_traspaso.nro_doc_pago+"\'",true,"");
|
||||
if (request.f_traspaso=="vto")
|
||||
CursorTabla("fa","nro_reg_vto","=\'"+c_traspaso.nro_reg_vto+"\'",true,"");
|
||||
SumaTotal=0;
|
||||
request.cta_contable=c_traspaso.cta_contable;
|
||||
request.f_emision_pago=datetoString(c_traspaso.f_emision_pago);
|
||||
request.is_remesa ="N";
|
||||
while ( true ) {
|
||||
request.nro_reg=c_facturas.nro_reg;
|
||||
request.nro_fra=c_facturas.nro_fra;
|
||||
request.nro_doc_pago=c_facturas.nro_doc_pago;
|
||||
request.importe_total=c_facturas.importe_total;
|
||||
if ( c_traspaso.nro_doc_pago != c_facturas.nro_doc_pago )
|
||||
request.is_remesa ="S";
|
||||
if (request.f_traspaso=="pago") {
|
||||
traspaso_pago(nro_doc,nrolin,"D");
|
||||
if (c_facturas.tipo_doc_pago == "1" ) {
|
||||
fileData.writeln(request.linea);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
nrolin++;
|
||||
traspaso_pago(nro_doc,nrolin,"H");
|
||||
Clave=c_traspaso.nro_doc_pago;
|
||||
}
|
||||
}
|
||||
if (request.f_traspaso=="vto")
|
||||
traspaso_vto(nro_doc,nrolin,"D");
|
||||
fileData.writeln(request.linea);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
nrolin++;
|
||||
SumaTotal=parseFloat(c_facturas.importe_total)+parseFloat(SumaTotal);
|
||||
if (!c_facturas.next())
|
||||
break;
|
||||
}
|
||||
c_facturas.close();
|
||||
request.nro_reg=c_traspaso.nro_reg;
|
||||
request.nro_fra=c_traspaso.nro_fra;
|
||||
request.nro_doc_pago=c_traspaso.nro_doc_pago;
|
||||
request.importe_total=SumaTotal;
|
||||
if (request.f_traspaso=="pago" && c_traspaso.tipo_doc_pago == "2" ) {
|
||||
traspaso_pago(nro_doc,nrolin,"H");
|
||||
Clave=c_traspaso.nro_doc_pago;
|
||||
fileData.writeln(request.linea);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
nrolin++;
|
||||
}
|
||||
if (request.f_traspaso=="vto") {
|
||||
traspaso_vto(nro_doc,nrolin,"H");
|
||||
Clave=c_traspaso.nro_reg_vto;
|
||||
fileData.writeln(request.linea);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
nrolin++;
|
||||
}
|
||||
// fileRpt.writeln('</TABLE>');
|
||||
}
|
||||
if (request.f_traspaso!="vto")
|
||||
c_aptectasfra.close();
|
||||
fileRpt.writeln('<HR>');
|
||||
nro_doc++;
|
||||
}
|
||||
c_traspaso.close();
|
||||
}
|
||||
c_traspdocs.close();
|
||||
fileRpt.writeln('</TABLE>');
|
||||
request.lindoc="TOTALES DEBE : "+NroFormat(SumaDebe,NF11);
|
||||
// request.lindoc=request.lindoc.substring(0,46)+NroFormat(SumaDebe,NF11)+NroFormat(SumaHaber,NF11)+""
|
||||
fileRpt.writeln(request.lindoc);
|
||||
request.lindoc="TOTALES HABER: "+NroFormat(SumaHaber,NF11);
|
||||
fileRpt.writeln(request.lindoc);
|
||||
fileRpt.writeln('<PRE>');
|
||||
fileRpt.writeln('</FONT>');
|
||||
fileRpt.writeln('</BODY>');
|
||||
fileRpt.writeln('</HTML>');
|
||||
fileRpt.close();
|
||||
fileData.close();
|
||||
}
|
||||
function traspaso_pago(nro_doc,nrolin,tipoApte) {
|
||||
var DocNro="";
|
||||
var s_cta="";
|
||||
s_banco=parseInt(c_traspaso.cod_banco)+"";
|
||||
lon=s_banco.length;
|
||||
request.d_cod_cta=request.cta_contable;
|
||||
if (c_traspaso.tipo_doc_pago == "1" )
|
||||
s_cta=request.pag_hpag;
|
||||
if (c_traspaso.tipo_doc_pago == "2" )
|
||||
s_cta=request.pag_htal;
|
||||
s_lon=s_cta.length;
|
||||
request.h_cod_cta=s_cta.substring(0,s_lon-lon)+s_banco;
|
||||
s_lon=request.d_cod_cta.length;
|
||||
if ( tipoApte == "H") {
|
||||
DocNro=StringClip(false,request.nro_doc_pago)+"";
|
||||
make_apte(nro_doc,request.h_cod_cta,request.d_cod_cta,"H",nrolin,request.importe_total,DocNro,jusnum,"");
|
||||
}
|
||||
if ( tipoApte == "D") {
|
||||
DocNro=StringClip(false,request.nro_fra)+" "+request.nro_reg.substring(4,10);
|
||||
make_apte(nro_doc,request.d_cod_cta,request.h_cod_cta,"D",nrolin,request.importe_total,DocNro,jusnum,"");
|
||||
}
|
||||
}
|
||||
|
||||
function traspaso_vto(nro_doc,nrolin,tipoApte) {
|
||||
var DocNro="";
|
||||
var s_cta="";
|
||||
s_banco=parseInt(c_traspaso.cod_banco)+"";
|
||||
lon=s_banco.length;
|
||||
if (c_traspaso.tipo_doc_pago == "1" )
|
||||
s_cta=request.vto_dpag;
|
||||
if (c_traspaso.tipo_doc_pago == "2" )
|
||||
s_cta=request.vto_dtal;
|
||||
s_lon=s_cta.length;
|
||||
request.d_cod_cta=s_cta.substring(0,s_lon-lon)+s_banco;
|
||||
s_lon=request.vto_h.length;
|
||||
request.h_cod_cta=request.vto_h.substring(0,s_lon-lon)+s_banco;
|
||||
DocNro=StringClip(false,request.nro_doc_pago);
|
||||
if ( tipoApte == "H") {
|
||||
DocNro=StringClip(false,request.nro_doc_pago);
|
||||
if ( request.is_remesa == "S" ) {
|
||||
lon=c_traspaso.nro_reg_vto.length;
|
||||
request.razon_social="REMESA "+c_traspaso.nro_reg_vto.substring(5,lon);
|
||||
}
|
||||
make_apte(nro_doc,request.h_cod_cta,request.d_cod_cta,"H",nrolin,request.importe_total,DocNro,jusnum,"");
|
||||
}
|
||||
if ( tipoApte == "D") {
|
||||
if ( request.is_remesa == "S" ) {
|
||||
CursorTabla("pr","nif","=\'"+StringClip(true,c_facturas.nif)+"\'",false,false);
|
||||
request.razon_social=StringClip(false,c_proveedores.razon_social);
|
||||
c_proveedores.close();
|
||||
}
|
||||
make_apte(nro_doc,request.d_cod_cta,request.h_cod_cta,"D",nrolin,request.importe_total,DocNro,jusnum,"");
|
||||
DocNro=StringClip(false,request.nro_fra)+" "+request.nro_reg.substring(4,10);
|
||||
}
|
||||
}
|
||||
function make_apte(nro_doc,cod_cta,c_cod_cta,tipo_apte,nl,Cantidad,DocNro,jusnum,tipoapte) {
|
||||
make_lindoc(nro_doc,cod_cta,c_cod_cta,tipo_apte,nl,Cantidad,DocNro,jusnum,tipoapte);
|
||||
if (tipoapte != "I1" || tipoapte != "I2" || tipoapte != "I3" )
|
||||
make_linea(nro_doc,cod_cta,c_cod_cta,tipo_apte,nl,Cantidad,DocNro,jusnum,tipoapte);
|
||||
}
|
||||
function make_lindoc(nro_doc,cod_cta,c_cod_cta,tipo_apte,nl,Cantidad,DocNro,jusnum,tipoapte) {
|
||||
linea=" ";
|
||||
request.lindoc="";
|
||||
// cadena=parseInt(nro_doc)+"";
|
||||
cadDoc="";
|
||||
if ( c_traspaso.tipo_doc_pago == "1" )
|
||||
cadDoc="P/";
|
||||
if ( c_traspaso.tipo_doc_pago == "2" )
|
||||
cadDoc="T/";
|
||||
if (request.f_traspaso=="gasto") {
|
||||
cadena=StringClip(false,c_aptectasfra.concepto);
|
||||
}
|
||||
// Una "P" delante del nro_doc ahora DocNro
|
||||
request.lindoc=cadDoc+DocNro+" ";
|
||||
cadena=parseInt(nl)+"";
|
||||
request.lindoc=request.lindoc+cadena;
|
||||
// Fecha de documento
|
||||
s_fechadoc=request.f_emision;
|
||||
if (request.f_traspaso=="pago")
|
||||
s_fechadoc=request.f_emision_pago;
|
||||
cadena=datetoNString(s_fechadoc);
|
||||
lon=cadena.length;
|
||||
request.lindoc=request.lindoc+" "+s_fechadoc;
|
||||
s_fechadoc=cadena;
|
||||
// Cod. Centro para el listado
|
||||
cadena=StringClip(false,c_traspaso.cod_centro);
|
||||
request.lindoc=request.lindoc+" "+cadena;
|
||||
// Cod. Cta.
|
||||
if (request.f_traspaso=="gasto")
|
||||
s_cta=StringClip(false,c_aptectasfra.cod_cta);
|
||||
if (request.f_traspaso=="pago")
|
||||
s_cta=StringClip(false,cod_cta)+"";
|
||||
if (request.f_traspaso=="vto")
|
||||
s_cta=StringClip(false,cod_cta)+"";
|
||||
request.lindoc=request.lindoc+" "+s_cta;
|
||||
lon=s_cta.length;
|
||||
// Clave
|
||||
if (request.f_traspaso=="gasto")
|
||||
cadena=c_aptectasfra.clave+"";
|
||||
if (request.f_traspaso=="pago")
|
||||
cadena=request.f_clave+"";
|
||||
if (request.f_traspaso=="vto")
|
||||
cadena=request.f_clave+"";
|
||||
request.lindoc=request.lindoc+" "+cadena;
|
||||
clave=cadena;
|
||||
// Importe
|
||||
if (request.f_traspaso=="gasto") {
|
||||
nro=c_aptectasfra.importe;
|
||||
tipo_apte=c_aptectasfra.tipo_apte;
|
||||
} else {
|
||||
nro=Cantidad;
|
||||
}
|
||||
if ( nro < 0 ) {
|
||||
nro=nro*-1;
|
||||
if (request.f_traspaso=="pago" && tipo_apte == "D")
|
||||
cadDoc="";
|
||||
if ( tipo_apte == "D" )
|
||||
tipo_apte="H";
|
||||
else
|
||||
tipo_apte="D";
|
||||
}
|
||||
if (tipo_apte == "H") {
|
||||
SumaHaber=SumaHaber+nro;
|
||||
request.lindoc=request.lindoc+" "+NroFormat(nro,NF9)+" ";
|
||||
} else {
|
||||
SumaDebe=SumaDebe+nro;
|
||||
request.lindoc=request.lindoc+" "+NroFormat(nro,NF9)+" ";
|
||||
};
|
||||
cadena=NroUnformat(NroFormat(nro,NF9))+"";
|
||||
// Concepto para el listado
|
||||
if (request.f_traspaso=="gasto") {
|
||||
cadena=StringClip(false,c_aptectasfra.concepto);
|
||||
}
|
||||
if (request.f_traspaso=="pago" && tipo_apte == "H")
|
||||
cadena=cadDoc+DocNro+" "+StringClip(false,request.razon_social);
|
||||
if (request.f_traspaso=="pago" && tipo_apte == "D") {
|
||||
cadena=DocNro+StringClip(false,request.razon_social);
|
||||
}
|
||||
if (request.f_traspaso=="vto" && tipo_apte == "D")
|
||||
cadena=cadDoc+DocNro+" "+StringClip(false,request.razon_social);
|
||||
if (request.f_traspaso=="vto" && tipo_apte == "H") {
|
||||
if ( request.is_remesa == "S" )
|
||||
cadena=StringClip(false,request.razon_social);
|
||||
else
|
||||
cadena=cadDoc+DocNro+" "+StringClip(false,request.razon_social);
|
||||
}
|
||||
lon=30; // lon=cadena.length;
|
||||
s_cadena=cadena+linea;
|
||||
request.lindoc=request.lindoc+" "+s_cadena.substring(0,lon);
|
||||
// Vto.
|
||||
if (request.f_traspaso=="gasto") {
|
||||
s_cadena=" ";
|
||||
cadena=s_cadena;
|
||||
}
|
||||
else {
|
||||
s_cadena=datetoString(c_traspaso.vto_pago);
|
||||
cadena=datetoNString(s_cadena);
|
||||
}
|
||||
request.lindoc=request.lindoc+" "+s_cadena;
|
||||
lon=cadena.length;
|
||||
// Contrapartida para el listado
|
||||
cadena=StringClip(false,c_cod_cta);
|
||||
lon=cadena.length;
|
||||
request.lindoc=request.lindoc+" "+cadena;
|
||||
}
|
||||
function make_linea(nro_doc,cod_cta,c_cod_cta,tipo_apte,nl,Cantidad,DocNro,jusnum,tipoapte) {
|
||||
linea=" ";
|
||||
carsep="|";
|
||||
request.linea="";
|
||||
// apteid, asient, diario, moneda, cambio
|
||||
request.linea="0"+carsep+"DG"+carsep+"PTA"+carsep+"1.0"+carsep;
|
||||
cadena=StringClip(false,c_traspaso.cod_centro);
|
||||
// centro de coste, seccion, juser
|
||||
request.linea=request.linea+cadena+carsep+"A"+carsep+"A"+carsep+jusnum+carsep;
|
||||
request.linea=request.linea+"P"+carsep;
|
||||
cadDoc="";
|
||||
if ( c_traspaso.tipo_doc_pago == "1" )
|
||||
cadDoc="P/";
|
||||
if ( c_traspaso.tipo_doc_pago == "2" )
|
||||
cadDoc="T/";
|
||||
if (request.f_traspaso=="gasto") {
|
||||
cadena=StringClip(false,c_aptectasfra.concepto);
|
||||
}
|
||||
request.linea=request.linea+cadDoc+DocNro+carsep;
|
||||
// Fecha de documento
|
||||
s_fechadoc=request.f_emision;
|
||||
if (request.f_traspaso=="pago")
|
||||
s_fechadoc=request.f_emision_pago;
|
||||
cadena=datetoNString(s_fechadoc);
|
||||
lon=cadena.length;
|
||||
request.linea=request.linea+cadena+carsep;
|
||||
s_fechadoc=cadena;
|
||||
// Cod. Cta.
|
||||
if (request.f_traspaso=="gasto")
|
||||
s_cta=StringClip(false,c_aptectasfra.cod_cta);
|
||||
if (request.f_traspaso=="pago")
|
||||
s_cta=StringClip(false,cod_cta)+"";
|
||||
if (request.f_traspaso=="vto")
|
||||
s_cta=StringClip(false,cod_cta)+"";
|
||||
lon=s_cta.length;
|
||||
request.linea=request.linea+s_cta.substring(0,3)+"."+s_cta.substring(4,lon)+carsep+carsep;
|
||||
// Concepto
|
||||
if ( c_traspaso.tipo_doc_pago == "1" )
|
||||
cadDoc="P/";
|
||||
if ( c_traspaso.tipo_doc_pago == "2" )
|
||||
cadDoc="T/";
|
||||
if (request.f_traspaso=="gasto") {
|
||||
cadena=StringClip(false,c_aptectasfra.concepto);
|
||||
}
|
||||
if (request.f_traspaso=="pago" && tipo_apte == "H")
|
||||
cadena=cadDoc+DocNro+" "+StringClip(false,request.razon_social);
|
||||
if (request.f_traspaso=="pago" && tipo_apte == "D") {
|
||||
cadena=DocNro+StringClip(false,request.razon_social);
|
||||
}
|
||||
if (request.f_traspaso=="vto" && tipo_apte == "D")
|
||||
cadena=cadDoc+DocNro+" "+StringClip(false,request.razon_social);
|
||||
if (request.f_traspaso=="vto" && tipo_apte == "H") {
|
||||
if ( request.is_remesa == "S" )
|
||||
cadena=StringClip(false,request.razon_social);
|
||||
else
|
||||
cadena=cadDoc+DocNro+" "+StringClip(false,request.razon_social);
|
||||
}
|
||||
request.linea=request.linea+cadena+carsep;
|
||||
// Importe
|
||||
if (request.f_traspaso=="gasto") {
|
||||
nro=c_aptectasfra.importe;
|
||||
tipo_apte=c_aptectasfra.tipo_apte;
|
||||
} else {
|
||||
nro=Cantidad;
|
||||
}
|
||||
cadena=NroUnformat(NroFormat(nro,NF9))+"";
|
||||
if ( tipo_apte == "D" )
|
||||
request.linea=request.linea+cadena+carsep+carsep;
|
||||
if ( tipo_apte == "H" )
|
||||
request.linea=request.linea+carsep+cadena+carsep;
|
||||
// Contrapartida nula aptes. en tabla
|
||||
request.linea=request.linea+carsep;
|
||||
// Fecha valor, sistem
|
||||
request.linea=request.linea+s_fechadoc+carsep+"A"+carsep+"0"+carsep+"0"+carsep;
|
||||
// Tipo documento
|
||||
if ( s_cta.substring(0,1) == "2" )
|
||||
request.linea=request.linea+"I"+carsep;
|
||||
else
|
||||
request.linea=request.linea+"R"+carsep+"N"+carsep;
|
||||
// Código de Tercero cta_contable
|
||||
request.linea=request.linea+c_traspaso.cta_contable+carsep;
|
||||
tipIVA="";
|
||||
if (tipoapte == "P1"){
|
||||
if ( c_traspaso.iva_1 == "16")
|
||||
tipIVA="RE"
|
||||
request.linea=request.linea+tipIVA+carsep+"1"+carsep;
|
||||
}
|
||||
if (tipoapte == "P2"){
|
||||
if ( c_traspaso.iva_2 == "7" )
|
||||
tipIVA="OR"
|
||||
request.linea=request.linea+tipIVA+carsep+"1"+carsep;
|
||||
}
|
||||
if (tipoapte == "P3"){
|
||||
if ( c_traspaso.iva_3 == "4" )
|
||||
tipIVA="SR"
|
||||
request.linea=request.linea+tipIVA+carsep+"1"+carsep;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
if (request.f_traspaso=="gasto")
|
||||
cadena=c_aptectasfra.clave+"";
|
||||
if (request.f_traspaso=="pago")
|
||||
cadena=request.f_clave+"";
|
||||
if (request.f_traspaso=="vto")
|
||||
cadena=request.f_clave+"";
|
||||
|
||||
// Vto.
|
||||
if (request.f_traspaso=="gasto") {
|
||||
s_cadena=" ";
|
||||
cadena=s_cadena;
|
||||
}
|
||||
else {
|
||||
s_cadena=datetoString(c_traspaso.vto_pago);
|
||||
cadena=datetoNString(s_cadena);
|
||||
}
|
||||
lon=cadena.length;
|
||||
request.linea=request.linea+cadena+linea;
|
||||
// Contrapartida para el listado
|
||||
cadena=StringClip(false,c_cod_cta);
|
||||
lon=cadena.length;
|
||||
request.linea=request.linea+cadena;
|
||||
//texto="p_contracta="+p_contracta+" lon="+lon+" c_cod_cta="+c_cod_cta
|
||||
//debug(texto)
|
||||
//debug(request.linea)
|
||||
//debug(request.linea)
|
||||
}
|
||||
335
nroletra.js
Normal file
335
nroletra.js
Normal file
@ -0,0 +1,335 @@
|
||||
// //
|
||||
// JavaScript Functions //
|
||||
// //
|
||||
//////////////////////////////////////
|
||||
// Función para convertir un nro. en letra
|
||||
//
|
||||
// La llamada a esta función es del modo siguiente:
|
||||
//
|
||||
// nro_letra(nro, cod_len, cod_gen, cod_mon, car_pad, lon_l1, lon_l2)
|
||||
// return num_let
|
||||
//
|
||||
// (*) nro es el float que contiene el nro. a transcribir.
|
||||
// (*) cod_len es el código de la lengua en la que se transcribe nro
|
||||
// (3 dígitos) ej: "spa" para nuestra lengua.
|
||||
// (*) cod_gen es el género "m" masculino o "f" femenino.
|
||||
// cod_mon es el código de la moneda ( 4 dígitos). [ej: "pts"]
|
||||
// car_pad es el caracter que se usa para relleno ( caso de cheques)
|
||||
// lon_l1 es la longitud de la primera cadena de caracteres que se
|
||||
// concatena con la segunda en una para el return
|
||||
// lon_l2 es la longitud de la segunda cadena que se prepara para
|
||||
// el programa que llama a este módulo
|
||||
// num_let es la cadena que se manipula y devuelve con el texto del
|
||||
// nro transcrito y las manipulaciones solicitadas por el
|
||||
// resto de los argumentos.
|
||||
//
|
||||
|
||||
function nro_letra(nro_i, cod_len, cod_gen, cod_mon, car_pad, lon_l1, lon_l2) {
|
||||
// var nro_i=0; // Nro. a escribir
|
||||
// var cod_len=""; // Código de lengua
|
||||
// var cod_gen=""; // Código ( m / f) género para cientos
|
||||
// var cod_mon=""; // Código de moneda
|
||||
// var car_pad=""; // Caracter para usar de relleno
|
||||
// var lon_l1=0; // Long de la línea uno
|
||||
// var lon_l2=0; // Long de la línea dos
|
||||
var nro_let="";
|
||||
var nro=parseFloat(nro_i);
|
||||
//car_pad="*"
|
||||
//lon_l1=80
|
||||
//cod_len="spa"
|
||||
//cod_gen="m"
|
||||
tx_cent="";
|
||||
tx_dece="";
|
||||
tx_und="";
|
||||
tx_mll="";
|
||||
txletmll="";
|
||||
txletmil="";
|
||||
if ( nro+0 == 0 ) {
|
||||
return false;
|
||||
}
|
||||
var s_nro=nro+"";
|
||||
var lonNro=s_nro.length;
|
||||
var pos=s_nro.indexOf(car_dec);
|
||||
// if (pos == -1) {
|
||||
// var s_entera=s_nro;
|
||||
// var s_decimal="0";
|
||||
// } else {
|
||||
// var s_entera = s_nro.substring(0,pos);
|
||||
// var s_decimal = s_nro.substring(pos+1,longNro);
|
||||
// }
|
||||
//debug(s_entera);
|
||||
// if ( parseInt(s_entera) > 0 )
|
||||
analiza_num(s_nro,cod_mon,car_pad, lon_l1, lon_l2); // Análisis nro y trad.
|
||||
// if ( parseInt(s_decimal) > 0 && pos > 0 ) {
|
||||
// nro_let=num_let;
|
||||
// analiza_num(s_decimal); // Análisis del nro y trad.
|
||||
// num_let=nro_let+" con "+num_let;
|
||||
// }
|
||||
if (num_let.length == 0 ) { return "" }
|
||||
// num_let=num_let+cod_mon; // pone moneda y mayuscula
|
||||
return true
|
||||
}
|
||||
|
||||
function analiza_num(s_num,cod_mon,car_pad, lon_l1, lon_l2) {
|
||||
var nro_let="";
|
||||
var s_nro="";
|
||||
var s_numero=s_num+"";
|
||||
var lonNro=s_numero.length;
|
||||
if ( lonNro < 3 ) {
|
||||
parseCent(s_numero,1,1);
|
||||
num_let=tx_cent+" "+tx_dece+tx_und+" ";
|
||||
return;
|
||||
}
|
||||
var n_centenas=parseInt(lonNro/3);
|
||||
var n_ope=n_centenas*3;
|
||||
var n_ini=0;
|
||||
if (n_centenas == 0 )
|
||||
n_centenas=1;
|
||||
if ( n_ope < lonNro ) {
|
||||
n_centenas++;
|
||||
n_fin=lonNro-n_ope;
|
||||
} else
|
||||
n_fin=n_ini+3;
|
||||
for ( var i=0; i < n_centenas ; i++ ) {
|
||||
s_nro=s_numero.substring(n_ini,n_fin);
|
||||
parseCent(s_nro,n_centenas,n_centenas-i);
|
||||
if ( n_centenas-i == 2 && s_nro != "000")
|
||||
txletmil=" "+let_mil;
|
||||
else
|
||||
txletmil="";
|
||||
nro_let=nro_let+" "+tx_cent+" "+tx_dece+tx_und+txletmil;
|
||||
if (parseInt(s_nro) > 0 ) {
|
||||
parseMil(n_centenas-i,s_nro)
|
||||
if (s_nro == "1" )
|
||||
nro_let=let_un+" "+txletmll;
|
||||
else {
|
||||
nro_let=nro_let+" "+txletmll;
|
||||
}
|
||||
}
|
||||
n_ini=n_fin;
|
||||
n_fin=n_ini+3;
|
||||
}
|
||||
num_let=nro_let+" ";
|
||||
num_let=num_let+" "+cod_mon;
|
||||
nro_let=num_let;
|
||||
num_let=num_let+linPad;
|
||||
num_let2=linPad;
|
||||
lonNro=nro_let.length;
|
||||
if ( lonNro > LongLine) {
|
||||
var pos=LongLine;
|
||||
while (pos > 0) {
|
||||
var s_char=nro_let.substring(pos-1,pos)
|
||||
if ( s_char == " " )
|
||||
break;
|
||||
pos--;
|
||||
}
|
||||
if ( pos > 0 ) {
|
||||
num_let=nro_let.substring(0,pos)+linPad;
|
||||
num_let2=nro_let.substring(pos,lonNro)+linPad;
|
||||
}
|
||||
}
|
||||
num_let=num_let.substring(0,lon_l1);
|
||||
num_let2=num_let2.substring(0,lon_l2);
|
||||
return;
|
||||
}
|
||||
|
||||
function parseCent(s_nro,n_cents,p_cents) {
|
||||
var nro_flt=parseFloat(s_nro);
|
||||
var cad_nro = nro_flt+"";
|
||||
var lon = cad_nro.length;
|
||||
var cadena="";
|
||||
var n_c=0;
|
||||
tx_cent="";
|
||||
tx_dece="";
|
||||
tx_und="";
|
||||
if (cad_nro == "000" ) return
|
||||
if (cad_nro == "100" ) {
|
||||
tx_cent = mat_ce_1;
|
||||
return
|
||||
}
|
||||
if ( lon == 3 ) { // Centenas
|
||||
var n_c=cad_nro.substring(0,1);
|
||||
var n_d=cad_nro.substring(1,2);
|
||||
var n_u=cad_nro.substring(2,3);
|
||||
}
|
||||
if ( lon == 2 ) { // Decenas
|
||||
var n_c="0";
|
||||
var n_d=cad_nro.substring(0,1);
|
||||
var n_u=cad_nro.substring(1,2);
|
||||
}
|
||||
if ( lon == 1 ) { // Unidades
|
||||
var n_c="0";
|
||||
var n_d="0";
|
||||
var n_u=cad_nro.substring(0,1);
|
||||
}
|
||||
if ( n_c > 0 ) {
|
||||
eval("tx_cent = mat_ce_"+n_c);
|
||||
if ( n_c > 1 && n_c != 5 )
|
||||
tx_cent= tx_cent+let_ciens
|
||||
}
|
||||
if ( n_c == 1 ) { tx_cent = tx_cent+let_plus100; };
|
||||
if ( n_d > 0 ) {
|
||||
if ( n_d == 1 && n_u > 0 )
|
||||
eval("tx_dece=mat_ud_"+n_u);
|
||||
if ( n_d == 1 && n_u == 0 )
|
||||
eval("tx_dece=mat_de_"+1);
|
||||
if ( n_d == 2 ) {
|
||||
eval("tx_dece=mat_de_"+n_d);
|
||||
if ( n_u > 0 )
|
||||
tx_dece=tx_dece+"I";
|
||||
}
|
||||
if ( n_d > 2 ) {
|
||||
eval("tx_dece=mat_de_"+n_d);
|
||||
if ( n_u > 0 )
|
||||
tx_dece=tx_dece+" Y ";
|
||||
}
|
||||
}
|
||||
if ( n_d == 2 && n_u == 0 ) { tx_dece=tx_dece+"E" }
|
||||
if ( s_nro.length == 1 && n_d == 0 )
|
||||
eval("tx_und=mat_un_"+n_u);
|
||||
if ( parseInt(s_nro) != 1 ) {
|
||||
if ( p_cents%2 != 0 && p_cents != 1 && n_d != 1 && n_u == 1 ) { tx_dece=tx_dece+"UN" }
|
||||
if ( p_cents%2 == 0 && p_cents != 1 && n_d != 1 ) { eval("tx_und=mat_un_"+n_u) }
|
||||
// if ( p_cents == 1 ) { eval("tx_und=mat_un_"+n_u) }
|
||||
if ( s_nro.length > 1 && n_d != 1 )
|
||||
eval("tx_und=mat_un_"+n_u)
|
||||
} else {
|
||||
if ( p_cents == 1 ) { eval("tx_und=mat_un_"+n_u) }
|
||||
// if ( p_cents > 1 && nd != 1 ) { tx_und=let_un }
|
||||
}
|
||||
// nro_let=num_let+tx_cent+" "+tx_dece+tx_und+txletmil;
|
||||
//lin=" Ce: "+n_c+" De: "+n_d+" Un: "+n_u+" Nro: "+cad_nro
|
||||
//debug(lin)
|
||||
//debug(nro_let)
|
||||
}
|
||||
function parseMil(cen,s_nro) {
|
||||
tx_mll="";
|
||||
txletmll=""
|
||||
if ( cen < 2 ) {
|
||||
return "";
|
||||
}
|
||||
if ( cen%2 == 0 ) {
|
||||
if ( s_nro != "000" ) {
|
||||
return ""; // let_mil;
|
||||
}
|
||||
}
|
||||
// Los millones y más ... too much !!!
|
||||
if ( cen == 3 )
|
||||
tx_mll=mat_mll_1;
|
||||
if ( cen == 5 )
|
||||
tx_mll=mat_mll_2;
|
||||
if ( cen == 7 )
|
||||
tx_mll=mat_mll_3;
|
||||
if ( cen == 9 )
|
||||
tx_mll=mat_mll_4;
|
||||
if ( cen == 11 )
|
||||
tx_mll=mat_mll_5;
|
||||
if ( cen == 13 )
|
||||
tx_mll=mat_mll_6;
|
||||
if ( cen == 15 )
|
||||
tx_mll=mat_mll_7;
|
||||
if ( cen == 17 )
|
||||
tx_mll=mat_mll_8;
|
||||
if ( cen == 19 )
|
||||
tx_mll=mat_mll_9;
|
||||
var lonNro=s_nro.length;
|
||||
if ( parseInt(s_nro) == 1 ) {
|
||||
txletmll=tx_mll+let_mill;
|
||||
// return ""; // let_un; // +" "+tx_mll+let_mill;
|
||||
} else {
|
||||
txletmll=tx_mll+let_mills;
|
||||
// return ""; //tx_mll+let_mills;
|
||||
}
|
||||
return "";
|
||||
}
|
||||
function preparamat(cod_len,cod_gen) {
|
||||
if ( cod_gen == "f" )
|
||||
let_fin="as"
|
||||
else if ( cod_gen == "m" )
|
||||
let_fin="os"
|
||||
else if (cod_gen != "f" || cod_gen != "m") {
|
||||
alert (" Genero : "+cod_gen+" de la lengua : "+cod_len+" Desconocido");
|
||||
return false;
|
||||
}
|
||||
if ( cod_len == "spa" ) {
|
||||
mat_un_0="";
|
||||
if (cod_gen=="m")
|
||||
mat_un_1="UNO";
|
||||
else
|
||||
mat_un_1="UNA";
|
||||
mat_un_2="DOS";
|
||||
mat_un_3="TRES";
|
||||
mat_un_4="CUATRO";
|
||||
mat_un_5="CINCO";
|
||||
mat_un_6="SEIS";
|
||||
mat_un_7="SIETE";
|
||||
mat_un_8="OCHO";
|
||||
mat_un_9="NUEVE";
|
||||
|
||||
mat_ud_0="";
|
||||
mat_ud_1="ONCE";
|
||||
mat_ud_2="DOCE";
|
||||
mat_ud_3="TRECE";
|
||||
mat_ud_4="CATORCE";
|
||||
mat_ud_5="QUINCE";
|
||||
mat_ud_6="DIECISEIS";
|
||||
mat_ud_7="DIECISIETE";
|
||||
mat_ud_8="DIECIOCHO";
|
||||
mat_ud_9="DIECINUEVE";
|
||||
|
||||
mat_de_1="DIEZ";
|
||||
mat_de_2="VEINT";
|
||||
mat_de_3="TREINTA";
|
||||
mat_de_4="CUARENTA";
|
||||
mat_de_5="CINCUENTA";
|
||||
mat_de_6="SESENTA";
|
||||
mat_de_7="SETENTA";
|
||||
mat_de_8="OCHENTA";
|
||||
mat_de_9="NOVENTA";
|
||||
|
||||
if (cod_gen=="m")
|
||||
let_ciens="CENTOS";
|
||||
else
|
||||
let_ciens="CIENTAS";
|
||||
|
||||
let_plus100="TO";
|
||||
mat_ce_1="CIEN";
|
||||
mat_ce_2="DOS";
|
||||
mat_ce_3="TRES";
|
||||
mat_ce_4="CUATRO";
|
||||
if (cod_gen=="m")
|
||||
mat_ce_5="QUINIENTOS";
|
||||
else
|
||||
mat_ce_5="QUINIENTAS";
|
||||
mat_ce_6="SEIS";
|
||||
mat_ce_7="SETE";
|
||||
mat_ce_8="OCHO";
|
||||
mat_ce_9="NOVE";
|
||||
|
||||
let_un="UN";
|
||||
let_cien="CIEN";
|
||||
let_cient="CIENTO";
|
||||
let_mil ="MIL";
|
||||
let_mills="LLONES";
|
||||
let_mill="LLON";
|
||||
let_con="CON";
|
||||
car_dec=",";
|
||||
|
||||
mat_mll_1="MI";
|
||||
mat_mll_2="BI";
|
||||
mat_mll_3="TRI";
|
||||
mat_mll_4="CUATRI";
|
||||
mat_mll_5="QUINTI";
|
||||
mat_mll_6="SESTI";
|
||||
mat_mll_7="SEPTI";
|
||||
mat_mll_8="OCTI";
|
||||
mat_mll_9="NOVI";
|
||||
for ( var i=1; i < LongLine; i++ )
|
||||
linPad=linPad+CarPad;
|
||||
} else {
|
||||
alert(" Código de Lengua "+cod_len+" No definido !!");
|
||||
return false;
|
||||
}
|
||||
return true
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user