Moderador: Moderadores
FOR nC = 1 TO Frm_Recibos.Grid_4.ItemCount
IF Frm_Recibos.Grid_4.Cell(nC,9) $ "BI" .OR. (Frm_Recibos.Text_34.Value) > 0 //.OR. ( Frm_Recibos.Grid_4.Cell(nC,6) == "C" .AND.
Frm_Recibos.Txt_Quit_Conv.Value = "S" )
mTot := 0
vCustas := {}
xVl := VAL(Frm_Recibos.Grid_4.Cell(nC,5)) // = "5", "A", "I")
QUADROCUSTAS( "01", ;
xVl, ;
xMeio, ;
0, ;
NIL, ;
"1", ;
@vCustas, ;
@Mtot,, ;
Frm_Recibos.Combo_4.Value )
xTotal += mTot
ELSE
xTotal += 0
ENDIF
NEXT
Frm_Recibos.Text_6.Value := xTotal
Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes