Fiscal
| Linha de Produto: | |
|---|---|
| Segmento: | |
| Módulo: | Fiscal |
Ponto de Entrada SPEDH020 aplicado no SPEDFISCAL para geração do Registro H020 - Informação complementar do Inventário.
Para atender uma legislação específica do estado do Rio Grande do Sul - RS, onde é necessário gerar mais de 1 H020 para o mesmo H010, agrupando as informações de acordo com o Código de Situação Tributária - CST. Esse Ponto de Entrada também foi adaptado, portanto é possível gerar mais de 1 H020. |
Parâmetros do ponto de Entrada:
Nome | Tipo | Descrição |
|---|---|---|
| PARAMIXB | Array of Record | Array com dados de processamento com elementos [1] = Código do Produto sendo processado pelo H010; [2] = Motivo de Inventário do Produto que está sendo processado pelo H005; |
Retorno:
Nome | Tipo | Descrição |
|---|---|---|
| Array of Record | Retorna um Array com as informações dos campos para compor o registro H020. Importante: É necessário que já exista um registro H010. |
#include "totvs.ch"
User Function SPEDH020()
Local aRet := {}
Local nPos := 0
Local cProduto := PARAMIXB[1]
dbSelectArea("SB1")
SB1->(dbSetOrder(1))
If SB1->(MsSeek( xFilial("SB1") + cProduto))
aAdd(aRet,{})
nPos := Len(aRet)
aAdd(aRet[nPos], "010" ) // CST ICMS
aAdd(aRet[nPos], 10.00 ) // Base de cálculo do ICMS (Unitário)
aAdd(aRet[nPos], 1.80 ) // Valor do ICMS (Unitário)
EndIf
Return aRet
|