PC Toledo

Código: Selecionar todos

 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