Perguntas Condicoes de pagamento

Voce vai precisar montar uma query para pegar o total do pedido de compras, pois o mesmo é por itens, então precisa ler a todos e usar o esquema embaixo para obter a condição de pagamento, vencimentos e parcelas ok.



//basear-se pela data da entrega do pedido de compra
nTaxa := IIF(SC7->C7_MOEDA > 1, SC7->C7_TXMOEDA, 1)
acond := condicao( SC7->(C7_TOTAL + C7_VALIPI + C7_VALFRE - C7_VLDESC) * nTaxa , sc7->c7_cond, 0, sc7->c7_datprf )

For _i := 1 to len( acond )
//filtrar data pagto conforme parametro
if acond[_i,1] >= mv_par03 .and. acond[_i,1] <= mv_par04
If RecLock('ARQTMP',.T.)
ARQTMP->CCONTABIL:= sc7->c7_ITEMCTA //ITEM CONTABIL
ARQTMP->CLVL := sc7->c7_CLVL //ITEM orcamentario
ARQTMP->DENTREGA := sc7->c7_DATPRF
ARQTMP->CNUMPED := sc7->c7_NUM
ARQTMP->CFORNECE := sa2->a2_nome
ARQTMP->CPRODUTO := sb1->b1_desc
ARQTMP->DATAPGTO := acond[_i,1]
ARQTMP->NVALOR := acond[_i,2]
ARQTMP->NTIPO := 4
ARQTMP->ITEM := sc7->c7_item
ARQTMP->( MsUnlock() )
Endif
endif
Next _i

Opa Blz Cara, então neste caso vc vai precisar fazer uma segunda query para pegar o total do pedido de compra para poder executar a função que retorna a condição de pagamento.

Segue um exemplo:

SELECT SUM(C7_TOTAL)
FROM SC7010
WHERE C7_NUM = '000001'
WHERE D_E_L_E_T_ = ''
AND C7_FILIAL = '01'