...
| Bloco de código | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
#Include "PROTHEUS.CH"
User Function SPEDH020()
Local aRet := {}
Local nPos := 0
Local nI := 1
Local cProduto := PARAMIXB[1]
Local cMotInv := PARAMIXB[2]
dbSelectArea("SB1")
SB1->(dbSetOrder(1))
For nI = 1 To 2 // Será enviado 2 H020 para cada H010, mudando o CST do primeiro para 010 e do segundo para 000
If SB1->(MsSeek( xFilial("SB1") + cProduto))
Aadd(aRet,{})
nPos := Len(aRet)
Aadd(aRet[nPos], IIF(nI == 1,"010","000")) // CST ICMS
Aadd(aRet[nPos], 100.00) // Base de cálculo do ICMS (Unitário)
Aadd(aRet[nPos], 18.00) // Valor do ICMS (Unitário)
If cMotInv == "01" // Deve possuir esse código para garantir que não será gerado mais de 1 H020 para o Motivo = 01 - No Final do Período, pois causa problemas no validador da GIA-RS
Exit
Endif
EndiF
Next
Return aRet
|
...
