#include<graphics.h>
#include<dos.h>
#include<io.h>
#include<conio.h>
#include<stdio.h>
// #include<string.h>
#include<ctype.h>
#include<alloc.h>
#include<stdlib.h>
#include "sv_util.h"
#include "c:\things\borlandc\jd_lib\jd_graph.h"


#define Letra_Boton    setcolor(1);
#define Azul           1
#define Texto_Normal   setcolor(63);
#define Texto_Negrita  setcolor(0);

extern int x_raton, y_raton, raton;
extern int boton_izq, boton_der;

extern int InputCadenaG(char *s, int numalp, int lmax, int cc, int cf, struct boton Campo);
extern void  desactiva_raton(void);
extern void  activa_raton(void);
// extern void  Anclar_Raton(void);
extern void  inicializa_raton_grafico(int x1, int y1, int x2, int y2, int px, int py);
extern int Espera_Tecla_o_Raton(void);
extern void BEEP(void);
extern void textxy(int x, int y, char *text);


#define NEGRO     0
#define AZUL      1
#define ROJO      4
#define VERDE     2
#define BLANCO   63
#define GRIS_O   56
#define GRIS_C    7
#define AMARILLO 62

extern void textxy(int x, int y, char *text);

int Comprueba_Impresora(void);
int Confirma(char *T1, char *T2, char *T3);
int Desde_Hasta(int *Desde, int *Hasta);
int Pide_Fecha_Actual(void);
int file_exists(char *filename);

int Confirma(char *T1, char *T2, char *T3){

void far *ptr;
unsigned size;
struct boton pregunta[2];
int fins_print=0, key_print, bpush, ok = 0;
int TFuente;
struct textsettingstype textinfo;
gettextsettings(&textinfo);
TFuente = textinfo.charsize;

size = imagesize(198, 138, 372, 257);

/* get byte size of image */
Fuente(SMALL_FONT, 5);

if ( (ptr = farmalloc(size)) == NULL) { Fuente(SMALL_FONT, TFuente); return 0; }

getimage(198, 138, 372, 257, ptr);

pregunta[0].up  = 140;	pregunta[0].down = 255;
pregunta[0].left= 200;  pregunta[0].right= 370;
ImprimeBoton (1, GRIS_C, GRIS_O, BLANCO, pregunta[0]);

pregunta[0].up  = 235;	pregunta[0].down = 250;
pregunta[0].left= 210;    pregunta[0].right= 270;
ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[0]);

pregunta[1].up  = 235;	pregunta[1].down = 250;
pregunta[1].left= 300;  pregunta[1].right= 360;
ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[1]);

textxy(212, 237, "   Si");
 textxy(212, 239, "   _");
textxy(302, 237, "   No");
 textxy(302, 239, "   _");

textxy(210+2, 150+2, T1);
textxy(210+2, 165+2, T2);
textxy(210+2, 180+2, T3);


//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
do{

 if(raton!=0) activa_raton();
  Espera_Tecla_o_Raton();
 if(raton!=0) desactiva_raton();

 if(kbhit()){
   key_print = getch();
   switch( toupper(key_print) ){
      // S  Si
      case  83:
	ok = 1;
	fins_print = 1;
	break;
      // N  No
      case  78:
	ok = 0;
	fins_print = 1;
	break;
      default:
	break;
     }
  } else
   if(raton!=0 && boton_izq==1 || boton_der==1) {
     if( (bpush = CheckButon( 2, pregunta))>0 ) {

       switch(bpush){
	 case 1:
		ok = 1;
		fins_print = 1;
		break;
	 case 2:
		ok = 0;
		fins_print = 1;
		break;
	 default:
                break;
       }
     }
   }

}while(!fins_print);




putimage(198, 138, ptr, COPY_PUT);
farfree(ptr);
Fuente(SMALL_FONT, TFuente);

return ok;

}



int Pide_Fecha_Actual(void){

    int Fecha;

//žžžžžž     void far *ptr;
//žžžžžž     unsigned size;
    char mes[][11] = { " Enero",   "Febrero",  " Marzo",
		       " Abril",   " Mayo",    " Junio",
		       " Julio",   " Agosto",  "Septiemb",
		       "Octubre",  "Noviemb",  "Diciemb"
    };

    struct boton pregunta[3];
    struct boton meses[12];

    int key_print, bpush, ok = 0;
    int TFuente;

    for( Fecha = 0; Fecha < 4; Fecha++ ){
     meses[2+3*Fecha].left  = 405;   meses[2+3*Fecha].right  = 455;
     meses[1+3*Fecha].left  = 350;   meses[1+3*Fecha].right  = 400;
     meses[0+3*Fecha].left  = 295;   meses[0+3*Fecha].right  = 345;
    }

    for( Fecha = 0; Fecha < 3; Fecha++ ) {
     meses[Fecha].up      = 80+140;   meses[Fecha].down     = 80+160;
     meses[Fecha+3].up    = 80+165;   meses[Fecha+3].down   = 80+185;
     meses[Fecha+6].up    = 80+190;   meses[Fecha+6].down   = 80+210;
     meses[Fecha+9].up    = 80+215;   meses[Fecha+9].down   = 80+235;
    }


    struct textsettingstype textinfo;
    gettextsettings(&textinfo);
    TFuente = textinfo.charsize;
				      struct date d;
				      getdate(&d);
				      Fecha = d.da_mon;

				      /* get byte size of image */
//žžžžžž			      size = imagesize(198, 138, 372, 257);



//žžžžžž if ( (ptr = farmalloc(size)) == NULL) {
//žžžžžž 				      Fuente(SMALL_FONT, TFuente);
//žžžžžž 				      return Fecha;
//žžžžžž 				      }

//žžžžžž 				      getimage(198, 138, 372, 257, ptr);


pregunta[0].up  = /*140*/130;	pregunta[0].down = /*255*/400;
pregunta[0].left= /*200*/150;  pregunta[0].right= /*370*/465;
ImprimeBoton (1, GRIS_C, GRIS_O, BLANCO, pregunta[0]);

pregunta[0].up  = /*143*/135;	pregunta[0].down = /*252*/395;
pregunta[0].left= /*203*/155;  pregunta[0].right= /*367*/460;
ImprimeBoton (0, GRIS_C, BLANCO, GRIS_O, pregunta[0]);


pregunta[0].up  = /*235*/370;	pregunta[0].down = /*250*/390;
pregunta[0].left= /*210*/160;    pregunta[0].right= /*270*/230;
ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[0]);

pregunta[1].up  = /*235*/370;	pregunta[1].down = /*250*/390;
pregunta[1].left= /*300*/385;  pregunta[1].right= /*360*/455;
ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[1]);

pregunta[2].up  = /*165*/175;	pregunta[2].down = /*185*/195;
pregunta[2].left= 212;  pregunta[2].right= /*232*/245;
ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[2]);

Fuente(SMALL_FONT, 4);
for( int i = 0; i < 12; i++ ) {
	ImprimeBoton (1, GRIS_C, GRIS_O, BLANCO, meses[i]);
	textxy(meses[i].left+4, meses[i].up+3, mes[i]);
}
ImprimeBoton (1, ROJO, GRIS_O, BLANCO, meses[Fecha-1]);
textxy(meses[Fecha-1].left+4, meses[Fecha-1].up+3, mes[Fecha-1]);

Fuente(SMALL_FONT, 5);

textxy(162, 372, " Aceptar");
 textxy(162, 373, " _");
textxy(387, 372, " Cancelar");
 textxy(387, 373, " _");

textxy(160+2, 145+2, "Introduzca mes a gestionar:");

// textxy(210+2, 165+2, T2);
// textxy(210+2, 180+2, T3);
char buffer[80];
int Mes=Fecha;

sprintf( buffer, "% 2d", Fecha);
textxy(pregunta[2].left + 4, pregunta[2].up + 2, buffer);

//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
do{

 if(raton!=0) activa_raton();
  Espera_Tecla_o_Raton();
 if(raton!=0) desactiva_raton();

 if(kbhit()){
   key_print = getch();
   if( key_print == 13 ) {Fecha = Mes; ok = 1; } else
   if( isdigit(key_print) ) {
   // Edita el mes actual
			 sprintf( buffer, "%d", Fecha);
			 do{
			 InputCadenaG( buffer, 1, 4, 63, 57, pregunta[2]);
			 Fecha = atoi(buffer);
			 }while(Fecha<1 || Fecha>12);
   } else
   if(key_print==0)
    switch( getch() ){
      // Flecha Izquierda
      case  75:
      case  15:
	ImprimeBoton (0, GRIS_C, GRIS_O, BLANCO, meses[Mes-1]);
	Mes--;
	if ( (Mes + 1)== 1 ) Mes = 3; else
	if ( (Mes + 1)== 4 ) Mes = 6; else
	if ( (Mes + 1)== 7 ) Mes = 9; else
	if ( (Mes + 1)==10 ) Mes = 12;
	ImprimeBoton (0, GRIS_C, AZUL, AZUL, meses[Mes-1]);
	break;
      // Flecha Derecha
      case  77:
      case   9:
	ImprimeBoton (0, GRIS_C, GRIS_O, BLANCO, meses[Mes-1]);
	Mes++;
	if ( (Mes - 1)== 3 ) Mes = 1;  else
	if ( (Mes - 1)== 6 ) Mes = 4;  else
	if ( (Mes - 1)== 9 ) Mes = 7;  else
	if ( (Mes - 1)==12 ) Mes = 10;
	ImprimeBoton (0, GRIS_C, AZUL, AZUL, meses[Mes-1]);
	break;
      // Flecha Abajo
      case  80:
	ImprimeBoton (0, GRIS_C, GRIS_O, BLANCO, meses[Mes-1]);
	Mes += 3; if ( Mes > 12) Mes = Mes - 12;
	ImprimeBoton (0, GRIS_C, AZUL, AZUL, meses[Mes-1]);
	break;
      // Flecha Arriba
      case  72:
	ImprimeBoton (0, GRIS_C, GRIS_O, BLANCO, meses[Mes-1]);
	Mes -= 3; if ( Mes < 1) Mes = 12 + Mes;
	ImprimeBoton (0, GRIS_C, AZUL, AZUL, meses[Mes-1]);
	break;
    }
   else
   switch( toupper(key_print) ){
      // A  Aceptar
      case  65:
	ok = 1;
	break;
      // C  Cancelar
      case  67:
	ok = 1;
	Fecha = -1;
	break;
      default:
	break;
     }
  } else
   if(raton!=0 && boton_izq==1 || boton_der==1) {
     if( (bpush = CheckButon( 2, pregunta))>0 ) {

       switch(bpush){
	 case 1:
		ok = 1;
		break;
	 case 2:
		ok = 1;
		Fecha = -1;
		break;
	 default:
		break;
       }
     }
   }

}while(!ok);


//žžžžžž putimage(198, 138, ptr, COPY_PUT);
//žžžžžž farfree(ptr);


Fuente(SMALL_FONT, TFuente);

return Fecha;

}


int file_exists(char *filename)
{
  return (access(filename, 0) == 0);
}


int Comprueba_Impresora(void){

 unsigned int tmp;
 union REGS Impresora_in, Impresora_out;
 struct byte {
  int a : 1;
  int b : 1;
  int c : 1;
  int d : 1;
  int e : 1;
  int f : 1;
  int g : 1;
  int h : 1;
 };
 union bits {
  char ch;
  struct byte bit;
 } Imp_out;

 Impresora_in.h.ah = 0x02;
 Impresora_in.x.dx = 0x0;

 int86(0x17, &Impresora_in, &Impresora_out);

 return ( Impresora_out.h.ah ? 1 : 0 );

}

int Desde_Hasta(int *Desde, int *Hasta){

int fins_print= 0, key_print, bpush;
char buffer[80], devuelve = 0;
void far *ptr;
unsigned size;
struct boton pregunta[4];

struct date Fecha;
getdate(&Fecha);

*Desde = *Hasta = Fecha.da_day;

size = imagesize(198, 138, 372, 257);

/* get byte size of image */

if ( (ptr = farmalloc(size)) == NULL) return -1;
	getimage(198, 138, 372, 257, ptr);

	pregunta[0].up  = 140;	pregunta[0].down = 255;
	pregunta[0].left= 200;  pregunta[0].right= 370;
	ImprimeBoton (1, ROJO, GRIS_C, BLANCO, pregunta[0]);
	pregunta[0].up  = 150;	pregunta[0].down = /*175*/165;
	pregunta[0].left= /*210*/250;    pregunta[0].right= 360;
	ImprimeBoton (1, NEGRO, GRIS_O, BLANCO, pregunta[0]);
	pregunta[1].up  = 185;	pregunta[1].down = /*210*/200;
	pregunta[1].left= /*210*/250;  pregunta[1].right= 360;
	ImprimeBoton (1, NEGRO, GRIS_O, BLANCO, pregunta[1]);
	pregunta[2].up  = 220;	pregunta[2].down = 245;
	pregunta[2].left= 210;  pregunta[2].right= 280;
	ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[2]);
	pregunta[3].up  = 220;	pregunta[3].down = 245;
	pregunta[3].left= 290;  pregunta[3].right= 360;
	ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[3]);

	Fuente(SMALL_FONT, 4);

Letra_Boton
outtextxy(pregunta[0].left+2 - 40, pregunta[0].up+2, "DESDE");
outtextxy(pregunta[1].left+2 - 40, pregunta[1].up+2, "HASTA");
outtextxy(pregunta[2].left+2, pregunta[2].up+2, "CANCELAR");
 outtextxy(pregunta[2].left+2, pregunta[2].up+4, "_");
outtextxy(pregunta[3].left+2, pregunta[3].up+2, "ACEPTAR");
 outtextxy(pregunta[3].left+2, pregunta[3].up+4, "_");

//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
do{

 if(raton!=0) activa_raton();
  Espera_Tecla_o_Raton();
 if(raton!=0) desactiva_raton();

 if(kbhit()){
   key_print = getch();
   if(key_print == 27 ) {   fins_print = 1; 	devuelve = -1; } else
   if(key_print == 'A' || key_print == 'a') {   fins_print = 1;    } else
   if(key_print == 'C' || key_print == 'c') {   fins_print = 1; 	devuelve = -1; } else
   if( isprint(key_print) ) {
			sprintf( buffer, "%d", *Desde);
		       do{
			InputCadenaG( buffer,      1,    2, 63, 57, pregunta[0]);
			*Desde = atol(buffer);
		       }while(*Desde<1 || *Desde>12);

			sprintf( buffer, "%d", *Hasta);
		       do{
			InputCadenaG( buffer,      1,    2, 63, 57, pregunta[1]);
			*Hasta = atol(buffer);
		       }while(*Hasta<1 || *Hasta>12);
   } else
   if( key_print == 0 ) {
     switch( (key_print=getch()) ){
      // F1 Cancelar
      case  59:
	fins_print = 1;
	devuelve = -1;
	break;
      // F3 Imprimir Ficha
      default:
	break;
     }
   }
 } else
   if(raton!=0 && boton_izq==1 || boton_der==1) {
     if( (bpush = CheckButon( 3, pregunta))>0 ) {
/*
	pregunta[0].up  = 140;	pregunta[0].down = 255;
	pregunta[0].left= 200;  pregunta[0].right= 370;
	ImprimeBoton (1, GRIS_O, GRIS_C, BLANCO, pregunta[0]);
*/
       switch(bpush){
	 // Cancelar
	 case 3:
		fins_print=1;
		devuelve = -1;
		break;
	 case 4:
		fins_print=1;
		break;
       }
     }
   }


}while(!fins_print);

//ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß


      putimage(198, 138, ptr, COPY_PUT);
      farfree(ptr);

      Fuente(SMALL_FONT, 5);

return devuelve;
}