Histórico da Página
...
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; |
Retorno:
Nome | Tipo | Descrição |
|---|---|---|
| Array of Record | Retorna um Array com as 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
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#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
|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas