begin
VATIdentNumber2 = '';
ESLIndicator2 = '0';
/* Faktury vydane */
for
select e.DocumentType, e.Eslindicator, e.Localamount, e.Amount, e.Vatidentnumber, e.Documentcount
from Eslreport03(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AESLDateFROM, :AESLDateTO,
:ADIVISIONSWITHCHILDS, :ABUSORDERSWITHCHILDS, :ABUSTRANSACTIONSWITHCHILDS, :ABUSProjectSWITHCHILDS, :AVATCOUNTRY_ID,
:ACREATEDBYSELID, :ACORRECTEDBYSELID, :ACURRENCYSELID, :ACOUNTRYSELID) e
into :DocumentType, :ESLIndicator, :LocalAmount, :Amount, :VATIdentNumber, :DocumentCount
do suspend;
/* Pokladni prijmy */
for
select e.DocumentType, e.Eslindicator, e.Localamount, e.Amount, e.Vatidentnumber, e.Documentcount
from Eslreport05(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AESLDateFROM, :AESLDateTO,
:ADIVISIONSWITHCHILDS, :ABUSORDERSWITHCHILDS, :ABUSTRANSACTIONSWITHCHILDS, :ABUSProjectSWITHCHILDS, :AVATCOUNTRY_ID,
:ACREATEDBYSELID, :ACORRECTEDBYSELID, :ACURRENCYSELID, :ACOUNTRYSELID) e
into :DocumentType, :ESLIndicator, :LocalAmount, :Amount, :VATIdentNumber, :DocumentCount
do suspend;
/* Dobropisy faktur vydanych */
for
select e.DocumentType, e.Eslindicator, e.Localamount, e.Amount, e.Vatidentnumber, e.Documentcount
from Eslreport60(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AESLDateFROM, :AESLDateTO,
:ADIVISIONSWITHCHILDS, :ABUSORDERSWITHCHILDS, :ABUSTRANSACTIONSWITHCHILDS, :ABUSProjectSWITHCHILDS, :AVATCOUNTRY_ID,
:ACREATEDBYSELID, :ACORRECTEDBYSELID, :ACURRENCYSELID, :ACOUNTRYSELID) e
into :DocumentType, :ESLIndicator, :LocalAmount, :Amount, :VATIdentNumber, :DocumentCount
do suspend;
/* Vraceni pokladnich prijmu */
for
select e.DocumentType, e.Eslindicator, e.Localamount, e.Amount, e.Vatidentnumber, e.Documentcount
from Eslreport07(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AESLDateFROM, :AESLDateTO,
:ADIVISIONSWITHCHILDS, :ABUSORDERSWITHCHILDS, :ABUSTRANSACTIONSWITHCHILDS, :ABUSProjectSWITHCHILDS, :AVATCOUNTRY_ID,
:ACREATEDBYSELID, :ACORRECTEDBYSELID, :ACURRENCYSELID, :ACOUNTRYSELID) e
into :DocumentType, :ESLIndicator, :LocalAmount, :Amount, :VATIdentNumber, :DocumentCount
do suspend;
/* Danove zalohove listy vydane */
for
select e.DocumentType, e.Eslindicator, e.Localamount, e.Amount, e.Vatidentnumber, e.Documentcount
from Eslreport62(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AESLDateFROM, :AESLDateTO,
:ADIVISIONSWITHCHILDS, :ABUSORDERSWITHCHILDS, :ABUSTRANSACTIONSWITHCHILDS, :ABUSProjectSWITHCHILDS, :AVATCOUNTRY_ID,
:ACREATEDBYSELID, :ACORRECTEDBYSELID, :ACURRENCYSELID, :ACOUNTRYSELID) e
into :DocumentType, :ESLIndicator, :LocalAmount, :Amount, :VATIdentNumber, :DocumentCount
do suspend;
/* Dobropisy danovych zalohovych listu vydanych */
for
select e.DocumentType, e.Eslindicator, e.Localamount, e.Amount, e.Vatidentnumber, e.Documentcount
from Eslreport63(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AESLDateFROM, :AESLDateTO,
:ADIVISIONSWITHCHILDS, :ABUSORDERSWITHCHILDS, :ABUSTRANSACTIONSWITHCHILDS, :ABUSProjectSWITHCHILDS, :AVATCOUNTRY_ID,
:ACREATEDBYSELID, :ACORRECTEDBYSELID, :ACURRENCYSELID, :ACOUNTRYSELID) e
into :DocumentType, :ESLIndicator, :LocalAmount, :Amount, :VATIdentNumber, :DocumentCount
do suspend;
/* Prevodky vydej CallOfStock */
LocalAmount = 0;
Amount = 0;
DocumentCount = 0;
for
select e.DocumentType, e.VIESKind, e.Vatidentnumber, e.VIESKind2, e.Vatidentnumber2
from ESLReport22(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AESLDateFROM, :AESLDateTO,
:ADIVISIONSWITHCHILDS, :ABUSORDERSWITHCHILDS, :ABUSTRANSACTIONSWITHCHILDS, :ABUSProjectSWITHCHILDS, :AVATCOUNTRY_ID,
:ACREATEDBYSELID, :ACORRECTEDBYSELID, :ACURRENCYSELID, :ACOUNTRYSELID) e
into :DocumentType, :ESLIndicator, :VATIdentNumber, :ESLIndicator2, :VATIdentNumber2
do suspend;
end;