SPEDFISCAL-SPEDREGD - Geração de registros Bloco D350

Salve salve....

Ponto de entrada SPEDREGD- ( Geração SPED ) 

SPEDFISCAL-SPEDREGD - Geração de registros Bloco D350   

#INCLUDE "TOTVS.CH"


/*/{Protheus.doc} SPEDREGD
Geração de registros Bloco D350  &nbsp

@type 		function
@author    	Eurai Rapelli
@since     	2023.01.01
/*/
User Function SPEDREGD()
Local cAlias	:= PARAMIXB[1]
Local aLisFil	:= PARAMIXB[2]
Local aRegG110 	:= {}
Local nPos		:= 0

Public nValor1 := 0
Public nValor2 := 0
Public nValor3 := 0
Public nValor4 := 0
Public nValor5 := 0
Public nValor6 := 0
Public dDataDe
Public dDataAte
Public cString := ""
Public nI := 0
Public nCount := 0

(cAlias)->(DbGoTop())
1If !MsgYesNo("Deseja Iniciar Customização do Bloco G110?")
	Return
Endif

If (cAlias)->(DbSeek("G110"))
	cString := Alltrim((cAlias)->TRB_CONT)
	For nI := 1 To Len(Alltrim(cString))
		If SubStr(cString,nI,1) == '|'
			nCount += 1
			If nCount == 2
				dDataDe := SubStr((cAlias)->TRB_CONT,nI+1,At('|',cString,nI+1)-(nI+1))
			Endif
			If nCount == 3
				dDataAte := SubStr((cAlias)->TRB_CONT,nI+1,At('|',cString,nI+1)-(nI+1))
			Endif
			
			If nCount == 4
				nValor1 := Val(StrTran(SubStr((cAlias)->TRB_CONT,nI+1,At('|',cString,nI+1)-(nI+1)),',','.'))
			Endif
			If nCount == 5
				nValor2 := Val(StrTran(SubStr((cAlias)->TRB_CONT,nI+1,At('|',cString,nI+1)-(nI+1)),',','.'))
			Endif
			If nCount == 6
				nValor3 := Val(StrTran(SubStr((cAlias)->TRB_CONT,nI+1,At('|',cString,nI+1)-(nI+1)),',','.'))
			Endif
			If nCount == 7
				nValor4 := Val(StrTran(SubStr((cAlias)->TRB_CONT,nI+1,At('|',cString,nI+1)-(nI+1)),',','.'))
			Endif
			If nCount == 8
				nValor5 := Val(StrTran(SubStr((cAlias)->TRB_CONT,nI+1,At('|',cString,nI+1)-(nI+1)),',','.'))
			Endif
			If nCount == 9
				nValor6 := Val(StrTran(SubStr((cAlias)->TRB_CONT,nI+1,At('|',cString,nI+1)-(nI+1)),',','.'))
			Endif
		Endif
	Next nI
	If Reclock((cAlias),.F.)
		(cAlias)->(DBDelete())
		(cAlias)->(MsUnlock())
	Endif

	aAdd(aRegG110, {})
	nPos	:=	Len(aRegG110)
	aAdd(aRegG110[nPos], "G110")								//01-REG
	aAdd(aRegG110[nPos], dDataDe)				    			//02-DT_INI
	aAdd(aRegG110[nPos], dDataAte)				    			//03-DT_FIN
	aAdd(aRegG110[nPos], nValor1)								//04-SALDO_IN_ICMS
	aAdd(aRegG110[nPos], nValor2)  							//05-SOM_PARC
	aAdd(aRegG110[nPos], nValor3)  							//06-VL_TRIB_EXO
	aAdd(aRegG110[nPos], nValor4) 								//07-VL_TOTAL
	aAdd(aRegG110[nPos], nValor5)								//08-IND_PER_SAI
	aAdd(aRegG110[nPos], nValor6)  							//09-ICMS_APROP
	aAdd(aRegG110[nPos], 0) 									//10-SOM_ICMS_OC
	
	GrvRegTrS(cAlias,,aRegG110)
Endif

Return( Nil )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima