Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

Fiscal


02. DESCRIÇÃO

Ponto de Entrada SPEDH020 aplicado no SPEDFISCAL para geração do Registro H020 - Informação complementar do Inventário.

03. ESPECIFICAÇÃO

Parâmetros do ponto de Entrada:

Nome

Tipo

Descrição

PARAMIXBArray of Record

Array com dados de processamento com  elementos

[1] = Código do Produto sendo processado pelo H010;


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.

04. EXEMPLO DE UTILIZAÇÃO


SPED1601
#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

05. DEMAIS INFORMAÇÕES