This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// uses Variants | |
function VarTypeToStr(Value: Variant): String; | |
begin | |
Result := VarTypeAsText(VarType(Value)); | |
end; | |
//or | |
function VarTypeToStr(Value: Variant): String; | |
var |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
//With Band | |
procedure Page1OnBeforePrint(Sender: TfrxComponent); | |
begin | |
DBXQuery1.Master := MasterData1.DataSet; | |
end; | |
//Direct DataSet | |
procedure Page1OnBeforePrint(Sender: TfrxComponent); | |
begin | |
DBXQuery1.Master := Report.GetDataSet('Customers'); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function VarIsEmptyOrNull(const Value: Variant): Boolean; | |
begin | |
Result := VarIsClear(Value) | |
or VarIsEmpty(Value) | |
or VarIsNull(Value) | |
or (VarCompareValue(Value, Unassigned) = vrEqual); | |
if (not Result) and VarIsStr(Value) then | |
Result := Value = EmptyStr; | |
end; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
boss version | |
boss upgrade | |
boss init | |
boss init --q | |
(Admin required) | |
boss login | |
Host: | |
User: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Acre efd@ac.gov.br | |
Alagoas sped-efd@sefaz.al.gov.br | |
Amapá sped@sefaz.ap.gov.br | |
Amazonas efd@sefaz.am.gov.br | |
Bahia faleconosco@sefaz.ba.gov.br | |
Ceará sped@sefaz.ce.gov.br | |
Espírito Santo spedfiscal@sefaz.es.gov.br | |
Goiás sped-fiscal@sefaz.go.gov.br | |
Mato Grosso efd@sefaz.mt.gov.br | |
Mato Grosso do Sul efd@fazenda.ms.gov.br |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
//Faulty current state example: No Tag "DesignClass" | |
<DCCReference Include="U_NewFrame\U_NewFrame.pas"> | |
<Form>NewFrame</Form> | |
</DCCReference> | |
//Example with add tag correction | |
<DCCReference Include="U_NewFrame\U_NewFrame.pas"> | |
<Form>NewFrame</Form> | |
<FormType>dfm</FormType> | |
<DesignClass>TFrame</DesignClass> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function FileInUse(AFileName: String): Boolean; | |
var | |
HFileRes : HFILE; | |
begin | |
Result := false; | |
if not FileExists(fName) then | |
Exit; | |
HFileRes := CreateFile(PChar(AFileName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0); | |
Result := (HFileRes = INVALID_HANDLE_VALUE); | |
if not Result then |