OJD12LV1 - Levantamento dos Hits e Níveis de Atendimento de Peças

Descrição

Ponto de Entrada para levantamento dos Hits e Níveis de Atendimento de Peças.
Este Ponto Entrada não incrementa o levantamento, apenas desvia o levantamento padrão. Desta forma, é necessário que todo o levantamento seja feito no P.E.

Observações

Exemplos

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao ³ OJD12LV1 ³ Autor ³ MIL Data ³ 05/09/13 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ PE para desvio no Levantamento dos Niveis de Atendimento ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Uso ³ Veiculos ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function OJD12LV1()
Local lRet := .f.

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

n/a

Retorno

Retorno lógico. Indica se deve ou não gravar o Flag de registro lido no item do Orçamento

Eventos de chamada do Ponto de Entrada

cQuery := "SELECT VS3.VS3_QTDPED, VS3.VS3_QESTNA, VS3.VS3_QTDELI, VS3.R_E_C_N_O_ VS3RECNO, VS1.VS1_TIPORC, VS1.VS1_FILIAL, VS1.VS1_NUMORC, VS1.VS1_DATORC, VOI.VOI_SITTPO, VQ3.R_E_C_N_O_ VQ3RECNO, SB1.B1_COD, SB2.B2_QATU FROM "+RetSQLName("VS3")+" VS3 " cQuery += "INNER JOIN "+RetSQLName("VS1")+" VS1 ON  VS1.VS1_FILIAL = VS3.VS3_FILIAL AND VS1.VS1_NUMORC = VS3.VS3_NUMORC AND VS1.VS1_TIPORC = 'P' AND VS1.D_E_L_E_T_=' ' " cQuery += "LEFT  JOIN "+RetSQLName("VOI")+" VOI ON  VOI.VOI_FILIAL = '"+xFilial("VOI")+"'AND VOI.VOI_TIPTEM = VS1.VS1_TIPTEM AND VOI.VOI_SITTPO = '3' AND VOI.D_E_L_E_T_=' ' " cQuery += "INNER JOIN "+RetSQLName("SB1")+" SB1 ON  SB1.B1_FILIAL  = '"+xFilial("SB1")+"' AND SB1.B1_GRUPO = VS3.VS3_GRUITE AND SB1.B1_CODITE = VS3.VS3_CODITE AND SB1.D_E_L_E_T_=' ' " cQuery += "INNER JOIN "+RetSQLName("SB2")+" SB2 ON  SB2.B2_FILIAL  = '"+xFilial("SB2")+"' AND SB2.B2_COD = SB1.B1_COD AND SB2.B2_LOCAL = SB1.B1_LOCPAD AND SB2.D_E_L_E_T_=' ' " cQuery += "LEFT  JOIN "+RetSQLName("VQ3")+" VQ3 ON  VQ3.VQ3_FILIAL = '"+xFilial("VQ3")+"' AND VQ3.VQ3_PRODUT = SB1.B1_COD AND VQ3.VQ3_ANO"+FG_CONVSQL("CONCATENA")+"VQ3.VQ3_MES = LEFT(VS1.VS1_DATORC,6) AND VQ3.D_E_L_E_T_=' ' " cQuery += "WHERE VS3.VS3_FILIAL = '"+xFilial("VS3")+"' AND VS3.VS3_FLGNAT <> '1' AND VS3.D_E_L_E_T_=' ' "

If Select(cSQLVS3) > 0  (cSQLVS3)->(DbCloseArea()) EndIf

dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ), cSQLVS3 , .F. , .T. )

While !(cSQLVS3)->(Eof())    cTipOrc := FM_SQL("SELECT VS1.VS1_TIPORC FROM "+RetSQLName("VS1")+" VS1 WHERE VS1.VS1_FILIAL='"+(cSQLVS3)->(VS1_FILIAL)+"' AND VS1.VS1_PEDREF='"+(cSQLVS3)->(VS1_NUMORC)+"' AND VS1.D_E_L_E_T_=' '")    If ExistBlock("OJD12LV1")   lAtuFlg := ExecBlock("OJD12LV1",.f.,.f.)  Else

Variáveis

Programa Fonte

OFINJD12.PRW