Protohistory/ctasapagar
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
master
ctasapagar/factura.js

652 lines
37 KiB
JavaScript
Raw Permalink Blame History

// //
// JavaScript Functions //
// //
//////////////////////////////////////
function wfra(text){
writeln("w_outfra.document.write('"+text+"\\n');");
}
function InsFraLins() {
if ( !request.fa_nro_reg ) {
status=-1
return;
}
var nl=0;
var nrolineas=0;
var nroctas=0;
nrolineas=parseInt(request.nrolineas);
if ( nrolineas+1 > 1 ) {
for (nl=1;nl<=nrolineas;nl++) {
eval('if ( request.af_'+nl+'_nroreg_albaran && request.af_'+nl+'_nroreg_albaran.length > 0 && NroUnformat(request.af_'+nl+'_sumaCtas)!= 0) { '+
'status=database.execute("INSERT INTO albafras(" +'+
'" nroreg_albafact," +'+
'" nroreg_factura," +'+
'" nroreg_albaran," +'+
'" sumactas," +'+
'" observaciones ) VALUES (\'" + StringClip(true,request.af_'+nl+'_nroreg_albafact) + "\',\'" +'+
'StringClip(true,request.fa_nro_reg) + "\',\'"+'+
'StringClip(true,request.af_'+nl+'_nroreg_albaran) + "\',\'"+ '+
'NroUnformat(request.af_'+nl+'_sumaCtas) + "\',\'"+ '+
'StringClip(true,request.af_'+nl+'_observaciones) + "\')");}');
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect('error.html?alert=11')
}
DbsError(true,status);
eval('if ( request.af_'+nl+'_nroreg_albaran.length > 0 ) { '+
'status=database.execute("UPDATE albaranes SET" +'+
'" is_locked=\'S\',"+'+
'" fra_reg=\'"+'+
'StringClip(true,request.fa_nro_reg)+"\'"+'+
'" WHERE nro_reg = \'"+'+
'StringClip(true,request.af_'+nl+'_nroreg_albaran)+"\'")}')
// eval('if ( request.af_'+nl+'_nroreg_albaran && request.af_'+nl+'_nroreg_albaran.length > 0 ) { '+
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
eval("redirect('error.html?alert=14?key='+request.af_"+nl+"_nroreg_albaran)");
}
}
}
nroctas=parseInt(request.nroctas);
if ( nroctas+1 > 1 ) {
for (nl=1;nl<=nroctas;nl++) {
// ' request.acf_'+nl+'_concepto=StringClip(true,request.acf_'+nl+'_concepto)+request.fa_nro_reg.substring(4,10)+" "+request.fa_nro_fra+" "+request.fa_t_razon_social;}');
eval(' if ( request.acf_'+nl+'_concepto.substring(0,4) == " " ) {'+
' request.acf_'+nl+'_concepto=request.fa_nro_fra+" "+request.fa_nro_reg.substring(4,10)+" "+request.fa_t_razon_social;}');
eval(' if ( request.acf_'+nl+'_concepto.substring(0,1) == "-" ) {'+
' request.acf_'+nl+'_concepto="-"+request.fa_nro_fra+" "+request.fa_nro_reg.substring(4,10)+" "+request.fa_t_razon_social;}');
eval(' if ( request.acf_'+nl+'_concepto.substring(0,2) == "--" ) {'+
' request.acf_'+nl+'_concepto="--"+request.fa_nro_fra+" "+request.fa_nro_reg.substring(4,10)+" "+request.fa_t_razon_social;}');
eval(' if ( request.acf_'+nl+'_concepto.length < 4 ) {'+
' request.acf_'+nl+'_concepto=request.acf_'+nl+'_concepto.substring(0,2)+" "+request.fa_nro_fra+" "+request.fa_nro_reg.substring(4,10)+" "+request.fa_t_razon_social;}');
eval(' if ( request.acf_'+nl+'_importe+0 != 0 && request.acf_'+nl+'_cod_cta.length > 2 ) {'+
' status=database.execute("INSERT INTO aptectasfra(" + '+
'" nro_lin," + '+
'" nro_reg," +'+
'" tipolin," +'+
'" albareg," +'+
'" cod_cta," +'+
'" clave," +'+
'" concepto," +'+
'" importe," +'+
'" tipo_apte," +'+
'" fecha ) VALUES (\'" + StringClip(true,request.acf_'+nl+'_nro_lin) + "\',\'" + '+
'StringClip(true,request.fa_nro_reg) + "\',\'"+'+
'StringClip(true,request.acf_'+nl+'_tipolin) + "\',\'"+'+
'StringClip(true,request.acf_'+nl+'_albareg) + "\',\'"+'+
'StringClip(true,request.acf_'+nl+'_cod_cta) + "\',\'"+'+
'StringClip(true,request.acf_'+nl+'_clave) + "\',\'"+'+
'StringClip(true,request.acf_'+nl+'_concepto) + "\',\'"+'+
'NroUnformat(request.acf_'+nl+'_importe) + "\',\'"+'+
'StringClip(true,request.acf_'+nl+'_tipo_apte) + "\',\'"+'+
'StringClip(true,datetoString(HOY)) + "\')");}');
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
redirect('error.html?alert=12')
}
DbsError(true,status);
}
}
}
function DelFraLins() {
status=database.execute("DELETE FROM albafras WHERE nroreg_factura = \'" + request.fa_nro_reg + "\'");
// if ( status != 0 ) {
// client.is_trans=false;
// database.rollbackTransaction();
// redirect('error.html')
// }
// DbsError(true,status);
status=database.execute("DELETE FROM aptectasfra WHERE nro_reg = \'" + request.fa_nro_reg + "\'");
// if ( status != 0 ) {
// client.is_trans=false;
// database.rollbackTransaction();
// redirect('error.html')
// }
// DbsError(true,status);
// Liberamos albaranes
status=database.execute("UPDATE albaranes SET" +
" is_locked='N',"+
" fra_reg=''"+
" WHERE fra_reg = '"+
StringClip(true,request.fa_nro_reg)+"'");
if ( status != 0 ) {
client.is_trans=false;
database.rollbackTransaction();
eval("redirect('error.html?alert=14?key='+request.af_"+nl+"_nroreg_albaran)");
}
}
function ctasAlbtoFra(ialb,icta) {
eval('CursorTabla("ab","nro_reg","=\'"+request.af_'+ialb+'_nroreg_albaran+"\'",true,"");');
// Asignamos a request todas las columnas necesarias para el form.
if ( c_albaranes.is_locked == "S" ) {
eval('request.af_'+ialb+'_nroreg_albaran="";');
eval('request.af_'+nl+'_observaciones="ALBARAN BLOQUEADO";');
eval('request.af_'+ialb+'_toblink="on";');
c_albaranes.close();
return;
}
var ab_nif="", ab_cod_centro="", ab_nro_pedido="";
ab_nif=StringClip(false,c_albaranes.nif);
ab_cod_centro=StringClip(false,c_albaranes.cod_centro);
ab_nro_pedido=StringClip(false,c_albaranes.nro_pedido);
if ( ab_nif != null && ab_nif != request.fa_nif )
eval('request.af_'+ialb+'_toblink="on";');
if ( ab_cod_centro != null && ab_cod_centro != request.fa_cod_centro )
eval('request.af_'+ialb+'_toblink="on";');
// if ( ab_nro_pedido != null && ab_nro_pedido != request.fa_nro_pedido )
// eval('request.af_'+ialb+'_toblink="on";');
eval('request.af_'+ialb+'_nif=ab_nif');
eval('request.af_'+ialb+'_nro_pedido=ab_nro_pedido');
eval('request.af_'+ialb+'_cod_centro=ab_cod_centro');
eval('CursorTabla("ac","nro_reg","=\'"+request.af_'+ialb+'_nroreg_albaran+"\'",false,"");');
var sumaCtas=0; lin=0;
eval ('if ( parseInt(request.acf_'+(icta+1)+'importe) == 0 ) { lin=1 } ');
icta=icta-lin;
var acumula=false;
while (c_aptecuentas.next()) {
// Si la Cuenta ya existe hay que acumular
acumula=false;
for (var i=1; i <= icta ; i++ ) {
eval(' if (request.acf_'+i+'_cod_cta==StringClip(true,c_aptecuentas.cod_cta) '+
' && request.acf_'+i+'_clave==StringClip(true,c_aptecuentas.clave) '+
' && request.acf_'+i+'_concepto==StringClip(true,c_aptecuentas.concepto) '+
' && request.acf_'+i+'_tipo_apte==StringClip(true,c_aptecuentas.tipo_apte) )'+
' { acumula=true }');
if ( acumula == true ) {
eval(' request.acf_'+i+'_importe=NroFormat('+
' parseFloat(NroUnformat(request.acf_'+i+'_importe))+c_aptecuentas.importe'+
',NF9);');
break;
}
}
if ( acumula == false ) { // No ha acumulado la cuenta del albar<61>n !!!
icta++;
eval(' request.acf_'+icta+'_esnva="0";');
eval(' request.acf_'+icta+'_nro_lin='+icta+';');
eval(' request.acf_'+icta+'_albareg=request.af_'+ialb+'_nroreg_albaran;');
eval(' request.acf_'+icta+'_cod_cta=StringClip(true,c_aptecuentas.cod_cta);');
eval(' request.acf_'+icta+'_clave=StringClip(true,c_aptecuentas.clave);');
eval(' request.acf_'+icta+'_concepto=StringClip(true,c_aptecuentas.concepto);');
eval(' request.acf_'+icta+'_tipo_apte=StringClip(true,c_aptecuentas.tipo_apte);');
eval(' request.acf_'+icta+'_importe=NroFormat(c_aptecuentas.importe,NF9);');
if ( c_aptecuentas.concepto.length < 3 || StringClip(false,c_aptecuentas.concepto)==" " ) {
if ( c_aptecuentas.importe < 0 )
eval('request.acf_'+icta+'_concepto="A"');
if ( c_aptecuentas.importe >= 0 )
eval('request.acf_'+icta+'_concepto=""');
}
eval(' if (request.acf_'+icta+'_concepto == " ") {request.acf_'+icta+'_concepto=""}');
eval(' request.acf_'+icta+'_tipolin="A";');
}
if (c_aptecuentas.tipo_apte == "D" )
sumaCtas=sumaCtas+c_aptecuentas.importe;
if (c_aptecuentas.tipo_apte == "H" )
sumaCtas=sumaCtas-c_aptecuentas.importe;
}
c_aptecuentas.close()
if ( sumaCtas == 0 ) {
eval(' request.af_'+ialb+'_observaciones="<22><> No existe o con Importe 0 !!";');
} else {
eval(' request.af_'+ialb+'_esnva="0";');
eval(' request.af_'+ialb+'_sumaCtas=NroFormat(sumaCtas,NF9);');
eval(' request.af_'+ialb+'_observaciones=StringClip(false,c_albaranes.observaciones);');
}
c_albaranes.close();
request.nroctas=icta+lin;
}
function scanClaveCta(icta) {
var f=document.f_factura;
// eval("var clave=f.acf_"+icta+"_clave.value;");
// alert("Clave:"+clave+" linea "+icta);
// eval("var importe=parseInt(NroUnforma(f.acf_"+icta+"_importe.value);");
var SumaIVA=0;
var cta="", tipoApte="", tipoLin="", TipoRet="", TipoFra="";
eval("SumaIVA=parseFloat(NroUnformat(f.fa_SumaIva.value));");
eval("cta=f.acf_"+icta+"_cod_cta.value;");
eval("tipoApte=get_value(\'select\',f.acf_"+icta+"_tipo_apte);");
eval("tipoLin=f.acf_"+icta+"_tipolin.value;");
TipoRet=get_value("select",f.fa_tipo_retencion);
TipoFra=get_value("select",f.fa_tipo_fra);
if ( tipoLin == "G" && SumaIVA == 0 ) { eval("f.acf_"+icta+"_clave.value=pa_clave_siniva;"); }
if ( tipoLin == "G" && SumaIVA > 0 ) { eval("f.acf_"+icta+"_clave.value=pa_clave_coniva;"); }
if ( tipoLin == "G" && SumaIVA < 0 ) { eval("f.acf_"+icta+"_clave.value=pa_clave_coniva;"); }
// if ( tipoApte == "D" ) { }
// if ( tipoApte == "H" ) { }
if ( TipoFra=="1") { // Albar<61>n Interno
}
if ( TipoFra=="2") { // Dev. Retenci<63>n
if ( tipoLin == "G" || tipoLin == "R" ) { eval("f.acf_"+icta+"_clave.value=pa_clave_dev;"); };
}
if ( TipoFra=="4") { // Sin Albaranes
}
if ( TipoRet=="0") { // Sin Retenci<63>n
}
if ( TipoRet=="1") { // IRPF
if ( tipoLin == "G" || tipoLin == "R" ) { eval("f.acf_"+icta+"_clave.value=pa_clave_reten_1;"); }
}
if ( TipoRet=="2") { // Por Garant<6E>a
if ( tipoLin == "G" || tipoLin == "R" ) { eval("f.acf_"+icta+"_clave.value=pa_clave_reten_2;"); }
}
if ( TipoCalculo=="1") { // Sobre Base
} else { // Sobre Base - Retenci<63>n
}
// eval("var clave=f.acf_"+icta+"_clave.value;");
// alert("Clave:"+clave);
}
function FraDocHtml(nro_reg) {
var s_seq=getSeqPrt(nprinter);
textoReqs=textoReqs+" "+s_seq;
var nomFile=spoolpath+nprinter+"/req_"+s_seq+".html"
fileRpt=new File(nomFile);
fileRpt.open("w");
fileRpt.writeln('<HTML><HEAD></HEAD>');
nrolin=1;
CursorTabla("fa","nro_reg","=\'"+nro_reg+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.fa_nro_reg=StringClip(false,c_facturas.nro_reg);
var lon=request.fa_nro_reg.length;
request.fa_nro_regn=request.fa_nro_reg.substring(4,lon);
request.fa_nro_regy=request.fa_nro_reg.substring(0,4);
request.fa_f_emision=datetoString(c_facturas.f_emision);
request.fa_f_recepcion=datetoString(c_facturas.f_recepcion);
request.fa_f_pago=datetoString(c_facturas.f_pago);
request.fa_f_emision_pago=datetoString(c_facturas.f_emision_pago);
request.fa_mes=StringClip(false,c_facturas.mes);
request.fa_nro_fra=StringClip(false,c_facturas.nro_fra);
request.fa_nif=StringClip(false,c_facturas.nif);
request.fa_cod_centro=StringClip(false,c_facturas.cod_centro);
request.fa_cond_pago=StringClip(false,c_facturas.cond_pago);
request.fa_tipo_calc_iva=StringClip(false,c_facturas.tipo_calc_iva);
request.fa_tipo_fra=StringClip(false,c_facturas.tipo_fra);
request.fa_tipo_doc_pago=StringClip(false,c_facturas.tipo_doc_pago);
request.fa_nro_doc_pago=StringClip(true,c_facturas.nro_doc_pago);
request.fa_cod_localidad=StringClip(false,c_facturas.cod_localidad);
request.fa_cod_banco=StringClip(true,c_facturas.cod_banco);
request.fa_base_1=NroFormat(c_facturas.base_1,NF11);
request.fa_por_ret1=NroFormat(c_facturas.por_ret1,NF2);
request.fa_ret_1=NroFormat(c_facturas.ret_1,NF9);
request.fa_por_iva1=NroFormat(c_facturas.por_iva1,NF2);
request.fa_iva_1=NroFormat(c_facturas.iva_1,NF9);
request.fa_base_2=NroFormat(c_facturas.base_2,NF11);
request.fa_por_ret2=NroFormat(c_facturas.por_ret2,NF2);
request.fa_ret_2=NroFormat(c_facturas.ret_2,NF9);
request.fa_por_iva2=NroFormat(c_facturas.por_iva2,NF2);
request.fa_iva_2=NroFormat(c_facturas.iva_2,NF9);
request.fa_base_3=NroFormat(c_facturas.base_3,NF11);
request.fa_por_ret3=NroFormat(c_facturas.por_ret3,NF2);
request.fa_ret_3=NroFormat(c_facturas.ret_3,NF9);
request.fa_por_iva3=NroFormat(c_facturas.por_iva3,NF2);
request.fa_iva_3=NroFormat(c_facturas.iva_3,NF9);
request.fa_canexen=NroFormat(c_facturas.canexen,NF11);
request.fa_SumaBase=NroFormat(c_facturas.base_1+c_facturas.base_2+c_facturas.base_3+c_facturas.canexen,NF11);
request.fa_SumaIva=NroFormat(c_facturas.iva_1+c_facturas.iva_2+c_facturas.iva_3,NF11);
request.fa_SumaRet=NroFormat(c_facturas.ret_1+c_facturas.ret_2+c_facturas.ret_3,NF11);
// if ( c_facturas.tipo_calc_iva == 2 )
fa_Totaf_1=c_facturas.base_1+c_facturas.iva_1-c_facturas.ret_1;
// else
// fa_Totaf_1=c_facturas.base_1+c_facturas.iva_1+c_facturas.ret_1;
// if ( c_facturas.tipo_calc_iva == 2 )
fa_Totaf_2=c_facturas.base_2+c_facturas.iva_2-c_facturas.ret_2;
// else
// fa_Totaf_2=c_facturas.base_2+c_facturas.iva_2+c_facturas.ret_2;
// if ( c_facturas.tipo_calc_iva == 2 )
fa_Totaf_3=c_facturas.base_3+c_facturas.iva_3-c_facturas.ret_3;
// else
// fa_Totaf_3=c_facturas.base_3+c_facturas.iva_3+c_facturas.ret_3;
var fa_Totex=c_facturas.canexen;
request.fa_Totaf_1=NroFormat(fa_Totaf_1,NF11);
request.fa_Totaf_2=NroFormat(fa_Totaf_2,NF11);
request.fa_Totaf_3=NroFormat(fa_Totaf_3,NF11);
request.fa_Totex=NroFormat(c_facturas.canexen,NF11);
request.fa_deducciones=NroFormat(c_facturas.deducciones,NF9);
request.fa_SumaImporte=NroFormat(fa_Totaf_1+fa_Totaf_2+fa_Totaf_3+fa_Totex,NF11);
request.fa_importe_total=NroFormat(fa_Totaf_1+fa_Totaf_2+fa_Totaf_3+fa_Totex-c_facturas.deducciones,NF11);
request.fa_tipo_retencion=StringClip(true,c_facturas.tipo_retencion);
request.fa_tipo_deduccion=StringClip(true,c_facturas.tipo_deduccion);
request.fa_nro_pedido=StringClip(false,c_facturas.nro_pedido);
request.fa_traspaso_gasto=StringClip(false,c_facturas.traspaso_gasto);
request.fa_traspaso_vto=StringClip(false,c_facturas.traspaso_vto);
request.fa_traspaso_pago=StringClip(false,c_facturas.traspaso_pago);
request.fa_nro_reg_pago=StringClip(false,c_facturas.nro_reg_pago);
request.fa_vto_pago=datetoString(c_facturas.vto_pago);
request.fa_observaciones=StringClip(false,c_facturas.observaciones);
request.fa_is_locked=StringClip(false,c_facturas.is_locked);
if (request.lock)
c_facturas.close();
if (request.fa_is_locked == "S" )
request.waux=8;
if (request.fa_cod_centro && request.fa_cod_centro != null) {
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.fa_cod_centro)+"\'",false,false);
request.fa_t_des_centro=c_centros.descripcion;
c_centros.close();
}
else
request.fa_t_des_centro="";
if (request.fa_nro_pedido && request.fa_nro_pedido != null) {
CursorTabla("pe","nro_pedido","=\'"+StringClip(true,request.fa_nro_pedido)+"\'",false,false);
request.fa_t_des_pedido=c_pedidos.descripcion;
if (request.fa_cond_pago.length==0)
request.fa_cond_pago=c_pedidos.cond_pago;
c_pedidos.close();
}
else
request.fa_t_des_pedido="";
if (request.fa_nif && request.fa_nif != null ) {
CursorTabla("pr","nif","=\'"+StringClip(true,request.fa_nif)+"\'",false,false);
request.fa_t_razon_social=StringClip(false,c_proveedores.razon_social);
if ( request.fa_t_razon_social == " " ) {
request.fa_t_razon_social="NO EXISTE";
request.fa_cta_contable="";
}
else {
request.fa_cta_contable=StringClip(false,c_proveedores.cta_contable);
if (request.fa_cond_pago.length==0 || request.fa_cond_pago==client.pa_cp_lock)
request.fa_cond_pago=c_proveedores.cond_pago;
}
c_proveedores.close();
}
else {
request.fa_t_razon_social="";
request.fa_cta_contable="";
}
if (request.fa_cond_pago && request.fa_cond_pago != null) {
CursorTabla("cp","cond_pago","=\'"+StringClip(true,request.fa_cond_pago)+"\'",false,false);
request.fa_t_condpago=c_cond_pago.descripcion;
request.fa_cp_vto=c_cond_pago.vencimiento;
c_cond_pago.close();
}
else {
request.fa_cp_vto=0
request.fa_t_condpago="";
}
if (request.fa_cod_banco && request.fa_cod_banco != null) {
CursorTabla("ba","cod_banco","=\'"+StringClip(true,request.fa_cod_banco)+"\'",false,false);
request.fa_t_nombre_banco=c_bancos.nombre;
c_bancos.close();
}
else
request.fa_t_nombre_banco="";
fileRpt.writeln('<CENTER><TABLE BORDER=0 ALIGN=CENTER CELLSPACING=0 CELLPADDING=4><TR>');
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B> Nro.Reg.: </B>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_nro_regn+'/'+request.fa_nro_regy+'</B></FONT></TD></FONT>');
if ( request.fa_is_locked == "S" )
fileRpt.writeln('<FONT COLOR="#800040">Bloqueada:<B>'+request.fa_is_locked+'</FONT></TD></FONT></TR>');
fileRpt.writeln('<TD ALIGN=RIGHT><B>Contabilizado:</B>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_mes+'</B></FONT></TD></TR>');
nrolin++;
fileRpt.writeln('<TD ALIGN=RIGHT><B>Nro. Fra.:</B>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_nro_fra+'</B></FONT></TD>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B> N.I.F. </B>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_nif+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_razon_social+'</FONT>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Centro</B>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_centro+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_des_centro+'</FONT></TD>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Pedido</B>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_nro_pedido+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_des_pedido+'</FONT></TD>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>C.Pago</B>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_cond_pago+'</B></FONT></TD>');
fileRpt.writeln('<TD><FONT COLOR="#800040">'+request.fa_t_condpago+'</FONT></TD></TR>');
nrolin++;
fileRpt.writeln('<TD ALIGN=RIGHT><B>Fecha Emisi<73>n:</B>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_f_emision+'</FONT></TD></FONT></TR>');
nrolin++;
fileRpt.writeln('<TD ALIGN=RIGHT><B>Fecha Recepci<63>n:</B>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_f_recepcion+'</FONT></TD></FONT>');
fileRpt.writeln('<TD ALIGN=RIGHT><B>Fecha Pago:</B>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_f_pago+'</FONT></TD></FONT></TR>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Tipo de Factura:</B>');
if (request.fa_tipo_fra=="1")
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> De Albar<61>n Interno </B></FONT>');
if (request.fa_tipo_fra=="2")
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Devoluci<63>n Retenci<63>n </B></FONT>');
if (request.fa_tipo_fra=="4")
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sin Albaranes </B></FONT>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Retenciones:</B>');
if (request.fa_tipo_retencion=="0")
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sin Retencion </B></FONT>');
if (request.fa_tipo_retencion=="1")
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> I.R.P.F. </B></FONT>');
if (request.fa_tipo_retencion=="2")
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Por Garant<6E>a </B></FONT>');
fileRpt.writeln('<INPUT TYPE="hidden" NAME="fa_tipo_retencion" VALUE="'+request.fa_tipo_retencion+'"></TD>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>C<>lculo IVA:</B>');
if (request.fa_tipo_calc_iva=="1")
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sobre Base </B></FONT>');
else
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B> Sobre Base - Retenci<63>n </B></FONT>');
fileRpt.writeln('<INPUT TYPE="hidden" NAME="fa_tipo_calc_iva" VALUE="'+request.fa_tipo_calc_iva+'"></TD>');
nrolin++;
fileRpt.writeln('</TABLE>');
fileRpt.writeln('<CENTER>');
fileRpt.writeln('<TABLE BORDER='+request.borde+' CELLSPACING=0 CELLPADDING=4>');
fileRpt.writeln('<TR>');
fileRpt.writeln('<TD><B>Lin</B></TD>');
fileRpt.writeln('<TD><B> Base Imponible </B> </TD>');
fileRpt.writeln('<TD><B>%Ret</B></TD>');
fileRpt.writeln('<TD ALIGN=CENTER><B> Imp. Ret </B> </TD>');
fileRpt.writeln('<TD><B>%IVA</B></TD>');
fileRpt.writeln('<TD ALIGN=CENTER><B> Imp. IVA </B> </TD>');
fileRpt.writeln('<TD ALIGN=CENTER><B>T O T A L</B> </TD>');
fileRpt.writeln('</TR><TR>');
nrolin++;
fileRpt.writeln('<TR><TD><b>1.-</b></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_base_1+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_ret1+'</FONT></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_ret_1+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_iva1+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_iva_1+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totaf_1+'</B></FONT></TD>');
fileRpt.writeln('</TR><TR>');
nrolin++;
fileRpt.writeln('<TD><b>2.-</b></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_base_2+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_ret2+'</FONT></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_ret_2+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_iva2+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_iva_2+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totaf_2+'</B></FONT></TD>');
fileRpt.writeln('</TR><TR>');
nrolin++;
fileRpt.writeln('</TR><TR><TD><b>3.-</b></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_base_3+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_ret3+'</FONT></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_ret_3+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_por_iva3+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_iva_3+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totaf_3+'</B></FONT></TD>');
fileRpt.writeln('</TR><TR>');
nrolin++;
fileRpt.writeln('<TD><b>Ex.</b></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_canexen+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD><TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_Totex+'</B></FONT></TD>');
fileRpt.writeln('</TR><TR>');
nrolin++;
fileRpt.writeln('<TD><b>Tot.</b><TD');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaBase+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=CENTER>---</TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaRet+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=CENTER>---</TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaIva+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_SumaImporte+'</B></FONT></TD>');
fileRpt.writeln('</TR><TR>');
nrolin++;
fileRpt.writeln('<TD><B>Ded:</B></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_tipo_deduccion+'</FONT></FONT></TD>');
fileRpt.writeln('<TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD><TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_deducciones+'</FONT></TD></FONT></TR>');
fileRpt.writeln('</TR><TR>');
nrolin++;
fileRpt.writeln('<TD><b>Totales</b></TD>');
fileRpt.writeln('<TD></TD>');
fileRpt.writeln('<TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD><TD ALIGN=CENTER>---</TD><TD ALIGN=CENTER>---------</TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+request.fa_importe_total+'</B></FONT></TD>');
fileRpt.writeln('</TR></TABLE>');
nrolin++;
fileRpt.writeln('<A NAME="lin-ctas"><CENTER><H2><FONT COLOR="#800040"> Apuntes Contables </FONT></H2></CENTER><A>');
fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=CENTER><B>N.</B> </TD>');
fileRpt.writeln('<TD ALIGN=CENTER><B>Cuenta</B></TD>');
fileRpt.writeln('<TD ALIGN=CENTER><B>T&iacute;tulo Cuenta</B></TD>');
fileRpt.writeln('<TD ALIGN=CENTER><B>Debe</B> </TD>');
fileRpt.writeln('<TD ALIGN=CENTER><B>Haber</B> </TD>');
fileRpt.writeln('<TD><B>Clave</B></TD>');
fileRpt.writeln('<TD ALIGN=CENTER><B>Concepto</B> </TD>');
var lin=0;
CursorTabla("acf","nro_reg","=\'"+c_facturas.nro_reg+"\' order by nro_lin ",false,"");
var SumaDebe=0;
var SumaHaber=0;
request.nroctas=0;
nl=0;
while (c_aptectasfra.next()) {
request.nroctas=c_aptectasfra.nro_lin;
nro=c_aptectasfra.importe;
nl=request.nroctas
// if ( nro == 0 && nl < 10 ) {
//fileRpt.writeln("</TR>");
// continue;
// }
lin++;
if ( nrolin+1 > request.maxLins ) {
skipTopPage(nrolin,request.maxLins);
nrolin=0;
}
nrolin++;
fileRpt.writeln('<TR><TD><FONT COLOR="#800040"><B>'+c_aptectasfra.nro_lin+'</B></FONT>')
// var albareg=c_aptectasfra.albareg;
fileRpt.writeln('<TD ALIGN=CENTER>'+c_aptectasfra.cod_cta+'<FONT COLOR="#800040"><B></TD>');
valor=c_aptectasfra.cod_cta;
if (valor != " " && valor != "" && valor != "null" ) {
CursorTabla("ct","cta_contable","=\'"+StringClip(true,valor)+"\'",false,false);
texto=StringClip(true,c_ctas_contables.descripcion);
c_ctas_contables.close();
}
else {
texto=" "
}
fileRpt.writeln('<TD><FONT COLOR="#800040">'+texto+'</FONT></TD>');
if (c_aptectasfra.tipo_apte == "H") {SumaHaber=SumaHaber+nro} else {SumaDebe=SumaDebe+nro};
if (c_aptectasfra.tipo_apte == "H") {fileRpt.writeln('<TD ALIGN=CENTER>-</TD>')};
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+NroFormat(c_aptectasfra.importe,NF9)+'</B></FONT></TD>');
if (c_aptectasfra.tipo_apte == "D") {fileRpt.writeln('<TD ALIGN=CENTER>-</TD>')};
fileRpt.writeln('<TD ALIGN=CENTER>'+c_aptectasfra.clave+'<FONT COLOR="#800040"><B></TD>');
fileRpt.writeln('<TD ALIGN=CENTER>'+c_aptectasfra.concepto+'<FONT COLOR="#800040"><B></TD>');
fileRpt.writeln("</TR>");
}
// var acf_totalsaldo=NroFormat(SumaDebe-SumaHaber+" ",NF11);
c_aptectasfra.close();
nrolin++;
fileRpt.writeln('<TD ALIGN=CENTER>-</TD><TD ALIGN=CENTER>-</TD>');
fileRpt.writeln('<TD ALIGN=CENTER><FONT COLOR="#800040"><B>Totales ... </B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+NroFormat(SumaDebe+" ",NF11)+'</FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+NroFormat(SumaHaber+" ",NF11)+'</FONT></TD>');
fileRpt.writeln('<TD ALIGN=CENTER>-</TD><TD ALIGN=CENTER>-</TD>');
fileRpt.writeln('</TR></TABLE>');
fileRpt.writeln('<INPUT TYPE="hidden" NAME="nrolineas" VALUE="'+request.nrolineas+'" SIZE=2 >');
nrolin++;
fileRpt.writeln('<A NAME="lin-factura"><CENTER><H2><FONT COLOR="#800040"> Albaranes </FONT></H2></CENTER></A>');
nrolin++;
fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4>');
fileRpt.writeln('<TR><TD ALIGN=CENTER><B>N.</B> </TD>');
fileRpt.writeln('<TD ALIGN=CENTER><B>Nro.Reg </B></TD> ');
fileRpt.writeln('<TD ALIGN=CENTER><B>Suma Ctas.</B></TD>');
fileRpt.writeln('<TD ALIGN=CENTER><B>O b s e r v a c i o n e s</B> </TD>');
fileRpt.writeln('</TR>');
CursorTabla("af","nroreg_factura","=\'"+c_facturas.nro_reg+"\'",false,"");
var sumalbs=0;
request.nrolineas=0;
while (c_albafras.next()) {
request.nrolineas++;
sumalbs=sumalbs+parseFloat(c_albafras.sumactas);
nrolin++;
fileRpt.writeln('<TR><TD><FONT COLOR="#800040">');
fileRpt.writeln('<B>'+c_albafras.nroreg_albafact+'</B></FONT>');
fileRpt.writeln('</TD>');
fileRpt.writeln('<TD><FONT COLOR="#800040"><B>'+c_albafras.nroreg_albaran+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+NroFormat(c_albafras.sumactas,NF9)+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+c_albafras.observaciones+'</B></FONT></TD>');
fileRpt.writeln('</TR>');
}
c_albafras.close()
nrolin++;
fileRpt.writeln('<TR><TD></TD>');
fileRpt.writeln('<TD>Total:</TD>');
fileRpt.writeln('<TD ALIGN=RIGHT><FONT COLOR="#800040"><B>'+NroFormat(sumalbs,NF9)+'</B></FONT></TD>');
fileRpt.writeln('<TD></TD>');
fileRpt.writeln('</TABLE>');
// if (request.f_formato=="documento") {
fileRpt.writeln('</TR></TABLE></CENTER>');
fileRpt.writeln('</BODY>');
fileRpt.writeln('</HTML>');
fileRpt.close();
return nrolin;
// }
nrolin++;
fileRpt.writeln('<A NAME="pago"><CENTER><H2><FONT COLOR="#800040"> Datos de Pago </FONT></H2></CENTER><A>');
fileRpt.writeln('<TABLE BORDER='+request.borde+' ALIGN=CENTER CELLSPACING=0 CELLPADDING=4>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B> Banco: </B>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_banco+'</B></FONT></TD>');
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.fa_t_nombre_banco+'</FONT></TD>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Localidad:</B></TD><TD>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_cod_localidad+'</FONT></TD></TR>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Fecha Emisi<73>n:</B></TD><TD>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_f_emision_pago+'</FONT></FONT></TR>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Tipo Doc. Pago:</B>');
if (request.fa_tipo_doc_pago=="1")
fileRpt.writeln('<FONT COLOR="#800040"><B> Pagar<61> </B></FONT>');
if (request.fa_tipo_doc_pago=="2")
fileRpt.writeln('<FONT COLOR="#800040"><B> Tal<61>n </B></FONT>');
if (request.fa_tipo_doc_pago=="3")
fileRpt.writeln('<FONT COLOR="#800040"><B> Compensaci<63>n </B></FONT>');
if (request.fa_tipo_doc_pago=="4")
fileRpt.writeln('<FONT COLOR="#800040"><B> Domiciliaci<63>n </B></FONT>');
fileRpt.writeln('<INPUT TYPE="hidden" NAME="fa_tipo_doc_pago" VALUE="'+request.fa_tipo_doc_pago+'"></TD>');
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_nro_doc_pago+'</FONT></FONT></TD></TR>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Vencimiento:</B></TD><TD>');
fileRpt.writeln('<FONT COLOR="#800040"><B>'+request.fa_vto_pago+'</FONT></TD></FONT></TR>');
fileRpt.writeln('</TR></TABLE>');
fileRpt.writeln('<A NAME="pie-factura"><CENTER><H2><FONT COLOR="#800040"> Notas </FONT></H2></CENTER></A>');
fileRpt.writeln('<TABLE BORDER=1 ALIGN=CENTER>');
nrolin++;
fileRpt.writeln('<TR> <TD ALIGN=RIGHT><B>Observaciones: </B></TD>');
fileRpt.writeln('<FONT COLOR="#800040"><TD ALIGN=LEFT> <TEXTAREA NAME="fa_observaciones" ROWS=4 COLS=30 SIZE=30 maxlength=30 WRAP="virtual">'+request.fa_observaciones+'</TEXTAREA> </TD> </TR>');
fileRpt.writeln('<TD ALIGN=RIGHT><B>Traspaso Contable:</B></TD>');
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_traspaso_ctable+'</B></FONT></TD></TR>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Traspaso de Pago:</B>');
fileRpt.writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.fa_traspaso_pago+'</B></FONT></TD></TR>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Aptes.Pago</B></TD>');
fileRpt.writeln('<TD><FONT COLOR="#800040"><B>'+request.fa_nro_reg_pago+'</B></FONT></TD>');
nrolin++;
fileRpt.writeln('<TR><TD ALIGN=RIGHT><B>Expediente:</B></TD>');
fileRpt.writeln('<TD><FONT COLOR="#800040"><B>'+request.fa_expediente+'</B></FONT></TD></TR>');
fileRpt.writeln('</TR></TABLE></CENTER>');
fileRpt.writeln('</BODY>');
fileRpt.writeln('</HTML>');
fileRpt.close();
return nrolin;
}
Reference in New Issue View Git Blame Copy Permalink