724 lines
19 KiB
C++
724 lines
19 KiB
C++
#include<graphics.h>
|
||
#include<conio.h>
|
||
#include<stdio.h>
|
||
#include<string.h>
|
||
#include<ctype.h>
|
||
#include<alloc.h>
|
||
#include<stdlib.h>
|
||
|
||
|
||
#include "..\libs\make_bot\make_bot.h"
|
||
#include "sv_graph.h"
|
||
#include "sv_util.h"
|
||
|
||
/*///////*/
|
||
#include "sv_ref_x.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 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 int InputCadenaG(char *s, int numalp, int lmax, int cc, int cf, struct boton Campo);
|
||
extern int InputCadenaG_l(char *s, int numalp, int lmax, int cc, int cf, struct boton Campo, int Row);
|
||
|
||
void Menu_de_Referencias(void);
|
||
void Mueve_Arriba_Ref(void);
|
||
void Mueve_Abajo_Ref(void);
|
||
void EditCursorRef(int ShowHide);
|
||
void PrintLineRef(void);
|
||
void PrintWholeScreenRef(void);
|
||
void Edit_Item_Ref(void);
|
||
void Abre_Ficha_Referencias(void);
|
||
void DeleteRecordRef(void);
|
||
void AddRecordRef(int Imprime);
|
||
void PutLineRef(void);
|
||
void GetLineRef(void);
|
||
void Poner_a_cero_estructura_actual_Ref(void);
|
||
extern void Coloca_Nombres_a_botones(void);
|
||
void Imprimir_Referencias(void);
|
||
void Llena_con_ref_basicas(void);
|
||
void CompruebaLineasRef(void);
|
||
|
||
// extern int Confirma(char *f1, char *f2, char *f3);
|
||
extern int Comprueba_Impresora(void);
|
||
|
||
struct Referencias Ref1;
|
||
struct Ref_inx Ref1_inx;
|
||
extern struct JD cabecera;
|
||
|
||
struct boton *PR;//[6]
|
||
extern struct boton Comunes[9];
|
||
|
||
FILE *Ref; // Fichero Vendedores
|
||
|
||
int CurrRowRef1;
|
||
int CurrColRef1;
|
||
int CurrTopLineRef;
|
||
|
||
void Menu_de_Referencias(void) {
|
||
|
||
int finished = 0, key, bpush;
|
||
CurrRowRef1 = 6; CurrColRef1 = 1;
|
||
|
||
CurrTopLineRef = 1;
|
||
|
||
inicializa_raton_grafico(0, 0, 624, 464, 320, 240);
|
||
if(raton!=0) desactiva_raton();
|
||
|
||
if( ( PR = (struct boton *) malloc( sizeof(struct boton)*6 ) ) == NULL )
|
||
{
|
||
Confirma("Memoria insuficiente", "para crear tablas de", "posisi<EFBFBD>n PR.");
|
||
return ;
|
||
}
|
||
|
||
cleardevice();
|
||
Dibuja_Pantalla_Referencia(PR);
|
||
Fuente(SMALL_FONT, 5);
|
||
Coloca_Nombres_a_botones();
|
||
setcolor(GRIS_C);
|
||
outtextxy(Comunes[3].left, Comunes[3].up, " SWAP" );
|
||
outtextxy(Comunes[3].left, Comunes[3].up+18, " F6 " );
|
||
|
||
|
||
Fuente(SMALL_FONT, 6);
|
||
Abre_Ficha_Referencias();
|
||
/*/////////*/ Carga_Referencias();
|
||
PrintWholeScreenRef();
|
||
GetLineRef();
|
||
int oldCR1=0, oldCC1=0;
|
||
|
||
do{
|
||
|
||
if(oldCR1!=CurrRowRef1 || oldCC1!=CurrColRef1 )
|
||
EditCursorRef(0);
|
||
|
||
oldCR1 = CurrRowRef1; oldCC1 = CurrColRef1;
|
||
|
||
if(raton!=0) activa_raton();
|
||
Espera_Tecla_o_Raton();
|
||
if(raton!=0) desactiva_raton();
|
||
|
||
if(kbhit()){
|
||
EditCursorRef(1);
|
||
key = getch();
|
||
if( isprint(key) || isspace(key) ) {
|
||
EditCursorRef(0);
|
||
if(key!=13) ungetch(key);
|
||
Edit_Item_Ref();
|
||
EditCursorRef(0);
|
||
} else if( key == 0 ) {
|
||
switch( (key=getch()) ){
|
||
// Flecha Arriba
|
||
case 72:
|
||
Mueve_Arriba_Ref();
|
||
break;
|
||
// Flecha Izquierda
|
||
case 75:
|
||
case 15:
|
||
CurrColRef1--;
|
||
if ( CurrColRef1<1 ) CurrColRef1=6;
|
||
break;
|
||
// Flecha Derecha
|
||
case 77:
|
||
case 9:
|
||
CurrColRef1++;
|
||
if ( CurrColRef1>6 ) CurrColRef1=1;
|
||
break;
|
||
// Flecha Abajo
|
||
case 80:
|
||
Mueve_Abajo_Ref();
|
||
break;
|
||
// Buscar F2
|
||
case 60:
|
||
// BuscarRef();
|
||
break;
|
||
// Imprimir Referencias F5
|
||
case 63:
|
||
Imprimir_Referencias();
|
||
break;
|
||
// F9 --> A<>ADIR
|
||
case 67:
|
||
AddRecordRef(1);
|
||
break;
|
||
// F10 -> BORRAR
|
||
case 68:
|
||
if( Confirma("Desea eliminar la", "Referencia Actual", "") ) DeleteRecordRef();
|
||
break;
|
||
// INICIO
|
||
case 71:
|
||
CurrColRef1 = 1;
|
||
break;
|
||
// FIN
|
||
case 79:
|
||
CurrColRef1 = 5;
|
||
break;
|
||
// ReP<65>g
|
||
case 73:
|
||
// CurrRow = 1;
|
||
if( CurrTopLineRef > /*28*/26 ) { CurrTopLineRef -= /*28*/26; } else { CurrTopLineRef = 1; }
|
||
if( CurrTopLineRef < 1 ) { CurrTopLineRef = 1; }
|
||
if( (CurrTopLineRef + CurrRowRef1 - 1) == 5 ) CurrRowRef1 = 2;
|
||
PrintWholeScreenRef();
|
||
GetLineRef();
|
||
break;
|
||
// AvP<76>g
|
||
case 81:
|
||
// CurrRow = 1;
|
||
CurrTopLineRef += /*28*/26;
|
||
if ( (CurrTopLineRef+CurrRowRef1) > Ref1_inx.Fin) { CurrTopLineRef = Ref1_inx.Fin; CurrRowRef1 = 1; }
|
||
if (CurrTopLineRef==0) CurrTopLineRef = 1;
|
||
if( (CurrTopLineRef + CurrRowRef1 - 1) == 5 ) CurrRowRef1 = 2;
|
||
PrintWholeScreenRef();
|
||
GetLineRef();
|
||
break;
|
||
// Salir F1
|
||
case 59:
|
||
finished = 1;
|
||
break;
|
||
default:
|
||
break;
|
||
}
|
||
EditCursorRef(0);
|
||
}
|
||
} else if(raton!=0 && ( boton_izq==1 || boton_der==1 ) )
|
||
if( (bpush = CheckButon( 9, Comunes))>0 ) {
|
||
EditCursorRef(1);
|
||
switch(bpush){
|
||
// Flecha Arriba
|
||
case 1:
|
||
Mueve_Arriba_Ref();
|
||
break;
|
||
// Buscar
|
||
case 2:
|
||
// BuscarVend();
|
||
break;
|
||
// Flecha Abajo
|
||
case 3:
|
||
Mueve_Abajo_Ref();
|
||
break;
|
||
case 4:
|
||
break;
|
||
// Imprimir
|
||
case 5:
|
||
Imprimir_Referencias();
|
||
break;
|
||
// A<>adir
|
||
case 6:
|
||
AddRecordRef(1);
|
||
break;
|
||
// Borrar
|
||
case 7:
|
||
if( Confirma("Desea eliminar la", "Referencia Actual", "") ) DeleteRecordRef();
|
||
break;
|
||
// Salir
|
||
case 9:
|
||
finished = 1;
|
||
break;
|
||
|
||
|
||
default:
|
||
break;
|
||
}
|
||
EditCursorRef(0);
|
||
} else CompruebaLineasRef();
|
||
|
||
}while(!finished);
|
||
|
||
fclose(Ref); // Fichero Vendedores
|
||
free(PR);
|
||
|
||
}
|
||
|
||
void Mueve_Abajo_Ref(void){
|
||
|
||
int CurrRecord = CurrTopLineRef + CurrRowRef1 - 1;
|
||
|
||
if (CurrRowRef1==/*28*/26) {
|
||
if ( (CurrRecord - 1) >= Ref1_inx.Fin) BEEP();
|
||
else { CurrTopLineRef++;
|
||
PrintWholeScreenRef();
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
GetLineRef();
|
||
// PrintLineRef();
|
||
}
|
||
} else {
|
||
if( (CurrRecord - 1) >= Ref1_inx.Fin) BEEP();
|
||
else { CurrRowRef1++;
|
||
if( (CurrTopLineRef + CurrRowRef1 - 1) == 5 ) CurrRowRef1++;
|
||
GetLineRef();
|
||
// PrintLineRef();
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
void Mueve_Arriba_Ref(void){
|
||
int CurrRecord = CurrTopLineRef + CurrRowRef1 - 1;
|
||
|
||
if (CurrRowRef1==1) {
|
||
if ((CurrRecord - 1) <= 0) BEEP();
|
||
else {
|
||
CurrTopLineRef--;
|
||
PrintWholeScreenRef();
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
GetLineRef();
|
||
// PrintLineRef();
|
||
}
|
||
|
||
} else {
|
||
if( (CurrRecord - 1) <= 0) BEEP();
|
||
else { CurrRowRef1--;
|
||
if( (CurrTopLineRef + CurrRowRef1 - 1) == 5 ){ CurrRowRef1--;
|
||
if(CurrRowRef1 < 1) { CurrRowRef1=1;
|
||
CurrTopLineRef --;
|
||
PrintWholeScreenRef();
|
||
}
|
||
}
|
||
GetLineRef();
|
||
// PrintLineRef();
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
void EditCursorRef(int ShowHide) {
|
||
|
||
if( (CurrTopLineRef + CurrRowRef1 - 1) != 5 ) {
|
||
|
||
char Buffer[80];
|
||
|
||
setcolor(GRIS_C);
|
||
setfillstyle(SOLID_FILL, GRIS_C);
|
||
bar(10, 455, 545, 473);
|
||
|
||
if (!ShowHide) {
|
||
setcolor(63);
|
||
setfillstyle(SOLID_FILL, 63); //<2F>// //<2F>// //<2F>// //<2F>//
|
||
bar((PR[(CurrColRef1)-1].left+2), PR[(CurrColRef1)-1].up+4+(CurrRowRef1-1)*/*9*//*14*/15+2, PR[(CurrColRef1)-1].right-2, PR[(CurrColRef1)-1].up+/*3*/4+((CurrRowRef1)-1)*/*9*//*14*/15+/*9*/16);
|
||
setcolor(0);
|
||
} else {
|
||
setcolor(0);
|
||
setfillstyle(SOLID_FILL, 0); //<2F>// //<2F>// //<2F>// //<2F>//
|
||
bar((PR[(CurrColRef1)-1].left+2), PR[(CurrColRef1)-1].up+4+(CurrRowRef1-1)*/*9*//*14*/15+2, PR[(CurrColRef1)-1].right-2, PR[(CurrColRef1)-1].up+/*3*/4+((CurrRowRef1)-1)*/*9*//*14*/15+/*9*/16);
|
||
Texto_Normal
|
||
}
|
||
switch(CurrColRef1){
|
||
case 1:
|
||
sprintf(Buffer, " %04d", Ref1.Ref);
|
||
outtextxy( PR[0].left+2, (PR[0].up+2)+(CurrRowRef1-1)*/*9*//*14*/15, Buffer );
|
||
outtextxy( 15, 455, "N<EFBFBD>mero de Referencia. 4 digitos m<>ximo.");
|
||
break;
|
||
case 2:
|
||
outtextxy( PR[1].left+2, (PR[1].up+2)+(CurrRowRef1-1)*/*9*//*14*/15,Ref1.Concepto );
|
||
outtextxy( 15, 455, "Concepto para Ref. 20 digitos m<>ximo.");
|
||
|
||
break;
|
||
case 3:
|
||
sprintf(Buffer, " % 6ld", Ref1.P_und );
|
||
outtextxy( PR[2].left+2, (PR[2].up+2)+(CurrRowRef1-1)*/*9*//*14*/15, Buffer );
|
||
outtextxy( 15, 455, "Precio Costo Unidad. 5 digitos m<>ximo.");
|
||
break;
|
||
case 4:
|
||
sprintf(Buffer, "%03d", Ref1.P1 );
|
||
outtextxy( PR[3].left+2, (PR[3].up+2)+(CurrRowRef1-1)*/*9*//*14*/15,Buffer );
|
||
outtextxy( 15, 455, "I.V.A. original. 2 digitos m<>ximo.");
|
||
break;
|
||
case 5:
|
||
sprintf(Buffer, " % 6ld", Ref1.PVP );
|
||
outtextxy( PR[4].left+2, (PR[4].up+2)+(CurrRowRef1-1)*/*9*//*14*/15,Buffer );
|
||
outtextxy( 15, 455, "Precio Venta Publico. 5 digitos m<>ximo.");
|
||
break;
|
||
case 6:
|
||
sprintf(Buffer, "%03d", Ref1.P2 );
|
||
outtextxy( PR[5].left+2, (PR[5].up+2)+(CurrRowRef1-1)*/*9*//*14*/15,Buffer );
|
||
outtextxy( 15, 455, "I.V.A. original. 2 digitos m<>ximo.");
|
||
break;
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
|
||
|
||
void PrintLineRef(void){
|
||
|
||
if( (CurrTopLineRef + CurrRowRef1 - 1) != 5 ) {
|
||
char Buffer[80];
|
||
|
||
Texto_Normal
|
||
|
||
sprintf(Buffer, " %04d", Ref1.Ref);
|
||
outtextxy( PR[0].left+2, (PR[0].up+2)+(CurrRowRef1-1)*/*9*//*14*/15, Buffer );
|
||
outtextxy( PR[1].left+2, (PR[1].up+2)+(CurrRowRef1-1)*/*9*//*14*/15,Ref1.Concepto );
|
||
sprintf(Buffer, " % 6ld", Ref1.P_und );
|
||
outtextxy( PR[2].left+2, (PR[2].up+2)+(CurrRowRef1-1)*/*9*//*14*/15, Buffer );
|
||
sprintf(Buffer, "%03d", Ref1.P1 );
|
||
outtextxy( PR[3].left+2, (PR[3].up+2)+(CurrRowRef1-1)*/*9*//*14*/15,Buffer );
|
||
sprintf(Buffer, " % 6ld", Ref1.PVP );
|
||
outtextxy( PR[4].left+2, (PR[4].up+2)+(CurrRowRef1-1)*/*9*//*14*/15,Buffer );
|
||
sprintf(Buffer, "%03d", Ref1.P2 );
|
||
outtextxy( PR[5].left+2, (PR[5].up+2)+(CurrRowRef1-1)*/*9*//*14*/15,Buffer );
|
||
}
|
||
|
||
}
|
||
|
||
void PrintWholeScreenRef(void){
|
||
|
||
int tmp = CurrRowRef1;
|
||
|
||
for(int i=0; i<6; i++)
|
||
ImprimeBoton (1, NEGRO, GRIS_O, BLANCO, PR[i]);
|
||
|
||
|
||
for(CurrRowRef1 = 1; CurrRowRef1 < (/*28*/26+1); CurrRowRef1++)
|
||
|
||
if ( (CurrTopLineRef + CurrRowRef1 - 1) <= (Ref1_inx.Fin + 1) ) {
|
||
GetLineRef();
|
||
PrintLineRef();
|
||
}
|
||
|
||
|
||
|
||
CurrRowRef1 = tmp;
|
||
|
||
}
|
||
|
||
void Edit_Item_Ref(void){
|
||
char buffer[80]; int oldRef;
|
||
long CurrRecord = CurrTopLineRef + CurrRowRef1 - 1;
|
||
switch (CurrColRef1) {
|
||
case 1:
|
||
if ( (CurrRecord>5) ) {
|
||
oldRef = Ref1.Ref;
|
||
sprintf( buffer, "%d", Ref1.Ref);
|
||
do{
|
||
InputCadenaG_l( buffer, 1, 4, 63, 57, PR[0], CurrRowRef1-1);
|
||
Ref1.Ref = atoi(buffer);
|
||
}while( ( (Existe_Referencia(Ref1.Ref)) || Ref1.Ref==0 ) && Ref1.Ref != oldRef );
|
||
} else {
|
||
while( kbhit() ) getch();
|
||
}
|
||
break;
|
||
case 2: if ( (CurrRecord>5) )
|
||
InputCadenaG_l( Ref1.Concepto, 0, 20, 63, 57, PR[1], CurrRowRef1-1);
|
||
else {
|
||
while( kbhit() ) getch();
|
||
}
|
||
break;
|
||
case 3: sprintf( buffer, "%ld", Ref1.P_und);
|
||
InputCadenaG_l( buffer, 1, 5, 63, 57, PR[2], CurrRowRef1-1);
|
||
Ref1.P_und = atol(buffer);
|
||
break;
|
||
case 4: sprintf( buffer, "%d", Ref1.P1 );
|
||
InputCadenaG_l( buffer, 1, 2, 63, 57, PR[3], CurrRowRef1-1);
|
||
Ref1.P1= atoi( buffer );
|
||
break;
|
||
case 5: sprintf( buffer, "%ld", Ref1.PVP );
|
||
InputCadenaG_l( buffer, 1, 5, 63, 57, PR[4], CurrRowRef1-1);
|
||
Ref1.PVP = atol( buffer );
|
||
break;
|
||
case 6: sprintf( buffer, "%d", Ref1.P2 );
|
||
InputCadenaG_l( buffer, 1, 2, 63, 57, PR[5], CurrRowRef1-1);
|
||
Ref1.P2 = atoi( buffer );
|
||
break;
|
||
|
||
default:
|
||
return;
|
||
}
|
||
|
||
PutLineRef();
|
||
/*<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*/
|
||
/*<2A>*/ GetLineRef(); /*<2A>*/
|
||
/*<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*/
|
||
PrintLineRef();
|
||
|
||
}
|
||
|
||
void Abre_Ficha_Referencias(void){
|
||
|
||
char ArchivoDatos[]="SV__REF.DAT";
|
||
int ok = 0;
|
||
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>//
|
||
//<2F> Comprueba apertura correcta de Indice, y Datos y creaci<63>n... <20>//
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>//
|
||
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Ref_inx);
|
||
int LSC = sizeof(struct Referencias);
|
||
|
||
if ( (Ref = fopen( ArchivoDatos, "r+b"))==NULL) {
|
||
|
||
FILE *fa;
|
||
|
||
if ( (fa = fopen( ArchivoDatos, "wb" ) )!=NULL ) {
|
||
|
||
Poner_a_cero_estructura_actual_Ref();
|
||
Ref1_inx.Fin = 0;
|
||
ok = 1;
|
||
rewind(fa);
|
||
|
||
fwrite(&cabecera, LSJ, 1, fa); fseek(fa, (long)LSJ, SEEK_SET);
|
||
fwrite(&Ref1_inx, LSI, 1, fa); fseek(fa, (long)LSJ+LSI, SEEK_SET);
|
||
fwrite(&Ref1, LSC, 1, fa);
|
||
|
||
if (fclose(fa) == EOF ) exit(1);
|
||
}
|
||
|
||
if ( (Ref = fopen( ArchivoDatos, "r+b"))==NULL) {
|
||
restorecrtmode();
|
||
printf("NO SE PUDO ABRIR EL FICHERO INDICE EN LA 2<> PASADA");
|
||
exit(1);
|
||
}
|
||
}
|
||
|
||
fseek(Ref, (long)LSJ, SEEK_SET);
|
||
if ( fread(&Ref1_inx, LSI, 1, Ref) != 1 ) {
|
||
restorecrtmode();
|
||
printf("NO SE PUDO LEER EN EL FICHERO: INDICE");
|
||
exit(1);
|
||
}
|
||
fseek(Ref, (long)LSJ+LSI, SEEK_SET);
|
||
if ( fread(&Ref1, LSC, 1, Ref) != 1 ) {
|
||
restorecrtmode();
|
||
printf("NO SE PUDO LEER EN EL FICHERO: DATOS");
|
||
exit(1);
|
||
}
|
||
|
||
if(ok) Llena_con_ref_basicas();
|
||
|
||
|
||
|
||
}
|
||
|
||
void DeleteRecordRef(void) {
|
||
|
||
unsigned int CurrRecord;
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Ref_inx);
|
||
int LSC = sizeof(struct Referencias);
|
||
|
||
CurrRecord = CurrTopLineRef + CurrRowRef1 - 1;
|
||
|
||
if ( (Ref1_inx.Fin == 4) || (CurrRecord<=5) ) BEEP(); else {
|
||
|
||
Ref1_inx.Fin -= 1;
|
||
|
||
unsigned int p = CurrRecord - 1;
|
||
|
||
while( p <= Ref1_inx.Fin ) {
|
||
|
||
fseek(Ref, (long)LSJ + LSI + ( LSC * ( p + 1 ) ), SEEK_SET); // Se coloca
|
||
fread(&Ref1, LSC, 1, Ref); // Y lee
|
||
|
||
fseek(Ref, (long)LSJ + LSI + ( LSC * p ), SEEK_SET); // Se coloca
|
||
fwrite(&Ref1, LSC, 1, Ref); // Y escribe
|
||
|
||
p++;
|
||
};
|
||
|
||
fseek(Ref, (long)LSJ, SEEK_SET);
|
||
fwrite(&Ref1_inx, LSI, 1, Ref); // Acualiza n<> de registros
|
||
|
||
/* <20> */ if ((CurrRecord - 1) == Ref1_inx.Fin + 1) CurrRowRef1--;
|
||
/* <20> */ if( Ref1_inx.Fin == 4 ) AddRecordRef(1);
|
||
/* <20> */
|
||
/* <20><><EFBFBD><EFBFBD> */ PrintWholeScreenRef();
|
||
/* <20> */ GetLineRef();
|
||
|
||
// PrintLineRef();
|
||
}
|
||
}
|
||
|
||
|
||
|
||
void AddRecordRef(int Imprime){
|
||
|
||
unsigned int CurrRecord= CurrTopLineRef + CurrRowRef1 - 1;
|
||
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Ref_inx);
|
||
int LSC = sizeof(struct Referencias);
|
||
|
||
if(CurrRecord < 10000 ) {
|
||
|
||
long avance = Ref1_inx.Fin /*+ 1*/;
|
||
|
||
while( avance >= (CurrRecord-1) ) {
|
||
|
||
fseek(Ref, (long)LSJ + LSI + ( LSC * avance ), SEEK_SET); // Se coloca
|
||
fread(&Ref1, LSC, 1, Ref); // Y lee
|
||
|
||
fseek(Ref, (long)LSJ + LSI + ( LSC * (avance + 1) ), SEEK_SET); // Se coloca
|
||
fwrite(&Ref1, LSC, 1, Ref); // Y escribe
|
||
|
||
avance--;
|
||
};
|
||
|
||
// Ref1_inx.Fin = Ref1_inx.Fin + 1;
|
||
Ref1_inx.Fin++;
|
||
|
||
fseek(Ref, (long)LSJ, SEEK_SET);
|
||
fwrite(&Ref1_inx, LSI, 1, Ref); // Acualiza n<> de registros
|
||
|
||
Poner_a_cero_estructura_actual_Ref();
|
||
|
||
fseek(Ref, (long)LSJ + LSI + ( LSC * ( CurrTopLineRef + CurrRowRef1 - 1) ), SEEK_SET); // Se coloca
|
||
fwrite(&Ref1, LSC, 1, Ref); // Y escribe
|
||
|
||
CurrRowRef1++;
|
||
if (CurrRowRef1>/*28*/26) { CurrTopLineRef++; CurrRowRef1--; }
|
||
if(Imprime) PrintWholeScreenRef();
|
||
GetLineRef();
|
||
// PrintLineRef();
|
||
|
||
}
|
||
|
||
}
|
||
|
||
|
||
void PutLineRef(void){
|
||
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Ref_inx);
|
||
int LSC = sizeof(struct Referencias);
|
||
|
||
int CurrRecord = CurrTopLineRef + CurrRowRef1 - 1;
|
||
|
||
fseek(Ref, (long)LSJ + LSI + ( LSC * CurrRecord ) - LSC, SEEK_SET); // Se coloca
|
||
fwrite(&Ref1, LSC, 1, Ref); // Y escribe
|
||
|
||
}
|
||
|
||
void GetLineRef(void){
|
||
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Ref_inx);
|
||
int LSC = sizeof(struct Referencias);
|
||
|
||
int CurrRecord = CurrTopLineRef + CurrRowRef1 - 1;
|
||
|
||
fseek(Ref, (long)LSJ + LSI + ( LSC * CurrRecord ) - LSC, SEEK_SET); // Se coloca
|
||
fread(&Ref1, LSC, 1, Ref); // Y lee
|
||
|
||
}
|
||
|
||
|
||
|
||
|
||
|
||
void Poner_a_cero_estructura_actual_Ref(void){
|
||
|
||
cabecera.esc = 27; strcpy(cabecera.color, "[31;40m");
|
||
strcpy(cabecera.prog, "Jos<EFBFBD> David Guill<6C>n Dominguez");
|
||
cabecera.nl = 13; cabecera.rt = 10;
|
||
strcpy(cabecera.autor, " 6 / Mayo / 1995 ");
|
||
cabecera.pt = 7; cabecera.ef = 26;
|
||
|
||
Ref1.Ref = 0; strcpy(Ref1.Concepto, "\0"); Ref1.P_und = 0;
|
||
Ref1.P1 = 0; Ref1.PVP = 0; Ref1.P2 = 0;
|
||
}
|
||
|
||
void Llena_con_ref_basicas(void){
|
||
CurrRowRef1=1;
|
||
Ref1.Ref = 9996; strcpy(Ref1.Concepto, "Grifo-Columna/s.");
|
||
PutLineRef();
|
||
AddRecordRef(0);
|
||
Ref1.Ref = 9997; strcpy(Ref1.Concepto, "Manoreductor/es.");
|
||
PutLineRef();
|
||
AddRecordRef(0);
|
||
Ref1.Ref = 9998; strcpy(Ref1.Concepto, "Serpent<EFBFBD>n/es.");
|
||
PutLineRef();
|
||
AddRecordRef(0);
|
||
Ref1.Ref = 9999; strcpy(Ref1.Concepto, "Dispensador/es.");
|
||
PutLineRef();
|
||
AddRecordRef(0);
|
||
Poner_a_cero_estructura_actual_Ref();
|
||
AddRecordRef(0);
|
||
}
|
||
|
||
void Imprimir_Referencias(void){
|
||
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Ref_inx);
|
||
int LSC = sizeof(struct Referencias);
|
||
int lprint = 3;
|
||
|
||
if ( Comprueba_Impresora() == 0 ) {
|
||
Confirma("Error Imprimiendo.", "Impresora Fuera de", "Servicio.");
|
||
return;
|
||
}
|
||
|
||
int Curr_Ref = 0;
|
||
fprintf( stdprn, "\n\r");
|
||
// 1 2 3 4 5 6 7 8
|
||
// 123456789<38>123456789<38>123456789<38>123456789<38>123456789<38>123456789<38>123456789<38>123456789<38>
|
||
fprintf( stdprn, " Refer. Concepto P.C. I.V.A P.V.P. I.V.A \n\r");
|
||
fprintf( stdprn, "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\n\r");
|
||
while(Curr_Ref <= Ref1_inx.Fin ){
|
||
|
||
fseek(Ref, (long)LSJ + LSI + ( LSC * Curr_Ref ), SEEK_SET); // Se coloca
|
||
fread(&Ref1, LSC, 1, Ref); // Y lee
|
||
fprintf( stdprn, " %04d %-20s % 6ld %03d % 6ld %03d \n\r", Ref1.Ref, Ref1.Concepto, Ref1.P_und, Ref1.P1, Ref1.PVP, Ref1.P2);
|
||
lprint++;
|
||
if (lprint==55) { lprint = 3;
|
||
fputc(12, stdprn);
|
||
fprintf( stdprn, " Refer. Concepto P.C. I.V.A P.V.P. I.V.A \n\r");
|
||
fprintf( stdprn, "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\n\r");
|
||
}
|
||
Curr_Ref++;
|
||
}
|
||
|
||
|
||
fputc(12, stdprn);
|
||
}
|
||
|
||
|
||
void CompruebaLineasRef(void){
|
||
// Check una pulsacion sobre un campo, y se situa, si es posible
|
||
int ok_p=0, inc=0, md=0;
|
||
int oldr, oldc;
|
||
// Anclar_Raton();
|
||
|
||
do{
|
||
inc++;
|
||
if(x_raton >= (PR[(inc)-1].left+2) && x_raton <= (PR[inc-1].right-2) ) { ok_p=1; md = 1;
|
||
oldc=inc; }
|
||
if(inc==6) ok_p=1;
|
||
}while(!ok_p);
|
||
if(md==1){
|
||
inc=0; ok_p=0; md = 0;
|
||
do{
|
||
inc++;
|
||
if( (y_raton >= (PR[(oldc)-1].up+4+(inc-1)*15+2)) && (y_raton <= (PR[oldc-1].up+4+(inc-1)*15+16)) ) { ok_p=1; oldr=inc; md = 1;}
|
||
if(inc==26) ok_p=1;
|
||
}while(!ok_p);
|
||
}
|
||
if( (md==1) && ((CurrTopLineRef + oldr - 1) != 5) && ((CurrColRef1!=oldc) || (CurrRowRef1!=oldr)) )
|
||
{
|
||
if( (CurrTopLineRef + oldr - 2 )<= Ref1_inx.Fin ){
|
||
EditCursorRef(1);
|
||
CurrColRef1 = oldc;
|
||
CurrRowRef1 = oldr;
|
||
GetLineRef();
|
||
|
||
}
|
||
}
|
||
|
||
}
|