- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- Passar como parâmetro para uma função dados da linha selecionada no grid principal do MATA103
Perguntas Passar como parâmetro para uma função dados da linha selecionada no grid principal do MATA103
- jeduardomneto
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 11
- Obrigados Recebidos: 0
9 anos 3 meses atrás #28933
por jeduardomneto
Passar como parâmetro para uma função dados da linha selecionada no grid principal do MATA103 foi criado 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 )
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.
- Jafreal
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 137
- Obrigados Recebidos: 0
9 anos 3 meses atrás #29017
por Jafreal
Respondido por Jafreal no tópico Passar como parâmetro para uma função dados da linha selecionada no grid principal do MATA103
Bom dia
Uma pergunta. Essa função vai ser usada depois, ou antes de vc incluir a nota fiscal?
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- Passar como parâmetro para uma função dados da linha selecionada no grid principal do MATA103
Tempo para a criação da página:0.083 segundos