Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Beatriz Martins

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Beatriz Martins

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

Eventos de chamada do Ponto de EntradanVQ3

 nVQ3_VALINV := (cSQLVQ3)->B2_VATU1
 //
While  While !(cSQLSD2)->(Eof())
  //
If   If (cSQLSD2)->(VS1_CLIFAT) ==  cCodFab .and. (cSQLSD2)->(VS1_LOJA) ==  cLojFab
nVQ3   nVQ3_TOTFAB += (cSQLSD2)->(D2_TOTAL)
nVQ3   nVQ3_CUSFAB += (cSQLSD2)->(D2_CUSTO1)
Endif
  Endif   //
If   If (cSQLSD2)->(VS1_TIPORC) == "1" // Balcao
   //
nVQ3   nVQ3_TOTBAL += (cSQLSD2)->(D2_TOTAL)
nVQ3   nVQ3_CUSBAL += (cSQLSD2)->(D2_CUSTO1)
   //
ElseIf   ElseIf (cSQLSD2)->(VS1_TIPORC) == "2" // Oficina
   //
If    If (cSQLSD2)->(VOI_SITTPO) == "3" // Interno
nVQ3    nVQ3_TOTINT += (cSQLSD2)->(D2_TOTAL)
    // nVQ3    nVQ3_CUSINT += (cSQLSD2)->(D2_CUSTO1)
Else
nVQ3   Else     nVQ3_TOTOFI += (cSQLSD2)->(D2_TOTAL)
nVQ3    nVQ3_CUSOFI += (cSQLSD2)->(D2_CUSTO1)
Endif
   Endif    //
Endif
  Endif   //
  (cSQLSD2)->(DbSkip())
  //
Enddo
 Enddo  //
If  If ExistBlock("OJD12LV2")
ExecBlock  ExecBlock("OJD12LV2",.f.,.f.)
Endif
 Endif  //
 (cSQLSD2)->(DbCloseArea())
 //
VQ3 VQ3->(DbGoTo((cSQLVQ3)->(VQ3RECNO)))
RecLock RecLock("VQ3",.f.)
VQ3 VQ3->VQ3_DEVBAL := nVQ3_DEVBAL
VQ3 VQ3->VQ3_DEVOFI := nVQ3_DEVOFI

Variáveis

Programa Fonte

OFINJD12.PRW