1138 lines
30 KiB
C++
1138 lines
30 KiB
C++
#include<graphics.h>
|
||
#include<dos.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_util.h"
|
||
#include "sv_graph.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_Compras(void);
|
||
void Mueve_Arriba_Comp(void);
|
||
void Mueve_Abajo_Comp(void);
|
||
void EditCursorComp(int ShowHide);
|
||
void PrintLineComp(void);
|
||
void PrintWholeScreenComp(void);
|
||
void Edit_Item_Comp(void);
|
||
void Abre_Ficha_Compras(void);
|
||
void DeleteRecordComp(void);
|
||
void AddRecordComp(void);
|
||
void PutLineComp(void);
|
||
void GetLineComp(void);
|
||
void Current_Struct_to_Zero_Compras(void);
|
||
extern void Coloca_Nombres_a_botones(void);
|
||
void Imprimir_Compras(int desde, int hasta, int codigos);
|
||
void Imprimir_Compras_Menu(void);
|
||
|
||
|
||
// void Llena_con_Comp_basicas(void);
|
||
|
||
void CompruebaLineasComp(void);
|
||
|
||
|
||
|
||
|
||
// extern int Confirma(char *f1, char *f2, char *f3);
|
||
extern int Comprueba_Impresora(void);
|
||
|
||
extern void Abre_Ficha_Stock(void);
|
||
|
||
|
||
|
||
|
||
struct Comp_inx { unsigned int Fin; };
|
||
|
||
|
||
struct Compras {
|
||
struct date Fecha;
|
||
int Ref;
|
||
int Und;
|
||
char Cod;
|
||
};
|
||
|
||
struct Compras Comp1;
|
||
struct Comp_inx Comp1_inx;
|
||
|
||
|
||
struct boton *PC;//[7]
|
||
extern struct boton Comunes[9];
|
||
|
||
FILE *Comp; // Fichero de Compras
|
||
extern FILE *Stock; // Fichero de Stock
|
||
|
||
int CurrRowComp1;
|
||
int CurrColComp1;
|
||
int CurrTopLineComp;
|
||
|
||
|
||
|
||
|
||
|
||
void Menu_de_Compras(void) {
|
||
|
||
int finished = 0, key, bpush;
|
||
CurrRowComp1 = 1; CurrColComp1 = 1;
|
||
|
||
CurrTopLineComp = 1;
|
||
|
||
//ÛÛÛÛÛÛÛ inicializa_raton_grafico(0, 0, 624, 464, 320, 240);
|
||
//ÛÛÛÛÛÛÛ if(raton!=0) desactiva_raton();
|
||
|
||
if( ( PC = (struct boton *) malloc( sizeof(struct boton)*7 ) ) == NULL )
|
||
{
|
||
Confirma("Memoria insuficiente", "para crear tablas de", "posisi¢n PC.");
|
||
return ;
|
||
}
|
||
|
||
cleardevice();
|
||
Dibuja_Pantalla_Compras(PC);
|
||
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_Compras();
|
||
Abre_Ficha_Referencias();
|
||
Abre_Ficha_Stock();
|
||
|
||
Carga_Referencias();
|
||
|
||
// Realiza el c lculo para situarse en el £ltimo registro \\
|
||
// ÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜß \\
|
||
CurrTopLineComp = Comp1_inx.Fin-2;
|
||
// if(CurrTopLineComp + CurrRowComp1 - 2 >= Comp1_inx.Fin ) CurrRowComp1 = 1;
|
||
if ( CurrTopLineComp < 1 ){ CurrTopLineComp = 1; CurrRowComp1 = 1; }
|
||
CurrRowComp1 = 26;
|
||
while( (CurrTopLineComp + CurrRowComp1 - 1) != ( Comp1_inx.Fin + 1 ) ) CurrRowComp1--;
|
||
//ÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜß
|
||
PrintWholeScreenComp();
|
||
GetLineComp();
|
||
int oldCR1=0, oldCC1=0;
|
||
|
||
do{
|
||
|
||
if(oldCR1!=CurrRowComp1 || oldCC1!=CurrColComp1 )
|
||
EditCursorComp(0);
|
||
|
||
oldCR1 = CurrRowComp1; oldCC1 = CurrColComp1;
|
||
|
||
if(raton!=0) activa_raton();
|
||
Espera_Tecla_o_Raton();
|
||
if(raton!=0) desactiva_raton();
|
||
|
||
if(kbhit()){
|
||
EditCursorComp(1);
|
||
key = getch();
|
||
if( isprint(key) || isspace(key) ) {
|
||
EditCursorComp(0);
|
||
if(key!=13) ungetch(key);
|
||
Edit_Item_Comp();
|
||
EditCursorComp(0);
|
||
} else if( key == 0 ) {
|
||
switch( (key=getch()) ){
|
||
// Flecha Arriba
|
||
case 72:
|
||
Mueve_Arriba_Comp();
|
||
break;
|
||
// Flecha Izquierda
|
||
case 75:
|
||
case 15:
|
||
CurrColComp1--;
|
||
if ( CurrColComp1<1 ) CurrColComp1=4;
|
||
break;
|
||
// Flecha Derecha
|
||
case 77:
|
||
case 9:
|
||
CurrColComp1++;
|
||
if ( CurrColComp1>4 ) CurrColComp1=1;
|
||
break;
|
||
// Flecha Abajo
|
||
case 80:
|
||
Mueve_Abajo_Comp();
|
||
break;
|
||
// Buscar F2
|
||
case 60:
|
||
// BuscarComp();
|
||
break;
|
||
// Imprimir Compras F5
|
||
case 63:
|
||
Imprimir_Compras_Menu();
|
||
Fuente(SMALL_FONT, 6);
|
||
break;
|
||
// F9 --> A¥ADIR
|
||
case 67:
|
||
AddRecordComp();
|
||
break;
|
||
// F10 -> BORRAR
|
||
case 68:
|
||
if( Confirma("Desea eliminar la", "Compra Actual", "") ) DeleteRecordComp();
|
||
break;
|
||
// INICIO
|
||
case 71:
|
||
CurrColComp1 = 1;
|
||
break;
|
||
// FIN
|
||
case 79:
|
||
CurrColComp1 = 4;
|
||
break;
|
||
// ReP g
|
||
case 73:
|
||
// CurrRow = 1;
|
||
if( CurrTopLineComp > /*28*/26 ) { CurrTopLineComp -= /*28*/26; } else { CurrTopLineComp = 1; }
|
||
if( CurrTopLineComp < 1 ) { CurrTopLineComp = 1; }
|
||
PrintWholeScreenComp();
|
||
GetLineComp();
|
||
EditCursorComp(0);
|
||
break;
|
||
// AvP g
|
||
case 81:
|
||
// CurrRow = 1;
|
||
CurrTopLineComp += /*28*/26;
|
||
if ( (CurrTopLineComp+CurrRowComp1) > Comp1_inx.Fin) { CurrTopLineComp = Comp1_inx.Fin; CurrRowComp1 = 1; }
|
||
if (CurrTopLineComp==0) CurrTopLineComp = 1;
|
||
PrintWholeScreenComp();
|
||
GetLineComp();
|
||
EditCursorComp(0);
|
||
break;
|
||
// Salir F1
|
||
case 59:
|
||
finished = 1;
|
||
break;
|
||
default:
|
||
break;
|
||
}
|
||
EditCursorComp(0);
|
||
}
|
||
} else if(raton!=0 && ( boton_izq==1 || boton_der==1 ) )
|
||
if( (bpush = CheckButon( 9, Comunes))>0 ) {
|
||
EditCursorComp(1);
|
||
switch(bpush){
|
||
// Flecha Arriba
|
||
case 1:
|
||
Mueve_Arriba_Comp();
|
||
break;
|
||
// Buscar
|
||
case 2:
|
||
// BuscarVend();
|
||
break;
|
||
// Flecha Abajo
|
||
case 3:
|
||
Mueve_Abajo_Comp();
|
||
break;
|
||
case 4:
|
||
break;
|
||
// Imprimir
|
||
case 5:
|
||
Imprimir_Compras_Menu();
|
||
Fuente(SMALL_FONT, 6);
|
||
break;
|
||
// A¤adir
|
||
case 6:
|
||
AddRecordComp();
|
||
break;
|
||
// Borrar
|
||
case 7:
|
||
if( Confirma("Desea eliminar la", "Compra Actual", "") ) DeleteRecordComp();
|
||
break;
|
||
// Salir
|
||
case 9:
|
||
finished = 1;
|
||
break;
|
||
|
||
|
||
default:
|
||
break;
|
||
}
|
||
EditCursorComp(0);
|
||
} else CompruebaLineasComp();
|
||
|
||
|
||
}while(!finished);
|
||
|
||
fclose(Comp); // Fichero Vendedores
|
||
fclose(Ref); // Fichero Vendedores
|
||
fclose(Stock); // Fichero Vendedores
|
||
if(Memory_ok==1) farfree(Addr); else free(Ref_inx_addr);
|
||
free(PC); // Libera la memoria
|
||
|
||
|
||
}
|
||
|
||
void Mueve_Abajo_Comp(void){
|
||
|
||
int CurrRecord = CurrTopLineComp + CurrRowComp1 - 1;
|
||
|
||
if (CurrRowComp1==/*28*/26) {
|
||
if ( (CurrRecord - 1) >= Comp1_inx.Fin) { BEEP(); EditCursorComp(0); }
|
||
else {
|
||
///////////
|
||
/*///////*/
|
||
/*///////*/ CurrRowComp1 = 1;
|
||
/*///////*/ CurrTopLineComp += /*28*/26;
|
||
/*///////*/ if ( (CurrTopLineComp+CurrRowComp1) > Comp1_inx.Fin) { CurrTopLineComp = Comp1_inx.Fin; CurrRowComp1 = 1; }
|
||
/*///////*/ if (CurrTopLineComp==0) CurrTopLineComp = 1;
|
||
/*///////*/ PrintWholeScreenComp();
|
||
/*///////*/ GetLineComp();
|
||
/*///////*/ EditCursorComp(0);
|
||
|
||
|
||
/////////// CurrTopLineComp++;
|
||
/////////// PrintWholeScreenComp();
|
||
//ÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜß
|
||
//ÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜß
|
||
//ÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜß
|
||
/////////// GetLineComp();
|
||
// PrintLineComp();
|
||
}
|
||
} else {
|
||
if( (CurrRecord - 1) >= Comp1_inx.Fin) { BEEP(); EditCursorComp(0); }
|
||
else { CurrRowComp1++;
|
||
GetLineComp();
|
||
// PrintLineComp();
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
void Mueve_Arriba_Comp(void){
|
||
int CurrRecord = CurrTopLineComp + CurrRowComp1 - 1;
|
||
|
||
if (CurrRowComp1==1) {
|
||
if ((CurrRecord - 1) <= 0) { BEEP(); EditCursorComp(0); }
|
||
else {
|
||
////////////
|
||
/*////////*/
|
||
/*////////*/ if( CurrTopLineComp > /*28*/26 ) { CurrTopLineComp -= /*28*/26; } else { CurrTopLineComp = 1; }
|
||
/*////////*/ if( CurrTopLineComp < 1 ) { CurrTopLineComp = 1; }
|
||
/*////////*/
|
||
/*////////*/ CurrRowComp1 = 26;
|
||
/*////////*/ while(CurrTopLineComp + CurrRowComp1 - 2 >= Comp1_inx.Fin ) CurrRowComp1--;
|
||
|
||
/*////////*/ PrintWholeScreenComp();
|
||
/*////////*/
|
||
/*////////*/ GetLineComp();
|
||
/*////////*/ EditCursorComp(0);
|
||
|
||
//////////// CurrTopLineComp--;
|
||
//////////// PrintWholeScreenComp();
|
||
//ÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜß
|
||
//ÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜß
|
||
//ÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜßÜß
|
||
//////////// GetLineComp();
|
||
// PrintLineComp();
|
||
}
|
||
|
||
} else {
|
||
if( (CurrRecord - 1) <= 0) BEEP();
|
||
else { CurrRowComp1--;
|
||
|
||
GetLineComp();
|
||
// PrintLineComp();
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
void EditCursorComp(int ShowHide) {
|
||
|
||
char Buffer[80];
|
||
|
||
setcolor(GRIS_C);
|
||
setfillstyle(SOLID_FILL, GRIS_C);
|
||
bar(10, 455, 545, 473);
|
||
int bar_p;
|
||
switch(CurrColComp1){
|
||
case 1:
|
||
bar_p=0;
|
||
break;
|
||
case 2:
|
||
bar_p=1;
|
||
break;
|
||
case 3:
|
||
bar_p=3;
|
||
break;
|
||
case 4:
|
||
bar_p=4;
|
||
break;
|
||
}
|
||
|
||
|
||
if (!ShowHide) {
|
||
setcolor(63);
|
||
setfillstyle(SOLID_FILL, 63); //Û// //Û// //Û// //Û//
|
||
bar((PC[bar_p].left+2), PC[bar_p].up+4+(CurrRowComp1-1)*/*9*//*14*/15+2, PC[bar_p].right-2, PC[bar_p].up+/*3*/4+((CurrRowComp1)-1)*/*9*//*14*/15+/*9*/16);
|
||
setcolor(0);
|
||
} else {
|
||
setcolor(0);
|
||
setfillstyle(SOLID_FILL, 0); //Û// //Û// //Û// //Û//
|
||
bar((PC[bar_p].left+2), PC[bar_p].up+4+(CurrRowComp1-1)*/*9*//*14*/15+2, PC[bar_p].right-2, PC[bar_p].up+/*3*/4+((CurrRowComp1)-1)*/*9*//*14*/15+/*9*/16);
|
||
Texto_Normal
|
||
}
|
||
|
||
if(Ref_no_valid) setcolor(ROJO);
|
||
|
||
switch(CurrColComp1){
|
||
case 1:
|
||
int day, mon;
|
||
day= Comp1.Fecha.da_day;
|
||
mon= Comp1.Fecha.da_mon;
|
||
sprintf(Buffer, "%02d/%02d/%02d", day, mon, Comp1.Fecha.da_year );
|
||
outtextxy( PC[0].left+2, (PC[0].up+2)+(CurrRowComp1-1)*/*9*//*14*/15, Buffer );
|
||
outtextxy( 15, 455, "Fecha de Compra. . 4 digitos m ximo.");
|
||
break;
|
||
case 2:
|
||
sprintf(Buffer, "%04d", Comp1.Ref); // 4
|
||
outtextxy( PC[1].left+2, (PC[1].up+2)+(CurrRowComp1-1)*/*9*//*14*/15, Buffer);
|
||
outtextxy( 15, 455, "Referencia de Compra. 20 digitos m ximo.");
|
||
|
||
break;
|
||
case 3:
|
||
sprintf(Buffer, "%4d", Comp1.Und); // 4
|
||
outtextxy( PC[3].left+2, (PC[3].up+2)+(CurrRowComp1-1)*/*9*//*14*/15, Buffer );
|
||
outtextxy( 15, 455, "Unidades Compradas. 5 digitos m ximo.");
|
||
break;
|
||
case 4:
|
||
int num = Comp1.Cod;
|
||
sprintf(Buffer, "%1d", num); // 4
|
||
outtextxy( PC[4].left+2, (PC[4].up+2)+(CurrRowComp1-1)*/*9*//*14*/15, Buffer );
|
||
outtextxy( 15, 455, "C¢digo de Registro. 1 digito m ximo.");
|
||
break;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
|
||
|
||
void PrintLineComp(void){
|
||
|
||
char Buffer[80];
|
||
long total;
|
||
|
||
setcolor(0);
|
||
setfillstyle(SOLID_FILL, 0); //Û// //Û// //Û// //Û//
|
||
bar((PC[2].left+2), PC[2].up+4+(CurrRowComp1-1)*/*9*//*14*/15+2, PC[2].right-2, PC[2].up+/*3*/4+((CurrRowComp1)-1)*/*9*//*14*/15+/*9*/16);
|
||
bar((PC[4].left+2), PC[4].up+4+(CurrRowComp1-1)*/*9*//*14*/15+2, PC[4].right-2, PC[4].up+/*3*/4+((CurrRowComp1)-1)*/*9*//*14*/15+/*9*/16);
|
||
bar((PC[5].left+2), PC[5].up+4+(CurrRowComp1-1)*/*9*//*14*/15+2, PC[5].right-2, PC[5].up+/*3*/4+((CurrRowComp1)-1)*/*9*//*14*/15+/*9*/16);
|
||
bar((PC[6].left+2), PC[6].up+4+(CurrRowComp1-1)*/*9*//*14*/15+2, PC[6].right-2, PC[6].up+/*3*/4+((CurrRowComp1)-1)*/*9*//*14*/15+/*9*/16);
|
||
|
||
Texto_Normal
|
||
|
||
if(Ref_no_valid) setcolor(ROJO);
|
||
|
||
int day, mon;
|
||
day= Comp1.Fecha.da_day;
|
||
mon= Comp1.Fecha.da_mon;
|
||
sprintf(Buffer, "%02d/%02d/%02d", day, mon, Comp1.Fecha.da_year );
|
||
outtextxy( PC[0].left+2, (PC[0].up+2)+(CurrRowComp1-1)*/*9*//*14*/15, Buffer );
|
||
|
||
sprintf(Buffer, "%04d", Comp1.Ref); // 4
|
||
outtextxy( PC[1].left+2, (PC[1].up+2)+(CurrRowComp1-1)*/*9*//*14*/15, Buffer);
|
||
|
||
outtextxy( PC[2].left+2, (PC[2].up+2)+(CurrRowComp1-1)*/*9*//*14*/15,Ref1.Concepto );
|
||
|
||
sprintf(Buffer, "%4d", Comp1.Und); // 4
|
||
outtextxy( PC[3].left+2, (PC[3].up+2)+(CurrRowComp1-1)*/*9*//*14*/15, Buffer );
|
||
|
||
day = Comp1.Cod;
|
||
sprintf(Buffer, "%1d", day); // 1
|
||
outtextxy( PC[4].left+2, (PC[4].up+2)+(CurrRowComp1-1)*/*9*//*14*/15, Buffer );
|
||
|
||
if(day==1)
|
||
total = (((Ref1.P_und * Ref1.P1)/100) + Ref1.P_und);
|
||
else
|
||
total = ( Ref1.P_und );
|
||
|
||
sprintf(Buffer, "% 7ld", total );
|
||
outtextxy( PC[5].left/*+2*/-10, (PC[5].up+2)+(CurrRowComp1-1)*/*9*//*14*/15, Buffer );
|
||
|
||
sprintf(Buffer, "% 11lu", ( Comp1.Und * total ) );
|
||
outtextxy( PC[6].left/*+2*/-19, (PC[6].up+2)+(CurrRowComp1-1)*/*9*//*14*/15,Buffer );
|
||
|
||
}
|
||
|
||
|
||
void PrintWholeScreenComp(void){
|
||
|
||
int tmp = CurrRowComp1;
|
||
|
||
for(int i=0; i<7; i++)
|
||
ImprimeBoton (1, NEGRO, GRIS_O, BLANCO, PC[i]);
|
||
|
||
|
||
for(CurrRowComp1 = 1; CurrRowComp1 < (/*28*/26+1); CurrRowComp1++)
|
||
|
||
if ( (CurrTopLineComp + CurrRowComp1 - 1) <= (Comp1_inx.Fin + 1) ) {
|
||
GetLineComp();
|
||
PrintLineComp();
|
||
}
|
||
|
||
|
||
CurrRowComp1 = tmp;
|
||
|
||
}
|
||
|
||
void Edit_Item_Comp(void){
|
||
|
||
char buffer[80];
|
||
long Fecha;
|
||
|
||
switch (CurrColComp1) {
|
||
case 1:
|
||
int day, mon;
|
||
day= Comp1.Fecha.da_day;
|
||
mon= Comp1.Fecha.da_mon;
|
||
sprintf(buffer, "%02d%02d%02d", day, mon, Comp1.Fecha.da_year );
|
||
do{
|
||
InputCadenaG_l( buffer, 1, 6, 63, 57, PC[0], CurrRowComp1-1);
|
||
Fecha = atol(buffer);
|
||
Comp1.Fecha.da_day = (Fecha/10000);
|
||
Comp1.Fecha.da_mon = (Fecha/100) - ((Comp1.Fecha.da_day) * 100);
|
||
Comp1.Fecha.da_year = Fecha - ( (Comp1.Fecha.da_day*10000) + (Comp1.Fecha.da_mon*100) );
|
||
|
||
}while( ( Comp1.Fecha.da_day<1 || Comp1.Fecha.da_day>31 ) || (Comp1.Fecha.da_mon<1 || Comp1.Fecha.da_mon > 12) || strlen(buffer)!=6 );
|
||
|
||
PutLineComp();
|
||
break;
|
||
|
||
case 2: int old_ref = Comp1.Ref;
|
||
sprintf( buffer, "%d", Comp1.Ref);
|
||
InputCadenaG_l( buffer, 1, 4, 63, 57, PC[1], CurrRowComp1-1);
|
||
Comp1.Ref = atoi(buffer);
|
||
PutLineComp();
|
||
/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ*/
|
||
/*Û*/ GetLineComp(); /*Û*/
|
||
/*ßßßßßßßßßßßßßßßßßßßßßß*/
|
||
if(old_ref != Comp1.Ref) {
|
||
/*if(!Ref_no_valid)*/ Actualizar_Stock( old_ref, (Comp1.Und)*(-1), Comp1.Cod);
|
||
/*if(!Ref_no_valid)*/ Actualizar_Stock( Comp1.Ref, Comp1.Und, Comp1.Cod);
|
||
}
|
||
break;
|
||
case 3: int old_und = Comp1.Und;
|
||
sprintf( buffer, "%d", Comp1.Und);
|
||
InputCadenaG_l( buffer, 1, 4, 63, 57, PC[3], CurrRowComp1-1);
|
||
Comp1.Und = atol(buffer);
|
||
PutLineComp();
|
||
if(old_und != Comp1.Und)
|
||
Actualizar_Stock( Comp1.Ref, ((Comp1.Und)-old_und), Comp1.Cod);
|
||
break;
|
||
case 4: int Cod = Comp1.Cod;
|
||
sprintf( buffer, "%d", Cod);
|
||
ungetch(8);
|
||
InputCadenaG_l( buffer, 1, 1, 63, 57, PC[4], CurrRowComp1-1);
|
||
Comp1.Cod = (char)atoi(buffer);
|
||
PutLineComp();
|
||
if(Cod != atoi(buffer)) {
|
||
Actualizar_Stock( Comp1.Ref, (Comp1.Und)*(-1), Cod);
|
||
Actualizar_Stock( Comp1.Ref, Comp1.Und, atoi(buffer));
|
||
}
|
||
|
||
break;
|
||
|
||
default:
|
||
return;
|
||
}
|
||
|
||
PrintLineComp();
|
||
|
||
}
|
||
|
||
void Abre_Ficha_Compras(void){
|
||
|
||
char ArchivoDatos[]="SV_Comp.DAT";
|
||
|
||
//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ//
|
||
//Û Comprueba apertura correcta de Indice, y Datos y creaci¢n... Û//
|
||
//ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß//
|
||
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Comp_inx);
|
||
int LSC = sizeof(struct Compras);
|
||
|
||
if ( (Comp = fopen( ArchivoDatos, "r+b"))==NULL) {
|
||
|
||
FILE *fa;
|
||
|
||
if ( (fa = fopen( ArchivoDatos, "wb" ) )!=NULL ) {
|
||
|
||
Current_Struct_to_Zero_Compras();
|
||
Comp1_inx.Fin = 0;
|
||
rewind(fa);
|
||
|
||
fwrite(&cabecera, LSJ, 1, fa); fseek(fa, (long)LSJ, SEEK_SET);
|
||
fwrite(&Comp1_inx, LSI, 1, fa); fseek(fa, (long)LSJ+LSI, SEEK_SET);
|
||
fwrite(&Comp1, LSC, 1, fa);
|
||
|
||
if (fclose(fa) == EOF ) exit(1);
|
||
}
|
||
|
||
if ( (Comp = fopen( ArchivoDatos, "r+b"))==NULL) {
|
||
restorecrtmode();
|
||
printf("NO SE PUDO ABRIR EL FICHERO INDICE EN LA 2§ PASADA");
|
||
exit(1);
|
||
}
|
||
}
|
||
|
||
fseek(Comp, (long)LSJ, SEEK_SET);
|
||
if ( fread(&Comp1_inx, LSI, 1, Comp) != 1 ) {
|
||
restorecrtmode();
|
||
printf("NO SE PUDO LEER EN EL FICHERO: INDICE");
|
||
exit(1);
|
||
}
|
||
fseek(Comp, (long)LSJ+LSI, SEEK_SET);
|
||
if ( fread(&Comp1, LSC, 1, Comp) != 1 ) {
|
||
restorecrtmode();
|
||
printf("NO SE PUDO LEER EN EL FICHERO: DATOS");
|
||
exit(1);
|
||
}
|
||
|
||
|
||
}
|
||
|
||
void DeleteRecordComp(void) {
|
||
|
||
unsigned int CurrRecord;
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Comp_inx);
|
||
int LSC = sizeof(struct Compras);
|
||
|
||
CurrRecord = CurrTopLineComp + CurrRowComp1 - 1;
|
||
|
||
if ( (Comp1_inx.Fin == 0) ) { BEEP();
|
||
|
||
Actualizar_Stock( Comp1.Ref, (Comp1.Und)*(-1), Comp1.Cod);
|
||
|
||
Current_Struct_to_Zero_Compras();
|
||
|
||
fseek(Comp, (long)LSJ + LSI + ( LSC * ( 0 ) ), SEEK_SET); // Se coloca
|
||
fwrite(&Comp1, LSC, 1, Comp); // Y escribe
|
||
/* ßßßÛ */ PrintWholeScreenComp();
|
||
/* ß */ GetLineComp();
|
||
EditCursorComp(0);
|
||
|
||
|
||
}else {
|
||
|
||
|
||
|
||
Comp1_inx.Fin -= 1;
|
||
|
||
unsigned int p = CurrRecord - 1;
|
||
|
||
while( p <= Comp1_inx.Fin ) {
|
||
|
||
fseek(Comp, (long)LSJ + LSI + ( LSC * ( p + 1 ) ), SEEK_SET); // Se coloca
|
||
fread(&Comp1, LSC, 1, Comp); // Y lee
|
||
|
||
fseek(Comp, (long)LSJ + LSI + ( LSC * p ), SEEK_SET); // Se coloca
|
||
fwrite(&Comp1, LSC, 1, Comp); // Y escribe
|
||
|
||
p++;
|
||
};
|
||
|
||
fseek(Comp, (long)LSJ, SEEK_SET);
|
||
fwrite(&Comp1_inx, LSI, 1, Comp); // Acualiza n§ de registros
|
||
|
||
/* Û */ if ((CurrRecord - 1) == Comp1_inx.Fin + 1) CurrRowComp1--;
|
||
/* Û */
|
||
/* ßßßÛ */ PrintWholeScreenComp();
|
||
/* ß */ GetLineComp();
|
||
EditCursorComp(0);
|
||
|
||
// PrintLineComp();
|
||
}
|
||
}
|
||
|
||
|
||
|
||
void AddRecordComp(void){
|
||
|
||
unsigned int CurrRecord= CurrTopLineComp + CurrRowComp1 - 1;
|
||
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Comp_inx);
|
||
int LSC = sizeof(struct Compras);
|
||
|
||
if(CurrRecord < 10000 ) {
|
||
|
||
long avance = Comp1_inx.Fin /*+ 1*/;
|
||
|
||
while( avance >= (CurrRecord-1) ) {
|
||
|
||
fseek(Comp, (long)LSJ + LSI + ( LSC * avance ), SEEK_SET); // Se coloca
|
||
fread(&Comp1, LSC, 1, Comp); // Y lee
|
||
|
||
fseek(Comp, (long)LSJ + LSI + ( LSC * (avance + 1) ), SEEK_SET); // Se coloca
|
||
fwrite(&Comp1, LSC, 1, Comp); // Y escribe
|
||
|
||
avance--;
|
||
};
|
||
|
||
// Comp1_inx.Fin = Comp1_inx.Fin + 1;
|
||
Comp1_inx.Fin++;
|
||
|
||
fseek(Comp, (long)LSJ, SEEK_SET);
|
||
fwrite(&Comp1_inx, LSI, 1, Comp); // Acualiza n§ de registros
|
||
|
||
Current_Struct_to_Zero_Compras();
|
||
|
||
fseek(Comp, (long)LSJ + LSI + ( LSC * ( CurrTopLineComp + CurrRowComp1 - 1) ), SEEK_SET); // Se coloca
|
||
fwrite(&Comp1, LSC, 1, Comp); // Y escribe
|
||
|
||
CurrRowComp1++;
|
||
if (CurrRowComp1>/*28*/26) { CurrTopLineComp++; CurrRowComp1--; }
|
||
PrintWholeScreenComp();
|
||
GetLineComp();
|
||
EditCursorComp(0);
|
||
// PrintLineComp();
|
||
|
||
}
|
||
|
||
}
|
||
|
||
|
||
void PutLineComp(void){
|
||
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Comp_inx);
|
||
int LSC = sizeof(struct Compras);
|
||
|
||
int CurrRecord = CurrTopLineComp + CurrRowComp1 - 1;
|
||
|
||
fseek(Comp, (long)LSJ + LSI + ( LSC * CurrRecord ) - LSC, SEEK_SET); // Se coloca
|
||
fwrite(&Comp1, LSC, 1, Comp); // Y escribe
|
||
|
||
}
|
||
|
||
void GetLineComp(void){
|
||
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Comp_inx);
|
||
int LSC = sizeof(struct Compras);
|
||
|
||
int CurrRecord = CurrTopLineComp + CurrRowComp1 - 1;
|
||
|
||
fseek(Comp, (long)LSJ + LSI + ( LSC * CurrRecord ) - LSC, SEEK_SET); // Se coloca
|
||
fread(&Comp1, LSC, 1, Comp); // Y lee
|
||
|
||
BuscaReferencia(Comp1.Ref);
|
||
|
||
}
|
||
|
||
|
||
|
||
|
||
|
||
void Current_Struct_to_Zero_Compras(void){
|
||
|
||
cabecera.esc = 27; strcpy(cabecera.color, "[31;40m");
|
||
strcpy(cabecera.prog, "Jos‚ David Guill‚n Dominguez");
|
||
cabecera.nl = 13; cabecera.rt = 10;
|
||
strcpy(cabecera.autor, " 6 / Mayo / 1995 ");
|
||
cabecera.pt = 7; cabecera.ef = 26;
|
||
|
||
getdate( &Comp1.Fecha );
|
||
Comp1.Fecha.da_year = Comp1.Fecha.da_year - ( ( Comp1.Fecha.da_year / 100 ) * 100 );
|
||
Comp1.Ref=0;
|
||
Comp1.Und=0;
|
||
Comp1.Cod=1;
|
||
|
||
|
||
}
|
||
|
||
void Imprimir_Compras_Menu(void){
|
||
|
||
int Where_Ask = 1;
|
||
int fins_print= 0, key_print, bpush;
|
||
int Desde, Hasta;
|
||
|
||
void far *ptr;
|
||
unsigned size;
|
||
struct boton pregunta[3];
|
||
|
||
size = imagesize(198, 138, 372, 257);
|
||
|
||
/* get byte size of image */
|
||
|
||
if ( (ptr = farmalloc(size)) != NULL) {
|
||
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;
|
||
pregunta[0].left= 210; pregunta[0].right= 360;
|
||
ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[0]);
|
||
pregunta[1].up = 185; pregunta[1].down = 210;
|
||
pregunta[1].left= 210; pregunta[1].right= 360;
|
||
ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[1]);
|
||
pregunta[2].up = 220; pregunta[2].down = 245;
|
||
pregunta[2].left= 210; pregunta[2].right= 360;
|
||
ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[2]);
|
||
Fuente(SMALL_FONT, 4);
|
||
} else {
|
||
Where_Ask = 0;
|
||
pregunta[0].up = 450; pregunta[0].down = 475;
|
||
pregunta[0].left= 5; pregunta[0].right= 152;
|
||
ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[0]);
|
||
pregunta[1].up = 450; pregunta[1].down = 475;
|
||
pregunta[1].left= 155; pregunta[1].right= 309;
|
||
ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[1]);
|
||
pregunta[2].up = 450; pregunta[2].down = 475;
|
||
pregunta[2].left= 312; pregunta[2].right= 549;
|
||
ImprimeBoton (1, GRIS_C, BLANCO, GRIS_O, pregunta[2]);
|
||
Fuente(SMALL_FONT, 4);
|
||
}
|
||
|
||
Letra_Boton
|
||
outtextxy(pregunta[0].left+2, pregunta[0].up+2, "F3 Codigos 1");
|
||
outtextxy(pregunta[1].left+2, pregunta[1].up+2, "F2 Codigos 0");
|
||
outtextxy(pregunta[2].left+2, pregunta[2].up+2, "F1 CANCELAR IMPRESION");
|
||
|
||
//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
||
do{
|
||
|
||
if(raton!=0) activa_raton();
|
||
Espera_Tecla_o_Raton();
|
||
if(raton!=0) desactiva_raton();
|
||
|
||
if(kbhit()){
|
||
key_print = getch();
|
||
if( key_print == 0 ) {
|
||
switch( (key_print=getch()) ){
|
||
// F1 Cancelar
|
||
case 59:
|
||
fins_print = 1;
|
||
break;
|
||
// F3 Imprimir Ficha
|
||
case 61:
|
||
if(Where_Ask){
|
||
pregunta[0].up = 140; pregunta[0].down = 255;
|
||
pregunta[0].left= 200; pregunta[0].right= 370;
|
||
} else {
|
||
pregunta[0].up = 450; pregunta[0].down = 475;
|
||
pregunta[0].left= 5; pregunta[0].right= 549;
|
||
}
|
||
ImprimeBoton (1, GRIS_O, GRIS_C, BLANCO, pregunta[0]);
|
||
|
||
//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
||
if(Comprueba_Impresora()) {
|
||
Letra_Boton
|
||
if( Desde_Hasta( &Desde, &Hasta) != -1 ) {
|
||
if(Where_Ask){ outtextxy(210,150, "Imprimiendo.");
|
||
outtextxy(210,170, "Por Favor, espere...");
|
||
} else outtextxy(10,452, "Imprimiendo. Por Favor, espere...");
|
||
Imprimir_Compras(Desde, Hasta, 1);
|
||
}
|
||
} else {
|
||
Letra_Boton
|
||
if(Where_Ask){ outtextxy(210,150, "Impresora no preparada.");
|
||
outtextxy(210,170, "Impresion Cancelada");
|
||
} else { outtextxy(10,452, "Impresora no preparada. Impresi¢n Cancelada."); }
|
||
Espera_Tecla_o_Raton();
|
||
}
|
||
fins_print = 1;
|
||
|
||
//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
||
break;
|
||
// F2 Imprimir lista r pida
|
||
case 60:
|
||
if(Where_Ask){
|
||
pregunta[0].up = 140; pregunta[0].down = 255;
|
||
pregunta[0].left= 200; pregunta[0].right= 370;
|
||
} else {
|
||
pregunta[0].up = 450; pregunta[0].down = 475;
|
||
pregunta[0].left= 5; pregunta[0].right= 549;
|
||
}
|
||
ImprimeBoton (1, GRIS_O, GRIS_C, BLANCO, pregunta[0]);
|
||
|
||
//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
||
if(Comprueba_Impresora()) {
|
||
Letra_Boton
|
||
if( Desde_Hasta( &Desde, &Hasta) != -1 ) {
|
||
if(Where_Ask){ outtextxy(210,150, "Imprimiendo.");
|
||
outtextxy(210,170, "Por Favor, espere...");
|
||
} else outtextxy(10,452, "Imprimiendo. Por Favor, espere...");
|
||
Imprimir_Compras(Desde, Hasta, 0);
|
||
}
|
||
} else {
|
||
Letra_Boton
|
||
if(Where_Ask){ outtextxy(210,150, "Impresora no preparada.");
|
||
outtextxy(210,170, "Impresion Cancelada");
|
||
} else { outtextxy(10,452, "Impresora no preparada. Impresi¢n Cancelada."); }
|
||
Espera_Tecla_o_Raton();
|
||
}
|
||
fins_print = 1;
|
||
|
||
//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
||
break;
|
||
default:
|
||
fins_print = 1;
|
||
}
|
||
}
|
||
} else
|
||
if(raton!=0 && boton_izq==1 || boton_der==1) {
|
||
if( (bpush = CheckButon( 3, pregunta))>0 ) {
|
||
|
||
if(Where_Ask){
|
||
pregunta[0].up = 140; pregunta[0].down = 255;
|
||
pregunta[0].left= 200; pregunta[0].right= 370;
|
||
} else {
|
||
pregunta[0].up = 450; pregunta[0].down = 475;
|
||
pregunta[0].left= 5; pregunta[0].right= 549;
|
||
}
|
||
ImprimeBoton (1, GRIS_O, GRIS_C, BLANCO, pregunta[0]);
|
||
|
||
switch(bpush){
|
||
// Imprimir Ficha
|
||
case 1:
|
||
//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
||
if(Comprueba_Impresora()) {
|
||
Letra_Boton
|
||
if( Desde_Hasta( &Desde, &Hasta) != -1 ) {
|
||
if(Where_Ask){ outtextxy(210,150, "Imprimiendo.");
|
||
outtextxy(210,170, "Por Favor, espere...");
|
||
} else outtextxy(10,452, "Imprimiendo. Por Favor, espere...");
|
||
Imprimir_Compras(Desde, Hasta, 1);
|
||
}
|
||
} else {
|
||
Letra_Boton
|
||
if(Where_Ask){ outtextxy(210,150, "Impresora no preparada.");
|
||
outtextxy(210,170, "Impresion Cancelada");
|
||
} else { outtextxy(10,452, "Impresora no preparada. Impresi¢n Cancelada."); }
|
||
Espera_Tecla_o_Raton();
|
||
}
|
||
fins_print = 1;
|
||
//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
||
|
||
break;
|
||
// Imprime Lista R pida
|
||
case 2:
|
||
//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
||
if(Comprueba_Impresora()) {
|
||
Letra_Boton
|
||
if( Desde_Hasta( &Desde, &Hasta) != -1 ) {
|
||
if(Where_Ask){ outtextxy(210,150, "Imprimiendo.");
|
||
outtextxy(210,170, "Por Favor, espere...");
|
||
} else outtextxy(10,452, "Imprimiendo. Por Favor, espere...");
|
||
Imprimir_Compras(Desde, Hasta, 0);
|
||
}
|
||
} else {
|
||
Letra_Boton
|
||
if(Where_Ask){ outtextxy(210,150, "Impresora no preparada.");
|
||
outtextxy(210,170, "Impresion Cancelada");
|
||
} else { outtextxy(10,452, "Impresora no preparada. Impresi¢n Cancelada."); }
|
||
Espera_Tecla_o_Raton();
|
||
}
|
||
fins_print = 1;
|
||
|
||
//ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
||
break;
|
||
// Cancelar
|
||
case 3:
|
||
fins_print=1;
|
||
break;
|
||
default:
|
||
fins_print = 1;
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
}while(!fins_print);
|
||
|
||
//ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
||
|
||
if(Where_Ask == 1) {
|
||
putimage(198, 138, ptr, COPY_PUT);
|
||
farfree(ptr);
|
||
} else {
|
||
struct boton help;
|
||
help.up = 450; help.down = 475;
|
||
help.left = 5; help.right = 549;
|
||
ImprimeBoton (1, GRIS_C, GRIS_O, BLANCO, help);
|
||
}
|
||
|
||
Fuente(SMALL_FONT, 5);
|
||
}
|
||
|
||
|
||
|
||
void Imprimir_Compras(int desde, int hasta, int codigos){
|
||
|
||
int LSJ = sizeof(struct JD);
|
||
int LSI = sizeof(struct Comp_inx);
|
||
int LSC = sizeof(struct Compras);
|
||
int lprint = 3, day, mon, cod, Curr_Comp = 0;
|
||
long total;
|
||
float Total_Compras = 0;
|
||
|
||
|
||
|
||
|
||
char mes[][12] = {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio",
|
||
"Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"};
|
||
|
||
if ( Comprueba_Impresora() == 0 ) {
|
||
Confirma("Error Imprimiendo.", "Impresora Fuera de", "Servicio.");
|
||
return;
|
||
}
|
||
|
||
|
||
fprintf( stdprn, "\n\r");
|
||
fprintf( stdprn, "Informe de compras\n\r");
|
||
|
||
fprintf( stdprn, " Fecha Ref Concepto Cod Unds. P_Und. TOTAL\n\r");
|
||
fprintf( stdprn, "ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù\n\r");
|
||
|
||
while( (Curr_Comp <= Comp1_inx.Fin) ){
|
||
|
||
fseek(Comp, (long)LSJ + LSI + ( LSC * Curr_Comp ), SEEK_SET); // Se coloca
|
||
fread(&Comp1, LSC, 1, Comp); // Y lee
|
||
|
||
|
||
mon = Comp1.Fecha.da_mon;
|
||
|
||
if( mon>=desde && mon<=hasta ){
|
||
|
||
BuscaReferencia(Comp1.Ref);
|
||
day= Comp1.Fecha.da_day;
|
||
cod = Comp1.Cod;
|
||
|
||
|
||
if(cod==1)
|
||
total = ( ((Ref1.P_und * Ref1.P1)/100) + Ref1.P_und );
|
||
else
|
||
total = ( Ref1.P_und );
|
||
|
||
if(codigos==2) {
|
||
fprintf( stdprn, "%02d/%02d%02d", day, mon, Comp1.Fecha.da_year );
|
||
fprintf( stdprn, " % 4d %-20s % 1d % 4d % 7ld % 11lu\n\r",
|
||
Comp1.Ref, Ref1.Concepto, cod, Comp1.Und, total, ( Comp1.Und * total ) );
|
||
Total_Compras += ( Comp1.Und * total );
|
||
}
|
||
|
||
if(codigos==1 && cod==1) {
|
||
fprintf( stdprn, "%02d/%02d/%02d", day, mon, Comp1.Fecha.da_year );
|
||
fprintf( stdprn, " % 4d %-20s %1d % 4d % 7ld % 11lu\n\r",
|
||
Comp1.Ref, Ref1.Concepto, cod, Comp1.Und, total, ( Comp1.Und * total ) );
|
||
Total_Compras += ( Comp1.Und * total );
|
||
}
|
||
|
||
if(codigos==0 && cod==0) {
|
||
fprintf( stdprn, "%02d/%02d/%02d", day, mon, Comp1.Fecha.da_year );
|
||
fprintf( stdprn, " % 4d %-20s %1d % 4d % 7ld % 11lu\n\r",
|
||
Comp1.Ref, Ref1.Concepto, cod, Comp1.Und, total, ( Comp1.Und * total ) );
|
||
Total_Compras += ( Comp1.Und * total );
|
||
}
|
||
|
||
|
||
lprint++;
|
||
if (lprint==55) { lprint = 3;
|
||
fputc(12, stdprn);
|
||
fprintf( stdprn, " Fecha Ref Concepto Cod Unds. P_Und. TOTAL\n\r");
|
||
fprintf( stdprn, "ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù\n\r");
|
||
}
|
||
}
|
||
Curr_Comp++;
|
||
}
|
||
fprintf( stdprn, "\n\r");
|
||
fprintf( stdprn, "\n\r");
|
||
fprintf( stdprn, "ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù\n\r");
|
||
fprintf( stdprn, " Total de las compras entre los meses %s a %s\n\r", mes[desde-1], mes[hasta-1]);
|
||
fprintf( stdprn, "ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù\n\r");
|
||
fprintf( stdprn, "--------------> %e <--------------\n\r", Total_Compras);
|
||
fputc(12, stdprn);
|
||
|
||
}
|
||
|
||
|
||
void CompruebaLineasComp(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 >= (PC[(inc)-1].left+2) && x_raton <= (PC[inc-1].right-2) ) { ok_p=1; md = 1;
|
||
oldc=inc; }
|
||
if(inc==5) ok_p=1;
|
||
}while(!ok_p);
|
||
if(md==1){
|
||
inc=0; ok_p=0; md = 0;
|
||
do{
|
||
inc++;
|
||
if( (y_raton >= (PC[(oldc)-1].up+4+(inc-1)*15+2)) && (y_raton <= (PC[oldc-1].up+4+(inc-1)*15+16)) ) { ok_p=1; oldr=inc; md = 1;}
|
||
if(inc==26) ok_p=1;
|
||
}while(!ok_p);
|
||
}
|
||
int newc;
|
||
|
||
switch(oldc){
|
||
case 1:
|
||
case 2: newc = oldc; break;
|
||
case 4:
|
||
case 5: newc = (oldc - 1); break;
|
||
default:
|
||
break;
|
||
}
|
||
|
||
|
||
if( (md==1) && ((CurrColComp1!=newc) || (CurrRowComp1!=oldr)) )
|
||
{
|
||
|
||
if( (CurrTopLineComp + oldr - 2 )<= Comp1_inx.Fin ){
|
||
EditCursorComp(1);
|
||
switch(oldc){
|
||
case 1:
|
||
case 2:
|
||
CurrColComp1 = oldc;
|
||
CurrRowComp1 = oldr;
|
||
break;
|
||
case 4:
|
||
case 5:
|
||
CurrColComp1 = (oldc-1);
|
||
CurrRowComp1 = oldr;
|
||
break;
|
||
default:
|
||
EditCursorComp(0);
|
||
break;
|
||
}
|
||
GetLineComp();
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
|