(*************************************************************)
(* Fecha de £ltima modificaci¢n   : __ de __________ de 1992 *)
(* Modificado por                 : Ren‚ A. Rodr¡guez Gzz.   *)
(* Explicacion                    : Variables del Sist. Graf.*)
(*                                                           *)
(*************************************************************)

Unit SGVarsbk;
{$F+}
Interface

Uses Graph;

Const
  Top     = #1;     Center  = #2;     Bottom =#3;
  Txt     = True;   Grf     = False;
  SiMenu  = 0;      NoMenu  = 1;
  SI      = '1';    NO      = '0';

{
  Null    = #0;     Top     = #1;     Center  = #2;     Bottom =#3;
  Txt     = True;   Grf     = False;
  SiMenu  = 0;      NoMenu  = 1;
  SI      = '1';    NO      = '0';
  CR      = #13;    Esc     = #27;
  HomeKey = #199;   EndKey  = #207; UpKey   = #200;   DownKey = #208;
  F1 = #187;   F2 = #188;   F3 = #189;   F4 = #190;    F5  = #191;
  F6 = #192;   F7 = #193;   F8 = #194;   F9 = #195;    F10 = #196;
}

  NULL      = #0;        BS        = #8;           FORMFEED  = #12;
  CR        = #13;       TAB       = #9;           BCKTAB    = #15;
  ESC       = #27;       HOMEKEY   = #71;          ENDKEY    = #79;
  UPKEY     = #72 ;      DOWNKEY   = #80 ;         PGUP      = #73 ;
  PGDN      = #81 ;      LEFTKEY   = #75 ;         INSKEY    = #82 ;
  RIGHTKEY  = #77 ;      DELKEY    = #83 ;         CTLEND    = #117;
  CTLLEFT   = #115;      CTLRIGHT  = #116;         F1        = #187;
  F2        = #188;      F3        = #189;         F4        = #190;
  F5        = #191;      F6        = #192;         F7        = #193;
  F8        = #194;      F9        = #195;         F10       = #196;
  CTLHOME   = #119;      CTLPGUP   = #132;         CTLPGDN   = #118;
  ALTF2     = #105;      ALT1      = #120;         ALT2      = #121;
  ALT3      = #122;      ALT4      = #123;         ALT5      = #124;
  ALT6      = #125;      ALT7      = #254;         ALT8      = #255;
  ALT9      = #128;      ALT10     = #129;         ALT11     = #130;
  ALT12     = #131;

Type
(***** STRING ******)
    Str1   = String [ 1];
    Str2   = String [ 2];
    Str3   = String [ 3];
    Str4   = String [ 4];
    Str5   = String [ 5];
    Str6   = String [ 6];
    Str7   = String [ 7];
    Str8   = String [ 8];
    Str10  = String [10];
    Str14  = String [14];
    Str15  = String [15];
    Str20  = String [20];
    Str30  = String [30];
    Str40  = String [40];
    Str50  = String [50];
    Str55  = String [55];
    Str75  = String [75];
    Str80  = String [80];

(***** REGISTROS  ******)
   DatReg  = Record                         {2512}
               Tipo_Salida      : Char;
               Num_Remision     : Str6;
               Num_Pedido       : Str6;
               Secuencia_Int    : Str6;
               Tot_Hojas        : Str2;
               Num_Hoja         : Str2;
               Pregunta_Impr    : Char;
               Tipo_Impr        : Char;
               Renglon1         : Str50;
               Renglon2         : Str75;
               Renglon3         : Str50;
               Tipo_Grafica     : Char;
               Secuencia_Ext    : Str6;
               Presentacion     : Str10;
               Num_Paq_Int      : Str3;
               Lta_Paq_Int      : Str15;
               Num_Paq_Ext      : Str3;
               Lta_Paq_Ext      : Str15;
               Num_Cliente      : Str7;
               Nom_Cliente      : Str40;
               Tipo_Producto    : Str10;
               Tolerancia       : Char;
               Calibre          : Str4;
               Ancho            : Str6;
               Acabado          : Str2;
               Acero            : Str4;
               Proceso          : Str2;
               Calidad          : Str14;
               Promedio         : Array [1..4] Of Str4;
               Desviacion       : Array [1..4] Of Str4;
               Totales          : Array [1..4] Of Str4;
               Prom             : Array [1..4] Of Str5;
               Cal_Nominal      : Str4;
               Cal_Promedio     : Str4;
               Ancho_Nominal    : Str5;
               Ancho_Promedio   : Str5;
               Lim_Superior_TC  : Str4;
               Lim_Inferior_TC  : Str4;
               Lim_Superior_TL  : Str4;
               Lim_Inferior_TL  : Str4;
               Lim_Superior_ZS  : Str4;
               Lim_Inferior_ZS  : Str4;
               TC_Pos           : Str4;
               TC_Neg           : Str4;
               TL_Pos           : Str4;
               TL_Neg           : Str4;
               Fecha            : Str8;
               Hora             : Str6;
               Linea_Int        : Str3;
               Linea_Ext        : Str3;
               Metodo           : Str10;
               Estacion         : Str2;
               Longitud         : Str4;
               Num_Muestras     : Str4;
               Distancia        : Str2;
               Muestras         : Array [1..400] Of Str4;
               Inicio_Cpo1      : Str3;
               Final_Cpo1       : Str3;
               Soldadura        : Str3;
               Limite_Grafica   : Str4;
               Mil_ZS_RF        : Str4;
               Titulo_Grafica   : Str55;
               Titulo_Graf_2    : Str20;
               Inicio_Rampa_Fin : Str3;
               Fin_Rampa_Ini    : Str3;
               Inicio_ZS        : Str3;
               Fin_ZS           : Str3;
               Elemento_Cert    : Char;
               Linea_Sol        : Str3;
               Orilla           : Str2;
               Valor_Nominal    : Str5;
               Valor_Promedio   : Str5;
               Companero        : Char;
               Calificacion     : Char;
               Defecto          : Str3;
             End;
   DatPtr  = ^DatReg;

(***** VARIABLES  ******)
   ValVar  = Record                         {427}
               Fecha               : Str8;
               Hora                : Str8;
               Cal_Nominal         : Word;
               Cal_Promedio        : Word;
               Ancho_Nominal       : Word;
               Ancho_Promedio      : Word;
               Longitud            : Word;
               Num_Muestras        : Word;
               Distancia           : Word;
               Muestras            : Array [1..400] Of Word;
               Inicio_Cpo1         : Word;
               Final_Cpo1          : Word;
               Soldadura           : Word;
               Limite_Grafica      : Byte;
               Mil_ZS_RF           : Byte;
               Lim_Superior_TL     : Word;
               Lim_Inferior_TL     : Word;
               Lim_Superior_TC     : Word;
               Lim_Inferior_TC     : Word;
               Lim_Superior_ZS     : Word;
               Lim_Inferior_ZS     : Word;
               TC_Pos              : Word;
               TC_Neg              : Word;
               TL_Pos              : Word;
               TL_Neg              : Word;
               Inicio_Rampa_Fin    : Word;
               Fin_Rampa_Ini       : Word;
               Inicio_ZS           : Word;
               Fin_ZS              : Word;
               Valor_Nominal       : Word;
               Valor_Promedio      : Word;
               Promedio            : Array [1..4] of Word;
               Prom                : Array [1..4] of Word;
               Segs_wait           : Word;
             End;
   ValPtr  = ^ValVar;

   Screen  = Array [1..4000] Of Byte;

   ArregloChar     = Packed Array [1..350] of char;
   ArregloCharPtr  = ^ArregloChar;

   DatosComunes = Record
                   Destino          : Str2;
                   Num_Remision     : Str6;
                   Fecha_Alta       : Str8;
                   Hora_Alta        : Str6;
                   Num_Pagina       : Str2;
                   Tipo_Mensaje     : Char;
                   Sw_Desencola     : Char;
                   Fecha_desencola  : Str8;
                   Hora_desencola   : Str6;
                   Num_Paginas      : Str2;
                   Nom_Cliente      : Str40;
                   Estado           : Char;
                   Elemento_Cert    : Char;
                   Companero        : Char;
                   Codigo_Mensaje   : Char;
                   End;

    DatosComunesPtr  =  DatosComunes;

    DatosGraficar = Record
                    Tipo_Grafica     : Char;
                    Num_Remision     : Str6;
                    Num_Pedido       : Str6;
                    Secuencia_Int    : Str6;
                    Cortes_Sec_Int   : Str3;
                    Secuencia_Ext    : Str6;
                    Cortes_Sec_Ext   : Str3;
                    Sw_Exi_DCP       : Char;
                    Sw_Exi_DPP       : Char;
                    Sw_Exi_TT        : Char;
                    Sw_Exi_Sec_Int   : Char;
                    Presenta_Int     : Char;
                    Paquetes_Int     : Array [1..3] of Str3;
                    Pos_Sec_Int      : Char;
                    Pos_Pta_Int      : Char;
                    Sw_Exi_Perf_Int  : Char;
                    Sw_Exi_Desca_CI  : Char;
                    Sw_Exi_Inc_CI    : Char;
                    Sw_Exi_Inc_OVI   : Char;
                    Sw_Exi_Inc_LPI   : Char;
                    Linea_Med_Int    : Str3;
                    Sw_Exi_Sec_Ext   : Char;
                    Presenta_Ext     : Char;
                    Paquetes_Ext     : Array [1..3] of Str3;
                    Pos_Sec_Ext      : Char;
                    Pos_Pta_Ext      : Char;
                    Sw_Exi_Perf_Ext  : Char;
                    Sw_Exi_Desca_CE  : Char;
                    Sw_Exi_Inc_CE    : Char;
                    Sw_Exi_Inc_OVE   : Char;
                    Sw_Exi_Inc_LPE   : Char;
                    Linea_Med_Ext    : Str3;
                    Sw_Exi_Puntos_F  : Char;
                    Num_Cliente      : Str7;
                    Tipo_Producto    : Str4;
                    Tolerancia       : Char;
                    Ancho            : Str6;
                    Acabado          : Str2;
                    Acero            : Str4;
                    Proceso          : Str2;
                    Calidad_Req      : Str14;
                    Datos_Prom1      : Str4;
                    Desv_Std1        : Str4;
                    Tot_Mts1         : Str4;
                    Datos_Prom2      : Str4;
                    Desv_Std2        : Str4;
                    Tot_Mts2         : Str4;
                    Datos_Prom3      : Str4;
                    Desv_Std3        : Str4;
                    Tot_Mts3         : Str4;
                    Datos_Prom4      : Str4;
                    Desv_Std4        : Str4;
                    Tot_Mts4         : Str4;
                    Calibre_Obj      : Str4;
                    TC_Pos           : Str4;
                    TC_Neg           : Str4;
                    TL_Pos           : Str4;
                    TL_Neg           : Str4;
                    Fecha_Emision    : Str8;
                    Hora_Emision     : Str6;
                    Long_Rollo       : Str4;
                    Cant_Muestras    : Str3;
                    Dist_Muestras    : Str2;
                    Pri_Sec_Graf     : Str6;
                    Inicio_Cuerpo    : Str3;
                    Final_Cuerpo     : Str3;
                    Seg_Sec_Graf     : Str6;
                    Sw_Prim_Sec_Graf : Str1;
                    Ubi_Soldadura    : Str3;
                    Muestras         : Array [1..400] of Str4;
                    Pedido_Dig3      : Str1;
                    Pedido_Dig12     : Str2;
                    Inicio_ZS        : Str3;
                    Fin_ZS           : Str3;
                    Inicio_Rampa_Fin : Str3;
                    Fin_Rampa_Ini    : Str3;
                    Sw_Exi_Inc_Inf   : Char;
                    Sw_Exi_Inc_Peso  : Char;
                    Limite_Grafica   : Str4;
                    Orilla           : Str2;
                    Linea_Sol        : Str3;
                    Calificacion     : Char;
                    Defecto          : Str3;
                    End;

     DatosGraficarPtr  =  ^DatosGraficar;

     FdConfig     = Record
             {1}    Num_Estacion           : Str2;
             {2}    Tipo_Impresora         : Char;
             {3}    Tipo_Estacion          : Str2;
             {4}    Limite_Grafica_RF      : Str4;
             {5}    Limite_Grafica_Cal_RC  : Str4;
             {6}    Limite_Grafica_Anc_RC  : Str4;
             {7}    Limite_Grafica_Pla_RC  : Str4;
             {8}    Mil_ZS_RF              : Str4;
             {9}    Imp_Inicio_RF          : Char;
            {10}    Imp_Inicio_Cal_RC      : Char;
            {11}    Imp_Inicio_Anc_RC      : Char;
            {12}    Imp_Fin_RF             : Char;
            {13}    Imp_Fin_Cal_RC         : Char;
            {14}    Imp_Fin_Anc_RC         : Char;
            {15}    Imp_Msg_Err_RF         : Char;
            {16}    Imp_Msg_Err_Cal_RC     : Char;
            {17}    Imp_Msg_Err_Anc_RC     : Char;
            {18}    Imp_Msg_Usr_RF         : Char;
            {19}    Imp_Msg_Usr_Cal_RC     : Char;
            {20}    Imp_Msg_Usr_Anc_RC     : Char;
            {21}    Segs_wait              : Str4;
                    End;

      Campos_Info   =  Record
			Ren    : Integer;
			Col    : Integer;
			Long   : Integer;
			Txt_Num: Char;
			Captur : Char;
			Visibl : Char;
			Intens : Char;
                        RenIms : Integer;
                        ColIms : Integer;
                        Dato   : Str20;
		      End;
Var

  {ERS} archivo       : string;

      FullScr,    WorkScr,
      CurrentScr, MenuScr    : ViewPortType;
      Pantalla               : Screen;
(**** REAL ****)
      Esv                    : Array [1..3] Of Real;
      Area_Graf_X            : Real;
      Area_Graf_Y            : Real;
(**** INTEGER ****)
      GraphDriver, GraphMode : Integer;
      I_RC                   : Integer;
      Tot_Grafs_Sol          : Integer;
(**** WORD ****)
      Max,       Min,
      MaxX,      MaxY,
      Ancho,     Alto,
      Code                   : Word;
(**** BYTE ****)
      DispImp                : Byte;
(**** CHAR ****)
      Ch                     : Char;
      Caracter_Especial      : Char;
      Posicion_Grafica       : Char;
      Fin_Impresion          : Char;
      Emite_Grafica          : Char;
(**** VARIABLES ****)
      Datos                             : DatPtr;
      Datos_RC                          : Array [1..3] of DatPtr;
      Valor                             : ValPtr;
      RegDC                             : DatosComunes;
      RegDG                             : DatosGraficarPtr;
      RegConfig                         : FdConfig;
      Reg_Campos_Info                   : Array[1..350] of Campos_Info;
      Nom_Fto                           : Str6;
      Msg_Funciones                     : String;

{      LST                               : Text;}

implementation

Begin
End.