ORVW02E2 - Customização dos Valores de Entrada por Transferência do PPA

Descrição

Este Ponto de Entrada permite customizar os valores de entrada por transferência do PPA.

Observações

Exemplos

User Function ORVW02E2  If (cAliasSBM)->BM_GRUPO $ cGAce .or. (cAliasSBM)->BM_CODMAR $  cMarcaVW .OR. (cAliasSBM)->BM_CODMAR $  cMarcaMAN    aPPA[45,8] +=(cAliasSD1)->D1_CUSTO   Else    aPPA[46,8] +=(cAliasSD1)->D1_CUSTO   EndIf 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

N/A

Retorno

N/A

Eventos de chamada do Ponto de Entrada

While !(cAliasSD1)->(Eof())

 If Select(cAliasSBM) > 0   ( cAliasSBM )->( DbCloseArea() )  EndIf  cQuery := "SELECT SBM.BM_CODMAR, SBM.BM_DESC, SBM.BM_PROORI, SBM.BM_GRUPO "  cQuery += "FROM "+RetSqlName( "SBM" ) + " SBM "  cQuery += "WHERE "  cQuery += "SBM.BM_FILIAL='"+ xFilial("SBM")+ "' AND "  cQuery += "SBM.BM_GRUPO='"+(cAliasSD1)->D1_GRUPO+"' AND "  cQuery += "SBM.D_E_L_E_T_=' ' ORDER BY SBM.BM_GRUPO"  dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasSBM, .T., .T. )

 If Select(cAliasVE4) > 0   ( cAliasVE4 )->( DbCloseArea() )  EndIf  cQuery := "SELECT VE4.VE4_PREFAB, VE4.VE4_CDOPEN "  cQuery += "FROM "+RetSqlName( "VE4" ) + " VE4 "  cQuery += "WHERE "  cQuery += "VE4.VE4_FILIAL='"+ xFilial("VE4")+ "' AND VE4.VE4_PREFAB='"+(cAliasSBM)->BM_CODMAR+"' AND "  cQuery += "VE4.D_E_L_E_T_=' ' ORDER BY VE4.VE4_PREFAB"  dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasVE4, .T., .T. )

 If Select(cAliasSB1) > 0   ( cAliasSB1 )->( DbCloseArea() )  EndIf  cQuery := "SELECT SB1.B1_COD, SB1.B1_LOCPAD, SB1.B1_GRUPO, SB1.B1_CODITE, SB1.B1_ORIGEM "  cQuery += "FROM "+RetSqlName( "SB1" ) + " SB1 "  cQuery += "WHERE "  cQuery += "SB1.B1_FILIAL='"+ xFilial("SB1")+ "' AND "  cQuery += "SB1.B1_COD='"+(cAliasSD1)->D1_COD+"' AND "  cQuery += "SB1.D_E_L_E_T_=' ' ORDER BY SB1.B1_COD"  dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasSB1, .T., .T. )

 If ( !((cAliasSD1)->D1_CF $ cCFOTrans ) .Or. ( (cAliasVE4)->VE4_PREFAB == (cAliasSBM)->BM_CODMAR .And. (cAliasSD1)->D1_TES == FG_TABTRIB((cAliasVE4)->VE4_CDOPEN,(cAliasSB1)->B1_ORIGEM) ) )   DbSelectArea(cAliasSD1)   Dbskip()   loop  EndIf  If ExistBlock("ORVW02E2")   ExecBlock("ORVW02E2",.f.,.f.)  else   If (cAliasSBM)->BM_GRUPO $ cGAce .or. (cAliasSBM)->BM_CODMAR $  cMarcaVW .OR. (cAliasSBM)->BM_CODMAR $  cMarcaMAN    aPPA[45,8] +=(cAliasSD1)->D1_CUSTO   Else    aPPA[46,8] +=(cAliasSD1)->D1_CUSTO   EndIf  endif  DbSelectArea(cAliasSD1)  Dbskip() EndDo

Variáveis

Programa Fonte

OFIRVW02.PRW