359 lines
17 KiB
HTML
359 lines
17 KiB
HTML
<TITLE>pedidos</TITLE>
|
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE>pedidos</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 pedidos">
|
|
<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_pedido.action=top.main.document.location.href+"&cookie=1&lock=true";
|
|
document.f_pedido.submit();
|
|
}
|
|
function Chek_fields(obj) {
|
|
if ( emptyField(obj.pe_nro_pedido) == true ) {
|
|
alert("!!! Es necesario rellenar el Código de pedido !!!->"+obj.pe_nro_pedido.value+"<-");
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
</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="";
|
|
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_pedido;');
|
|
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.pe_nro_pedido,"Pedidos","pe_");
|
|
}
|
|
writeln('}');
|
|
}
|
|
if ( request.ViewFkey == "S" ) {
|
|
writeln('function RePaint(obj) {');
|
|
writeln(' var mainFrame=find_frame(top,"main");');
|
|
writeln(' for ( var i=0; i < document.f_pedido.length; i++ ) { ');
|
|
writeln(' if ( document.f_pedido.elements[i].name == obj.name ) ');
|
|
writeln(' break; ');
|
|
writeln(' } ');
|
|
writeln(' document.f_pedido.action=mainFrame.document.location.href+"&cookie=1&nro="+i+"&lock=true"');
|
|
writeln(' document.f_pedido.submit();');
|
|
writeln('} ');
|
|
}
|
|
else {
|
|
writeln('function ScrollVer(obj) {');
|
|
writeln(' status_scroll=true; ');
|
|
writeln(' MESSAGE=" ¡¡¡ Los Datos del Pedido 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_pedido.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 pedidos where nro_pedido=\'"+StringClip(true,request.pe_nro_pedido)+"\'") == true ){
|
|
redirect("alertpage.html?alert=2");
|
|
}
|
|
else {
|
|
status=database.execute("INSERT INTO pedidos(" +
|
|
" nro_pedido," +
|
|
" descripcion," +
|
|
" nif_proveedor," +
|
|
" cod_centro," +
|
|
" cond_pago," +
|
|
" fecha_pedido," +
|
|
" fecha_entrega," +
|
|
" importe," +
|
|
" observaciones) VALUES ('" + StringClip(true,request.pe_nro_pedido) + "','" +
|
|
StringClip(true,request.pe_descripcion) + "','"+
|
|
StringClip(true,request.pe_nif_proveedor) + "','"+
|
|
StringClip(true,request.pe_cod_centro) + "','"+
|
|
StringClip(true,request.pe_cond_pago) + "','"+
|
|
DateFormat(request.pe_fecha_pedido,NLDF) + "','"+
|
|
DateFormat(request.pe_fecha_entrega,NLDF) + "','"+
|
|
NroUnformat(request.pe_importe) + "','"+
|
|
StringClip(true,request.pe_observaciones) + "')");
|
|
if ( status != 0 )
|
|
redirect(addClient('error.html?alert=5'));
|
|
DbsError(true,status);
|
|
}
|
|
redirect(addClient("o_pedido.html?nvo=1&"+baseHtml));
|
|
}
|
|
//Ejecuta una actualización de la fila sobre la fila actual ...
|
|
if (request.upd && request.pe_nro_pedido) {
|
|
// if (request.lock)
|
|
// c_pedidos.close();
|
|
status=database.execute("UPDATE pedidos SET "+
|
|
" descripcion='" + StringClip(true,request.pe_descripcion) + "',"+
|
|
" nif_proveedor='" + StringClip(true,request.pe_nif_proveedor) + "',"+
|
|
" cod_centro='" + StringClip(true,request.pe_cod_centro) + "',"+
|
|
" cond_pago='" + StringClip(true,request.pe_cond_pago) + "',"+
|
|
" fecha_pedido='" + DateFormat(request.pe_fecha_pedido,NLDF) + "',"+
|
|
" fecha_entrega='" + DateFormat(request.pe_fecha_entrega,NLDF) + "',"+
|
|
" importe='" + NroUnformat(request.pe_importe) + "',"+
|
|
" observaciones='" + StringClip(true,request.pe_observaciones) + "'"+
|
|
" WHERE nro_pedido = '" + request.pe_nro_pedido + "'" );
|
|
if ( status != 0 )
|
|
redirect(addClient('error.html?alert=6'));
|
|
DbsError(true,status);
|
|
redirect(addClient("g_pedido.html?"+baseHtml));
|
|
}
|
|
//Ejecuta un borrado de la fila actual ...
|
|
if (request.del) {
|
|
status=database.execute("DELETE FROM pedidos WHERE nro_pedido = \'" + request.pe_nro_pedido + "\'");
|
|
if ( status != 0 )
|
|
redirect(addClient('error.html?alert=7'));
|
|
DbsError(true,status);
|
|
redirect(addClient("g_pedido.html?"+baseHtml));
|
|
}
|
|
if (request.pe_nro_pedido && !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("pe","nro_pedido","=\'"+request.pe_nro_pedido+"\'",true,true);
|
|
else
|
|
CursorTabla("pe","nro_pedido","=\'"+request.pe_nro_pedido+"\'",true,"");
|
|
// Asignamos a request todas las columnas necesarias para el form.
|
|
request.pe_nro_pedido=StringClip(false,c_pedidos.nro_pedido);
|
|
request.pe_descripcion=StringClip(false,c_pedidos.descripcion);
|
|
request.pe_nif_proveedor=StringClip(false,c_pedidos.nif_proveedor);
|
|
request.pe_cod_centro=StringClip(false,c_pedidos.cod_centro);
|
|
request.pe_cond_pago=StringClip(false,c_pedidos.cond_pago);
|
|
request.pe_fecha_pedido=datetoString(c_pedidos.fecha_pedido);
|
|
request.pe_fecha_entrega=datetoString(c_pedidos.fecha_entrega);
|
|
request.pe_importe=NroFormat(c_pedidos.importe,NF9);
|
|
request.pe_observaciones=StringClip(false,c_pedidos.observaciones);
|
|
if (!request.lock)
|
|
c_pedidos.close();
|
|
if (request.pe_nif_proveedor && request.pe_nif_proveedor != null ) {
|
|
CursorTabla("pr","nif","=\'"+StringClip(true,request.pe_nif_proveedor)+"\'",false,false);
|
|
request.pe_t_razon_social=c_proveedores.razon_social;
|
|
c_proveedores.close();
|
|
}
|
|
else
|
|
request.pe_t_razon_social="";
|
|
if (request.pe_cod_centro && request.pe_cod_centro != null ) {
|
|
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.pe_cod_centro)+"\'",false,false);
|
|
request.pe_t_des_centro=c_centros.descripcion;
|
|
c_centros.close();
|
|
}
|
|
else
|
|
request.pe_t_des_centro="";
|
|
if (request.pe_cond_pago && request.pe_cond_pago != null) {
|
|
CursorTabla("cp","cond_pago","=\'"+StringClip(true,request.pe_cond_pago)+"\'",false,false);
|
|
request.pe_t_des_condpago=c_cond_pago.descripcion;
|
|
c_cond_pago.close();
|
|
}
|
|
else
|
|
request.pe_t_des_condpago="";
|
|
}
|
|
else {
|
|
// Estos son los Defaults Reales del Form ... Aquí pueden cambiarse ...
|
|
IniciaRequest("pe_");
|
|
request.lock=true;
|
|
request.pe_t_razon_social="";
|
|
request.pe_t_des_centro="";
|
|
request.pe_t_des_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.pe_nro_pedido && request.pe_nro_pedido != null ) {
|
|
if ( entriesExist(" from pedidos where nro_pedido=\'"+StringClip(true,request.pe_nro_pedido)+"\'") == true ) {
|
|
redirect("alertpage.html?alert=2");
|
|
}
|
|
}
|
|
if (request.pe_nif_proveedor && request.pe_nif_proveedor != null ) {
|
|
CursorTabla("pr","nif","=\'"+StringClip(true,request.pe_nif_proveedor)+"\'",false,false);
|
|
request.pe_t_razon_social=c_proveedores.razon_social;
|
|
c_proveedores.close();
|
|
}
|
|
else
|
|
request.pe_t_razon_social="";
|
|
if (request.pe_cod_centro && request.pe_cod_centro != null ) {
|
|
CursorTabla("ce","cod_centro","=\'"+StringClip(true,request.pe_cod_centro)+"\'",false,false);
|
|
request.pe_t_des_centro=c_centros.descripcion;
|
|
c_centros.close();
|
|
}
|
|
else
|
|
request.pe_t_des_centro="";
|
|
if (request.pe_cond_pago && request.pe_cond_pago != null) {
|
|
CursorTabla("cp","cond_pago","=\'"+StringClip(true,request.pe_cond_pago)+"\'",false,false);
|
|
request.pe_t_des_condpago=c_cond_pago.descripcion;
|
|
c_cond_pago.close();
|
|
}
|
|
else
|
|
request.pe_t_des_condpago="";
|
|
}
|
|
writeln('<FORM NAME="f_pedido" METHOD="post"');
|
|
if (request.pe_nro_pedido && !request.nvo )
|
|
htmlpath="o_pedido.html?pe_nro_pedido="+escape(request.pe_nro_pedido)+"&"+baseHtml;
|
|
else
|
|
htmlpath="o_pedido.html?"+baseHtml;
|
|
writeln('action="'+htmlpath+'"');
|
|
writeln(' onSubmit="return Chek_fields(this)">');
|
|
LoadHidden(htmlpath);
|
|
if (!request.waux && request.FrameType == "L" )
|
|
ObjHeadBar(request.pe_nro_pedido,"Pedidos","pe_");
|
|
writeln(' <CENTER>');
|
|
writeln(' <TABLE BORDER=1 ALIGN=CENTER><TR>');
|
|
//if (!request.waux)
|
|
// writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" Código " ONCLICK="w_auxiliar(\'nro_pedido\',\'nro_pedido\',\'pe_nro_pedido\',\''+request.pe_nro_pedido+'\')">');
|
|
//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úmero: </B></TD>');
|
|
//}
|
|
|
|
if (request.pe_nro_pedido && !request.nvo)
|
|
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_nro_pedido+'</B></FONT><INPUT type="hidden" size=20 name="pe_nro_pedido" VALUE="'+request.pe_nro_pedido+'"></TD>');
|
|
else
|
|
writeln('<TD><INPUT TYPE="text" NAME="pe_nro_pedido" VALUE="'+request.pe_nro_pedido+'" SIZE=20 OnChange="RePaint(this)"></TD>');
|
|
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Descripción:</B></TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_descripcion+'</FONT><INPUT type="hidden" name="pe_descripcion" VALUE="'+request.pe_descripcion+'" size=40 maxlength=40></TD></TR>');
|
|
else
|
|
writeln('<TD><INPUT type="text" name="pe_descripcion" VALUE="'+request.pe_descripcion+'" size=40 maxlength=40></TD></TR>');
|
|
// writeln(' onFocus="setStatus(\'\')"');
|
|
if (!request.waux || !request.lock)
|
|
writeln('<TD ALIGN=RIGHT><INPUT TYPE="button" VALUE=" N.I.F. " ONCLICK="w_auxiliar(\'proveedor\',\'Proveedores\',\'pr_nif\',\''+StringClip(true,request.pe_nif_proveedor)+'\')">');
|
|
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.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.pe_nif_proveedor+'</B></FONT><INPUT type="hidden" name="pr_nif" VALUE="'+request.pe_nif_proveedor+'"></TD>');
|
|
else
|
|
writeln('<INPUT TYPE="text" NAME="pe_nif_proveedor" VALUE="'+request.pe_nif_proveedor+'" SIZE=12 OnChange="this.value=this.value.toUpperCase();RePaint(this)"></TD>');
|
|
writeln('<TD ALIGN=LEFT>');
|
|
writeln('<FONT COLOR="#800040">'+request.pe_t_razon_social+'</FONT></TD></TR>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Centro</B>');
|
|
else {
|
|
writeln('<TR><TD ALIGN=RIGHT><INPUT TYPE="button" VALUE="Centro" ');
|
|
writeln(' ONCLICK="w_auxiliar(\'centro\',\'+Centros\',\'ce_cod_centro\',\''+StringClip(true,request.pe_cod_centro)+'\')">');
|
|
}
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.pe_cod_centro+'</B></FONT><INPUT TYPE="hidden" NAME="pe_con_centro" VALUE="'+request.pe_cod_centro+'" SIZE=12 OnChange="RePaint(this)"> </TD>');
|
|
else
|
|
writeln('<INPUT TYPE="text" NAME="pe_cod_centro" VALUE="'+request.pe_cod_centro+'" SIZE=12 OnChange="RePaint(this)"> </TD>');
|
|
writeln('<TD ALIGN=LEFT><FONT COLOR="#800040">'+request.pe_t_des_centro+'</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.pe_cond_pago)+'\')">');
|
|
}
|
|
if (request.waux || !request.lock)
|
|
writeln('<FONT COLOR="#800040"><B>'+request.pe_cond_pago+'</B></FONT><INPUT TYPE="hidden" NAME="pe_cond_pago" VALUE="'+request.pe_cond_pago+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
|
|
else
|
|
writeln('<INPUT TYPE="text" NAME="pe_cond_pago" VALUE="'+request.pe_cond_pago+'" SIZE=4 OnChange="RePaint(this)"> </TD>');
|
|
writeln('<TD ALIGN=LEFTT><FONT COLOR="#800040">'+request.pe_t_des_condpago+'</FONT></TD>');
|
|
writeln('<TR><TD><B>Fecha de Pedido:</B> </TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_fecha_pedido+'</B></FONT><INPUT TYPE="hidden" NAME="pe_fecha_pedido" VALUE="'+request.pe_fecha_pedido+'" SIZE=10> </TD></TR>');
|
|
else
|
|
writeln('<TD> <INPUT TYPE="text" NAME="pe_fecha_pedido" VALUE="'+request.pe_fecha_pedido+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" SIZE=10> </TD></TR>');
|
|
writeln('<TR><TD><B>Fecha de Entrega:</B> </TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_fecha_entrega+'</B></FONT><INPUT TYPE="hidden" NAME="pe_fecha_pedido" VALUE="'+request.pe_fecha_entrega+'" SIZE=10> </TD></TR>');
|
|
else
|
|
writeln('<TD> <INPUT TYPE="text" NAME="pe_fecha_entrega" VALUE="'+request.pe_fecha_entrega+'" onBlur="ToStringDate(this,IFDF)" onFocus="UnfrmtStrDate(this,IFDF)" SIZE=10> </TD></TR>');
|
|
writeln('<TR><TD><B>Importe:</B> </TD>');
|
|
if (request.waux || !request.lock)
|
|
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_importe+'</B></FONT><INPUT TYPE="hidden" NAME="pe_fecha_pedido" VALUE="'+request.pe_importe+'" SIZE=15> </TD></TR>');
|
|
else
|
|
writeln('<TD> <INPUT TYPE="text" NAME="pe_importe" VALUE="'+request.pe_importe+'" onBlur="NroToString(this,NF9)" onFocus="StringToNro(this,NF9)" SIZE=15> </TD></TR>');
|
|
writeln('<TR> <TD ALIGN=RIGHT><B>Observaciones: </B> </TD>');
|
|
writeln('<FONT COLOR="#800040"><TD ALIGN=LEFT> <TEXTAREA NAME="pe_observaciones" ROWS=4 COLS=30 SIZE=30 maxlength=30 WRAP="virtual">'+request.pe_observaciones+'</TEXTAREA></FONT> </TD> </TR>');
|
|
writeln('<TR><TD ALIGN=RIGHT><B>Expediente:</B></TD>');
|
|
if (request.waux || !request.lock) {
|
|
writeln('<TD><FONT COLOR="#800040"><B>'+request.pe_expediente+'</B></FONT><INPUT type="hidden" name="pe_expediente" VALUE="'+request.pr_expediente+'" size=35 maxlength=40></TD></TR>');
|
|
}else
|
|
writeln('<TD><INPUT type="text" name="pe_expediente" VALUE="'+request.pe_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>
|