awk -F: ' 
function punto (dat,dec)
{
	if (dat+0==0) return ""
	pun=sprintf("%%.%df",dec)
	da=sprintf (pun,dat)
	if(dec) l=length(da)-dec-1
	else l=length(da)
	dat=substr(da,l+2)
	dato=substr(da,1,l)
	if (l>6) pun=substr(dato,1,l-6)"."substr(dato,l-5,3)"."substr(dato,l-2)
	else if(l >3) pun=substr(dato,1,l-3)"."substr(dato,l-2)
	else pun=dato
	if (dec) pun=pun","dat
	return pun
}
{
print 	punto($1,$2+0)
} ' -
