IBExpert:
fabio2016ahm

SIGGA:
BAVALOS
plx2016ba

spark:
bavalos
plx2016

sistemas de archivos:
bavalos
plxba

SUBVERSION
Usuario bavalos
Contraseņa: plx2016


COMENTARIOS
-----------

DISCO D: Desde alli ejecuto la aplicacion la cual estoy manipulando.
DISCO C: Es el aplicativo de tienen todos los usuarios finales.
DISCO X: Para actualizar el X, jalo la Aplicacion y pdb del Disco D (Sistemas/Administrativo). Ademas donde 
	 cualquiera puede subir sus archivos.
DISCO Y: Otros.


Check out: Es para tomar el elemento.
Check In: Guardar los cambios y agregar los comentarios con su firma y fecha.
Undo check out: Es para salir de la ventana sin haber modificado nada.


setnull(ls_null)
			
			setItem(0, 'codbiendet',ls_null )
			setItem(1, 'codopedet',ls_null )
			setItem(1, 'ctactedetraccion',ls_null )
			setItem(1, 'constanciadeposito', ls_null)
			setItem(1, 'tasadetraccion', 0.00)
			setItem(1, 'impdetraccion',  0.00)
			setItem(1, 'monto_refer',0.00)	
			dw_1.object.fechadeposito[1]=datetime('00/00/0000')


-----------------------------------------------------------------------
// Si se cambia la fecha del documento de referencia, se actualiza el tipo de cambio.
	Case 'fecdoc_ref'
		ld_fecha = Date( data )
		ld_tipCambio = iou_pro_varios.f_tipcam( Datetime( ld_fecha, Time( '00:00:00' ) ), &
				Trim( gnv_app.of_obtiene_param( '0000','03' ) ) )
		
		If IsNull(ld_tipCambio) or ld_tipCambio = 0 Then
			MessageBox( 'Aviso', 'No se ha ingresado el tipo de cambio para la fecha ' + &
					'especificada.' , Exclamation! )
		Else
			dw_1.SetItem( row, 'tipcam', ld_tipCambio )
		End If
------------------------------------------------------------------------
choose case dwo.name
	case 'fecdoc'///, 'feccon'
		
		If This.getitemstring( row, 'syspro_apldoc' ) = 'S' Then Return 2
		
		ld_fecha = Date(dw_1.getitemdatetime(row,'fecdoc')  )
		ld_fecdoc = Datetime( data )
		
		/* FIN DE MI SCRIPT */
		
		If not isnull(ld_fecha ) and ld_fecha <> date('01-01-1900') then
			li_max_dias = invo_proveedor.of_get_dias_fecven()
			ld_fec_ven = RelativeDate(ld_fecha, li_max_dias )
			Setitem(1, 'fecven', ld_fec_ven)
		else
			setItem(1, 'fecdoc', Date('01-01-1900'))
		end if
		
				
		    if li_dias = 0 or isnull(li_dias) then
			  Setitem(1, 'fecven',ld_fecdoc)
		    else
			  Setitem(1, 'fecven', RelativeDate(date(ld_fecdoc),li_dias)) 
		    end if
		
		
		// ACV 24/10/2016
-----------------------------------------------------
fecdoc PARA RECEPCION


case 'fecdoc'
		ld_fecha = Date(data)
		If not isnull(ld_fecha ) and ld_fecha <> date('01-01-1900') then
			Setitem(1, 'fecven', ld_fecha)
		end if
		
		//HFNH 26072016  INICIO- Se corrige un error de formato en sistemas Windows 10.
		ld_fecdoc = Datetime( data )

		// Tipo de Cambio 
		//ld_tipCambio = iou_pro_varios.f_tipcam(datetime(ld_fecha,time('00:00:00')), Trim(gnv_app.of_obtiene_param('0000','03') ) )
		ld_tipCambio = iou_pro_varios.f_tipcam( ld_fecdoc, Trim(gnv_app.of_obtiene_param('0000','03') ) )
		
		//HFNH 26072016  FIN- Se corrige un error de formato en sistemas Windows 10.
		
		if isnull(ld_tipCambio) or ld_tipCambio=0 then
			messagebox('Advertencia!!','No se ha ingresado el tipo de cambio para el : ' + string(date(ld_fecdoc)),INFORMATION!)
		else
			dw_1.SetItem(1, 'tipcam', ld_tipCambio)
		end if
		
		
		li_codcre = dw_1.object.codcre[1]
		
		ls_codcre=string(li_codcre) // ACV 21/10/2016
		
//		 if li_codcre = 1 then
//			li_codcre = 2 
//		 end if
		 
		 ls_id_persona = dw_1.object.id_persona[1]
		 li_dias= dw_1.object.dias_credito[1]
//		 select dias_credito_pago // ACV 21/10/2016 
//		 into :li_dias
//		 from pub_personas
//		 where codemp = :amb.codemp and id_persona =:ls_id_persona  and tipo_pago = :ls_codcre	 // ACV 21/10/2016  
//		using sqlca;
		
		if li_dias = 0 or isnull(li_dias) then
			Setitem(1, 'fecven',ld_fecdoc)
		else
			Setitem(1, 'fecven', RelativeDate(date(ld_fecdoc),li_dias)) // ACV 21/10/2016
		end if