VVC060PE - Não permitir a impressão de determinados registros

Este Ponto de Entrada tem por finalidade, não permitir a impressão de determinados registros que o cliente entenda ser desnecessário.

User Function VVC060PE()

MsgInfo("Ponto de entrada VVC060PE executado com sucesso!")

Return(.t.)

Português(Brasil)

Todas

Todos

Todas

N/A

Logico => .t. ou .f.

IF (cAliasTMP)->VV0_OPEMOV $ "3,5"
// Se não for uma TES de remessa com controle de 3º, veiculo nao esta mais no estoque
cPoder3 := FM_SQL("SELECT F4_PODER3 FROM "+cNamSF4+" WHERE F4_FILIAL='"+cFilSF4+"' AND F4_CODIGO='"+(cAliasTMP)->VVA_CODTES+"' AND D_E_L_E_T_=' '")
IF cPoder3 == "R"
IF (cAliasTMP)->VV0_OPEMOV == "3"
cTRB_SITVEI = "7" // Remessa de Propria em Poder de Terceiro

if c_Depto = .t.
c_ptodep := if(!empty((cAliasTMP)->VV0_DEPTO),(cAliasTMP)->VV0_DEPTO,"**")
c_nfsda := (cAliasTMP)->VV0_NUMNFI
endif
ELSEIF (cAliasTMP)->VV0_OPEMOV == "5"
cTRB_SITVEI = "4" // Consignado
ENDIF
ELSE
// Veiculo não esta no estoque
dbSelectArea(cAliasTMP)
dbSkip()
Loop
ENDIF
// Veiculo não esta no estoque
ELSE
dbSelectArea(cAliasTMP)
dbSkip()
Loop
ENDIF
ENDIF
ENDIF

If ExistBlock("VVC060PE")
lRet := ExecBlock("VVC060PE",.f.,.f.)
If !lRet
dbSelectArea(cAliasTMP)
dbSkip()
Loop
Endif
Endif

// Se nao tiver em branco, se trata de uma remessa propria para terceiros e ja foi encontrado o STATUS do veiculo
IF Empty(cTRB_SITVEI)

// Mov. de Entrada Normal, Devolucao, Retorno de Remessa ou Retorno de Consig.
if (cAliasTMP)->VVF_OPEMOV $ "0,5"
cTRB_SITVEI := "0" // Estoque

// Mov. de Entrada por Remessa ou Consignacao
elseif (cAliasTMP)->VVF_OPEMOV $ "2,4"
// Verifica se a TES é uma [R]emessa de poder de Terceiros
cPoder3 := FM_SQL("SELECT F4_PODER3 FROM "+cNamSF4+" WHERE F4_FILIAL='"+cFilSF4+"' AND F4_CODIGO='"+(cAliasTMP)->VVG_CODTES+"' AND D_E_L_E_T_=' '")
IF cPoder3 == "R"
IF (cAliasTMP)->VVF_OPEMOV == "2"
cTRB_SITVEI := "3" // Remessa de Terceiro em Nosso Poder
ELSEIF (cAliasTMP)->VVF_OPEMOV == "4"
cTRB_SITVEI := "4" // Consignado
ENDIF
ENDIF

// Mov. de Entrada por Transferencia
elseif (cAliasTMP)->VVF_OPEMOV == "3"
cTRB_SITVEI := "5" // Transferido

// Mov. de Entrada por Retorno de Remessa e Retorno de Consignacao
elseif (cAliasTMP)->VVF_OPEMOV $ "7,8"
// Verifica se a TES é uma [D]emessa de poder de Terceiros
cPoder3 := FM_SQL("SELECT F4_PODER3 FROM "+cNamSF4+" WHERE F4_FILIAL='"+cFilSF4+"' AND F4_CODIGO='"+(cAliasTMP)->VVG_CODTES+"' AND D_E_L_E_T_=' '")
IF cPoder3 == "D"
cTRB_SITVEI := "0" // Estoque
ENDIF
endif
//

ENDIF

VEIVC060.PRW