- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- SALDO DISPONIVEL (SB8)
Perguntas SALDO DISPONIVEL (SB8)
- barater
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 126
- Obrigados Recebidos: 0
8 anos 9 meses atrás #28579
por barater
SALDO DISPONIVEL (SB8) foi criado por barater
Bom dia
Pessoal estou precisando de uma funcao onde me forneça o saldo disponivel por lote, assim como hoje tem a função SaldoSB2(). Existe algo do tipo SaldoSB8()? Onde eu passo o codigo + lotectl...
At,
Cezar
Pessoal estou precisando de uma funcao onde me forneça o saldo disponivel por lote, assim como hoje tem a função SaldoSB2(). Existe algo do tipo SaldoSB8()? Onde eu passo o codigo + lotectl...
At,
Cezar
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
8 anos 9 meses atrás #28618
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico SALDO DISPONIVEL (SB8)
// Busca Saldo do Lote
nSaldo:=0
If SB8->(dbSetOrder(3), dbSeek(xFilial("SB8")+aCols[n,nPosProd]+aCols[n,nPosAlm]+TRBB->C2_NUM+TRBB->C2_ITEM))
While SB8->(!EOF()) .And. AllTrim(xFilial("SB8")+aCols[n,nPosProd]+aCols[n,nPosAlm]+TRBB->C2_NUM+TRBB->C2_ITEM)==AllTrim(SB8->(B8_FILIAL+B8_PRODUTO+B8_LOCAL+B8_LOTECTL))
nSaldo+=SB8SALDO(,,,,,lEmpPrev,,,.T.)
SB8->(dbSkip(1))
End
Endif
nSaldo:=0
If SB8->(dbSetOrder(3), dbSeek(xFilial("SB8")+aCols[n,nPosProd]+aCols[n,nPosAlm]+TRBB->C2_NUM+TRBB->C2_ITEM))
While SB8->(!EOF()) .And. AllTrim(xFilial("SB8")+aCols[n,nPosProd]+aCols[n,nPosAlm]+TRBB->C2_NUM+TRBB->C2_ITEM)==AllTrim(SB8->(B8_FILIAL+B8_PRODUTO+B8_LOCAL+B8_LOTECTL))
nSaldo+=SB8SALDO(,,,,,lEmpPrev,,,.T.)
SB8->(dbSkip(1))
End
Endif
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Funções AdvPL
- SALDO DISPONIVEL (SB8)
Tempo para a criação da página:0.089 segundos