require_once DOL_DOCUMENT_ROOT . '/core/lib/admin.lib.php';
require_once DOL_DOCUMENT_ROOT . '/core/lib/fourn.lib.php';
require_once DOL_DOCUMENT_ROOT . '/fourn/class/fournisseur.class.php';
require_once DOL_DOCUMENT_ROOT . '/fourn/class/fournisseur.commande.class.php';
$langs->load("admin");
$langs->load("other");
$langs->load("orders");
if (!$user->admin) {
accessforbidden();
}
$type = GETPOST('type', 'alpha');
$value = GETPOST('value', 'alpha');
$label = GETPOST('label', 'alpha');
$action = GETPOST('action', 'alpha');
$specimenthirdparty = new Societe($db);
$specimenthirdparty->initAsSpecimen();
/*
* Actions
*/
if ($action == 'updateMask') {
$maskconstorder = GETPOST('maskconstorder', 'alpha');
$maskvalue = GETPOST('maskorder', 'alpha');
if ($maskconstorder) {
$res = dolibarr_set_const($db, $maskconstorder, $maskvalue, 'chaine', 0, '', $conf->entity);
}
if (!$res > 0) {
$error++;
}
if (!$error) {
setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
} else {
/**
* testSocieteGetFullAddress
*
* @return int $id Id of company
*/
public function testSocieteGetFullAddress()
{
global $conf,$user,$langs,$db;
$conf=$this->savconf;
$user=$this->savuser;
$langs=$this->savlangs;
$db=$this->savdb;
$localobjectadd=new Societe($db);
$localobjectadd->initAsSpecimen();
// France
unset($localobjectadd->country_code);
$localobjectadd->country_id=1;
$localobjectadd->name='New name';
$localobjectadd->address='New address';
$localobjectadd->zip='New zip';
$localobjectadd->town='New town';
$result=$localobjectadd->getFullAddress(1);
print __METHOD__." id=".$localobjectadd->id." result=".$result."\n";
$this->assertContains("New address\nNew zip New town\nFrance", $result);
// Belgium
unset($localobjectadd->country_code);
$localobjectadd->country_id=2;
$localobjectadd->name='New name';
$localobjectadd->address='New address';
$localobjectadd->zip='New zip';
$localobjectadd->town='New town';
$result=$localobjectadd->getFullAddress(1);
print __METHOD__." id=".$localobjectadd->id." result=".$result."\n";
$this->assertContains("New address\nNew zip New town\nBelgium", $result);
// Switzerland
unset($localobjectadd->country_code);
$localobjectadd->country_id=6;
$localobjectadd->name='New name';
$localobjectadd->address='New address';
$localobjectadd->zip='New zip';
$localobjectadd->town='New town';
$result=$localobjectadd->getFullAddress(1);
print __METHOD__." id=".$localobjectadd->id." result=".$result."\n";
$this->assertContains("New address\nNew zip New town\nSwitzerland", $result);
// USA
unset($localobjectadd->country_code);
$localobjectadd->country_id=11;
$localobjectadd->name='New name';
$localobjectadd->address='New address';
$localobjectadd->zip='New zip';
$localobjectadd->town='New town';
$result=$localobjectadd->getFullAddress(1);
print __METHOD__." id=".$localobjectadd->id." result=".$result."\n";
$this->assertContains("New address\nNew zip New town\nUnited States", $result);
return $localobjectadd->id;
}
/**
* testFactureMercure
*
* @return int
*/
public function testFactureMercure()
{
global $conf, $user, $langs, $db, $mysoc;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
require_once dirname(__FILE__) . '/../../htdocs/compta/facture/class/facture.class.php';
require_once dirname(__FILE__) . '/../../htdocs/core/modules/facture/mod_facture_mercure.php';
// First we try with a simple mask, with no reset
// and we test counter is still increase second year.
$conf->global->FACTURE_ADDON = 'mercure';
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '{yyyy}-{0000}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{yyyy}-{0000}';
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1915);
// we use year 1915 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
// create invoice by forcing ref
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('1915-0001', $result);
// counter must start to 1
$result = $localobject->is_erasable();
print __METHOD__ . " is_erasable=" . $result . "\n";
$this->assertEquals(1, $result, 'Test for {yyyy}-{0000}, 1st invoice');
// Can be deleted
$localobject2 = new Facture($this->savdb);
$localobject2->initAsSpecimen();
$localobject2->date = dol_mktime(12, 0, 0, 1, 1, 1916);
// we use following year for second invoice (there is no reset into mask)
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject2, 'last');
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('1915-0001', $result);
$result = $numbering->getNextValue($mysoc, $localobject2);
$result2 = $localobject2->create($user, 1);
$result3 = $localobject2->validate($user, $result);
// create invoice by forcing ref
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('1916-0002', $result);
// counter must be now 2 (not reseted)
$result = $localobject2->is_erasable();
print __METHOD__ . " is_erasable=" . $result . "\n";
$this->assertEquals(1, $result);
// Can be deleted
$result = $localobject->is_erasable();
print __METHOD__ . " is_erasable=" . $result . "\n";
$this->assertEquals(0, $result, 'Test for {yyyy}-{0000} that is_erasable is 0 for 1st invoice');
// 1 can no more be deleted (2 is more recent)
// Now we try with a reset
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '{yyyy}-{0000@1}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{yyyy}-{0000@1}';
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1910);
// we use year 1910 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('1910-0001', $result, 'Test for {yyyy}-{0000@1} 1st invoice');
// counter must start to 1
$localobject2 = new Facture($this->savdb);
$localobject2->initAsSpecimen();
$localobject2->date = dol_mktime(12, 0, 0, 1, 1, 1910);
// we use same year for second invoice (and there is a reset required)
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject2);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('1910-0002', $result, 'Test for {yyyy}-{0000@1} 2nd invoice, same day');
// counter must be now 2
$localobject3 = new Facture($this->savdb);
$localobject3->initAsSpecimen();
$localobject3->date = dol_mktime(12, 0, 0, 1, 1, 1911);
// we use next year for third invoice (and there is a reset required)
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject3);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('1911-0001', $result, 'Test for {yyyy}-{0000@1} 3nd invoice, same day');
// counter must be now 1
// Same but we add month after year
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '{yyyy}{mm}-{0000@1}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{yyyy}{mm}-{0000@1}';
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1920);
// we use year 1920 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('192001-0001', $result, 'Test for {yyyy}{mm}-{0000@1} 1st invoice');
// counter must start to 1
$result = $localobject->is_erasable();
print __METHOD__ . " is_erasable=" . $result . "\n";
$this->assertEquals(1, $result);
// Can be deleted
$localobject2 = new Facture($this->savdb);
$localobject2->initAsSpecimen();
$localobject2->date = dol_mktime(12, 0, 0, 1, 1, 1921);
// we use following year for second invoice (and there is a reset required)
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject2);
$result2 = $localobject2->create($user, 1);
$result3 = $localobject2->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('192101-0001', $result);
// counter must be reseted to 1
$result = $localobject2->is_erasable();
print __METHOD__ . " is_erasable=" . $result . "\n";
$this->assertEquals(1, $result);
// Can be deleted
$result = $localobject->is_erasable();
print __METHOD__ . " is_erasable=" . $result . "\n";
$this->assertEquals(1, $result);
// Case 1 can be deleted (because there was a reset for case 2)
// Same but we add month before year and use a year on 2 digits
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '[mm}{yy}-{0000@1}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{mm}{yy}-{0000@1}';
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1925);
// we use year 1925 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('0125-0001', $result, 'Test for {mm}{yy}-{0000@1} 1st invoice');
// counter must start to 1
$result = $localobject->is_erasable();
// This call get getNextNumRef with param 'last'
print __METHOD__ . " is_erasable=" . $result . "\n";
$this->assertEquals(1, $result);
// Can be deleted
$localobject2 = new Facture($this->savdb);
$localobject2->initAsSpecimen();
$localobject2->date = dol_mktime(12, 0, 0, 1, 1, 1925);
// we use same year 1925 for second invoice (and there is a reset required)
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject2);
$result2 = $localobject2->create($user, 1);
$result3 = $localobject2->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('0125-0002', $result, 'Test for {mm}{yy}-{0000@1} 2st invoice');
// counter must be now 2
$result = $localobject2->is_erasable();
print __METHOD__ . " is_erasable=" . $result . "\n";
$this->assertEquals(1, $result);
// Can be deleted
$result = $localobject->is_erasable();
print __METHOD__ . " is_erasable=" . $result . "\n";
$this->assertEquals(0, $result);
// Case 1 can not be deleted (because there is an invoice 2)
$localobject3 = new Facture($this->savdb);
$localobject3->initAsSpecimen();
$localobject3->date = dol_mktime(12, 0, 0, 1, 1, 1926);
// we use following year for third invoice (and there is a reset required)
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject3);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('0126-0001', $result, 'Test for {mm}{yy}-{0000@1} 3rd invoice');
// counter must be now 1
// Try an offset when an invoice already exists
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '{yyyy}{mm}-{0000+9990}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{yyyy}{mm}-{0000+9990}';
$result = $numbering->getNextValue($mysoc, $localobject2);
// Now we try with a different fiscal month (forced by mask)
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '{yyyy}{mm}-{0000@6}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{yyyy}{mm}-{0000@6}';
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1930);
// we use year 1930 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject, 'last');
print __METHOD__ . " result for last=" . $result . "\n";
$this->assertEquals('', $result);
// no existing ref into reset range
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('193001-0001', $result);
// counter must start to 1
$result = $numbering->getNextValue($mysoc, $localobject, 'last');
print __METHOD__ . " result for last=" . $result . "\n";
$this->assertEquals('193001-0001', $result);
// last ref into reset range should be same than last created
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 12, 1, 1930);
// we use same year but fiscal month after
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject, 'last');
print __METHOD__ . " result for last=" . $result . "\n";
$this->assertEquals('', $result);
// last ref into reset range should be ''
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('193012-0001', $result);
// counter must be reset to 1
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1931);
// we use same fiscal year but different year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('193101-0002', $result);
// counter must be 2
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 12, 1, 1931);
// we use different fiscal year but same year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('193112-0001', $result);
// counter must be reset to 1
// Now we try with a different fiscal month (defined by SOCIETE_FISCAL_MONTH_START)
$conf->global->SOCIETE_FISCAL_MONTH_START = 6;
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '{yyyy}{mm}-{0000@0}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{yyyy}{mm}-{0000@0}';
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1940);
// we use year 1940 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('194001-0001', $result);
// counter must start to 1
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 12, 1, 1940);
// we use same year but fiscal month after
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('194012-0001', $result);
// counter must be reset to 1
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1941);
// we use same fiscal year but different year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('194101-0002', $result);
// counter must be 2
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 12, 1, 1941);
// we use different discal year but same year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('194112-0001', $result);
// counter must be reset to 1
// Now we try with a different fiscal month (defined by SOCIETE_FISCAL_MONTH_START) and we always want year of element
$conf->global->SOCIETE_FISCAL_MONTH_START = 6;
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '{yyyy}{mm}-{0000@=}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{yyyy}{mm}-{0000@=}';
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1950);
// we use year 1950 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('195001-0001', $result);
// counter must start to 1
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 12, 1, 1950);
// we use same year but fiscal month after
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('195012-0001', $result);
// counter must be reset to 1
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1951);
// we use same fiscal year but different year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('195101-0002', $result);
// counter must be 2
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 12, 1, 1951);
// we use different discal year but same year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('195112-0001', $result);
// counter must be reset to 1
// Now we try with a different fiscal month (defined by SOCIETE_FISCAL_MONTH_START) and we always want start year
$conf->global->SOCIETE_FISCAL_MONTH_START = 6;
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '{yyyy}{mm}-{0000@-}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{yyyy}{mm}-{0000@-}';
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1960);
// we use year 1960 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('195901-0001', $result);
// counter must start to 1
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 12, 1, 1960);
// we use same year but fiscal month after
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('196012-0001', $result);
// counter must be reset to 1
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1961);
// we use same fiscal year but different year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('196001-0002', $result);
// counter must be 2
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 12, 1, 1961);
// we use different discal year but same year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('196112-0001', $result);
// counter must be reset to 1
// Now we try with a different fiscal month (defined by SOCIETE_FISCAL_MONTH_START) and we always want end year
$conf->global->SOCIETE_FISCAL_MONTH_START = 6;
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '{yyyy}{mm}-{0000@+}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{yyyy}{mm}-{0000@+}';
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1970);
// we use year 1970 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('197001-0001', $result);
// counter must start to 1
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 12, 1, 1970);
// we use same year but fiscal month after
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('197112-0001', $result);
// counter must be reset to 1
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1971);
// we use same fiscal year but different year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('197101-0002', $result);
// counter must be 2
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 12, 1, 1971);
// we use different fiscal year but same year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('197212-0001', $result);
// counter must be reset to 1
// Now we try with a reset every month (@99)
$conf->global->SOCIETE_FISCAL_MONTH_START = 6;
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '{yyyy}{mm}-{0000@99}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{yyyy}{mm}-{0000@99}';
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1980);
// we use year 1980 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('198001-0001', $result);
// counter must start to 1
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1980);
// we use year 1980 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('198001-0002', $result);
// counter must start to 2
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 2, 1, 1980);
// we use year 1980 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('198002-0001', $result);
// counter must start to 1
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1981);
// we use year 1981 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($mysoc, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('198101-0001', $result);
// counter must start to 1
// Test with {t} tag
$conf->global->SOCIETE_FISCAL_MONTH_START = 1;
$conf->global->FACTURE_MERCURE_MASK_CREDIT = '{t}{yyyy}{mm}-{0000}';
$conf->global->FACTURE_MERCURE_MASK_INVOICE = '{t}{yyyy}{mm}-{0000}';
$tmpthirdparty = new Societe($this->savdb);
$tmpthirdparty->initAsSpecimen();
$tmpthirdparty->typent_code = 'TE_ABC';
$localobject = new Facture($this->savdb);
$localobject->initAsSpecimen();
$localobject->date = dol_mktime(12, 0, 0, 1, 1, 1982);
// we use year 1982 to be sure to not have existing invoice for this year
$numbering = new mod_facture_mercure();
$result = $numbering->getNextValue($tmpthirdparty, $localobject);
$result2 = $localobject->create($user, 1);
$result3 = $localobject->validate($user, $result);
print __METHOD__ . " result=" . $result . "\n";
$this->assertEquals('A198201-0001', $result);
// counter must start to 1
return $result;
}
/**
* testAdherentSetThirdPartyId
*
* @param Adherent $localobject Member instance
* @return Adherent
*
* @depends testAdherentSetUserId
* The depends says test is run only if previous is ok
*/
public function testAdherentSetThirdPartyId(Adherent $localobject)
{
global $conf, $user, $langs, $db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
//Create a Third Party
$thirdparty = new Societe($db);
$thirdparty->initAsSpecimen();
$result = $thirdparty->create($user);
print __METHOD__ . " id=" . $localobject->id . " third party id=" . $thirdparty->id . " result=" . $result . "\n";
$this->assertTrue($result > 0);
//Set Third Party ID
$result = $localobject->setThirdPartyId($thirdparty->id);
$this->assertEquals($result, 1);
print __METHOD__ . " id=" . $localobject->id . " result=" . $result . "\n";
//Adherent is updated with new data
$localobject->fetch($localobject->id);
$this->assertEquals($localobject->fk_soc, $thirdparty->id);
print __METHOD__ . " id=" . $localobject->id . " result=" . $result . "\n";
//We remove the third party association
$result = $localobject->setThirdPartyId(0);
$this->assertEquals($result, 1);
//And check if it has been updated
$localobject->fetch($localobject->id);
$this->assertNull($localobject->fk_soc);
//Now we remove the third party
$result = $thirdparty->delete($thirdparty->id, $user);
$this->assertEquals($result, 1);
return $localobject;
}
/**
* testDolFormatAddress
*
* @return void
*/
public function testDolFormatAddress()
{
global $conf, $user, $langs, $db;
$conf = $this->savconf;
$user = $this->savuser;
$langs = $this->savlangs;
$db = $this->savdb;
$object = new Societe($db);
$object->initAsSpecimen();
$object->country_code = 'FR';
$address = dol_format_address($object);
$this->assertEquals("21 jump street\n99999 MyTown", $address);
$object->country_code = 'GB';
$address = dol_format_address($object);
$this->assertEquals("21 jump street\nMyTown, MyState\n99999", $address);
$object->country_code = 'US';
$address = dol_format_address($object);
$this->assertEquals("21 jump street\nMyTown, MyState, 99999", $address);
$object->country_code = 'AU';
$address = dol_format_address($object);
$this->assertEquals("21 jump street\nMyTown, MyState, 99999", $address);
}
/**
*/
public function testSocieteCreate()
{
global $conf,$user,$langs,$db;
$conf=$this->savconf;
$user=$this->savuser;
$langs=$this->savlangs;
$db=$this->savdb;
$localobject=new Societe($this->savdb);
$localobject->initAsSpecimen();
$result=$localobject->create($user);
print __METHOD__." result=".$result."\n";
$this->assertLessThanOrEqual($result, 0);
return $result;
}
