Histórico da Página

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 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 LEFT  JOIN "+RetSQLName("VOI")+" VOI ON 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 ON  SB1.B1_FILIAL 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 ON  SB2.B2_FILIAL 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 LEFT  JOIN "+RetSQLName("VQ3")+" VQ3 ON 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