2035 lines
117 KiB
HTML
2035 lines
117 KiB
HTML
<TITLE>Factura</TITLE>
|
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
|
|
<HTML>
|
|
<HEAD>
|
|
|
|
<TITLE>facturas</TITLE>
|
|
<META NAME="GENERATOR" CONTENT="AdmiSys Sistemas informáticos">
|
|
<META NAME="Author" CONTENT="WebTeam">
|
|
<META NAME="Organization" CONTENT="AdmiSys S.L.">
|
|
<META NAME="Document description" CONTENT="Alta y Modificación de facturas Internos">
|
|
<META NAME="Last modified date" CONTENT="Thursday, February 06, 1997 07:33:31">
|
|
</HEAD>
|
|
<SCRIPT SRC="global.js">
|
|
</SCRIPT>
|
|
<SCRIPT SRC="ctasapagar.js">
|
|
</SCRIPT>
|
|
<SCRIPT SRC="factura.js">
|
|
</SCRIPT>
|
|
<SERVER>
|
|
// Variables para el Server
|
|
var HOY=new Date();
|
|
var entorno = new entObj(0);
|
|
// Algunos formatos para fechas.
|
|
var NLDF=""; // para columnas en las queries INFORMIX
|
|
var IFDF=""; // para columnas en SQL según DBDATE
|
|
// Algunos formatos para nros.
|
|
var NF2=""
|
|
var NF3=""
|
|
var NF4=""
|
|
var NF5=""
|
|
var NF6=""
|
|
var NF7=""
|
|
var NF8=""
|
|
var NF9=""
|
|
var NF10=""
|
|
var NF11=""
|
|
var NF12=""
|
|
var baseHtml="";
|
|
var whitespace="";
|
|
var nprinter="";
|
|
var spoolpath="";
|
|
var textoReqs="";
|
|
var PaperVLines=76// Nro. Lins. del Papel A4 Vertical FONT Default
|
|
var PaperHLines=52// Nro. Lins. del Papel A4 Horizontal FONT Default
|
|
dbAcl();
|
|
//if ((!request.waux && request.lock) || request.nvo )
|
|
LoadParametros();
|
|
writeln("<SCRIPT LANGUAGE='JavaScript'>");
|
|
//if ((!request.waux && request.lock) || request.nvo )
|
|
SetParametros();
|
|
writeln('var TipoCalculo="1"; ');
|
|
writeln('var TipoFra="1"; ');
|
|
writeln('var TipoReten="0";');
|
|
writeln('function MasLineas(obj) {');
|
|
writeln(' var nro=0;');
|
|
writeln(' if ( obj == "Alb" ) { ');
|
|
writeln(' nro=parseInt(document.f_factura.nrolineas.value);');
|
|
writeln(' document.f_factura.nrolineas.value=nro+1;');
|
|
writeln(' document.f_factura.action=document.f_factura.htmlBaseRef.value+"&cookie=1&lock=true&Alb=1"');
|
|
writeln(' if (Chek_fields(obj) == true ) ');
|
|
writeln(' document.f_factura.submit();');
|
|
writeln(' } ')
|
|
writeln(' if (obj == "Cta" ) { ');
|
|
writeln(' document.f_factura.action=document.f_factura.htmlBaseRef.value+"&cookie=1&lock=true&Act=1"');
|
|
writeln(' if (Chek_fields(obj) != true ) ');
|
|
writeln(' return;');
|
|
writeln(' nro=parseInt(document.f_factura.nroctas.value);');
|
|
writeln(' document.f_factura.nroctas.value=nro+1;');
|
|
writeln(' document.f_factura.submit();');
|
|
writeln(' } ');
|
|
writeln('} ');
|
|
writeln('function FormPaint(obj) {');
|
|
writeln(' document.f_factura.action=document.f_factura.htmlBaseRef.value+"&cookie=1&lock=true"');
|
|
writeln(' document.f_factura.submit();');
|
|
writeln(' } ');
|
|
writeln('function ParseNroAlb(obj) {');
|
|
writeln(' var lon=0; ');
|
|
writeln(' lon=obj.value.length; ');
|
|
writeln('// if (lon > 0 ) ');
|
|
writeln('// document.f_factura.AlineasMas.focus(); ');
|
|
writeln(' } ');
|
|
if ( request.FrameType == "F" || request.FrameType == "T" ) {
|
|
writeln('function RunFunction(obj,valor,clave,f_nro) {');
|
|
writeln(' var mainFrame=find_frame(top,"main");');
|
|
writeln(' var f_form=mainFrame.document.f_factura;');
|
|
writeln(' if ( obj == "Ayuda" ) {');
|
|
writeln(' NetHelp(valor);');
|
|
writeln(' }');
|
|
writeln(' history.back();');
|
|
writeln('}');
|
|
writeln('function WriteFrameButtons() {')
|
|
if (!request.waux) {
|
|
writeln(' var topFrame=find_frame(top,"top");');
|
|
writeln(' var ndoc=topFrame.document; ');
|
|
writeln(' var mainFrame=find_frame(top,"main");');
|
|
writeln(' var formAction=document.f_factura.htmlBaseRef.value;');
|
|
ObjButtons(request.fa_nro_reg,"Facturas","fa_");
|
|
}
|
|
writeln('}');
|
|
}
|
|
if ( request.ViewFkey == "S" ) {
|
|
writeln('function RePaint(obj) {');
|
|
writeln(' for ( var i=0; i < document.f_factura.length; i++ ) { ');
|
|
writeln(' if ( document.f_factura.elements[i].name == obj.name ) ');
|
|
writeln(' break; ');
|
|
writeln(' } ');
|
|
writeln(' document.f_factura.action=document.f_factura.htmlBaseRef.value+"&cookie=1&nro="+nl+"&lock=true"');
|
|
writeln(' document.f_factura.submit();');
|
|
writeln('} ');
|
|
}
|
|
else {
|
|
writeln('function ScrollVer(obj) {');
|
|
writeln(' status_scroll=true; ');
|
|
writeln(' MESSAGE=" ¡¡¡ La Factura ha cambiado usar el botón de \'Ver\' para "+ ');
|
|
writeln(' " actualizar los valores de la Base de Datos desde el Servidor !!! " ');
|
|
writeln(' scroll = new statusMessageObject(); ');
|
|
writeln(' scroller(); ');
|
|
writeln('} ');
|
|
writeln('function RePaint(obj) {');
|
|
writeln(' if (status_scroll != true ) ');
|
|
writeln(' ScrollVer(obj); ');
|
|
writeln('} ');
|
|
}
|
|
writeln('function Enfoca(obj) {')
|
|
writeln(' var nroctas=0; ');
|
|
writeln(' var nrolin=0; ');
|
|
writeln(' if (obj == "linCta" ) {');
|
|
writeln(' nroctas=parseInt(document.f_factura.nroctas.value); ');
|
|
writeln(' if ( nroctas > 0 ) ');
|
|
if (request.nvo || request.cookie)
|
|
writeln(' eval("document.f_factura.acf_"+nroctas+"_cod_cta.focus()");');
|
|
else
|
|
writeln(' document.f_factura.acf_1_cod_cta.focus();');
|
|
writeln(' }');
|
|
writeln(' if (obj == "linAlb" ) { ');
|
|
writeln(' nrolin=parseInt(document.f_factura.nrolineas.value);');
|
|
writeln(' if ( nrolin > 0 ) ');
|
|
if (request.nvo || request.cookie)
|
|
writeln(' eval("document.f_factura.af_"+nrolin+"_nroreg_albaran.focus()");');
|
|
else
|
|
writeln(' document.f_factura.af_1_nroreg_albaran.focus();');
|
|
if ( request.nro ) {
|
|
writeln(' document.f_factura.elements['+request.nro+'].focus();');
|
|
}
|
|
writeln(' }');
|
|
writeln('}');
|
|
writeln(' function GoLineas(obj) {');
|
|
writeln(' var valor=0;');
|
|
writeln(' valor=get_value("select",document.f_factura.fa_tipo_fra);');
|
|
writeln(' if ( valor == "1" ) ');
|
|
writeln(' MasLineas("Alb"); ');
|
|
writeln(' else ');
|
|
writeln(' MasLineas("Cta"); ');
|
|
writeln(' }');
|
|
writeln(' function Chek_fields(obj) {');
|
|
if (request.waux || !request.lock)
|
|
writeln(' return true;');
|
|
else {
|
|
writeln(' var maslineas=false ');
|
|
writeln(' if ( obj == "Alb" || obj == "Cta" ) ');
|
|
writeln(' maslineas=true ; obj=document.f_factura; ');
|
|
writeln(' if ( emptyField(obj.fa_nro_reg) == true ) { ');
|
|
writeln(' alert("!!! Es necesario rellenar el Código de factura !!!->"+obj.fa_nro_reg.value+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' if ( emptyField(obj.fa_f_recepcion) == true ) { ');
|
|
writeln(' alert("!!! Es necesario rellenar la Fecha de Recepción de la factura !!!->"+obj.fa_f_recepcion.value+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' if ( emptyField(obj.fa_nif) == true ) { ');
|
|
writeln(' alert("!!! Es necesario rellenar el NIF de la factura !!!->"+obj.fa_nif.value+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' if ( emptyField(obj.fa_nro_fra) == true ) { ');
|
|
writeln(' alert("!!! Es necesario rellenar el Nro. de la factura !!!->"+obj.fa_nro_fra.value+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' if ( emptyField(obj.fa_cod_centro) == true ) { ');
|
|
writeln(' alert("!!! Es necesario rellenar el Código de Centro !!!->"+obj.fa_cod_centro.value+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' var importe_total=0;');
|
|
writeln(' importe_total=parseInt(NroUnformat(obj.fa_importe_total.value));');
|
|
writeln(' if ( importe_total == 0 ) { ');
|
|
writeln(' alert("!!! El importe total de la factura es cero !!!->"+obj.fa_importe_total.value+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' var nctas=0;');
|
|
writeln(' nctas=parseInt(obj.nroctas.value);');
|
|
writeln(' if ( nctas == 0 ) { ');
|
|
writeln(' if ( maslineas == true ) ');
|
|
writeln(' return true;');
|
|
writeln(' alert("!!! No hay cuentas definidas !!!->"+obj.nroctas.value+"<-");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' if ( nctas > 0 ) { ');
|
|
writeln(' if ( maslineas == true ) ');
|
|
writeln(' return true;');
|
|
writeln(' if ( obj.acf_totaldebe.value != obj.acf_totalhaber.value ) { ');
|
|
writeln(' alert("!!! Los apuntes contables de la Factura no son correctos !!!\\r-->Debe:"+');
|
|
writeln(' obj.acf_totaldebe.value+"\\r-->Haber:"+obj.acf_totalhaber.value+');
|
|
writeln(' "\\r-->Saldo:"+obj.acf_totalsaldo.value+"\\r");');
|
|
writeln(' return false;');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' Limite=parseInt(obj.nrolineas.value)');
|
|
writeln(' var is_ok=true;')
|
|
writeln(' for (var nl=1; nl <= Limite ; nl++) { ');
|
|
writeln(' eval("nro=parseFloat(NroUnformat(obj.af_"+nl+"_sumaCtas.value))"); ');
|
|
writeln(' eval("if (obj.af_"+nl+"_nif.value != obj.fa_nif.value && nro > 0 ) { is_ok=false ;}")');
|
|
writeln(' if ( is_ok == false ) ')
|
|
writeln(' break;')
|
|
writeln(' eval("if (obj.af_"+nl+"_cod_centro.value != obj.fa_cod_centro.value && nro > 0 ) { is_ok=false ;}")');
|
|
writeln(' if ( is_ok == false ) ')
|
|
writeln(' break;')
|
|
writeln(' //eval("if (obj.af_"+nl+"_nro_pedido.value != obj.fa_nro_pedido.value && nro > 0 ) { is_ok=false ;}")');
|
|
writeln(' //if ( is_ok == false ) ')
|
|
writeln(' // break;')
|
|
writeln(' };')
|
|
writeln(' if ( is_ok == false ) {')
|
|
writeln(' eval("alert(\'Los datos del Albarán \'+ obj.af_"+nl+"_nroreg_albaran.value+\' no coinciden en la factura\');")');
|
|
writeln(' return false;')
|
|
writeln(' };')
|
|
// writeln(' var mainFrame=find_frame(top,"main");');
|
|
// writeln(' var f_form=mainFrame.document.f_factura;');
|
|
// writeln(' outputFra(f_form); ');
|
|
writeln(' return true;');
|
|
}
|
|
writeln(' }');
|
|
writeln(' function DefPorRet(obj) {');
|
|
writeln(' var f=document.f_factura;');
|
|
writeln(' if ( parseInt(obj.value) == 0 ) { ;');
|
|
writeln(' obj.value=valor;');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' function DefClaves(obj) {');
|
|
writeln(' var f=document.f_factura;');
|
|
writeln(' var Limite=0;');
|
|
writeln(' Limite=parseInt(f.nroctas.value);');
|
|
writeln(' if ( Limite == 0 ) ');
|
|
writeln(' return; ');
|
|
writeln(' for (var nl=10; nl <= Limite ; nl++) { ');
|
|
writeln(' eval("f.acf_"+nl+"_clave.value=\'\'")');
|
|
writeln(' eval("scanClaveCta("+nl+");")');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' function ChkLinCta(icta) {');
|
|
writeln(' var f=document.f_factura;');
|
|
writeln(' var paso=true; ');
|
|
writeln(' eval("if ( f.acf_"+icta+"_cod_cta.value.length < 2 || f.acf_"+icta+"_cod_cta.value == \'\') { paso=false }")');
|
|
writeln(' if ( paso == false ) ');
|
|
writeln(' return; ');
|
|
writeln(' eval("if (f.acf_"+icta+"_tipolin.value == \'A\' ) { alert(\' Esta Línea está asociada al Albarán:\'+f.acf_"+icta+"_albareg.value);}")');
|
|
writeln(' var valor="";');
|
|
writeln(' var nro=0;');
|
|
writeln(' eval("valor=f.acf_"+icta+"_clave.value;")');
|
|
writeln(' eval("if ( valor.length < 2 || valor == \'\' || !valor ) { scanClaveCta("+icta+");}")');
|
|
writeln(' eval("nro=parseInt(NroUnformat(f.acf_"+icta+"_importe.value));")');
|
|
writeln(' eval("valor=f.acf_"+icta+"_concepto.value;")');
|
|
writeln(' if ( valor.length == 0 ) { ');
|
|
writeln(' if ( nro < 0 ) { '),
|
|
writeln(' eval("f.acf_"+icta+"_concepto.value=\'A\'");');
|
|
writeln(' }');
|
|
writeln(' if ( nro > 0 ) { ');
|
|
writeln(' eval("f.acf_"+icta+"_concepto.value=\' \'"); ');
|
|
writeln(' }');
|
|
writeln(' };');
|
|
writeln(' }');
|
|
writeln(' function ChkMes(obj) {');
|
|
writeln(' var mes=parseInt(obj.value);');
|
|
writeln(' if ( mes+1 > 0) { ');
|
|
writeln(' if ( mes <1 || mes >12 ) {');
|
|
writeln(' alert("Mes Contable debe estar entre 1 y 12 ");');
|
|
writeln(' obj.focus();');
|
|
writeln(' }');
|
|
writeln(' else if ( HOY.getMonth()+1 != mes ) { ');
|
|
writeln(' alert("¡¡ El Mes Contable no es el actual !! ");');
|
|
writeln(' return; ');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' else {');
|
|
writeln(' alert("Mes Contable debe estar entre 1 y 12 ");');
|
|
writeln(' obj.focus();');
|
|
writeln(' }');
|
|
writeln(' obj.value=NroFormat(mes,"00");');
|
|
writeln(' }');
|
|
writeln(' function DefaultIVA(obj,nro) {');
|
|
writeln(' var f=document.f_factura;');
|
|
writeln(' if ( parseInt(obj.value) == 0 ) { ;');
|
|
writeln(' var BaseIVA=0; ');
|
|
writeln(' var PorIVA=0; ');
|
|
writeln(' eval("BaseIVA=parseFloat(NroUnformat(f.fa_base_"+nro+".value))");');
|
|
writeln(' eval("PorIVA=parseFloat(NroUnformat(f.fa_por_iva"+nro+".value))");');
|
|
writeln(' var BaseRet=0; ');
|
|
writeln(' if ( TipoCalculo == 2 ) ');
|
|
writeln(' eval("BaseRet=parseInt(NroUnformat(f.fa_ret_"+nro+".value))");');
|
|
writeln(' var valor=0; ');
|
|
writeln(' valor=Math.round(((BaseIVA-BaseRet)*PorIVA)/100);');
|
|
writeln(' obj.value=NroFormat(valor,NF9);');
|
|
writeln(' SumaImportes(obj);');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' function DefaultRet(obj,nro) {');
|
|
writeln(' var f=document.f_factura;');
|
|
writeln(' if ( parseInt(obj.value) == 0 ) { ;');
|
|
writeln(' var BaseRet=0; ');
|
|
writeln(' var PorRet=0; ');
|
|
writeln(' var valor=0; ');
|
|
writeln(' eval("BaseRet=parseFloat(NroUnformat(f.fa_base_"+nro+".value))");');
|
|
writeln(' eval("PorRet=parseFloat(NroUnformat(f.fa_por_ret"+nro+".value))");');
|
|
writeln(' valor=Math.round((BaseRet*PorRet)/100);');
|
|
writeln(' obj.value=NroFormat(valor,NF9);');
|
|
writeln(' SumaImportes(obj);');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' function CheckBase(obj,nro) {');
|
|
writeln(' var f=document.f_factura;');
|
|
writeln(' var valor=0; ');
|
|
writeln(' valor=parseInt(obj.value); ');
|
|
writeln(' if ( valor == 0 ) { ;');
|
|
writeln(' eval("f.fa_ret_"+nro+".value=0");');
|
|
writeln(' eval("f.fa_iva_"+nro+".value=0");');
|
|
writeln(' SumaImportes(obj);');
|
|
writeln(' return; ');
|
|
writeln(' }');
|
|
writeln(' else if ( valor > 0 || valor < 0 ) { ;');
|
|
writeln(' eval("f.fa_ret_"+nro+".value=0");');
|
|
writeln(' eval("DefaultRet(f.fa_ret_"+nro+","+nro+")");');
|
|
writeln(' eval("f.fa_iva_"+nro+".value=0");');
|
|
writeln(' eval("DefaultIVA(f.fa_iva_"+nro+","+nro+")");');
|
|
writeln(' return; ');
|
|
writeln(' }');
|
|
writeln(' obj.value="0"; ');
|
|
writeln(' eval("f.fa_ret_"+nro+".value=0");');
|
|
writeln(' eval("f.fa_iva_"+nro+".value=0");');
|
|
writeln(' SumaImportes(obj);');
|
|
writeln(' }');
|
|
writeln(' function SumaImportes(obj) {');
|
|
writeln(' var f=document.f_factura;');
|
|
writeln(' var SumaBase=0,SumaIva=0,SumaRet=0,Total=0; ');
|
|
writeln(' for (var i=1 ; i < 4 ; i++ ) { ');
|
|
writeln(' eval("var base_"+i+"=parseInt(NroUnformat(f.fa_base_"+i+".value))");');
|
|
writeln(' eval("if ( TipoFra == 2 ) { f.fa_por_iva"+i+".value=0 } ");');
|
|
writeln(' eval("if (parseInt(NroUnformat(f.fa_por_iva"+i+".value))==0 ) { f.fa_iva_"+i+".value=0} ");');
|
|
writeln(' eval("if (parseInt(NroUnformat(f.fa_por_ret"+i+".value))==0 ) { f.fa_ret_"+i+".value=0} ");');
|
|
writeln(' eval("var iva_"+i+"=0;");');
|
|
writeln(' eval("var ret_"+i+"=0;");');
|
|
writeln(' eval("var iva_"+i+"=parseInt(NroUnformat(f.fa_iva_"+i+".value))");');
|
|
writeln(' eval("var ret_"+i+"=parseInt(NroUnformat(f.fa_ret_"+i+".value))");');
|
|
//writeln(' if ( TipoCalculo == 2 ) ');
|
|
writeln(' eval("var Totaf_"+i+"=base_"+i+"+iva_"+i+"-ret_"+i+";");');
|
|
//writeln(' else ');
|
|
//writeln(' eval("var Totaf_"+i+"=base_"+i+"+iva_"+i+"+ret_"+i+";");');
|
|
writeln(' eval("f.fa_Totaf_"+i+".value=NroFormat(Totaf_"+i+",NF9);");');
|
|
writeln(' eval("Total=Total+Totaf_"+i+";");');
|
|
writeln(' eval("SumaBase=SumaBase+base_"+i+";");');
|
|
writeln(' eval("SumaRet=SumaRet+ret_"+i+";");');
|
|
writeln(' eval("SumaIva=SumaIva+iva_"+i+";");');
|
|
writeln(' };');
|
|
writeln(' var canexen=0, deducciones=0, Totex=0, Limite=0;');
|
|
writeln(' canexen=parseInt(NroUnformat(f.fa_canexen.value));');
|
|
writeln(' deducciones=parseInt(NroUnformat(f.fa_deducciones.value));');
|
|
writeln(' Totex=canexen;');
|
|
writeln(' f.fa_SumaBase.value=NroFormat(SumaBase+canexen,NF9);');
|
|
writeln(' f.fa_SumaRet.value=NroFormat(SumaRet,NF9);');
|
|
writeln(' f.fa_SumaIva.value=NroFormat(SumaIva,NF9);');
|
|
writeln(' f.fa_Totex.value=NroFormat(Totex,NF9);');
|
|
writeln(' f.fa_SumaImporte.value=NroFormat(Total+Totex,NF11);');
|
|
writeln(' f.fa_importe_total.value=NroFormat(Total+Totex-deducciones,NF11);');
|
|
writeln(' Limite=parseInt(f.nroctas.value);');
|
|
writeln(' if ( Limite > 0 ) ');
|
|
writeln(' SumaCtas(obj);');
|
|
writeln(' setFechaPago(obj);');
|
|
writeln(' }');
|
|
writeln(' function SumaCtas(obj) {');
|
|
writeln(' var f=document.f_factura;');
|
|
writeln(' var SumaDebe=0;');
|
|
writeln(' var SumaHaber=0;');
|
|
writeln(' var tipoApte="";');
|
|
writeln(' var Limite=0, nro=0;');
|
|
writeln(' Limite=parseInt(f.nroctas.value);');
|
|
writeln(' if ( Limite == 0 ) ');
|
|
writeln(' return; ');
|
|
writeln(' var fa_Iva=0, fa_Ret=0, fa_Totaf=0, importe=0;');
|
|
writeln(' for (var lin=1; lin < 4 ; lin++) {');
|
|
writeln(' eval("fa_Iva=parseInt(NroUnformat(f.fa_iva_"+lin+".value))");');
|
|
writeln(' eval("fa_Ret=parseInt(NroUnformat(f.fa_ret_"+lin+".value))");');
|
|
writeln(' eval("fa_Totaf=parseInt(NroUnformat(f.fa_Totaf_"+lin+".value))");');
|
|
writeln(' importe=parseInt(NroUnformat(f.fa_importe_total.value));')
|
|
writeln(' var np=-1; '); // eval("var np=getTipolin(\'P"+lin+"\');");');
|
|
writeln(' for (var i=1 ; i <= Limite ; i++ ) { ');
|
|
writeln(' eval("if ( f.acf_"+i+"_tipolin.value == \'P"+lin+"\') { np=i } ;")');
|
|
writeln(' if ( np > 0 ) { break }');
|
|
writeln(' }');
|
|
writeln(' if ( np > 0 && np <= Limite ) { ');
|
|
writeln(' if ( fa_Totaf > 0 || fa_Totaf == 0 ) { ');
|
|
writeln(' eval("f.acf_"+np+"_importe.value=NroFormat(fa_Totaf,NF9);")');
|
|
writeln(' eval("f.acf_"+np+"_tipo_apte.value=\'H\';")');
|
|
writeln(' }');
|
|
writeln(' if ( fa_Totaf < 0 ) { ');
|
|
writeln(' eval("f.acf_"+np+"_importe.value=NroFormat(fa_Totaf*-1,NF9);")');
|
|
writeln(' eval("f.acf_"+np+"_tipo_apte.value=\'D\';")');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' var ni=-1; '); // eval("var ni=getTipolin(\'I"+lin+"\');");');
|
|
writeln(' for (var i=1 ; i <= Limite ; i++ ) { ');
|
|
writeln(' eval("if ( f.acf_"+i+"_tipolin.value == \'I"+lin+"\') { ni=i } ;")');
|
|
writeln(' if ( ni > 0 ) { break }');
|
|
writeln(' }');
|
|
writeln(' if ( ni > 0 && ni <= Limite ) { ');
|
|
writeln(' if ( fa_Iva > 0 || fa_Iva == 0) { ');
|
|
writeln(' eval("f.acf_"+ni+"_importe.value=NroFormat(fa_Iva,NF9);")');
|
|
writeln(' eval("f.acf_"+ni+"_tipo_apte.value=\'D\';")');
|
|
writeln(' }');
|
|
writeln(' if ( fa_Iva < 0 ) { ');
|
|
writeln(' eval("f.acf_"+ni+"_importe.value=NroFormat(fa_Iva*-1,NF9);")');
|
|
writeln(' eval("f.acf_"+ni+"_tipo_apte.value=\'H\';")');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' var nr=-1; '); // eval("var nr=getTipolin(\'R"+lin+"\');");');
|
|
writeln(' for (var i=1 ; i <= Limite ; i++ ) { ');
|
|
writeln(' eval("if ( f.acf_"+i+"_tipolin.value == \'R"+lin+"\') { nr=i } ;")');
|
|
writeln(' if ( nr > 0 ) { break }');
|
|
writeln(' }');
|
|
writeln(' if ( nr > 0 && nr <= Limite ) { ');
|
|
writeln(' if ( fa_Ret > 0 || fa_Ret == 0) { ');
|
|
writeln(' eval("f.acf_"+nr+"_importe.value=NroFormat(fa_Ret,NF9);")');
|
|
writeln(' eval("f.acf_"+nr+"_tipo_apte.value=\'H\';")');
|
|
writeln(' }');
|
|
writeln(' if ( fa_Ret < 0 ) { ');
|
|
writeln(' eval("f.acf_"+nr+"_importe.value=NroFormat(fa_Ret*-1,NF9);")');
|
|
writeln(' eval("f.acf_"+nr+"_tipo_apte.value=\'D\';")');
|
|
writeln(' }');
|
|
writeln(' if ( TipoReten == "1" ) { ');
|
|
writeln(' eval("f.acf_"+nr+"_cod_cta.value=pa_cta_reten_1");');
|
|
writeln(' eval("f.acf_"+nr+"_clave.value=pa_clave_reten_1");');
|
|
writeln(' } else { ');
|
|
writeln(' eval("f.acf_"+nr+"_cod_cta.value=substCta(f.fa_cta_contable,pa_cta_reten_2)");');
|
|
writeln(' eval("f.acf_"+nr+"_clave.value=pa_clave_reten_2");');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' for (var nl=1; nl <= Limite ; nl++) { ');
|
|
writeln(' eval("importe=NroUnformat(f.acf_"+nl+"_importe.value)");');
|
|
writeln(' nro=parseInt(importe);');
|
|
writeln(' if ( nro == 0 ) { continue } ');
|
|
writeln(' eval("var objApte=f.acf_"+nl+"_tipo_apte;")');
|
|
writeln(' if ( objApte.type == "hidden" || objApte.type == "text" ) ');
|
|
writeln(' eval("tipoApte=f.acf_"+nl+"_tipo_apte.value;")');
|
|
writeln(' else { ');
|
|
writeln('// tipoApte=get_value(\'select\',f.acf_"+nl+"_tipo_apte);")');
|
|
writeln(' tipoApte=objApte.options[objApte.selectedIndex].value;');
|
|
writeln(' } ');
|
|
writeln(' if ( nro == 0 ) { continue } ');
|
|
writeln(' if ( nro < 0 ) { ');
|
|
writeln(' nro=nro*-1; ');
|
|
writeln(' eval("f.acf_"+nl+"_importe.value=NroFormat(nro,NF9);")');
|
|
writeln(' eval("f.acf_"+nl+"_tipo_apte.value=\'H\';")');
|
|
writeln(' tipoApte="H"; ');
|
|
writeln(' }');
|
|
writeln(' if (tipoApte == "D" ) ');
|
|
writeln(' SumaDebe=SumaDebe+nro;');
|
|
writeln(' if (tipoApte == "H" ) ');
|
|
writeln(' SumaHaber=SumaHaber+nro;');
|
|
writeln(' }');
|
|
writeln(' f.acf_totaldebe.value=NroFormat(SumaDebe+" ",NF11);');
|
|
writeln(' f.acf_totalhaber.value=NroFormat(SumaHaber+" ",NF11);');
|
|
writeln(' f.acf_totalsaldo.value=NroFormat((SumaDebe-SumaHaber)+" ",NF11);');
|
|
writeln(' }');
|
|
writeln(' function SumaLineas(obj) {');
|
|
writeln(' var SumaLineas=0, Limite=0;');
|
|
writeln(' Limite=parseInt(document.f_factura.nrolineas.value);');
|
|
writeln(' for (var nl=1; nl <= Limite ; nl++) { ');
|
|
writeln(' eval("var cantidad=NroUnformat(document.f_factura.af_"+nl+"_cantidad.value)");');
|
|
writeln(' eval("var precio=NroUnformat(document.f_factura.af_"+nl+"_precio_und.value)");');
|
|
writeln(' var nro=Math.round(parseFloat(cantidad)*parseFloat(precio)); ');
|
|
writeln(' eval("document.f_factura.af_"+nl+"_total.value=NroFormat(nro+\' \',NF9);");');
|
|
writeln(' SumaLineas=SumaLineas+nro; ');
|
|
writeln(' }');
|
|
writeln(' document.f_factura.af_total.value=NroFormat(SumaLineas+" ",NF9);');
|
|
writeln(' }');
|
|
writeln(' function CalculaLinea(nl) {');
|
|
writeln(' var nro=0;');
|
|
writeln(' eval("nro=Math.round(parseFloat(NroUnformat(document.f_factura.af_"+nl+"_cantidad.value))*parseFloat(NroUnformat(document.f_factura.af_"+nl+"_precio_und.value)))");');
|
|
writeln(' eval("document.f_factura.af_"+nl+"_total.value=NroFormat(nro+\' \',NF11);")');
|
|
writeln(' SumaLineas(document.f_factura); ');
|
|
writeln(' }');
|
|
writeln(' function tipoSinRet(obj) {');
|
|
writeln(' return;');
|
|
writeln(' var valor=0;');
|
|
writeln(' valor=get_value("select",document.f_factura.fa_tipo_retencion);');
|
|
writeln(' if ( valor==0 ) ');
|
|
writeln(' eval("document.f_factura.fa_por_iva"+obj+".focus();");');
|
|
writeln(' }');
|
|
writeln(' function GoNextField(obj) {');
|
|
writeln(' var pos=0;');
|
|
writeln(' var pos=pos_form(document.f_factura,obj.name); ');
|
|
writeln(' if ( pos+1 >= 0 && pos+1 <= document.f_factura.elements.length) ');
|
|
writeln(' document.f_factura.elements[pos+1].focus();');
|
|
writeln(' }');
|
|
writeln(' function ZoomAlbaran(nl) {');
|
|
writeln(' var valor=0;');
|
|
writeln(' eval("valor=document.f_factura.af_"+nl+"_nroreg_albaran.value") ');
|
|
writeln(' if ( valor && valor.length > 0 ) ');
|
|
writeln(' w_auxiliar("albaran","Albaranes","ab_nro_reg",StringClip(true,valor));');
|
|
writeln(' }');
|
|
writeln(' function setNroReg(obj) {');
|
|
writeln(' document.f_factura.fa_nro_reg.value=StringClip(true,document.f_factura.fa_nro_regy.value)+StringClip(true,document.f_factura.fa_nro_regn.value);');
|
|
writeln(' }');
|
|
writeln(' function chkYearNroReg(obj) {');
|
|
writeln(' var nro=0;');
|
|
writeln(' nro=parseInt(obj.value); ');
|
|
writeln(' obj.value=nro; ');
|
|
writeln(' if ( HOY.getFullYear() != nro ) ');
|
|
writeln(' alert("¡¡ El Año del Nro. de Registro no es el actual !! ");');
|
|
writeln(' }');
|
|
writeln(' function GoField() {');
|
|
writeln(' var f=document.f_factura; ');
|
|
writeln(' if ( f.fa_is_locked.value == "S" ) {');
|
|
writeln(' alert("\\r¡¡¡ La Factura está bloqueada !!!"); ');
|
|
writeln(' } ');
|
|
if ( request.prt) {
|
|
// writeln('w_auxiliar(\'factura\',\'Reg_'+request.prt+'\',\'fa_nro_reg\',\''+StringClip(true,request.prt)+'\');');
|
|
var nregy=""+request.prt.substring(0,4);
|
|
var nregn=""+request.prt.substring(4,10);
|
|
writeln(' alert("\\rNro. Regisro: '+nregn+'/'+nregy+' creado.\\r'+
|
|
'Listado: '+request.treq+' está en la cola \''+nprinter+'\'"); ');
|
|
}
|
|
if (request.exec=="add" || request.exec == "upd" )
|
|
writeln(' f.submit(); ');
|
|
writeln(' if ( document.f_factura.fa_t_razon_social.value == "NO EXISTE" ) {');
|
|
writeln(' alert("!!! El NIF del Proveedor no Existe !!!->"+document.f_factura.fa_nif.value+"<-");');
|
|
writeln(' return; ');
|
|
writeln(' }' );
|
|
writeln(' if ( document.f_factura.fa_cond_pago.value+"" == pa_cp_lock+"" ) {');
|
|
writeln(' alert("!!! El Proveedor está Bloqueado !!!->"+document.f_factura.fa_cond_pago.value+"<-");');
|
|
writeln(' }' );
|
|
writeln(' setFechaPago(document.f_factura); ');
|
|
writeln(' TipoCalculo=get_value("select",f.fa_tipo_calc_iva);');
|
|
writeln(' TipoFra=get_value("select",f.fa_tipo_fra); ');
|
|
writeln(' var Limite=parseInt(f.nrolineas.value)');
|
|
writeln(' for (var nl=1; nl <= Limite ; nl++) { ');
|
|
writeln(' eval("nro=parseFloat(NroUnformat(f.af_"+nl+"_sumaCtas.value))"); ');
|
|
writeln(' eval("if (f.af_"+nl+"_nif.value != f.fa_nif.value && nro > 0 ) { alert(\'Los datos del Albarán \'+ f.af_"+nl+"_nroreg_albaran.value+\' - NIF:\'+f.af_"+nl+"_nif.value+\' no coinciden en el NIF del Proveedor\');}")');
|
|
writeln(' eval("if (f.af_"+nl+"_cod_centro.value != f.fa_cod_centro.value && nro > 0 ) { alert(\'Los datos del Albarán \'+ f.af_"+nl+"_nroreg_albaran.value+\' - Centro:\'+f.af_"+nl+"_cod_centro.value+\' no coinciden en el Cod. de Centro\');}")');
|
|
writeln(' //eval("if (f.af_"+nl+"_nro_pedido.value != f.fa_nro_pedido.value && nro > 0 ) { alert(\'Los datos del Albarán \'+ f.af_"+nl+"_nroreg_albaran.value+\' - Nro. Pedido:\'+f.af_"+nl+"_nro_pedido.value+\' no coinciden en el Nro. de Pedido\');}")');
|
|
writeln(' };')
|
|
if (request.Alb || request.exec == "lin" )
|
|
writeln(' Enfoca("linAlb");');
|
|
if (request.Act || request.exec == "cta")
|
|
writeln(' Enfoca("linCta");');
|
|
if (!request.Act && !request.Alb)
|
|
writeln(' f.fa_nro_fra.focus();');
|
|
writeln(' }');
|
|
writeln(' function setTipoReten(obj) {');
|
|
writeln(' var valor="";');
|
|
writeln(' var valor=get_value("select",obj);');
|
|
writeln(' for (var i=1 ; i < 4 ; i++ ) { ');
|
|
writeln(' if ( valor == "0" ) {');
|
|
writeln(' eval("document.f_factura.fa_por_ret"+i+".value=0");');
|
|
writeln(' eval("f.fa_ret_"+i+".value=0");');
|
|
writeln(' eval("DefaultRet(f.fa_ret_"+i+","+i+")");');
|
|
writeln(' }');
|
|
writeln(' if ( valor == "1" ) {');
|
|
writeln(' eval("document.f_factura.fa_por_ret"+i+".value=pa_reten_1");');
|
|
writeln(' eval("f.fa_ret_"+i+".value=0");');
|
|
writeln(' eval("DefaultRet(f.fa_ret_"+i+","+i+")");');
|
|
writeln(' }');
|
|
writeln(' if ( valor == "2" ) {');
|
|
writeln(' eval("document.f_factura.fa_por_ret"+i+".value=pa_reten_2");');
|
|
writeln(' eval("f.fa_ret_"+i+".value=0");');
|
|
writeln(' eval("DefaultRet(f.fa_ret_"+i+","+i+")");');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' TipoReten=valor;');
|
|
writeln(' SumaImportes(obj);');
|
|
writeln(' DefClaves(obj);');
|
|
writeln(' }');
|
|
writeln(' function setTipoCalc(obj) {');
|
|
writeln(' var valor="";');
|
|
writeln(' var valor=get_value("select",obj);');
|
|
writeln(' if ( valor == "1" ) ');
|
|
writeln(' TipoCalculo=valor;');
|
|
writeln(' if ( valor == "2" ) ');
|
|
writeln(' TipoCalculo=valor;');
|
|
writeln(' for (var i=1 ; i < 4 ; i++ ) { ');
|
|
writeln(' eval("f.fa_iva_"+i+".value=0");');
|
|
writeln(' eval("DefaultIVA(f.fa_iva_"+i+","+i+")");');
|
|
writeln(' }');
|
|
writeln(' SumaImportes(obj);');
|
|
writeln(' DefClaves(obj);');
|
|
writeln(' }');
|
|
writeln(' function setTipoFra(obj) {');
|
|
writeln(' var valor="";');
|
|
writeln(' var valor=get_value("select",obj);');
|
|
writeln(' if ( valor == "1" ) ');
|
|
writeln(' TipoFra=valor;');
|
|
writeln(' if ( valor == "2" ) ');
|
|
writeln(' TipoFra=valor;');
|
|
writeln(' if ( valor == "4" ) { ');
|
|
writeln(' TipoFra=valor;');
|
|
writeln(' }');
|
|
writeln(' DefClaves(obj);');
|
|
writeln(' }');
|
|
writeln(' function chkDia(s_pago) {');
|
|
writeln(' var f_pago = new Date(); ');
|
|
writeln(' AsignaFecha(s_pago,f_pago);');
|
|
writeln(' var ndia=f_pago.getDate();');
|
|
writeln(' var mes=f_pago.getMonth();');
|
|
writeln(' var chk_date=true; ');
|
|
writeln(' while (chk_date == true) {');
|
|
writeln(' chk_date=false; ');
|
|
writeln('// alert("-"+ndia+"/"+mes+"-" ) ');
|
|
writeln(' if (ndia <= pa_dia_pago_1) ');
|
|
writeln(' f_pago.setDate(pa_dia_pago_1); ');
|
|
writeln(' if (ndia > pa_dia_pago_1 && ndia <= pa_dia_pago_2) ');
|
|
writeln(' f_pago.setDate(pa_dia_pago_2); ');
|
|
writeln(' if (ndia > pa_dia_pago_2) { ');
|
|
writeln(' f_pago.setDate(pa_dia_pago_1); ');
|
|
writeln(' f_pago.setMonth(mes+1); ');
|
|
writeln(' }');
|
|
writeln(' var w_dia=f_pago.getDay();');
|
|
writeln(' if ( w_dia == 0 ) ');
|
|
writeln(' f_pago.setDate(f_pago.getDate()+1);');
|
|
writeln(' if ( w_dia == 6 ) ');
|
|
writeln(' f_pago.setDate(f_pago.getDate()+2);');
|
|
writeln(' ndia=f_pago.getDate();');
|
|
writeln(' mes=f_pago.getMonth()+1;');
|
|
writeln('// alert("-"+ndia+"/"+mes+"-" ) ');
|
|
writeln(' if ( ndia==25 && mes == 8 ) {');
|
|
writeln(' ndia=ndia+1; ');
|
|
writeln(' chk_date=true; ');
|
|
writeln(' }; ');
|
|
writeln(' if ( ndia==25 && mes == 12 ) {');
|
|
writeln(' ndia=ndia+1; ');
|
|
writeln(' chk_date=true; ');
|
|
writeln(' }; ');
|
|
writeln(' }; ');
|
|
writeln(' return datetoString(f_pago);');
|
|
writeln(' }');
|
|
writeln(' function setFechaPago(obj) {');
|
|
writeln(' f=document.f_factura;');
|
|
writeln(' if (f.fa_f_recepcion.value.length == 0 ) ');
|
|
writeln(' return;');
|
|
writeln(' var cp_vto=0, s_pago=0, s_pago=0;');
|
|
writeln(' cp_vto=parseInt(f.fa_cp_vto.value); ');
|
|
writeln(' if (cp_vto > 0) { ');
|
|
writeln(' if ( f.fa_f_pago.value.length > 0 ) ');
|
|
writeln(' return;');
|
|
writeln(' var f_recep = new Date(); ');
|
|
writeln(' cp_vto=f.fa_cp_vto.value; ');
|
|
writeln(' AsignaFecha(f.fa_f_recepcion.value,f_recep);');
|
|
writeln(' var d_recep=f_recep.getYearDay();');
|
|
writeln(' if ( d_recep > 0 ) { ');
|
|
writeln(' d_pago=parseInt(d_recep)+parseInt(cp_vto);');
|
|
writeln(' s_pago=DateFromN(d_pago);');
|
|
writeln(' f.fa_f_pago.value=chkDia(s_pago);');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' function chkFechaPago(obj) {');
|
|
writeln(' if (obj.value.length == 0 ) ');
|
|
writeln(' return;');
|
|
writeln(' f=document.f_factura;');
|
|
writeln(' if ( f.fa_f_pago.value.length > 0 ) ');
|
|
writeln(' return;');
|
|
writeln(' f.fa_f_pago.value=chkDia(s_pago);');
|
|
writeln(' }');
|
|
writeln(' function getTipolin(tipo) {');
|
|
writeln(' var nlin=-1,nro=0; ');
|
|
writeln(' var valor="";');
|
|
writeln(' nro=parseInt(document.f_factura.nroctas.value);');
|
|
writeln(' for (var i=1 ; i < nro ; i++ ) { ');
|
|
writeln(' eval ("valor=document.f_factura.acf_"+i+"_tipolin.value")');
|
|
writeln('// eval ("valor=get_value(\'select\',document.f_factura.acf_"+i+"_tipolin);")');
|
|
writeln('// alert("Valor:"+i+"--"+valor);');
|
|
writeln(' if ( valor == tipo ) {');
|
|
writeln(' nlin=i; break; ');
|
|
writeln(' }');
|
|
writeln(' }');
|
|
writeln(' return nlin; ');
|
|
writeln(' }');
|
|
writeln("</SCRIPT>");
|
|
if (request.gofunc)
|
|
writeln(' <BODY OnLoad="RunFunction(\''+request.gofunc+'\',\''+request.valor+'\',\''+request.nvo+'\','+request.nro+')"');
|
|
else {
|
|
if ( request.FrameType == "F" || request.FrameType == "T" )
|
|
writeln(' <BODY OnLoad="WriteFrameButtons(); GoField();//SumaLineas(this)"');
|
|
else
|
|
writeln('<BODY OnLoad="GoField();//SumaLineas(this)" ');
|
|
}
|
|
writeln(' BACKGROUND="images/backgrnd.gif">');
|
|
if (request.gofunc) {
|
|
writeln(' </BODY>');
|
|
writeln(' </HTML>');
|
|
writeln(' <!--');
|
|
}
|
|
if (!request.cookie && !request.gofunc) {
|
|
dbConnect();
|
|
// Vemos que tarea hay que ejecutar:
|
|
if (request.add) {
|
|
if ( entriesExist(" from proveedores where nif=\'"+StringClip(true,request.fa_nif)+"\'") != true ){
|
|
redirect(addClient('alertpage.html?alert=15&key='+request.fa_nif));
|
|
}
|
|
if ( entriesExist(" from centros where cod_centro=\'"+StringClip(true,request.fa_cod_centro)+"\'") != true ){
|
|
redirect(addClient('alertpage.html?alert=15&key='+request.fa_cod_centro));
|
|
}
|
|
client.is_trans=true;
|
|
database.beginTransaction();
|
|
if ( request.fa_nro_regn == "+" ) {
|
|
c_parametros=database.cursor("SELECT nro_reg FROM parametros WHERE id='1'");
|
|
status=c_parametros.next();
|
|
var nro_reg=StringClip(false,c_parametros.nro_reg);
|
|
var lon=nro_reg.length;
|
|
if ( lon > 4 ) {
|
|
var updParams=true;
|
|
var nroregn=parseFloat(c_parametros.nro_reg.substring(4,lon))+1;
|
|
request.nro_regn=NroFormat(nroregn,"00000");
|
|
request.nro_regy=c_parametros.nro_reg.substring(0,4);
|
|
}
|
|
else {
|
|
var updParams=true;
|
|
request.nro_regy="";
|
|
request.nroregn=parseInt(nro_reg)+1;
|
|
request.nro_regn=NroFormat(request.nroregn,"00000");
|
|
}
|
|
project.lock();
|
|
}
|
|
else {
|
|
var updParams=false;
|
|
request.nro_regn=request.fa_nro_regn;
|
|
request.nro_regy=request.fa_nro_regy;
|
|
}
|
|
// if (request.fa_nif && request.fa_nif != null ) {
|
|
// CursorTabla("pr","nif","=\'"+StringClip(true,request.fa_nif)+"\'",false,false);
|
|
// request.fa_t_razon_social=c_proveedores.razon_social;
|
|
// request.fa_cta_contable=StringClip(c_proveedores.cta_contable);
|
|
// c_proveedores.close();
|
|
// }
|
|
request.fa_nro_reg=request.nro_regy+request.nro_regn;
|
|
if ( entriesExist(" from facturas where nro_reg=\'"+StringClip(true,request.fa_nro_reg)+"\'") == true ){
|
|
database.rollbackTransaction();
|
|
project.unlock();
|
|
redirect(addClient('alertpage.html?alert=2&key='+request.fa_nro_reg));
|
|
}
|
|
status=database.execute("INSERT INTO facturas(" +
|
|
" nro_reg," +
|
|
" is_locked," +
|
|
" f_emision," +
|
|
" f_recepcion," +
|
|
" f_pago," +
|
|
" mes," +
|
|
" nro_fra," +
|
|
" nif," +
|
|
" cod_centro," +
|
|
" cond_pago," +
|
|
" tipo_fra," +
|
|
" tipo_calc_iva," +
|
|
" tipo_doc_pago," +
|
|
" nro_doc_pago," +
|
|
" f_emision_pago," +
|
|
" cod_localidad," +
|
|
" cod_banco," +
|
|
" base_1," +
|
|
" por_ret1," +
|
|
" ret_1," +
|
|
" por_iva1," +
|
|
" iva_1," +
|
|
" base_2," +
|
|
" por_ret2," +
|
|
" ret_2," +
|
|
" por_iva2," +
|
|
" iva_2," +
|
|
" base_3," +
|
|
" por_ret3," +
|
|
" ret_3," +
|
|
" por_iva3," +
|
|
" iva_3," +
|
|
" canexen," +
|
|
" tipo_retencion," +
|
|
" tipo_deduccion," +
|
|
" deducciones," +
|
|
" importe_total," +
|
|
" nro_pedido," +
|
|
" traspaso_gasto," +
|
|
" traspaso_pago," +
|
|
" traspaso_vto," +
|
|
" nro_reg_vto," +
|
|
" vto_pago," +
|
|
" observaciones) VALUES ('" + request.fa_nro_reg+ "','" +
|
|
request.fa_is_locked + "','"+
|
|
DateFormat(request.fa_f_emision,NLDF) + "','"+
|
|
DateFormat(request.fa_f_recepcion,NLDF) + "','"+
|
|
DateFormat(request.fa_f_pago,NLDF) + "','"+
|
|
StringClip(true,request.fa_mes) + "','"+
|
|
StringClip(true,request.fa_nro_fra) + "','"+
|
|
StringClip(true,request.fa_nif) + "','"+
|
|
StringClip(true,request.fa_cod_centro) + "','"+
|
|
StringClip(true,request.fa_cond_pago) + "','"+
|
|
StringClip(true,request.fa_tipo_fra) + "','"+
|
|
StringClip(true,request.fa_tipo_calc_iva) + "','"+
|
|
StringClip(true,request.fa_tipo_doc_pago) + "','"+
|
|
StringClip(true,request.fa_nro_doc_pago) + "','"+
|
|
DateFormat(request.fa_f_emision_pago,NLDF) + "','"+
|
|
StringClip(true,request.fa_cod_localidad) + "','"+
|
|
StringClip(true,request.fa_cod_banco) + "','"+
|
|
NroUnformat(request.fa_base_1) + "','"+
|
|
NroUnformat(request.fa_por_ret1) + "','"+
|
|
NroUnformat(request.fa_ret_1) + "','"+
|
|
NroUnformat(request.fa_por_iva1) + "','"+
|
|
NroUnformat(request.fa_iva_1) + "','"+
|
|
NroUnformat(request.fa_base_2) + "','"+
|
|
NroUnformat(request.fa_por_ret2) + "','"+
|
|
NroUnformat(request.fa_ret_2) + "','"+
|
|
NroUnformat(request.fa_por_iva2) + "','"+
|
|
NroUnformat(request.fa_iva_2) + "','"+
|
|
NroUnformat(request.fa_base_3) + "','"+
|
|
NroUnformat(request.fa_por_ret3) + "','"+
|
|
NroUnformat(request.fa_ret_3) + "','"+
|
|
NroUnformat(request.fa_por_iva3) + "','"+
|
|
NroUnformat(request.fa_iva_3) + "','"+
|
|
NroUnformat(request.fa_canexen) + "','"+
|
|
StringClip(true,request.fa_tipo_retencion) + "','"+
|
|
StringClip(true,request.fa_tipo_deduccion) + "','"+
|
|
NroUnformat(request.fa_deducciones) + "','"+
|
|
NroUnformat(request.fa_importe_total) + "','"+
|
|
StringClip(true,request.fa_nro_pedido) + "','"+
|
|
StringClip(true,request.fa_traspaso_gasto) + "','"+
|
|
StringClip(true,request.fa_traspaso_pago) + "','"+
|
|
StringClip(true,request.fa_traspaso_vto) + "','"+
|
|
StringClip(true,request.fa_nro_reg_vto) + "','"+
|
|
DateFormat(request.fa_vto_pago,NLDF) + "','"+
|
|
StringClip(true,request.fa_observaciones) + "')");
|
|
if ( status != 0 ) {
|
|
client.is_trans=false;
|
|
database.rollbackTransaction();
|
|
project.unlock();
|
|
redirect(addClient('error.html?alert=8'));
|
|
}
|
|
DbsError(true,status);
|
|
InsFraLins();
|
|
if ( updParams == true ) {
|
|
status=database.execute("UPDATE parametros SET "+
|
|
" nro_reg='" +request.fa_nro_reg + "',"+
|
|
" ultimo_actual='" + DateFormat(set_hoy(),NLDF) + "'"+
|
|
" WHERE id = '1'" );
|
|
if ( status != 0 )
|
|
if ( status != 0 ) {
|
|
client.is_trans=false;
|
|
database.rollbackTransaction();
|
|
redirect(addClient('error.html'));
|
|
}
|
|
}
|
|
database.commitTransaction();
|
|
client.is_trans=false;
|
|
if ( updParams == true )
|
|
project.unlock();
|
|
var nomFile="c:/tmprpts/empty";
|
|
request.f_formato=="documento";
|
|
fileRpt=new File(nomFile);
|
|
fileRpt.close();
|
|
request.maxLins=PaperVLines;
|
|
nrolin=FraDocHtml(request.fa_nro_reg);
|
|
redirect(addClient("o_factura.html?nvo=1&prt="+request.fa_nro_reg+"&"+baseHtml+"&treq="+escape(textoReqs)));
|
|
}
|
|
//Ejecuta una actualización de la fila sobre la fila actual ...
|
|
if (request.upd && request.fa_nro_reg) {
|
|
if (request.lock)
|
|
client.is_trans=true;
|
|
database.beginTransaction();
|
|
status=database.execute("UPDATE facturas SET "+
|
|
" is_locked='" + request.fa_is_locked + "',"+
|
|
" f_emision='" + DateFormat(request.fa_f_emision,NLDF) + "',"+
|
|
" f_recepcion='" + DateFormat(request.fa_f_recepcion,NLDF) + "',"+
|
|
" f_pago='" + DateFormat(request.fa_f_pago,NLDF) + "',"+
|
|
" mes='" + StringClip(true,request.fa_mes) + "',"+
|
|
" nro_fra='" + StringClip(true,request.fa_nro_fra) + "',"+
|
|
" tipo_calc_iva='" + StringClip(true,request.fa_tipo_calc_iva) + "',"+
|
|
" tipo_fra='" + StringClip(true,request.fa_tipo_fra) + "',"+
|
|
" nif='" + StringClip(true,request.fa_nif) + "',"+
|
|
" cod_centro='" + StringClip(true,request.fa_cod_centro) + "',"+
|
|
" cond_pago='" + StringClip(true,request.fa_cond_pago) + "',"+
|
|
" tipo_doc_pago='" + StringClip(true,request.fa_tipo_doc_pago) + "',"+
|
|
" nro_doc_pago='" + StringClip(true,request.fa_nro_doc_pago) + "',"+
|
|
" f_emision_pago='" + DateFormat(request.fa_f_emision_pago,NLDF) + "',"+
|
|
" cod_localidad='" + StringClip(true,request.fa_cod_localidad) + "',"+
|
|
" cod_banco='" + StringClip(true,request.fa_cod_banco) + "',"+
|
|
" base_1='" + NroUnformat(request.fa_base_1) + "',"+
|
|
" por_ret1='" + NroUnformat(request.fa_por_ret1) + "',"+
|
|
" ret_1='" + NroUnformat(request.fa_ret_1) + "',"+
|
|
" por_iva1='" + NroUnformat(request.fa_por_iva1) + "',"+
|
|
" iva_1='" + NroUnformat(request.fa_iva_1) + "',"+
|
|
" base_2='" + NroUnformat(request.fa_base_2) + "',"+
|
|
" por_ret2='" + NroUnformat(request.fa_por_ret2) + "',"+
|
|
" ret_2='" + NroUnformat(request.fa_ret_2) + "',"+
|
|
" por_iva2='" + NroUnformat(request.fa_por_iva2) + "',"+
|
|
" iva_2='" + NroUnformat(request.fa_iva_2) + "',"+
|
|
" base_3='" + NroUnformat(request.fa_base_3) + "',"+
|
|
" por_ret3='" + NroUnformat(request.fa_por_ret3) + "',"+
|
|
" ret_3='" + NroUnformat(request.fa_ret_3) + "',"+
|
|
" por_iva3='" + NroUnformat(request.fa_por_iva3) + "',"+
|
|
" iva_3='" + NroUnformat(request.fa_iva_3) + "',"+
|
|
" canexen='" + NroUnformat(request.canexen) + "',"+
|
|
" tipo_retencion='" + StringClip(true,request.fa_tipo_retencion) + "',"+
|
|
" tipo_deduccion='" + StringClip(true,request.fa_tipo_deduccion) + "',"+
|
|
" deducciones='" + NroUnformat(request.fa_deducciones) + "',"+
|
|
" importe_total='" + NroUnformat(request.fa_importe_total) + "',"+
|
|
" nro_pedido='" + StringClip(true,request.fa_nro_pedido) + "',"+
|
|
" traspaso_gasto='" + StringClip(true,request.fa_traspaso_gasto) + "',"+
|
|
" traspaso_pago='" + StringClip(true,request.fa_traspaso_pago) + "',"+
|
|
" traspaso_vto='" + StringClip(true,request.fa_traspaso_vto) + "',"+
|
|
" nro_reg_vto='" + StringClip(true,request.fa_nro_reg_vto) + "',"+
|
|
" vto_pago='" + DateFormat(request.fa_vto_pago,NLDF) + "',"+
|
|
" observaciones='" + StringClip(true,request.fa_observaciones) + "'"+
|
|
" WHERE nro_reg = '" + request.fa_nro_reg + "'" );
|
|
if ( status != 0 ) {
|
|
client.is_trans=false;
|
|
database.rollbackTransaction();
|
|
redirect(addClient('error.html?alert=9'));
|
|
}
|
|
DbsError(true,status);
|
|
DelFraLins();
|
|
InsFraLins();
|
|
database.commitTransaction();
|
|
client.is_trans=false;
|
|
redirect(addClient("g_factura.html?prt="+request.fa_nro_reg+"&"+baseHtml));
|
|
}
|
|
//Ejecuta un borrado de la fila actual ...
|
|
if (request.del) {
|
|
client.is_trans=true;
|
|
database.beginTransaction();
|
|
status=database.execute("DELETE FROM facturas WHERE nro_reg = \'" + request.fa_nro_reg + "\'");
|
|
if ( status != 0 ) {
|
|
client.is_trans=false;
|
|
database.rollbackTransaction();
|
|
redirect(addClient('error.html?alert=10'));
|
|
}
|
|
DbsError(true,status);
|
|
DelFraLins();
|
|
database.commitTransaction();
|
|
client.is_trans=false;
|
|
redirect(addClient("g_factura.html?"+baseHtml));
|
|
}
|
|
if (request.fa_nro_reg && !request.upd && !request.add ) {
|
|
// Si hay Clave de la tabla seleccionamos los datos ....
|
|
//Si se busca la fila ... usando la clave primaria de la relación
|
|
if (request.lock) {
|
|
client.is_trans=true;
|
|
database.beginTransaction();
|
|
CursorTabla("fa","nro_reg","=\'"+request.fa_nro_reg+"\'",true,true);
|
|
}
|
|
else
|
|
CursorTabla("fa","nro_reg","=\'"+request.fa_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=datetoString(c_facturas.f_emision);
|
|
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_f_emision_pago=datetoString(c_facturas.f_emision_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(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_vto=StringClip(false,c_facturas.nro_reg_vto);
|
|
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=StringClip(false,c_centros.descripcion);
|
|
if ( request.fa_t_des_centro == " " ) {
|
|
request.fa_t_des_centro="NO EXISTE";
|
|
}
|
|
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=StringClip(false,c_pedidos.descripcion);
|
|
if ( request.fa_t_des_pedido == " " ) {
|
|
request.fa_t_des_pedido="NO EXISTE";
|
|
}
|
|
else {
|
|
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=c_proveedores.cond_pago;
|
|
StringClip(true,request.fa_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="";
|
|
CursorTabla("af","nroreg_factura","=\'"+request.fa_nro_reg+"\'",false,"");
|
|
var SumAlbs=0;
|
|
request.nrolineas=0;
|
|
nl=0;
|
|
while (c_albafras.next()) {
|
|
request.nrolineas++; nl++;
|
|
eval("request.af_"+nl+"_nroreg_albafact=StringClip(true,c_albafras.nroreg_albafact)");
|
|
eval("request.af_"+nl+"_nroreg_albaran=StringClip(true,c_albafras.nroreg_albaran)");
|
|
eval("request.af_"+nl+"_nroreg_factura=StringClip(true,c_albafras.nroreg_factura)");
|
|
eval("request.af_"+nl+"_sumaCtas=NroFormat(c_albafras.sumactas,NF9)");
|
|
eval("request.af_"+nl+"_observaciones=StringClip(true,c_albafras.observaciones)");
|
|
eval("request.af_"+nl+"_esnva='0'");
|
|
eval('CursorTabla("ab","nro_reg","=\'"+request.af_'+nl+'_nroreg_albaran+"\'",true,"");');
|
|
eval('request.af_'+nl+'_nif=StringClip(true,c_albaranes.nif)');
|
|
eval('request.af_'+nl+'_nro_pedido=StringClip(true,c_albaranes.nro_pedido)');
|
|
eval('request.af_'+nl+'_cod_centro=StringClip(true,c_albaranes.cod_centro)');
|
|
c_albaranes.close();
|
|
SumaAlbs=SumAlbs+c_albafras.sumactas;
|
|
}
|
|
c_albafras.close()
|
|
|
|
request.SumAlbs=NroFormat(SumAlbs,NF9);
|
|
if (request.lock)
|
|
CursorTabla("acf","nro_reg","=\'"+request.fa_nro_reg+"\'",false,true);
|
|
else
|
|
CursorTabla("acf","nro_reg","=\'"+request.fa_nro_reg+"\'",false,"");
|
|
var SumaDebe=0;
|
|
var SumaHaber=0;
|
|
request.nroctas=0;
|
|
nl=0;
|
|
while (c_aptectasfra.next()) {
|
|
request.nroctas=c_aptectasfra.nro_lin; nl=request.nroctas;
|
|
eval("request.acf_"+nl+"_nro_lin=c_aptectasfra.nro_lin");
|
|
eval("request.acf_"+nl+"_nro_reg=StringClip(true,c_aptectasfra.nro_reg)");
|
|
eval("request.acf_"+nl+"_tipolin=StringClip(true,c_aptectasfra.tipolin)");
|
|
eval("request.acf_"+nl+"_albareg=StringClip(true,c_aptectasfra.albareg)");
|
|
eval("request.acf_"+nl+"_cod_cta=StringClip(true,c_aptectasfra.cod_cta)");
|
|
eval("request.acf_"+nl+"_concepto=StringClip(true,c_aptectasfra.concepto)");
|
|
eval("request.acf_"+nl+"_clave=StringClip(true,c_aptectasfra.clave)");
|
|
eval("request.acf_"+nl+"_importe=NroFormat(c_aptectasfra.importe,NF9);");
|
|
eval("request.acf_"+nl+"_tipo_apte=StringClip(true,c_aptectasfra.tipo_apte)");
|
|
eval("request.acf_"+nl+"_fecha=c_aptectasfra.fecha");
|
|
eval("request.acf_"+nl+"_esnva='0'");
|
|
if ( StringClip(true,c_aptectasfra.tipo_apte) == "D" )
|
|
SumaDebe=SumaDebe+c_aptectasfra.importe;
|
|
if ( StringClip(true,c_aptectasfra.tipo_apte) == "H" )
|
|
SumaHaber=SumaHaber+c_aptectasfra.importe;
|
|
}
|
|
var marca="";
|
|
var nl=0;
|
|
for ( var lin=1 ; lin < 4 ; lin++ ) {
|
|
eval('var fa_Iva=parseInt(NroUnformat(request.fa_iva_'+lin+'))');
|
|
eval('var fa_Ret=parseInt(NroUnformat(request.fa_ret_'+lin+'))');
|
|
eval('var fa_Totaf=parseInt(NroUnformat(request.fa_Totaf_'+lin+'))');
|
|
nl++; paso=false; // Aptes. Proveedor
|
|
eval('if (!request.af_'+nl+'_importe) { paso=true };');
|
|
if ( paso == true ) {
|
|
eval('request.acf_'+nl+'_nro_lin='+nl);
|
|
eval('request.acf_'+nl+'_esnva="0"');
|
|
eval('request.acf_'+nl+'_cod_cta=request.fa_cta_contable');
|
|
eval('request.acf_'+nl+'_tipolin="P'+lin+'"');
|
|
eval('request.acf_'+nl+'_clave=client.pa_clave_cont');
|
|
// eval('request.acf_'+nl+'_concepto=marca;');
|
|
}
|
|
nl++; paso=false; // Aptes. IVA
|
|
eval('if (!request.af_'+nl+'_importe) { paso=true };');
|
|
if ( paso == true ) {
|
|
eval('request.acf_'+nl+'_nro_lin=nl');
|
|
eval('request.acf_'+nl+'_esnva="0"');
|
|
eval('request.acf_'+nl+'_cod_cta=client.pa_cta_iva');
|
|
eval('request.acf_'+nl+'_tipolin="I'+lin+'"');
|
|
eval('request.acf_'+nl+'_clave=client.pa_clave_iva');
|
|
// eval('request.acf_'+nl+'_concepto=marca;');
|
|
}
|
|
nl++; paso=false; // Aptes. Retención
|
|
eval('if (!request.af_'+nl+'_importe) { paso=true };');
|
|
if ( paso == true ) {
|
|
eval('request.acf_'+nl+'_nro_lin=nl');
|
|
eval('request.acf_'+nl+'_esnva="0"');
|
|
eval('request.acf_'+nl+'_tipolin="R'+lin+'"');
|
|
// eval('request.acf_'+nl+'_concepto=marca;');
|
|
if ( request.fa_tipo_retencion== 1 ) {
|
|
eval('request.acf_'+nl+'_cod_cta=client.pa_cta_reten_1');
|
|
eval('request.acf_'+nl+'_clave=client.pa_clave_reten_1');
|
|
} else {
|
|
eval('request.acf_'+nl+'_cod_cta=substCta(request.fa_cta_contable,client.pa_cta_reten_2)');
|
|
eval('request.acf_'+nl+'_clave=client.pa_clave_reten_2');
|
|
}
|
|
}
|
|
marca=marca+"-";
|
|
}
|
|
request.acf_totaldebe=NroFormat(SumaDebe,NF11);
|
|
request.acf_totalhaber=NroFormat(SumaHaber,NF11);
|
|
if (request.nroctas ==0 )
|
|
request.nroctas=1;
|
|
c_aptectasfra.close()
|
|
}
|
|
else {
|
|
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
|
|
IniciaRequest("fa_");
|
|
var n = HOY.getYear();
|
|
if ( n >= 0 && n <= 70 )
|
|
n += 2000;
|
|
else
|
|
n += 1900;
|
|
request.fa_nro_regn="+";
|
|
request.fa_nro_regy=n;
|
|
request.fa_nro_reg="+"+n
|
|
request.fa_tipo_retencion=0;
|
|
request.lock=true;
|
|
request.nroctas=0;
|
|
request.nrolineas=0;
|
|
request.acf_totalhaber=0;
|
|
request.acf_totaldebe=0;
|
|
request.af_total=0;
|
|
request.fa_t_razon_social="";
|
|
request.fa_cta_contable="";
|
|
request.fa_t_des_centro="";
|
|
request.fa_t_nombre_banco="";
|
|
request.fa_t_condpago="";
|
|
request.fa_cp_vto=0;
|
|
request.fa_t_des_pedido="";
|
|
request.fa_SumaBase=0;
|
|
request.fa_SumaIva=0;
|
|
request.fa_SumaRet=0;
|
|
request.fa_Totaf_1=0;
|
|
request.fa_Totaf_2=0;
|
|
request.fa_Totaf_3=0;
|
|
request.fa_Totex=0;
|
|
request.fa_importe_total=0;
|
|
request.fa_SumaImporte=0;
|
|
}
|
|
}
|
|
else if (!request.gofunc) {
|
|
// Se entiende que request contiene todas las columnas necesarias para el form.
|
|
// y que esta llamada es para leer y cargar las claves foráneas de la tabla.
|
|
if (request.nvo && request.fa_nro_reg && request.fa_nro_reg != null && request.fa_nro_regn != "+" ) {
|
|
if ( entriesExist(" from facturas where nro_reg=\'"+StringClip(true,request.fa_nro_reg)+"\'") == true ) {
|
|
ReDirection("alertpage.html?alert=2");
|
|
}
|
|
}
|
|
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=StringClip(false,c_centros.descripcion);
|
|
if ( request.fa_t_des_centro == " " ) {
|
|
request.fa_t_des_centro="NO EXISTE";
|
|
}
|
|
c_centros.close();
|
|
}
|
|
else
|
|
request.fa_t_des_centro="";
|
|
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="";
|
|
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=StringClip(false,c_pedidos.descripcion);
|
|
if ( request.fa_t_des_pedido == " " ) {
|
|
request.fa_t_des_pedido="NO EXISTE";
|
|
}
|
|
else {
|
|
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="";
|
|
}
|
|
}
|
|
writeln('<FORM NAME="f_factura" METHOD="post"');
|
|
if (request.fa_nro_reg && !request.nvo)
|
|
htmlpath="o_factura.html?fa_nro_reg="+escape(request.fa_nro_reg)+"&"+baseHtml;
|
|
else
|
|
htmlpath="o_factura.html?nvo=1&"+baseHtml;
|
|
writeln('action="'+htmlpath+'"');
|
|
writeln(' onSubmit="return Chek_fields(this)">');
|
|
LoadHidden(htmlpath);
|
|
if (!request.waux && request.FrameType == "L" )
|
|
ObjHeadBar(request.fa_nro_reg,"Facturas","fa_");
|
|
writeln('<FONT SIZE=2>');
|
|
if (!request.waux)
|
|
writeln('<CENTER><TABLE BORDER=1 ALIGN=CENTER><TR>');
|
|
else
|
|
writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER><TR>');
|
|
// writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" Código " ONCLICK="w_auxiliar(\'nro_reg\',\'nro_reg\',\'fa_nro_reg\',\''+request.fa_nro_reg+'\')">');
|
|
//else {
|
|
//if (request.waux == 2)
|
|
// writeln('<TD></TD><TD align="right" valign="top"><A HREF="javascript:top.close()"><IMG SRC="images/exit1.gif" BORDER=0 HEIGHT=37 WIDTH=44></A></TD></TR>');
|
|
writeln('<TR><TD ALIGN=RIGHT><B> Nro.Reg.: </B>');
|
|
//}
|
|
if (request.fa_nro_reg && !request.nvo) {
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_nro_regn+'/'+request.fa_nro_regy+'</B></FONT><INPUT type="hidden" name="fa_nro_reg" VALUE="'+request.fa_nro_reg+'"></TD></FONT>');
|
|
writeln('<INPUT type="hidden" name="fa_nro_regn" VALUE="'+request.fa_nro_regn+'">');
|
|
writeln('<INPUT type="hidden" name="fa_nro_regy" VALUE="'+request.fa_nro_regy+'">');
|
|
}
|
|
else {
|
|
writeln('<INPUT TYPE="text" NAME="fa_nro_regn" VALUE="'+request.fa_nro_regn+'" SIZE=5 OnChange="setNroReg(this)">');
|
|
writeln('<INPUT TYPE="text" NAME="fa_nro_regy" VALUE="'+request.fa_nro_regy+'" SIZE=4 OnChange="chkYearNroReg(this);setNroReg(this)">');
|
|
writeln('<INPUT type="hidden" NAME="fa_nro_reg" VALUE="'+request.fa_nro_reg+'"></TD></FONT>');
|
|
}
|
|
if (request.waux || !request.lock) {
|
|
if ( request.fa_is_locked == "S" )
|
|
writeln('<FONT COLOR="#800040">Bloqueada:<B>'+request.fa_is_locked+'</FONT><INPUT type="hidden" name="fa_fecha_emision" VALUE="'+request.fa_is_locked+'" size=1 maxlength=1></TD></FONT></TR>');
|
|
}
|
|
writeln('<INPUT type="hidden" name="fa_is_locked" VALUE="'+request.fa_is_locked+'"></TD></FONT>');
|
|
writeln('<TD ALIGN=RIGHT><B>Contabilizado:</B>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_mes+'</B></FONT><INPUT type="hidden" name="fa_mes" VALUE="'+request.fa_mes+'"></TD></TR>');
|
|
else
|
|
writeln('<INPUT TYPE="text" NAME="fa_mes" VALUE="'+request.fa_mes+'" onChange="ChkMes(this)" SIZE=2" ></TD></TR>');
|
|
|
|
writeln('<TD ALIGN=RIGHT><B>Nro. Fra.:</B>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_nro_fra+'</B></FONT><INPUT type="hidden" name="fa_nro_fra" VALUE="'+request.fa_nro_fra+'"></TD>');
|
|
else
|
|
writeln('<INPUT TYPE="text" NAME="fa_nro_fra" VALUE="'+request.fa_nro_fra+'" SIZE=12" ></TD>');
|
|
if (!request.waux || !request.lock)
|
|
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" N.I.F. " ONCLICK="w_auxiliar(\'proveedor\',\'Proveedores\',\'pr_nif\',\''+StringClip(true,request.fa_nif)+'\')">');
|
|
else
|
|
writeln('<TR><TD ALIGN=RIGHT><B> N.I.F. </B>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_nif+'</B></FONT><INPUT type="hidden" name="fa_nif" VALUE="'+request.fa_nif+'"></TD>');
|
|
else
|
|
writeln('<INPUT TYPE="text" NAME="fa_nif" VALUE="'+request.fa_nif+'" SIZE=12 OnChange="this.value=this.value.toUpperCase();RePaint(this)" ></TD>');
|
|
if (request.fa_t_razon_social == "NO EXISTE")
|
|
writeln('<TD ALIGN=LEFT><BLINK><FONT COLOR="#800040">'+request.fa_t_razon_social+'</FONT></BLINK>');
|
|
else
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_razon_social+'</FONT>');
|
|
writeln('<INPUT type="hidden" name="fa_t_razon_social" VALUE="'+request.fa_t_razon_social+'">');
|
|
writeln('<INPUT type="hidden" name="fa_cta_contable" VALUE="'+request.fa_cta_contable+'"></TD></TR>');
|
|
if (!request.waux || !request.lock)
|
|
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="Centro" ONCLICK="w_auxiliar(\'centro\',\'Centros\',\'ce_cod_centro\',\''+StringClip(true,request.fa_cod_centro)+'\')">');
|
|
else
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Centro</B>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_centro+'</B></FONT><INPUT TYPE="hidden" NAME="fa_cod_centro" VALUE="'+request.fa_cod_centro+'" SIZE=12 OnChange="RePaint(this)"> </TD>');
|
|
else
|
|
writeln('<INPUT TYPE="text" NAME="fa_cod_centro" VALUE="'+request.fa_cod_centro+'" SIZE=12 OnChange="RePaint(this)"> </TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_des_centro+'</FONT></TD>');
|
|
if (!request.waux || !request.lock)
|
|
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="Pedido" ONCLICK="w_auxiliar(\'pedido\',\'Pedidos\',\'pe_nro_pedido\',\''+StringClip(true,request.fa_nro_pedido)+'\')">');
|
|
else
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Pedido</B>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_nro_pedido+'</B></FONT><INPUT TYPE="hidden" NAME="fa_nro_pedio" VALUE="'+request.fa_nro_pedido+'" SIZE=12 maxlength=20 OnChange="RePaint(this)"> </TD>');
|
|
else
|
|
writeln('<INPUT TYPE="text" NAME="fa_nro_pedido" VALUE="'+request.fa_nro_pedido+'" SIZE=12 MAXLENGTH=20 OnChange="RePaint(this)"> </TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_des_pedido+'</FONT></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TR><TD ALIGN=RIGHT><B>C.Pago</B>');
|
|
else {
|
|
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="C.Pago" ');
|
|
writeln(' ONCLICK="w_auxiliar(\'condpago\',\'Condiciones_Pago\',\'cp_cond_pago\',\''+StringClip(true,request.fa_cond_pago)+'\')">');
|
|
}
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_cond_pago+'</B></FONT><INPUT TYPE="hidden" NAME="fa_cond_pago" VALUE="'+request.fa_cond_pago+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
|
|
else
|
|
writeln('<INPUT TYPE="text" NAME="fa_cond_pago" VALUE="'+request.fa_cond_pago+'" SIZE=4 OnChange="RePaint(this)">');
|
|
writeln('<INPUT type="hidden" NAME="fa_cp_vto" VALUE="'+request.fa_cp_vto+'" SIZE=2 maxlength=2 ></TD>');
|
|
writeln('<TD><FONT COLOR="#800040">'+request.fa_t_condpago+'</FONT></TD></TR>');
|
|
writeln('<TD ALIGN=RIGHT><B>Tipo Doc. Pago:</B></TD>');
|
|
if (request.waux || !request.lock) {
|
|
if (request.fa_tipo_doc_pago=="1")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Pagaré </B></FONT>');
|
|
if (request.fa_tipo_doc_pago=="2")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Talón </B></FONT>');
|
|
if (request.fa_tipo_doc_pago=="3")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Compensación </B></FONT>');
|
|
if (request.fa_tipo_doc_pago=="4")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Domiciliación </B></FONT>');
|
|
writeln('<INPUT TYPE="hidden" NAME="fa_tipo_doc_pago" VALUE="'+request.fa_tipo_doc_pago+'"></TD>');
|
|
}
|
|
else {
|
|
if (request.fa_tipo_doc_pago=="1")
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_doc_pago" OnChange="//" SIZE=1><OPTION VALUE="1" SELECTED> Pagaré <OPTION VALUE="2"> Talón Bancario <OPTION VALUE="3"> Compensación <OPTION VALUE="4"> Domiciliación </SELECT></TD>');
|
|
if (request.fa_tipo_doc_pago=="2")
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_doc_pago" OnChange="//" SIZE=1><OPTION VALUE="1"> Pagaré <OPTION VALUE="2" SELECTED> Talón Bancario <OPTION VALUE="3"> Compensación <OPTION VALUE="4"> Domiciliación </SELECT></TD>');
|
|
if (request.fa_tipo_doc_pago=="3")
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_doc_pago" OnChange="//" SIZE=1><OPTION VALUE="1"> Pagaré <OPTION VALUE="2"> Talón Bancario <OPTION VALUE="3" SELECTED> Compensación <OPTION VALUE="4"> Domiciliación </SELECT></TD>');
|
|
if (request.fa_tipo_doc_pago=="4")
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_doc_pago" OnChange="//" SIZE=1><OPTION VALUE="1"> Pagaré <OPTION VALUE="2"> Talón Bancario <OPTION VALUE="3"> Compensación <OPTION VALUE="4" SELECTED> Domiciliación </SELECT></TD>');
|
|
}
|
|
writeln('</TR><TD ALIGN=RIGHT><B>Fecha Emisión:</B>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_f_emision+'</FONT><INPUT type="hidden" name="fa_f_emision" VALUE="'+request.fa_f_emision+'" size=8 maxlength=8></TD></FONT></TR>');
|
|
else
|
|
writeln('<INPUT type="text" name="fa_f_emision" VALUE="'+request.fa_f_emision+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" size=8 maxlength=8></TD></TR>');
|
|
writeln('<TD ALIGN=RIGHT><B>Fecha Recepción:</B>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_f_recepcion+'</FONT><INPUT type="hidden" name="fa_f_recepcion" VALUE="'+request.fa_f_recepcion+'" size=8 maxlength=8></TD></FONT>');
|
|
else
|
|
writeln('<INPUT type="text" name="fa_f_recepcion" VALUE="'+request.fa_f_recepcion+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" onChange="setFechaPago(this)" onBlur="setFechaPago(this)" size=8 maxlength=8></TD>');
|
|
var valor=parseInt(request.fa_cp_vto)+4;
|
|
if ( valor > 0 && valor != 4 ) {
|
|
writeln('<TD ALIGN=RIGHT><B>Fecha Pago:</B>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_f_pago+'</FONT><INPUT type="hidden" name="fa_f_pago" VALUE="'+request.fa_f_pago+'" size=8 maxlength=8></TD></FONT></TR>');
|
|
else
|
|
writeln('<INPUT type="text" name="fa_f_pago" VALUE="'+request.fa_f_pago+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" size=8 maxlength=8></TD></TR>');
|
|
} else
|
|
writeln('<INPUT type="hidden" name="fa_f_pago" VALUE="'+request.fa_f_pago+'" size=8 maxlength=8></TD></TR>');
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Tipo de Factura:</B>');
|
|
if (request.waux || !request.lock) {
|
|
if (request.fa_tipo_fra=="1")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> De Albarán Interno </B></FONT>');
|
|
if (request.fa_tipo_fra=="2")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Devolución Retención </B></FONT>');
|
|
if (request.fa_tipo_fra=="4")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sin Albaranes </B></FONT>');
|
|
writeln('<INPUT TYPE="hidden" NAME="fa_tipo_fra" VALUE="'+request.fa_tipo_fra+'"></TD>');
|
|
}
|
|
else {
|
|
if (request.fa_tipo_fra=="1")
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_fra" OnChange="setTipoFra(this)" SIZE=1><OPTION VALUE="1" SELECTED>De Albarán Interno<OPTION VALUE="4"> Sin Albaranes<OPTION VALUE="2"> Devolución Retención</SELECT></TD>');
|
|
if (request.fa_tipo_fra=="2")
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_fra" OnChange="setTipoFra(this)" SIZE=1><OPTION VALUE="1">De Albarán Interno<OPTION VALUE="4"> Sin Albaranes<OPTION VALUE="2" SELECTED> Devolución Retención</SELECT></TD>');
|
|
if (request.fa_tipo_fra=="4")
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_fra" OnChange="setTipoFra(this)" SIZE=1><OPTION VALUE="1">De Albarán Interno<OPTION VALUE="4" SELECTED> Sin Albaranes<OPTION VALUE="2"> Devolución Retención</SELECT></TD>');
|
|
}
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Retenciones:</B>');
|
|
if (request.waux || !request.lock) {
|
|
if (request.fa_tipo_retencion=="0")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sin Retencion </B></FONT>');
|
|
if (request.fa_tipo_retencion=="1")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> I.R.P.F. </B></FONT>');
|
|
if (request.fa_tipo_retencion=="2")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Por Garantía </B></FONT>');
|
|
writeln('<INPUT TYPE="hidden" NAME="fa_tipo_retencion" VALUE="'+request.fa_tipo_retencion+'"></TD>');
|
|
}
|
|
else {
|
|
if (request.fa_tipo_retencion=="0")
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_retencion" OnChange="setTipoReten(this)" SIZE=1><OPTION VALUE="0" SELECTED>Sin Retención<OPTION VALUE="2">Por Garantía<OPTION VALUE="1">I.R.P.F.</SELECT></TD>');
|
|
if (request.fa_tipo_retencion=="1")
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_retencion" OnChange="setTipoReten(this)" SIZE=1><OPTION VALUE="0" >Sin Retención<OPTION VALUE="1" SELECTED>I.R.P.F.<OPTION VALUE="2"> Por Garantía</SELECT></TD>');
|
|
if (request.fa_tipo_retencion=="2")
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_retencion" OnChange="setTipoReten(this)" SIZE=1><OPTION VALUE="0" >Sin Retención<OPTION VALUE="2" SELECTED>Por Garantía<OPTION VALUE="1">I.R.P.F.</SELECT></TD>');
|
|
}
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Cálculo IVA:</B>');
|
|
if (request.waux || !request.lock) {
|
|
if (request.fa_tipo_calc_iva=="1")
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sobre Base </B></FONT>');
|
|
else
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sobre Base - Retención </B></FONT>');
|
|
writeln('<INPUT TYPE="hidden" NAME="fa_tipo_calc_iva" VALUE="'+request.fa_tipo_calc_iva+'"></TD>');
|
|
}
|
|
else {
|
|
if (request.fa_tipo_calc_iva=="1")
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_calc_iva" OnChange="setTipoCalc(this)" SIZE=1><OPTION VALUE="1" SELECTED>Base<OPTION VALUE="2"> Base - Retención</SELECT></TD>');
|
|
else
|
|
writeln('<TD ALIGN=LEFT><SELECT NAME="fa_tipo_calc_iva" OnChange="setTipoCalc(this)" SIZE=1><OPTION VALUE="1">Base<OPTION VALUE="2" SELECTED> Base - Retención </SELECT></TD>');
|
|
}
|
|
writeln('</TABLE>');
|
|
writeln('<CENTER>');
|
|
writeln('<TABLE BORDER=1 >');
|
|
writeln('<TR>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD><B>Lin</B></TD>');
|
|
writeln('<TD><B> Base Imponible </B> </TD>');
|
|
if (!request.waux && request.lock)
|
|
writeln('<TD></TD>');
|
|
writeln('<TD><B>%Ret</B></TD>');
|
|
writeln('<TD ALIGN=CENTER><B> Imp. Ret </B> </TD>');
|
|
writeln('<TD><B>%IVA</B></TD>');
|
|
writeln('<TD ALIGN=CENTER><B> Imp. IVA </B> </TD>');
|
|
writeln('<TD ALIGN=CENTER><B>T O T A L</B> </TD>');
|
|
writeln('</TR><TR>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TR><TD><b>1.-</b></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_base_1+'</B></FONT><INPUT TYPE="hidden" NAME="fa_base_1" VALUE="'+request.fa_base_1+'" SIZE=14> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_base_1" VALUE="'+request.fa_base_1+'" onChange="CheckBase(this,1);SumaImportes(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=14 ></TD>');
|
|
if (!request.waux && request.lock)
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="button" VALUE="1.-" ONCLICK="GoLineas(this)"></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_ret1+'</FONT><INPUT type="hidden" name="fa_por_ret1" VALUE="'+request.fa_por_ret1+'" size=2 maxlength=2></FONT></TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT type="text" name="fa_por_ret1" VALUE="'+request.fa_por_ret1+'" onBlur="NroToString(this,NF2)" onFocus="tipoSinRet(1);StringToNro(this,NF2)" size=2 maxlength=2></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_ret_1+'</B></FONT><INPUT TYPE="hidden" NAME="fa_iva_1" VALUE="'+request.fa_ret_1+'" SIZE=11> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_ret_1" VALUE="'+request.fa_ret_1+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF9)" onFocus="DefaultRet(this,1);StringToNro(this,NF9)" SIZE=11 ></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_iva1+'</B></FONT><INPUT TYPE="hidden" NAME="fa_por_iva1" VALUE="'+request.fa_por_iva1+'" SIZE=2> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_por_iva1" VALUE="'+request.fa_por_iva1+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2 ></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_iva_1+'</B></FONT><INPUT TYPE="hidden" NAME="fa_iva_1" VALUE="'+request.fa_iva_1+'" SIZE=11> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_iva_1" VALUE="'+request.fa_iva_1+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF9)" onFocus="DefaultIVA(this,1);StringToNro(this,NF9)" SIZE=11 ></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totaf_1+'</B></FONT><INPUT TYPE="hidden" NAME="fa_Totaf_1" VALUE="'+request.fa_Totaf_1+'" SIZE=16> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_Totaf_1" VALUE="'+request.fa_Totaf_1+'" onChange="SumaImportes(this)"onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=16 ></TD>');
|
|
writeln('</TR><TR>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD><b>2.-</b></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_base_2+'</B></FONT><INPUT TYPE="hidden" NAME="fa_base_2" VALUE="'+request.fa_base_2+'" SIZE=14> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_base_2" VALUE="'+request.fa_base_2+'" onChange="CheckBase(this,2);SumaImportes(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=14 ></TD>');
|
|
if (!request.waux && request.lock)
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="button" VALUE="2.-" ONCLICK="GoLineas(this)"></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_ret2+'</FONT><INPUT type="hidden" name="fa_por_ret2" VALUE="'+request.fa_por_ret2+'" size=2 maxlength=2></FONT></TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT type="text" name="fa_por_ret2" VALUE="'+request.fa_por_ret2+'" onBlur="NroToString(this,NF2)" onFocus="tipoSinRet(2);StringToNro(this,NF2)" size=2 maxlength=2></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_ret_2+'</B></FONT><INPUT TYPE="hidden" NAME="fa_iva_1" VALUE="'+request.fa_ret_1+'" SIZE=11> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_ret_2" VALUE="'+request.fa_ret_2+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF9)" onFocus="DefaultRet(this,2);StringToNro(this,NF9)" SIZE=11 ></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_iva2+'</B></FONT><INPUT TYPE="hidden" NAME="fa_por_iva2" VALUE="'+request.fa_por_iva2+'" SIZE=2> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_por_iva2" VALUE="'+request.fa_por_iva2+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2 ></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_iva_2+'</B></FONT><INPUT TYPE="hidden" NAME="fa_iva_2" VALUE="'+request.fa_iva_2+'" SIZE=11"> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_iva_2" VALUE="'+request.fa_iva_2+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF9)" onFocus="DefaultIVA(this,2);StringToNro(this,NF9)" SIZE=11 ></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totaf_2+'</B></FONT><INPUT TYPE="hidden" NAME="fa_Totaf_2" VALUE="'+request.fa_Totaf_2+'" SIZE=16"> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_Totaf_2" VALUE="'+request.fa_Totaf_2+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=16 ></TD>');
|
|
writeln('</TR><TR>');
|
|
if (request.waux || !request.lock)
|
|
writeln('</TR><TR><TD><b>3.-</b></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_base_3+'</B></FONT><INPUT TYPE="hidden" NAME="fa_base_3" VALUE="'+request.fa_base_3+'" SIZE=14> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_base_3" VALUE="'+request.fa_base_3+'" onChange="CheckBase(this,3);SumaImportes(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=14 ></TD>');
|
|
if (!request.waux && request.lock)
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="button" VALUE="3.-" ONCLICK="GoLineas(this)"></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_ret3+'</FONT><INPUT type="hidden" name="fa_por_ret3" VALUE="'+request.fa_por_ret3+'" size=2 maxlength=2></FONT></TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT type="text" name="fa_por_ret3" VALUE="'+request.fa_por_ret3+'" onBlur="NroToString(this,NF2)" onFocus="tipoSinRet(1);StringToNro(this,NF2)" size=2 maxlength=2></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_ret_3+'</B></FONT><INPUT TYPE="hidden" NAME="fa_ret_3" VALUE="'+request.fa_ret_3+'" SIZE=11> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_ret_3" VALUE="'+request.fa_ret_3+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF9)" onFocus="DefaultRet(this,3);StringToNro(this,NF9)" SIZE=11 ></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_iva3+'</B></FONT><INPUT TYPE="hidden" NAME="fa_por_iva3" VALUE="'+request.fa_por_iva3+'" SIZE=2> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_por_iva3" VALUE="'+request.fa_por_iva3+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF2)" onFocus="StringToNro(this,NF2)" SIZE=2 ></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_iva_3+'</B></FONT><INPUT TYPE="hidden" NAME="fa_iva_3" VALUE="'+request.fa_iva_3+'" SIZE=11> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_iva_3" VALUE="'+request.fa_iva_3+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF9)" onFocus="DefaultIVA(this,3);StringToNro(this,NF9)" SIZE=11 ></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totaf_3+'</B></FONT><INPUT TYPE="hidden" NAME="fa_Totaf_3" VALUE="'+request.fa_Totaf_3+'" SIZE=16"> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_Totaf_3" VALUE="'+request.fa_Totaf_3+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=16 ></TD>');
|
|
writeln('</TR><TR>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD><b>Ex.</b></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_canexen+'</B></FONT><INPUT TYPE="hidden" NAME="fa_canexen" VALUE="'+request.fa_canexen+'" SIZE=14 ></TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_canexen" VALUE="'+request.fa_canexen+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=14 ></TD>');
|
|
if (!request.waux && request.lock)
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="button" VALUE="E.-" ONCLICK="GoLineas(this)"></TD>');
|
|
writeln('<TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD><TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totex+'</B></FONT><INPUT TYPE="hidden" NAME="fa_Totex" VALUE="'+request.fa_Totex+'" SIZE=16> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_Totex" VALUE="'+request.fa_Totex+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=16 ></TD>');
|
|
writeln('</TR><TR>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD><b>Tot.</b><TD');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaBase+'</B></FONT><INPUT TYPE="hidden" NAME="fa_SumaBase" VALUE="'+request.fa_SumaBase+'" SIZE=14> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=RIGHT><INPUT TYPE="text" NAME="fa_SumaBase" VALUE="'+request.fa_SumaBase+'" onChange="SumaImportes(this)" SIZE=14 ></TD>');
|
|
if (!request.waux && request.lock)
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="button" VALUE="T.-" ONCLICK="GoLineas(this)"></TD>');
|
|
writeln('<TD ALIGN=CENTER>---</TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaRet+'</B></FONT><INPUT TYPE="hidden" NAME="fa_SumaRet" VALUE="'+request.fa_SumaRet+'" SIZE=11> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_SumaRet" VALUE="'+request.fa_SumaRet+'" onChange="SumaImportes(this)" SIZE=11 ></TD>');
|
|
writeln('<TD ALIGN=CENTER>---</TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaIva+'</B></FONT><INPUT TYPE="hidden" NAME="fa_SumaIva" VALUE="'+request.fa_SumaIva+'" SIZE=11> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_SumaIva" VALUE="'+request.fa_SumaIva+'" onChange="SumaImportes(this)" SIZE=11 ></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaImporte+'</B></FONT><INPUT TYPE="hidden" NAME="fa_SumaImporte" VALUE="'+request.fa_SumaImporte+'" SIZE=16> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_SumaImporte" VALUE="'+request.fa_SumaImporte+'" onChange="SumaImportes(this)" SIZE=16 ></TD>');
|
|
writeln('</TR><TR>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD><B>Ded:</B></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_tipo_deduccion+'</FONT><INPUT type="hidden" name="fa_tipo_deduccion" VALUE="'+request.fa_tipo_deduccion+'" size=2 maxlength=2></FONT></TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT type="text" name="fa_tipo_deduccion" VALUE="'+request.fa_tipo_deduccion+'" size=2 maxlength=2></TD>');
|
|
if (!request.waux && request.lock)
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="button" VALUE="D.-" ONCLICK="GoLineas(this)"></TD>');
|
|
writeln('<TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD><TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_deducciones+'</FONT><INPUT type="hidden" name="fa_deducciones" VALUE="'+request.fa_deducciones+'" size=16 maxlength=16></TD></FONT></TR>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT type="text" name="fa_deducciones" VALUE="'+request.fa_deducciones+'" onChange="SumaImportes(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" size=16 maxlength=16></TD></TR>');
|
|
writeln('</TR><TR>');
|
|
writeln('<TD><b>Totales</b></TD>');
|
|
writeln('<TD></TD>');
|
|
writeln('<TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD><TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_importe_total+'</B></FONT><INPUT TYPE="hidden" NAME="fa_importe_total" VALUE="'+request.fa_importe_total+'" SIZE=16> </TD>');
|
|
else
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="text" NAME="fa_importe_total" VALUE="'+request.fa_importe_total+'" onChange="SumaImportes(this)" SIZE=16 ></TD>');
|
|
writeln('</TR></TABLE>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<A NAME="lin-ctas"></A>');
|
|
else
|
|
writeln('<A NAME="lin-ctas"><CENTER><H2><FONT COLOR="#800040"> Apuntes Contables </FONT></H2></CENTER><A>');
|
|
// Hay que preparar una línea para cada base y revisar ....
|
|
var fa_Importe=parseInt(NroUnformat(request.fa_importe_total));
|
|
if ( request.nroctas < 2 && request.fa_cta_contable.length > 0 ) {
|
|
var marca="";
|
|
var nl=0;
|
|
for ( var lin=1 ; lin < 4 ; lin++ ) {
|
|
eval('var fa_Iva=parseInt(NroUnformat(request.fa_iva_'+lin+'))');
|
|
eval('var fa_Ret=parseInt(NroUnformat(request.fa_ret_'+lin+'))');
|
|
eval('var fa_Totaf=parseInt(NroUnformat(request.fa_Totaf_'+lin+'))');
|
|
nl++; // Aptes. Proveedor
|
|
eval('request.acf_'+nl+'_nro_lin='+nl);
|
|
eval('request.acf_'+nl+'_esnva="0"');
|
|
eval('request.acf_'+nl+'_cod_cta=request.fa_cta_contable');
|
|
eval('request.acf_'+nl+'_tipolin="P'+lin+'"');
|
|
eval('request.acf_'+nl+'_clave=client.pa_clave_cont');
|
|
eval('request.acf_'+nl+'_concepto=marca;');
|
|
if ( fa_Totaf < 0 ) {
|
|
eval('request.acf_'+nl+'_concepto="A"+marca;');
|
|
eval('request.acf_'+nl+'_importe=NroFormat(fa_Totaf*-1,NF9)');
|
|
eval('request.acf_'+nl+'_tipo_apte="D"');
|
|
}
|
|
if ( fa_Totaf > 0 ) {
|
|
eval('request.acf_'+nl+'_concepto=marca;');
|
|
eval('request.acf_'+nl+'_importe=NroFormat(fa_Totaf,NF9)');
|
|
eval('request.acf_'+nl+'_tipo_apte="H"');
|
|
}
|
|
nl++; // Aptes. IVA
|
|
eval('request.acf_'+nl+'_nro_lin=nl');
|
|
eval('request.acf_'+nl+'_esnva="0"');
|
|
eval('request.acf_'+nl+'_cod_cta=client.pa_cta_iva');
|
|
eval('request.acf_'+nl+'_tipolin="I'+lin+'"');
|
|
eval('request.acf_'+nl+'_clave=client.pa_clave_iva');
|
|
eval('request.acf_'+nl+'_concepto=marca;');
|
|
if ( fa_Iva < 0 ) {
|
|
eval('request.acf_'+nl+'_concepto="A"+marca;');
|
|
eval('request.acf_'+nl+'_tipo_apte="H";');
|
|
eval('request.acf_'+nl+'_importe=NroFormat(fa_Iva*-1,NF9);');
|
|
}
|
|
if ( fa_Iva > 0 ) {
|
|
eval('request.acf_'+nl+'_concepto=marca;');
|
|
eval('request.acf_'+nl+'_tipo_apte="D"');
|
|
eval('request.acf_'+nl+'_importe=NroFormat(fa_Iva,NF9);');
|
|
}
|
|
nl++; // Aptes. Retención
|
|
eval('request.acf_'+nl+'_nro_lin=nl');
|
|
eval('request.acf_'+nl+'_esnva="0"');
|
|
eval('request.acf_'+nl+'_tipolin="R'+lin+'"');
|
|
eval('request.acf_'+nl+'_concepto=marca;');
|
|
if ( request.fa_tipo_retencion== 1 ) {
|
|
eval('request.acf_'+nl+'_cod_cta=client.pa_cta_reten_1');
|
|
eval('request.acf_'+nl+'_clave=client.pa_clave_reten_1');
|
|
} else {
|
|
eval('request.acf_'+nl+'_cod_cta=substCta(request.fa_cta_contable,client.pa_cta_reten_2)');
|
|
eval('request.acf_'+nl+'_clave=client.pa_clave_reten_2');
|
|
}
|
|
if ( fa_Ret < 0 ) {
|
|
eval('request.acf_'+nl+'_concepto="A"+marca;');
|
|
eval('request.acf_'+nl+'_tipo_apte="D";');
|
|
eval('request.acf_'+nl+'_importe=NroFormat(fa_Ret*-1,NF9);');
|
|
}
|
|
if ( fa_Ret > 0 ) {
|
|
eval('request.acf_'+nl+'_concepto=marca;');
|
|
eval('request.acf_'+nl+'_tipo_apte="H"');
|
|
eval('request.acf_'+nl+'_importe=NroFormat(fa_Ret,NF9);');
|
|
}
|
|
marca=marca+"-";
|
|
}
|
|
// Devolución de Retención
|
|
if (request.fa_tipo_fra=="2") {
|
|
nl++;
|
|
marca="";
|
|
eval('request.acf_'+nl+'_nro_lin=nl');
|
|
eval('request.acf_'+nl+'_esnva="0"');
|
|
eval('request.acf_'+nl+'_tipolin="G0"');
|
|
eval('request.acf_'+nl+'_cod_cta=substCta(request.fa_cta_contable,client.pa_cta_reten_2)');
|
|
eval('request.acf_'+nl+'_clave=client.pa_clave_reten_2');
|
|
if ( request.fa_importe_total < 0 ) {
|
|
eval('request.acf_'+nl+'_concepto="A"+marca;');
|
|
eval('request.acf_'+nl+'_importe=NroFormat(request.fa_importe_total*-1,NF9)');
|
|
eval('request.acf_'+nl+'_tipo_apte="H"');
|
|
}
|
|
if ( request.fa_importe_total > 0 ) {
|
|
eval('request.acf_'+nl+'_concepto=marca;');
|
|
eval('request.acf_'+nl+'_importe=NroFormat(request.fa_importe_total,NF9)');
|
|
eval('request.acf_'+nl+'_tipo_apte="D"');
|
|
}
|
|
}
|
|
request.nroctas=nl;
|
|
// if ( request.Act )
|
|
request.nroctas++;
|
|
}
|
|
if ( request.nroctas == 0 )
|
|
writeln('<INPUT TYPE="hidden" NAME="nroctas" VALUE="0" SIZE=2 >');
|
|
var SumaDebe=0;
|
|
var SumaHaber=0;
|
|
if ( request.nroctas > 0 ){
|
|
for (var nl=1; nl <= request.nrolineas; nl++) {
|
|
eval('if (request.af_'+nl+'_esnva == "1") { ctasAlbtoFra(nl,request.nroctas); }');
|
|
}
|
|
writeln('<INPUT TYPE="hidden" NAME="nroctas" VALUE="'+request.nroctas+'" SIZE=2 >');
|
|
writeln('<TABLE BORDER=1 ALIGN=CENTER>');
|
|
writeln('<TR><TD ALIGN=CENTER><B>N.</B> </TD>');
|
|
// writeln('<TD ALIGN=CENTER><B>T.</B> </TD>');
|
|
if (!request.waux && request.lock) {
|
|
writeln('<TD><INPUT TYPE="button" VALUE="Cta. Cont." ');
|
|
writeln(' ONCLICK="w_auxiliar(\'ctascont\',\'Cuentas_Contables\',\'ct_cta_contable\',\'\')"></TD>');
|
|
} else
|
|
writeln('<TD ALIGN=CENTER><B>Cuenta</B></TD>');
|
|
writeln('<TD ALIGN=CENTER><B>Título Cuenta</B></TD>');
|
|
if (request.waux || !request.lock ) {
|
|
writeln('<TD ALIGN=CENTER><B>Debe</B> </TD>');
|
|
writeln('<TD ALIGN=CENTER><B>Haber</B> </TD>');
|
|
} else {
|
|
writeln('<TD ALIGN=CENTER><B>Importe</B> </TD>');
|
|
writeln('<TD ALIGN=CENTER><B>Tipo Ap.</B> </TD>');
|
|
}
|
|
writeln('<TD><B>Clave</B></TD>');
|
|
writeln('<TD ALIGN=CENTER><B>Concepto</B> </TD>');
|
|
var lin=0;
|
|
for (var nl=1; nl <= request.nroctas ; nl++) {
|
|
eval('if (!request.acf_'+nl+'_esnva) { request.acf_'+nl+'_esnva="0"}');
|
|
eval('if (!request.acf_'+nl+'_nro_lin) { request.acf_'+nl+'_nro_lin='+nl+'}');
|
|
eval('if (!request.acf_'+nl+'_cod_cta) { request.acf_'+nl+'_cod_cta=""; request.acf_'+nl+'_t_cta_contable=""};');
|
|
eval('if (!request.acf_'+nl+'_clave){ request.acf_'+nl+'_clave=""};');
|
|
eval('if (!request.acf_'+nl+'_concepto){ request.acf_'+nl+'_concepto=""};');
|
|
eval('if (!request.acf_'+nl+'_tipo_apte){ request.acf_'+nl+'_tipo_apte=""};');
|
|
eval('if (!request.acf_'+nl+'_albareg){ request.acf_'+nl+'_albareg=""};');
|
|
eval('if (!request.acf_'+nl+'_importe) { request.acf_'+nl+'_importe=0};');
|
|
eval('if (!request.acf_'+nl+'_tipolin) { request.acf_'+nl+'_tipolin="G"};');
|
|
eval("var nro=parseInt(NroUnformat(request.acf_"+nl+"_importe))")
|
|
if ( nro == 0 && nl < 10 ) {
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_nro_lin" VALUE="\'+request.acf_'+nl+'_nro_lin+\'" SIZE=2 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_esnva" VALUE="\'+request.acf_'+nl+'_esnva+\'" SIZE=1 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_albareg" VALUE="\'+request.acf_'+nl+'_albareg+\'" SIZE=10 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_tipolin" VALUE="\'+request.acf_'+nl+'_tipolin+\'" SIZE=1 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_cod_cta" VALUE="\'+request.acf_'+nl+'_cod_cta+\'" SIZE=12 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_t_cta_contable" VALUE="\'+request.acf_'+nl+'_t_cta_contable+\'" SIZE=30 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_importe" VALUE="\'+request.acf_'+nl+'_importe+\'" SIZE=11 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_tipo_apte" VALUE="\'+request.acf_'+nl+'_tipo_apte+\'" SIZE=1 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_clave" VALUE="\'+request.acf_'+nl+'_clave+\'" SIZE=3 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_concepto" VALUE="\'+request.acf_'+nl+'_concepto+\'" SIZE=12 maxlength=35 >\');');
|
|
//writeln("</TR>");
|
|
continue;
|
|
}
|
|
lin++;
|
|
writeln('<TR><TD><FONT COLOR="#800040"><B>'+lin+'</B></FONT>')
|
|
// eval('writeln(\'<TR><TD><FONT COLOR="#800040"><B>\'+request.acf_'+nl+'_nro_lin+\'</B></FONT>\');');
|
|
eval('var albareg=request.acf_'+nl+'_albareg;');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_nro_lin" VALUE="\'+request.acf_'+nl+'_nro_lin+\'" SIZE=2 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_esnva" VALUE="\'+request.acf_'+nl+'_esnva+\'" SIZE=1 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_albareg" VALUE="\'+albareg+\'" SIZE=10 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_tipolin" VALUE="\'+request.acf_'+nl+'_tipolin+\'" SIZE=1 ></TD>\');');
|
|
if (request.waux || !request.lock || !isWhitespace(albareg))
|
|
eval('writeln(\'<TD ALIGN=CENTER>\'+request.acf_'+nl+'_cod_cta+\'<FONT COLOR="#800040"><B><INPUT TYPE="hidden" NAME="acf_'+nl+'_cod_cta" VALUE="\'+request.acf_'+nl+'_cod_cta+\'" SIZE=12 ></TD>\');');
|
|
else
|
|
eval('writeln(\'<TD ALIGN=CENTER><INPUT TYPE="text" NAME="acf_'+nl+'_cod_cta" VALUE="\'+request.acf_'+nl+'_cod_cta+\'" OnChange="ChkLinCta('+nl+');CtaNroPad(this);RePaint(this)" SIZE='+client.pa_longcta+' ></TD>\');');
|
|
eval('valor=request.acf_'+nl+'_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=" "
|
|
}
|
|
eval('request.acf_'+nl+'_t_cta_contable=texto;');
|
|
eval('writeln(\'<TD><FONT COLOR="#800040">\'+request.acf_'+nl+'_t_cta_contable+\'</FONT></TD>\');');
|
|
eval('if (request.acf_'+nl+'_tipo_apte == "H") {SumaHaber=SumaHaber+nro} else {SumaDebe=SumaDebe+nro}');
|
|
if (request.waux || !request.lock || !isWhitespace(albareg)) {
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="acf_'+nl+'_tipo_apte" VALUE="\'+request.acf_'+nl+'_tipo_apte+\'" SIZE=1 >\');');
|
|
if (request.waux || !request.lock ) {
|
|
eval('if (request.acf_'+nl+'_tipo_apte == "H") {writeln(\'<TD ALIGN=CENTER>-</TD>\')}');
|
|
eval('writeln(\'<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>\'+request.acf_'+nl+'_importe+\'</B></FONT><INPUT TYPE="hidden" NAME="acf_'+nl+'_importe" VALUE="\'+request.acf_'+nl+'_importe+\'" SIZE=11 ></TD>\');');
|
|
eval('if (request.acf_'+nl+'_tipo_apte == "D") {writeln(\'<TD ALIGN=CENTER>-</TD>\')}');
|
|
} else {
|
|
eval('writeln(\'<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>\'+request.acf_'+nl+'_importe+\'</B></FONT><INPUT TYPE="hidden" NAME="acf_'+nl+'_importe" VALUE="\'+request.acf_'+nl+'_importe+\'" SIZE=11 ></TD>\');');
|
|
eval('writeln(\'<TD ALIGN=CENTER><FONT COLOR="#800040"><B>\'+request.acf_'+nl+'_tipo_apte+\'</B></FONT></TD>\');');
|
|
}
|
|
} else {
|
|
eval('writeln(\'<TD><INPUT TYPE="text" NAME="acf_'+nl+'_importe" VALUE="\'+request.acf_'+nl+'_importe+\'" OnChange="ChkLinCta('+nl+');SumaCtas(this)" onBlur="NroToString(this,NF9);" onFocus="StringToNro(this,NF9)" SIZE=11 ></TD>\');');
|
|
eval('if (request.acf_'+nl+'_tipo_apte == "H") {writeln(\'<TD><SELECT NAME="acf_'+nl+'_tipo_apte" OnChange="ChkLinCta('+nl+');SumaCtas(this)" SIZE=1><OPTION VALUE="H" SELECTED>Haber<OPTION VALUE="D">Debe</SELECT></TD>\')} else {writeln(\'<TD><SELECT NAME="acf_'+nl+'_tipo_apte" OnChange="ChkLinCta('+nl+');SumaCtas(this)" SIZE=1><OPTION VALUE="D" SELECTED>Debe<OPTION VALUE="H">Haber</SELECT></TD>\')}');
|
|
}
|
|
if (request.waux || !request.lock || !isWhitespace(albareg))
|
|
eval('writeln(\'<TD ALIGN=CENTER>\'+request.acf_'+nl+'_clave+\'<FONT COLOR="#800040"><B><INPUT TYPE="hidden" NAME="acf_'+nl+'_clave" VALUE="\'+request.acf_'+nl+'_clave+\'" SIZE=3 ></TD>\');');
|
|
else
|
|
eval('writeln(\'<TD ALIGN=CENTER><INPUT TYPE="text" NAME="acf_'+nl+'_clave" VALUE="\'+request.acf_'+nl+'_clave+\'" OnFocus="ChkLinCta('+nl+');//RePaint(this)" SIZE=3 ></TD>\');');
|
|
if (request.waux || !request.lock || !isWhitespace(albareg))
|
|
eval('writeln(\'<TD ALIGN=CENTER>\'+request.acf_'+nl+'_concepto+\'<FONT COLOR="#800040"><B><INPUT TYPE="hidden" NAME="acf_'+nl+'_concepto" VALUE="\'+request.acf_'+nl+'_concepto+\'" SIZE=12 maxlength=35 ></TD>\');');
|
|
else
|
|
eval('writeln(\'<TD ALIGN=CENTER><INPUT TYPE="text" NAME="acf_'+nl+'_concepto" VALUE="\'+request.acf_'+nl+'_concepto+\'" OnChange="ChkLinCta('+nl+');//RePaint(this)" SIZE=12 maxlength=35 ></TD>\');');
|
|
writeln("</TR>");
|
|
}
|
|
if (!request.waux && request.lock)
|
|
writeln('</TABLE>');
|
|
}
|
|
request.acf_totaldebe=NroFormat(SumaDebe+" ",NF11);
|
|
request.acf_totalhaber=NroFormat(SumaHaber+" ",NF11);
|
|
request.acf_totalsaldo=NroFormat(SumaDebe-SumaHaber+" ",NF11);
|
|
if (!request.waux && request.lock) {
|
|
writeln('<TABLE BORDER=0 CELLSPACING=2 CELLPADDING=0 WIDTH=100%><TR>');
|
|
writeln('<TD ALIGN=LEFT><INPUT type="button" name="Ver" value="Ver" onClick="FormPaint(this)"></TD>');
|
|
writeln('<TD ALIGN=RIGHT><INPUT type="button" name="ActasMas" value="Más Líneas" onClick="MasLineas(\'Cta\')"></TD>');
|
|
writeln('</TR></TABLE>');
|
|
}
|
|
if ( request.nroctas > 0 ){
|
|
if (request.waux || !request.lock ) {
|
|
writeln('<TD ALIGN=CENTER>-</TD><TD ALIGN=CENTER>-</TD>;');
|
|
writeln('<TD ALIGN=CENTER><FONT COLOR="#800040"><B>Totales ... </B></FONT></TD>');
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.acf_totaldebe+'<INPUT TYPE="hidden" NAME="acf_totaldebe" VALUE="'+request.acf_totaldebe+'" SIZE=14 ></FONT></TD>');
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.acf_totalhaber+'<INPUT TYPE="hidden" NAME="acf_totalhaber" VALUE="'+request.acf_totalhaber+'" SIZE=14 ></FONT></TD>');
|
|
writeln('<TD ALIGN=CENTER>-</TD><TD ALIGN=CENTER>-</TD>');
|
|
} else {
|
|
writeln('<TABLE BORDER=1 ALIGN=CENTER><TR>');
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>Total Debe</B></FONT></TD>');
|
|
writeln('<TD><FONT COLOR="#800040"><B><INPUT TYPE="text" NAME="acf_totaldebe" VALUE="'+request.acf_totaldebe+'" OnFocus="SumaCtas(this);GoNextField(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=14 ></FONT></TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>Total Haber</B></FONT></TD>');
|
|
writeln('<TD><FONT COLOR="#800040"><B><INPUT TYPE="text" NAME="acf_totalhaber" VALUE="'+request.acf_totalhaber+'" OnFocus="SumaCtas(this);GoNextField(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=14 ></FONT></TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>Saldo</B></FONT></TD>');
|
|
writeln('<TD><FONT COLOR="#800040"><B><INPUT TYPE="text" NAME="acf_totalsaldo" VALUE="'+request.acf_totalsaldo+'" OnFocus="SumaCtas(this);GoNextField(this)" onBlur="NroToString(this,NF11)" onFocus="StringToNro(this,NF11)" SIZE=14 ></FONT></TD>');
|
|
}
|
|
writeln('</TR></TABLE>');
|
|
}
|
|
writeln('<INPUT TYPE="hidden" NAME="nrolineas" VALUE="'+request.nrolineas+'" SIZE=2 >');
|
|
if (request.waux || !request.lock)
|
|
writeln('<A NAME="lin-factura"></A>');
|
|
else
|
|
writeln('<A NAME="lin-factura"><CENTER><H2><FONT COLOR="#800040"> Albaranes </FONT></H2></CENTER></A>');
|
|
if ( request.nrolineas > 0 ){
|
|
writeln('<TABLE BORDER=1 ALIGN=CENTER>');
|
|
writeln('<TR><TD ALIGN=CENTER><B>N.</B> </TD>');
|
|
writeln('<TD><INPUT TYPE="button" VALUE="Nro.Reg." ');
|
|
writeln(' ONCLICK="w_auxiliar(\'albaran\',\'Albaranes\',\'nro_reg\',\'\')"></TD>');
|
|
writeln('<TD ALIGN=CENTER><B>Ver</B></TD>');
|
|
writeln('<TD ALIGN=CENTER><B>Suma Ctas.</B></TD>');
|
|
writeln('<TD ALIGN=CENTER><B>O b s e r v a c i o n e s</B> </TD>');
|
|
writeln('</TR>');
|
|
var SumAlbs=0;
|
|
for (var nl=1; nl <= request.nrolineas; nl++) {
|
|
eval('if (!request.af_'+nl+'_esnva) { request.af_'+nl+'_esnva="1"}');
|
|
eval('if (!request.af_'+nl+'_nroreg_albafact) { request.af_'+nl+'_nroreg_albafact='+nl+'};');
|
|
eval('if (!request.af_'+nl+'_toblink) { request.af_'+nl+'_toblink="off"};');
|
|
eval('if (!request.af_'+nl+'_nroreg_factura) { request.af_'+nl+'_nroreg_factura=request.fa_nro_reg};');
|
|
eval('if (!request.af_'+nl+'_nroreg_albaran) { request.af_'+nl+'_nroreg_albaran=""};');
|
|
eval('if (!request.af_'+nl+'_sumaCtas) { request.af_'+nl+'_sumaCtas=0};');
|
|
eval('if (!request.af_'+nl+'_observaciones) { request.af_'+nl+'_observaciones=""};');
|
|
eval('if (!request.af_'+nl+'_nif) { request.af_'+nl+'_nif=""};');
|
|
eval('if (!request.af_'+nl+'_cod_centro) { request.af_'+nl+'_cod_centro=""};');
|
|
eval('if (!request.af_'+nl+'_nro_pedido) { request.af_'+nl+'_nro_pedido=""};');
|
|
writeln('<TR><TD><FONT COLOR="#800040">');
|
|
eval('if (request.af_'+nl+'_toblink == "on" ) {writeln(\'<BLINK>\');}');
|
|
eval('writeln(\'<B>\'+request.af_'+nl+'_nroreg_albafact+\'</B></FONT>\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="af_'+nl+'_nroreg_albafact" VALUE="\'+request.af_'+nl+'_nroreg_albafact+\'" SIZE=2 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="af_'+nl+'_nroreg_factura" VALUE="\'+request.af_'+nl+'_nroreg_factura+\'" SIZE=10 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="af_'+nl+'_nif" VALUE="\'+request.af_'+nl+'_nif+\'" SIZE=12 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="af_'+nl+'_cod_centro" VALUE="\'+request.af_'+nl+'_cod_centro+\'" SIZE=12 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="af_'+nl+'_nro_pedido" VALUE="\'+request.af_'+nl+'_nro_pedido+\'" SIZE=12 >\');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="af_'+nl+'_esnva" VALUE="\'+request.af_'+nl+'_esnva+\'" SIZE=1> \');');
|
|
eval('writeln(\'<INPUT TYPE="hidden" NAME="af_'+nl+'_toblink" VALUE="\'+request.af_'+nl+'_toblink+\'" SIZE=1 >\');');
|
|
eval('if (request.af_'+nl+'_toblink == "on" ) {writeln("</BLINK>");}');
|
|
writeln('</TD>');
|
|
if (request.waux || !request.lock)
|
|
eval('writeln(\'<TD><FONT COLOR="#800040"><B>\'+request.af_'+nl+'_nroreg_albaran+\'</B></FONT><INPUT TYPE="hidden" NAME="af_'+nl+'_nroreg_albaran" VALUE="\'+request.af_'+nl+'_nroreg_albaran+\'" SIZE=12 maxlength=12 ></TD>\')');
|
|
else
|
|
eval('writeln(\'<TD><INPUT TYPE="text" NAME="af_'+nl+'_nroreg_albaran" VALUE="\'+request.af_'+nl+'_nroreg_albaran+\'" OnChange="ParseNroAlb(this)" SIZE=8 maxlength=12 ></TD>\')');
|
|
writeln('<TD ALIGN=CENTER><INPUT TYPE="button" VALUE="Zoom" ONCLICK="ZoomAlbaran('+nl+')" ></TD>');
|
|
eval('writeln(\'<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>\'+request.af_'+nl+'_sumaCtas+\'</B></FONT><INPUT TYPE="hidden" NAME="af_'+nl+'_sumaCtas" VALUE="\'+request.af_'+nl+'_sumaCtas+\'" SIZE=12 maxlength=12 ></TD>\')');
|
|
eval('SumAlbs=SumAlbs+parseInt(NroUnformat(request.af_'+nl+'_sumaCtas));');
|
|
if (request.waux || !request.lock)
|
|
eval('writeln(\'<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>\'+request.af_'+nl+'_observaciones+\'</B></FONT><INPUT TYPE="hidden" NAME="af_'+nl+'_observaciones" VALUE="\'+request.af_'+nl+'_observaciones+\'" SIZE=30 maxlength=80 ></TD>\')');
|
|
else
|
|
eval('writeln(\'<TD><INPUT TYPE="text" NAME="af_'+nl+'_observaciones" VALUE="\'+request.af_'+nl+'_observaciones+\'" SIZE=30 maxlength=80 ></TD>\')');
|
|
writeln('</TR>');
|
|
}
|
|
writeln('<TR><TD></TD>');
|
|
writeln('<TD>Suma</TD><TD>Total:</TD>');
|
|
writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+NroFormat(SumAlbs,NF9)+'</B></FONT></TD>');
|
|
writeln('<TD></TD>');
|
|
writeln('</TABLE>');
|
|
}
|
|
if (!request.waux && request.lock) {
|
|
writeln('<TABLE BORDER=0 CELLSPACING=2 CELLPADDING=0 WIDTH=100%><TR>');
|
|
writeln('<TD ALIGN=LEFT><INPUT type="button" name="Ver" value="Ver" onClick="FormPaint(this)"></TD>');
|
|
writeln('<TD ALIGN=RIGHT><INPUT type="button" name="ActasMas" value="Más Líneas" onClick="MasLineas(\'Alb\')"></TD>');
|
|
writeln('</TR></TABLE>');
|
|
}
|
|
//if ((request.waux || !request.lock) && request.fa_nro_doc_pago.length < 2 ) {
|
|
//if ( request.fa_nro_regn=="+" ){
|
|
// writeln('<A NAME="pago"><BR>');
|
|
//} else {
|
|
writeln('<A NAME="pago"><CENTER><H2><FONT COLOR="#800040"> Datos de Pago </FONT></H2></CENTER><A>');
|
|
writeln('<TABLE BORDER=1 ALIGN=CENTER>');
|
|
if (!request.waux || !request.lock)
|
|
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" Banco: " ONCLICK="w_auxiliar(\'banco\',\'Bancos\',\'ba_cod_banco\',\''+StringClip(true,request.fa_cod_banco)+'\')">');
|
|
else
|
|
writeln('<TR><TD ALIGN=RIGHT><B> Banco: </B>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_banco+'</B></FONT><INPUT TYPE="hidden" NAME="fa_cod_banco" VALUE="'+request.fa_cod_banco+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
|
|
else
|
|
writeln('<INPUT TYPE="text" NAME="fa_cod_banco" VALUE="'+request.fa_cod_banco+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_nombre_banco+'</FONT></TD>');
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Localidad:</B></TD><TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_localidad+'</FONT><INPUT type="hidden" name="fa_cod_localidad" VALUE="'+request.fa_cod_localidad+'" size=12 maxlength=12></FONT></TD></TR>');
|
|
else
|
|
writeln('<INPUT type="text" name="fa_cod_localidad" VALUE="'+request.fa_cod_localidad+'" size=12 maxlength=12></TD></TR>');
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Fecha Emisión:</B></TD><TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_f_emision_pago+'</FONT><INPUT type="hidden" name="fa_f_emision_pago" VALUE="'+request.fa_f_emision_pago+'" size=8 maxlength=8></TD></FONT></TR>');
|
|
else
|
|
writeln('<INPUT type="text" name="fa_f_emision_pago" VALUE="'+request.fa_f_emision_pago+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" size=8 maxlength=8></TD></TR>');
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Nro. Doc. Pago</B></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_nro_doc_pago+'</FONT><INPUT type="hidden" name="fa_nro_doc_pago" VALUE="'+request.fa_nro_doc_pago+'" size=8 maxlength=8></FONT></TD></TR>');
|
|
else
|
|
writeln('<TD ALIGN=LEFT><INPUT type="text" name="fa_nro_doc_pago" VALUE="'+request.fa_nro_doc_pago+'" size=12 maxlength=12></TD></TR>');
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Vencimiento:</B></TD><TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.fa_vto_pago+'</FONT><INPUT type="hidden" name="fa_vto_pago" VALUE="'+request.fa_vto_pago+'" size=8 maxlength=8></TD></FONT></TR>');
|
|
else
|
|
writeln('<INPUT type="text" name="fa_vto_pago" VALUE="'+request.fa_vto_pago+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" size=8 maxlength=8></TD></TR>');
|
|
writeln('</TR></TABLE>');
|
|
//}
|
|
//if (request.waux && request.fa_nro_doc_pago == "" )
|
|
// writeln('<A NAME="pie-factura">');
|
|
//else {
|
|
writeln('<A NAME="pie-factura"><CENTER><H2><FONT COLOR="#800040"> Notas </FONT></H2></CENTER></A>');
|
|
writeln('<TABLE BORDER=1 ALIGN=CENTER>');
|
|
writeln('<TR> <TD ALIGN=RIGHT><B>Observaciones: </B></TD>');
|
|
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>');
|
|
writeln('<TD ALIGN=RIGHT><B>Traspaso Gasto:</B></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_traspaso_gasto+'</B></FONT><INPUT type="hidden" name="fa_traspaso_gasto" VALUE="'+request.fa_traspaso_gasto+'" size=1 maxlength=1></TD></TR>');
|
|
else {
|
|
if ( request.fa_traspaso_gasto == "S" ) {
|
|
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="fa_traspaso_gasto" VALUE="S" CHECKED>Si');
|
|
writeln('<INPUT TYPE="radio" NAME="fa_traspaso_gasto" VALUE="N" >No </TD></TR>');
|
|
}
|
|
else {
|
|
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="fa_traspaso_gasto" VALUE="S" >Si');
|
|
writeln('<INPUT TYPE="radio" NAME="fa_traspaso_gasto" VALUE="N" CHECKED>No </TD></TR>');
|
|
}
|
|
}
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Traspaso de Pago:</B>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_traspaso_pago+'</B></FONT><INPUT type="hidden" name="fa_traspaso_pago" VALUE="'+request.fa_traspaso_pago+'" size=1 maxlength=1></TD></TR>');
|
|
else {
|
|
if ( request.fa_traspaso_pago == "S" ) {
|
|
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="fa_traspaso_pago" VALUE="S" CHECKED>Si');
|
|
writeln('<INPUT TYPE="radio" NAME="fa_traspaso_pago" VALUE="N" >No </TD></TR>');
|
|
}
|
|
else {
|
|
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="fa_traspaso_pago" VALUE="S" >Si');
|
|
writeln('<INPUT TYPE="radio" NAME="fa_traspaso_pago" VALUE="N" CHECKED>No </TD></TR>');
|
|
}
|
|
}
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Traspaso de Vto:</B>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_traspaso_vto+'</B></FONT><INPUT type="hidden" name="fa_traspaso_vto" VALUE="'+request.fa_traspaso_vto+'" size=1 maxlength=1></TD></TR>');
|
|
else {
|
|
if ( request.fa_traspaso_vto == "S" ) {
|
|
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="fa_traspaso_vto" VALUE="S" CHECKED>Si');
|
|
writeln('<INPUT TYPE="radio" NAME="fa_traspaso_vto" VALUE="N" >No </TD></TR>');
|
|
}
|
|
else {
|
|
writeln('<TD ALIGN=LEFT><INPUT TYPE="radio" NAME="fa_traspaso_vto" VALUE="S" >Si');
|
|
writeln('<INPUT TYPE="radio" NAME="fa_traspaso_vto" VALUE="N" CHECKED>No </TD></TR>');
|
|
}
|
|
}
|
|
if (request.waux || !request.lock)
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Aptes.Pago</B></TD>');
|
|
else {
|
|
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="Aptes.Vto" ');
|
|
writeln(' ONCLICK="w_auxiliar(\'aptectasfra\',\'Apuntes_Vto\',\'aptectasfra\',\''+StringClip(true,request.fa_nro_reg_vto)+'\')"></TD>');
|
|
}
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD><FONT COLOR="#800040"><B>'+request.fa_nro_reg_vto+'</B></FONT><INPUT TYPE="hidden" NAME="fa_nro_reg_vto" VALUE="'+request.fa_nro_reg_vto+'" SIZE=10 OnChange="RePaint(this)"> </TD>');
|
|
else
|
|
writeln('<TD><INPUT TYPE="text" NAME="fa_nro_reg_vto" VALUE="'+request.fa_nro_reg_vto+'" SIZE=10 OnChange="RePaint(this)"> </TD>');
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Expediente:</B></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD><FONT COLOR="#800040"><B>'+request.fa_expediente+'</B></FONT><INPUT type="hidden" name="fa_expediente" VALUE="'+request.fa_expediente+'" size=35 maxlength=40></TD></TR>');
|
|
else
|
|
writeln('<TD><INPUT type="text" name="fa_expediente" VALUE="'+request.fa_expediente+'" size=35 maxlength=40></TD>');
|
|
writeln('</TR></TABLE></CENTER>');
|
|
//}
|
|
</SERVER>
|
|
</FORM></FONT>
|
|
<SERVER>
|
|
if (!request.waux) {
|
|
writeSignature(true);
|
|
}
|
|
if (request.gofunc) {
|
|
writeln('-->');
|
|
}
|
|
else {
|
|
writeln('</BODY>');
|
|
writeln('</HTML>');
|
|
}
|
|
</SERVER>
|