<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Proveedores</TITLE>
<META NAME="GENERATOR" CONTENT="Mozilla/4.0b1 (Win95; I) [Netscape]">
<META NAME="Author" CONTENT="WebTeam">
<META NAME="Organization" CONTENT="AdmiSys S.L.">
<META NAME="Document description" CONTENT="Alta y Modificación de Proveedores">
<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 LANGUAGE="JavaScript">
function FormPaint(obj) {
document.f_proveedor.action=top.main.document.location.href+"&cookie=1&lock=true";
document.f_proveedor.submit();
}
function Chek_fields(obj) {
if ( emptyField(obj.pr_nif) == true ) {
alert("!!! Es necesario rellenar el NIF !!!->"+obj.pr_nif.value+"<-");
return false;
}
return true;
}
</SCRIPT>
<SERVER>
var baseHtml="";
dbAcl();
if ((!request.waux && request.lock) || request.nvo )
LoadParametros();
writeln("<SCRIPT LANGUAGE='JavaScript'>");
if ((!request.waux && request.lock) || request.nvo )
SetParametros();
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_frame=mainFrame.document.f_proveedor;');
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=mainFrame.document.location.href;');
ObjButtons(request.pr_nif,"Proveedores","pr_");
}
writeln('}');
}
if ( request.ViewFkey == "S" ) {
writeln('function RePaint(obj) {');
writeln(' var mainFrame=find_frame(top,"main");');
writeln(' for ( var i=0; i < document.f_proveedor.length; i++ ) { ');
writeln(' if ( document.f_proveedor.elements[i].name == obj.name ) ');
writeln(' break; ');
writeln(' } ');
writeln(' document.f_proveedor.action=mainFrame.document.location.href+"&cookie=1&nro="+i+"&lock=true"');
writeln(' document.f_proveedor.submit();');
writeln('} ');
}
else {
writeln('function ScrollVer(obj) {');
writeln(' status_scroll=true; ');
writeln(' MESSAGE=" ¡¡¡ Los Datos del Proveedor han cambiado usar el botón de \'Ver\' para "+ ');
writeln(' " actualizar las referencias 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) {')
if ( request.nro ) {
writeln('document.f_proveedor.elements['+request.nro+'].focus();');
}
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()"');
else
writeln(' <BODY');
}
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.pr_nif)+"\'") == true ){
redirect("alertpage.html?alert=2");
}
else {
status=database.execute("INSERT INTO proveedores(" +
" nif," +
" razon_social," +
" cta_contable," +
" cond_pago," +
" domicilio," +
" localidad," +
" cod_postal," +
" attn_envio," +
" direccion_envio," +
" localidad_envio," +
" cod_postal_envio," +
" telefono_1," +
" telefono_2," +
" fax," +
" e_mail," +
" observaciones) VALUES ('" + StringClip(true,request.pr_nif) + "','" +
StringClip(true,request.pr_razon_social) + "','"+
StringClip(true,request.pr_cta_contable) + "','"+
StringClip(true,request.pr_cond_pago) + "','"+
StringClip(true,request.pr_domicilio) + "','"+
StringClip(true,request.pr_localidad) + "','"+
StringClip(true,request.pr_cod_postal) + "','"+
StringClip(true,request.pr_attn_envio) + "','"+
StringClip(true,request.pr_direccion_envio) + "','"+
StringClip(true,request.pr_localidad_envio) + "','"+
StringClip(true,request.pr_cod_postal_envio) + "','"+
StringClip(true,request.pr_telefono_1) + "','"+
StringClip(true,request.pr_telefono_2) + "','"+
StringClip(true,request.pr_fax) + "','"+
StringClip(true,request.pr_e_mail) + "','"+
StringClip(true,request.pr_observaciones) + "')");
if ( status != 0 )
redirect(addClient('error.html?alert=5'));
DbsError(true,status);
}
redirect(addClient("g_proveedor.html?nvo=1&"+baseHtml));
}
//Ejecuta una actualización de la fila sobre la fila actual ...
if (request.upd && request.pr_nif) {
// if (request.lock)
// c_proveedores.close();
status=database.execute("UPDATE proveedores SET "+
" razon_social='" + StringClip(true,request.pr_razon_social) + "',"+
" cta_contable='" + StringClip(true,request.pr_cta_contable) + "',"+
" cond_pago='" + StringClip(true,request.pr_cond_pago) + "',"+
" domicilio='" + StringClip(true,request.pr_domicilio) + "',"+
" localidad='" + StringClip(true,request.pr_localidad) + "',"+
" cod_postal='" + StringClip(true,request.pr_cod_postal) + "',"+
" attn_envio='" + StringClip(true,request.pr_attn_envio) + "',"+
" direccion_envio='" + StringClip(true,request.pr_direccion_envio) + "',"+
" localidad_envio='" + StringClip(true,request.pr_localidad_envio) + "',"+
" cod_postal_envio='" + StringClip(true,request.pr_cod_postal_envio)+"',"+
" telefono_1='" + StringClip(true,request.pr_telefono_1) + "',"+
" telefono_2='" + StringClip(true,request.pr_telefono_2) + "',"+
" fax='" + StringClip(true,request.pr_fax) + "',"+
" e_mail='" + StringClip(true,request.pr_e_mail) + "',"+
" observaciones ='" + StringClip(true,request.pr_observaciones) + "'"+
" WHERE nif = '" + request.pr_nif + "'" );
if ( status != 0 )
redirect(addClient('error.html?alert=6'));
DbsError(true,status);
redirect(addClient("g_proveedor.html?"+baseHtml));
}
//Ejecuta un borrado de la fila actual ...
if (request.del) {
status=database.execute("DELETE FROM proveedores WHERE nif = \'" + request.pr_nif + "\'");
if ( status != 0 )
redirect(addClient('error.html?alert=7'));
DbsError(true,status);
redirect(addClient("g_proveedor.html?"+baseHtml));
}
if (request.pr_nif && !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)
CursorTabla("pr","nif","=\'"+request.pr_nif+"\'",true,true);
else
CursorTabla("pr","nif","=\'"+request.pr_nif+"\'",true,"");
// Asignamos a request todas las columnas necesarias para el form.
request.pr_nif=StringClip(false,c_proveedores.nif);
request.pr_razon_social=StringClip(false,c_proveedores.razon_social);
request.pr_cta_contable=StringClip(false,c_proveedores.cta_contable);
request.pr_cond_pago=StringClip(false,c_proveedores.cond_pago);
request.pr_domicilio=StringClip(false,c_proveedores.domicilio);
request.pr_localidad=StringClip(false,c_proveedores.localidad);
request.pr_cod_postal=StringClip(false,c_proveedores.cod_postal);
request.pr_attn_envio=StringClip(false,c_proveedores.attn_envio);
request.pr_direccion_envio=StringClip(false,c_proveedores.direccion_envio);
request.pr_localidad_envio=StringClip(false,c_proveedores.localidad_envio);
request.pr_cod_postal_envio=StringClip(false,c_proveedores.cod_postal_envio);
request.pr_telefono_1=StringClip(false,c_proveedores.telefono_1);
request.pr_telefono_2=StringClip(false,c_proveedores.telefono_2);
request.pr_fax=StringClip(false,c_proveedores.fax);
request.pr_e_mail=StringClip(false,c_proveedores.e_mail);
request.pr_observaciones=StringClip(false,c_proveedores.observaciones);
// request.pr_expediente=StringClip(false,c_proveedores.expediente);
if (!request.lock)
c_proveedores.close();
if (request.pr_cta_contable && request.pr_cta_contable != null ) {
CursorTabla("ct","cta_contable","=\'"+StringClip(true,request.pr_cta_contable)+"\'",false,false);
request.pr_t_cta_contable=c_ctas_contables.descripcion;
c_ctas_contables.close();
}
else
request.pr_t_cta_contable="";
if (request.pr_cond_pago && request.pr_cond_pago != null) {
CursorTabla("cp","cond_pago","=\'"+StringClip(true,request.pr_cond_pago)+"\'",false,false);
request.pr_t_condpago=c_cond_pago.descripcion;
c_cond_pago.close();
}
else
request.pr_t_condpago="";
}
else {
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
IniciaRequest("pr_");
request.lock=true;
request.pr_t_cta_contable="";
request.pr_t_condpago="";
}
}
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.pr_nif && request.pr_nif != null ) {
if ( entriesExist(" from proveedores where nif=\'"+StringClip(true,request.pr_nif)+"\'") == true ) {
redirect("alertpage.html?alert=2");
}
}
if (request.pr_cta_contable && request.pr_cta_contable != null ) {
CursorTabla("ct","cta_contable","=\'"+StringClip(true,request.pr_cta_contable)+"\'",false,false);
request.pr_t_cta_contable=c_ctas_contables.descripcion;
c_ctas_contables.close();
}
else
request.pr_t_cta_contable="";
if (request.pr_cond_pago && request.pr_cond_pago != null) {
CursorTabla("cp","cond_pago","=\'"+StringClip(true,request.pr_cond_pago)+"\'",false,false);
request.pr_t_condpago=c_cond_pago.descripcion;
c_cond_pago.close();
}
else
request.pr_t_condpago="";
}
writeln('<FORM NAME="f_proveedor" METHOD="post"');
if (request.pr_nif && !request.nvo )
htmlpath="o_proveedor.html?pr_nif="+escape(request.pr_nif)+"&"+baseHtml;
else
htmlpath="o_proveedor.html?nvo=1"+baseHtml;
writeln('action="'+htmlpath+'"');
writeln(' onSubmit="return Chek_fields(this)">');
LoadHidden(htmlpath);
if (!request.waux && request.FrameType == "L" )
ObjHeadBar(request.pr_nif,"Proveedores","pr_");
writeln(' <CENTER>');
writeln(' <TABLE BORDER=1 ALIGN=CENTER><TR>');
//if (!request.waux)
// writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" N.I.F. " ONCLICK="w_auxiliar(\'proveedor\',\'Proveedores\',\'pr_nif\',\''+request.pr_nif+'\')">');
//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> N.I.F. </B>');
//}
if (request.pr_nif && !request.nvo)
writeln('<FONT COLOR="#800040"><B>'+request.pr_nif+'</B></FONT><INPUT type="hidden" name="pr_nif" VALUE="'+request.pr_nif+'"></TD>');
else
writeln('<INPUT TYPE="text" NAME="pr_nif" VALUE="'+request.pr_nif+'" SIZE=12 OnChange="this.value=this.value.toUpperCase();RePaint(this)"></TD>');
writeln('<TD ALIGN=RIGTH>');
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.pr_razon_social+'</FONT></B><INPUT type="hidden" NAME="pr_razon_social" VALUE="'+request.pr_razon_social+'" SIZE=40 maxlength=40 ></TD></TR>');
else
writeln('<INPUT TYPE="text" NAME="pr_razon_social" VALUE="'+request.pr_razon_social+'" SIZE=40 maxlength=40 ></TD></TR>');
if (request.waux || !request.lock)
writeln('<TR><TD ALIGN=RIGHT> <B>Cta Contable</B></TD> ');
else {
writeln('<TR><TD ALIGN=RIGHT> <INPUT TYPE="button" VALUE="Cta Contable" ');
writeln(' ONCLICK="w_auxiliar(\'ctascont\',\'Cuentas_Contables\',\'ct_cta_contable\',\''+StringClip(true,request.pr_cta_contable)+'\')"></TD>');
}
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_cta_contable+'<B></FONT> <INPUT TYPE="hidden" NAME="pr_cta_contable" VALUE="'+request.pr_cta_contable+'")</TD></TR>');
else {
writeln('<TD> <INPUT TYPE="text" NAME="pr_cta_contable" VALUE="'+request.pr_cta_contable+'")');
writeln(' onFocus="setStatus(\'Código de Cta. Contable\')"');
writeln(' SIZE='+client.pa_longcta+' OnChange="CtaNroPad(this);RePaint(this)"> </TD></TR>');
}
writeln('<TR><TD ALIGN=RIGHT><B>Título Cuenta</B></TD>');
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.pr_t_cta_contable+'</FONT></TD></TR>');
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.pr_cond_pago)+'\')">');
}
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.pr_cond_pago+'</B></FONT><INPUT TYPE="hidden" NAME="pr_cond_pago" VALUE="'+request.pr_cond_pago+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
else
writeln('<INPUT TYPE="text" NAME="pr_cond_pago" VALUE="'+request.pr_cond_pago+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
writeln('<TD><FONT COLOR="#800040">'+request.pr_t_condpago+'</FONT></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT ><B>Domicilio:</I></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_domicilio+'</B><INPUT type="hidden" name="pr_domicilio" value="'+request.pr_domicilio+'" size=40 maxlength=40> </TD>');
else
writeln('<TD><INPUT type="text" name="pr_domicilio" value="'+request.pr_domicilio+'" size=40 maxlength=40> </TD>');
writeln('</TR><TR><TD ALIGN=RIGHT><B>Localidad:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_localidad+'</B></FONT><INPUT TYPE="hidden" NAME="pr_localidad" VALUE="'+request.pr_localidad+'" SIZE=30></TD></TR>');
else
writeln('<TD><INPUT TYPE="text" NAME="pr_localidad" VALUE="'+request.pr_localidad+'" SIZE=30></TD></TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Cod.Postal:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.pr_cod_postal+'</B></FONT><INPUT type="hidden" name="pr_cod_postal" VALUE="'+request.pr_cod_postal+'" size=7 maxlength=7></TD> </TR>');
else
writeln('<TD ALIGN=LEFT><INPUT type="text" name="pr_cod_postal" VALUE="'+request.pr_cod_postal+'" size=7 maxlength=7></TD> </TR>');
writeln('<TR><TD ALIGN=RIGHT> <B>Attn .Envio:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT> <FONT COLOR="#800040"><B>'+request.pr_attn_envio+'</B></FONT><INPUT type="hidden" name="pr_attn_envio" VALUE="'+request.pr_attn_envio+'" size=30 maxlength=40> </TD> </TR>');
else
writeln('<TD ALIGN=LEFT> <INPUT type="text" name="pr_attn_envio" VALUE="'+request.pr_attn_envio+'" size=30 maxlength=40> </TD> </TR>');
writeln('<TR> <TD ALIGN=RIGHT> <B>Direción Envio:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_direccion_envio+'</B></FONT><INPUT type="hidden" name="pr_direccion_envio" VALUE="'+request.pr_direccion_envio+'" size=40 maxlength=40> </TD> </TR>');
else
writeln('<TD> <INPUT type="text" name="pr_direccion_envio" VALUE="'+request.pr_direccion_envio+'" size=40 maxlength=40> </TD> </TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Localidad de Envio:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_localidad_envio+'</B></FONT><INPUT TYPE="hidden" NAME="pr_localidad_envio" VALUE="'+request.pr_localidad_envio+'" SIZE=30> </TD></TR>');
else
writeln('<TD> <INPUT TYPE="text" NAME="pr_localidad_envio" VALUE="'+request.pr_localidad_envio+'" SIZE=30> </TD></TR>');
writeln('<TR> <TD ALIGN=RIGHT> <B>Cod.Postal Envio:</B></TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.pr_cod_postal_envio+'</B></FONT><INPUT type="hidden" name="pr_cod_postal_envio" VALUE="'+request.pr_cod_postal_envio+'" size=7 maxlength=7></TD></TR>');
else
writeln('<TD ALIGN=LEFT> <INPUT type="text" name="pr_cod_postal_envio" VALUE="'+request.pr_cod_postal_envio+'" size=7 maxlength=7> </TD> </TR>');
writeln('<TR ALIGN=RIGHT><TD> <B>Teléfonos:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040"><B>'+request.pr_telefono_1+'</B></FONT><INPUT type="hidden" name="pr_telefono_1" VALUE="'+request.pr_telefono_1+'" size=14 maxlength=14>');
else
writeln('<TD ALIGN=LEFT> <INPUT type="text" name="pr_telefono_1" VALUE="'+request.pr_telefono_1+'" size=14 maxlength=14>');
if (request.waux || !request.lock)
writeln('<FONT COLOR="#800040"><B>'+request.pr_telefono_2+'</B></FONT><INPUT type="hidden" name="pr_telefono_2" VALUE="'+request.pr_telefono_2+'" size=14 maxlength=14> </TD> </TR>');
else
writeln('<INPUT type="text" name="pr_telefono_2" VALUE="'+request.pr_telefono_2+'" size=14 maxlength=14> </TD> </TR>');
writeln('<TR> <TD ALIGN=RIGHT><B>Nro. Fax:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_fax+'</B></FONT><INPUT type="hidden" name="pr_fax" VALUE="'+request.pr_fax+'" size=14 maxlength=14> </TD> </TR>');
else
writeln('<TD><INPUT type="text" name="pr_fax" VALUE="'+request.pr_fax+'" size=14 maxlength=14> </TD> </TR>');
writeln('<TR> <TD ALIGN=RIGHT><B>Correo Electrónico:</B> </TD>');
if (request.waux || !request.lock)
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_e_mail+'</B></FONT><INPUT type="hidden" name="pr_e_mail" VALUE="'+request.pr_e_mail+'" size=30 maxlength=30> </TD></TR>');
else
writeln('<TD> <INPUT type="text" name="pr_e_mail" VALUE="'+request.pr_e_mail+'" size=30 maxlength=30> </TD></TR>');
writeln('<TR> <TD ALIGN=RIGHT><B>Observaciones: </B> </TD>');
writeln('<FONT COLOR="#800040"><TD ALIGN=LEFT> <TEXTAREA NAME="pr_observaciones" ROWS=4 COLS=30 SIZE=30 maxlength=30 WRAP="virtual">'+request.pr_observaciones+' </TEXTAREA> </TD> </TR>');
writeln('<TR><TD ALIGN=RIGHT><B>Expediente:</B></TD>');
if (request.waux || !request.lock) {
writeln('<TD><FONT COLOR="#800040"><B>'+request.pr_expediente+'</B></FONT><INPUT type="hidden" name="pr_expediente" VALUE="'+request.pr_expediente+'" size=35 maxlength=40></TD></TR>');
}else
writeln('<TD><INPUT type="text" name="pr_expediente" VALUE="'+request.pr_expediente+'" size=35 maxlength=40></TD></TR>');
writeln('</TABLE></FORM>');
if (!request.waux) {
writeSignature(true);
}
if (request.gofunc) {
writeln('-->');
}
else {
writeln('</BODY>');
writeln('</HTML>');
}
</SERVER>