Skip to content

T
TwilioMsgs
Commit aea23046 by Mac Stephens
Options

Initial Commit, .gitignore added

parent 41ea1a44
Showing with 392 additions and 0 deletions
.gitignore 0 → 100644
TwilioMsgs/dev/__history/
TwilioMsgs/dev/__recovery/
TwilioMsgs/dev/Win32/
TwilioMsgs/dev/Win64x/
*.ilc
*.ild
*.ilf
*.skincfg
*.tds
*.exe
dev/Project1.cbproj.local 0 → 100644
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>2023/10/31 23:31:08.000.427,=C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.cpp</Transaction>
<Transaction>2023/10/31 23:31:08.000.411,=C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Project1PCH1.h</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Project1.cbproj=C:\Projects2\Twilio\TwilioPhoneApp\Project1.cbproj</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.h=C:\Projects2\Twilio\TwilioPhoneApp\Unit1.h</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Projects2\Twilio\TwilioPhoneApp\Unit1.dfm</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.cpp=C:\Projects2\Twilio\TwilioPhoneApp\Unit1.cpp</Transaction>
<Transaction>2023/10/31 23:32:16.000.609,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Project1PCH1.h=C:\Projects2\Twilio\TwilioPhoneApp\Project1PCH1.h</Transaction>
<Transaction>2023/11/07 21:20:30.000.406,=C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp\JSONDictionaryPkg.lib</Transaction>
<Transaction>2023/11/08 22:57:12.000.558,=C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp\DictionaryPackage.lib</Transaction>
<Transaction>2025/02/11 12:37:55.000.601,=C:\Projects2\Twilio\TwilioMsgs.vcl\dev\fDocEntryFind.cpp</Transaction>
</Transactions>
</BorlandProject>
dev/Project1.cpp 0 → 100644
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
USEFORM("fDocEntryFind.cpp", frmDocEntryFind);
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
try
{
Application->Initialize();
Application->MainFormOnTaskBar = true;
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
dev/Project1.map 0 → 100644
Start Length Name Class
0001:00401000 000DEB888H _TEXT CODE
0002:011ED000 00003BE10H _DATA DATA
0003:01228E10 00002B484H _BSS BSS
0004:00000000 000000104H _TLS TLS
dev/Project1PCH1.h 0 → 100644
#include <vcl.h>
#include <tchar.h>
dev/Unit1.cpp 0 → 100644
This diff is collapsed. Click to expand it.
dev/Unit1.dfm 0 → 100644
This diff is collapsed. Click to expand it.
dev/Unit1.h 0 → 100644
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include "AdvGrid.hpp"
#include "AdvObj.hpp"
#include "AdvUtil.hpp"
#include "BaseGrid.hpp"
#include "DBAdvGrid.hpp"
#include <Vcl.Graphics.hpp>
#include <Vcl.Grids.hpp>
#include <Data.Bind.Components.hpp>
#include <Data.Bind.ObjectScope.hpp>
#include <Data.DB.hpp>
#include <FireDAC.Comp.Client.hpp>
#include <FireDAC.Comp.DataSet.hpp>
#include <FireDAC.DApt.Intf.hpp>
#include <FireDAC.DatS.hpp>
#include <FireDAC.Phys.Intf.hpp>
#include <FireDAC.Stan.Error.hpp>
#include <FireDAC.Stan.Intf.hpp>
#include <FireDAC.Stan.Option.hpp>
#include <FireDAC.Stan.Param.hpp>
#include <REST.Client.hpp>
#include <REST.Response.Adapter.hpp>
#include <REST.Types.hpp>
#include "AdvSplitter.hpp"
#include <Vcl.ExtCtrls.hpp>
#include "AdvEdit.hpp"
#include "vcl.wwdbcomb.hpp"
#include "vcl.wwdbedit.hpp"
#include "vcl.wwdotdot.hpp"
#include <Vcl.Mask.hpp>
#include "AdvOfficePager.hpp"
#include "MemDS.hpp"
#include "VirtualTable.hpp"
#include "DBAccess.hpp"
#include "Uni.hpp"
#include "vcl.wwdbdatetimepicker.hpp"
#include "PostgreSQLUniProvider.hpp"
#include "UniProvider.hpp"
#include <dinkumware\map>
#include <SysUtils.hpp>
#include <DateUtils.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TRESTClient *RESTClient1;
TRESTRequest *RESTRequest1;
TRESTResponse *RESTResponse1;
TPanel *Panel1;
TPanel *Panel2;
TPanel *Panel3;
TAdvSplitter *AdvSplitter1;
TMemo *Memo1;
TAdvSplitter *AdvSplitter2;
TPanel *Panel4;
TMemo *Memo2;
TAdvSplitter *AdvSplitter3;
TMemo *Memo3;
TButton *btnExit;
TAdvOfficePager *AdvOfficePager1;
TAdvEdit *txtNextPageUri;
TAdvOfficePage *AdvOfficePage1;
TAdvStringGrid *grdData;
TAdvOfficePage *AdvOfficePage2;
TAdvStringGrid *grdFields;
TAdvOfficePage *AdvOfficePage3;
TAdvStringGrid *asgData;
TButton *btnMessages;
TUniConnection *ucTwilioDB;
TUniQuery *uqMessages;
TwwDBDateTimePicker *dtpStartDate;
TwwDBDateTimePicker *dtpEndDate;
TwwDBComboBox *dbcbYear;
TLabel *Label2;
TAdvEdit *edtPageSize;
TLabel *Label1;
TLabel *Label3;
TLabel *Label4;
TLabel *Label5;
TwwDBComboBox *dbcbMonth;
TLabel *Label6;
TButton *btnNextPage;
TCheckBox *cbSaveToDB;
TPostgreSQLUniProvider *PostgreSQLUniProvider1;
TMemoField *uqMessagessid;
TMemoField *uqMessagesaccount_sid;
TMemoField *uqMessagesapi_version;
TMemoField *uqMessagesbody;
TDateTimeField *uqMessagesdate_created;
TDateTimeField *uqMessagesdate_sent;
TDateTimeField *uqMessagesdate_updated;
TMemoField *uqMessagesdirection;
TIntegerField *uqMessageserror_code;
TMemoField *uqMessageserror_message;
TMemoField *uqMessagesfrom_number;
TMemoField *uqMessagesmessaging_service_sid;
TIntegerField *uqMessagesnum_media;
TIntegerField *uqMessagesnum_segments;
TFloatField *uqMessagesprice;
TMemoField *uqMessagesprice_unit;
TMemoField *uqMessagesstatus;
TMemoField *uqMessagesto_number;
TMemoField *uqMessagesuri;
void __fastcall btnExitClick(TObject *Sender);
void __fastcall btnMessagesClick(TObject *Sender);
void __fastcall dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select);
void __fastcall dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select);
void __fastcall btnNextPageClick(TObject *Sender);
private: // User declarations
String accountSid;
String authHeader;
TStringList *fieldsList;
int pagesLoaded;
void TForm1::SaveMessagesToDB(TJSONArray* jaMessages);
void GetFieldsFromJsonArray(TJSONArray* jaData);
void LoadJsonArray(TJSONArray* jaData, String detail);
void SetDatePickersFromMonthYear();
void AppendJsonArray(TJSONArray* jaData);
String TForm1::BuildMessageRequestURL();
public: // User declarations
__fastcall TForm1(TComponent* Owner);
TDateTime ParseTwilioDateTime(const UnicodeString &dateStr);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
dev/fDocEntryFind.cpp 0 → 100644
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "fDocEntryFind.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvDateTimePicker"
#pragma link "AdvEdit"
#pragma link "AdvGlowButton"
#pragma link "AdvGrid"
#pragma link "AdvPanel"
#pragma link "AdvSmoothPanel"
#pragma link "AdvToolBar"
#pragma link "BaseGrid"
#pragma link "DBAdvGrid"
#pragma link "AdvDBDateTimePicker"
#pragma link "DBAccess"
#pragma link "MemDS"
#pragma link "Uni"
#pragma link "AdvEdBtn"
#pragma link "PlannerDatePicker"
#pragma link "AdvPageControl"
#pragma link "AdvOfficeButtons"
#pragma link "AdvObj"
#pragma link "AdvUtil"
#pragma link "vcl.Wwdbcomb"
#pragma link "vcl.Wwdbedit"
#pragma link "vcl.Wwdotdot"
#pragma link "vcl.wwdbdatetimepicker"
#pragma resource "*.dfm"
TfrmDocEntryFind *frmDocEntryFind;
//---------------------------------------------------------------------------
__fastcall TfrmDocEntryFind::TfrmDocEntryFind(TComponent* Owner)
: TForm(Owner)
{
TDateTime dtDate = Date();
unsigned short year, month, day;
dtDate.DecodeDate(&year, &month, &day);
for( int i = 0; i < 12; i++ )
dbcbYear->Items->Add( year - i );
dbcbYear->ItemIndex = 0;
}
//---------------------------------------------------------------------------
void TfrmDocEntryFind::FindDocuments()
{
String whereStr;
whereStr = "";
if( !dtpDocDate->Text.IsEmpty() && !dtpDocDate2->Text.IsEmpty() )
whereStr = "d.doc_date between '" + dtpDocDate->Text + "' and '" + dtpDocDate2->Text + "' and ";
else if( !dtpDocDate->Text.IsEmpty() )
whereStr = "d.doc_date = '" + dtpDocDate->Text + "' and ";
}
//---------------------------------------------------------------------------
void __fastcall TfrmDocEntryFind::dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select)
{
SetDocumentDates();
}
//---------------------------------------------------------------------------
void __fastcall TfrmDocEntryFind::dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select)
{
SetDocumentDates();
}
//---------------------------------------------------------------------------
void TfrmDocEntryFind::SetDocumentDates()
{
int year = 0;
int month = 0;
TDateTime startDate;
TDateTime endDate;
if( !dbcbYear->Value.IsEmpty() )
year = StrToInt( dbcbYear->Value );
if( !dbcbMonth->Value.IsEmpty() )
month = StrToInt( dbcbMonth->Value );
if( month > 0 && year > 0 ){
startDate = StartOfAMonth( year, month );
endDate = EndOfAMonth( year, month );
dtpDocDate->Date = startDate;
dtpDocDate2->Date = endDate;
}
else if (year > 0){
startDate = StartOfAMonth( year, 1 );
endDate = EndOfAMonth( year, 12 );
dtpDocDate->Date = startDate;
dtpDocDate2->Date = endDate;
}
}
//---------------------------------------------------------------------------
dev/fDocEntryFind.h 0 → 100644
//---------------------------------------------------------------------------
#ifndef fDocEntryFindH
#define fDocEntryFindH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "AdvDateTimePicker.hpp"
#include "AdvEdit.hpp"
#include "AdvGlowButton.hpp"
#include "AdvGrid.hpp"
#include "AdvPanel.hpp"
#include "AdvSmoothPanel.hpp"
#include "AdvToolBar.hpp"
#include "BaseGrid.hpp"
#include "DBAdvGrid.hpp"
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include <Grids.hpp>
#include "AdvDBDateTimePicker.hpp"
#include "DBAccess.hpp"
#include "MemDS.hpp"
#include "Uni.hpp"
#include <DB.hpp>
#include "AdvEdBtn.hpp"
#include "PlannerDatePicker.hpp"
#include "AdvPageControl.hpp"
#include "AdvOfficeButtons.hpp"
#include "AdvObj.hpp"
#include "vcl.wwdblook.hpp"
#include <Vcl.Dialogs.hpp>
#include "AdvUtil.hpp"
#include "vcl.Wwdbcomb.hpp"
#include "vcl.Wwdbedit.hpp"
#include "vcl.Wwdotdot.hpp"
#include <Vcl.Mask.hpp>
#include "vcl.wwdbdatetimepicker.hpp"
//---------------------------------------------------------------------------
class TfrmDocEntryFind : public TForm
{
__published: // IDE-managed Components
TAdvPanel *pnlMain;
TUniQuery *uqDocFind;
TDataSource *dsDocFind;
TIntegerField *uqDocFindDOC_ID;
TDateField *uqDocFindDOC_DATE;
TFloatField *uqDocFindAMOUNT;
TStringField *uqDocFindDAccountFrom;
TStringField *uqDocFindDOC_DESC;
TIntegerField *uqDocFindACCOUNT_FROM;
TIntegerField *uqDocFindACCOUNT;
TStringField *uqDocFindDAccount;
TStringField *uqDocFindDDocType;
TIntegerField *uqDocFindDOC_TYPE;
TStringField *uqDocFindREF_NUM;
TFloatField *uqDocFindDUE_AMOUNT;
TDateField *uqDocFindDUE_DATE;
TAdvPanel *AdvPanel1;
TAdvGlowButton *btnOk;
TAdvGlowButton *btnCancel;
TAdvEdit *txtRecCount;
TAdvGlowButton *AdvGlowButton1;
TLabel *Label1;
TwwDBDateTimePicker *dtpDocDate;
TLabel *Label2;
TwwDBDateTimePicker *dtpDocDate2;
TwwDBComboBox *dbcbMonth;
TwwDBComboBox *dbcbYear;
TUniQuery *uqMisc;
TDBAdvGrid *dbgrdDocData;
void __fastcall dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select);
void __fastcall dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select);
private: // User declarations
public: // User declarations
String sqlStr;
__fastcall TfrmDocEntryFind(TComponent* Owner);
void SetDocumentDates();
void FindDocuments();
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmDocEntryFind *frmDocEntryFind;
//---------------------------------------------------------------------------
#endif
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment