Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: PMAF2CST - Alterar regra de custo
Descrição:
Eventos
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
Programa Fonte PMSA203.PRW Sintaxe PMAF2CST - Alterar regra de custo ( ) Retorno
|