Histórico da Página

...

#INCLUDE "Protheus.ch"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"

Static __COMPAUT := Nil

User Function CMPAUTOMA()
	Local lRet := .F.
	Local cQry := ""
	Local aTipos := {"NF ", "PA ", "NDF"}
	Local cTblTmp := ""
	Local aNF := {}
	Local aPA_NDF := {}
	Local aContabil := {}
	Local bBlock := Nil
	Local aEstorno := {}
	Local nSldComp := 0
	Local nTaxaPA := 0
	Local nTaxaNF := 0
	Local nHdl := 0
	Local nOperacao := 0

	If __COMPAUT == Nil

		cQry := "SELECT E2_TIPO TIPO, R_E_C_N_O_ R_E_C_N_O FROM " + RetSqlName("SE2") + " "
		cQry += "WHERE E2_SALDO > 0 AND E2_TIPO IN (?) "
		cQry += "ORDER BY E2_TIPO" 
		cQry := ChangeQuery(cQry)
	__COMPAUT := FWPreparedStatement():New(cQry)
	EndIf

	__COMPAUT:SetIn(1, aTipos)
	cQry := __COMPAUT:GetFixQuery()
	cTblTmp := MpSysOpenQuery(cQry)

	While (cTblTmp)->(!Eof())
		If (cTblTmp)->TIPO $ MVPAGANT+"|"+MV_CPNEG
			Aadd(aPA_NDF, (cTblTmp)->R_E_C_N_O) 
		Else
			Aadd(aNF, (cTblTmp)->R_E_C_N_O)
		EndIf 

		(cTblTmp)->(DbSkip()) 
		lRet := .T.
	EndDo 

	(cTblTmp)->(DbCloseArea())
	cTblTmp := ""

	If lRet
		Pergunte("AFI340", .F.)
		lContabiliza := MV_PAR11 == 1
		lAglutina := MV_PAR08 == 1
		lDigita := MV_PAR09 == 1

		lRet := FinCmpAut(aNF, aPA_NDF, aContabil, bBlock, aEstorno, nSldComp, dDatabase, nTaxaPA ,nTaxaNF, nHdl, nOperacao)

		If lRet

			Alert("Compensation successful")

		Else

			Alert("An error occurred in the compensation process")

		EndIf

	EndIf
	
Return

03. OPERATIONS

• Clear

Use this operation to clear bills payable: 

 - Clearing bills from a supplier/store with advances from the same supplier/store

 - Clearing bills from a given supplier with advances from the same supplier regardless of the bill receivable store

 - Clear a bill from a given supplier with advances from several suppliers, in which case a supplier range or all suppliers can be established. Then, the bill can be cleared with any advance bill from the same supplier pending in the bill file, irrespective of the supplier for this bill.

...

• Delete

Operation to delete the transaction generated by the clearing

• Reversal 

Operation that allows reversing the transaction generated by clearing, thus generating its counterpart.

• Caption

It displays the caption chart and meanings related to bill payable status.

Image RemovedImage Added

• Search

Search for the bill in the accounts payable file, having it placed and highlighted in the browser.

• View

Operation to view the bill selected and check its balance and value.

04. PARAMETERS APPLIED

List of parameters applied to FINA340 and its processing Âncoracomposition-deck-Parâmetroscomposition-deck-Parâmetros

05. ACCOUNTING

The booking of processes applied to an accounts payable clearing via Financials module is done through the standard entries below:

...

SE

...

Taxable Event

...

ON

...

OFF (CTBAFIN)

...

589

...

Cancellation of clearing of accounts payable bills

...

X

...

X

...

597

...

Clearing of accounts payable 

...

X

...

X

...

05. ACCOUNTING

The booking of processes applied to an accounts payable clearing via Financials module is done through the standard entries below:

Booking Variables

User function HIST597()
    Local aSaveSE5 := SE5->(GetArea())
    Local aSaveSE2 := SE2->(GetArea())
    Local xRet := Nil

    If REGVALOR <> 0
        SE2->(dbGoto(REGVALOR))
        xRet:= "TESTE TIPO: "+ SE2->E2_TIPO + " RECNO: "+ ALLTRIM(STR(SE2->(RECNO())))
    Else
        xRet:= "TESTE TIPO: "+ SE5->E5_TIPO + " TIPODOC: "+SE5->E5_TIPODOC + " RECNO: "+ ALLTRIM(STR(SE5->(RECNO())))
    Endif

    RestArea(aSaveSE2)
    RestArea(aSaveSE5)
Return(xRet)

In the other cases, the booking remains unchanged, as documented belowSee Also:

Booking Variables FINA340of CR/CP Clearings

06. TABLES

• SE2 - Accounts Payable Register 
• SE5 - Checks Register 
• SED - Natures Register
• SA2 - Suppliers Register
• FK2 - Postings Payable
• FK3 - Calculated Taxes
• FK4 - Withheld Taxes
• FK5 - Bank Transactions
• FK6 - Accessory Values
• FK7 - Auxiliary Table  
• FKA - Transaction Tracking

07. ENTRY POINTS

08. OTHER CLEARING RULES

...

Deck of Cards
id Rules effectType fade
Card id 1 label Indexation effectType fade Rules for generation of indexation in accounts payable clearing process: Clearing of bills with equal contracted rates - the indexation value is generated only if the transaction rate is changed on the clearing screen. In this case, indexation is linked to the bill selected when the clearing starts (not to those bills selected later) and the value is based on the difference between the value with the rate contracted and the value that uses the new rate entered (the daily rate is not used); Clearing of bills without contracted rates - the indexation value is generated for each bill involved in the clearing process, if there is a difference between the rate value on the day of bill addition and the rate value on the day the clearing is posted. Note: If there is a change in the value of the rate at time of clearing, this value is considered only for the bill selected and its indexation refers to the difference between the value with the new rate (entered onscreen) and the value with the rate on the day of addition. For all other bills involved in this clearing process, the rate on the day of clearing and the rate on the day of addition are used.     Clearing of bills with different contracted rates - by default, the system does not allow this type of clearing. However, you can enable it through parameter  MV_CMTXCON (

...

https://tdn.totvs.com/x/7ZVWFw

...

). In this case, indexation is always generated attached to the invoice. The value refers to the difference of invoice value and cleared payment value. Rate entered in clearing - by default, the system assumes the rate entered in clearing only for the starting bill (selected). However, you can set the use of the rate entered for the entire process through parameter MV_TXPRCON (parameter MV_TXPRCON). In this case, the rate entered is used not only for the starting bill by also for those selected, in accordance with the currency. If you use the rate by process, the indexation occurs through bill rate variation (Day rate or Contracted rate) with the rate entered. If no rate is entered, the system follows the default behavior. Aviso title Important To generate the indexation, enable parameter MV_CALCCM.

Deck of Cards

...

id

...

DIC -

...

Cleared Taxes Difference effectType fade

Card id 3 label

...

Accumulated DIC effectType fade Aviso title Attention The process described refers only to the net scenario: MV_PABRUTO = 2 (Net) MV_COMPCP = .T. MV_BP10925 =

...

2 MV_PAPRIME = 1 For gross scenario, clearings occur without generation of accumulated DIC. Accumulated DIC When clearing a NF that has withholding in posting with multiple advance payments not configured for withholding, a single bill of type DIC is generated for the last cleared PA. The DIC will have the accumulated value of the difference of calculated taxes of the other PAs. Example: Clearing between one 3 PAs without withholding X 1 NF with withholding NF of BRL 1,000.00 With PCC in posting (4.65%) = BRL 46.50 Total Net Value = BRL 1,000.00 (value of NF) - BRL 46.50 (taxes in posting) = BRL 953.50 NF balance = BRL 1,000.00  PA 1 of BRL 300.00 Without taxes Net Value = BRL 300.00 PA balance = BRL 300.00 PA 2 of BRL 300.00 Without taxes Net Value = BRL 300.00 PA balance = BRL 300.00 PA 3 of BRL 300.00 Without taxes Net Value = BRL 300.00 PA balance = BRL 300.00 The routine performs the clearing calculation internally in three parts, as if it was clearing each PA separately, generating the DIC only in the last clearing.   1st clearing - Clear NF x PA: NF balance = BRL 1,000.00 (NF balance) - BRL 13.95 (PCC generated in clearing) - BRL 286.05 (cleared value) = 700.00 Transaction: BRL 300.00 Generated the taxes configured in posting, in example, PCC in value of BRL 13.95 with calculation base of BRL 300.00 PA balance = 300.00 (PA balance) - 300.00 (cleared value) = 0.00 Value related to Difference of calculated tax: 13.95

...

*Important

...

As previously mentioned, the DIC is not generated at this time. 2nd clearing - Clear NF x PA: NF balance = BRL 700.00 (NF balance) - BRL 13.95 (PCC generated in clearing) - BRL 286.05 (cleared value) = 400.00 Transaction: BRL 300.00 Generated the taxes configured in posting, in example, PCC in value of BRL 13.95 with calculation base of BRL 300.00 PA balance = 300.00 (PA balance) - 300.00 (cleared value) = 0.00 Value related to difference of calculated tax: 13.95 *Important As previously mentioned, the DIC is not generated at this time. 3rd clearing - Clear NF x PA: NF balance = BRL 400.00 (NF balance) - BRL 13.95 (PCC generated in clearing) - BRL 286.05 (cleared value) = 100.00 Transaction: BRL 300.00 Generated the taxes configured in posting, in example, PCC in value of BRL 13.95 with calculation base of BRL 300.00 PA balance = 300.00 (PA balance) - 300.00 (cleared value) = 0.00 Value related to Difference of calculated tax: 13.95 Aviso title Important The DIC is only generated at this time. In accumulated value of 41.85. Generated DIC value = 13.95 (DIC calculated in 1st clearing) + 13.95 (DIC calculated in 2nd clearing) + 13.95 (DIC calculated in 3rd clearing) = 41.85 Card id 2 label Total clearing without DIC generation effectType fade Aviso title Attention The process described refers only to the net scenario: MV_PABRUTO = 2 (Net) MV_COMPCP = .T. MV_BP10925 =

...

2 MV_PAPRIME = 1 Total clearing without DIC generation When clearing a NF that has withholding with PAs without withholding, in which the net value of NF is the total of PAs, the routine does not generate DIC. Example: Total clearing between one 2 PAs without tax X NF with taxes NF of BRL 1,000.00 With PCC in Posting (4.65%) = BRL 46.50 Total Net Value = BRL 1,000.00 (value of NF) - BRL 46.50 (taxes in posting) = BRL 953.50 NF balance = BRL 1,000.00  PA of BRL 500.00 Without taxes Net Value = BRL 500.00 PA balance = BRL 500.00 PA of BRL 453.50 Without taxes Net Value = BRL 453.50 PA balance = BRL 453.50 Clear 1 NF x 2 PAs Notice the net value of invoice is equal to the sum of PAs, thus no additional value was paid to the supplier: The withholdings set to be calculated in posting will be generated. In the example, PCC in the value of BRL 23.25 related to the first clearing. The withholdings set to be calculated in posting will be generated. In the example, PCC in the value of BRL 23.25 related to the second clearing. NF balance = BRL 1,000.00 (NF balance) - BRL 23.25 (PCC Generated in 1st clearing) - BRL 23.25 (PCC Generated in 2nd clearing) - BRL 500,00 (cleared value of 1st PA) - BRL 453.50 (cleared value of 2nd PA) 1st PA balance = 500.00 (PA balance) - 500.00 (cleared value) = 0.00 PA balance = 453.50 (PA balance) - 453.00 (cleared value) = 0.00 We have no DIC generation Example: Reversal of 2nd clearing (2nd PA). When reversing 2nd clearing (2nd PA): The withholdings generated will be deleted upon clearing. In the example, PCC in the value of BRL 23.25 NF balance = 500.00 PA balance = 453.50 The system evaluates the clearings previous to the last one reversed and identifies whether a new DIC generation is needed. Generated DIC value = 23.25 (DIC calculated in 1st clearing) = 23.25 The DIC bill generated refers to the last clearing. In the above example it would be the 1st PA in the value of 500. Aviso title Attention For clearings done individually (1 PA x 1 NF), the system generates an independent DIC, that is, one DIC for each clearing. No accumulated DIC will be

...

generated Card id 1 label DIC Booking effectType fade DIC Booking You can book the addition of a DIC type bill through LP 510 (Accounts Payable - Addition of Bills). You can book the deletion of a DIC type bill through LP 515 (Accounts Payable - Deletion of Bills). Note: To book the LPs 510 and 515, the question: Book Online of routine Accounts payable (FINA050) must be set to Yes. Card id 1 label DIC generation at time of reversal effectType fade Aviso title Attention The process described refers only to the net scenario: MV_PABRUTO = 2 (Net) MV_COMPCP = .T. MV_BP10925 =

...

2 MV_PAPRIME = 1 Process of DIC generation at time of reversal For clearances with more than one bill, you can only revert/delete by clearing order. From the last clearing to the first, any different order of this routine will display a warning blocking the process. When you reverse/delete the last clearing, the routine also deletes the DIC-type bill. After this process, a new DIC related to previous clearings is generated based on the last cleared PA if needed. Example: Reversal of 3rd clearing NF balance = BRL 100.00 (NF balance) + BRL 13.95 (PCC generated in clearing) + BRL 286.05 (compensated value) = 400.00 Transaction: BRL 300.00 Withholdings generated by clearing will be deleted. In example, PCC in value of BRL 13.95 with calculation base of BRL 300.00 Deletion of DIC generated by clearing with value of BRL 41.85 (accumulated DIC). PA balance = 0.00 (PA balance) + 300.00 (cleared value) = 300.00 The system evaluates the clearings previous to the last one reversed and identifies whether a new DIC generation is needed. Generated DIC value = 13.95 (DIC calculated in 1st clearing) + 13.95 (DIC calculated in 2nd clearing) = 27.90 At this point, a new DIC-type bill is generated related to the first and second clearing. Example: Reversal of 2nd clearing NF balance = BRL 400.00 (NF balance) + BRL 13.95 (PCC generated in clearing) + BRL 286.05 (compensated value) = 700.00 Transaction: BRL 300.00 Withholdings generated by clearing will be deleted. In example, PCC in value of BRL 13.95 with calculation base of BRL 300.00 Deletion of DIC generated by reversal with value of BRL 27.90 (accumulated DIC) PA balance = 0.00 (PA balance) + 300.00 (cleared value) = 300.00 The system evaluates the clearings previous to the last one reversed and identifies whether a new DIC generation is needed. Generated DIC value = 13.95 (DIC calculated in 1st clearing) = 13.95 At this point, a new DIC bill related to the last clearing is generated. In the example above, it would be the 1st PA with the

...

value of 300.

09. MORE INFORMATION

...

...

...

...

...

...