Procedura-ESLReportByVATDate

Parametry:

NázevPopisDatový typ
AFirmSelIDChar(10)
ADivisionsSelIDChar(10)
ABusOrdersSelIDChar(10)
ABusTransactionsSelIDChar(10)
ABusProjectsSelIDChar(10)
AVATDateFromFloat(0, 0)
AVATDateToFloat(0, 0)
ADivisionsWithChildsChar(1)
ABusOrdersWithChildsChar(1)
ABusTransactionsWithChildsChar(1)
ABusProjectsWithChildsChar(1)
AVATCountry_IDChar(10)
ACreatedBySelIDChar(10)
ACorrectedBySelIDChar(10)
ACurrencySelIDChar(10)
ACountrySelIDChar(10)

Návratové hodnoty:

NázevPopisDatový typ
DocumentTypeVarChar(2)
ESLIndicatorVarChar(1)
LocalAmountNumeric(13, 2)
AmountNumeric(13, 2)
VATIdentNumberVarChar(20)
DocumentCountInteger
ESLIndicator2VarChar(1)
VATIdentNumber2VarChar(20)

Závislosti:

NázevPopisTřída
ESLReportByVATDate03Procedures
ESLReportByVATDate05Procedures
ESLReportByVATDate07Procedures
ESLReportByVATDate60Procedures
ESLReportByVATDate62Procedures
ESLReportByVATDate63Procedures

Tělo:

begin
  VATIdentNumber2 = '';
  ESLIndicator2 = '0';
  /* Faktury vydane */
  for
    select e.DocumentType, e.Eslindicator, e.Localamount, e.Amount, e.Vatidentnumber, e.Documentcount
    from ESLReportByVATDate03(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AVATDateFROM, :AVATDateTO,
                     :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 ESLReportByVATDate05(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AVATDateFROM, :AVATDateTO,
                     :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 ESLReportByVATDate60(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AVATDateFROM, :AVATDateTO,
                     :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 ESLReportByVATDate07(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AVATDateFROM, :AVATDateTO,
                     :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 ESLReportByVATDate62(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AVATDateFROM, :AVATDateTO,
                     :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 ESLReportByVATDate63(:AFIRMSELID, :ADIVISIONSSELID, :ABUSORDERSSELID, :ABUSTRANSACTIONSSELID, :ABUSProjectSSELID, :AVATDateFROM, :AVATDateTO,
                     :ADIVISIONSWITHCHILDS, :ABUSORDERSWITHCHILDS, :ABUSTRANSACTIONSWITHCHILDS, :ABUSProjectSWITHCHILDS, :AVATCOUNTRY_ID,
                    :ACREATEDBYSELID, :ACORRECTEDBYSELID, :ACURRENCYSELID, :ACOUNTRYSELID) e
    into :DocumentType, :ESLIndicator, :LocalAmount, :Amount, :VATIdentNumber, :DocumentCount
    do suspend;
end;

Generated by ABRA Software a.s. 27.10.2021 16:34:13