CPP_Builder/TPVwin
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
TPVwin/TpvCmp.cpp
jdg d031fca570 First commit 14/02/1999
2021-09-12 22:19:30 +02:00

1032 lines
36 KiB
C++
Raw Permalink Blame History

//---------------------------------------------------------------------------
#include <io.h>
#include <stdio.h>
#include <vcl\vcl.h>
#pragma hdrstop
#include "TpvCFG.h"
#include "TpvCmp.h"
//#include "TpvGBDAT.h"
#include "TDlgBuscar.h"
//---------------------------------------------------------------------------
#pragma link "Grids"
#pragma link "ElastFrm"
#pragma resource "*.dfm"
TTpvCmp1 *TpvCmp1;
//---------------------------------------------------------------------------
__fastcall TTpvCmp1::TTpvCmp1(TComponent* Owner)
: TForm(Owner)
{
BusqManual = false;
// Cargamos la imagen OK!
try {
BtmOK = new Graphics::TBitmap();
BtmOK -> LoadFromFile( "Systm\\ok.bmp" );
BtmLockOpen = new Graphics::TBitmap();
BtmLockOpen -> LoadFromFile( "Systm\\lockopen.bmp" );
BtmLockShut = new Graphics::TBitmap();
BtmLockShut -> LoadFromFile( "Systm\\lockshut.bmp" );
} catch (...) {
ShowMessage( "Error: La imagen OK! está corrupta" );
CambiandoFactura = false;
}
CambioCantidad5 = false;
CambiandoFactura = false;
// Mostramos el dialogo, buscar [Productos]
DlgBuscarProd = new TDlgBuscar(this);
TbProveedor -> Active = true;
DlgBuscarProd -> TbBusquedas -> TableName = "Tb_Ref";
DlgBuscarProd -> TbBusquedas -> Active = true;
// Selecciona la base de datos correcta (Tpv_Cm'####)
FechaFacturaA = FechaFacturaA.CurrentDate();
TbFacturasC -> Active = false;
TbFacturasD -> Active = false;
TbFacturasC -> TableName = "Compras (cabecera).db";
TbFacturasD -> TableName = "Compras (cuerpo).db";
TbFacturasD -> Active = true;
TbFacturasC -> Active = true;
// Inicializamos la fecha de compra ( Y el filtro, en base a esta... )
FechaFactura->Date = FechaFacturaA;
TbCartera -> Active = true;
// Activamos el filtro para el dia/mes/año actuales (FechaFactura)
ReajustaFiltro();
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::SpeedButton5Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::SpeedButton4Click(TObject *Sender)
{
TbFacturasD -> Insert();
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::SpeedButton6Click(TObject *Sender)
{
TbFacturasD -> Delete();
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::BusqAntClick(TObject *Sender)
{
/*
if ( DataModule1 -> TbFacturasC -> FindPrior() == true )
{
BusqSig -> Enabled = true;
} else {
BusqAnt -> Enabled = false;
MessageBox( 0, "Coincidencia no hayada", "¡ Buscar Anterior !", MB_OK );
}
*/
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::BuscarFichaClick(TObject *Sender)
{
MessageBox( 0, "¿Qué Pretendes BUSCAR?", "¡ No esta CLARO !", MB_OK );
/*
TDlgBuscProd *DlgBuscProd;
DlgBuscProd = new TDlgBuscProd(this);
DlgBuscProd -> ShowModal();
if ( DlgBuscProd -> ModalResult == mrOk )
{
BusqSig -> Enabled = true;
BusqAnt -> Enabled = true;
}
delete DlgBuscProd;
*/
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::BusqSigClick(TObject *Sender)
{
/*
if ( DataModule1 -> TbFacturasC -> FindNext() == true )
{
//DataModule1 -> TbProductos -> GotoCurrent(DataModule1 -> TbFacturasC);
BusqAnt -> Enabled = true;
} else {
BusqSig -> Enabled = false;
MessageBox( 0, "Coincidencia no hayada", "¡ Buscar Siguiente !", MB_OK );
}
*/
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::SpeedButton1Click(TObject *Sender)
{
TbFacturasC -> Insert();
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::DsFacturasDDataChange(TObject *Sender, TField *Field)
{
char BarraEstado[80];
// Indicador de FichaActual / Num.Fichas
if ( TbFacturasD -> RecNo > 0 && TbFacturasD -> RecordCount > 0 )
{
sprintf( BarraEstado, "C: %d / %d", TbFacturasD -> RecNo, TbFacturasD -> RecordCount );
} else {
sprintf( BarraEstado, "C: ¿Nuevo? / %d", TbFacturasD -> RecordCount );
}
StatusBar1->Panels->Items[1]->Text = BarraEstado;
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::DsFacturasCDataChange(TObject *Sender, TField *Field)
{
char BarraEstado[80];
Currency TParcial; int CantProd = 0;
// Indicador de FichaActual / Num.Fichas
if ( TbFacturasC -> RecNo > 0 && TbFacturasC -> RecordCount > 0 )
{
if ( !CambioCantidad5 )
{
SUMAcompraC = 0; IVAcompraC = 0;
sprintf( BarraEstado, "F: %d / %d", TbFacturasC -> RecNo, TbFacturasC -> RecordCount );
TbFacturasD -> DisableControls();
TbFacturasD -> First();
while ( ! TbFacturasD -> Eof )
{
StatusBar1->Panels->Items[2]->Text = "Sumando: " + TbFacturasD -> RecNo;
TParcial = TbFacturasD->FieldByName("PrecioC") -> AsCurrency * Currency( (int)( TbFacturasD->FieldByName("Cantidad") -> AsInteger ) );
SUMAcompraC += TParcial;
IVAcompraC += ( TParcial / 100 ) * Currency( (int)( TbFacturasD->FieldByName("IVA") -> AsInteger ) );
CantProd += TbFacturasD->FieldByName("Cantidad") -> AsInteger;
TbFacturasD -> Next();
}
TbFacturasD -> EnableControls();
}
} else {
sprintf( BarraEstado, "F: ¿Nuevo? / %d", TbFacturasC -> RecordCount );
CambiandoFactura = false;
return;
}
SUMAcompra -> Caption = FormatCurr("###,###,###.#0", SUMAcompraC );
IVAcompra -> Caption = FormatCurr("###,###,###.#0", IVAcompraC );
TotalCompra -> Caption = FormatCurr("###,###,###.#0", SUMAcompraC + IVAcompraC );
StatusBar1->Panels->Items[2]->Text = BarraEstado;
btFacturar->Enabled = ! TbFacturasC->FieldByName("Contabilizada")->AsBoolean;
DsFacturasC->AutoEdit = ! TbFacturasC->FieldByName("Contabilizada")->AsBoolean;
DsFacturasD->AutoEdit = ! TbFacturasC->FieldByName("Contabilizada")->AsBoolean;
if ( CambiandoFactura ) return;
CambiandoFactura = true;
cbFormaPago->ItemIndex = TbFacturasC->FieldByName("FormaPago")->AsInteger;
CambiandoFactura = false;
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbFacturasCNewRecord(TDataSet *DataSet)
{
try {
TbFacturasC -> FieldByName("FormaPago")->AsInteger = 0;
TbFacturasC -> FieldByName( "FechaFactura" ) -> AsDateTime = FechaFacturaA;//TDateTime::CurrentDate();
TbFacturasC -> FieldByName( "CodProveedor" ) -> AsInteger = 1;
TbFacturasC -> FieldByName( "UltimoPago" ) -> AsDateTime = TDateTime::CurrentDate();
} catch(...) {
Abort();
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::Button1Click(TObject *Sender)
{
// Mostramos el dialogo, buscar Vendedores
TDlgBuscar *DlgBuscar;
DlgBuscar = new TDlgBuscar(this);
DlgBuscar->Filter = "Proveedor > 0";
DlgBuscar->TbBusquedas->Filter = DlgBuscar->Filter;
DlgBuscar->TbBusquedas->Filtered = true;
DlgBuscar->TbBusquedas->TableName = "personas";
DlgBuscar->TbBusquedas->Active = true;
DlgBuscar->ShowModal();
if ( DlgBuscar -> ModalResult == mrOk )
{
TbFacturasC -> Edit();
TbFacturasC -> FieldByName( "CodProveedor" ) -> AsInteger = DlgBuscar -> TbBusquedas -> FieldByName( "CodCliente1" ) -> AsInteger;
TbFacturasC->FieldByName("Banco_Entidad" )->Value = DlgBuscar->TbBusquedas->FieldByName("Banco_Entidad" )->Value;
TbFacturasC->FieldByName("Banco_Sucursal" )->Value = DlgBuscar->TbBusquedas->FieldByName("Banco_Sucursal" )->Value;
TbFacturasC->FieldByName("Banco_DC" )->Value = DlgBuscar->TbBusquedas->FieldByName("Banco_DC" )->Value;
TbFacturasC->FieldByName("Banco_NumCuenta" )->Value = DlgBuscar->TbBusquedas->FieldByName("Banco_NumCuenta" )->Value;
TbFacturasC -> Post();
}
delete DlgBuscar;
}
//---------------------------------------------------------------------------
/*
void __fastcall TTpvCmp1::SpeedButton2Click(TObject *Sender)
{
TDateTime FTest;
enum TDateTimeFlag {Date, Time, DateTime} DTFlag = Date;
unsigned short M, D, A, Aa;
try {
FTest = TDateTime( FechaFactura->Text, DTFlag );
FTest.DecodeDate( &A, &M, &D );
FechaFacturaA.CurrentDate();
FechaFacturaA.DecodeDate( &Aa, &M, &D );
// Se prohibe cambiar de año
if ( Aa != A )
{
MessageBox( 0, "Fecha de Factura fuera de rango.", "Atención", MB_OK );
return;
} else {
FechaFacturaA = FTest;
ReajustaFiltro();
}
} catch(...) {
MessageBox( 0, "Imposible aplicar filro.", "Atención", MB_OK );
}
}
*/
//---------------------------------------------------------------------------
void _fastcall TTpvCmp1::ReajustaFiltro(void)
{
SUMAcompra->Caption = 0; IVAcompra->Caption = 0; TotalCompra->Caption = 0;
TbFacturasC->FilterOptions = TbFacturasC->FilterOptions << foCaseInsensitive;
TbFacturasC->Filter = "([FechaFactura] = '" + FechaFacturaA + "')";
TbFacturasC->Filtered = true;
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::DBEdit1KeyPress(TObject *Sender, char &Key)
{
if ( Key == VK_RETURN )
{
Key = 0;
TbFacturasC -> Post();
Button1 -> SetFocus();
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbFacturasCBeforeDelete(TDataSet *DataSet)
{
if ( TbFacturasC->FieldByName("Contabilizada")->AsBoolean == true )
{
ShowMessage( "No se pueden eliminar, facturas que hayan sido contabilizadas." );
Abort();
}
switch( MessageDlg( "Atención, está apunto de\neliminar la factura " + TbFacturasC -> FieldByName( "CodFactura" ) -> AsString + "...\ny todas sus compras asociadas.\n¿Realmente desea continuar?", mtWarning, TMsgDlgButtons() << mbNo << mbYes, 0 ) )
{
case mrNo:
Abort();
break;
default:
// Borramos y NO DESCONTAMOS DEL ¡¡¡STOCK!!!
while( TbFacturasD -> RecordCount != 0 )
{
TbFacturasD -> Delete();
}
break;
};
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbFacturasDBeforeInsert(TDataSet *DataSet)
{
if ( !( TbFacturasC -> RecNo > 0 && TbFacturasC -> RecordCount > 0 ) )
{
MessageBox( 0, "¿ No cree que debería crear,\no seleccionar una factura nueva,\nantes de agregar datos de compra?.", "¡ Atención !", MB_OK );
Abort();
}
}
//---------------------------------------------------------------------------
//
// Muestra la ficha para elegir producto, y en caso de ser distinto al actual
// actualiza los Stock's correspondientes.
//
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::DBGrid1EditButtonClick(TObject *Sender)
{
if ( !( TbFacturasC -> RecNo > 0 && TbFacturasC -> RecordCount > 0 ) )
{
MessageBox( 0, "¿ No cree que debería crear,\no seleccionar una factura nueva,\nantes de agregar datos de compra?.", "¡ Atención !", MB_OK );
return;
}
// Mostramos el dialogo, buscar Productos
DlgBuscarProd -> ShowModal();
if ( DlgBuscarProd -> ModalResult == mrOk )
{
if ( TbFacturasD -> RecordCount <= 0 )
TbFacturasD -> Insert();
if ( TbFacturasD -> State != dsEdit )
TbFacturasD -> Edit();
BusqManual = true;
TbFacturasDCodProductoSetText(TbFacturasD -> FieldByName( "CodProducto" ),
DlgBuscarProd -> TbBusquedas -> FieldByName( "ID Producto" ) -> AsString);
BusqManual = false;
if ( TbFacturasD -> State != dsEdit )
TbFacturasD -> Edit();
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::ActualizaStock( AnsiString CodProducto, int Cantidad, int CodProveedor )
{
// Localizamos el CodProducto y actualizamos
Set<TLocateOption,0,1> flags;
flags << loCaseInsensitive;
DlgBuscarProd -> TbBusquedas -> Filtered = false;
if ( DlgBuscarProd -> TbBusquedas -> Locate( "ID Producto", CodProducto, flags ) )
{
DlgBuscarProd -> TbBusquedas -> Edit();
DlgBuscarProd -> TbBusquedas -> FieldByName( "Stock Actual" ) -> AsInteger += Cantidad;
if ( CodProveedor != -1 )
DlgBuscarProd -> TbBusquedas -> FieldByName( "ProveedorActual" ) -> AsInteger = CodProveedor;
DlgBuscarProd -> TbBusquedas -> Post();
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbFacturasDCalcFields(TDataSet *DataSet)
{
TbFacturasDTotal -> AsCurrency = TbFacturasD->FieldByName("PrecioC")->AsCurrency * TbFacturasD->FieldByName("Cantidad") -> AsCurrency;
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::DBGrid1KeyPress(TObject *Sender, char &Key)
{
switch( Key )
{
case VK_RETURN:
if ( DBGrid1 -> EditorMode )
{
if ( TbFacturasD -> State == dsEdit )
TbFacturasD -> Post();
if ( DBGrid1 -> Fields[DBGrid1 -> SelectedIndex] -> FieldName == "IVA" )
{
DBGrid1 -> SelectedField = DBGrid1 -> Fields[0];
TbFacturasD -> Next();
if ( TbFacturasD -> Eof )
{
TbFacturasD -> Append();
}
} else
DBGrid1 -> SelectedIndex = DBGrid1 -> SelectedIndex + 1;
Key = 0;
}
break;
case '.':
Key = ',';
// FALTA 'BREAK' ARRIBA ¡¡¡¡¡¡¡¡ CORRECTO !!!!!!!!!
default:
// Solo si el campo seleccionado es el de NOMBRE DEL PRODUCTO
if ( DBGrid1 -> Fields[DBGrid1 -> SelectedIndex] -> FieldName == "NombreProducto" )
{
// TInplaceEdit *CellsEditor;
// TCustomEdit
// DBGrid1 -> InplaceEditor -> SelStart = 1;
// DBGrid1 -> InplaceEditor -> SelLength = 2;
}
break;
}
}
//---------------------------------------------------------------------------
/*
// Recalculamos los TOTALES
MessageBox ( 0, AnsiString ( "Antiguo: " +
Sender -> OldValue +
"\nNuevo: " +
Sender -> NewValue ).c_str() , "JEJE", MB_OK );
*/
void __fastcall TTpvCmp1::TbFacturasDCantidadSetText(TField *Sender,
const AnsiString Text)
{
Currency TParcial;
ActualizaStock( TbFacturasD->FieldByName("CodProducto") -> AsString,
-1 * TbFacturasD->FieldByName("Cantidad") -> AsInteger,
-1 );
//
TParcial = TbFacturasD->FieldByName("PrecioC") -> AsCurrency * Currency( (int)( Sender -> AsInteger ) );
SUMAcompraC -= TParcial;
IVAcompraC -= ( TParcial / 100 ) * Currency( (int)( TbFacturasD -> FieldByName( "IVA" ) -> AsInteger ) );
Sender -> AsString = Text;
TParcial = TbFacturasD->FieldByName("PrecioC") -> AsCurrency * Currency( (int)( Text.ToInt() ) );
SUMAcompraC += TParcial;
IVAcompraC += ( TParcial / 100 ) * Currency( (int)( TbFacturasD -> FieldByName( "IVA" ) -> AsInteger ) );
CambioCantidad5 = true;
TbFacturasC -> Edit();
TbFacturasC -> FieldByName( "TotalSin") -> AsCurrency = SUMAcompraC;
TbFacturasC -> FieldByName( "TotalIva") -> AsCurrency = IVAcompraC;
TbFacturasC -> Post();
CambioCantidad5 = false;
SUMAcompra -> Caption = AnsiString( SUMAcompraC );
IVAcompra -> Caption = AnsiString( IVAcompraC );
TotalCompra -> Caption = AnsiString::CurrToStr( SUMAcompraC + IVAcompraC );
//
ActualizaStock( TbFacturasD->FieldByName("CodProducto") -> AsString,
+1 * TbFacturasD->FieldByName("Cantidad") -> AsInteger,
TbFacturasC -> FieldByName( "CodProveedor" ) -> AsInteger );
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbFacturasDPrecioCSetText(TField *Sender,
const AnsiString Text)
{
Currency TParcial;
TParcial = Sender -> AsCurrency * Currency( (int)( TbFacturasDCantidad -> AsInteger ) );
SUMAcompraC -= TParcial;
IVAcompraC -= ( TParcial / 100 ) * Currency( (int)( TbFacturasD -> FieldByName( "IVA" ) -> AsInteger ) );
Sender -> AsString = Text;
TParcial = Currency( Text ) * Currency( (int)( TbFacturasDCantidad -> AsInteger ) );
SUMAcompraC += TParcial;
IVAcompraC += ( TParcial / 100 ) * Currency( (int)( TbFacturasD -> FieldByName( "IVA" ) -> AsInteger ) );
CambioCantidad5 = true;
TbFacturasC -> Edit();
TbFacturasC -> FieldByName( "TotalSin") -> AsCurrency = SUMAcompraC;
TbFacturasC -> FieldByName( "TotalIva") -> AsCurrency = IVAcompraC;
TbFacturasC -> Post();
CambioCantidad5 = false;
///////// ACTUALIZAMOS EL PrecioC en el LISTADO DE PRODUCTOS :---------
if ( CFG->CmpActualizaPCoste->Checked )
{
Set<TLocateOption,0,1> flags;
flags << loCaseInsensitive;
if ( DlgBuscarProd -> TbBusquedas -> Locate( "ID Producto", TbFacturasD->FieldByName( "CodProducto" )->AsString, flags ) )
{
DlgBuscarProd -> TbBusquedas -> Edit();
if ( CFG->CmpActualizaPVP->Checked )
{
/// CUIDADO QUE TAMBIEN ESTO ESTA LIGADO A TPVproductos.CPP y TPVcmp.CPP
Currency Ganancia = 0, PC;
if ( CFG->RecalcularPrecioVentaAlCambiarCoste->ItemIndex > 0 )
{
Ganancia = DlgBuscarProd->TbBusquedas->FieldByName("Precio Venta 1")->AsCurrency - Sender->AsCurrency;
PC = Sender->AsCurrency;
}
/// CUIDADO QUE TAMBIEN ESTO ESTA LIGADO A TPVproductos.CPP y TPVcmp.CPP
if ( CFG->RecalcularPrecioVentaAlCambiarCoste->ItemIndex == 1 )
DlgBuscarProd -> TbBusquedas->FieldByName("Precio Venta 1")->AsCurrency = Ganancia + Sender->AsCurrency;
if ( CFG->RecalcularPrecioVentaAlCambiarCoste->ItemIndex == 2 )
DlgBuscarProd -> TbBusquedas->FieldByName("Precio Venta 1")->AsCurrency = Sender->AsCurrency + ( (Ganancia * Sender->AsCurrency)/PC );
}
DlgBuscarProd -> TbBusquedas -> FieldByName( "Precio Costo" ) -> AsCurrency = Sender -> AsCurrency;
DlgBuscarProd -> TbBusquedas -> Post();
}
}
///////////////////////////////////////////////////////////////////////
SUMAcompra -> Caption = AnsiString( SUMAcompraC );
IVAcompra -> Caption = AnsiString( IVAcompraC );
TotalCompra -> Caption = AnsiString::CurrToStr( SUMAcompraC + IVAcompraC );
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbFacturasDIVASetText(TField *Sender,
const AnsiString Text)
{
Currency TParcial;
TParcial = TbFacturasDPrecioC -> AsCurrency * Currency( (int)( TbFacturasDCantidad -> AsInteger ) );
SUMAcompraC -= TParcial;
IVAcompraC -= ( TParcial / 100 ) * Currency( (int)( Sender -> AsInteger ) );
Sender -> AsString = Text;
TParcial = TbFacturasDPrecioC -> AsCurrency * Currency( (int)( TbFacturasDCantidad -> AsInteger ) );
SUMAcompraC += TParcial;
IVAcompraC += ( TParcial / 100 ) * Currency( (int)( Text.ToInt() ) );
CambioCantidad5 = true;
TbFacturasC -> Edit();
TbFacturasC -> FieldByName( "TotalSin") -> AsCurrency = SUMAcompraC;
TbFacturasC -> FieldByName( "TotalIva") -> AsCurrency = IVAcompraC;
TbFacturasC -> Post();
CambioCantidad5 = false;
SUMAcompra -> Caption = AnsiString( SUMAcompraC );
IVAcompra -> Caption = AnsiString( IVAcompraC );
TotalCompra -> Caption = AnsiString::CurrToStr( SUMAcompraC + IVAcompraC );
// Localizacion del producto
Set<TLocateOption,0,1> flags;
flags << loCaseInsensitive;
DlgBuscarProd -> TbBusquedas -> Filtered = false;
if ( DlgBuscarProd -> TbBusquedas -> Locate( "ID Producto", Text, flags ) )
{
DlgBuscarProd -> TbBusquedas -> Edit();
DlgBuscarProd -> TbBusquedas -> FieldByName( "IVA Costo" ) -> AsInteger = TbFacturasD -> FieldByName( "IVA" ) -> AsInteger;
DlgBuscarProd -> TbBusquedas -> Post();
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbFacturasDCodProductoSetText(TField *Sender,
const AnsiString Text)
{
AnsiString oldCodProducto,SearchField;
Currency TParcial;
oldCodProducto = Sender -> AsString;
TParcial = TbFacturasDPrecioC -> AsCurrency * Currency( (int)( TbFacturasDCantidad -> AsInteger ) );
SUMAcompraC -= TParcial;
IVAcompraC -= ( TParcial / 100 ) * Currency( (int)( TbFacturasD -> FieldByName( "IVA" ) -> AsInteger ) );
Sender -> AsString = Text;
// Localizacion del producto
Set<TLocateOption,0,1> flags;
flags << loCaseInsensitive;
DlgBuscarProd -> TbBusquedas -> Filtered = false;
/*if ( BusqManual ) SearchField = "ForcedIndex"; else */
SearchField = "ID Producto";
if ( DlgBuscarProd -> TbBusquedas -> Locate( SearchField, Text, flags ) )
{
TbFacturasD->FieldByName( "NombreProducto" )->AsString = DlgBuscarProd->TbBusquedas->FieldByName( "Nombre del Producto" )->AsString;
TbFacturasDPrecioC -> AsCurrency = DlgBuscarProd->TbBusquedas->FieldByName( "Precio Costo" )->AsCurrency;
TbFacturasD->FieldByName( "IVA" )->AsInteger = DlgBuscarProd->TbBusquedas->FieldByName( "I.V.A" )->AsInteger;
if ( oldCodProducto != TbFacturasD->FieldByName( "CodProducto" )->AsString )
{
ActualizaStock( oldCodProducto,
-1 * TbFacturasD -> FieldByName( "Cantidad" ) -> AsInteger,
-1 );
ActualizaStock( Sender -> AsString,
+1 * TbFacturasD -> FieldByName( "Cantidad" ) -> AsInteger,
TbFacturasC -> FieldByName( "CodProveedor" ) -> AsInteger );
}
}
TParcial = TbFacturasDPrecioC -> AsCurrency * Currency( (int)( TbFacturasDCantidad -> AsInteger ) );
SUMAcompraC += TParcial;
IVAcompraC += ( TParcial / 100 ) * Currency( (int)( TbFacturasD -> FieldByName( "IVA" ) -> AsInteger ) );
CambioCantidad5 = true;
TbFacturasC -> Edit();
TbFacturasC -> FieldByName( "TotalSin") -> AsCurrency = SUMAcompraC;
TbFacturasC -> FieldByName( "TotalIva") -> AsCurrency = IVAcompraC;
TbFacturasC -> Post();
CambioCantidad5 = false;
SUMAcompra -> Caption = AnsiString( SUMAcompraC );
IVAcompra -> Caption = AnsiString( IVAcompraC );
TotalCompra -> Caption = AnsiString::CurrToStr( SUMAcompraC + IVAcompraC );
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::DBGrid1ColExit(TObject *Sender)
{
if ( TbFacturasD -> State == dsEdit )
try {
TbFacturasD -> Post();
}catch(...){
// Do nothing
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbFacturasDBeforeDelete(TDataSet *DataSet)
{
if ( TbFacturasC->FieldByName("Contabilizada")->AsBoolean == true )
{
ShowMessage( "No se pueden eliminar, lineas de facturas que hayan sido contabilizadas." );
Abort();
}
switch( MessageDlg( "Atención, está apunto de\neliminar la compra señalada actual...\n¿Realmente desea continuar?", mtConfirmation, TMsgDlgButtons() << mbNo << mbYes, 0 ) )
{
case mrNo:
Abort();
break;
default:
// No nos olvidemos de anular todo esto (Y del STOCK)
ActualizaStock( TbFacturasD -> FieldByName( "CodProducto" ) -> AsString,
-1 * TbFacturasD -> FieldByName( "Cantidad" ) -> AsInteger,
-1);
Currency TParcial;
TParcial = TbFacturasDPrecioC -> AsCurrency * Currency( (int)( TbFacturasDCantidad -> AsInteger ) );
SUMAcompraC -= TParcial;
IVAcompraC -= ( TParcial / 100 ) * Currency( (int)( TbFacturasD -> FieldByName( "IVA" ) -> AsInteger ) );
CambioCantidad5 = true;
TbFacturasC -> Edit();
TbFacturasC -> FieldByName( "TotalSin") -> AsCurrency = SUMAcompraC;
TbFacturasC -> FieldByName( "TotalIva") -> AsCurrency = IVAcompraC;
TbFacturasC -> Post();
CambioCantidad5 = false;
SUMAcompra -> Caption = AnsiString( SUMAcompraC );
IVAcompra -> Caption = AnsiString( IVAcompraC );
TotalCompra -> Caption = AnsiString::CurrToStr( SUMAcompraC + IVAcompraC );
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::FormClose(TObject *Sender, TCloseAction &Action)
{
// Eliminamos el dialogo, buscar [Productos]
delete DlgBuscarProd;
// Destruimos la imagen de OK!
delete BtmOK;
delete BtmLockOpen;
delete BtmLockShut;
try
{
if ( TbFacturasD -> State == dsEdit || TbFacturasD -> State == dsInsert )
TbFacturasD -> Post();
if ( TbFacturasC -> State == dsEdit || TbFacturasC -> State == dsInsert )
TbFacturasC -> Post();
if ( TbCartera -> State == dsEdit || TbCartera -> State == dsInsert )
TbCartera -> Post();
} catch(...)
{
// Nothing
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::FechaFacturaChange(TObject *Sender)
{
#ifdef TB_DISCONTINUAS
// Si el año de la factura que pedimos ver, no concuerda con los años que
// estamos viendo, abrimos la base de datos que concuerde...
enum TDateTimeFlag {Date, Time, DateTime} DTFlag = Date;
unsigned short M, D, A, Aa;
try {
FechaFacturaA.DecodeDate( &Aa, &M, &D );
FechaFactura -> Date.DecodeDate( &A, &M, &D );
// Se prohibe cambiar de año
if ( Aa != A )
{
MessageBox( 0, "Fecha de Factura fuera de rango.", "Atención CAMBIAREMOS DE BD...", MB_OK );
// CAMBIAMOS DE BASE DE DATOS... (SOLO SI ES POSIBLE)
if ( access( AnsiString("Compras (cabecera) '"+ AnsiString(A)).c_str(), 0 ) != 0 )
{
MessageBox( 0, "Imposible aplicar filro.", "Atención", MB_OK );
return;
}
TbFacturasC -> Active = false;
TbFacturasD -> Active = false;
TbFacturasC -> TableName = "Compras (cabecera) '"+ AnsiString(A);
TbFacturasD -> TableName = "Compras (cuerpo) '"+ AnsiString(A);
TbFacturasD -> Active = true;
TbFacturasC -> Active = true;
}
} catch(...) {
MessageBox( 0, "Imposible aplicar filro.", "Atención", MB_OK );
}
#endif
// Reajustamos el filtro...
FechaFacturaA = FechaFactura -> Date;
ReajustaFiltro();
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbFacturasDNombreProductoSetText(TField *Sender,
const AnsiString Text)
{
// Si modifica el nombre del producto... ( El código debe ser "VACIO" )
if ( ( TbFacturasDCodProducto -> AsString ) . IsEmpty() )
Sender -> AsString = Text;
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::btFacturarClick(TObject *Sender)
{
// ¿ Actualizar factura ?
if (
TbFacturasC->FieldByName("Contabilizada")->AsBoolean!=true &&
Application->MessageBox("¿ Actualizar Factura ?", "Alerta contable", MB_OKCANCEL ) != IDCANCEL
)
{
int maxCONT;
TbFacturasC->Edit();
TbFacturasC->FieldByName("Contabilizada")->AsBoolean = true;
TbFacturasC->Post();
/*
TbAsientos->FilterOptions = TbAsientos->FilterOptions << foCaseInsensitive;
TbAsientos->Filter = "([nAsiento] = 40)";
TbAsientos-> Active = true;
maxCONT = 0;
TbAsientos->First();
while( ! TbAsientos-> Eof )
{
if ( TbAsientos-> FieldByName("nOrden")->AsInteger > maxCONT )
maxCONT = TbAsientos-> FieldByName("nOrden")->AsInteger;
TbAsientos->Next();
}
//##### BLOQUEAR BD ###############################
//####################################
double SumaTotal = TbFacturasC->FieldByName("TotalSin")->AsCurrency + TbFacturasC->FieldByName("TotalIva")->AsCurrency;
TbAsientos -> InsertRecord( ARRAYOFCONST( ( 40, (maxCONT+1), TbFacturasC->FieldByName("FechaFatura")->Value, (400000000+TbFacturasC->FieldByName("CodProveedor")->AsInteger), SumaTotal, false, AnsiString( "Su factura nº: " + TbFacturasC->FieldByName("CodFactura")->AsString ), TbFacturasC->FieldByName("EnlaceFactura")->AsInteger ) ) );
TbAsientos -> InsertRecord( ARRAYOFCONST( ( 40, (maxCONT+2), TbFacturasC->FieldByName("FechaFatura")->Value, 472000016, IVAcompraC, false, AnsiString( "Su factura nº: " + TbFacturasC->FieldByName("CodFactura")->AsString ), TbFacturasC->FieldByName("EnlaceFactura")->AsInteger ) ) );
#ifdef EXIST_CFG
if ( ! CFG->AsientoProductosIndividual )
{
TbFacturasD->Fisrt();
while( !TbFacturasD->Eof )
{
// SUMA PRODUCTOS INDIVIDUALES
TbFacturasD->Next();
}
} else
#endif
TbAsientos -> InsertRecord( ARRAYOFCONST( ( 40, (maxCONT+3), TbFacturasC->FieldByName("FechaFatura")->Value, "600000001", SUMAcompraC, false, AnsiString( "Su factura nº: " + TbFacturasC->FieldByName("CodFactura")->AsString ), TbFacturasC->FieldByName("EnlaceFactura")->AsInteger ) ) );
//####################################
*/
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::SpeedButton2Click(TObject *Sender)
{
// Imprimir
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::DsCarteraDataChange(TObject *Sender,
TField *Field)
{
Edit2->Text = "";
Edit1->Text = "";
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::Edit2Change(TObject *Sender)
{
bool pag; short int i; int npagos;
Currency Total = SUMAcompraC + IVAcompraC;
if ( Edit2->Text . IsEmpty() ) return;
try {
npagos = Edit2->Text.ToInt();
} catch(...) {
ShowMessage( "El número de veces a fraccionar el pago, no es correcto" );
return;
}
if ( npagos < 2 )
{
ShowMessage( "El número de veces a fraccionar el pago, no es correcto" );
return;
}
pag = false;
// Eliminamos todos los pagos acumulados (SOLO SI NO HAY NINGUN PAGO REALIZADO)
TbCartera->First();
while( !TbCartera->Eof )
if ( TbCartera->FieldByName("Pagado")->AsBoolean == true )
{
pag = true;
break;
}
if ( pag )
{
while( !TbCartera->Eof ) // Eliminamos los pagos actuales
TbCartera->Delete();
unsigned short year;
Total /= i;
TDateTime::CurrentDate().DecodeDate( &year, NULL, NULL);
// desde 1 para que inc. los meses
for ( i = 1; i <= npagos; i++ )
TbCartera->InsertRecord( ARRAYOFCONST( ( TbFacturasC->FieldByName("EnlaceFactura")->AsInteger, Variant( EncodeDate( year, i, 1 ) ), Total, 0, cbFormaPago->ItemIndex, false ) ) );
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::Edit1Change(TObject *Sender)
{
bool pag; short int i; int npagos; int tpagos;
Currency Total = SUMAcompraC + IVAcompraC;
if ( Edit1->Text . IsEmpty() ) return;
try {
tpagos = Edit1->Text.ToInt();
} catch(...) {
ShowMessage( "La cantidad para fraccionar el pago, no es correcta" );
return;
}
if ( tpagos < 2000 )
{
ShowMessage( "La cantidad para fraccionar el pago, no es correcta" );
return;
}
pag = false;
// Eliminamos todos los pagos acumulados (SOLO SI NO HAY NINGUN PAGO REALIZADO)
TbCartera->First();
while( !TbCartera->Eof )
if ( TbCartera->FieldByName("Pagado")->AsBoolean == true )
{
pag = true;
break;
} else {
TbCartera->Next();
}
if ( pag )
{
while( !TbCartera->Eof ) // Eliminamos los pagos actuales
TbCartera->Delete();
unsigned short year;
npagos = Total / tpagos;
Total = tpagos;
TDateTime::CurrentDate().DecodeDate(&year, NULL, NULL);
// desde 1 para que inc. los meses
for ( i = 1; i <= npagos; i++ )
TbCartera->InsertRecord( ARRAYOFCONST( ( TbFacturasC->FieldByName("EnlaceFactura")->AsInteger, Variant( EncodeDate( year, i, 1 ) ), Total, 0, cbFormaPago->ItemIndex, false ) ) );
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::cbFormaPagoChange(TObject *Sender)
{
if ( CambiandoFactura ) return;
/*
// Debemos cambiar todo lo fraccionado
if ( cbFormaPago->Items->Strings[cbFormaPago->ItemIndex] == "Contado" )
{
if ( Application->MessageBox("¿Eliminar todo el fraccionamiento de pagos?", "Alerta contable", MB_OKCANCEL ) != IDCANCEL )
{
while( !TbCartera->Eof ) // Eliminamos los pagos actuales
TbCartera->Delete();
dbgFraccion->Enabled = false;
Edit1->Enabled=false; Edit2->Enabled=false;
TbFacturasC->Edit();
TbFacturasC->FieldByName("UltimoPago")->AsDateTime = TDateTime::CurrentDate();
TbFacturasC->Post();
} else {
cbFormaPago->ItemIndex = TbCartera->FieldByName("FormaPago")->AsInteger;
}
} else {
dbgFraccion->Enabled = true;
Edit1->Enabled=true; Edit2->Enabled=true;
TbCartera->First();
while( !TbCartera->Eof )
{
TbCartera->Edit();
TbCartera->FieldByName("FormaPago")->AsInteger = cbFormaPago->ItemIndex;
TbCartera->Post();
TbCartera->Next();
}
}
*/
CambiandoFactura = true;
TbFacturasC->Edit();
TbFacturasC->FieldByName("FormaPago")->AsInteger = cbFormaPago->ItemIndex;
TbFacturasC->Post();
CambiandoFactura = false;
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbCarteraNewRecord(TDataSet *DataSet)
{
TbCartera->FieldByName("Fecha")->AsDateTime = TDateTime::CurrentDate();
TbCartera->FieldByName("FormaPago")->AsInteger = cbFormaPago->ItemIndex;
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbCarteraBeforeDelete(TDataSet *DataSet)
{
if ( TbCartera->FieldByName("Pagado")->AsBoolean == true )
{
ShowMessage( "No se pueden eliminar, fraccionamientos que ya han sido efectuados." );
Abort();
}
/*
TbFacturasC->Edit();
TbFacturasC->FieldByName("TotalFrac")->AsCurrency -= TbCartera->FieldByName("Importe")->AsCurrency * (( 100 + TbCartera->FieldByName("Incremento")->AsCurrency )/100);
TbFacturasC->Post();
*/
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbCarteraCalcFields(TDataSet *DataSet)
{
TbCartera->FieldByName("Total")->AsCurrency = TbCartera->FieldByName("Importe")->AsCurrency * ( 0.01 * TbCartera->FieldByName("Incremento")->AsCurrency );
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::dbgFraccionDrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
if ( Column -> ID == 0 )
{
if ( TbCartera->FieldByName("Pagado")->AsBoolean )
{
dbgFraccion->Canvas->StretchDraw( Rect, BtmOK );
} else {
dbgFraccion->Canvas->Brush->Color = clWindow;
dbgFraccion->Canvas->FillRect( Rect );
}
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::DBGrid2DrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
if ( Column -> ID == 0 )
{
if ( TbFacturasC->FieldByName("Contabilizada")->AsBoolean )
DBGrid2->Canvas->StretchDraw( Rect, BtmLockShut );
else
DBGrid2->Canvas->StretchDraw( Rect, BtmLockOpen );
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbCarteraBeforeInsert(TDataSet *DataSet)
{
if ( !( TbFacturasC -> RecNo > 0 && TbFacturasC -> RecordCount > 0 ) &&
!( TbFacturasD -> RecNo > 0 && TbFacturasD -> RecordCount > 0 ) )
{
MessageDlg("¿ No cree que debería crear,\no seleccionar una factura CON DATOS,\nantes de intentar fracionar su pago?.", mtWarning, TMsgDlgButtons() << mbOK, 0);
// MessageBox( 0, "¿ No cree que debería crear,\no seleccionar una factura CON DATOS,\nantes de intentar fracionar su pago?.", "¡ Atención !", MB_OK );
Abort();
}
}
//---------------------------------------------------------------------------
void __fastcall TTpvCmp1::TbCarteraFechaChange(TField *Sender)
{
if ( (int)Sender->AsDateTime > (int)TbFacturasC->FieldByName("UltimoPago")->AsDateTime )
{
TbFacturasC->Edit();
TbFacturasC->FieldByName("UltimoPago")->AsDateTime = Sender->AsDateTime;
TbFacturasC->Post();
}
}
//---------------------------------------------------------------------------
Reference in New Issue View Git Blame Copy Permalink