1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. Ponto de Entrada A103VLR
× Linguagem de Programação ADVPL

Perguntas Ponto de Entrada A103VLR

Mais
10 anos 2 meses atrás #25016 por GuPadrao
Ponto de Entrada A103VLR foi criado por GuPadrao
Boa tarde, tenho a necessidade de alterar o valor das duplicatas quando a nota fiscal de entrada for importação. Para filtrar isso estou utilizando a seguinte sintaxe
User Function A103VLR()

Local nRet	:= 0
Local cCfo	:= SUBSTR(M->D1_CF,1,1)

If cCfo $ "3"
  nRet := M->D1_TOTAL
EndIf

Return(nRet)

a rotina enxerga meu PE numa boa, mas me fala que a variavel D1_CF é invalida. Estou usando essa variavel para limitar a qual tipo de nota quero alterar.

alguém sabe o que está errado para me dar uma ajuda?

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 2 meses atrás #25054 por hbaldin
Respondido por hbaldin no tópico Ponto de Entrada A103VLR
tente pegar a variável assim

[Ascan(aHeader, {|X| AllTrim(X[2]) == "D1_CF"})]

manja, pegar o valor do campo na coluda do aHeader de nome D1_CF

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 2 meses atrás #25281 por GuPadrao
Respondido por GuPadrao no tópico Ponto de Entrada A103VLR
Henrique, obrigado pela ajuda. Não foi bem como você passou que desenvolvi. Mas graças a sua ajuda foi possível chegar ao resultado.
User Function A103VLR()
Local nRet := 0

For nXX := 1 To Len(aCols)

	If ! GdDeleted(nXX)
		
		If Left(GDFieldGet("D1_CF",nXX),1) == "3"
			nRet += GDFieldGet("D1_TOTAL",nXX)
		EndIf

	EndIf		

Next


Return nRet

Por favor Acessar ou Registrar para participar da conversa.

  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. Ponto de Entrada A103VLR
Tempo para a criação da página:0.086 segundos
Joomla templates by a4joomla