PMAF2CST - Alterar regra de custo

O ponto de entrada PMAF2CST é chamado logo após a gravação do custo na tabela AF2. Se o cliente quiser alterar a regra de custo do campo AF2_VALBDI (BDI), é por este ponto de entrada que deve ser feito. A tabela AF2 estará posicionada no momento da chamada.

      While !Eof() .And. (xFilial("AF2") + AF1->AF1_ORCAME == AF2->AF2_FILIAL + AF2->AF2_ORCAME)

                  aRetCus     := PmsAF2CusTrf(0,AF2->AF2_ORCAME,AF2->AF2_TAREFA)

                  RecLock("AF2",.F.)

                  Replace AF2->AF2_CUSTO With aRetCus[1]

                  Replace AF2->AF2_CUSTO2 With aRetCus[2] 

                  Replace AF2->AF2_CUSTO3 With aRetCus[3] 

                  Replace AF2->AF2_CUSTO4 With aRetCus[4]                               

                  Replace AF2->AF2_CUSTO5 With aRetCus[5] 

                 MsUnLock()

                 EndIf

                 If ExistBlock("PMAF2CST")

                     ExecBlock("PMAF2CST", .F., .F.)

                 EndIf

       Enddo                

PMSA203.PRW

PMAF2CST - Alterar regra de custo ( )

()