C/CD_OUT_SRC
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 09/04/1995

Browse Source
This commit is contained in:
José David Guillén
2021-09-03 17:50:32 +02:00
commit e0a9c4f8c9
120 changed files with 13455 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

883
CD_IN/CD_STOCK.CPP Normal file
View File

@ -0,0 +1,883 @@
#define SV_REF_X
#include<graphics.h>
#include<dos.h>
#include<conio.h>
#include<math.h>
#include<stdio.h>
#include<string.h>
#include<ctype.h>
#include<alloc.h>
#include<stdlib.h>
#include "c:\things\borlandc\jd_lib\jd_graph.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);
extern int InputCadenaG_T4(char *s, int numalp, int lmax, int cc, int cf, struct boton Campo, int RoW);
void PutLineStock(void);
void GetLineStock(void);
void Menu_de_Stock(void);
void AddRecordStock(void);
void PrintLineStock(void);
void Edit_Item_Stock(void);
void Abre_Ficha_Stock(void);
void DeleteRecordStock(void);
void Mueve_Abajo_Stock(void);
void Mueve_Arriba_Stock(void);
void CompruebaLineasStock(void);
void PrintWholeScreenStock(void);
void EditCursorStock(int ShowHide);
void Imprimir_Stock();
void Poner_a_cero_estructura_actual_Stock(void);
void Recalcula_Porcentaje(int Individual_Seleccionado);
// void Llena_con_Stock_basicas(void);
extern void Coloca_Nombres_a_botones(void);
// extern int Confirma(char *f1, char *f2, char *f3);
extern int Comprueba_Impresora(void);
struct Stock_inx { unsigned int Fin; };
struct Stock_actual { int Ref; long Und_0; long Und_1; };
struct Stock_actual Stock1;
struct Stock_actual Stock1_Graficas[10];
struct Stock_inx Stock1_inx;
struct boton *PS;//[5]
extern struct boton Comunes[9];
FILE *Stock; // Fichero de Stock
int CurrRowStock1;
int CurrColStock1;
int CurrTopLineStock;
void Menu_de_Stock(void) {
int finished = 0, key, bpush;
CurrRowStock1 = 1; CurrColStock1 = 1;
CurrTopLineStock = 1;
inicializa_raton_grafico(0, 0, 624, 464, 320, 240);
if(raton!=0) desactiva_raton();
if( ( PS = (struct boton *) malloc( sizeof(struct boton)*5 ) ) == NULL )
{
Confirma("Memoria insuficiente", "para crear tablas de", "posisi<EFBFBD>n PS.");
return ;
}
cleardevice();
Dibuja_Pantalla_Stock(PS);
Fuente(SMALL_FONT, 5);
setcolor(NEGRO);
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, 4);
Abre_Ficha_Stock();
Abre_Ficha_Referencias();
Carga_Referencias();
PrintWholeScreenStock();
GetLineStock();
int oldCR1=0, oldCC1=0;
do{
if(oldCR1!=CurrRowStock1 || oldCC1!=CurrColStock1 )
EditCursorStock(0);
oldCR1 = CurrRowStock1; oldCC1 = CurrColStock1;
if(raton!=0) activa_raton();
Espera_Tecla_o_Raton();
if(raton!=0) desactiva_raton();
if(kbhit()){
EditCursorStock(1);
key = getch();
if( isprint(key) || isspace(key) ) {
EditCursorStock(0);
if(key!=13) ungetch(key);
Edit_Item_Stock();
Recalcula_Porcentaje(1);
EditCursorStock(0);
} else if( key == 0 ) {
switch( (key=getch()) ){
// Flecha Arriba
case 72:
Mueve_Arriba_Stock();
Recalcula_Porcentaje(1);
break;
// Flecha Izquierda
case 75:
case 15:
CurrColStock1--;
if ( CurrColStock1<1 ) CurrColStock1=5;
break;
// Flecha Derecha
case 77:
case 9:
CurrColStock1++;
if ( CurrColStock1>5 ) CurrColStock1=1;
break;
// Flecha Abajo
case 80:
Mueve_Abajo_Stock();
Recalcula_Porcentaje(1);
break;
// Buscar F2
case 60:
// BuscarStock();
break;
// Imprimir Stock F5
case 63:
Imprimir_Stock();
break;
// F9 --> A<>ADIR
case 67:
// if( Confirma("A<>ADIR NUEVO STOCK", "INICIAL", "") )
// if ( Pide_Codigo(SV_CFG.COD_Stock) )
// AddRecordStock();
break;
// F10 -> BORRAR
case 68:
if( Confirma("ELIMINAR TOTALMENTE", "STOCK ACTUAL", "") )
// if ( Pide_Codigo(SV_CFG.COD_Stock) )
DeleteRecordStock();
Recalcula_Porcentaje(1);
break;
// INICIO
case 71:
CurrColStock1 = 1;
break;
// FIN
case 79:
CurrColStock1 = 5;
break;
// ReP<65>g
case 73:
// CurrRow = 1;
//<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><EFBFBD><EFBFBD>
if( CurrTopLineStock > /*28*/26 ) { CurrTopLineStock -= /*28*/26; } else { CurrTopLineStock = 1; }
if( CurrTopLineStock < 1 ) { CurrTopLineStock = 1; }
PrintWholeScreenStock();
GetLineStock();
EditCursorStock(0);
Recalcula_Porcentaje(1);
break;
//<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><EFBFBD><EFBFBD>
// AvP<76>g
case 81:
// CurrRow = 1;
//<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><EFBFBD><EFBFBD>
CurrTopLineStock += /*28*/26;
if ( (CurrTopLineStock+CurrRowStock1) > Stock1_inx.Fin) { CurrTopLineStock = Stock1_inx.Fin; CurrRowStock1 = 1; }
if (CurrTopLineStock==0) CurrTopLineStock = 1;
PrintWholeScreenStock();
GetLineStock();
EditCursorStock(0);
Recalcula_Porcentaje(1);
//<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><EFBFBD><EFBFBD>
break;
// Salir F1
case 59:
finished = 1;
break;
default:
break;
}
EditCursorStock(0);
}
} else if(raton!=0 && ( boton_izq==1 || boton_der==1 ) )
if( (bpush = CheckButon( 9, Comunes))>0 ) {
EditCursorStock(1);
switch(bpush){
// Flecha Arriba
case 1:
Mueve_Arriba_Stock();
Recalcula_Porcentaje(1);
break;
// Buscar
case 2:
// BuscarVend();
break;
// Flecha Abajo
case 3:
Mueve_Abajo_Stock();
Recalcula_Porcentaje(1);
break;
case 4:
break;
// Imprimir
case 5:
Imprimir_Stock();
break;
// A<>adir
case 6:
// if( Confirma("A<>ADIR NUEVO STOCK", "INICIAL", "") )
// if ( Pide_Codigo(SV_CFG.COD_Stock) )
// AddRecordStock();
break;
// Borrar
case 7:
if( Confirma("ELIMINAR TOTALMENTE", "STOCK ACTUAL", "") )
// if ( Pide_Codigo(SV_CFG.COD_Stock) )
DeleteRecordStock();
Recalcula_Porcentaje(1);
break;
// Salir
case 9:
finished = 1;
break;
default:
break;
}
EditCursorStock(0);
} else CompruebaLineasStock();
}while(!finished);
fclose(Stock); // Fichero Vendedores
fclose(Ref); // Fichero Vendedores
free(PS); // Libera la memoria
if(Memory_ok==1) farfree(Addr); else free(Ref_inx_addr);
}
void Mueve_Abajo_Stock(void){
int CurrRecord = CurrTopLineStock + CurrRowStock1 - 1;
if (CurrRowStock1==/*28*/40) {
if ( (CurrRecord - 1) >= Stock1_inx.Fin) { BEEP(); EditCursorStock(0); }
else { CurrTopLineStock++;
PrintWholeScreenStock();
//<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>
GetLineStock();
// PrintLineStock();
}
} else {
if( (CurrRecord - 1) >= Stock1_inx.Fin) { BEEP(); EditCursorStock(0); }
else { CurrRowStock1++;
GetLineStock();
// PrintLineStock();
}
}
}
void Mueve_Arriba_Stock(void){
int CurrRecord = CurrTopLineStock + CurrRowStock1 - 1;
if (CurrRowStock1==1) {
if ((CurrRecord - 1) <= 0) { BEEP(); EditCursorStock(0); }
else {
CurrTopLineStock--;
PrintWholeScreenStock();
//<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>
GetLineStock();
// PrintLineStock();
}
} else {
if( (CurrRecord - 1) <= 0) BEEP();
else { CurrRowStock1--;
GetLineStock();
// PrintLineStock();
}
}
}
void EditCursorStock(int ShowHide) {
char Buffer[80];
setcolor(GRIS_C);
setfillstyle(SOLID_FILL, GRIS_C);
bar(10, 455, 545, 473);
if (!ShowHide) {
setcolor(63);
setfillstyle(SOLID_FILL, 63);
bar((PS[CurrColStock1-1].left+2), PS[CurrColStock1-1].up+(CurrRowStock1-1)*/*15*/12+/*2*/4, PS[CurrColStock1-1].right-2, PS[CurrColStock1-1].up+/*3*/4+((CurrRowStock1)-1)*12+10);
setcolor(0);
} else {
setcolor(0);
setfillstyle(SOLID_FILL, 0);
bar((PS[CurrColStock1-1].left+2), PS[CurrColStock1-1].up+(CurrRowStock1-1)*/*15*/12+/*2*/4, PS[CurrColStock1-1].right-2, PS[CurrColStock1-1].up+/*3*/4+((CurrRowStock1)-1)*12+10);
Texto_Normal
}
if(Ref_no_valid) setcolor(ROJO);
// struct Stock_actual { int Ref; long Und_0; long Und_1; };
switch(CurrColStock1){
// LA REFERENCIA DEBE SER INDEDITABLE...
case 1: //4
sprintf(Buffer, "% 5d", Stock1.Ref );
outtextxy( PS[0].left+2, (PS[0].up+3)+(CurrRowStock1-1)*12, Buffer );
outtextxy( 15, 455, "Referencia de Producto. 4 digitos m<>ximo.");
break;
case 2:
outtextxy( PS[1].left+2, (PS[1].up+3)+(CurrRowStock1-1)*12, Ref1.Concepto );
outtextxy( 15, 455, "Concepto.");
break;
case 3:
sprintf(Buffer, " % 5d", Stock1.Und_1); // 4
outtextxy( PS[2].left+2, (PS[2].up+3)+(CurrRowStock1-1)*12, Buffer);
outtextxy( 15, 455, "Unidades con Cod. 1");
break;
case 4:
sprintf(Buffer, " % 5d", Stock1.Und_0); // 4
outtextxy( PS[3].left+2, (PS[3].up+3)+(CurrRowStock1-1)*12, Buffer );
outtextxy( 15, 455, "Unidades con Cod. 0");
break;
case 5:
sprintf(Buffer, "% 10d", ( Stock1.Und_0 + Stock1.Und_1 ) ); // 4
outtextxy( PS[4].left+2, (PS[4].up+3)+(CurrRowStock1-1)*12, Buffer );
outtextxy( 15, 455, "Unidades TOTALES.");
break;
}
}
void PrintLineStock(void){
char Buffer[80];
setcolor(0);
setfillstyle(SOLID_FILL, 0);
bar((PS[0].left+2), PS[0].up+(CurrRowStock1-1)*12+/*2*/4, PS[0].right-2, PS[0].up+(CurrRowStock1-1)*12+10);
bar((PS[1].left+2), PS[1].up+(CurrRowStock1-1)*12+/*2*/4, PS[1].right-2, PS[1].up+(CurrRowStock1-1)*12+10);
bar((PS[2].left+2), PS[2].up+(CurrRowStock1-1)*12+/*2*/4, PS[2].right-2, PS[2].up+(CurrRowStock1-1)*12+10);
bar((PS[3].left+2), PS[3].up+(CurrRowStock1-1)*12+/*2*/4, PS[3].right-2, PS[3].up+(CurrRowStock1-1)*12+10);
bar((PS[4].left+2), PS[4].up+(CurrRowStock1-1)*12+/*2*/4, PS[4].right-2, PS[4].up+(CurrRowStock1-1)*12+10);
Texto_Normal
if(Ref_no_valid) setcolor(ROJO);
//
sprintf(Buffer, "% 5d", Stock1.Ref );
outtextxy( PS[0].left+2, (PS[0].up+3)+(CurrRowStock1-1)*12, Buffer );
outtextxy( PS[1].left+2, (PS[1].up+3)+(CurrRowStock1-1)*12, Ref1.Concepto );
sprintf(Buffer, " % 5d", Stock1.Und_1); // 4
outtextxy( PS[2].left+2, (PS[2].up+3)+(CurrRowStock1-1)*12, Buffer);
sprintf(Buffer, " % 5d", Stock1.Und_0); // 4
outtextxy( PS[3].left+2, (PS[3].up+3)+(CurrRowStock1-1)*12, Buffer );
sprintf(Buffer, "% 10d", ( Stock1.Und_0 + Stock1.Und_1 ) ); // 4
outtextxy( PS[4].left+2, (PS[4].up+3)+(CurrRowStock1-1)*12, Buffer );
}
void PrintWholeScreenStock(void){
int tmp = CurrRowStock1;
for(int i=0; i<5; i++)
ImprimeBoton (1, NEGRO, GRIS_O, BLANCO, PS[i]);
for(CurrRowStock1 = 1; CurrRowStock1 < (/*28*/40+1); CurrRowStock1++)
if ( (CurrTopLineStock + CurrRowStock1 - 1) <= (Stock1_inx.Fin + 1) ) {
GetLineStock();
PrintLineStock();
}
CurrRowStock1 = tmp;
}
void Edit_Item_Stock(void){
char buffer[80];
switch (CurrColStock1) {
case 1:/*
if( Stock1.Ref == -1 ) {
sprintf( buffer, "%d", Stock1.Ref);
InputCadenaG_T4( buffer, 1, 4, 63, 57, PS[0], CurrRowStock1-1);
Stock1.Ref = atoi(buffer);
PutLineStock();
}
*/
while( kbhit() ) getch();
break;
case 2:
while( kbhit() ) getch();
break;
case 3: // int Old_Und_0 = Stock1.Und_0;
sprintf( buffer, "%d", Stock1.Und_1);
InputCadenaG_T4( buffer, 1, 4, 63, 57, PS[2], CurrRowStock1-1);
Stock1.Und_1 = atol(buffer);
PutLineStock();
break;
case 4: // int Old_Und_1 = Stock1.Und_1;
sprintf( buffer, "%d", Stock1.Und_0);
InputCadenaG_T4( buffer, 1, 4, 63, 57, PS[3], CurrRowStock1-1);
Stock1.Und_0 = atol(buffer);
PutLineStock();
break;
default:
return;
}
PrintLineStock();
}
void Abre_Ficha_Stock(void){
char ArchivoDatos[]="SV_Stock.DAT";
//<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> Stockrueba 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 Stock_inx);
int LSC = sizeof(struct Stock_actual);
if ( (Stock = fopen( ArchivoDatos, "r+b"))==NULL) {
FILE *fa;
if ( (fa = fopen( ArchivoDatos, "wb" ) )!=NULL ) {
Poner_a_cero_estructura_actual_Stock();
Stock1_inx.Fin = 0;
rewind(fa);
fwrite(&cabecera, LSJ, 1, fa); fseek(fa, (long)LSJ, SEEK_SET);
fwrite(&Stock1_inx, LSI, 1, fa); fseek(fa, (long)LSJ+LSI, SEEK_SET);
fwrite(&Stock1, LSC, 1, fa);
if (fclose(fa) == EOF ) exit(1);
}
if ( (Stock = fopen( ArchivoDatos, "r+b"))==NULL) {
restorecrtmode();
printf("NO SE PUDO ABRIR EL FICHERO INDICE EN LA 2<> PASADA");
exit(1);
}
}
fseek(Stock, (long)LSJ, SEEK_SET);
if ( fread(&Stock1_inx, LSI, 1, Stock) != 1 ) {
restorecrtmode();
printf("NO SE PUDO LEER EN EL FICHERO: INDICE");
exit(1);
}
fseek(Stock, (long)LSJ+LSI, SEEK_SET);
if ( fread(&Stock1, LSC, 1, Stock) != 1 ) {
restorecrtmode();
printf("NO SE PUDO LEER EN EL FICHERO: DATOS");
exit(1);
}
}
void DeleteRecordStock(void) {
unsigned int CurrRecord;
int LSJ = sizeof(struct JD);
int LSI = sizeof(struct Stock_inx);
int LSC = sizeof(struct Stock_actual);
CurrRecord = CurrTopLineStock + CurrRowStock1 - 1;
if ( (Stock1_inx.Fin == 0) ) { BEEP();
Poner_a_cero_estructura_actual_Stock();
Stock1.Ref=-1;
fseek(Stock, (long)LSJ + LSI + ( LSC * ( 0 ) ), SEEK_SET); // Se coloca
fwrite(&Stock1, LSC, 1, Stock); // Y escribe
/* <20><><EFBFBD><EFBFBD> */ PrintWholeScreenStock();
/* <20> */ GetLineStock();
EditCursorStock(0);
} else {
Stock1_inx.Fin -= 1;
unsigned int p = CurrRecord - 1;
while( p <= Stock1_inx.Fin ) {
fseek(Stock, (long)LSJ + LSI + ( LSC * ( p + 1 ) ), SEEK_SET); // Se coloca
fread(&Stock1, LSC, 1, Stock); // Y lee
fseek(Stock, (long)LSJ + LSI + ( LSC * p ), SEEK_SET); // Se coloca
fwrite(&Stock1, LSC, 1, Stock); // Y escribe
p++;
};
fseek(Stock, (long)LSJ, SEEK_SET);
fwrite(&Stock1_inx, LSI, 1, Stock); // Acualiza n<> de registros
/* <20> */ if ((CurrRecord - 1) == Stock1_inx.Fin + 1) CurrRowStock1--;
/* <20> */
/* <20><><EFBFBD><EFBFBD> */ PrintWholeScreenStock();
/* <20> */ GetLineStock();
EditCursorStock(0);
// PrintLineStock();
}
}
void AddRecordStock(void){
unsigned int CurrRecord= CurrTopLineStock + CurrRowStock1 - 1;
int LSJ = sizeof(struct JD);
int LSI = sizeof(struct Stock_inx);
int LSC = sizeof(struct Stock_actual);
if(CurrRecord < 10000 ) {
long avance = Stock1_inx.Fin /*+ 1*/;
while( avance >= (CurrRecord-1) ) {
fseek(Stock, (long)LSJ + LSI + ( LSC * avance ), SEEK_SET); // Se coloca
fread(&Stock1, LSC, 1, Stock); // Y lee
fseek(Stock, (long)LSJ + LSI + ( LSC * (avance + 1) ), SEEK_SET); // Se coloca
fwrite(&Stock1, LSC, 1, Stock); // Y escribe
avance--;
};
// Stock1_inx.Fin = Stock1_inx.Fin + 1;
Stock1_inx.Fin++;
fseek(Stock, (long)LSJ, SEEK_SET);
fwrite(&Stock1_inx, LSI, 1, Stock); // Acualiza n<> de registros
Poner_a_cero_estructura_actual_Stock();
Stock1.Ref=-1;
fseek(Stock, (long)LSJ + LSI + ( LSC * ( CurrTopLineStock + CurrRowStock1 - 1) ), SEEK_SET); // Se coloca
fwrite(&Stock1, LSC, 1, Stock); // Y escribe
CurrRowStock1++;
if (CurrRowStock1>/*28*/40) { CurrTopLineStock++; CurrRowStock1--; }
PrintWholeScreenStock();
GetLineStock();
EditCursorStock(0);
// PrintLineStock();
}
}
void PutLineStock(void){
int LSJ = sizeof(struct JD);
int LSI = sizeof(struct Stock_inx);
int LSC = sizeof(struct Stock_actual);
int CurrRecord = CurrTopLineStock + CurrRowStock1 - 1;
fseek(Stock, (long)LSJ + LSI + ( LSC * CurrRecord ) - LSC, SEEK_SET); // Se coloca
fwrite(&Stock1, LSC, 1, Stock); // Y escribe
}
void GetLineStock(void){
int LSJ = sizeof(struct JD);
int LSI = sizeof(struct Stock_inx);
int LSC = sizeof(struct Stock_actual);
int CurrRecord = CurrTopLineStock + CurrRowStock1 - 1;
fseek(Stock, (long)LSJ + LSI + ( LSC * CurrRecord ) - LSC, SEEK_SET); // Se coloca
fread(&Stock1, LSC, 1, Stock); // Y lee
BuscaReferencia(Stock1.Ref);
}
void Poner_a_cero_estructura_actual_Stock(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;
Stock1.Ref=0; Stock1.Und_1=0; Stock1.Und_0=0;
}
void Imprimir_Stock(void){
int LSJ = sizeof(struct JD);
int LSI = sizeof(struct Stock_inx);
int LSC = sizeof(struct Stock_actual);
int lprint = 3, Curr_Stock = 0;
if ( Comprueba_Impresora() == 0 ) {
Confirma("Error Imprimiendo.", "Impresora Fuera de", "Servicio.");
return;
}
fprintf( stdprn, "\n\r");
fprintf( stdprn, " Ref Concepto Und.C.0 Und.C.1 TOTAL\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_Stock <= Stock1_inx.Fin) ){
fseek(Stock, (long)LSJ + LSI + ( LSC * Curr_Stock ), SEEK_SET); // Se coloca
fread(&Stock1, LSC, 1, Stock); // Y lee
BuscaReferencia(Stock1.Ref);
fprintf( stdprn, "% 5d %-20s % 4ld % 4ld % 8ld \n\r", Stock1.Ref, Ref1.Concepto, Stock1.Und_0, Stock1.Und_1, ( Stock1.Und_0 + Stock1.Und_1 ) );
lprint++;
if (lprint==55) { lprint = 3;
fputc(12, stdprn);
fprintf( stdprn, " Ref Concepto Und.C.0 Und.C.1 TOTAL\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_Stock++;
}
fputc(12, stdprn);
GetLineStock();
}
void CompruebaLineasStock(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 >= (PS[(inc)-1].left+2) && x_raton <= (PS[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 >= (PS[(oldc)-1].up+4+(inc-1)*15+2)) && (y_raton <= (PS[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) && ((CurrColStock1!=newc) || (CurrRowStock1!=oldr)) )
{
if( (CurrTopLineStock + oldr - 2 )<= Stock1_inx.Fin ){
EditCursorStock(1);
switch(oldc){
case 1:
case 2:
CurrColStock1 = oldc;
CurrRowStock1 = oldr;
break;
case 4:
case 5:
CurrColStock1 = (oldc-1);
CurrRowStock1 = oldr;
break;
default:
EditCursorStock(0);
break;
}
GetLineStock();
}
}
}
void Actualizar_Stock(int Referencia, int Unidades, int Codigo){
int LSJ = sizeof(struct JD);
int LSI = sizeof(struct Stock_inx);
int LSC = sizeof(struct Stock_actual);
int ok = 0;
int Curr_Stock = 0, Encuentro = 0;
while( (Curr_Stock <= Stock1_inx.Fin) && (ok == 0) ){
fseek(Stock, (long)LSJ + LSI + ( LSC * Curr_Stock ), SEEK_SET); // Se coloca
fread(&Stock1, LSC, 1, Stock); // Y lee
if( Stock1.Ref == Referencia ) {
if(Codigo==1) Stock1.Und_1 += Unidades;
else Stock1.Und_0 += Unidades;
fseek(Stock, (long)LSJ + LSI + ( LSC * Curr_Stock ), SEEK_SET); // Se coloca
fwrite(&Stock1, LSC, 1, Stock); // Y escribe
ok = 1;
Encuentro = 1;
}
Curr_Stock++;
}
if (Encuentro==0) {
Stock1.Ref = Referencia;
if(Codigo==1) { Stock1.Und_1 = Unidades; Stock1.Und_0 = 0; }
else { Stock1.Und_0 = Unidades; Stock1.Und_1 = 0; }
fseek(Stock, (long)LSJ + LSI + ( LSC * (Stock1_inx.Fin + 1) ), SEEK_SET); // Se coloca
fwrite(&Stock1, LSC, 1, Stock); // Y escribe
Stock1_inx.Fin ++;
fseek(Stock, (long)LSJ, SEEK_SET);
fwrite(&Stock1_inx, LSI, 1, Stock); // Acualiza n<> de registros
}
}
void Recalcula_Porcentaje(int Individual_Seleccionado){
if( Individual_Seleccionado == 1 ) {
long P_0, P_1;
struct boton Ptmp;
Ptmp.up = 15; Ptmp.down = 213;
Ptmp.left = 349; Ptmp.right = 549;
ImprimeBoton (1, NEGRO, GRIS_O, BLANCO, Ptmp);
// Centro = (449, 114) radio = 80
// si (Stock1.Und_0 + Stock1.Und_1) es 100
// Stock1.Und_0 es PS
// si 360 es 100
// x es PS
if ( (abs(Stock1.Und_0)+abs(Stock1.Und_1) )!= 0 ) {
P_0 = labs( ( 360 * ( (labs(Stock1.Und_0) * 100) / (labs(Stock1.Und_0)+labs(Stock1.Und_1)) ) ) / 100);
P_1 = labs( ( 360 * ( (labs(Stock1.Und_1) * 100) / (labs(Stock1.Und_0)+labs(Stock1.Und_1)) ) ) / 100);
// struct Stock_actual { int Ref; long Und_0; long Und_1; };
if( Stock1.Und_1 < 0 )
{ P_0 += P_1; P_1 = 0; }
if( Stock1.Und_0 < 0 )
{ P_1 += P_0; P_0 = 0; }
if( P_1 != 0 ) {
setcolor(ROJO);
setfillstyle(9, ROJO);
pieslice(449, 114, 0, P_1, 80);
}
if( P_0 != 0 ) {
setcolor(AZUL);
setfillstyle(9, AZUL);
pieslice(449, 114, ( 360 - P_0 ), 360, 80);
}
}
} else {
// struct Stock_actual Stock1_Graficas[10];
// bar3d
}
}