×
Linguagem de Programação ADVPL
Perguntas Exemplo A650OPI
- JamesWesTRP
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 248
- Obrigados Recebidos: 1
10 anos 10 meses atrás #15067
por JamesWesTRP
Exemplo A650OPI foi criado por JamesWesTRP
Alguem tem um exemplo do ponto de entrada
mata650OPI?
mata650OPI?
Por favor Acessar ou Registrar para participar da conversa.
- rafaelrsa
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 2
- Obrigados Recebidos: 0
- josuel.silva
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 69
- Obrigados Recebidos: 0
7 anos 3 semanas atrás #32048
por josuel.silva
Respondido por josuel.silva no tópico Exemplo A650OPI
Olá,
temos o exemplo abaixo:
User Function A650OPI()
Local nLin := PARAMIXB
Local lRet := .T.
Local cProduto := ""
Local aAreaSB1 := {}
Local cGrupo := SuperGetMV("MV_XGRPOPI",.F.,"XXXX")
cProduto := aCols[nLin][1]
aAreaSB1 := GetArea("SB1")
DbSelectArea("SB1")
SB1->(DbSetOrder(1))
If SB1->(DbSeek(xFilial("SB1")+cProduto))
If SB1->B1_GRUPO $ cGrupo .AND. UPPER(SB1->B1_SUBGRP) <> "FCI"
lRet := .F.
EndIF
EndIf
SB1->(DbCloseArea())
RestArea(aAreaSB1)
Return lRet
temos o exemplo abaixo:
User Function A650OPI()
Local nLin := PARAMIXB
Local lRet := .T.
Local cProduto := ""
Local aAreaSB1 := {}
Local cGrupo := SuperGetMV("MV_XGRPOPI",.F.,"XXXX")
cProduto := aCols[nLin][1]
aAreaSB1 := GetArea("SB1")
DbSelectArea("SB1")
SB1->(DbSetOrder(1))
If SB1->(DbSeek(xFilial("SB1")+cProduto))
If SB1->B1_GRUPO $ cGrupo .AND. UPPER(SB1->B1_SUBGRP) <> "FCI"
lRet := .F.
EndIF
EndIf
SB1->(DbCloseArea())
RestArea(aAreaSB1)
Return lRet
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.115 segundos