OMSQLSD1 Ponto de Entrada para possibilitar ao cliente acrescentar filtro no SQL do levantamento das NFs de Entrada que irão ser conferidas

Descrição:

Ponto de Entrada para completar o SQL de Levantamento das NFs de Entrada a Conferir, executado no levantamento das NFs das rotinas de Conferencia de Itens NF Entrada no desktop (OFIOM390), Conferencia de Itens NF Entrada no coletor (OFIA060) e Painel de Novas Conferencias de Entrada no coletor (OFIC090).

Eventos:

OFIOM390 - Conferencia de Itens NF Entrada no desktop

...

cFiltro += " AND EXISTS ( "

cFiltro += " SELECT SD1.D1_DOC "

cFiltro += " FROM " + RetSqlName("SD1") + " SD1 "

cFiltro += " LEFT JOIN " + RetSqlName("SF4") + " SF4 ON ( SF4.F4_FILIAL='"+xFilial("SF4")+"' AND SF4.F4_CODIGO=SD1.D1_TES AND SF4.D_E_L_E_T_=' ' )"

cFiltro += " WHERE SD1.D1_FILIAL ='" + xFilial("SD1") + "' "

cFiltro += " AND SD1.D1_DOC = F1_DOC "

cFiltro += " AND SD1.D1_SERIE = F1_SERIE "

cFiltro += " AND SD1.D1_FORNECE = F1_FORNECE "

cFiltro += " AND SD1.D1_LOJA = F1_LOJA "

cFiltro += " AND ( SD1.D1_TES = ' ' OR SF4.F4_ESTOQUE='S' ) "

cFiltro += " AND SD1.D_E_L_E_T_ = ' '"

If ExistBlock("OMSQLSD1")

cFiltro += ExecBlock("OMSQLSD1",.f.,.f.,{"1"}) // Ponto de Entrada para completar o SQL de Levantamento das NFs de Entrada a Conferir

EndIf

cFiltro += ")"

...

OFIA060 - Conferencia de Itens NF Entrada no coletor

...

cQuery += " AND EXISTS ( "

cQuery += " SELECT SD1.D1_DOC "

cQuery += " FROM " + RetSqlName("SD1") + " SD1 "

cQuery += " LEFT JOIN " + RetSqlName("SF4") + " SF4 ON ( SF4.F4_FILIAL='"+xFilial("SF4")+"' AND SF4.F4_CODIGO=SD1.D1_TES AND SF4.D_E_L_E_T_=' ' )"

cQuery += " WHERE SD1.D1_FILIAL ='" + xFilial("SD1") + "' "

cQuery += " AND SD1.D1_DOC = SF1.F1_DOC "

cQuery += " AND SD1.D1_SERIE = SF1.F1_SERIE "

cQuery += " AND SD1.D1_FORNECE = SF1.F1_FORNECE "

cQuery += " AND SD1.D1_LOJA = SF1.F1_LOJA "

cQuery += " AND ( SD1.D1_TES = ' ' OR SF4.F4_ESTOQUE='S' ) "

cQuery += " AND SD1.D_E_L_E_T_ = ' '"

If ExistBlock("OMSQLSD1")

cQuery += ExecBlock("OMSQLSD1",.f.,.f.,{"2"}) // Ponto de Entrada para completar o SQL de Levantamento das NFs de Entrada a Conferir

EndIf

cQuery += ")"

....

OFIC090 - Painel de Novas Conferencias de Entrada no coletor

....

cQryNFE += " AND EXISTS ( "

cQryNFE += " SELECT SD1.D1_DOC "

cQryNFE += " FROM " + RetSqlName("SD1") + " SD1 "

cQryNFE += " LEFT JOIN " + RetSqlName("SF4") + " SF4 ON ( SF4.F4_FILIAL='"+xFilial("SF4")+"' AND SF4.F4_CODIGO=SD1.D1_TES AND SF4.D_E_L_E_T_=' ' )"

cQryNFE += " WHERE SD1.D1_FILIAL ='" + xFilial("SD1") + "' "

cQryNFE += " AND SD1.D1_DOC = SF1.F1_DOC "

cQryNFE += " AND SD1.D1_SERIE = SF1.F1_SERIE "

cQryNFE += " AND SD1.D1_FORNECE = SF1.F1_FORNECE "

cQryNFE += " AND SD1.D1_LOJA = SF1.F1_LOJA "

cQryNFE += " AND ( SD1.D1_TES = ' ' OR SF4.F4_ESTOQUE='S' ) "

cQryNFE += " AND SD1.D_E_L_E_T_ = ' '"

If ExistBlock("OMSQLSD1")

cQryNFE += ExecBlock("OMSQLSD1",.f.,.f.,{"3"}) // Ponto de Entrada para completar o SQL de Levantamento das NFs de Entrada a Conferir

EndIf

cQryNFE += ")"

....

Função:

OFIOM390/OA0600011_TELA1/OFIC090()