S'han modificat els següents formularis amb data 25/02/2003:


MALBCOM2, MALBVEN2, MPEDCOM2, MPEDVEN2, MOFEVEN2, MALBTRAS2, MALBREG2.

A Tots els forms:
- Revisar si existeix la propietat FactorConv amb valor inicial 0.
- Al Metode Valid del TxtQuant1 posar-hi:

  IF this.Value=0
   RETURN .t.
  ENDIF

  if ThisForm.FactConv = 0
   ** Buscar Factor Conversió Articles
   SELECT Ges_Articles
   PRM_PARAM = ThisForm.txtArticle.Value
   REQUERY()
   thisform.FactConv = Ges_Articles.Fact_Conv
   SELECT (ThisForm.lcAlias1)
  endif
  
  IF VAL(this.tag) <> this.value AND ThisForm.FactConv <> 0
   ThisForm.txtQuant2.Value = this.value * ThisForm.FactConv
  endif
- Al metode gotFocus del TxtQuant1 posar-hi:

  this.Tag = TRANSFORM(this.Value)

- En el metode valid del TxtArticle verificar que, just despres del replace digui:

   ThisForm.txtTipIva.PosaValor(SqlResult.TipIva)
   ThisForm.FactConv = SqlResult.Fact_Conv
   use in SqlResult

Si no teniu res d'especial, podeu copiar-los al vostre projecte, sino cal fer les modificacions a cada un d'ells. Solsament afecta quan es treballa amb 2 quantitats.


----------------------------------------
Pere Pujol i Espuña
mailto:ppujol@adssl.com
----------------------------------------