FiveTech Software tech support forums

... } LOCAL cPedido:=SPACE(7) LOCAL cBcaItm:=SPACE(30) LOCAL nDcrClt:=0 LOCAL nPorDes:=0 LOCAL nDescuento:=0 LOCAL cBusca :=SPACE(45) LOCAL cBusPed:=SPACE(45) LOCAL cCodPed:="" LOCAL cDesDoc:="" LOCAL cNumero:="" LOCAL cTitDet LOCAL AliasVta LOCAL ...

... } LOCAL cPedido:=SPACE(7) LOCAL cBcaItm:=SPACE(30) LOCAL nDcrClt:=0 LOCAL nPorDes:=0 LOCAL nDescuento:=0 LOCAL cBusca :=SPACE(45) LOCAL cBusPed:=SPACE(45) LOCAL cCodPed:="" LOCAL cDesDoc:="" LOCAL cNumero:="" LOCAL cTitDet LOCAL AliasVta LOCAL ...

A mi tambien me trabaja mal el DBCOMBO, por lo que evito utilizarlo, Pero de todas formas prueba modificar tu funcion:

IF nTipoPago>0
TipoPago ->(Dbgoto(nTipopago))
nDescuento:= Tipopago->Porcen
ELSE
MsgAlert("Debe Seleccionar Porcentaje")
ENDIF

... del cual tengo que obtener el porcentaje que debo aplicar.... REDEFINE DBCOMBO oCbx1 VAR nTipopago Update id 179 of oDlg; on Change (Descuento(@nDescuento, nTipopago),o178:Refresh (),o178:Setfocus()); Alias "Tipopago"; Itemfield "Codigo" ; Listfield "Descrip" //---------------------------------- ...