Páginas filhas
  • TUZSTA_DT_Ponto_de_entrada_F120CUST

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

TUZSTA_DT_Ponto_de_entrada_F120CUST

Implemented entry point that handles F120/F130 records

Requirement Characteristics

Product Line:

Microsiga Protheus

Industry:

Services

Module:

SIGAATF - Fixed Assets

Routine:

RoutineTechnical Name
FISXATF.PRXReturns the depreciation of the period of the assets used in the manufacture of products intended for sale, which will be used in the calculation of the PIS.

Entry Point:

F120CUST

Related Tickets

TUZSTA

Countries:

Brazil

Database:

All approved by Protheus

Operating Systems:

All approved by Protheus

 
 

Description

The entry point F120CUST allows the user to manipulate the generation of F120/F130 records in the generation of PIS/COFINS TAX SPED.
 

Entry Point

Description:

Through the entry point F120CUST, the user can modify the records to be generated in blocks F120/F130 in the generation of PIS/COFINS TAX SPED.

Location:

Tax Records >> Miscellaneous >> Magnetic Files >> Pis/Cofins Sped

Events:

If lF120CustExecBlock("F120CUST",.F.,.F.,{cReg, cAliasTmp, cCodBem, cItem, cDescr, dData, cDescExt, cTabOri, cNumPro, cIndPro, nValor, cAliasSN1 })   EndIf

Image Added

Source Program:

FISXATF.PRX

Function:

AtfPopuTmp() - Creation of the temporary file to generate record F120/F130 - PIS/COFINS TAX SPED

Return:

NameTypeDescriptionMandatory
 cReg
cRegCharacterBlock to be generated (F120/F130)Yes
 cAliasTmp
cAliasTmpCharacterAlias of the temporary table containing the records to be written to the files, which can be modified through the PEYes
 cCodBem
cCodBemCharacterFixed asset codeYes
cItemCharacterFixed asset itemYes
cDescrCharacterDescription of the fixed assetNo
dDataDateDate of file generationYes
cDescExtCharacterExtended description of the fixed assetNo
cTabOriCharacterSource table of file generationNo
cNumProCharacterThe number of the referenced process related to the assetYes
cIndProCharacterThe type of the referenced process related to the assetYes
nValorNumericThe value to be generated in the blockYes
cAliasSN1CharacterSN1 Temporary Table (Fixed Asset)No

...


Example:

Image Added

Image Added

Image Added

Image Added* * Example: #Include '[<span style="color: #0000ee"><span style="text-decoration: underline; ">Protheus.ch</span></span>|http://Protheus.ch]' User Function F120CUST() Local cReg := paramixb\[1\] Local cAliasTmp := paramixb\[2\]Local cCodBem := paramixb\[3\]Local cItem := paramixb\[4\] Local cDescr := paramixb\[5\]Local dData := paramixb\[6\]Local cDescExt := paramixb\[7\] Local cTabOri := paramixb\[8\]Local cNumPro := paramixb\[9\]Local cIndPro := paramixb\[10\]Local nValor := paramixb\[11\]Local cAliasSN1 := paramixb\[11\] Local cIND_ORIG_C := "" Local nALIQ_PIS := 0.65Local nCST_PIS := 0.65Local nCST_COFINS := 3 Local nALIQ_COFIN := 3 //User customizations If cReg == "F120"(cAliasTmp)->(dbSetOrder(1))If !(cAliasTmp)->(dbSeek(cCodBem+cItem+dtos(dData)))RecLock(cAliasTmp,.T.)(cAliasTmp)->BEM := cCodBem(cAliasTmp)->ITEM := cItem(cAliasTmp)->DESCRI := cDescr(cAliasTmp)->DTAQS := dData(cAliasTmp)->DESC_BEM_I := If(Empty(cDescExt),cDescr,cDescExt)(cAliasTmp)->REG := "F120" (cAliasTmp)->IND_ORIG_C := cIND_ORIG_C (cAliasTmp)->PARC_OPER := 0 (cAliasTmp)->CST_PIS := nCST_PIS (cAliasTmp)->VL_BC_PIS := (cAliasTmp)->(VL_OPER_DE-PARC_OPER) (cAliasTmp)->ALIQ_PIS := nALIQ_PIS (cAliasTmp)->VL_PIS := (cAliasTmp)->(VL_BC_PIS*ALIQ_PIS/100) (cAliasTmp)->CST_COFINS := nCST_COFINS (cAliasTmp)->VL_BC_COFI := (cAliasTmp)->(VL_OPER_DE-PARC_OPER) (cAliasTmp)->ALIQ_COFIN := nALIQ_COFIN (cAliasTmp)->VL_COFINS := (cAliasTmp)->(VL_BC_COFI*ALIQ_COFIN/100) MsUnLock()EndIf ElseIf cReg == "F130"(cAliasTmp)->(dbSetOrder(1))If !(cAliasTmp)->(dbSeek(cCodBem+cItem+dtos(dData)))RecLock(cAliasTmp,.T.)(cAliasTmp)->REG := "F130"(cAliasTmp)->NAT_BC_CRE := "09"(cAliasTmp)->IDENT_BEM := 05(cAliasTmp)->IND_ORIG_C := cIND_ORIG_C(cAliasTmp)->IND_UTIL_B := 2(cAliasTmp)->MES_OPER_A := Int(Val(Subs(Dtos(dData),5,2)+Subs(Dtos(dData),1,4)))(cAliasTmp)->VL_OPER_AQ += nValor(cAliasTmp)->PARC_OPER += 0(cAliasTmp)->VL_BC_CRED := (cAliasTmp)->(VL_OPER_AQ-PARC_OPER)(cAliasTmp)->IND_NR_PAR := 0(cAliasTmp)->CST_PIS := nCST_PIS (cAliasTmp)->ALIQ_PIS := nALIQ_PIS (cAliasTmp)->VL_PIS := (cAliasTmp)->(VL_BC_PIS*ALIQ_PIS/100)(cAliasTmp)->CST_COFINS := nCST_COFINS(cAliasTmp)->ALIQ_COFIN := nALIQ_COFIN(cAliasTmp)->VL_COFINS := (cAliasTmp)->(VL_BC_COFI*ALIQ_COFIN/100)(cAliasTmp)->COD_CTA := '101010100'(cAliasTmp)->COD_CCUS := '01'(cAliasTmp)->NOTAFISCAL := ''(cAliasTmp)->SERIE := ''(cAliasTmp)->FORNECEDOR := ''(cAliasTmp)->LOJA := ''(cAliasTmp)->NUMPRO := cNumPro(cAliasTmp)->INDPRO := cIndProEndIfEndIfReturn !worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32!