CPP_Builder/CAP
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

first commit (2002-04-24)

Browse Source
This commit is contained in:
José David Guillén
2021-09-01 18:53:06 +02:00
commit 4d943d773d
252 changed files with 17433 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
cap_gestion/capg_ifact.cpp Normal file
View File

@ -0,0 +1,42 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "capg_ifact.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TiFact *iFact;
//---------------------------------------------------------------------------
__fastcall TiFact::TiFact(TComponent* Owner)
: TForm(Owner)
{
TbPendientes->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TiFact::BitBtn1Click(TObject *Sender)
{
Currency TotalA, TotalNA;
TbFacturas->Active = true;
TbFacturas->Filter = "[fechaP] >= '" + fdesde->Date.FormatString("dd/mm/yyyy") + "' AND [fechaP] <= '" + fhasta->Date.FormatString("dd/mm/yyyy") +"'";
TbFacturas->Filtered = true;
TotalA = 0; TotalNA = 0;
TbFacturas->First();
while( !TbFacturas->Eof )
{
if ( TbFacturas->FieldByName("idc")->AsInteger == -1 )
{
TotalNA += TbFacturas->FieldByName("importe")->AsCurrency;
} else {
TotalA += TbFacturas->FieldByName("importe")->AsCurrency;
}
TbFacturas->Next();
}
TbFacturas->Active = false;
lTotalA->Caption = TotalA;
lTotalNA->Caption = TotalNA;
}
//---------------------------------------------------------------------------