Histórico da Página

Descrição

Este Ponto de Entrada permite customizar os valores de saída por transferência do PPA.

Observações

Exemplos

User Function ORVW02E3 If (cAliasSBM)->BM_GRUPO $ cGAce  .or. (cAliasSBM)->BM_CODMAR $  cMarcaVW .OR. (cAliasSBM)->BM_CODMAR $  cMarcaMAN    aPPA[47,8] +=(cAliasSD2)->D2_TOTAL + (cAliasSD2)->D2_DESPESA + (cAliasSD2)->D2_VALFRE + (cAliasSD2)->D2_SEGURO + (cAliasSD2)->D2_VALIPI + IIF((cAliasSF4)->F4_INCSOL = "S",(cAliasSD2)->D2_ICMSRET,0)   Else    aPPA[48,8] +=(cAliasSD2)->D2_TOTAL + (cAliasSD2)->D2_DESPESA + (cAliasSD2)->D2_VALFRE + (cAliasSD2)->D2_SEGURO + (cAliasSD2)->D2_VALIPI + IIF((cAliasSF4)->F4_INCSOL = "S",(cAliasSD2)->D2_ICMSRET,0)   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 !(cAliasSD2)->(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 = '"+(cAliasSD2)->D2_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_CDOPSA, VE4.VE4_CODFOR, VE4.VE4_LOJFOR, VE4.VE4_CDOPEN, VE4.VE4_PREFAB "  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='"+(cAliasSD2)->D2_COD+"' AND "  cQuery += "SB1.D_E_L_E_T_=' ' ORDER BY SB1.B1_COD"  dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasSB1, .T., .T. )    If Select(cAliasSF4) > 0   ( cAliasSF4 )->( DbCloseArea() )  EndIf  cQuery := "SELECT SF4.F4_DUPLIC, SF4.F4_ESTOQUE, SF4.F4_OPEMOV, SF4.F4_PISCRED, SF4.F4_PISCOF, SF4.F4_INCSOL "  cQuery += "FROM "+RetSqlName( "SF4" ) + " SF4 "  cQuery += "WHERE "  cQuery += "SF4.F4_FILIAL='"+ xFilial('SF4')+ "' AND "  cQuery += "SF4.F4_CODIGO='"+(cAliasSD2)->D2_TES+"' AND "  cQuery += "SF4.D_E_L_E_T_=' ' ORDER BY SF4.F4_CODIGO"  dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasSF4, .T., .T. )

 If ( !((cAliasSD2)->D2_CF $ cCFOTraSai) .Or. ( (cAliasVE4)->VE4_PREFAB == (cAliasSBM)->BM_CODMAR .And. (cAliasSD2)->D2_TES == FG_TABTRIB((cAliasVE4)->VE4_CDOPSA,(cAliasSB1)->B1_ORIGEM) ) )   DbSelectArea(cAliasSD2)   Dbskip()   loop  EndIf  If ExistBlock("ORVW02E3")   ExecBlock("ORVW02E3",.f.,.f.)  else   If (cAliasSBM)->BM_GRUPO $ cGAce  .or. (cAliasSBM)->BM_CODMAR $  cMarcaVW .OR. (cAliasSBM)->BM_CODMAR $  cMarcaMAN    aPPA[47,8] +=(cAliasSD2)->D2_TOTAL + (cAliasSD2)->D2_DESPESA + (cAliasSD2)->D2_VALFRE + (cAliasSD2)->D2_SEGURO + (cAliasSD2)->D2_VALIPI + IIF((cAliasSF4)->F4_INCSOL = "S",(cAliasSD2)->D2_ICMSRET,0)   Else    aPPA[48,8] +=(cAliasSD2)->D2_TOTAL + (cAliasSD2)->D2_DESPESA + (cAliasSD2)->D2_VALFRE + (cAliasSD2)->D2_SEGURO + (cAliasSD2)->D2_VALIPI + IIF((cAliasSF4)->F4_INCSOL = "S",(cAliasSD2)->D2_ICMSRET,0)   EndIf  endif   DbSelectArea(cAliasSD2)  DbSkip() EndDo

Variáveis

Programa Fonte

OFIRVW02.PRW