- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Dúvida com registro C195 do SPED FISCAL
×
Linguagem de Programação ADVPL
Perguntas Dúvida com registro C195 do SPED FISCAL
- Cae2
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 3
- Obrigados Recebidos: 0
9 anos 5 dias atrás #29604
por Cae2
Respondido por Cae2 no tópico Dúvida com registro C195 do SPED FISCAL
Boa tarde Matheus,
O meu problema (que estava vindo zerado), é porque esse PE não traz o registro já posicionado dentro da SFT, então tive que posicionar, senão ele retornava só o ICMS do primeiro registro.
faz um teste, dá uma olhada no que fiz:
==============
#Include 'Protheus.ch'
User Function SPEDC195()
Local cNFiscal := SUBSTR(CCHAVE,11,9)
Local cForneced := SUBSTR(CCHAVE,20,6)
//Local cNFiscal := ""
//Local cForneced := ""
Local nRet := 0
Local nSomaRet := 0
dbSelectArea("SFT")
dbSetOrder( // Filial + NF + Fornecedor
dbSeek(xFilial("SFT") + cNFiscal + cForneced)
While cNFiscal = FT_NFISCAL
nRet := FT_ICMSRET
nSomaRet += nRet
dbskip()
EndDo
Return "Valor do ICMS RETIDO: R$ " + cValtoChar(nSomaRet)
===================
O meu problema (que estava vindo zerado), é porque esse PE não traz o registro já posicionado dentro da SFT, então tive que posicionar, senão ele retornava só o ICMS do primeiro registro.
faz um teste, dá uma olhada no que fiz:
==============
#Include 'Protheus.ch'
User Function SPEDC195()
Local cNFiscal := SUBSTR(CCHAVE,11,9)
Local cForneced := SUBSTR(CCHAVE,20,6)
//Local cNFiscal := ""
//Local cForneced := ""
Local nRet := 0
Local nSomaRet := 0
dbSelectArea("SFT")
dbSetOrder( // Filial + NF + Fornecedor
dbSeek(xFilial("SFT") + cNFiscal + cForneced)
While cNFiscal = FT_NFISCAL
nRet := FT_ICMSRET
nSomaRet += nRet
dbskip()
EndDo
Return "Valor do ICMS RETIDO: R$ " + cValtoChar(nSomaRet)
===================
Por favor Acessar ou Registrar para participar da conversa.
- Matheus.Frizzo
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 6
- Obrigados Recebidos: 0
9 anos 5 dias atrás #29605
por Matheus.Frizzo
Respondido por Matheus.Frizzo no tópico Dúvida com registro C195 do SPED FISCAL
Boa tarde Flavio,
Muito obrigado! Vou testar!
Abraços
Muito obrigado! Vou testar!
Abraços
Por favor Acessar ou Registrar para participar da conversa.
- Matheus.Frizzo
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 6
- Obrigados Recebidos: 0
9 anos 4 dias atrás #29606
por Matheus.Frizzo
Respondido por Matheus.Frizzo no tópico Dúvida com registro C195 do SPED FISCAL
Na verdade eu consegui trazer a descrição preenchendo o campo F4_CODOBSE no cadastro de TES, mas os valores ainda não.
|C195|000006|VALOR COMPLEMENTAR|
Vou fazer um teste com esse P.E.
|C195|000006|VALOR COMPLEMENTAR|
Vou fazer um teste com esse P.E.
Por favor Acessar ou Registrar para participar da conversa.
- Matheus.Frizzo
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 6
- Obrigados Recebidos: 0
8 anos 11 meses atrás #29639
por Matheus.Frizzo
Respondido por Matheus.Frizzo no tópico Dúvida com registro C195 do SPED FISCAL
Pessoal,
Não consegui fazer funcionar corretamente, quando eu coloco Return "Valor do ICMS RETIDO: R$ " + cValtoChar(nSomaRet) a informação não sai e seu eu coloco Return "Valor do ICMS RETIDO: R$ " a informação sai, porem, não consegui trazer os valores.
Não sei se algum outro ponto de entrada pode estar interferindo, por exemplo o SPEDINFO" ou SPDPISIC"
Não consegui fazer funcionar corretamente, quando eu coloco Return "Valor do ICMS RETIDO: R$ " + cValtoChar(nSomaRet) a informação não sai e seu eu coloco Return "Valor do ICMS RETIDO: R$ " a informação sai, porem, não consegui trazer os valores.
Não sei se algum outro ponto de entrada pode estar interferindo, por exemplo o SPEDINFO" ou SPDPISIC"
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Dúvida com registro C195 do SPED FISCAL
Tempo para a criação da página:0.127 segundos