Perguntas Passar como parâmetro para uma função dados da linha selecionada no grid principal do MATA103

Mais
9 anos 3 meses atrás #28933 por jeduardomneto
Bom dia amigos,

Criei uma nova opção nessa rotina, agora ao executá-la quero passar como parâmetro para a função, o número da nf, série, fornecedor e loja, mas está ocorrendo erro dizendo que aCols não existe. Por favor, qual a forma correta de acessar essa informação ?
Segue abaixo meu fonte.
Desde já obrigado pela ajuda senhores.

#include "tryexception.ch"

User Function MTA103MNU()

Local laRotina := ( Type( "aRotina" ) == "A" )
Local oException
Local nIndex := 0

Local _aArea := GetArea()

TRYEXCEPTION

StaticCall( NDJLIB004 , SetPublic , "cNDJSF1FMbr" , 0 , "C" , 0 , .F. )

IF !( laRotina )
BREAK
EndIF
aAdd( aRotina , Array( 4 ) )
nIndex := Len( aRotina )
aRotina[ nIndex ][1] := "Ajusta NF Import."
aRotina[ nIndex ][2] := "U_JACF103A(aCols[n][1],aCols[n][2],aCols[n][3],aCols[n][4])"
aRotina[ nIndex ][3] := 0
aRotina[ nIndex ][4] := 1

CATCHEXCEPTION USING oException

IF ( ValType( oException ) == "O" )
cMsgHelp := oException:Description
Help( "" , 1 , ProcName() , NIL , OemToAnsi( cMsgHelp ) , 1 , 0 )
ConOut( CaptureError() )
EndIF

ENDEXCEPTION

RestArea(_aArea)

Return( NIL )

Static Function __Dummy( lRecursa )
Local oException
TRYEXCEPTION
lRecursa := .F.
IF !( lRecursa )
BREAK
EndIF
lRecursa := __Dummy( .F. )
__cCRLF := NIL
CATCHEXCEPTION USING oException
ENDEXCEPTION

Return( lRecursa )

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 3 meses atrás #29017 por Jafreal
Bom dia

Uma pergunta. Essa função vai ser usada depois, ou antes de vc incluir a nota fiscal?

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.083 segundos
Joomla templates by a4joomla