Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE 'PROTHEUS.CH' User Function MT410PC () Local nPValor := aScan(aHeader,{|x| AllTrim(x[2]) == "C6_VALOR"}) SA1->(DbSetOrder( 1 )) SA1->(DbSeek( xFilial("SA1") + M->C5_CLIENTE + M->C5_LOJACLI )) If SA1->A1_RISCO ==<> 'A' M->C5_PARC1 := aCols[n][nPValor] * 0.25 M->C5_DATA1 := DataValida(dDatabase, .T.) M->C5_PARC2 := aCols[n][nPValor] * 0.75 M->C5_DATA2 := DataValida(dDatabase + 30, .T.) nParcelas := 2 EndIf Return nParcelas |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas