// // // 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(''); 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('
'); fileRpt.writeln(''); if ( request.fa_is_locked == "S" ) fileRpt.writeln('Bloqueada:'+request.fa_is_locked+''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); nrolin++; fileRpt.writeln('
Nro.Reg.: '); fileRpt.writeln(''+request.fa_nro_regn+'/'+request.fa_nro_regy+'
Contabilizado:'); fileRpt.writeln(''+request.fa_mes+'
Nro. Fra.:'); fileRpt.writeln(''+request.fa_nro_fra+'
N.I.F. '); fileRpt.writeln(''+request.fa_nif+''+request.fa_t_razon_social+''); nrolin++; fileRpt.writeln('
Centro'); fileRpt.writeln(''+request.fa_cod_centro+''+request.fa_t_des_centro+'
Pedido'); fileRpt.writeln(''+request.fa_nro_pedido+''+request.fa_t_des_pedido+'
C.Pago'); fileRpt.writeln(''+request.fa_cond_pago+''+request.fa_t_condpago+'
Fecha Emisión:'); fileRpt.writeln(''+request.fa_f_emision+'
Fecha Recepción:'); fileRpt.writeln(''+request.fa_f_recepcion+'Fecha Pago:'); fileRpt.writeln(''+request.fa_f_pago+'
Tipo de Factura:'); if (request.fa_tipo_fra=="1") fileRpt.writeln(' De Albarán Interno '); if (request.fa_tipo_fra=="2") fileRpt.writeln(' Devolución Retención '); if (request.fa_tipo_fra=="4") fileRpt.writeln(' Sin Albaranes '); nrolin++; fileRpt.writeln('
Retenciones:'); if (request.fa_tipo_retencion=="0") fileRpt.writeln(' Sin Retencion '); if (request.fa_tipo_retencion=="1") fileRpt.writeln(' I.R.P.F. '); if (request.fa_tipo_retencion=="2") fileRpt.writeln(' Por Garantía '); fileRpt.writeln('
Cálculo IVA:'); if (request.fa_tipo_calc_iva=="1") fileRpt.writeln(' Sobre Base '); else fileRpt.writeln(' Sobre Base - Retención '); fileRpt.writeln('
'); fileRpt.writeln('
'); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln('
Lin Base Imponible %Ret Imp. Ret %IVA Imp. IVA T O T A L
1.-'+request.fa_base_1+''+request.fa_por_ret1+''+request.fa_ret_1+''+request.fa_por_iva1+''+request.fa_iva_1+''+request.fa_Totaf_1+'
2.-'+request.fa_base_2+''+request.fa_por_ret2+''+request.fa_ret_2+''+request.fa_por_iva2+''+request.fa_iva_2+''+request.fa_Totaf_2+'
3.-'+request.fa_base_3+''+request.fa_por_ret3+''+request.fa_ret_3+''+request.fa_por_iva3+''+request.fa_iva_3+''+request.fa_Totaf_3+'
Ex.'+request.fa_canexen+'------------------------'+request.fa_Totex+'
Tot.'+request.fa_SumaBase+'---'+request.fa_SumaRet+'---'+request.fa_SumaIva+''+request.fa_SumaImporte+'
Ded:'+request.fa_tipo_deduccion+'------------------------'+request.fa_deducciones+'
Totales------------------------'+request.fa_importe_total+'
'); nrolin++; fileRpt.writeln('

Apuntes Contables

'); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); 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(""); // continue; // } lin++; if ( nrolin+1 > request.maxLins ) { skipTopPage(nrolin,request.maxLins); nrolin=0; } nrolin++; fileRpt.writeln(''); 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(''); if (c_aptectasfra.tipo_apte == "H") {SumaHaber=SumaHaber+nro} else {SumaDebe=SumaDebe+nro}; if (c_aptectasfra.tipo_apte == "H") {fileRpt.writeln('')}; fileRpt.writeln(''); if (c_aptectasfra.tipo_apte == "D") {fileRpt.writeln('')}; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(""); } // var acf_totalsaldo=NroFormat(SumaDebe-SumaHaber+" ",NF11); c_aptectasfra.close(); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln('
N. CuentaTítulo CuentaDebe Haber ClaveConcepto
'+c_aptectasfra.nro_lin+'') // var albareg=c_aptectasfra.albareg; fileRpt.writeln(''+c_aptectasfra.cod_cta+''+texto+'-'+NroFormat(c_aptectasfra.importe,NF9)+'-'+c_aptectasfra.clave+''+c_aptectasfra.concepto+'
--Totales ... '+NroFormat(SumaDebe+" ",NF11)+''+NroFormat(SumaHaber+" ",NF11)+'--
'); fileRpt.writeln(''); nrolin++; fileRpt.writeln('

Albaranes

'); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(' '); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); 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(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); } c_albafras.close() nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln('
N. Nro.Reg Suma Ctas.O b s e r v a c i o n e s
'); fileRpt.writeln(''+c_albafras.nroreg_albafact+''); fileRpt.writeln(''+c_albafras.nroreg_albaran+''+NroFormat(c_albafras.sumactas,NF9)+''+c_albafras.observaciones+'
Total:'+NroFormat(sumalbs,NF9)+'
'); // if (request.f_formato=="documento") { fileRpt.writeln('
'); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.close(); return nrolin; // } nrolin++; fileRpt.writeln('

Datos de Pago

'); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln('
Banco: '); fileRpt.writeln(''+request.fa_cod_banco+''+request.fa_t_nombre_banco+'
Localidad:'); fileRpt.writeln(''+request.fa_cod_localidad+'
Fecha Emisión:'); fileRpt.writeln(''+request.fa_f_emision_pago+'
Tipo Doc. Pago:'); if (request.fa_tipo_doc_pago=="1") fileRpt.writeln(' Pagaré '); if (request.fa_tipo_doc_pago=="2") fileRpt.writeln(' Talón '); if (request.fa_tipo_doc_pago=="3") fileRpt.writeln(' Compensación '); if (request.fa_tipo_doc_pago=="4") fileRpt.writeln(' Domiciliación '); fileRpt.writeln(''+request.fa_nro_doc_pago+'
Vencimiento:'); fileRpt.writeln(''+request.fa_vto_pago+'
'); fileRpt.writeln('

Notas

'); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); nrolin++; fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.writeln('
Observaciones:
Traspaso Contable:'+request.fa_traspaso_ctable+'
Traspaso de Pago:'); fileRpt.writeln(''+request.fa_traspaso_pago+'
Aptes.Pago'+request.fa_nro_reg_pago+'
Expediente:'+request.fa_expediente+'
'); fileRpt.writeln(''); fileRpt.writeln(''); fileRpt.close(); return nrolin; }