Linha Microsiga Protheus

Árvore de páginas

Descrição

Ponto de Entrada para levantamento dos Valores de Faturamento, Devolução e Inventário das Peças.
Este Ponto de Entrada incrementa o levantamento padrão.

Observações

Exemplos

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao ³ OJD12LV2 ³ Autor ³ MIL Data ³ 05/09/13 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ PE para levantamento de Faturamento, Devolução e Inventário das Peças ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Uso ³ Veiculos ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function OJD12LV2()

MsgInfo("Ponto de entrada OJD12LV2 executado com sucesso.")

Return

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 Entrada

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

Variáveis

Programa Fonte

OFINJD12.PRW

  • Sem rótulos